DINIT0F8 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;18AUG2012
;;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="" ^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,20)
;;=F^^1:33
;;^DIST(.404,.00112,40,2,22)
;;=K:X?1P.E!(X[" ")!(X[",")!(X[":")!(X[";")!(X["""")!(X["=")&(+X'=X) X I $D(X) N % S %=$$CHKSUB^DICATTDM(X) I '% K X D HLP^DDSUTL(%)
;;^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,22)
;;=N % S %=$$CHKPIEC^DICATTDM(X) I '% K X 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,20)
;;=F^^1:33
;;^DIST(.404,.00114,40,1,22)
;;=K:X?1P.E!(X[",")!(X[":")!(X["""")!(X["=")&(+X'=X) X I $D(X) N % S %=$$CHKSUB^DICATTDM(X) I '% K X D HLP^DDSUTL(%)
;;^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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0F8 7774 printed Apr 09, 2024@21:55:35 Page 2
DINIT0F8 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;18AUG2012
+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 ^DINIT0F9
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 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,20)
+76 ;;=F^^1:33
+77 ;;^DIST(.404,.00112,40,2,22)
+78 ;;=K:X?1P.E!(X[" ")!(X[",")!(X[":")!(X[";")!(X["""")!(X["=")&(+X'=X) X I $D(X) N % S %=$$CHKSUB^DICATTDM(X) I '% K X D HLP^DDSUTL(%)
+79 ;;^DIST(.404,.00112,40,3,0)
+80 ;;=17^PIECE-POSITION^2^^PIECE
+81 ;;^DIST(.404,.00112,40,3,2)
+82 ;;=2,18^8^2,2
+83 ;;^DIST(.404,.00112,40,3,3)
+84 ;;=!M
+85 ;;^DIST(.404,.00112,40,3,3.1)
+86 ;;=D PIECDEF^DICATTDM
+87 ;;^DIST(.404,.00112,40,3,4)
+88 ;;=1
+89 ;;^DIST(.404,.00112,40,3,11)
+90 ;;=D PIECHELP^DICATTDM
+91 ;;^DIST(.404,.00112,40,3,20)
+92 ;;=F^^1:8
+93 ;;^DIST(.404,.00112,40,3,22)
+94 ;;=N % S %=$$CHKPIEC^DICATTDM(X) I '% K X D HLP^DDSUTL(%)
+95 ;;^DIST(.404,.00113,0)
+96 ;;=DICATT9^1
+97 ;;^DIST(.404,.00113,40,0)
+98 ;;=^.4044I^3^3
+99 ;;^DIST(.404,.00113,40,1,0)
+100 ;;=99^ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD^2^^DELETING
+101 ;;^DIST(.404,.00113,40,1,2)
+102 ;;=3,53^3^3,3
+103 ;;^DIST(.404,.00113,40,1,3)
+104 ;;=!M
+105 ;;^DIST(.404,.00113,40,1,3.1)
+106 ;;=S Y="N"
+107 ;;^DIST(.404,.00113,40,1,12)
+108 ;;=D POST9^DICATTDK
+109 ;;^DIST(.404,.00113,40,1,20)
+110 ;;=Y
+111 ;;^DIST(.404,.00113,40,2,0)
+112 ;;=99.1^*****************************************************^1
+113 ;;^DIST(.404,.00113,40,2,2)
+114 ;;=^^2,3
+115 ;;^DIST(.404,.00113,40,3,0)
+116 ;;=99.2^*****************************************************^1
+117 ;;^DIST(.404,.00113,40,3,2)
+118 ;;=^^4,3
+119 ;;^DIST(.404,.00114,0)
+120 ;;=DICATTS^1
+121 ;;^DIST(.404,.00114,40,0)
+122 ;;=^.4044I^2^2
+123 ;;^DIST(.404,.00114,40,1,0)
+124 ;;=76^SUBSCRIPT^2^^MUL SUBSCRIPT
+125 ;;^DIST(.404,.00114,40,1,2)
+126 ;;=2,26^33^2,15
+127 ;;^DIST(.404,.00114,40,1,3)
+128 ;;=!M
+129 ;;^DIST(.404,.00114,40,1,3.1)
+130 ;;=S Y="" I DICATT4="" F Y=+$O(^DD(DICATTA,"GL","A"),-1):1 Q:'$D(^(Y))
+131 ;;^DIST(.404,.00114,40,1,4)
+132 ;;=1
+133 ;;^DIST(.404,.00114,40,1,11)
+134 ;;=D SUBHELP^DICATTDM
+135 ;;^DIST(.404,.00114,40,1,20)
+136 ;;=F^^1:33
+137 ;;^DIST(.404,.00114,40,1,22)
+138 ;;=K:X?1P.E!(X[",")!(X[":")!(X["""")!(X["=")&(+X'=X) X I $D(X) N % S %=$$CHKSUB^DICATTDM(X) I '% K X D HLP^DDSUTL(%)
+139 ;;^DIST(.404,.00114,40,1,24)
+140 ;;=D SUBHELP^DICATTDM
+141 ;;^DIST(.404,.00114,40,2,0)
+142 ;;=76.1^SUB-DICTIONARY NUMBER^2
+143 ;;^DIST(.404,.00114,40,2,2)
+144 ;;=3,26^22^3,3
+145 ;;^DIST(.404,.00114,40,2,3)
+146 ;;=!M
+147 ;;^DIST(.404,.00114,40,2,3.1)
+148 ;;=S Y="" I DICATT4=Y D SUBDIC^DICATTD5
+149 ;;^DIST(.404,.00114,40,2,4)
+150 ;;=1
+151 ;;^DIST(.404,.00114,40,2,11)
+152 ;;=D HLP^DDSUTL("^DD number must be between "_DICATTA_" and "_(DICATTA\1+1)_" and not already used")
+153 ;;^DIST(.404,.00114,40,2,20)
+154 ;;=N^^0:9999999999999:9
+155 ;;^DIST(.404,.00114,40,2,22)
+156 ;;=D CHKDIC^DICATTD5
+157 ;;^DIST(.404,.00115,0)
+158 ;;=DICATTVP^1
+159 ;;^DIST(.404,.00115,40,0)
+160 ;;=^.4044I^6^6
+161 ;;^DIST(.404,.00115,40,1,0)
+162 ;;=1^MESSAGE^2
+163 ;;^DIST(.404,.00115,40,1,2)
+164 ;;=2,10^28^2,1
+165 ;;^DIST(.404,.00115,40,1,4)
+166 ;;=0
+167 ;;^DIST(.404,.00115,40,1,20)
+168 ;;=F^^1:30
+169 ;;^DIST(.404,.00115,40,2,0)
+170 ;;=4^SCREEN^2
+171 ;;^DIST(.404,.00115,40,2,2)
+172 ;;=5,9^60^5,1
+173 ;;^DIST(.404,.00115,40,2,10)
+174 ;;=D UNED^DDSUTL(5,,,X="","")
+175 ;;^DIST(.404,.00115,40,2,20)
+176 ;;=DD^^.12,1
+177 ;;^DIST(.404,.00115,40,2,21,0)
+178 ;;=^^3^3^2981127
+179 ;;^DIST(.404,.00115,40,2,21,1,0)
+180 ;;=Enter (optionally) a MUMPS statement which begins with 'S DIC("S")=' and
+181 ;;^DIST(.404,.00115,40,2,21,2,0)
+182 ;;=contains code which sets $T to "1" for selectable Entries. Entry numbers
+183 ;;^DIST(.404,.00115,40,2,21,3,0)
+184 ;;=will be in the variable 'Y' when evaluation by DIC("S") takes place.
+185 ;;^DIST(.404,.00115,40,3,0)
+186 ;;=3^SHOULD USER BE ALLOWED TO ADD A NEW ENTRY^2
+187 ;;^DIST(.404,.00115,40,3,2)
+188 ;;=4,44^3^4,1
+189 ;;^DIST(.404,.00115,40,3,20)
+190 ;;=S^^y:YES;n:NO
+191 ;;^DIST(.404,.00115,40,4,0)
+192 ;;=5^EXPLANATION OF SCREEN^2
+193 ;;^DIST(.404,.00115,40,4,2)
+194 ;;=6,24^45^6,1
+195 ;;^DIST(.404,.00115,40,4,20)
+196 ;;=F^^1:240
+197 ;;^DIST(.404,.00115,40,5,0)
+198 ;;=2^PREFIX^2
+199 ;;^DIST(.404,.00115,40,5,2)
+200 ;;=3,9^10^3,1
+201 ;;^DIST(.404,.00115,40,5,4)
+202 ;;=0
+203 ;;^DIST(.404,.00115,40,5,20)
+204 ;;=F^^1:10
+205 ;;^DIST(.404,.00115,40,5,22)
+206 ;;=I X["." K X
+207 ;;^DIST(.404,.00115,40,6,0)
+208 ;;=.5^^4
+209 ;;^DIST(.404,.00115,40,6,2)
+210 ;;=1,20^30
+211 ;;^DIST(.404,.00115,40,6,30)
+212 ;;=S Y="VARIABLE-POINTER #"_$G(DICATTVP)
+213 ;;^DIST(.404,.00116,0)
+214 ;;=DICATT MUL^1
+215 ;;^DIST(.404,.00116,40,0)
+216 ;;=^.4044I^7^7
+217 ;;^DIST(.404,.00116,40,1,0)
+218 ;;=1^MULTIPLE-FIELD LABEL^2^^MULTIPLE LABEL
+219 ;;^DIST(.404,.00116,40,1,2)
+220 ;;=3,23^30^3,1
+221 ;;^DIST(.404,.00116,40,1,3)
+222 ;;=!M
+223 ;;^DIST(.404,.00116,40,1,3.1)
+224 ;;=S Y=$P($G(^DD(DICATTA,DICATTF,0)),U)
+225 ;;^DIST(.404,.00116,40,1,10)
+226 ;;=I X="" S DDSSTACK=9
+227 ;;^DIST(.404,.00116,40,1,20)
+228 ;;=DD^^0,.01
+229 ;;^DIST(.404,.00116,40,2,0)
+230 ;;=5^READ ACCESS^2^^MULTIPLE READ ACCESS
+231 ;;^DIST(.404,.00116,40,2,2)
+232 ;;=4,23^13^4,10
+233 ;;^DIST(.404,.00116,40,2,3)
+234 ;;=!M
+235 ;;^DIST(.404,.00116,40,2,3.1)
+236 ;;=S Y=$G(^DD(DICATTA,DICATTF,8))
+237 ;;^DIST(.404,.00116,40,2,11)
+238 ;;=I $G(DICATTDK) S DDACT="EX"
+239 ;;^DIST(.404,.00116,40,2,20)
+240 ;;=DD^^0,8
+241 ;;^DIST(.404,.00116,40,3,0)
+242 ;;=7^WRITE ACCESS^2^^MULTIPLE WRITE ACCESS
+243 ;;^DIST(.404,.00116,40,3,2)
+244 ;;=5,23^13^5,9
+245 ;;^DIST(.404,.00116,40,3,3)
+246 ;;=!M
+247 ;;^DIST(.404,.00116,40,3,3.1)
+248 ;;=S Y=$G(^DD(DICATTA,DICATTF,9))
+249 ;;^DIST(.404,.00116,40,3,20)
+250 ;;=DD^^0,9
+251 ;;^DIST(.404,.00116,40,4,0)
+252 ;;=8^SOURCE^2^^MULTIPLE SOURCE
+253 ;;^DIST(.404,.00116,40,6,0)
+254 ;;=11^DESCRIPTION...^2
+255 ;;^DIST(.404,.00116,40,6,2)
+256 ;;=7,17^1^7,2^1
+257 ;;^DIST(.404,.00116,40,6,10)
+258 ;;=S DDSSTACK=1.1
+259 ;;^DIST(.404,.00116,40,6,20)
+260 ;;=F^^1:1
+261 ;;^DIST(.404,.00116,40,7,0)
+262 ;;=12^TECHNICAL DESCRIPTION...^2
+263 ;;^DIST(.404,.00116,40,7,2)
+264 ;;=7,49^1^7,24^1
+265 ;;^DIST(.404,.00116,40,7,10)
+266 ;;=S DDSSTACK=1.2
+267 ;;^DIST(.404,.00116,40,7,20)
+268 ;;=F^^1:1
