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
Q
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 Oct 16, 2024@18:50:57 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
