DINIT0F2 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;12:02 PM  16 Sep 1999
 ;;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
 Q
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