Routine: DINIT0F8

DINIT0F8 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;04:54 PM  17 Dec 2002 [ 12/09/2003  4:33 PM ]

 ;;22.0;VA FileMan;**8,42,76,118,1002**;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="" ^DINIT0F9 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

ENTRY ;

 ;;^DIST(.404,.00109,40,24,3)

 ;;=!M

 ;;^DIST(.404,.00109,40,24,3.1)

 ;;=D Y^DICATTD3(12,2)

 ;;^DIST(.404,.00109,40,24,20)

 ;;=F^^1:70

 ;;^DIST(.404,.00109,40,24,22)

 ;;=D C^DICATTD3

 ;;^DIST(.404,.00109,40,25,0)

 ;;=59^CODE^2^^CODE13

 ;;^DIST(.404,.00109,40,25,2)

 ;;=14,8^4^14,2

 ;;^DIST(.404,.00109,40,25,3)

 ;;=!M

 ;;^DIST(.404,.00109,40,25,3.1)

 ;;=D Y^DICATTD3(13,1)

 ;;^DIST(.404,.00109,40,25,20)

 ;;=F^^1:20

 ;;^DIST(.404,.00109,40,25,22)

 ;;=D C^DICATTD3

 ;;^DIST(.404,.00109,40,26,0)

 ;;=60^WILL STAND FOR^2^^MEANS13

 ;;^DIST(.404,.00109,40,26,2)

 ;;=14,30^30^14,14

 ;;^DIST(.404,.00109,40,26,3)

 ;;=!M

 ;;^DIST(.404,.00109,40,26,3.1)

 ;;=D Y^DICATTD3(13,2)

 ;;^DIST(.404,.00109,40,26,20)

 ;;=F^^1:70

 ;;^DIST(.404,.00109,40,26,22)

 ;;=D C^DICATTD3

 ;;^DIST(.404,.0011,0)

 ;;=DICATTW1^1

 ;;^DIST(.404,.0011,40,0)

 ;;=^.4044I^1^1

 ;;^DIST(.404,.0011,40,1,0)

 ;;=1^ ^2

 ;;^DIST(.404,.0011,40,1,2)

 ;;=1,4^1^1,1^1

 ;;^DIST(.404,.0011,40,1,11)

 ;;=S DDACT="CL"

 ;;^DIST(.404,.0011,40,1,20)

 ;;=F

 ;;^DIST(.404,.00111,0)

 ;;=DICATTW2^1

 ;;^DIST(.404,.00111,11)

 ;;=D WORD^DICATTD0(23)

 ;;^DIST(.404,.00111,40,0)

 ;;=^.4044I^1^1

 ;;^DIST(.404,.00111,40,1,0)

 ;;=1^ ^1

 ;;^DIST(.404,.00111,40,1,2)

 ;;=1,4^1^1,1^1

 ;;^DIST(.404,.00111,40,1,11)

 ;;=S DDACT="CL"

 ;;^DIST(.404,.00111,40,1,20)

 ;;=F

 ;;^DIST(.404,.00112,0)

 ;;=DICATTM^1

 ;;^DIST(.404,.00112,40,0)

 ;;=^.4044I^3^2

 ;;^DIST(.404,.00112,40,2,0)

 ;;=16^SUBSCRIPT^2^^SUBSCRIPT

 ;;^DIST(.404,.00112,40,2,2)

 ;;=1,18^33^1,7

 ;;^DIST(.404,.00112,40,2,3)

 ;;=!M

 ;;^DIST(.404,.00112,40,2,3.1)

 ;;=D SUBDEF^DICATTDM

 ;;^DIST(.404,.00112,40,2,4)

 ;;=1

 ;;^DIST(.404,.00112,40,2,11)

 ;;=D SUBHELP^DICATTDM

 ;;^DIST(.404,.00112,40,2,14)

 ;;=N % S %=$$CHKSUB^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)

 ;;^DIST(.404,.00112,40,2,20)

 ;;=F^^1:33

 ;;^DIST(.404,.00112,40,2,22)

 ;;=K:X?1P.E!(X[" ")!(X[",")!(X[":")!(X[";")!(X["""")!(X["=") X

 ;;^DIST(.404,.00112,40,3,0)

 ;;=17^PIECE-POSITION^2^^PIECE

 ;;^DIST(.404,.00112,40,3,2)

 ;;=2,18^8^2,2

 ;;^DIST(.404,.00112,40,3,3)

 ;;=!M

 ;;^DIST(.404,.00112,40,3,3.1)

 ;;=D PIECDEF^DICATTDM

 ;;^DIST(.404,.00112,40,3,4)

 ;;=1

 ;;^DIST(.404,.00112,40,3,11)

 ;;=D PIECHELP^DICATTDM

 ;;^DIST(.404,.00112,40,3,20)

 ;;=F^^1:8

 ;;^DIST(.404,.00112,40,3,14)

 ;;=N % S %=$$CHKPIEC^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)

 ;;^DIST(.404,.00113,0)

 ;;=DICATT9^1

 ;;^DIST(.404,.00113,40,0)

 ;;=^.4044I^3^3

 ;;^DIST(.404,.00113,40,1,0)

 ;;=99^ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD^2^^DELETING

 ;;^DIST(.404,.00113,40,1,2)

 ;;=3,53^3^3,3

 ;;^DIST(.404,.00113,40,1,3)

 ;;=!M

 ;;^DIST(.404,.00113,40,1,3.1)

 ;;=S Y="N"

 ;;^DIST(.404,.00113,40,1,12)

 ;;=D POST9^DICATTDK

 ;;^DIST(.404,.00113,40,1,20)

 ;;=Y

 ;;^DIST(.404,.00113,40,2,0)

 ;;=99.1^*****************************************************^1

 ;;^DIST(.404,.00113,40,2,2)

 ;;=^^2,3

 ;;^DIST(.404,.00113,40,3,0)

 ;;=99.2^*****************************************************^1

 ;;^DIST(.404,.00113,40,3,2)

 ;;=^^4,3

 ;;^DIST(.404,.00114,0)

 ;;=DICATTS^1

 ;;^DIST(.404,.00114,40,0)

 ;;=^.4044I^2^2

 ;;^DIST(.404,.00114,40,1,0)

 ;;=76^SUBSCRIPT^2^^MUL SUBSCRIPT

 ;;^DIST(.404,.00114,40,1,2)

 ;;=2,26^33^2,15

 ;;^DIST(.404,.00114,40,1,3)

 ;;=!M

 ;;^DIST(.404,.00114,40,1,3.1)

 ;;=S Y="" I DICATT4="" F Y=+$O(^DD(DICATTA,"GL","A"),-1):1 Q:'$D(^(Y))

 ;;^DIST(.404,.00114,40,1,4)

 ;;=1

 ;;^DIST(.404,.00114,40,1,11)

 ;;=D SUBHELP^DICATTDM

 ;;^DIST(.404,.00114,40,1,14)

 ;;=N % S %=$$CHKSUB^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)

 ;;^DIST(.404,.00114,40,1,20)

 ;;=F^^1:33

 ;;^DIST(.404,.00114,40,1,22)

 ;;=K:X?1P.E!(X[",")!(X[":")!(X["""")!(X["=") X

 ;;^DIST(.404,.00114,40,1,24)

 ;;=D SUBHELP^DICATTDM

 ;;^DIST(.404,.00114,40,2,0)

 ;;=76.1^SUB-DICTIONARY NUMBER^2

 ;;^DIST(.404,.00114,40,2,2)

 ;;=3,26^22^3,3

 ;;^DIST(.404,.00114,40,2,3)

 ;;=!M

 ;;^DIST(.404,.00114,40,2,3.1)

 ;;=S Y="" I DICATT4=Y D SUBDIC^DICATTD5

 ;;^DIST(.404,.00114,40,2,4)

 ;;=1

 ;;^DIST(.404,.00114,40,2,11)

 ;;=D HLP^DDSUTL("^DD number must be between "_DICATTA_" and "_(DICATTA\1+1)_" and not already used")

 ;;^DIST(.404,.00114,40,2,20)

 ;;=N^^0:9999999999999:9

 ;;^DIST(.404,.00114,40,2,22)

 ;;=D CHKDIC^DICATTD5

 ;;^DIST(.404,.00115,0)

 ;;=DICATTVP^1

 ;;^DIST(.404,.00115,40,0)

 ;;=^.4044I^6^6

 ;;^DIST(.404,.00115,40,1,0)

 ;;=1^MESSAGE^2

 ;;^DIST(.404,.00115,40,1,2)

 ;;=2,10^28^2,1

 ;;^DIST(.404,.00115,40,1,4)

 ;;=0

 ;;^DIST(.404,.00115,40,1,20)

 ;;=F^^1:30

 ;;^DIST(.404,.00115,40,2,0)

 ;;=4^SCREEN^2

 ;;^DIST(.404,.00115,40,2,2)

 ;;=5,9^60^5,1

 ;;^DIST(.404,.00115,40,2,10)

 ;;=D UNED^DDSUTL(5,,,X="","")

 ;;^DIST(.404,.00115,40,2,20)

 ;;=DD^^.12,1

 ;;^DIST(.404,.00115,40,2,21,0)

 ;;=^^3^3^2981127

 ;;^DIST(.404,.00115,40,2,21,1,0)

 ;;=Enter (optionally) a MUMPS statement which begins with 'S DIC("S")=' and

 ;;^DIST(.404,.00115,40,2,21,2,0)

 ;;=contains code which sets $T to "1" for selectable Entries.  Entry numbers

 ;;^DIST(.404,.00115,40,2,21,3,0)

 ;;=will be in the variable 'Y' when evaluation by DIC("S") takes place.

 ;;^DIST(.404,.00115,40,3,0)

 ;;=3^SHOULD USER BE ALLOWED TO ADD A NEW ENTRY^2

 ;;^DIST(.404,.00115,40,3,2)

 ;;=4,44^3^4,1

 ;;^DIST(.404,.00115,40,3,20)

 ;;=S^^y:YES;n:NO

 ;;^DIST(.404,.00115,40,4,0)

 ;;=5^EXPLANATION OF SCREEN^2

 ;;^DIST(.404,.00115,40,4,2)

 ;;=6,24^45^6,1

 ;;^DIST(.404,.00115,40,4,20)

 ;;=F^^1:240

 ;;^DIST(.404,.00115,40,5,0)

 ;;=2^PREFIX^2

 ;;^DIST(.404,.00115,40,5,2)

 ;;=3,9^10^3,1

 ;;^DIST(.404,.00115,40,5,4)

 ;;=0

 ;;^DIST(.404,.00115,40,5,20)

 ;;=F^^1:10

 ;;^DIST(.404,.00115,40,5,22)

 ;;=I X["." K X

 ;;^DIST(.404,.00115,40,6,0)

 ;;=.5^^4

 ;;^DIST(.404,.00115,40,6,2)

 ;;=1,20^30

 ;;^DIST(.404,.00115,40,6,30)

 ;;=S Y="VARIABLE-POINTER #"_$G(DICATTVP)

 ;;^DIST(.404,.00116,0)

 ;;=DICATT MUL^1

 ;;^DIST(.404,.00116,40,0)

 ;;=^.4044I^7^7

 ;;^DIST(.404,.00116,40,1,0)

 ;;=1^MULTIPLE-FIELD LABEL^2^^MULTIPLE LABEL

 ;;^DIST(.404,.00116,40,1,2)

 ;;=3,23^30^3,1

 ;;^DIST(.404,.00116,40,1,3)

 ;;=!M

 ;;^DIST(.404,.00116,40,1,3.1)

 ;;=S Y=$P($G(^DD(DICATTA,DICATTF,0)),U)

 ;;^DIST(.404,.00116,40,1,10)

 ;;=I X="" S DDSSTACK=9

 ;;^DIST(.404,.00116,40,1,20)

 ;;=DD^^0,.01

 ;;^DIST(.404,.00116,40,2,0)

 ;;=5^READ ACCESS^2^^MULTIPLE READ ACCESS

 ;;^DIST(.404,.00116,40,2,2)

 ;;=4,23^13^4,10

 ;;^DIST(.404,.00116,40,2,3)

 ;;=!M

 ;;^DIST(.404,.00116,40,2,3.1)

 ;;=S Y=$G(^DD(DICATTA,DICATTF,8))

 ;;^DIST(.404,.00116,40,2,11)

 ;;=I $G(DICATTDK) S DDACT="EX"

 ;;^DIST(.404,.00116,40,2,20)

 ;;=DD^^0,8

 ;;^DIST(.404,.00116,40,3,0)

 ;;=7^WRITE ACCESS^2^^MULTIPLE WRITE ACCESS

 ;;^DIST(.404,.00116,40,3,2)

 ;;=5,23^13^5,9

 ;;^DIST(.404,.00116,40,3,3)

 ;;=!M

 ;;^DIST(.404,.00116,40,3,3.1)

 ;;=S Y=$G(^DD(DICATTA,DICATTF,9))

 ;;^DIST(.404,.00116,40,3,20)

 ;;=DD^^0,9

 ;;^DIST(.404,.00116,40,4,0)

 ;;=8^SOURCE^2^^MULTIPLE SOURCE

 ;;^DIST(.404,.00116,40,6,0)

 ;;=11^DESCRIPTION...^2

 ;;^DIST(.404,.00116,40,6,2)

 ;;=7,17^1^7,2^1

 ;;^DIST(.404,.00116,40,6,10)

 ;;=S DDSSTACK=1.1

 ;;^DIST(.404,.00116,40,6,20)

 ;;=F^^1:1

 ;;^DIST(.404,.00116,40,7,0)

 ;;=12^TECHNICAL DESCRIPTION...^2

 ;;^DIST(.404,.00116,40,7,2)

 ;;=7,49^1^7,24^1

 ;;^DIST(.404,.00116,40,7,10)

 ;;=S DDSSTACK=1.2

 ;;^DIST(.404,.00116,40,7,20)

 ;;=F^^1:1

DINIT0F8  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;04:54 PM  17 Dec 2002 [ 12/09/2003  4:33 PM ]

 +1       ;;22.0;VA FileMan;**8,42,76,118,1002**;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        FOR I=1:2

               SET X=$TEXT(ENTRY+I)

               IF X=""

                   GOTO ^DINIT0F9

               SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

 +4        QUIT

ENTRY     ;

 +1       ;;^DIST(.404,.00109,40,24,3)

 +2       ;;=!M

 +3       ;;^DIST(.404,.00109,40,24,3.1)

 +4       ;;=D Y^DICATTD3(12,2)

 +5       ;;^DIST(.404,.00109,40,24,20)

 +6       ;;=F^^1:70

 +7       ;;^DIST(.404,.00109,40,24,22)

 +8       ;;=D C^DICATTD3

 +9       ;;^DIST(.404,.00109,40,25,0)

 +10      ;;=59^CODE^2^^CODE13

 +11      ;;^DIST(.404,.00109,40,25,2)

 +12      ;;=14,8^4^14,2

 +13      ;;^DIST(.404,.00109,40,25,3)

 +14      ;;=!M

 +15      ;;^DIST(.404,.00109,40,25,3.1)

 +16      ;;=D Y^DICATTD3(13,1)

 +17      ;;^DIST(.404,.00109,40,25,20)

 +18      ;;=F^^1:20

 +19      ;;^DIST(.404,.00109,40,25,22)

 +20      ;;=D C^DICATTD3

 +21      ;;^DIST(.404,.00109,40,26,0)

 +22      ;;=60^WILL STAND FOR^2^^MEANS13

 +23      ;;^DIST(.404,.00109,40,26,2)

 +24      ;;=14,30^30^14,14

 +25      ;;^DIST(.404,.00109,40,26,3)

 +26      ;;=!M

 +27      ;;^DIST(.404,.00109,40,26,3.1)

 +28      ;;=D Y^DICATTD3(13,2)

 +29      ;;^DIST(.404,.00109,40,26,20)

 +30      ;;=F^^1:70

 +31      ;;^DIST(.404,.00109,40,26,22)

 +32      ;;=D C^DICATTD3

 +33      ;;^DIST(.404,.0011,0)

 +34      ;;=DICATTW1^1

 +35      ;;^DIST(.404,.0011,40,0)

 +36      ;;=^.4044I^1^1

 +37      ;;^DIST(.404,.0011,40,1,0)

 +38      ;;=1^ ^2

 +39      ;;^DIST(.404,.0011,40,1,2)

 +40      ;;=1,4^1^1,1^1

 +41      ;;^DIST(.404,.0011,40,1,11)

 +42      ;;=S DDACT="CL"

 +43      ;;^DIST(.404,.0011,40,1,20)

 +44      ;;=F

 +45      ;;^DIST(.404,.00111,0)

 +46      ;;=DICATTW2^1

 +47      ;;^DIST(.404,.00111,11)

 +48      ;;=D WORD^DICATTD0(23)

 +49      ;;^DIST(.404,.00111,40,0)

 +50      ;;=^.4044I^1^1

 +51      ;;^DIST(.404,.00111,40,1,0)

 +52      ;;=1^ ^1

 +53      ;;^DIST(.404,.00111,40,1,2)

 +54      ;;=1,4^1^1,1^1

 +55      ;;^DIST(.404,.00111,40,1,11)

 +56      ;;=S DDACT="CL"

 +57      ;;^DIST(.404,.00111,40,1,20)

 +58      ;;=F

 +59      ;;^DIST(.404,.00112,0)

 +60      ;;=DICATTM^1

 +61      ;;^DIST(.404,.00112,40,0)

 +62      ;;=^.4044I^3^2

 +63      ;;^DIST(.404,.00112,40,2,0)

 +64      ;;=16^SUBSCRIPT^2^^SUBSCRIPT

 +65      ;;^DIST(.404,.00112,40,2,2)

 +66      ;;=1,18^33^1,7

 +67      ;;^DIST(.404,.00112,40,2,3)

 +68      ;;=!M

 +69      ;;^DIST(.404,.00112,40,2,3.1)

 +70      ;;=D SUBDEF^DICATTDM

 +71      ;;^DIST(.404,.00112,40,2,4)

 +72      ;;=1

 +73      ;;^DIST(.404,.00112,40,2,11)

 +74      ;;=D SUBHELP^DICATTDM

 +75      ;;^DIST(.404,.00112,40,2,14)

 +76      ;;=N % S %=$$CHKSUB^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)

 +77      ;;^DIST(.404,.00112,40,2,20)

 +78      ;;=F^^1:33

 +79      ;;^DIST(.404,.00112,40,2,22)

 +80      ;;=K:X?1P.E!(X[" ")!(X[",")!(X[":")!(X[";")!(X["""")!(X["=") X

 +81      ;;^DIST(.404,.00112,40,3,0)

 +82      ;;=17^PIECE-POSITION^2^^PIECE

 +83      ;;^DIST(.404,.00112,40,3,2)

 +84      ;;=2,18^8^2,2

 +85      ;;^DIST(.404,.00112,40,3,3)

 +86      ;;=!M

 +87      ;;^DIST(.404,.00112,40,3,3.1)

 +88      ;;=D PIECDEF^DICATTDM

 +89      ;;^DIST(.404,.00112,40,3,4)

 +90      ;;=1

 +91      ;;^DIST(.404,.00112,40,3,11)

 +92      ;;=D PIECHELP^DICATTDM

 +93      ;;^DIST(.404,.00112,40,3,20)

 +94      ;;=F^^1:8

 +95      ;;^DIST(.404,.00112,40,3,14)

 +96      ;;=N % S %=$$CHKPIEC^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)

 +97      ;;^DIST(.404,.00113,0)

 +98      ;;=DICATT9^1

 +99      ;;^DIST(.404,.00113,40,0)

 +100     ;;=^.4044I^3^3

 +101     ;;^DIST(.404,.00113,40,1,0)

 +102     ;;=99^ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD^2^^DELETING

 +103     ;;^DIST(.404,.00113,40,1,2)

 +104     ;;=3,53^3^3,3

 +105     ;;^DIST(.404,.00113,40,1,3)

 +106     ;;=!M

 +107     ;;^DIST(.404,.00113,40,1,3.1)

 +108     ;;=S Y="N"

 +109     ;;^DIST(.404,.00113,40,1,12)

 +110     ;;=D POST9^DICATTDK

 +111     ;;^DIST(.404,.00113,40,1,20)

 +112     ;;=Y

 +113     ;;^DIST(.404,.00113,40,2,0)

 +114     ;;=99.1^*****************************************************^1

 +115     ;;^DIST(.404,.00113,40,2,2)

 +116     ;;=^^2,3

 +117     ;;^DIST(.404,.00113,40,3,0)

 +118     ;;=99.2^*****************************************************^1

 +119     ;;^DIST(.404,.00113,40,3,2)

 +120     ;;=^^4,3

 +121     ;;^DIST(.404,.00114,0)

 +122     ;;=DICATTS^1

 +123     ;;^DIST(.404,.00114,40,0)

 +124     ;;=^.4044I^2^2

 +125     ;;^DIST(.404,.00114,40,1,0)

 +126     ;;=76^SUBSCRIPT^2^^MUL SUBSCRIPT

 +127     ;;^DIST(.404,.00114,40,1,2)

 +128     ;;=2,26^33^2,15

 +129     ;;^DIST(.404,.00114,40,1,3)

 +130     ;;=!M

 +131     ;;^DIST(.404,.00114,40,1,3.1)

 +132     ;;=S Y="" I DICATT4="" F Y=+$O(^DD(DICATTA,"GL","A"),-1):1 Q:'$D(^(Y))

 +133     ;;^DIST(.404,.00114,40,1,4)

 +134     ;;=1

 +135     ;;^DIST(.404,.00114,40,1,11)

 +136     ;;=D SUBHELP^DICATTDM

 +137     ;;^DIST(.404,.00114,40,1,14)

 +138     ;;=N % S %=$$CHKSUB^DICATTDM(X) I '% S DDSERROR=1 D HLP^DDSUTL(%)

 +139     ;;^DIST(.404,.00114,40,1,20)

 +140     ;;=F^^1:33

 +141     ;;^DIST(.404,.00114,40,1,22)

 +142     ;;=K:X?1P.E!(X[",")!(X[":")!(X["""")!(X["=") X

 +143     ;;^DIST(.404,.00114,40,1,24)

 +144     ;;=D SUBHELP^DICATTDM

 +145     ;;^DIST(.404,.00114,40,2,0)

 +146     ;;=76.1^SUB-DICTIONARY NUMBER^2

 +147     ;;^DIST(.404,.00114,40,2,2)

 +148     ;;=3,26^22^3,3

 +149     ;;^DIST(.404,.00114,40,2,3)

 +150     ;;=!M

 +151     ;;^DIST(.404,.00114,40,2,3.1)

 +152     ;;=S Y="" I DICATT4=Y D SUBDIC^DICATTD5

 +153     ;;^DIST(.404,.00114,40,2,4)

 +154     ;;=1

 +155     ;;^DIST(.404,.00114,40,2,11)

 +156     ;;=D HLP^DDSUTL("^DD number must be between "_DICATTA_" and "_(DICATTA\1+1)_" and not already used")

 +157     ;;^DIST(.404,.00114,40,2,20)

 +158     ;;=N^^0:9999999999999:9

 +159     ;;^DIST(.404,.00114,40,2,22)

 +160     ;;=D CHKDIC^DICATTD5

 +161     ;;^DIST(.404,.00115,0)

 +162     ;;=DICATTVP^1

 +163     ;;^DIST(.404,.00115,40,0)

 +164     ;;=^.4044I^6^6

 +165     ;;^DIST(.404,.00115,40,1,0)

 +166     ;;=1^MESSAGE^2

 +167     ;;^DIST(.404,.00115,40,1,2)

 +168     ;;=2,10^28^2,1

 +169     ;;^DIST(.404,.00115,40,1,4)

 +170     ;;=0

 +171     ;;^DIST(.404,.00115,40,1,20)

 +172     ;;=F^^1:30

 +173     ;;^DIST(.404,.00115,40,2,0)

 +174     ;;=4^SCREEN^2

 +175     ;;^DIST(.404,.00115,40,2,2)

 +176     ;;=5,9^60^5,1

 +177     ;;^DIST(.404,.00115,40,2,10)

 +178     ;;=D UNED^DDSUTL(5,,,X="","")

 +179     ;;^DIST(.404,.00115,40,2,20)

 +180     ;;=DD^^.12,1

 +181     ;;^DIST(.404,.00115,40,2,21,0)

 +182     ;;=^^3^3^2981127

 +183     ;;^DIST(.404,.00115,40,2,21,1,0)

 +184     ;;=Enter (optionally) a MUMPS statement which begins with 'S DIC("S")=' and

 +185     ;;^DIST(.404,.00115,40,2,21,2,0)

 +186     ;;=contains code which sets $T to "1" for selectable Entries.  Entry numbers

 +187     ;;^DIST(.404,.00115,40,2,21,3,0)

 +188     ;;=will be in the variable 'Y' when evaluation by DIC("S") takes place.

 +189     ;;^DIST(.404,.00115,40,3,0)

 +190     ;;=3^SHOULD USER BE ALLOWED TO ADD A NEW ENTRY^2

 +191     ;;^DIST(.404,.00115,40,3,2)

 +192     ;;=4,44^3^4,1

 +193     ;;^DIST(.404,.00115,40,3,20)

 +194     ;;=S^^y:YES;n:NO

 +195     ;;^DIST(.404,.00115,40,4,0)

 +196     ;;=5^EXPLANATION OF SCREEN^2

 +197     ;;^DIST(.404,.00115,40,4,2)

 +198     ;;=6,24^45^6,1

 +199     ;;^DIST(.404,.00115,40,4,20)

 +200     ;;=F^^1:240

 +201     ;;^DIST(.404,.00115,40,5,0)

 +202     ;;=2^PREFIX^2

 +203     ;;^DIST(.404,.00115,40,5,2)

 +204     ;;=3,9^10^3,1

 +205     ;;^DIST(.404,.00115,40,5,4)

 +206     ;;=0

 +207     ;;^DIST(.404,.00115,40,5,20)

 +208     ;;=F^^1:10

 +209     ;;^DIST(.404,.00115,40,5,22)

 +210     ;;=I X["." K X

 +211     ;;^DIST(.404,.00115,40,6,0)

 +212     ;;=.5^^4

 +213     ;;^DIST(.404,.00115,40,6,2)

 +214     ;;=1,20^30

 +215     ;;^DIST(.404,.00115,40,6,30)

 +216     ;;=S Y="VARIABLE-POINTER #"_$G(DICATTVP)

 +217     ;;^DIST(.404,.00116,0)

 +218     ;;=DICATT MUL^1

 +219     ;;^DIST(.404,.00116,40,0)

 +220     ;;=^.4044I^7^7

 +221     ;;^DIST(.404,.00116,40,1,0)

 +222     ;;=1^MULTIPLE-FIELD LABEL^2^^MULTIPLE LABEL

 +223     ;;^DIST(.404,.00116,40,1,2)

 +224     ;;=3,23^30^3,1

 +225     ;;^DIST(.404,.00116,40,1,3)

 +226     ;;=!M

 +227     ;;^DIST(.404,.00116,40,1,3.1)

 +228     ;;=S Y=$P($G(^DD(DICATTA,DICATTF,0)),U)

 +229     ;;^DIST(.404,.00116,40,1,10)

 +230     ;;=I X="" S DDSSTACK=9

 +231     ;;^DIST(.404,.00116,40,1,20)

 +232     ;;=DD^^0,.01

 +233     ;;^DIST(.404,.00116,40,2,0)

 +234     ;;=5^READ ACCESS^2^^MULTIPLE READ ACCESS

 +235     ;;^DIST(.404,.00116,40,2,2)

 +236     ;;=4,23^13^4,10

 +237     ;;^DIST(.404,.00116,40,2,3)

 +238     ;;=!M

 +239     ;;^DIST(.404,.00116,40,2,3.1)

 +240     ;;=S Y=$G(^DD(DICATTA,DICATTF,8))

 +241     ;;^DIST(.404,.00116,40,2,11)

 +242     ;;=I $G(DICATTDK) S DDACT="EX"

 +243     ;;^DIST(.404,.00116,40,2,20)

 +244     ;;=DD^^0,8

 +245     ;;^DIST(.404,.00116,40,3,0)

 +246     ;;=7^WRITE ACCESS^2^^MULTIPLE WRITE ACCESS

 +247     ;;^DIST(.404,.00116,40,3,2)

 +248     ;;=5,23^13^5,9

 +249     ;;^DIST(.404,.00116,40,3,3)

 +250     ;;=!M

 +251     ;;^DIST(.404,.00116,40,3,3.1)

 +252     ;;=S Y=$G(^DD(DICATTA,DICATTF,9))

 +253     ;;^DIST(.404,.00116,40,3,20)

 +254     ;;=DD^^0,9

 +255     ;;^DIST(.404,.00116,40,4,0)

 +256     ;;=8^SOURCE^2^^MULTIPLE SOURCE

 +257     ;;^DIST(.404,.00116,40,6,0)

 +258     ;;=11^DESCRIPTION...^2

 +259     ;;^DIST(.404,.00116,40,6,2)

 +260     ;;=7,17^1^7,2^1

 +261     ;;^DIST(.404,.00116,40,6,10)

 +262     ;;=S DDSSTACK=1.1

 +263     ;;^DIST(.404,.00116,40,6,20)

 +264     ;;=F^^1:1

 +265     ;;^DIST(.404,.00116,40,7,0)

 +266     ;;=12^TECHNICAL DESCRIPTION...^2

 +267     ;;^DIST(.404,.00116,40,7,2)

 +268     ;;=7,49^1^7,24^1

 +269     ;;^DIST(.404,.00116,40,7,10)

 +270     ;;=S DDSSTACK=1.2

 +271     ;;^DIST(.404,.00116,40,7,20)

 +272     ;;=F^^1:1

DINIT0F8.m