DINIT0FA ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;8:28 AM 18 Jan 2000 [ 04/02/2003 8:25 AM ]
;;22.0;VA FileMan;**1001**;APR 1, 2003
;;22.0;VA FileMan;**20**;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="" ^DINIT0FB S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.110101,40,10,0)
;;=2^Root File^3
;;^DIST(.404,.110101,40,10,1)
;;=.51
;;^DIST(.404,.110101,40,10,2)
;;=1,60^20^1,49
;;^DIST(.404,.110101,40,10,4)
;;=^^^1
;;^DIST(.404,.110101,40,11,0)
;;=4^Root Type^3
;;^DIST(.404,.110101,40,11,1)
;;=.5
;;^DIST(.404,.110101,40,11,2)
;;=2,60^16^2,49
;;^DIST(.404,.110101,40,11,4)
;;=^^^1
;;^DIST(.404,.110101,40,14,0)
;;=7^!M^1
;;^DIST(.404,.110101,40,14,.1)
;;=N WPROOT S WPROOT=$$GET^DDSVAL(.11,.DA,.1),Y=$S(WPROOT]"":$G(@WPROOT@(1,0)),1:""),Y=$S(Y]"":"["_$E(Y,1,56)_"]",1:"(empty)")
;;^DIST(.404,.110101,40,14,2)
;;=^^5,23
;;^DIST(.404,.110102,0)
;;=DIKC EDIT HDR 1^.11
;;^DIST(.404,.110102,40,0)
;;=^.4044I^4^4
;;^DIST(.404,.110102,40,1,0)
;;=1^EDIT AN INDEX^1
;;^DIST(.404,.110102,40,1,2)
;;=^^1,34
;;^DIST(.404,.110102,40,2,0)
;;=2^Number^4
;;^DIST(.404,.110102,40,2,2)
;;=1,9^15^1,1
;;^DIST(.404,.110102,40,2,30)
;;=S Y=DA
;;^DIST(.404,.110102,40,3,0)
;;=3^Page 1 of 2^1
;;^DIST(.404,.110102,40,3,2)
;;=^^1,69
;;^DIST(.404,.110102,40,4,0)
;;=4^-------------------------------------------------------------------------------^1
;;^DIST(.404,.110102,40,4,2)
;;=^^2,1
;;^DIST(.404,.110103,0)
;;=DIKC EDIT LOGIC^.11
;;^DIST(.404,.110103,40,0)
;;=^.4044I^28^5
;;^DIST(.404,.110103,40,1,0)
;;=1^Set Logic^3
;;^DIST(.404,.110103,40,1,1)
;;=1.1
;;^DIST(.404,.110103,40,1,2)
;;=3,13^67^3,2
;;^DIST(.404,.110103,40,1,14)
;;=D VALLOG^DIKCFORM
;;^DIST(.404,.110103,40,2,0)
;;=2^Kill Logic^3
;;^DIST(.404,.110103,40,2,1)
;;=2.1
;;^DIST(.404,.110103,40,2,2)
;;=4,13^67^4,1
;;^DIST(.404,.110103,40,2,14)
;;=D VALLOG^DIKCFORM
;;^DIST(.404,.110103,40,18,0)
;;=3^Whole Kill^3
;;^DIST(.404,.110103,40,18,1)
;;=2.5
;;^DIST(.404,.110103,40,18,2)
;;=5,13^67^5,1
;;^DIST(.404,.110103,40,18,14)
;;=D VALLOG^DIKCFORM
;;^DIST(.404,.110103,40,27,0)
;;=8^Set Condition^3
;;^DIST(.404,.110103,40,27,1)
;;=1.4
;;^DIST(.404,.110103,40,27,2)
;;=7,17^63^7,2
;;^DIST(.404,.110103,40,27,14)
;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Set Condition.")
;;^DIST(.404,.110103,40,28,0)
;;=9^Kill Condition^3
;;^DIST(.404,.110103,40,28,1)
;;=2.4
;;^DIST(.404,.110103,40,28,2)
;;=8,17^63^8,1
;;^DIST(.404,.110103,40,28,14)
;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Kill Condition.")
;;^DIST(.404,.110104,0)
;;=DIKC EDIT CRV^.114
;;^DIST(.404,.110104,40,0)
;;=^.4044I^5^5
;;^DIST(.404,.110104,40,1,0)
;;=1^^3^^ORDER
;;^DIST(.404,.110104,40,1,1)
;;=.01
;;^DIST(.404,.110104,40,1,2)
;;=1,3^3
;;^DIST(.404,.110104,40,1,10)
;;=S DDSSTACK=$S($$GET^DDSVAL(.114,.DA,1)="F":2.1,1:2.2)
;;^DIST(.404,.110104,40,1,13)
;;=D:DDSOLD'="" BLDLOG^DIKCFORM(DA(1))
;;^DIST(.404,.110104,40,2,0)
;;=2^^3
;;^DIST(.404,.110104,40,2,1)
;;=.5
;;^DIST(.404,.110104,40,2,2)
;;=1,12^3
;;^DIST(.404,.110104,40,2,13)
;;=D BLDLOG^DIKCFORM(DA(1))
;;^DIST(.404,.110104,40,3,0)
;;=3^^3
;;^DIST(.404,.110104,40,3,1)
;;=1
;;^DIST(.404,.110104,40,3,2)
;;=1,19^8
;;^DIST(.404,.110104,40,3,10)
;;=S:X'=DDSOLD DDSSTACK=$S(X="F":2.1,1:2.2)
;;^DIST(.404,.110104,40,3,13)
;;=D CRVTYPE^DIKCFORM
;;^DIST(.404,.110104,40,4,0)
;;=5^^4
;;^DIST(.404,.110104,40,4,2)
;;=1,36^43
;;^DIST(.404,.110104,40,4,30)
;;=N FIL,FLD,TYP S TYP={TYPE OF VALUE;I} S:TYP="F" FIL=+{FILE},FLD=+{FIELD},Y=$S('FIL!'FLD:"",$P($G(^DD(FIL,FLD,0)),U)="":"",1:$P(^(0),U)_" (#"_FLD_")") S:TYP="C" Y={COMPUTED CODE} S:$L($G(Y))>43 Y=$E(Y,1,40)_"..."
;;^DIST(.404,.110104,40,5,0)
;;=4^^3
;;^DIST(.404,.110104,40,5,1)
;;=6
;;^DIST(.404,.110104,40,5,2)
;;=1,29^3
;;^DIST(.404,.110104,40,5,13)
;;=D:$$GET^DDSVAL(.114,.DA,.5) BLDLOG^DIKCFORM(DA(1))
;;^DIST(.404,.110105,0)
;;=DIKC EDIT CRV HDR^.11
;;^DIST(.404,.110105,40,0)
;;=^.4044I^12^11
;;^DIST(.404,.110105,40,1,0)
;;=1^CROSS-REFERENCE VALUES:^1
;;^DIST(.404,.110105,40,1,2)
;;=^^1,1
;;^DIST(.404,.110105,40,3,0)
;;=2^Order...^1
;;^DIST(.404,.110105,40,3,2)
;;=^^2,2
;;^DIST(.404,.110105,40,4,0)
;;=7^--------^1
;;^DIST(.404,.110105,40,4,2)
;;=^^3,2
;;^DIST(.404,.110105,40,5,0)
;;=3^Subscr^1
;;^DIST(.404,.110105,40,5,2)
;;=^^2,12
;;^DIST(.404,.110105,40,6,0)
;;=8^------^1
;;^DIST(.404,.110105,40,6,2)
;;=^^3,12
;;^DIST(.404,.110105,40,7,0)
;;=4^Type^1
;;^DIST(.404,.110105,40,7,2)
;;=^^2,20
;;^DIST(.404,.110105,40,8,0)
;;=9^----^1
;;^DIST(.404,.110105,40,8,2)
;;=^^3,20
;;^DIST(.404,.110105,40,9,0)
;;=6^Field or Computed Expression^1
;;^DIST(.404,.110105,40,9,2)
;;=^^2,37
;;^DIST(.404,.110105,40,10,0)
;;=11^-------------------------------------^1
;;^DIST(.404,.110105,40,10,2)
;;=^^3,37
;;^DIST(.404,.110105,40,11,0)
;;=5^Length^1
;;^DIST(.404,.110105,40,11,2)
;;=^^2,29
;;^DIST(.404,.110105,40,12,0)
;;=10^------^1
;;^DIST(.404,.110105,40,12,2)
;;=^^3,29
;;^DIST(.404,.110106,0)
;;=DIKC EDIT HDR 2^.11
;;^DIST(.404,.110106,40,0)
;;=^.4044I^4^4
;;^DIST(.404,.110106,40,1,0)
;;=1^Number^4
;;^DIST(.404,.110106,40,1,2)
;;=1,9^15^1,1
;;^DIST(.404,.110106,40,1,30)
;;=S Y=DA
;;^DIST(.404,.110106,40,2,0)
;;=2^EDIT AN INDEX^1
;;^DIST(.404,.110106,40,2,2)
;;=^^1,34
;;^DIST(.404,.110106,40,3,0)
;;=3^Page 2 of 2^1
;;^DIST(.404,.110106,40,3,2)
;;=^^1,69
;;^DIST(.404,.110106,40,4,0)
;;=4^-------------------------------------------------------------------------------^1
;;^DIST(.404,.110106,40,4,2)
;;=^^2,1
;;^DIST(.404,.110107,0)
;;=DIKC EDIT FIELD CRV^.114
;;^DIST(.404,.110107,40,0)
;;=^.4044I^12^12
;;^DIST(.404,.110107,40,1,0)
;;=1^ Field-Type Cross Reference Value ^1
;;^DIST(.404,.110107,40,1,2)
;;=^^1,23
;;^DIST(.404,.110107,40,2,0)
;;=2^Order Number^3
;;^DIST(.404,.110107,40,2,1)
;;=.01
;;^DIST(.404,.110107,40,2,2)
;;=3,18^3^3,4
;;^DIST(.404,.110107,40,2,11)
;;=I $G(DIKCPG21),$$GET^DDSVAL(DIE,.DA,3)="" S DDSBR="FIELD" K DIKCPG21
;;^DIST(.404,.110107,40,2,13)
;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
;;^DIST(.404,.110107,40,3,0)
;;=3^Subscript Number^3
;;^DIST(.404,.110107,40,3,1)
;;=.5
;;^DIST(.404,.110107,40,3,2)
;;=3,58^3^3,40
;;^DIST(.404,.110107,40,3,3)
;;=!M
;;^DIST(.404,.110107,40,3,3.1)
;;=S Y=$S($$GET^DDSVAL(.11,DA(1),.2)="R":$$GET^DDSVAL(.114,.DA,.01),1:"")
;;^DIST(.404,.110107,40,3,13)
;;=I X=""!(DDSOLD="") S DIKCCRV=1 D:X="" PUT^DDSVAL(.114,.DA,6) I DDSOLD="" N DIKCTYPE S DIKCTYPE=$P($G(^DD(+$$GET^DDSVAL(.114,.DA,2),+$$GET^DDSVAL(.114,.DA,3),0)),U,2) D:DIKCTYPE["F"!(DIKCTYPE["K") PUT^DDSVAL(.114,.DA,6,30)
;;^DIST(.404,.110107,40,4,0)
;;=10^Transform for Storage^3
;;^DIST(.404,.110107,40,4,1)
;;=5
;;^DIST(.404,.110107,40,4,2)
;;=9,25^53^9,2
;;^DIST(.404,.110107,40,4,13)
;;=D TRANS^DIKCFORM
DINIT0FA ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;8:28 AM 18 Jan 2000 [ 04/02/2003 8:25 AM ]
+1 ;;22.0;VA FileMan;**1001**;APR 1, 2003
+2 ;;22.0;VA FileMan;**20**;Mar 30, 1999
+3 ;Per VHA Directive 10-93-142, this routine should not be modified.
+4 FOR I=1:2
SET X=$TEXT(ENTRY+I)
IF X=""
GOTO ^DINIT0FB
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+5 QUIT
ENTRY ;
+1 ;;^DIST(.404,.110101,40,10,0)
+2 ;;=2^Root File^3
+3 ;;^DIST(.404,.110101,40,10,1)
+4 ;;=.51
+5 ;;^DIST(.404,.110101,40,10,2)
+6 ;;=1,60^20^1,49
+7 ;;^DIST(.404,.110101,40,10,4)
+8 ;;=^^^1
+9 ;;^DIST(.404,.110101,40,11,0)
+10 ;;=4^Root Type^3
+11 ;;^DIST(.404,.110101,40,11,1)
+12 ;;=.5
+13 ;;^DIST(.404,.110101,40,11,2)
+14 ;;=2,60^16^2,49
+15 ;;^DIST(.404,.110101,40,11,4)
+16 ;;=^^^1
+17 ;;^DIST(.404,.110101,40,14,0)
+18 ;;=7^!M^1
+19 ;;^DIST(.404,.110101,40,14,.1)
+20 ;;=N WPROOT S WPROOT=$$GET^DDSVAL(.11,.DA,.1),Y=$S(WPROOT]"":$G(@WPROOT@(1,0)),1:""),Y=$S(Y]"":"["_$E(Y,1,56)_"]",1:"(empty)")
+21 ;;^DIST(.404,.110101,40,14,2)
+22 ;;=^^5,23
+23 ;;^DIST(.404,.110102,0)
+24 ;;=DIKC EDIT HDR 1^.11
+25 ;;^DIST(.404,.110102,40,0)
+26 ;;=^.4044I^4^4
+27 ;;^DIST(.404,.110102,40,1,0)
+28 ;;=1^EDIT AN INDEX^1
+29 ;;^DIST(.404,.110102,40,1,2)
+30 ;;=^^1,34
+31 ;;^DIST(.404,.110102,40,2,0)
+32 ;;=2^Number^4
+33 ;;^DIST(.404,.110102,40,2,2)
+34 ;;=1,9^15^1,1
+35 ;;^DIST(.404,.110102,40,2,30)
+36 ;;=S Y=DA
+37 ;;^DIST(.404,.110102,40,3,0)
+38 ;;=3^Page 1 of 2^1
+39 ;;^DIST(.404,.110102,40,3,2)
+40 ;;=^^1,69
+41 ;;^DIST(.404,.110102,40,4,0)
+42 ;;=4^-------------------------------------------------------------------------------^1
+43 ;;^DIST(.404,.110102,40,4,2)
+44 ;;=^^2,1
+45 ;;^DIST(.404,.110103,0)
+46 ;;=DIKC EDIT LOGIC^.11
+47 ;;^DIST(.404,.110103,40,0)
+48 ;;=^.4044I^28^5
+49 ;;^DIST(.404,.110103,40,1,0)
+50 ;;=1^Set Logic^3
+51 ;;^DIST(.404,.110103,40,1,1)
+52 ;;=1.1
+53 ;;^DIST(.404,.110103,40,1,2)
+54 ;;=3,13^67^3,2
+55 ;;^DIST(.404,.110103,40,1,14)
+56 ;;=D VALLOG^DIKCFORM
+57 ;;^DIST(.404,.110103,40,2,0)
+58 ;;=2^Kill Logic^3
+59 ;;^DIST(.404,.110103,40,2,1)
+60 ;;=2.1
+61 ;;^DIST(.404,.110103,40,2,2)
+62 ;;=4,13^67^4,1
+63 ;;^DIST(.404,.110103,40,2,14)
+64 ;;=D VALLOG^DIKCFORM
+65 ;;^DIST(.404,.110103,40,18,0)
+66 ;;=3^Whole Kill^3
+67 ;;^DIST(.404,.110103,40,18,1)
+68 ;;=2.5
+69 ;;^DIST(.404,.110103,40,18,2)
+70 ;;=5,13^67^5,1
+71 ;;^DIST(.404,.110103,40,18,14)
+72 ;;=D VALLOG^DIKCFORM
+73 ;;^DIST(.404,.110103,40,27,0)
+74 ;;=8^Set Condition^3
+75 ;;^DIST(.404,.110103,40,27,1)
+76 ;;=1.4
+77 ;;^DIST(.404,.110103,40,27,2)
+78 ;;=7,17^63^7,2
+79 ;;^DIST(.404,.110103,40,27,14)
+80 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Set Condition.")
+81 ;;^DIST(.404,.110103,40,28,0)
+82 ;;=9^Kill Condition^3
+83 ;;^DIST(.404,.110103,40,28,1)
+84 ;;=2.4
+85 ;;^DIST(.404,.110103,40,28,2)
+86 ;;=8,17^63^8,1
+87 ;;^DIST(.404,.110103,40,28,14)
+88 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Kill Condition.")
+89 ;;^DIST(.404,.110104,0)
+90 ;;=DIKC EDIT CRV^.114
+91 ;;^DIST(.404,.110104,40,0)
+92 ;;=^.4044I^5^5
+93 ;;^DIST(.404,.110104,40,1,0)
+94 ;;=1^^3^^ORDER
+95 ;;^DIST(.404,.110104,40,1,1)
+96 ;;=.01
+97 ;;^DIST(.404,.110104,40,1,2)
+98 ;;=1,3^3
+99 ;;^DIST(.404,.110104,40,1,10)
+100 ;;=S DDSSTACK=$S($$GET^DDSVAL(.114,.DA,1)="F":2.1,1:2.2)
+101 ;;^DIST(.404,.110104,40,1,13)
+102 ;;=D:DDSOLD'="" BLDLOG^DIKCFORM(DA(1))
+103 ;;^DIST(.404,.110104,40,2,0)
+104 ;;=2^^3
+105 ;;^DIST(.404,.110104,40,2,1)
+106 ;;=.5
+107 ;;^DIST(.404,.110104,40,2,2)
+108 ;;=1,12^3
+109 ;;^DIST(.404,.110104,40,2,13)
+110 ;;=D BLDLOG^DIKCFORM(DA(1))
+111 ;;^DIST(.404,.110104,40,3,0)
+112 ;;=3^^3
+113 ;;^DIST(.404,.110104,40,3,1)
+114 ;;=1
+115 ;;^DIST(.404,.110104,40,3,2)
+116 ;;=1,19^8
+117 ;;^DIST(.404,.110104,40,3,10)
+118 ;;=S:X'=DDSOLD DDSSTACK=$S(X="F":2.1,1:2.2)
+119 ;;^DIST(.404,.110104,40,3,13)
+120 ;;=D CRVTYPE^DIKCFORM
+121 ;;^DIST(.404,.110104,40,4,0)
+122 ;;=5^^4
+123 ;;^DIST(.404,.110104,40,4,2)
+124 ;;=1,36^43
+125 ;;^DIST(.404,.110104,40,4,30)
+126 ;;=N FIL,FLD,TYP S TYP={TYPE OF VALUE;I} S:TYP="F" FIL=+{FILE},FLD=+{FIELD},Y=$S('FIL!'FLD:"",$P($G(^DD(FIL,FLD,0)),U)="":"",1:$P(^(0),U)_" (#"_FLD_")") S:TYP="C" Y={COMPUTED CODE} S:$L($G(Y))>43 Y=$E(Y,1,40)_"..."
+127 ;;^DIST(.404,.110104,40,5,0)
+128 ;;=4^^3
+129 ;;^DIST(.404,.110104,40,5,1)
+130 ;;=6
+131 ;;^DIST(.404,.110104,40,5,2)
+132 ;;=1,29^3
+133 ;;^DIST(.404,.110104,40,5,13)
+134 ;;=D:$$GET^DDSVAL(.114,.DA,.5) BLDLOG^DIKCFORM(DA(1))
+135 ;;^DIST(.404,.110105,0)
+136 ;;=DIKC EDIT CRV HDR^.11
+137 ;;^DIST(.404,.110105,40,0)
+138 ;;=^.4044I^12^11
+139 ;;^DIST(.404,.110105,40,1,0)
+140 ;;=1^CROSS-REFERENCE VALUES:^1
+141 ;;^DIST(.404,.110105,40,1,2)
+142 ;;=^^1,1
+143 ;;^DIST(.404,.110105,40,3,0)
+144 ;;=2^Order...^1
+145 ;;^DIST(.404,.110105,40,3,2)
+146 ;;=^^2,2
+147 ;;^DIST(.404,.110105,40,4,0)
+148 ;;=7^--------^1
+149 ;;^DIST(.404,.110105,40,4,2)
+150 ;;=^^3,2
+151 ;;^DIST(.404,.110105,40,5,0)
+152 ;;=3^Subscr^1
+153 ;;^DIST(.404,.110105,40,5,2)
+154 ;;=^^2,12
+155 ;;^DIST(.404,.110105,40,6,0)
+156 ;;=8^------^1
+157 ;;^DIST(.404,.110105,40,6,2)
+158 ;;=^^3,12
+159 ;;^DIST(.404,.110105,40,7,0)
+160 ;;=4^Type^1
+161 ;;^DIST(.404,.110105,40,7,2)
+162 ;;=^^2,20
+163 ;;^DIST(.404,.110105,40,8,0)
+164 ;;=9^----^1
+165 ;;^DIST(.404,.110105,40,8,2)
+166 ;;=^^3,20
+167 ;;^DIST(.404,.110105,40,9,0)
+168 ;;=6^Field or Computed Expression^1
+169 ;;^DIST(.404,.110105,40,9,2)
+170 ;;=^^2,37
+171 ;;^DIST(.404,.110105,40,10,0)
+172 ;;=11^-------------------------------------^1
+173 ;;^DIST(.404,.110105,40,10,2)
+174 ;;=^^3,37
+175 ;;^DIST(.404,.110105,40,11,0)
+176 ;;=5^Length^1
+177 ;;^DIST(.404,.110105,40,11,2)
+178 ;;=^^2,29
+179 ;;^DIST(.404,.110105,40,12,0)
+180 ;;=10^------^1
+181 ;;^DIST(.404,.110105,40,12,2)
+182 ;;=^^3,29
+183 ;;^DIST(.404,.110106,0)
+184 ;;=DIKC EDIT HDR 2^.11
+185 ;;^DIST(.404,.110106,40,0)
+186 ;;=^.4044I^4^4
+187 ;;^DIST(.404,.110106,40,1,0)
+188 ;;=1^Number^4
+189 ;;^DIST(.404,.110106,40,1,2)
+190 ;;=1,9^15^1,1
+191 ;;^DIST(.404,.110106,40,1,30)
+192 ;;=S Y=DA
+193 ;;^DIST(.404,.110106,40,2,0)
+194 ;;=2^EDIT AN INDEX^1
+195 ;;^DIST(.404,.110106,40,2,2)
+196 ;;=^^1,34
+197 ;;^DIST(.404,.110106,40,3,0)
+198 ;;=3^Page 2 of 2^1
+199 ;;^DIST(.404,.110106,40,3,2)
+200 ;;=^^1,69
+201 ;;^DIST(.404,.110106,40,4,0)
+202 ;;=4^-------------------------------------------------------------------------------^1
+203 ;;^DIST(.404,.110106,40,4,2)
+204 ;;=^^2,1
+205 ;;^DIST(.404,.110107,0)
+206 ;;=DIKC EDIT FIELD CRV^.114
+207 ;;^DIST(.404,.110107,40,0)
+208 ;;=^.4044I^12^12
+209 ;;^DIST(.404,.110107,40,1,0)
+210 ;;=1^ Field-Type Cross Reference Value ^1
+211 ;;^DIST(.404,.110107,40,1,2)
+212 ;;=^^1,23
+213 ;;^DIST(.404,.110107,40,2,0)
+214 ;;=2^Order Number^3
+215 ;;^DIST(.404,.110107,40,2,1)
+216 ;;=.01
+217 ;;^DIST(.404,.110107,40,2,2)
+218 ;;=3,18^3^3,4
+219 ;;^DIST(.404,.110107,40,2,11)
+220 ;;=I $G(DIKCPG21),$$GET^DDSVAL(DIE,.DA,3)="" S DDSBR="FIELD" K DIKCPG21
+221 ;;^DIST(.404,.110107,40,2,13)
+222 ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
+223 ;;^DIST(.404,.110107,40,3,0)
+224 ;;=3^Subscript Number^3
+225 ;;^DIST(.404,.110107,40,3,1)
+226 ;;=.5
+227 ;;^DIST(.404,.110107,40,3,2)
+228 ;;=3,58^3^3,40
+229 ;;^DIST(.404,.110107,40,3,3)
+230 ;;=!M
+231 ;;^DIST(.404,.110107,40,3,3.1)
+232 ;;=S Y=$S($$GET^DDSVAL(.11,DA(1),.2)="R":$$GET^DDSVAL(.114,.DA,.01),1:"")
+233 ;;^DIST(.404,.110107,40,3,13)
+234 ;;=I X=""!(DDSOLD="") S DIKCCRV=1 D:X="" PUT^DDSVAL(.114,.DA,6) I DDSOLD="" N DIKCTYPE S DIKCTYPE=$P($G(^DD(+$$GET^DDSVAL(.114,.DA,2),+$$GET^DDSVAL(.114,.DA,3),0)),U,2) D:DIKCTYPE["F"!(DIKCTYPE["K") PUT^DDSVAL(.114,.DA,6,30)
+235 ;;^DIST(.404,.110107,40,4,0)
+236 ;;=10^Transform for Storage^3
+237 ;;^DIST(.404,.110107,40,4,1)
+238 ;;=5
+239 ;;^DIST(.404,.110107,40,4,2)
+240 ;;=9,25^53^9,2
+241 ;;^DIST(.404,.110107,40,4,13)
+242 ;;=D TRANS^DIKCFORM
