Routine: DINIT0F2

DINIT0F2 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;12:02 PM  16 Sep 1999 [ 04/02/2003   8:25 AM ]

 ;;22.0;VA FileMan;**1001**;APR 1, 2003

 ;;22.0;VA FileMan;**8**;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F3 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

ENTRY ;

 ;;^DIST(.403,.40101,40,1,0)

 ;;=1^^1,1^2

 ;;^DIST(.403,.40101,40,1,1)

 ;;=Page 1

 ;;^DIST(.403,.40101,40,1,40,0)

 ;;=^.4032IP^.401011^1

 ;;^DIST(.403,.40101,40,1,40,.401011,0)

 ;;=.401011^1^1,1^e

 ;;^DIST(.403,.40101,40,2,0)

 ;;=2^^1,1^^1

 ;;^DIST(.403,.40101,40,2,1)

 ;;=Page 2

 ;;^DIST(.403,.40101,40,2,40,0)

 ;;=^.4032IP^.401012^1

 ;;^DIST(.403,.40101,40,2,40,.401012,0)

 ;;=.401012^1^1,1^e

 ;;^DIST(.403,.40101,40,2,40,.401012,11)

 ;;=D EDIT^DIETED(DA)

 ;;^DIST(.403,.40201,0)

 ;;=DIEDIT^@^^^2981016.103^2990317.0933^^1^0^0^1

 ;;^DIST(.403,.40201,20)

 ;;=D POST^DIU20

 ;;^DIST(.403,.40201,40,0)

 ;;=^.4031I^1^1

 ;;^DIST(.403,.40201,40,1,0)

 ;;=1^^1,1

 ;;^DIST(.403,.40201,40,1,1)

 ;;=Page 1

 ;;^DIST(.403,.40201,40,1,40,0)

 ;;=^.4032IP^.402011^1

 ;;^DIST(.403,.40201,40,1,40,.402011,0)

 ;;=.402011^1^1,3^e

 ;;^DIST(.403,.40301,0)

 ;;=DDGF BLOCK EDIT^^^0^2930413^2990916.1055^^.403^0^0^1

 ;;^DIST(.403,.40301,40,0)

 ;;=^.4031I^2^2

 ;;^DIST(.403,.40301,40,1,0)

 ;;=1^^1,2^^^1^17,77

 ;;^DIST(.403,.40301,40,1,1)

 ;;=Edit Block Parameters

 ;;^DIST(.403,.40301,40,1,40,0)

 ;;=^.4032PI^.403012^2

 ;;^DIST(.403,.40301,40,1,40,.403011,0)

 ;;=.403011^1^1,1^e

 ;;^DIST(.403,.40301,40,1,40,.403012,0)

 ;;=.403012^2^10,1^e

 ;;^DIST(.403,.40301,40,1,40,.403012,1)

 ;;=PAGE:BLOCK:.01

 ;;^DIST(.403,.40301,40,2,0)

 ;;=11^^4,11^^^1^16,65

 ;;^DIST(.403,.40301,40,2,1)

 ;;=Page 11

 ;;^DIST(.403,.40301,40,2,40,0)

 ;;=^.4032PI^.403013^1

 ;;^DIST(.403,.40301,40,2,40,.403013,0)

 ;;=.403013^1^1,1^e

 ;;^DIST(.403,.40302,0)

 ;;=DDGF PAGE ADD^^^0^2930419^2990205.1327^^.403^0^1^1

 ;;^DIST(.403,.40302,40,0)

 ;;=^.4031I^2^2

 ;;^DIST(.403,.40302,40,1,0)

 ;;=1^^4,18^^^1^8,43

 ;;^DIST(.403,.40302,40,1,1)

 ;;=Add a New Page

 ;;^DIST(.403,.40302,40,1,40,0)

 ;;=^.4032PI^.403021^1

 ;;^DIST(.403,.40302,40,1,40,.403021,0)

 ;;=.403021^1^1,1^e

 ;;^DIST(.403,.40302,40,2,0)

 ;;=11^^4,15^^^1^9,49

 ;;^DIST(.403,.40302,40,2,1)

 ;;=Select New Page Number

 ;;^DIST(.403,.40302,40,2,40,0)

 ;;=^.4032PI^.403022^1

 ;;^DIST(.403,.40302,40,2,40,.403022,0)

 ;;=.403022^1^1,1^e

 ;;^DIST(.403,.40303,0)

 ;;=DDGF PAGE EDIT^^^0^2930419^2990205.1328^^.403^0^0^1

 ;;^DIST(.403,.40303,40,0)

 ;;=^.4031I^1^1

 ;;^DIST(.403,.40303,40,1,0)

 ;;=1^^1,3^^^1^17,77

 ;;^DIST(.403,.40303,40,1,1)

 ;;=Edit a Page

 ;;^DIST(.403,.40303,40,1,40,0)

 ;;=^.4032PI^.403031^1

 ;;^DIST(.403,.40303,40,1,40,.403031,0)

 ;;=.403031^1^1,1^e

 ;;^DIST(.403,.40303,40,1,40,.403031,11)

 ;;=I $$GET^DDSVALF("IS THIS A POP UP PAGE?") N DDGFI F DDGFI="PREVIOUS","NEXT" D UNED^DDSUTL(DDGFI_" PAGE","","",1)

 ;;^DIST(.403,.40304,0)

 ;;=DDGF PAGE SELECT^^^0^2930419^2990916.1055^^.403^0^1^1

 ;;^DIST(.403,.40304,40,0)

 ;;=^.4031I^1^1

 ;;^DIST(.403,.40304,40,1,0)

 ;;=1^^4,10^^^1^8,56

 ;;^DIST(.403,.40304,40,1,1)

 ;;=Select a Page

 ;;^DIST(.403,.40304,40,1,40,0)

 ;;=^.4032PI^.403041^1

 ;;^DIST(.403,.40304,40,1,40,.403041,0)

 ;;=.403041^1^3,3^e

 ;;^DIST(.403,.40305,0)

 ;;=DDGF FORM EDIT^^^0^2930427^2990302.0754^^.403^0^0^1

 ;;^DIST(.403,.40305,40,0)

 ;;=^.4031I^1^1

 ;;^DIST(.403,.40305,40,1,0)

 ;;=1^^1,2^^^1^16,76

 ;;^DIST(.403,.40305,40,1,1)

 ;;=Form Edit

 ;;^DIST(.403,.40305,40,1,40,0)

 ;;=^.4032PI^.403051^1

 ;;^DIST(.403,.40305,40,1,40,.403051,0)

 ;;=.403051^1^1,1^e

 ;;^DIST(.403,.40306,0)

 ;;=DDGF HEADER BLOCK EDIT^^^0^2930504^2941115.0924^^.403^0^0^1

 ;;^DIST(.403,.40306,40,0)

 ;;=^.4031I^1^1

 ;;^DIST(.403,.40306,40,1,0)

 ;;=1^^2,1^^^1^14,76

 ;;^DIST(.403,.40306,40,1,1)

 ;;=Edit/Delete the Header Block

 ;;^DIST(.403,.40306,40,1,40,0)

 ;;=^.4032PI^.403061^2

 ;;^DIST(.403,.40306,40,1,40,.403012,0)

 ;;=.403012^2^5,1^e

 ;;^DIST(.403,.40306,40,1,40,.403012,1)

 ;;=PAGE:1

 ;;^DIST(.403,.40306,40,1,40,.403061,0)

 ;;=.403061^1^1,1^e

 ;;^DIST(.403,.40401,0)

 ;;=DDGF FIELD ADD^^^0^2930331^2990916.1050^^.404^0^1^1

 ;;^DIST(.403,.40401,20)

 ;;=D VAL1^DDGFU

 ;;^DIST(.403,.40401,40,0)

 ;;=^.4031I^1^1

 ;;^DIST(.403,.40401,40,1,0)

 ;;=1^^4,12^^^1^10,59

 ;;^DIST(.403,.40401,40,1,1)

 ;;=New field

 ;;^DIST(.403,.40401,40,1,40,0)

 ;;=^.4032PI^.404011^1

 ;;^DIST(.403,.40401,40,1,40,.404011,0)

 ;;=.404011^1^3,3^e

 ;;^DIST(.403,.40402,0)

 ;;=DDGF FIELD CAPTION ONLY^^^0^2930409^2990916.1050^^.404^0^0^1

 ;;^DIST(.403,.40402,40,0)

 ;;=^.4031I^1^1

 ;;^DIST(.403,.40402,40,1,0)

 ;;=1^^1,2^^^1^9,75

 ;;^DIST(.403,.40402,40,1,1)

 ;;=Caption only field

 ;;^DIST(.403,.40402,40,1,40,0)

 ;;=^.4032PI^.404021^1

 ;;^DIST(.403,.40402,40,1,40,.404021,0)

 ;;=.404021^1^1,3^e

 ;;^DIST(.403,.40403,0)

 ;;=DDGF FIELD DD^^^0^2930510^2990916.1048^^.404^0^0^1

 ;;^DIST(.403,.40403,40,0)

 ;;=^.4031I^4^4

 ;;^DIST(.403,.40403,40,1,0)

 ;;=1^^1,1^^^1^16,77

 ;;^DIST(.403,.40403,40,1,1)

 ;;=Page 1

 ;;^DIST(.403,.40403,40,1,40,0)

 ;;=^.4032PI^.404031^1

 ;;^DIST(.403,.40403,40,1,40,.404031,0)

 ;;=.404031^1^1,1^e

 ;;^DIST(.403,.40403,40,2,0)

 ;;=11^^3,3^^^1^15,75

 ;;^DIST(.403,.40403,40,2,1)

 ;;=Single-Valued Field (Other)

 ;;^DIST(.403,.40403,40,2,40,0)

 ;;=^.4032PI^.404032^1

 ;;^DIST(.403,.40403,40,2,40,.404032,0)

 ;;=.404032^1^1,1^e

 ;;^DIST(.403,.40403,40,3,0)

 ;;=21^^3,17^^^1^15,60

 ;;^DIST(.403,.40403,40,3,1)

 ;;=Multiple-Valued Field (Other)

 ;;^DIST(.403,.40403,40,3,40,0)

 ;;=^.4032PI^.404033^1

 ;;^DIST(.403,.40403,40,3,40,.404033,0)

 ;;=.404033^1^1,1^e

 ;;^DIST(.403,.40403,40,4,0)

 ;;=31^^3,17^^^1^13,60

 ;;^DIST(.403,.40403,40,4,1)

 ;;=Word Processing Field (Other)

 ;;^DIST(.403,.40403,40,4,40,0)

 ;;=^.4032PI^.404034^1

 ;;^DIST(.403,.40403,40,4,40,.404034,0)

 ;;=.404034^1^1,1^e

 ;;^DIST(.403,.40404,0)

 ;;=DDGF FIELD FORM ONLY^^^0^2930510^2990310.0915^^.404^0^0^1

 ;;^DIST(.403,.40404,40,0)

 ;;=^.4031I^3^3

 ;;^DIST(.403,.40404,40,1,0)

 ;;=1^^1,1^^^1^16,77

 ;;^DIST(.403,.40404,40,1,1)

 ;;=Form Only Field

 ;;^DIST(.403,.40404,40,1,40,0)

 ;;=^.4032PI^.404041^1

 ;;^DIST(.403,.40404,40,1,40,.404041,0)

 ;;=.404041^1^1,1^e

 ;;^DIST(.403,.40404,40,2,0)

 ;;=11^^3,3^^^1^15,75

 ;;^DIST(.403,.40404,40,2,1)

 ;;=Other Form Only Field Params

 ;;^DIST(.403,.40404,40,2,40,0)

 ;;=^.4032PI^.404042^1

 ;;^DIST(.403,.40404,40,2,40,.404042,0)

 ;;=.404042^1^1,1^e

 ;;^DIST(.403,.40404,40,3,0)

 ;;=21^^3,3^^^1^15,75

 ;;^DIST(.403,.40404,40,3,1)

 ;;=Other Parameters

 ;;^DIST(.403,.40404,40,3,40,0)

 ;;=^.4032PI^.404032^1

 ;;^DIST(.403,.40404,40,3,40,.404032,0)

 ;;=.404032^1^1,1^e

 ;;^DIST(.403,.40405,0)

 ;;=DDGF FIELD COMPUTED^^^0^2930916^2990211.0855^^.404^0^0^1

 ;;^DIST(.403,.40405,40,0)

 ;;=^.4031I^2^2

 ;;^DIST(.403,.40405,40,1,0)

 ;;=1^^1,2^^^1^12,76

 ;;^DIST(.403,.40405,40,1,1)

 ;;=Computed Field

 ;;^DIST(.403,.40405,40,1,40,0)

 ;;=^.4032PI^.404051^1

 ;;^DIST(.403,.40405,40,1,40,.404051,0)

 ;;=.404051^1^1,1^e

