DINIT0F6 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;28JUN2010
;;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="" ^DINIT0F7 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.00106,40,5,0)
;;=83^LENGTH OF FIELD^2^^LENGTH
;;^DIST(.404,.00106,40,5,2)
;;=8,19^3^8,2
;;^DIST(.404,.00106,40,5,3)
;;=!M
;;^DIST(.404,.00106,40,5,3.1)
;;=I DICATT2["J" S Y=+$P(DICATT2,"J",2)
;;^DIST(.404,.00106,40,5,20)
;;=N^^1:250:0
;;^DIST(.404,.00106,40,5,21,0)
;;=^^2^2^2981106
;;^DIST(.404,.00106,40,5,21,1,0)
;;=MAXIMUM NUMBER OF CHARACTERS
;;^DIST(.404,.00106,40,5,21,2,0)
;;= (not more than 250)
;;^DIST(.404,.00106,40,6,0)
;;=81^SHOULD VALUE ALWAYS BE ROUNDED^2^^ROUNDED
;;^DIST(.404,.00106,40,6,2)
;;=6,65^3^6,33
;;^DIST(.404,.00106,40,6,3)
;;=!M
;;^DIST(.404,.00106,40,6,3.1)
;;=I DICATT2[";" S Y=$E("NY",DICATT5[" S X=$J(X,0,"+1)
;;^DIST(.404,.00106,40,6,20)
;;=Y
;;^DIST(.404,.00106,40,7,0)
;;=82^WHEN TOTALLING, SHOULD SUMS BE SUMS OF COMPONENT FIELDS^2^^TOTALLING
;;^DIST(.404,.00106,40,7,2)
;;=7,65^3^7,8
;;^DIST(.404,.00106,40,7,3)
;;=!M
;;^DIST(.404,.00106,40,7,3.1)
;;=I $D(^DD(DICATTA,DICATTF,9.02)) S Y="Y"
;;^DIST(.404,.00106,40,7,20)
;;=Y
;;^DIST(.404,.00107,0)
;;=DICATT7^1
;;^DIST(.404,.00107,40,0)
;;=^.4044I^2^2
;;^DIST(.404,.00107,40,1,0)
;;=84^POINT TO WHICH FILE^2^^FILE
;;^DIST(.404,.00107,40,1,2)
;;=2,27^39^2,6
;;^DIST(.404,.00107,40,1,3)
;;=!M
;;^DIST(.404,.00107,40,1,3.1)
;;=S Y=$P($G(^DIC(+$P(DICATT2,"P",2),0)),U)
;;^DIST(.404,.00107,40,1,4)
;;=1
;;^DIST(.404,.00107,40,1,11)
;;=S:$G(DICATTSC)=7 DDACT="CL"
;;^DIST(.404,.00107,40,1,20)
;;=P^^1:EOFIZ
;;^DIST(.404,.00107,40,1,24)
;;=S DIR("S")="I Y-1.1 N DIFILE,DIAC S DIFILE=+Y,DIAC=""RD"" D ^DIAC I %"
;;^DIST(.404,.00107,40,2,0)
;;=85^SHALL 'ADDING A NEW FILE ENTRY ("LAYGO") BE ALLOWED^2^^LAYGO
;;^DIST(.404,.00107,40,2,2)
;;=4,59^3^4,6
;;^DIST(.404,.00107,40,2,3)
;;=!M
;;^DIST(.404,.00107,40,2,3.1)
;;=S Y="N" I DICATT2["P" S Y=$E("YN",DICATT2["'"+1)
;;^DIST(.404,.00107,40,2,14)
;;=N DIFILE,DIAC S DIAC="LAYGO",DIFILE=$$GET^DDSVALF(84,,,"I","") D ^DIAC I $P($G(^DD(DIFILE,0,"DI")),U,2)["Y"!'DIAC S DDSERROR=1 D HLP^DDSUTL("NO LAYGO-ING TO THIS FILE!")
;;^DIST(.404,.00107,40,2,20)
;;=Y
;;^DIST(.404,.00108,0)
;;=DICATT8^1
;;^DIST(.404,.00108,40,0)
;;=^.4044I^14^14
;;^DIST(.404,.00108,40,1,0)
;;=91^VARIABLE-POINTER FILE #1^2^^VP 1
;;^DIST(.404,.00108,40,1,2)
;;=2,29^30^2,3
;;^DIST(.404,.00108,40,1,3)
;;=!M
;;^DIST(.404,.00108,40,1,3.1)
;;=D Y^DICATTD8(1,1)
;;^DIST(.404,.00108,40,1,4)
;;=1
;;^DIST(.404,.00108,40,1,20)
;;=P^^1:EOFIZM
;;^DIST(.404,.00108,40,1,24)
;;=D DICS^DICATTD8
;;^DIST(.404,.00108,40,2,0)
;;=92^VARIABLE-POINTER FILE #2^2^^VP 2
;;^DIST(.404,.00108,40,2,2)
;;=3,29^30^3,3
;;^DIST(.404,.00108,40,2,3)
;;=!M
;;^DIST(.404,.00108,40,2,3.1)
;;=D Y^DICATTD8(2,1)
;;^DIST(.404,.00108,40,2,20)
;;=P^^1:EOFIZM
;;^DIST(.404,.00108,40,2,24)
;;=D DICS^DICATTD8
;;^DIST(.404,.00108,40,3,0)
;;=91.1^ORDER...^2^^ORDER1
;;^DIST(.404,.00108,40,3,2)
;;=2,70^4^2,61^1
;;^DIST(.404,.00108,40,3,3)
;;=!M
;;^DIST(.404,.00108,40,3,3.1)
;;=D Y^DICATTD8(1,3)
;;^DIST(.404,.00108,40,3,10)
;;=S:X DICATTVP=1,DDSSTACK=8
;;^DIST(.404,.00108,40,3,20)
;;=N^^1:99:1
;;^DIST(.404,.00108,40,4,0)
;;=92.1^ORDER...^2^^ORDER2
;;^DIST(.404,.00108,40,4,2)
;;=3,70^4^3,61^1
;;^DIST(.404,.00108,40,4,3)
;;=!M
;;^DIST(.404,.00108,40,4,3.1)
;;=D Y^DICATTD8(2,3)
;;^DIST(.404,.00108,40,4,10)
;;=S:X DICATTVP=2,DDSSTACK=8
;;^DIST(.404,.00108,40,4,20)
;;=N^^1:99:1
;;^DIST(.404,.00108,40,5,0)
;;=93^VARIABLE-POINTER FILE #3^2
;;^DIST(.404,.00108,40,5,2)
;;=4,29^30^4,3
;;^DIST(.404,.00108,40,5,3)
;;=!M
;;^DIST(.404,.00108,40,5,3.1)
;;=D Y^DICATTD8(3,1)
;;^DIST(.404,.00108,40,5,20)
;;=P^^1:EOFIZM
;;^DIST(.404,.00108,40,5,24)
;;=D DICS^DICATTD8
;;^DIST(.404,.00108,40,6,0)
;;=93.1^ORDER...^2^^ORDER3
;;^DIST(.404,.00108,40,6,2)
;;=4,70^4^4,61^1
;;^DIST(.404,.00108,40,6,3)
;;=!M
;;^DIST(.404,.00108,40,6,3.1)
;;=D Y^DICATTD8(3,3)
;;^DIST(.404,.00108,40,6,10)
;;=S:X DICATTVP=3,DDSSTACK=8
;;^DIST(.404,.00108,40,6,20)
;;=N^^1:99:1
;;^DIST(.404,.00108,40,7,0)
;;=94.1^ORDER...^2^^ORDER4
;;^DIST(.404,.00108,40,7,2)
;;=5,70^4^5,61^1
;;^DIST(.404,.00108,40,7,3)
;;=!M
;;^DIST(.404,.00108,40,7,3.1)
;;=D Y^DICATTD8(4,3)
;;^DIST(.404,.00108,40,7,10)
;;=S:X DICATTVP=4,DDSSTACK=8
;;^DIST(.404,.00108,40,7,20)
;;=N^^1:99:1
;;^DIST(.404,.00108,40,8,0)
;;=95.1^ORDER...^2^^ORDER5
;;^DIST(.404,.00108,40,8,2)
;;=6,70^4^6,61^1
;;^DIST(.404,.00108,40,8,3)
;;=!M
;;^DIST(.404,.00108,40,8,3.1)
;;=D Y^DICATTD8(5,3)
;;^DIST(.404,.00108,40,8,10)
;;=S:X DICATTVP=5,DDSSTACK=8
;;^DIST(.404,.00108,40,8,20)
;;=N^^1:99:1
;;^DIST(.404,.00108,40,9,0)
;;=96.1^ORDER...^2^^ORDER6
;;^DIST(.404,.00108,40,9,2)
;;=7,70^4^7,61^1
;;^DIST(.404,.00108,40,9,3)
;;=!M
;;^DIST(.404,.00108,40,9,3.1)
;;=D Y^DICATTD8(6,3)
;;^DIST(.404,.00108,40,9,10)
;;=S:X DICATTVP=6,DDSSTACK=8
;;^DIST(.404,.00108,40,9,20)
;;=N^^1:99:1
;;^DIST(.404,.00108,40,10,0)
;;=97.1^ORDER...^2^^ORDER7
;;^DIST(.404,.00108,40,10,2)
;;=8,70^4^8,61^1
;;^DIST(.404,.00108,40,10,3)
;;=!M
;;^DIST(.404,.00108,40,10,3.1)
;;=D Y^DICATTD8(7,3)
;;^DIST(.404,.00108,40,10,10)
;;=S:X DICATTVP=7,DDSSTACK=8
;;^DIST(.404,.00108,40,10,20)
;;=N^^1:99:1
;;^DIST(.404,.00108,40,11,0)
;;=94^VARIABLE-POINTER FILE #4^2^^VP4
;;^DIST(.404,.00108,40,11,2)
;;=5,29^30^5,3
;;^DIST(.404,.00108,40,11,3)
;;=!M
;;^DIST(.404,.00108,40,11,3.1)
;;=D Y^DICATTD8(4,1)
;;^DIST(.404,.00108,40,11,20)
;;=P^^1:EOFIZM
;;^DIST(.404,.00108,40,11,24)
;;=D DICS^DICATTD8
;;^DIST(.404,.00108,40,12,0)
;;=95^VARIABLE-POINTER FILE #5^2^^VP 5
;;^DIST(.404,.00108,40,12,2)
;;=6,29^30^6,3
;;^DIST(.404,.00108,40,12,3)
;;=!M
;;^DIST(.404,.00108,40,12,3.1)
;;=D Y^DICATTD8(5,1)
;;^DIST(.404,.00108,40,12,20)
;;=P^^1:EOFIZM
;;^DIST(.404,.00108,40,12,24)
;;=D DICS^DICATTD8
;;^DIST(.404,.00108,40,13,0)
;;=96^VARIABLE-POINTER FILE #6^2^^VP 6
;;^DIST(.404,.00108,40,13,2)
;;=7,29^30^7,3
;;^DIST(.404,.00108,40,13,3)
;;=!M
;;^DIST(.404,.00108,40,13,3.1)
;;=D Y^DICATTD8(6,1)
;;^DIST(.404,.00108,40,13,20)
;;=P^^1:EOFIZM
;;^DIST(.404,.00108,40,13,24)
;;=D DICS^DICATTD8
;;^DIST(.404,.00108,40,14,0)
;;=97^VARIABLE-POINTER FILE #7^2^^VP 7
;;^DIST(.404,.00108,40,14,2)
;;=8,29^30^8,3
;;^DIST(.404,.00108,40,14,3)
;;=!M
;;^DIST(.404,.00108,40,14,3.1)
;;=D Y^DICATTD8(7,1)
;;^DIST(.404,.00108,40,14,20)
;;=P^^1:EOFIZM
;;^DIST(.404,.00108,40,14,24)
;;=D DICS^DICATTD8
;;^DIST(.404,.00109,0)
;;=DICATT3^1
;;^DIST(.404,.00109,40,0)
;;=^.4044I^26^26
;;^DIST(.404,.00109,40,1,0)
;;=35^CODE^2^^CODE1
;;^DIST(.404,.00109,40,1,2)
;;=2,8^4^2,2
;;^DIST(.404,.00109,40,1,3)
;;=!M
;;^DIST(.404,.00109,40,1,3.1)
;;=D Y^DICATTD3(1,1)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0F6 7371 printed Dec 13, 2024@02:50:15 Page 2
DINIT0F6 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;28JUN2010
+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 ^DINIT0F7
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.404,.00106,40,5,0)
+2 ;;=83^LENGTH OF FIELD^2^^LENGTH
+3 ;;^DIST(.404,.00106,40,5,2)
+4 ;;=8,19^3^8,2
+5 ;;^DIST(.404,.00106,40,5,3)
+6 ;;=!M
+7 ;;^DIST(.404,.00106,40,5,3.1)
+8 ;;=I DICATT2["J" S Y=+$P(DICATT2,"J",2)
+9 ;;^DIST(.404,.00106,40,5,20)
+10 ;;=N^^1:250:0
+11 ;;^DIST(.404,.00106,40,5,21,0)
+12 ;;=^^2^2^2981106
+13 ;;^DIST(.404,.00106,40,5,21,1,0)
+14 ;;=MAXIMUM NUMBER OF CHARACTERS
+15 ;;^DIST(.404,.00106,40,5,21,2,0)
+16 ;;= (not more than 250)
+17 ;;^DIST(.404,.00106,40,6,0)
+18 ;;=81^SHOULD VALUE ALWAYS BE ROUNDED^2^^ROUNDED
+19 ;;^DIST(.404,.00106,40,6,2)
+20 ;;=6,65^3^6,33
+21 ;;^DIST(.404,.00106,40,6,3)
+22 ;;=!M
+23 ;;^DIST(.404,.00106,40,6,3.1)
+24 ;;=I DICATT2[";" S Y=$E("NY",DICATT5[" S X=$J(X,0,"+1)
+25 ;;^DIST(.404,.00106,40,6,20)
+26 ;;=Y
+27 ;;^DIST(.404,.00106,40,7,0)
+28 ;;=82^WHEN TOTALLING, SHOULD SUMS BE SUMS OF COMPONENT FIELDS^2^^TOTALLING
+29 ;;^DIST(.404,.00106,40,7,2)
+30 ;;=7,65^3^7,8
+31 ;;^DIST(.404,.00106,40,7,3)
+32 ;;=!M
+33 ;;^DIST(.404,.00106,40,7,3.1)
+34 ;;=I $D(^DD(DICATTA,DICATTF,9.02)) S Y="Y"
+35 ;;^DIST(.404,.00106,40,7,20)
+36 ;;=Y
+37 ;;^DIST(.404,.00107,0)
+38 ;;=DICATT7^1
+39 ;;^DIST(.404,.00107,40,0)
+40 ;;=^.4044I^2^2
+41 ;;^DIST(.404,.00107,40,1,0)
+42 ;;=84^POINT TO WHICH FILE^2^^FILE
+43 ;;^DIST(.404,.00107,40,1,2)
+44 ;;=2,27^39^2,6
+45 ;;^DIST(.404,.00107,40,1,3)
+46 ;;=!M
+47 ;;^DIST(.404,.00107,40,1,3.1)
+48 ;;=S Y=$P($G(^DIC(+$P(DICATT2,"P",2),0)),U)
+49 ;;^DIST(.404,.00107,40,1,4)
+50 ;;=1
+51 ;;^DIST(.404,.00107,40,1,11)
+52 ;;=S:$G(DICATTSC)=7 DDACT="CL"
+53 ;;^DIST(.404,.00107,40,1,20)
+54 ;;=P^^1:EOFIZ
+55 ;;^DIST(.404,.00107,40,1,24)
+56 ;;=S DIR("S")="I Y-1.1 N DIFILE,DIAC S DIFILE=+Y,DIAC=""RD"" D ^DIAC I %"
+57 ;;^DIST(.404,.00107,40,2,0)
+58 ;;=85^SHALL 'ADDING A NEW FILE ENTRY ("LAYGO") BE ALLOWED^2^^LAYGO
+59 ;;^DIST(.404,.00107,40,2,2)
+60 ;;=4,59^3^4,6
+61 ;;^DIST(.404,.00107,40,2,3)
+62 ;;=!M
+63 ;;^DIST(.404,.00107,40,2,3.1)
+64 ;;=S Y="N" I DICATT2["P" S Y=$E("YN",DICATT2["'"+1)
+65 ;;^DIST(.404,.00107,40,2,14)
+66 ;;=N DIFILE,DIAC S DIAC="LAYGO",DIFILE=$$GET^DDSVALF(84,,,"I","") D ^DIAC I $P($G(^DD(DIFILE,0,"DI")),U,2)["Y"!'DIAC S DDSERROR=1 D HLP^DDSUTL("NO LAYGO-ING TO THIS FILE!")
+67 ;;^DIST(.404,.00107,40,2,20)
+68 ;;=Y
+69 ;;^DIST(.404,.00108,0)
+70 ;;=DICATT8^1
+71 ;;^DIST(.404,.00108,40,0)
+72 ;;=^.4044I^14^14
+73 ;;^DIST(.404,.00108,40,1,0)
+74 ;;=91^VARIABLE-POINTER FILE #1^2^^VP 1
+75 ;;^DIST(.404,.00108,40,1,2)
+76 ;;=2,29^30^2,3
+77 ;;^DIST(.404,.00108,40,1,3)
+78 ;;=!M
+79 ;;^DIST(.404,.00108,40,1,3.1)
+80 ;;=D Y^DICATTD8(1,1)
+81 ;;^DIST(.404,.00108,40,1,4)
+82 ;;=1
+83 ;;^DIST(.404,.00108,40,1,20)
+84 ;;=P^^1:EOFIZM
+85 ;;^DIST(.404,.00108,40,1,24)
+86 ;;=D DICS^DICATTD8
+87 ;;^DIST(.404,.00108,40,2,0)
+88 ;;=92^VARIABLE-POINTER FILE #2^2^^VP 2
+89 ;;^DIST(.404,.00108,40,2,2)
+90 ;;=3,29^30^3,3
+91 ;;^DIST(.404,.00108,40,2,3)
+92 ;;=!M
+93 ;;^DIST(.404,.00108,40,2,3.1)
+94 ;;=D Y^DICATTD8(2,1)
+95 ;;^DIST(.404,.00108,40,2,20)
+96 ;;=P^^1:EOFIZM
+97 ;;^DIST(.404,.00108,40,2,24)
+98 ;;=D DICS^DICATTD8
+99 ;;^DIST(.404,.00108,40,3,0)
+100 ;;=91.1^ORDER...^2^^ORDER1
+101 ;;^DIST(.404,.00108,40,3,2)
+102 ;;=2,70^4^2,61^1
+103 ;;^DIST(.404,.00108,40,3,3)
+104 ;;=!M
+105 ;;^DIST(.404,.00108,40,3,3.1)
+106 ;;=D Y^DICATTD8(1,3)
+107 ;;^DIST(.404,.00108,40,3,10)
+108 ;;=S:X DICATTVP=1,DDSSTACK=8
+109 ;;^DIST(.404,.00108,40,3,20)
+110 ;;=N^^1:99:1
+111 ;;^DIST(.404,.00108,40,4,0)
+112 ;;=92.1^ORDER...^2^^ORDER2
+113 ;;^DIST(.404,.00108,40,4,2)
+114 ;;=3,70^4^3,61^1
+115 ;;^DIST(.404,.00108,40,4,3)
+116 ;;=!M
+117 ;;^DIST(.404,.00108,40,4,3.1)
+118 ;;=D Y^DICATTD8(2,3)
+119 ;;^DIST(.404,.00108,40,4,10)
+120 ;;=S:X DICATTVP=2,DDSSTACK=8
+121 ;;^DIST(.404,.00108,40,4,20)
+122 ;;=N^^1:99:1
+123 ;;^DIST(.404,.00108,40,5,0)
+124 ;;=93^VARIABLE-POINTER FILE #3^2
+125 ;;^DIST(.404,.00108,40,5,2)
+126 ;;=4,29^30^4,3
+127 ;;^DIST(.404,.00108,40,5,3)
+128 ;;=!M
+129 ;;^DIST(.404,.00108,40,5,3.1)
+130 ;;=D Y^DICATTD8(3,1)
+131 ;;^DIST(.404,.00108,40,5,20)
+132 ;;=P^^1:EOFIZM
+133 ;;^DIST(.404,.00108,40,5,24)
+134 ;;=D DICS^DICATTD8
+135 ;;^DIST(.404,.00108,40,6,0)
+136 ;;=93.1^ORDER...^2^^ORDER3
+137 ;;^DIST(.404,.00108,40,6,2)
+138 ;;=4,70^4^4,61^1
+139 ;;^DIST(.404,.00108,40,6,3)
+140 ;;=!M
+141 ;;^DIST(.404,.00108,40,6,3.1)
+142 ;;=D Y^DICATTD8(3,3)
+143 ;;^DIST(.404,.00108,40,6,10)
+144 ;;=S:X DICATTVP=3,DDSSTACK=8
+145 ;;^DIST(.404,.00108,40,6,20)
+146 ;;=N^^1:99:1
+147 ;;^DIST(.404,.00108,40,7,0)
+148 ;;=94.1^ORDER...^2^^ORDER4
+149 ;;^DIST(.404,.00108,40,7,2)
+150 ;;=5,70^4^5,61^1
+151 ;;^DIST(.404,.00108,40,7,3)
+152 ;;=!M
+153 ;;^DIST(.404,.00108,40,7,3.1)
+154 ;;=D Y^DICATTD8(4,3)
+155 ;;^DIST(.404,.00108,40,7,10)
+156 ;;=S:X DICATTVP=4,DDSSTACK=8
+157 ;;^DIST(.404,.00108,40,7,20)
+158 ;;=N^^1:99:1
+159 ;;^DIST(.404,.00108,40,8,0)
+160 ;;=95.1^ORDER...^2^^ORDER5
+161 ;;^DIST(.404,.00108,40,8,2)
+162 ;;=6,70^4^6,61^1
+163 ;;^DIST(.404,.00108,40,8,3)
+164 ;;=!M
+165 ;;^DIST(.404,.00108,40,8,3.1)
+166 ;;=D Y^DICATTD8(5,3)
+167 ;;^DIST(.404,.00108,40,8,10)
+168 ;;=S:X DICATTVP=5,DDSSTACK=8
+169 ;;^DIST(.404,.00108,40,8,20)
+170 ;;=N^^1:99:1
+171 ;;^DIST(.404,.00108,40,9,0)
+172 ;;=96.1^ORDER...^2^^ORDER6
+173 ;;^DIST(.404,.00108,40,9,2)
+174 ;;=7,70^4^7,61^1
+175 ;;^DIST(.404,.00108,40,9,3)
+176 ;;=!M
+177 ;;^DIST(.404,.00108,40,9,3.1)
+178 ;;=D Y^DICATTD8(6,3)
+179 ;;^DIST(.404,.00108,40,9,10)
+180 ;;=S:X DICATTVP=6,DDSSTACK=8
+181 ;;^DIST(.404,.00108,40,9,20)
+182 ;;=N^^1:99:1
+183 ;;^DIST(.404,.00108,40,10,0)
+184 ;;=97.1^ORDER...^2^^ORDER7
+185 ;;^DIST(.404,.00108,40,10,2)
+186 ;;=8,70^4^8,61^1
+187 ;;^DIST(.404,.00108,40,10,3)
+188 ;;=!M
+189 ;;^DIST(.404,.00108,40,10,3.1)
+190 ;;=D Y^DICATTD8(7,3)
+191 ;;^DIST(.404,.00108,40,10,10)
+192 ;;=S:X DICATTVP=7,DDSSTACK=8
+193 ;;^DIST(.404,.00108,40,10,20)
+194 ;;=N^^1:99:1
+195 ;;^DIST(.404,.00108,40,11,0)
+196 ;;=94^VARIABLE-POINTER FILE #4^2^^VP4
+197 ;;^DIST(.404,.00108,40,11,2)
+198 ;;=5,29^30^5,3
+199 ;;^DIST(.404,.00108,40,11,3)
+200 ;;=!M
+201 ;;^DIST(.404,.00108,40,11,3.1)
+202 ;;=D Y^DICATTD8(4,1)
+203 ;;^DIST(.404,.00108,40,11,20)
+204 ;;=P^^1:EOFIZM
+205 ;;^DIST(.404,.00108,40,11,24)
+206 ;;=D DICS^DICATTD8
+207 ;;^DIST(.404,.00108,40,12,0)
+208 ;;=95^VARIABLE-POINTER FILE #5^2^^VP 5
+209 ;;^DIST(.404,.00108,40,12,2)
+210 ;;=6,29^30^6,3
+211 ;;^DIST(.404,.00108,40,12,3)
+212 ;;=!M
+213 ;;^DIST(.404,.00108,40,12,3.1)
+214 ;;=D Y^DICATTD8(5,1)
+215 ;;^DIST(.404,.00108,40,12,20)
+216 ;;=P^^1:EOFIZM
+217 ;;^DIST(.404,.00108,40,12,24)
+218 ;;=D DICS^DICATTD8
+219 ;;^DIST(.404,.00108,40,13,0)
+220 ;;=96^VARIABLE-POINTER FILE #6^2^^VP 6
+221 ;;^DIST(.404,.00108,40,13,2)
+222 ;;=7,29^30^7,3
+223 ;;^DIST(.404,.00108,40,13,3)
+224 ;;=!M
+225 ;;^DIST(.404,.00108,40,13,3.1)
+226 ;;=D Y^DICATTD8(6,1)
+227 ;;^DIST(.404,.00108,40,13,20)
+228 ;;=P^^1:EOFIZM
+229 ;;^DIST(.404,.00108,40,13,24)
+230 ;;=D DICS^DICATTD8
+231 ;;^DIST(.404,.00108,40,14,0)
+232 ;;=97^VARIABLE-POINTER FILE #7^2^^VP 7
+233 ;;^DIST(.404,.00108,40,14,2)
+234 ;;=8,29^30^8,3
+235 ;;^DIST(.404,.00108,40,14,3)
+236 ;;=!M
+237 ;;^DIST(.404,.00108,40,14,3.1)
+238 ;;=D Y^DICATTD8(7,1)
+239 ;;^DIST(.404,.00108,40,14,20)
+240 ;;=P^^1:EOFIZM
+241 ;;^DIST(.404,.00108,40,14,24)
+242 ;;=D DICS^DICATTD8
+243 ;;^DIST(.404,.00109,0)
+244 ;;=DICATT3^1
+245 ;;^DIST(.404,.00109,40,0)
+246 ;;=^.4044I^26^26
+247 ;;^DIST(.404,.00109,40,1,0)
+248 ;;=35^CODE^2^^CODE1
+249 ;;^DIST(.404,.00109,40,1,2)
+250 ;;=2,8^4^2,2
+251 ;;^DIST(.404,.00109,40,1,3)
+252 ;;=!M
+253 ;;^DIST(.404,.00109,40,1,3.1)
+254 ;;=D Y^DICATTD3(1,1)
