Routine: DINIT0FG

DINIT0FG ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;1NOV2004

 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 ;;Per VA Directive 6402, this routine should not be modified.

 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 ;;Licensed under the terms of the Apache License, Version 2.0.

 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)

 ;;=6,24^3^6,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'","COMPUTED MULTIPLE","COMPUTED MUL PTR" 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)

 ;;=7,24^30^7,17

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

 ;;=Q:X=""  N DDGFZ F DDGFZ="COMPUTED MULTIPLE","COMPUTED MUL PTR" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ) ;IF THERE'S AN INDEX, COMPUTED MULTIPLE NOT ENTERABLE

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

 ;;=6^INITIAL POSITION^3

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

 ;;=7

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

 ;;=8,24^15^8,6

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

 ;;=7^DISALLOW LAYGO^3

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

 ;;=8

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

 ;;=9,24^3^9,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)

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

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

 ;;=9^ASK 'OK'^3

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

 ;;=10

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

 ;;=11,24^3^11,14

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

 ;;=98^COMPUTED MULTIPLE^3

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

 ;;=98

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

 ;;=12,24^30^12,5

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

 ;;=D PUT^DDSVAL(DIE,.DA,"INDEX")

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

 ;;=98.1^COMPUTED MUL PTR^3

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

 ;;=98.1

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

 ;;=13,24^18^13,6

 ;;^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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FG   8037     printed  Mar 13, 2025@21:55:15                                                                                                                                                                                                    Page 2

DINIT0FG  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;1NOV2004

 +1       ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 +4       ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 +5       ;;Licensed under the terms of the Apache License, Version 2.0.

 +6       ;

 +7        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

 +8        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      ;;=6,24^3^6,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'","COMPUTED MULTIPLE","COMPUTED MUL PTR" 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      ;;=7,24^30^7,17

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

 +20      ;;=Q:X=""  N DDGFZ F DDGFZ="COMPUTED MULTIPLE","COMPUTED MUL PTR" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ) ;IF THERE'S AN INDEX, COMPUTED MULTIPLE NOT ENTERABLE

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

 +22      ;;=6^INITIAL POSITION^3

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

 +24      ;;=7

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

 +26      ;;=8,24^15^8,6

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

 +28      ;;=7^DISALLOW LAYGO^3

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

 +30      ;;=8

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

 +32      ;;=9,24^3^9,8

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

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

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

 +36      ;;=9

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

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

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

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

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

 +42      ;;=10

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

 +44      ;;=11,24^3^11,14

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

 +46      ;;=98^COMPUTED MULTIPLE^3

 +47      ;;^DIST(.404,.403013,40,98,1)

 +48      ;;=98

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

 +50      ;;=12,24^30^12,5

 +51      ;;^DIST(.404,.403013,40,98,13)

 +52      ;;=D PUT^DDSVAL(DIE,.DA,"INDEX")

 +53      ;;^DIST(.404,.403013,40,98.1,0)

 +54      ;;=98.1^COMPUTED MUL PTR^3

 +55      ;;^DIST(.404,.403013,40,98.1,1)

 +56      ;;=98.1

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

 +58      ;;=13,24^18^13,6

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

 +60      ;;=DDGF PAGE ADD^.4031

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

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

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

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

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

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

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

 +68      ;;=S DDACT="EX"

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

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

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

 +72      ;;=S DDGFPNUM=X

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

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

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

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

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

 +78      ;;=1^!M^1

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

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

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

 +82      ;;=^^3,3

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

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

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

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

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

 +88      ;;=S DDACT="EX"

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

 +90      ;;=Y

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

 +92      ;;=S DDGFANS=X

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

 +94      ;;=DDGF PAGE EDIT^.4031

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

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

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

 +98      ;;=1^ Page Properties ^1

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

 +100     ;;=^^1,27

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

 +102     ;;=2^PAGE NUMBER^3

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

 +104     ;;=.01

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

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

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

 +108     ;;=4^HEADER BLOCK^3

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

 +110     ;;=1

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

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

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

 +114     ;;=8^NEXT PAGE^3

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

 +116     ;;=3

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

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

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

 +120     ;;=9^PREVIOUS PAGE^3

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

 +122     ;;=4

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

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

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

 +126     ;;=12^PRE ACTION^3

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

 +128     ;;=11

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

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

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

 +132     ;;=13^POST ACTION^3

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

 +134     ;;=12

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

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

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

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

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

 +140     ;;=15

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

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

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

 +144     ;;=10^PARENT FIELD^3

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

 +146     ;;=8

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

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

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

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

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

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

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

 +154     ;;=!M

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

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

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

 +158     ;;=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)

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

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

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

 +162     ;;=5^PAGE COORDINATE^2

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

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

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

 +166     ;;=!M

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

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

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

 +170     ;;=1

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

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

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

 +174     ;;=S DDGFTLC=X

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

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

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

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

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

 +180     ;;=!M

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

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

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

 +184     ;;=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)

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

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

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

 +188     ;;=S DDGFLRC=X

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

 +190     ;;=3^PAGE NAME^2

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

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

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

 +194     ;;=!M

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

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

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

 +198     ;;=1

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

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

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

 +202     ;;=S DDGFPNM=X

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

 +204     ;;=DDGF PAGE SELECT^.4031

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

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

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

 +208     ;;=1^Select PAGE^2

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

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

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

 +212     ;;=!M

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

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

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

 +216     ;;=S DDACT="EX"

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

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

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

 +220     ;;=S DDGFPAGE=X

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

 +222     ;;=DDGF FORM EDIT^.403

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

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

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

 +226     ;;=1^ Form Properties ^1

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

 +228     ;;=^^1,29

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

 +230     ;;=2^NAME^3

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

 +232     ;;=.01

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

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

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

 +236     ;;=1

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

 +238     ;;=4^PRE ACTION^3

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

 +240     ;;=11

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

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

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

 +244     ;;=5^POST ACTION^3

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

 +246     ;;=12

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

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

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

 +250     ;;=8^DESCRIPTION^3

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

 +252     ;;=15

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

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

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

 +256     ;;=6^DATA VALIDATION^3

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

 +258     ;;=20

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

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

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

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

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

 +264     ;;=21

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

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

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

 +268     ;;=7^POST SAVE^3

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

 +270     ;;=14

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

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

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

 +274     ;;=3^TITLE^3

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

 +276     ;;=6

DINIT0FG.m