Routine: DINIT0FG

DINIT0FG ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:43 AM  3 Jun 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="" ^DINIT0FH S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

ENTRY ;

 ;;^DIST(.404,.403013,40,3,0)

 ;;=3^Parameters for Repeating Blocks^1

 ;;^DIST(.404,.403013,40,3,2)

 ;;=^^5,3

 ;;^DIST(.404,.403013,40,4,0)

 ;;=4^REPLICATION^3

 ;;^DIST(.404,.403013,40,4,1)

 ;;=5

 ;;^DIST(.404,.403013,40,4,2)

 ;;=7,24^3^7,11

 ;;^DIST(.404,.403013,40,4,13)

 ;;=Q:DDSOLD>1&(X>1)  N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION","ASK 'OK'" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ)

 ;;^DIST(.404,.403013,40,5,0)

 ;;=5^INDEX^3

 ;;^DIST(.404,.403013,40,5,1)

 ;;=6

 ;;^DIST(.404,.403013,40,5,2)

 ;;=8,24^30^8,17

 ;;^DIST(.404,.403013,40,6,0)

 ;;=6^INITIAL POSITION^3

 ;;^DIST(.404,.403013,40,6,1)

 ;;=7

 ;;^DIST(.404,.403013,40,6,2)

 ;;=9,24^5^9,6

 ;;^DIST(.404,.403013,40,7,0)

 ;;=7^DISALLOW LAYGO^3

 ;;^DIST(.404,.403013,40,7,1)

 ;;=8

 ;;^DIST(.404,.403013,40,7,2)

 ;;=10,24^3^10,8

 ;;^DIST(.404,.403013,40,8,0)

 ;;=8^FIELD FOR SELECTION^3

 ;;^DIST(.404,.403013,40,8,1)

 ;;=9

 ;;^DIST(.404,.403013,40,8,2)

 ;;=11,24^30^11,3

 ;;^DIST(.404,.403013,40,9,0)

 ;;=9^ASK 'OK'^3

 ;;^DIST(.404,.403013,40,9,1)

 ;;=10

 ;;^DIST(.404,.403013,40,9,2)

 ;;=12,24^3^12,14

 ;;^DIST(.404,.403021,0)

 ;;=DDGF PAGE ADD^.4031

 ;;^DIST(.404,.403021,40,0)

 ;;=^.4044I^1^1

 ;;^DIST(.404,.403021,40,1,0)

 ;;=1^NEW PAGE NUMBER^2

 ;;^DIST(.404,.403021,40,1,2)

 ;;=3,20^5^3,3

 ;;^DIST(.404,.403021,40,1,12)

 ;;=S DDACT="EX"

 ;;^DIST(.404,.403021,40,1,20)

 ;;=DD^^.4031,.01

 ;;^DIST(.404,.403021,40,1,23)

 ;;=S DDGFPNUM=X

 ;;^DIST(.404,.403022,0)

 ;;=DDGF PAGE ADD ARE YOU SURE^.4031

 ;;^DIST(.404,.403022,40,0)

 ;;=^.4044I^2^2

 ;;^DIST(.404,.403022,40,1,0)

 ;;=1^!M^1

 ;;^DIST(.404,.403022,40,1,.1)

 ;;=S Y="Are you adding Page "_DDGFPNUM

 ;;^DIST(.404,.403022,40,1,2)

 ;;=^^3,3

 ;;^DIST(.404,.403022,40,2,0)

 ;;=2^as a new page on this form?^2

 ;;^DIST(.404,.403022,40,2,2)

 ;;=4,31^3^4,3^1

 ;;^DIST(.404,.403022,40,2,12)

 ;;=S DDACT="EX"

 ;;^DIST(.404,.403022,40,2,20)

 ;;=Y

 ;;^DIST(.404,.403022,40,2,23)

 ;;=S DDGFANS=X

 ;;^DIST(.404,.403031,0)

 ;;=DDGF PAGE EDIT^.4031

 ;;^DIST(.404,.403031,40,0)

 ;;=^.4044I^16^13

 ;;^DIST(.404,.403031,40,1,0)

 ;;=1^ Page Properties ^1

 ;;^DIST(.404,.403031,40,1,2)

 ;;=^^1,27

 ;;^DIST(.404,.403031,40,2,0)

 ;;=2^PAGE NUMBER^3

 ;;^DIST(.404,.403031,40,2,1)

 ;;=.01

 ;;^DIST(.404,.403031,40,2,2)

 ;;=3,21^5^3,8

 ;;^DIST(.404,.403031,40,4,0)

 ;;=4^HEADER BLOCK^3

 ;;^DIST(.404,.403031,40,4,1)

 ;;=1

 ;;^DIST(.404,.403031,40,4,2)

 ;;=5,21^30^5,7

 ;;^DIST(.404,.403031,40,5,0)

 ;;=8^NEXT PAGE^3

 ;;^DIST(.404,.403031,40,5,1)

 ;;=3

 ;;^DIST(.404,.403031,40,5,2)

 ;;=9,21^5^9,10

 ;;^DIST(.404,.403031,40,6,0)

 ;;=9^PREVIOUS PAGE^3

 ;;^DIST(.404,.403031,40,6,1)

 ;;=4

 ;;^DIST(.404,.403031,40,6,2)

 ;;=10,21^5^10,6

 ;;^DIST(.404,.403031,40,7,0)

 ;;=12^PRE ACTION^3

 ;;^DIST(.404,.403031,40,7,1)

 ;;=11

 ;;^DIST(.404,.403031,40,7,2)

 ;;=14,21^53^14,9

 ;;^DIST(.404,.403031,40,8,0)

 ;;=13^POST ACTION^3

 ;;^DIST(.404,.403031,40,8,1)

 ;;=12

 ;;^DIST(.404,.403031,40,8,2)

 ;;=15,21^53^15,8

 ;;^DIST(.404,.403031,40,9,0)

 ;;=11^DESCRIPTION (WP)^3

 ;;^DIST(.404,.403031,40,9,1)

 ;;=15

 ;;^DIST(.404,.403031,40,9,2)

 ;;=13,21^1^13,3

 ;;^DIST(.404,.403031,40,12,0)

 ;;=10^PARENT FIELD^3

 ;;^DIST(.404,.403031,40,12,1)

 ;;=8

 ;;^DIST(.404,.403031,40,12,2)

 ;;=11,21^53^11,7

 ;;^DIST(.404,.403031,40,13,0)

 ;;=6^IS THIS A POP UP PAGE?^2

 ;;^DIST(.404,.403031,40,13,2)

 ;;=7,67^3^7,44^1

 ;;^DIST(.404,.403031,40,13,3)

 ;;=!M

 ;;^DIST(.404,.403031,40,13,3.1)

 ;;=S:$G(DDGFLRC)]"" Y=1

 ;;^DIST(.404,.403031,40,13,13)

 ;;=N LRC,PP,NP S LRC="LOWER RIGHT COORDINATE",PP="PREVIOUS PAGE",NP="NEXT PAGE" D:X PUT^DDSVALF(LRC,"","","15,75"):$$GET^DDSVALF(LRC)="" D:'X PUT^DDSVALF(LRC) N PG F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X)) D:X PUT^DDSVAL(DIE,.DA,PG)

 ;;^DIST(.404,.403031,40,13,20)

 ;;=DD^^.4031,5

 ;;^DIST(.404,.403031,40,14,0)

 ;;=5^PAGE COORDINATE^2

 ;;^DIST(.404,.403031,40,14,2)

 ;;=7,21^7^7,4

 ;;^DIST(.404,.403031,40,14,3)

 ;;=!M

 ;;^DIST(.404,.403031,40,14,3.1)

 ;;=S Y=$G(DDGFTLC0)

 ;;^DIST(.404,.403031,40,14,4)

 ;;=1

 ;;^DIST(.404,.403031,40,14,20)

 ;;=DD^^.4031,2

 ;;^DIST(.404,.403031,40,14,23)

 ;;=S DDGFTLC=X

 ;;^DIST(.404,.403031,40,15,0)

 ;;=7^LOWER RIGHT COORDINATE^2

 ;;^DIST(.404,.403031,40,15,2)

 ;;=8,67^7^8,43

 ;;^DIST(.404,.403031,40,15,3)

 ;;=!M

 ;;^DIST(.404,.403031,40,15,3.1)

 ;;=S Y=$G(DDGFLRC0)

 ;;^DIST(.404,.403031,40,15,13)

 ;;=I DDSOLD=""!(X="") D PUT^DDSVALF("IS THIS A POP UP PAGE?","","",$S(X="":"",1:1),"I") N PG,NP,PP S NP="NEXT PAGE",PP="PREVIOUS PAGE" F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X]"")) D:X]"" PUT^DDSVAL(DIE,.DA,PG)

 ;;^DIST(.404,.403031,40,15,20)

 ;;=DD^^.4031,6

 ;;^DIST(.404,.403031,40,15,23)

 ;;=S DDGFLRC=X

 ;;^DIST(.404,.403031,40,16,0)

 ;;=3^PAGE NAME^2

 ;;^DIST(.404,.403031,40,16,2)

 ;;=4,21^30^4,10

 ;;^DIST(.404,.403031,40,16,3)

 ;;=!M

 ;;^DIST(.404,.403031,40,16,3.1)

 ;;=S Y=$G(DDGFPNM0)

 ;;^DIST(.404,.403031,40,16,4)

 ;;=1

 ;;^DIST(.404,.403031,40,16,20)

 ;;=DD^^.4031,7

 ;;^DIST(.404,.403031,40,16,23)

 ;;=S DDGFPNM=X

 ;;^DIST(.404,.403041,0)

 ;;=DDGF PAGE SELECT^.4031

 ;;^DIST(.404,.403041,40,0)

 ;;=^.4044I^1^1

 ;;^DIST(.404,.403041,40,1,0)

 ;;=1^Select PAGE^2

 ;;^DIST(.404,.403041,40,1,2)

 ;;=1,14^30^1,1

 ;;^DIST(.404,.403041,40,1,3)

 ;;=!M

 ;;^DIST(.404,.403041,40,1,3.1)

 ;;=S Y=$P(^DIST(.403,+DDGFFM,40,DDGFPAGE,0),U)

 ;;^DIST(.404,.403041,40,1,12)

 ;;=S DDACT="EX"

 ;;^DIST(.404,.403041,40,1,20)

 ;;=P^^DIST(.403,+DDGFFM,40,:QEAMZF

 ;;^DIST(.404,.403041,40,1,23)

 ;;=S DDGFPAGE=X

 ;;^DIST(.404,.403051,0)

 ;;=DDGF FORM EDIT^.403

 ;;^DIST(.404,.403051,40,0)

 ;;=^.4044I^11^11

 ;;^DIST(.404,.403051,40,1,0)

 ;;=1^ Form Properties ^1

 ;;^DIST(.404,.403051,40,1,2)

 ;;=^^1,29

 ;;^DIST(.404,.403051,40,2,0)

 ;;=2^NAME^3

 ;;^DIST(.404,.403051,40,2,1)

 ;;=.01

 ;;^DIST(.404,.403051,40,2,2)

 ;;=3,20^30^3,14

 ;;^DIST(.404,.403051,40,2,4)

 ;;=1

 ;;^DIST(.404,.403051,40,3,0)

 ;;=4^PRE ACTION^3

 ;;^DIST(.404,.403051,40,3,1)

 ;;=11

 ;;^DIST(.404,.403051,40,3,2)

 ;;=6,20^54^6,8

 ;;^DIST(.404,.403051,40,4,0)

 ;;=5^POST ACTION^3

 ;;^DIST(.404,.403051,40,4,1)

 ;;=12

 ;;^DIST(.404,.403051,40,4,2)

 ;;=7,20^54^7,7

 ;;^DIST(.404,.403051,40,5,0)

 ;;=8^DESCRIPTION^3

 ;;^DIST(.404,.403051,40,5,1)

 ;;=15

 ;;^DIST(.404,.403051,40,5,2)

 ;;=11,20^1^11,7

 ;;^DIST(.404,.403051,40,6,0)

 ;;=6^DATA VALIDATION^3

 ;;^DIST(.404,.403051,40,6,1)

 ;;=20

 ;;^DIST(.404,.403051,40,6,2)

 ;;=8,20^54^8,3

 ;;^DIST(.404,.403051,40,7,0)

 ;;=9^RECORD SELECTION PAGE^3

 ;;^DIST(.404,.403051,40,7,1)

 ;;=21

 ;;^DIST(.404,.403051,40,7,2)

 ;;=11,69^5^11,46

 ;;^DIST(.404,.403051,40,8,0)

 ;;=7^POST SAVE^3

 ;;^DIST(.404,.403051,40,8,1)

 ;;=14

 ;;^DIST(.404,.403051,40,8,2)

 ;;=9,20^54^9,9

 ;;^DIST(.404,.403051,40,9,0)

 ;;=3^TITLE^3

 ;;^DIST(.404,.403051,40,9,1)

 ;;=6

DINIT0FG  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:43 AM  3 Jun 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 ^DINIT0FH

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

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

               SET @X=Y

 +5        QUIT

ENTRY     ;

 +1       ;;^DIST(.404,.403013,40,3,0)

 +2       ;;=3^Parameters for Repeating Blocks^1

 +3       ;;^DIST(.404,.403013,40,3,2)

 +4       ;;=^^5,3

 +5       ;;^DIST(.404,.403013,40,4,0)

 +6       ;;=4^REPLICATION^3

 +7       ;;^DIST(.404,.403013,40,4,1)

 +8       ;;=5

 +9       ;;^DIST(.404,.403013,40,4,2)

 +10      ;;=7,24^3^7,11

 +11      ;;^DIST(.404,.403013,40,4,13)

 +12      ;;=Q:DDSOLD>1&(X>1)  N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION","ASK 'OK'" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ)

 +13      ;;^DIST(.404,.403013,40,5,0)

 +14      ;;=5^INDEX^3

 +15      ;;^DIST(.404,.403013,40,5,1)

 +16      ;;=6

 +17      ;;^DIST(.404,.403013,40,5,2)

 +18      ;;=8,24^30^8,17

 +19      ;;^DIST(.404,.403013,40,6,0)

 +20      ;;=6^INITIAL POSITION^3

 +21      ;;^DIST(.404,.403013,40,6,1)

 +22      ;;=7

 +23      ;;^DIST(.404,.403013,40,6,2)

 +24      ;;=9,24^5^9,6

 +25      ;;^DIST(.404,.403013,40,7,0)

 +26      ;;=7^DISALLOW LAYGO^3

 +27      ;;^DIST(.404,.403013,40,7,1)

 +28      ;;=8

 +29      ;;^DIST(.404,.403013,40,7,2)

 +30      ;;=10,24^3^10,8

 +31      ;;^DIST(.404,.403013,40,8,0)

 +32      ;;=8^FIELD FOR SELECTION^3

 +33      ;;^DIST(.404,.403013,40,8,1)

 +34      ;;=9

 +35      ;;^DIST(.404,.403013,40,8,2)

 +36      ;;=11,24^30^11,3

 +37      ;;^DIST(.404,.403013,40,9,0)

 +38      ;;=9^ASK 'OK'^3

 +39      ;;^DIST(.404,.403013,40,9,1)

 +40      ;;=10

 +41      ;;^DIST(.404,.403013,40,9,2)

 +42      ;;=12,24^3^12,14

 +43      ;;^DIST(.404,.403021,0)

 +44      ;;=DDGF PAGE ADD^.4031

 +45      ;;^DIST(.404,.403021,40,0)

 +46      ;;=^.4044I^1^1

 +47      ;;^DIST(.404,.403021,40,1,0)

 +48      ;;=1^NEW PAGE NUMBER^2

 +49      ;;^DIST(.404,.403021,40,1,2)

 +50      ;;=3,20^5^3,3

 +51      ;;^DIST(.404,.403021,40,1,12)

 +52      ;;=S DDACT="EX"

 +53      ;;^DIST(.404,.403021,40,1,20)

 +54      ;;=DD^^.4031,.01

 +55      ;;^DIST(.404,.403021,40,1,23)

 +56      ;;=S DDGFPNUM=X

 +57      ;;^DIST(.404,.403022,0)

 +58      ;;=DDGF PAGE ADD ARE YOU SURE^.4031

 +59      ;;^DIST(.404,.403022,40,0)

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

 +61      ;;^DIST(.404,.403022,40,1,0)

 +62      ;;=1^!M^1

 +63      ;;^DIST(.404,.403022,40,1,.1)

 +64      ;;=S Y="Are you adding Page "_DDGFPNUM

 +65      ;;^DIST(.404,.403022,40,1,2)

 +66      ;;=^^3,3

 +67      ;;^DIST(.404,.403022,40,2,0)

 +68      ;;=2^as a new page on this form?^2

 +69      ;;^DIST(.404,.403022,40,2,2)

 +70      ;;=4,31^3^4,3^1

 +71      ;;^DIST(.404,.403022,40,2,12)

 +72      ;;=S DDACT="EX"

 +73      ;;^DIST(.404,.403022,40,2,20)

 +74      ;;=Y

 +75      ;;^DIST(.404,.403022,40,2,23)

 +76      ;;=S DDGFANS=X

 +77      ;;^DIST(.404,.403031,0)

 +78      ;;=DDGF PAGE EDIT^.4031

 +79      ;;^DIST(.404,.403031,40,0)

 +80      ;;=^.4044I^16^13

 +81      ;;^DIST(.404,.403031,40,1,0)

 +82      ;;=1^ Page Properties ^1

 +83      ;;^DIST(.404,.403031,40,1,2)

 +84      ;;=^^1,27

 +85      ;;^DIST(.404,.403031,40,2,0)

 +86      ;;=2^PAGE NUMBER^3

 +87      ;;^DIST(.404,.403031,40,2,1)

 +88      ;;=.01

 +89      ;;^DIST(.404,.403031,40,2,2)

 +90      ;;=3,21^5^3,8

 +91      ;;^DIST(.404,.403031,40,4,0)

 +92      ;;=4^HEADER BLOCK^3

 +93      ;;^DIST(.404,.403031,40,4,1)

 +94      ;;=1

 +95      ;;^DIST(.404,.403031,40,4,2)

 +96      ;;=5,21^30^5,7

 +97      ;;^DIST(.404,.403031,40,5,0)

 +98      ;;=8^NEXT PAGE^3

 +99      ;;^DIST(.404,.403031,40,5,1)

 +100     ;;=3

 +101     ;;^DIST(.404,.403031,40,5,2)

 +102     ;;=9,21^5^9,10

 +103     ;;^DIST(.404,.403031,40,6,0)

 +104     ;;=9^PREVIOUS PAGE^3

 +105     ;;^DIST(.404,.403031,40,6,1)

 +106     ;;=4

 +107     ;;^DIST(.404,.403031,40,6,2)

 +108     ;;=10,21^5^10,6

 +109     ;;^DIST(.404,.403031,40,7,0)

 +110     ;;=12^PRE ACTION^3

 +111     ;;^DIST(.404,.403031,40,7,1)

 +112     ;;=11

 +113     ;;^DIST(.404,.403031,40,7,2)

 +114     ;;=14,21^53^14,9

 +115     ;;^DIST(.404,.403031,40,8,0)

 +116     ;;=13^POST ACTION^3

 +117     ;;^DIST(.404,.403031,40,8,1)

 +118     ;;=12

 +119     ;;^DIST(.404,.403031,40,8,2)

 +120     ;;=15,21^53^15,8

 +121     ;;^DIST(.404,.403031,40,9,0)

 +122     ;;=11^DESCRIPTION (WP)^3

 +123     ;;^DIST(.404,.403031,40,9,1)

 +124     ;;=15

 +125     ;;^DIST(.404,.403031,40,9,2)

 +126     ;;=13,21^1^13,3

 +127     ;;^DIST(.404,.403031,40,12,0)

 +128     ;;=10^PARENT FIELD^3

 +129     ;;^DIST(.404,.403031,40,12,1)

 +130     ;;=8

 +131     ;;^DIST(.404,.403031,40,12,2)

 +132     ;;=11,21^53^11,7

 +133     ;;^DIST(.404,.403031,40,13,0)

 +134     ;;=6^IS THIS A POP UP PAGE?^2

 +135     ;;^DIST(.404,.403031,40,13,2)

 +136     ;;=7,67^3^7,44^1

 +137     ;;^DIST(.404,.403031,40,13,3)

 +138     ;;=!M

 +139     ;;^DIST(.404,.403031,40,13,3.1)

 +140     ;;=S:$G(DDGFLRC)]"" Y=1

 +141     ;;^DIST(.404,.403031,40,13,13)

 +142     ;;=N LRC,PP,NP S LRC="LOWER RIGHT COORDINATE",PP="PREVIOUS PAGE",NP="NEXT PAGE" D:X PUT^DDSVALF(LRC,"","","15,75"):$$GET^DDSVALF(LRC)="" D:'X PUT^DDSVALF(LRC) N PG F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X)) D:X PUT^DDSVAL(DIE,.DA,PG)

 +143     ;;^DIST(.404,.403031,40,13,20)

 +144     ;;=DD^^.4031,5

 +145     ;;^DIST(.404,.403031,40,14,0)

 +146     ;;=5^PAGE COORDINATE^2

 +147     ;;^DIST(.404,.403031,40,14,2)

 +148     ;;=7,21^7^7,4

 +149     ;;^DIST(.404,.403031,40,14,3)

 +150     ;;=!M

 +151     ;;^DIST(.404,.403031,40,14,3.1)

 +152     ;;=S Y=$G(DDGFTLC0)

 +153     ;;^DIST(.404,.403031,40,14,4)

 +154     ;;=1

 +155     ;;^DIST(.404,.403031,40,14,20)

 +156     ;;=DD^^.4031,2

 +157     ;;^DIST(.404,.403031,40,14,23)

 +158     ;;=S DDGFTLC=X

 +159     ;;^DIST(.404,.403031,40,15,0)

 +160     ;;=7^LOWER RIGHT COORDINATE^2

 +161     ;;^DIST(.404,.403031,40,15,2)

 +162     ;;=8,67^7^8,43

 +163     ;;^DIST(.404,.403031,40,15,3)

 +164     ;;=!M

 +165     ;;^DIST(.404,.403031,40,15,3.1)

 +166     ;;=S Y=$G(DDGFLRC0)

 +167     ;;^DIST(.404,.403031,40,15,13)

 +168     ;;=I DDSOLD=""!(X="") D PUT^DDSVALF("IS THIS A POP UP PAGE?","","",$S(X="":"",1:1),"I") N PG,NP,PP S NP="NEXT PAGE",PP="PREVIOUS PAGE" F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X]"")) D:X]"" PUT^DDSVAL(DIE,.DA,PG)

 +169     ;;^DIST(.404,.403031,40,15,20)

 +170     ;;=DD^^.4031,6

 +171     ;;^DIST(.404,.403031,40,15,23)

 +172     ;;=S DDGFLRC=X

 +173     ;;^DIST(.404,.403031,40,16,0)

 +174     ;;=3^PAGE NAME^2

 +175     ;;^DIST(.404,.403031,40,16,2)

 +176     ;;=4,21^30^4,10

 +177     ;;^DIST(.404,.403031,40,16,3)

 +178     ;;=!M

 +179     ;;^DIST(.404,.403031,40,16,3.1)

 +180     ;;=S Y=$G(DDGFPNM0)

 +181     ;;^DIST(.404,.403031,40,16,4)

 +182     ;;=1

 +183     ;;^DIST(.404,.403031,40,16,20)

 +184     ;;=DD^^.4031,7

 +185     ;;^DIST(.404,.403031,40,16,23)

 +186     ;;=S DDGFPNM=X

 +187     ;;^DIST(.404,.403041,0)

 +188     ;;=DDGF PAGE SELECT^.4031

 +189     ;;^DIST(.404,.403041,40,0)

 +190     ;;=^.4044I^1^1

 +191     ;;^DIST(.404,.403041,40,1,0)

 +192     ;;=1^Select PAGE^2

 +193     ;;^DIST(.404,.403041,40,1,2)

 +194     ;;=1,14^30^1,1

 +195     ;;^DIST(.404,.403041,40,1,3)

 +196     ;;=!M

 +197     ;;^DIST(.404,.403041,40,1,3.1)

 +198     ;;=S Y=$P(^DIST(.403,+DDGFFM,40,DDGFPAGE,0),U)

 +199     ;;^DIST(.404,.403041,40,1,12)

 +200     ;;=S DDACT="EX"

 +201     ;;^DIST(.404,.403041,40,1,20)

 +202     ;;=P^^DIST(.403,+DDGFFM,40,:QEAMZF

 +203     ;;^DIST(.404,.403041,40,1,23)

 +204     ;;=S DDGFPAGE=X

 +205     ;;^DIST(.404,.403051,0)

 +206     ;;=DDGF FORM EDIT^.403

 +207     ;;^DIST(.404,.403051,40,0)

 +208     ;;=^.4044I^11^11

 +209     ;;^DIST(.404,.403051,40,1,0)

 +210     ;;=1^ Form Properties ^1

 +211     ;;^DIST(.404,.403051,40,1,2)

 +212     ;;=^^1,29

 +213     ;;^DIST(.404,.403051,40,2,0)

 +214     ;;=2^NAME^3

 +215     ;;^DIST(.404,.403051,40,2,1)

 +216     ;;=.01

 +217     ;;^DIST(.404,.403051,40,2,2)

 +218     ;;=3,20^30^3,14

 +219     ;;^DIST(.404,.403051,40,2,4)

 +220     ;;=1

 +221     ;;^DIST(.404,.403051,40,3,0)

 +222     ;;=4^PRE ACTION^3

 +223     ;;^DIST(.404,.403051,40,3,1)

 +224     ;;=11

 +225     ;;^DIST(.404,.403051,40,3,2)

 +226     ;;=6,20^54^6,8

 +227     ;;^DIST(.404,.403051,40,4,0)

 +228     ;;=5^POST ACTION^3

 +229     ;;^DIST(.404,.403051,40,4,1)

 +230     ;;=12

 +231     ;;^DIST(.404,.403051,40,4,2)

 +232     ;;=7,20^54^7,7

 +233     ;;^DIST(.404,.403051,40,5,0)

 +234     ;;=8^DESCRIPTION^3

 +235     ;;^DIST(.404,.403051,40,5,1)

 +236     ;;=15

 +237     ;;^DIST(.404,.403051,40,5,2)

 +238     ;;=11,20^1^11,7

 +239     ;;^DIST(.404,.403051,40,6,0)

 +240     ;;=6^DATA VALIDATION^3

 +241     ;;^DIST(.404,.403051,40,6,1)

 +242     ;;=20

 +243     ;;^DIST(.404,.403051,40,6,2)

 +244     ;;=8,20^54^8,3

 +245     ;;^DIST(.404,.403051,40,7,0)

 +246     ;;=9^RECORD SELECTION PAGE^3

 +247     ;;^DIST(.404,.403051,40,7,1)

 +248     ;;=21

 +249     ;;^DIST(.404,.403051,40,7,2)

 +250     ;;=11,69^5^11,46

 +251     ;;^DIST(.404,.403051,40,8,0)

 +252     ;;=7^POST SAVE^3

 +253     ;;^DIST(.404,.403051,40,8,1)

 +254     ;;=14

 +255     ;;^DIST(.404,.403051,40,8,2)

 +256     ;;=9,20^54^9,9

 +257     ;;^DIST(.404,.403051,40,9,0)

 +258     ;;=3^TITLE^3

 +259     ;;^DIST(.404,.403051,40,9,1)

 +260     ;;=6

DINIT0FG.m