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