DINIT0F2  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;12:02 PM  16 Sep 1999 [ 04/02/2003   8:25 AM ]

 +1       ;;22.0;VA FileMan;**1001**;APR 1, 2003

 +2       ;;22.0;VA FileMan;**8**;Mar 30, 1999

 +3       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +4        FOR I=1:2

               SET X=$TEXT(ENTRY+I)

               IF X=""

                   GOTO ^DINIT0F3

               SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

 +5        QUIT

ENTRY     ;

 +1       ;;^DIST(.403,.40101,40,1,0)

 +2       ;;=1^^1,1^2

 +3       ;;^DIST(.403,.40101,40,1,1)

 +4       ;;=Page 1

 +5       ;;^DIST(.403,.40101,40,1,40,0)

 +6       ;;=^.4032IP^.401011^1

 +7       ;;^DIST(.403,.40101,40,1,40,.401011,0)

 +8       ;;=.401011^1^1,1^e

 +9       ;;^DIST(.403,.40101,40,2,0)

 +10      ;;=2^^1,1^^1

 +11      ;;^DIST(.403,.40101,40,2,1)

 +12      ;;=Page 2

 +13      ;;^DIST(.403,.40101,40,2,40,0)

 +14      ;;=^.4032IP^.401012^1

 +15      ;;^DIST(.403,.40101,40,2,40,.401012,0)

 +16      ;;=.401012^1^1,1^e

 +17      ;;^DIST(.403,.40101,40,2,40,.401012,11)

 +18      ;;=D EDIT^DIETED(DA)

 +19      ;;^DIST(.403,.40201,0)

 +20      ;;=DIEDIT^@^^^2981016.103^2990317.0933^^1^0^0^1

 +21      ;;^DIST(.403,.40201,20)

 +22      ;;=D POST^DIU20

 +23      ;;^DIST(.403,.40201,40,0)

 +24      ;;=^.4031I^1^1

 +25      ;;^DIST(.403,.40201,40,1,0)

 +26      ;;=1^^1,1

 +27      ;;^DIST(.403,.40201,40,1,1)

 +28      ;;=Page 1

 +29      ;;^DIST(.403,.40201,40,1,40,0)

 +30      ;;=^.4032IP^.402011^1

 +31      ;;^DIST(.403,.40201,40,1,40,.402011,0)

 +32      ;;=.402011^1^1,3^e

 +33      ;;^DIST(.403,.40301,0)

 +34      ;;=DDGF BLOCK EDIT^^^0^2930413^2990916.1055^^.403^0^0^1

 +35      ;;^DIST(.403,.40301,40,0)

 +36      ;;=^.4031I^2^2

 +37      ;;^DIST(.403,.40301,40,1,0)

 +38      ;;=1^^1,2^^^1^17,77

 +39      ;;^DIST(.403,.40301,40,1,1)

 +40      ;;=Edit Block Parameters

 +41      ;;^DIST(.403,.40301,40,1,40,0)

 +42      ;;=^.4032PI^.403012^2

 +43      ;;^DIST(.403,.40301,40,1,40,.403011,0)

 +44      ;;=.403011^1^1,1^e

 +45      ;;^DIST(.403,.40301,40,1,40,.403012,0)

 +46      ;;=.403012^2^10,1^e

 +47      ;;^DIST(.403,.40301,40,1,40,.403012,1)

 +48      ;;=PAGE:BLOCK:.01

 +49      ;;^DIST(.403,.40301,40,2,0)

 +50      ;;=11^^4,11^^^1^16,65

 +51      ;;^DIST(.403,.40301,40,2,1)

 +52      ;;=Page 11

 +53      ;;^DIST(.403,.40301,40,2,40,0)

 +54      ;;=^.4032PI^.403013^1

 +55      ;;^DIST(.403,.40301,40,2,40,.403013,0)

 +56      ;;=.403013^1^1,1^e

 +57      ;;^DIST(.403,.40302,0)

 +58      ;;=DDGF PAGE ADD^^^0^2930419^2990205.1327^^.403^0^1^1

 +59      ;;^DIST(.403,.40302,40,0)

 +60      ;;=^.4031I^2^2

 +61      ;;^DIST(.403,.40302,40,1,0)

 +62      ;;=1^^4,18^^^1^8,43

 +63      ;;^DIST(.403,.40302,40,1,1)

 +64      ;;=Add a New Page

 +65      ;;^DIST(.403,.40302,40,1,40,0)

 +66      ;;=^.4032PI^.403021^1

 +67      ;;^DIST(.403,.40302,40,1,40,.403021,0)

 +68      ;;=.403021^1^1,1^e

 +69      ;;^DIST(.403,.40302,40,2,0)

 +70      ;;=11^^4,15^^^1^9,49

 +71      ;;^DIST(.403,.40302,40,2,1)

 +72      ;;=Select New Page Number

 +73      ;;^DIST(.403,.40302,40,2,40,0)

 +74      ;;=^.4032PI^.403022^1

 +75      ;;^DIST(.403,.40302,40,2,40,.403022,0)

 +76      ;;=.403022^1^1,1^e

 +77      ;;^DIST(.403,.40303,0)

 +78      ;;=DDGF PAGE EDIT^^^0^2930419^2990205.1328^^.403^0^0^1

 +79      ;;^DIST(.403,.40303,40,0)

 +80      ;;=^.4031I^1^1

 +81      ;;^DIST(.403,.40303,40,1,0)

 +82      ;;=1^^1,3^^^1^17,77

 +83      ;;^DIST(.403,.40303,40,1,1)

 +84      ;;=Edit a Page

 +85      ;;^DIST(.403,.40303,40,1,40,0)

 +86      ;;=^.4032PI^.403031^1

 +87      ;;^DIST(.403,.40303,40,1,40,.403031,0)

 +88      ;;=.403031^1^1,1^e

 +89      ;;^DIST(.403,.40303,40,1,40,.403031,11)

 +90      ;;=I $$GET^DDSVALF("IS THIS A POP UP PAGE?") N DDGFI F DDGFI="PREVIOUS","NEXT" D UNED^DDSUTL(DDGFI_" PAGE","","",1)

 +91      ;;^DIST(.403,.40304,0)

 +92      ;;=DDGF PAGE SELECT^^^0^2930419^2990916.1055^^.403^0^1^1

 +93      ;;^DIST(.403,.40304,40,0)

 +94      ;;=^.4031I^1^1

 +95      ;;^DIST(.403,.40304,40,1,0)

 +96      ;;=1^^4,10^^^1^8,56

 +97      ;;^DIST(.403,.40304,40,1,1)

 +98      ;;=Select a Page

 +99      ;;^DIST(.403,.40304,40,1,40,0)

 +100     ;;=^.4032PI^.403041^1

 +101     ;;^DIST(.403,.40304,40,1,40,.403041,0)

 +102     ;;=.403041^1^3,3^e

 +103     ;;^DIST(.403,.40305,0)

 +104     ;;=DDGF FORM EDIT^^^0^2930427^2990302.0754^^.403^0^0^1

 +105     ;;^DIST(.403,.40305,40,0)

 +106     ;;=^.4031I^1^1

 +107     ;;^DIST(.403,.40305,40,1,0)

 +108     ;;=1^^1,2^^^1^16,76

 +109     ;;^DIST(.403,.40305,40,1,1)

 +110     ;;=Form Edit

 +111     ;;^DIST(.403,.40305,40,1,40,0)

 +112     ;;=^.4032PI^.403051^1

 +113     ;;^DIST(.403,.40305,40,1,40,.403051,0)

 +114     ;;=.403051^1^1,1^e

 +115     ;;^DIST(.403,.40306,0)

 +116     ;;=DDGF HEADER BLOCK EDIT^^^0^2930504^2941115.0924^^.403^0^0^1

 +117     ;;^DIST(.403,.40306,40,0)

 +118     ;;=^.4031I^1^1

 +119     ;;^DIST(.403,.40306,40,1,0)

 +120     ;;=1^^2,1^^^1^14,76

 +121     ;;^DIST(.403,.40306,40,1,1)

 +122     ;;=Edit/Delete the Header Block

 +123     ;;^DIST(.403,.40306,40,1,40,0)

 +124     ;;=^.4032PI^.403061^2

 +125     ;;^DIST(.403,.40306,40,1,40,.403012,0)

 +126     ;;=.403012^2^5,1^e

 +127     ;;^DIST(.403,.40306,40,1,40,.403012,1)

 +128     ;;=PAGE:1

 +129     ;;^DIST(.403,.40306,40,1,40,.403061,0)

 +130     ;;=.403061^1^1,1^e

 +131     ;;^DIST(.403,.40401,0)

 +132     ;;=DDGF FIELD ADD^^^0^2930331^2990916.1050^^.404^0^1^1

 +133     ;;^DIST(.403,.40401,20)

 +134     ;;=D VAL1^DDGFU

 +135     ;;^DIST(.403,.40401,40,0)

 +136     ;;=^.4031I^1^1

 +137     ;;^DIST(.403,.40401,40,1,0)

 +138     ;;=1^^4,12^^^1^10,59

 +139     ;;^DIST(.403,.40401,40,1,1)

 +140     ;;=New field

 +141     ;;^DIST(.403,.40401,40,1,40,0)

 +142     ;;=^.4032PI^.404011^1

 +143     ;;^DIST(.403,.40401,40,1,40,.404011,0)

 +144     ;;=.404011^1^3,3^e

 +145     ;;^DIST(.403,.40402,0)

 +146     ;;=DDGF FIELD CAPTION ONLY^^^0^2930409^2990916.1050^^.404^0^0^1

 +147     ;;^DIST(.403,.40402,40,0)

 +148     ;;=^.4031I^1^1

 +149     ;;^DIST(.403,.40402,40,1,0)

 +150     ;;=1^^1,2^^^1^9,75

 +151     ;;^DIST(.403,.40402,40,1,1)

 +152     ;;=Caption only field

 +153     ;;^DIST(.403,.40402,40,1,40,0)

 +154     ;;=^.4032PI^.404021^1

 +155     ;;^DIST(.403,.40402,40,1,40,.404021,0)

 +156     ;;=.404021^1^1,3^e

 +157     ;;^DIST(.403,.40403,0)

 +158     ;;=DDGF FIELD DD^^^0^2930510^2990916.1048^^.404^0^0^1

 +159     ;;^DIST(.403,.40403,40,0)

 +160     ;;=^.4031I^4^4

 +161     ;;^DIST(.403,.40403,40,1,0)

 +162     ;;=1^^1,1^^^1^16,77

 +163     ;;^DIST(.403,.40403,40,1,1)

 +164     ;;=Page 1

 +165     ;;^DIST(.403,.40403,40,1,40,0)

 +166     ;;=^.4032PI^.404031^1

 +167     ;;^DIST(.403,.40403,40,1,40,.404031,0)

 +168     ;;=.404031^1^1,1^e

 +169     ;;^DIST(.403,.40403,40,2,0)

 +170     ;;=11^^3,3^^^1^15,75

 +171     ;;^DIST(.403,.40403,40,2,1)

 +172     ;;=Single-Valued Field (Other)

 +173     ;;^DIST(.403,.40403,40,2,40,0)

 +174     ;;=^.4032PI^.404032^1

 +175     ;;^DIST(.403,.40403,40,2,40,.404032,0)

 +176     ;;=.404032^1^1,1^e

 +177     ;;^DIST(.403,.40403,40,3,0)

 +178     ;;=21^^3,17^^^1^15,60

 +179     ;;^DIST(.403,.40403,40,3,1)

 +180     ;;=Multiple-Valued Field (Other)

 +181     ;;^DIST(.403,.40403,40,3,40,0)

 +182     ;;=^.4032PI^.404033^1

 +183     ;;^DIST(.403,.40403,40,3,40,.404033,0)

 +184     ;;=.404033^1^1,1^e

 +185     ;;^DIST(.403,.40403,40,4,0)

 +186     ;;=31^^3,17^^^1^13,60

 +187     ;;^DIST(.403,.40403,40,4,1)

 +188     ;;=Word Processing Field (Other)

 +189     ;;^DIST(.403,.40403,40,4,40,0)

 +190     ;;=^.4032PI^.404034^1

 +191     ;;^DIST(.403,.40403,40,4,40,.404034,0)

 +192     ;;=.404034^1^1,1^e

 +193     ;;^DIST(.403,.40404,0)

 +194     ;;=DDGF FIELD FORM ONLY^^^0^2930510^2990310.0915^^.404^0^0^1

 +195     ;;^DIST(.403,.40404,40,0)

 +196     ;;=^.4031I^3^3

 +197     ;;^DIST(.403,.40404,40,1,0)

 +198     ;;=1^^1,1^^^1^16,77

 +199     ;;^DIST(.403,.40404,40,1,1)

 +200     ;;=Form Only Field

 +201     ;;^DIST(.403,.40404,40,1,40,0)

 +202     ;;=^.4032PI^.404041^1

 +203     ;;^DIST(.403,.40404,40,1,40,.404041,0)

 +204     ;;=.404041^1^1,1^e

 +205     ;;^DIST(.403,.40404,40,2,0)

 +206     ;;=11^^3,3^^^1^15,75

 +207     ;;^DIST(.403,.40404,40,2,1)

 +208     ;;=Other Form Only Field Params

 +209     ;;^DIST(.403,.40404,40,2,40,0)

 +210     ;;=^.4032PI^.404042^1

 +211     ;;^DIST(.403,.40404,40,2,40,.404042,0)

 +212     ;;=.404042^1^1,1^e

 +213     ;;^DIST(.403,.40404,40,3,0)

 +214     ;;=21^^3,3^^^1^15,75

 +215     ;;^DIST(.403,.40404,40,3,1)

 +216     ;;=Other Parameters

 +217     ;;^DIST(.403,.40404,40,3,40,0)

 +218     ;;=^.4032PI^.404032^1

 +219     ;;^DIST(.403,.40404,40,3,40,.404032,0)

 +220     ;;=.404032^1^1,1^e

 +221     ;;^DIST(.403,.40405,0)

 +222     ;;=DDGF FIELD COMPUTED^^^0^2930916^2990211.0855^^.404^0^0^1

 +223     ;;^DIST(.403,.40405,40,0)

 +224     ;;=^.4031I^2^2

 +225     ;;^DIST(.403,.40405,40,1,0)

 +226     ;;=1^^1,2^^^1^12,76

 +227     ;;^DIST(.403,.40405,40,1,1)

 +228     ;;=Computed Field

 +229     ;;^DIST(.403,.40405,40,1,40,0)

 +230     ;;=^.4032PI^.404051^1

 +231     ;;^DIST(.403,.40405,40,1,40,.404051,0)

 +232     ;;=.404051^1^1,1^e

DINIT0F2.m