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
Q
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
