DINIT0FE ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;06:21 PM 2 Apr 2001 [ 04/02/2003 8:25 AM ]
;;22.0;VA FileMan;**1001**;APR 1, 2003
;;22.0;VA FileMan;**62,82**;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="" ^DINIT0FF S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.400011,40,3,2)
;;=5,28^11^5,12
;;^DIST(.404,.400011,40,3,4)
;;=^^^1
;;^DIST(.404,.400011,40,4,0)
;;=6^READ ACCESS^3
;;^DIST(.404,.400011,40,4,1)
;;=3
;;^DIST(.404,.400011,40,4,2)
;;=6,28^13^6,15
;;^DIST(.404,.400011,40,5,0)
;;=7^WRITE ACCESS^3
;;^DIST(.404,.400011,40,5,1)
;;=6
;;^DIST(.404,.400011,40,5,2)
;;=7,28^13^7,14
;;^DIST(.404,.400011,40,6,0)
;;=8^USER #^3
;;^DIST(.404,.400011,40,6,1)
;;=5
;;^DIST(.404,.400011,40,6,2)
;;=8,28^9^8,20
;;^DIST(.404,.400011,40,7,0)
;;=9^DESCRIPTION...^3
;;^DIST(.404,.400011,40,7,1)
;;=10
;;^DIST(.404,.400011,40,7,2)
;;=10,28^1^10,13^1
;;^DIST(.404,.400011,40,8,0)
;;=12^(Sort Fields on Next Page...)^1
;;^DIST(.404,.400011,40,8,2)
;;=^^16,20
;;^DIST(.404,.400011,40,9,0)
;;=13^PRINT TEMPLATE^3
;;^DIST(.404,.400011,40,9,1)
;;=491620
;;^DIST(.404,.400011,40,9,2)
;;=12,28^35^12,12
;;^DIST(.404,.400012,0)
;;=DIBTED2^.401
;;^DIST(.404,.400012,11)
;;=D EDIT^DIBTED(DA)
;;^DIST(.404,.400012,40,0)
;;=^.4044I^1^1
;;^DIST(.404,.400012,40,1,0)
;;=1^ ^1
;;^DIST(.404,.400012,40,1,2)
;;=^^1,1
;;^DIST(.404,.401011,0)
;;=DIETED^.402
;;^DIST(.404,.401011,40,0)
;;=^.4044I^9^9
;;^DIST(.404,.401011,40,1,0)
;;=1^TEMPLATE NAME^3
;;^DIST(.404,.401011,40,1,1)
;;=.01
;;^DIST(.404,.401011,40,1,2)
;;=1,16^30^1,1
;;^DIST(.404,.401011,40,2,0)
;;=3^DATE LAST MODIFIED^3
;;^DIST(.404,.401011,40,2,1)
;;=2
;;^DIST(.404,.401011,40,2,2)
;;=4,28^17^4,8
;;^DIST(.404,.401011,40,2,4)
;;=^^^1
;;^DIST(.404,.401011,40,3,0)
;;=4^DATE LAST USED^3
;;^DIST(.404,.401011,40,3,1)
;;=7
;;^DIST(.404,.401011,40,3,2)
;;=5,28^11^5,12
;;^DIST(.404,.401011,40,3,4)
;;=^^^1
;;^DIST(.404,.401011,40,4,0)
;;=5^^4
;;^DIST(.404,.401011,40,4,2)
;;=2,20^44
;;^DIST(.404,.401011,40,4,30)
;;=S Y=$G(^DIE(DA,"ROU")),S=$S(Y]"":"(Compiled as '"_Y_"' routine)",1:"(Not Compiled)")
;;^DIST(.404,.401011,40,5,0)
;;=6^READ ACCESS^3
;;^DIST(.404,.401011,40,5,1)
;;=3
;;^DIST(.404,.401011,40,5,2)
;;=6,28^13^6,15
;;^DIST(.404,.401011,40,6,0)
;;=7^WRITE ACCESS^3
;;^DIST(.404,.401011,40,6,1)
;;=6
;;^DIST(.404,.401011,40,6,2)
;;=7,28^13^7,14
;;^DIST(.404,.401011,40,7,0)
;;=8^USER #^3
;;^DIST(.404,.401011,40,7,1)
;;=5
;;^DIST(.404,.401011,40,7,2)
;;=8,28^9^8,20
;;^DIST(.404,.401011,40,8,0)
;;=9^DESCRIPTION...^3
;;^DIST(.404,.401011,40,8,1)
;;=10
;;^DIST(.404,.401011,40,8,2)
;;=10,28^1^10,13^1
;;^DIST(.404,.401011,40,9,0)
;;=12^(Edit Fields on Next Page...)^1^^EDIT FIELD
;;^DIST(.404,.401011,40,9,2)
;;=^^16,20
;;^DIST(.404,.401012,0)
;;=DIETED2^.402
;;^DIST(.404,.401012,40,0)
;;=^.4044I^1^1
;;^DIST(.404,.401012,40,1,0)
;;=1^ ^1
;;^DIST(.404,.401012,40,1,2)
;;=^^1,1
;;^DIST(.404,.402011,0)
;;=DIEDIT^1
;;^DIST(.404,.402011,11)
;;=D PRE^DIU20
;;^DIST(.404,.402011,40,0)
;;=^.4044I^18^17
;;^DIST(.404,.402011,40,1,0)
;;=1^DESCRIPTION...^3
;;^DIST(.404,.402011,40,1,1)
;;=4
;;^DIST(.404,.402011,40,1,2)
;;=3,36^1^3,21^1
;;^DIST(.404,.402011,40,2,0)
;;=2^DATA DICTIONARY ACCESS^2^^DATA DICTIONARY ACCESS
;;^DIST(.404,.402011,40,2,2)
;;=6,36^13^6,12
;;^DIST(.404,.402011,40,2,3)
;;=!M
;;^DIST(.404,.402011,40,2,3.1)
;;=S Y=$G(^DIC(DA,0,"DD"))
;;^DIST(.404,.402011,40,2,14)
;;=D ACCVAL^DIU20(X)
;;^DIST(.404,.402011,40,2,20)
;;=F
;;^DIST(.404,.402011,40,3,0)
;;=3^READ ACCESS^2^^READ ACCESS
;;^DIST(.404,.402011,40,3,2)
;;=7,36^13^7,23
;;^DIST(.404,.402011,40,3,3)
;;=!M
;;^DIST(.404,.402011,40,3,3.1)
;;=S Y=$G(^DIC(DA,0,"RD"))
;;^DIST(.404,.402011,40,3,14)
;;=D ACCVAL^DIU20(X)
;;^DIST(.404,.402011,40,3,20)
;;=F
;;^DIST(.404,.402011,40,4,0)
;;=4^WRITE ACCESS^2^^WRITE ACCESS
;;^DIST(.404,.402011,40,4,2)
;;=8,36^13^8,22
;;^DIST(.404,.402011,40,4,3)
;;=!M
;;^DIST(.404,.402011,40,4,3.1)
;;=S Y=$G(^DIC(DA,0,"WR"))
;;^DIST(.404,.402011,40,4,14)
;;=D ACCVAL^DIU20(X)
;;^DIST(.404,.402011,40,4,20)
;;=F
;;^DIST(.404,.402011,40,5,0)
;;=5^DELETE ACCESS^2^^DELETE ACCESS
;;^DIST(.404,.402011,40,5,2)
;;=9,36^13^9,21
;;^DIST(.404,.402011,40,5,3)
;;=!M
;;^DIST(.404,.402011,40,5,3.1)
;;=S Y=$G(^DIC(DA,0,"DEL"))
;;^DIST(.404,.402011,40,5,14)
;;=D ACCVAL^DIU20(X)
;;^DIST(.404,.402011,40,5,20)
;;=F
;;^DIST(.404,.402011,40,6,0)
;;=6^LAYGO ACCESS^2^^LAYGO ACCESS
;;^DIST(.404,.402011,40,6,2)
;;=10,36^13^10,22
;;^DIST(.404,.402011,40,6,3)
;;=!M
;;^DIST(.404,.402011,40,6,3.1)
;;=S Y=$G(^DIC(DA,0,"LAYGO"))
;;^DIST(.404,.402011,40,6,14)
;;=D ACCVAL^DIU20(X)
;;^DIST(.404,.402011,40,6,20)
;;=F
;;^DIST(.404,.402011,40,7,0)
;;=7^AUDIT ACCESS^2^^AUDIT ACCESS
;;^DIST(.404,.402011,40,7,2)
;;=11,36^13^11,22
;;^DIST(.404,.402011,40,7,3)
;;=!M
;;^DIST(.404,.402011,40,7,3.1)
;;=S Y=$G(^DIC(DA,0,"AUDIT"))
;;^DIST(.404,.402011,40,7,14)
;;=D ACCVAL^DIU20(X)
;;^DIST(.404,.402011,40,7,20)
;;=F
;;^DIST(.404,.402011,40,8,0)
;;=8^DD AUDIT^2^^DD AUDIT
;;^DIST(.404,.402011,40,8,2)
;;=12,36^3^12,26
;;^DIST(.404,.402011,40,8,3)
;;=!M
;;^DIST(.404,.402011,40,8,3.1)
;;=I $D(^DD(DA,0,"DDA")) S Y=$P("NO^YES",U,^("DDA")="Y"+1)
;;^DIST(.404,.402011,40,8,20)
;;=Y
;;^DIST(.404,.402011,40,8,21,0)
;;=^^1^1^2981023
;;^DIST(.404,.402011,40,8,21,1,0)
;;=Enter YES if you want to audit the Data Dictionary changes
;;^DIST(.404,.402011,40,9,0)
;;=9^ASK 'OK' WHEN LOOKING UP AN ENTRY^2^^ASK OK
;;^DIST(.404,.402011,40,9,2)
;;=13,36^3^13,1
;;^DIST(.404,.402011,40,9,3)
;;=!M
;;^DIST(.404,.402011,40,9,3.1)
;;=S Y=$G(^DIC(DA,0,"GL")) I Y["(" S Y=$G(@(Y_"0)")),Y=$P("YES^NO",U,$P(Y,U,2)'["O"+1)
;;^DIST(.404,.402011,40,9,20)
;;=Y
;;^DIST(.404,.402011,40,9,21,0)
;;=^^3^3^2981023
;;^DIST(.404,.402011,40,9,21,1,0)
;;=Answer YES to cause a lookup into this file to verify the
;;^DIST(.404,.402011,40,9,21,2,0)
;;=selection by prompting with
;;^DIST(.404,.402011,40,9,21,3,0)
;;= '...OK? YES// '
;;^DIST(.404,.402011,40,9.5,0)
;;=9.5^FILE SCREEN^2^^FILE SCREEN
;;^DIST(.404,.402011,40,9.5,2)
;;=14,26^40^14,13
;;^DIST(.404,.402011,40,9.5,3)
;;=!M
;;^DIST(.404,.402011,40,9.5,3.1)
;;=S Y=$G(^DD(DA,0,"SCR"))
;;^DIST(.404,.402011,40,9.5,14)
;;=D ^DIM I '$D(X) S DDSERROR=1
;;^DIST(.404,.402011,40,9.5,20)
;;=F^UF^3:200
;;^DIST(.404,.402011,40,9.5,21,0)
;;=^^3^3^3010402
;;^DIST(.404,.402011,40,9.5,21,1,0)
;;=A line of MUMPS code can be entered here. It should set the $T switch TRUE
;;^DIST(.404,.402011,40,9.5,21,2,0)
;;=or FALSE. At the time of execution, 'Y' is the number of a File entry
;;^DIST(.404,.402011,40,9.5,21,3,0)
;;=which we want to FILTER for lookup. Thus this code is a 'permanent DIC("S")' for the File. MISUSE OF THIS CAN DISENABLE THE FILE!
;;^DIST(.404,.402011,40,10,0)
;;=10^POST-SELECTION ACTION^2^^POST-SELECTION ACTION
;;^DIST(.404,.402011,40,10,2)
;;=15,26^52^15,3
;;^DIST(.404,.402011,40,10,3)
;;=!M
;;^DIST(.404,.402011,40,10,3.1)
;;=S Y=$G(^DD(DA,0,"ACT"))
;;^DIST(.404,.402011,40,10,14)
;;=D ^DIM I '$D(X) S DDSERROR=1
;;^DIST(.404,.402011,40,10,20)
;;=F^UF^3:250
;;^DIST(.404,.402011,40,10,21,0)
;;=^^3^3^3010402
;;^DIST(.404,.402011,40,10,21,1,0)
;;=If a line of MUMPS code is entered here, it will be executed
;;^DIST(.404,.402011,40,10,21,2,0)
;;=every time after a selection from the File is made.
;;^DIST(.404,.402011,40,10,21,3,0)
;;=At the time of execution, 'Y' is the return value from the "DIC" lookup.
;;^DIST(.404,.402011,40,11,0)
;;=11^LOOK-UP PROGRAM^2^^LOOK-UP PROGRAM
;;^DIST(.404,.402011,40,11,2)
;;=16,26^8^16,9
;;^DIST(.404,.402011,40,11,3)
;;=!M
;;^DIST(.404,.402011,40,11,3.1)
;;=S Y=$G(^DD(DA,0,"DIC"))
;;^DIST(.404,.402011,40,11,14)
;;=I X]"",'$$ROUEXIST^DILIBF(X)!(X?1"DI".E)!(X'?3U.5UN) S DDSERROR=1
;;^DIST(.404,.402011,40,11,20)
;;=F^FO
DINIT0FE ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;06:21 PM 2 Apr 2001 [ 04/02/2003 8:25 AM ]
+1 ;;22.0;VA FileMan;**1001**;APR 1, 2003
+2 ;;22.0;VA FileMan;**62,82**;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 ^DINIT0FF
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+5 QUIT
ENTRY ;
+1 ;;^DIST(.404,.400011,40,3,2)
+2 ;;=5,28^11^5,12
+3 ;;^DIST(.404,.400011,40,3,4)
+4 ;;=^^^1
+5 ;;^DIST(.404,.400011,40,4,0)
+6 ;;=6^READ ACCESS^3
+7 ;;^DIST(.404,.400011,40,4,1)
+8 ;;=3
+9 ;;^DIST(.404,.400011,40,4,2)
+10 ;;=6,28^13^6,15
+11 ;;^DIST(.404,.400011,40,5,0)
+12 ;;=7^WRITE ACCESS^3
+13 ;;^DIST(.404,.400011,40,5,1)
+14 ;;=6
+15 ;;^DIST(.404,.400011,40,5,2)
+16 ;;=7,28^13^7,14
+17 ;;^DIST(.404,.400011,40,6,0)
+18 ;;=8^USER #^3
+19 ;;^DIST(.404,.400011,40,6,1)
+20 ;;=5
+21 ;;^DIST(.404,.400011,40,6,2)
+22 ;;=8,28^9^8,20
+23 ;;^DIST(.404,.400011,40,7,0)
+24 ;;=9^DESCRIPTION...^3
+25 ;;^DIST(.404,.400011,40,7,1)
+26 ;;=10
+27 ;;^DIST(.404,.400011,40,7,2)
+28 ;;=10,28^1^10,13^1
+29 ;;^DIST(.404,.400011,40,8,0)
+30 ;;=12^(Sort Fields on Next Page...)^1
+31 ;;^DIST(.404,.400011,40,8,2)
+32 ;;=^^16,20
+33 ;;^DIST(.404,.400011,40,9,0)
+34 ;;=13^PRINT TEMPLATE^3
+35 ;;^DIST(.404,.400011,40,9,1)
+36 ;;=491620
+37 ;;^DIST(.404,.400011,40,9,2)
+38 ;;=12,28^35^12,12
+39 ;;^DIST(.404,.400012,0)
+40 ;;=DIBTED2^.401
+41 ;;^DIST(.404,.400012,11)
+42 ;;=D EDIT^DIBTED(DA)
+43 ;;^DIST(.404,.400012,40,0)
+44 ;;=^.4044I^1^1
+45 ;;^DIST(.404,.400012,40,1,0)
+46 ;;=1^ ^1
+47 ;;^DIST(.404,.400012,40,1,2)
+48 ;;=^^1,1
+49 ;;^DIST(.404,.401011,0)
+50 ;;=DIETED^.402
+51 ;;^DIST(.404,.401011,40,0)
+52 ;;=^.4044I^9^9
+53 ;;^DIST(.404,.401011,40,1,0)
+54 ;;=1^TEMPLATE NAME^3
+55 ;;^DIST(.404,.401011,40,1,1)
+56 ;;=.01
+57 ;;^DIST(.404,.401011,40,1,2)
+58 ;;=1,16^30^1,1
+59 ;;^DIST(.404,.401011,40,2,0)
+60 ;;=3^DATE LAST MODIFIED^3
+61 ;;^DIST(.404,.401011,40,2,1)
+62 ;;=2
+63 ;;^DIST(.404,.401011,40,2,2)
+64 ;;=4,28^17^4,8
+65 ;;^DIST(.404,.401011,40,2,4)
+66 ;;=^^^1
+67 ;;^DIST(.404,.401011,40,3,0)
+68 ;;=4^DATE LAST USED^3
+69 ;;^DIST(.404,.401011,40,3,1)
+70 ;;=7
+71 ;;^DIST(.404,.401011,40,3,2)
+72 ;;=5,28^11^5,12
+73 ;;^DIST(.404,.401011,40,3,4)
+74 ;;=^^^1
+75 ;;^DIST(.404,.401011,40,4,0)
+76 ;;=5^^4
+77 ;;^DIST(.404,.401011,40,4,2)
+78 ;;=2,20^44
+79 ;;^DIST(.404,.401011,40,4,30)
+80 ;;=S Y=$G(^DIE(DA,"ROU")),S=$S(Y]"":"(Compiled as '"_Y_"' routine)",1:"(Not Compiled)")
+81 ;;^DIST(.404,.401011,40,5,0)
+82 ;;=6^READ ACCESS^3
+83 ;;^DIST(.404,.401011,40,5,1)
+84 ;;=3
+85 ;;^DIST(.404,.401011,40,5,2)
+86 ;;=6,28^13^6,15
+87 ;;^DIST(.404,.401011,40,6,0)
+88 ;;=7^WRITE ACCESS^3
+89 ;;^DIST(.404,.401011,40,6,1)
+90 ;;=6
+91 ;;^DIST(.404,.401011,40,6,2)
+92 ;;=7,28^13^7,14
+93 ;;^DIST(.404,.401011,40,7,0)
+94 ;;=8^USER #^3
+95 ;;^DIST(.404,.401011,40,7,1)
+96 ;;=5
+97 ;;^DIST(.404,.401011,40,7,2)
+98 ;;=8,28^9^8,20
+99 ;;^DIST(.404,.401011,40,8,0)
+100 ;;=9^DESCRIPTION...^3
+101 ;;^DIST(.404,.401011,40,8,1)
+102 ;;=10
+103 ;;^DIST(.404,.401011,40,8,2)
+104 ;;=10,28^1^10,13^1
+105 ;;^DIST(.404,.401011,40,9,0)
+106 ;;=12^(Edit Fields on Next Page...)^1^^EDIT FIELD
+107 ;;^DIST(.404,.401011,40,9,2)
+108 ;;=^^16,20
+109 ;;^DIST(.404,.401012,0)
+110 ;;=DIETED2^.402
+111 ;;^DIST(.404,.401012,40,0)
+112 ;;=^.4044I^1^1
+113 ;;^DIST(.404,.401012,40,1,0)
+114 ;;=1^ ^1
+115 ;;^DIST(.404,.401012,40,1,2)
+116 ;;=^^1,1
+117 ;;^DIST(.404,.402011,0)
+118 ;;=DIEDIT^1
+119 ;;^DIST(.404,.402011,11)
+120 ;;=D PRE^DIU20
+121 ;;^DIST(.404,.402011,40,0)
+122 ;;=^.4044I^18^17
+123 ;;^DIST(.404,.402011,40,1,0)
+124 ;;=1^DESCRIPTION...^3
+125 ;;^DIST(.404,.402011,40,1,1)
+126 ;;=4
+127 ;;^DIST(.404,.402011,40,1,2)
+128 ;;=3,36^1^3,21^1
+129 ;;^DIST(.404,.402011,40,2,0)
+130 ;;=2^DATA DICTIONARY ACCESS^2^^DATA DICTIONARY ACCESS
+131 ;;^DIST(.404,.402011,40,2,2)
+132 ;;=6,36^13^6,12
+133 ;;^DIST(.404,.402011,40,2,3)
+134 ;;=!M
+135 ;;^DIST(.404,.402011,40,2,3.1)
+136 ;;=S Y=$G(^DIC(DA,0,"DD"))
+137 ;;^DIST(.404,.402011,40,2,14)
+138 ;;=D ACCVAL^DIU20(X)
+139 ;;^DIST(.404,.402011,40,2,20)
+140 ;;=F
+141 ;;^DIST(.404,.402011,40,3,0)
+142 ;;=3^READ ACCESS^2^^READ ACCESS
+143 ;;^DIST(.404,.402011,40,3,2)
+144 ;;=7,36^13^7,23
+145 ;;^DIST(.404,.402011,40,3,3)
+146 ;;=!M
+147 ;;^DIST(.404,.402011,40,3,3.1)
+148 ;;=S Y=$G(^DIC(DA,0,"RD"))
+149 ;;^DIST(.404,.402011,40,3,14)
+150 ;;=D ACCVAL^DIU20(X)
+151 ;;^DIST(.404,.402011,40,3,20)
+152 ;;=F
+153 ;;^DIST(.404,.402011,40,4,0)
+154 ;;=4^WRITE ACCESS^2^^WRITE ACCESS
+155 ;;^DIST(.404,.402011,40,4,2)
+156 ;;=8,36^13^8,22
+157 ;;^DIST(.404,.402011,40,4,3)
+158 ;;=!M
+159 ;;^DIST(.404,.402011,40,4,3.1)
+160 ;;=S Y=$G(^DIC(DA,0,"WR"))
+161 ;;^DIST(.404,.402011,40,4,14)
+162 ;;=D ACCVAL^DIU20(X)
+163 ;;^DIST(.404,.402011,40,4,20)
+164 ;;=F
+165 ;;^DIST(.404,.402011,40,5,0)
+166 ;;=5^DELETE ACCESS^2^^DELETE ACCESS
+167 ;;^DIST(.404,.402011,40,5,2)
+168 ;;=9,36^13^9,21
+169 ;;^DIST(.404,.402011,40,5,3)
+170 ;;=!M
+171 ;;^DIST(.404,.402011,40,5,3.1)
+172 ;;=S Y=$G(^DIC(DA,0,"DEL"))
+173 ;;^DIST(.404,.402011,40,5,14)
+174 ;;=D ACCVAL^DIU20(X)
+175 ;;^DIST(.404,.402011,40,5,20)
+176 ;;=F
+177 ;;^DIST(.404,.402011,40,6,0)
+178 ;;=6^LAYGO ACCESS^2^^LAYGO ACCESS
+179 ;;^DIST(.404,.402011,40,6,2)
+180 ;;=10,36^13^10,22
+181 ;;^DIST(.404,.402011,40,6,3)
+182 ;;=!M
+183 ;;^DIST(.404,.402011,40,6,3.1)
+184 ;;=S Y=$G(^DIC(DA,0,"LAYGO"))
+185 ;;^DIST(.404,.402011,40,6,14)
+186 ;;=D ACCVAL^DIU20(X)
+187 ;;^DIST(.404,.402011,40,6,20)
+188 ;;=F
+189 ;;^DIST(.404,.402011,40,7,0)
+190 ;;=7^AUDIT ACCESS^2^^AUDIT ACCESS
+191 ;;^DIST(.404,.402011,40,7,2)
+192 ;;=11,36^13^11,22
+193 ;;^DIST(.404,.402011,40,7,3)
+194 ;;=!M
+195 ;;^DIST(.404,.402011,40,7,3.1)
+196 ;;=S Y=$G(^DIC(DA,0,"AUDIT"))
+197 ;;^DIST(.404,.402011,40,7,14)
+198 ;;=D ACCVAL^DIU20(X)
+199 ;;^DIST(.404,.402011,40,7,20)
+200 ;;=F
+201 ;;^DIST(.404,.402011,40,8,0)
+202 ;;=8^DD AUDIT^2^^DD AUDIT
+203 ;;^DIST(.404,.402011,40,8,2)
+204 ;;=12,36^3^12,26
+205 ;;^DIST(.404,.402011,40,8,3)
+206 ;;=!M
+207 ;;^DIST(.404,.402011,40,8,3.1)
+208 ;;=I $D(^DD(DA,0,"DDA")) S Y=$P("NO^YES",U,^("DDA")="Y"+1)
+209 ;;^DIST(.404,.402011,40,8,20)
+210 ;;=Y
+211 ;;^DIST(.404,.402011,40,8,21,0)
+212 ;;=^^1^1^2981023
+213 ;;^DIST(.404,.402011,40,8,21,1,0)
+214 ;;=Enter YES if you want to audit the Data Dictionary changes
+215 ;;^DIST(.404,.402011,40,9,0)
+216 ;;=9^ASK 'OK' WHEN LOOKING UP AN ENTRY^2^^ASK OK
+217 ;;^DIST(.404,.402011,40,9,2)
+218 ;;=13,36^3^13,1
+219 ;;^DIST(.404,.402011,40,9,3)
+220 ;;=!M
+221 ;;^DIST(.404,.402011,40,9,3.1)
+222 ;;=S Y=$G(^DIC(DA,0,"GL")) I Y["(" S Y=$G(@(Y_"0)")),Y=$P("YES^NO",U,$P(Y,U,2)'["O"+1)
+223 ;;^DIST(.404,.402011,40,9,20)
+224 ;;=Y
+225 ;;^DIST(.404,.402011,40,9,21,0)
+226 ;;=^^3^3^2981023
+227 ;;^DIST(.404,.402011,40,9,21,1,0)
+228 ;;=Answer YES to cause a lookup into this file to verify the
+229 ;;^DIST(.404,.402011,40,9,21,2,0)
+230 ;;=selection by prompting with
+231 ;;^DIST(.404,.402011,40,9,21,3,0)
+232 ;;= '...OK? YES// '
+233 ;;^DIST(.404,.402011,40,9.5,0)
+234 ;;=9.5^FILE SCREEN^2^^FILE SCREEN
+235 ;;^DIST(.404,.402011,40,9.5,2)
+236 ;;=14,26^40^14,13
+237 ;;^DIST(.404,.402011,40,9.5,3)
+238 ;;=!M
+239 ;;^DIST(.404,.402011,40,9.5,3.1)
+240 ;;=S Y=$G(^DD(DA,0,"SCR"))
+241 ;;^DIST(.404,.402011,40,9.5,14)
+242 ;;=D ^DIM I '$D(X) S DDSERROR=1
+243 ;;^DIST(.404,.402011,40,9.5,20)
+244 ;;=F^UF^3:200
+245 ;;^DIST(.404,.402011,40,9.5,21,0)
+246 ;;=^^3^3^3010402
+247 ;;^DIST(.404,.402011,40,9.5,21,1,0)
+248 ;;=A line of MUMPS code can be entered here. It should set the $T switch TRUE
+249 ;;^DIST(.404,.402011,40,9.5,21,2,0)
+250 ;;=or FALSE. At the time of execution, 'Y' is the number of a File entry
+251 ;;^DIST(.404,.402011,40,9.5,21,3,0)
+252 ;;=which we want to FILTER for lookup. Thus this code is a 'permanent DIC("S")' for the File. MISUSE OF THIS CAN DISENABLE THE FILE!
+253 ;;^DIST(.404,.402011,40,10,0)
+254 ;;=10^POST-SELECTION ACTION^2^^POST-SELECTION ACTION
+255 ;;^DIST(.404,.402011,40,10,2)
+256 ;;=15,26^52^15,3
+257 ;;^DIST(.404,.402011,40,10,3)
+258 ;;=!M
+259 ;;^DIST(.404,.402011,40,10,3.1)
+260 ;;=S Y=$G(^DD(DA,0,"ACT"))
+261 ;;^DIST(.404,.402011,40,10,14)
+262 ;;=D ^DIM I '$D(X) S DDSERROR=1
+263 ;;^DIST(.404,.402011,40,10,20)
+264 ;;=F^UF^3:250
+265 ;;^DIST(.404,.402011,40,10,21,0)
+266 ;;=^^3^3^3010402
+267 ;;^DIST(.404,.402011,40,10,21,1,0)
+268 ;;=If a line of MUMPS code is entered here, it will be executed
+269 ;;^DIST(.404,.402011,40,10,21,2,0)
+270 ;;=every time after a selection from the File is made.
+271 ;;^DIST(.404,.402011,40,10,21,3,0)
+272 ;;=At the time of execution, 'Y' is the return value from the "DIC" lookup.
+273 ;;^DIST(.404,.402011,40,11,0)
+274 ;;=11^LOOK-UP PROGRAM^2^^LOOK-UP PROGRAM
+275 ;;^DIST(.404,.402011,40,11,2)
+276 ;;=16,26^8^16,9
+277 ;;^DIST(.404,.402011,40,11,3)
+278 ;;=!M
+279 ;;^DIST(.404,.402011,40,11,3.1)
+280 ;;=S Y=$G(^DD(DA,0,"DIC"))
+281 ;;^DIST(.404,.402011,40,11,14)
+282 ;;=I X]"",'$$ROUEXIST^DILIBF(X)!(X?1"DI".E)!(X'?3U.5UN) S DDSERROR=1
+283 ;;^DIST(.404,.402011,40,11,20)
+284 ;;=F^FO
