Routine: DINIT0FE

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

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  Feb 19, 2025@00:16:37                                                                                                                                                                                                    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

DINIT0FE.m