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