Return to DINIT0F1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT0F1.m, revision 1.1

1.1     ! snw         1: DINIT0F1       ;SFISC/MKO-FORMS AND BLOCKS FOR FORM EDITOR ;11/23/94  1:24 PM
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F2 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
        !             5:        Q
        !             6: ENTRY  ;
        !             7:        ;;^DIST(.403,.40403,40,4,1)
        !             8:        ;;=Word Processing Field (Other)
        !             9:        ;;^DIST(.403,.40403,40,4,40,0)
        !            10:        ;;=^.4032PI^.404034^1
        !            11:        ;;^DIST(.403,.40403,40,4,40,.404034,0)
        !            12:        ;;=.404034^1^1,1^e
        !            13:        ;;^DIST(.403,.40404,0)
        !            14:        ;;=DDGF FIELD FORM ONLY^^^0^2930510^2941123.1312^^.404^0^0^1
        !            15:        ;;^DIST(.403,.40404,40,0)
        !            16:        ;;=^.4031I^3^3
        !            17:        ;;^DIST(.403,.40404,40,1,0)
        !            18:        ;;=1^^1,1^^^1^16,77
        !            19:        ;;^DIST(.403,.40404,40,1,1)
        !            20:        ;;=Form Only Field
        !            21:        ;;^DIST(.403,.40404,40,1,40,0)
        !            22:        ;;=^.4032PI^.404041^1
        !            23:        ;;^DIST(.403,.40404,40,1,40,.404041,0)
        !            24:        ;;=.404041^1^1,1^e
        !            25:        ;;^DIST(.403,.40404,40,2,0)
        !            26:        ;;=11^^3,3^^^1^15,75
        !            27:        ;;^DIST(.403,.40404,40,2,1)
        !            28:        ;;=Other Form Only Field Params
        !            29:        ;;^DIST(.403,.40404,40,2,40,0)
        !            30:        ;;=^.4032PI^.404042^1
        !            31:        ;;^DIST(.403,.40404,40,2,40,.404042,0)
        !            32:        ;;=.404042^1^1,1^e
        !            33:        ;;^DIST(.403,.40404,40,3,0)
        !            34:        ;;=21^^3,3^^^1^15,75
        !            35:        ;;^DIST(.403,.40404,40,3,1)
        !            36:        ;;=Other Parameters
        !            37:        ;;^DIST(.403,.40404,40,3,40,0)
        !            38:        ;;=^.4032PI^.404032^1
        !            39:        ;;^DIST(.403,.40404,40,3,40,.404032,0)
        !            40:        ;;=.404032^1^1,1^e
        !            41:        ;;^DIST(.403,.40405,0)
        !            42:        ;;=DDGF FIELD COMPUTED^^^0^2930916^2941123.1311^^.404^0^0^1
        !            43:        ;;^DIST(.403,.40405,40,0)
        !            44:        ;;=^.4031I^2^2
        !            45:        ;;^DIST(.403,.40405,40,1,0)
        !            46:        ;;=1^^1,2^^^1^12,76
        !            47:        ;;^DIST(.403,.40405,40,1,1)
        !            48:        ;;=Computed Field
        !            49:        ;;^DIST(.403,.40405,40,1,40,0)
        !            50:        ;;=^.4032PI^.404051^1
        !            51:        ;;^DIST(.403,.40405,40,1,40,.404051,0)
        !            52:        ;;=.404051^1^1,1^e
        !            53:        ;;^DIST(.403,.40405,40,2,0)
        !            54:        ;;=11^^3,16^^^1^11,63
        !            55:        ;;^DIST(.403,.40405,40,2,1)
        !            56:        ;;=Other Parameters
        !            57:        ;;^DIST(.403,.40405,40,2,40,0)
        !            58:        ;;=^.4032PI^.404052^1
        !            59:        ;;^DIST(.403,.40405,40,2,40,.404052,0)
        !            60:        ;;=.404052^1^1,3^e
        !            61:        ;;^DIST(.403,.40406,0)
        !            62:        ;;=DDGF BLOCK ADD^^^0^2930413^2941115.1052^^.404^0^1^1
        !            63:        ;;^DIST(.403,.40406,40,0)
        !            64:        ;;=^.4031I^3^3
        !            65:        ;;^DIST(.403,.40406,40,1,0)
        !            66:        ;;=1^^3,9^^^1^7,65
        !            67:        ;;^DIST(.403,.40406,40,1,1)
        !            68:        ;;=Add a New Block
        !            69:        ;;^DIST(.403,.40406,40,1,40,0)
        !            70:        ;;=^.4032PI^.404061^1
        !            71:        ;;^DIST(.403,.40406,40,1,40,.404061,0)
        !            72:        ;;=.404061^1^1,1^e
        !            73:        ;;^DIST(.403,.40406,40,2,0)
        !            74:        ;;=11^^6,12^^^1^11,61
        !            75:        ;;^DIST(.403,.40406,40,2,1)
        !            76:        ;;=Add a New Block to Page
        !            77:        ;;^DIST(.403,.40406,40,2,40,0)
        !            78:        ;;=^.4032PI^.404062^1
        !            79:        ;;^DIST(.403,.40406,40,2,40,.404062,0)
        !            80:        ;;=.404062^1^1,1^e
        !            81:        ;;^DIST(.403,.40406,40,3,0)
        !            82:        ;;=21^^6,17^^^1^13,57
        !            83:        ;;^DIST(.403,.40406,40,3,1)
        !            84:        ;;=Duplicate Block Message
        !            85:        ;;^DIST(.403,.40406,40,3,40,0)
        !            86:        ;;=^.4032PI^.404063^1
        !            87:        ;;^DIST(.403,.40406,40,3,40,.404063,0)
        !            88:        ;;=.404063^1^1,1^e
        !            89:        ;;^DIST(.403,.40407,0)
        !            90:        ;;=DDGF BLOCK DELETE^^^0^2930809^2940628^^.404^0^1^1
        !            91:        ;;^DIST(.403,.40407,40,0)
        !            92:        ;;=^.4031I^1^1
        !            93:        ;;^DIST(.403,.40407,40,1,0)
        !            94:        ;;=1^^5,9^^^1^11,62
        !            95:        ;;^DIST(.403,.40407,40,1,1)
        !            96:        ;;=Page 1
        !            97:        ;;^DIST(.403,.40407,40,1,40,0)
        !            98:        ;;=^.4032PI^.404071^1
        !            99:        ;;^DIST(.403,.40407,40,1,40,.404071,0)
        !           100:        ;;=.404071^1^3,3^e
        !           101:        ;;^DIST(.403,.40408,0)
        !           102:        ;;=DDGF HEADER BLOCK SELECT^^^0^2930504^2940928.1204^^.404^0^1^1
        !           103:        ;;^DIST(.403,.40408,40,0)
        !           104:        ;;=^.4031I^1^1
        !           105:        ;;^DIST(.403,.40408,40,1,0)
        !           106:        ;;=1^^4,5^^^1^8,68
        !           107:        ;;^DIST(.403,.40408,40,1,1)
        !           108:        ;;=Add a New Header Block
        !           109:        ;;^DIST(.403,.40408,40,1,40,0)
        !           110:        ;;=^.4032PI^.404081^1
        !           111:        ;;^DIST(.403,.40408,40,1,40,.404081,0)
        !           112:        ;;=.404081^1^1,1^e