DINIT0FB ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;8:34 AM 18 Jan 2000
;;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="" ^DINIT0FC S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.110107,40,4,14)
;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Storage.")
;;^DIST(.404,.110107,40,5,0)
;;=7^Maximum Length^3
;;^DIST(.404,.110107,40,5,1)
;;=6
;;^DIST(.404,.110107,40,5,2)
;;=7,18^3^7,2
;;^DIST(.404,.110107,40,5,13)
;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
;;^DIST(.404,.110107,40,6,0)
;;=8^Collation^3
;;^DIST(.404,.110107,40,6,1)
;;=7
;;^DIST(.404,.110107,40,6,2)
;;=7,58^9^7,47
;;^DIST(.404,.110107,40,6,3)
;;=forwards
;;^DIST(.404,.110107,40,7,0)
;;=9^Lookup Prompt^3
;;^DIST(.404,.110107,40,7,1)
;;=8
;;^DIST(.404,.110107,40,7,2)
;;=8,18^30^8,3
;;^DIST(.404,.110107,40,8,0)
;;=5^File^3
;;^DIST(.404,.110107,40,8,1)
;;=2
;;^DIST(.404,.110107,40,8,2)
;;=4,58^20^4,52
;;^DIST(.404,.110107,40,8,3)
;;=!M
;;^DIST(.404,.110107,40,8,3.1)
;;=S Y=$$GET^DDSVAL(.11,DA(1),.51)
;;^DIST(.404,.110107,40,8,4)
;;=1^^^1
;;^DIST(.404,.110107,40,8,14)
;;=N RF S RF=$$GET^DDSVAL(.11,DA(1),.51) I X'=RF S DDSERROR=1 D HLP^DDSUTL("This File number must equal the Root File number: "_RF_".")
;;^DIST(.404,.110107,40,9,0)
;;=4^Field^3^^FIELD
;;^DIST(.404,.110107,40,9,1)
;;=3
;;^DIST(.404,.110107,40,9,2)
;;=4,18^20^4,11
;;^DIST(.404,.110107,40,9,4)
;;=1
;;^DIST(.404,.110107,40,9,13)
;;=S:X=""!(DDSOLD="") DIKCCRV=1 I $$GET^DDSVAL(.114,.DA,.5) N DIKCTYPE S DIKCTYPE=$P($G(^DD($$GET^DDSVAL(.114,.DA,2),+X,0)),U,2) D PUT^DDSVAL(.114,.DA,6,$S(DIKCTYPE["F"!(DIKCTYPE["K"):30,1:""),"","I")
;;^DIST(.404,.110107,40,10,0)
;;=6^Field Name^4
;;^DIST(.404,.110107,40,10,2)
;;=5,18^60^5,6
;;^DIST(.404,.110107,40,10,30)
;;=N DIKCFIL,DIKCFLD S Y="",DIKCFIL=+{FILE},DIKCFLD=+{FIELD} I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_"..."
;;^DIST(.404,.110107,40,11,0)
;;=12^Transform for Display^3^^TRANSFORM FOR DISPLAY
;;^DIST(.404,.110107,40,11,1)
;;=5.5
;;^DIST(.404,.110107,40,11,2)
;;=11,25^53^11,2
;;^DIST(.404,.110107,40,11,14)
;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Display.")
;;^DIST(.404,.110107,40,12,0)
;;=11^Transform for Lookup^3
;;^DIST(.404,.110107,40,12,1)
;;=5.3
;;^DIST(.404,.110107,40,12,2)
;;=10,25^53^10,3
;;^DIST(.404,.110107,40,12,14)
;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Lookup.")
;;^DIST(.404,.110108,0)
;;=DIKC EDIT COMPUTED CRV^.114
;;^DIST(.404,.110108,40,0)
;;=^.4044I^8^7
;;^DIST(.404,.110108,40,1,0)
;;=1^ Computed-Type Cross Reference Value ^1
;;^DIST(.404,.110108,40,1,2)
;;=^^1,21
;;^DIST(.404,.110108,40,2,0)
;;=2^Order Number^3
;;^DIST(.404,.110108,40,2,1)
;;=.01
;;^DIST(.404,.110108,40,2,2)
;;=3,21^3^3,7
;;^DIST(.404,.110108,40,2,13)
;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
;;^DIST(.404,.110108,40,3,0)
;;=3^Subscript Number^3
;;^DIST(.404,.110108,40,3,1)
;;=.5
;;^DIST(.404,.110108,40,3,2)
;;=4,21^3^4,3
;;^DIST(.404,.110108,40,3,13)
;;=S:X=""!(DDSOLD="") DIKCCRV=1
;;^DIST(.404,.110108,40,4,0)
;;=5^Maximum Length^3
;;^DIST(.404,.110108,40,4,1)
;;=6
;;^DIST(.404,.110108,40,4,2)
;;=5,21^3^5,5
;;^DIST(.404,.110108,40,4,13)
;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
;;^DIST(.404,.110108,40,5,0)
;;=4^Lookup Prompt^3
;;^DIST(.404,.110108,40,5,1)
;;=8
;;^DIST(.404,.110108,40,5,2)
;;=4,48^30^4,33
;;^DIST(.404,.110108,40,6,0)
;;=6^Collation^3
;;^DIST(.404,.110108,40,6,1)
;;=7
;;^DIST(.404,.110108,40,6,2)
;;=5,48^9^5,37
;;^DIST(.404,.110108,40,8,0)
;;=7^Computed Code^3
;;^DIST(.404,.110108,40,8,1)
;;=4.5
;;^DIST(.404,.110108,40,8,2)
;;=7,18^60^7,3
;;^DIST(.404,.110108,40,8,4)
;;=1
;;^DIST(.404,.110108,40,8,14)
;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Computed Code.")
;;^DIST(.404,.11021,0)
;;=DIKC EDIT UI MAIN^.11
;;^DIST(.404,.11021,40,0)
;;=^.4044I^9^9
;;^DIST(.404,.11021,40,1,0)
;;=1^File^3
;;^DIST(.404,.11021,40,1,1)
;;=.01
;;^DIST(.404,.11021,40,1,2)
;;=1,15^20^1,9
;;^DIST(.404,.11021,40,1,13)
;;=D BLDLOG^DIKCFORM(DA)
;;^DIST(.404,.11021,40,1,14)
;;=D VALFILE^DIKCFORM
;;^DIST(.404,.11021,40,2,0)
;;=2^Root File^3
;;^DIST(.404,.11021,40,2,1)
;;=.51
;;^DIST(.404,.11021,40,2,2)
;;=1,60^20^1,49
;;^DIST(.404,.11021,40,2,4)
;;=^^^1
;;^DIST(.404,.11021,40,3,0)
;;=3^Index Name^3
;;^DIST(.404,.11021,40,3,1)
;;=.02
;;^DIST(.404,.11021,40,3,2)
;;=2,15^30^2,3
;;^DIST(.404,.11021,40,3,13)
;;=D NAMECHG^DIKCFORM
;;^DIST(.404,.11021,40,3,14)
;;=D NAMEVAL^DIKCFORM
;;^DIST(.404,.11021,40,4,0)
;;=4^Root Type^3
;;^DIST(.404,.11021,40,4,1)
;;=.5
;;^DIST(.404,.11021,40,4,2)
;;=2,60^16^2,49
;;^DIST(.404,.11021,40,4,4)
;;=^^^1
;;^DIST(.404,.11021,40,5,0)
;;=5^Short Description^3
;;^DIST(.404,.11021,40,5,1)
;;=.11
;;^DIST(.404,.11021,40,5,2)
;;=4,20^60^4,1
;;^DIST(.404,.11021,40,5,11)
;;=D HLP^DDSUTL(X)
;;^DIST(.404,.11021,40,6,0)
;;=6^Description (wp)^3
;;^DIST(.404,.11021,40,6,1)
;;=.1
;;^DIST(.404,.11021,40,6,2)
;;=5,20^1^5,2
;;^DIST(.404,.11021,40,7,0)
;;=7^!M^1
;;^DIST(.404,.11021,40,7,.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,.11021,40,7,2)
;;=^^5,23
;;^DIST(.404,.11021,40,8,0)
;;=8^Set Logic^3
;;^DIST(.404,.11021,40,8,1)
;;=1.1
;;^DIST(.404,.11021,40,8,2)
;;=14,13^67^14,2
;;^DIST(.404,.11021,40,8,4)
;;=^^^2
;;^DIST(.404,.11021,40,8,11)
;;=D HLP^DDSUTL(X)
;;^DIST(.404,.11021,40,9,0)
;;=9^Kill Logic^3
;;^DIST(.404,.11021,40,9,1)
;;=2.1
;;^DIST(.404,.11021,40,9,2)
;;=15,13^67^15,1
;;^DIST(.404,.11021,40,9,4)
;;=^^^2
;;^DIST(.404,.11021,40,9,11)
;;=D HLP^DDSUTL(X)
;;^DIST(.404,.11022,0)
;;=DIKC EDIT UI HDR^.11
;;^DIST(.404,.11022,40,0)
;;=^.4044I^4^4
;;^DIST(.404,.11022,40,1,0)
;;=1^Number^4
;;^DIST(.404,.11022,40,1,2)
;;=1,9^15^1,1
;;^DIST(.404,.11022,40,1,30)
;;=S Y=DA
;;^DIST(.404,.11022,40,2,0)
;;=2^EDIT A UNIQUENESS INDEX^1
;;^DIST(.404,.11022,40,2,2)
;;=^^1,30
;;^DIST(.404,.11022,40,3,0)
;;=3^Page 1 of 1^1
;;^DIST(.404,.11022,40,3,2)
;;=^^1,69
;;^DIST(.404,.11022,40,4,0)
;;=4^-------------------------------------------------------------------------------^1
;;^DIST(.404,.11022,40,4,2)
;;=^^2,1
;;^DIST(.404,.11023,0)
;;=DIKC EDIT UI CRV^.114
;;^DIST(.404,.11023,40,0)
;;=^.4044I^4^4
;;^DIST(.404,.11023,40,1,0)
;;=1^^3^^ORDER
;;^DIST(.404,.11023,40,1,1)
;;=.01
;;^DIST(.404,.11023,40,1,2)
;;=1,3^3
;;^DIST(.404,.11023,40,1,4)
;;=^^^2
;;^DIST(.404,.11023,40,1,14)
;;=I X="" D HLP^DDSUTL($C(7)_"Deletion not allowed.") S DDSERROR=1
;;^DIST(.404,.11023,40,2,0)
;;=2^^3^^SUBSCRIPT
;;^DIST(.404,.11023,40,2,1)
;;=.5
;;^DIST(.404,.11023,40,2,2)
;;=1,12^3
;;^DIST(.404,.11023,40,2,4)
;;=^^^1
;;^DIST(.404,.11023,40,3,0)
;;=3^^3^^LENGTH
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FB 7582 printed Dec 13, 2024@02:50:19 Page 2
DINIT0FB ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;8:34 AM 18 Jan 2000
+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 ^DINIT0FC
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.404,.110107,40,4,14)
+2 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Storage.")
+3 ;;^DIST(.404,.110107,40,5,0)
+4 ;;=7^Maximum Length^3
+5 ;;^DIST(.404,.110107,40,5,1)
+6 ;;=6
+7 ;;^DIST(.404,.110107,40,5,2)
+8 ;;=7,18^3^7,2
+9 ;;^DIST(.404,.110107,40,5,13)
+10 ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
+11 ;;^DIST(.404,.110107,40,6,0)
+12 ;;=8^Collation^3
+13 ;;^DIST(.404,.110107,40,6,1)
+14 ;;=7
+15 ;;^DIST(.404,.110107,40,6,2)
+16 ;;=7,58^9^7,47
+17 ;;^DIST(.404,.110107,40,6,3)
+18 ;;=forwards
+19 ;;^DIST(.404,.110107,40,7,0)
+20 ;;=9^Lookup Prompt^3
+21 ;;^DIST(.404,.110107,40,7,1)
+22 ;;=8
+23 ;;^DIST(.404,.110107,40,7,2)
+24 ;;=8,18^30^8,3
+25 ;;^DIST(.404,.110107,40,8,0)
+26 ;;=5^File^3
+27 ;;^DIST(.404,.110107,40,8,1)
+28 ;;=2
+29 ;;^DIST(.404,.110107,40,8,2)
+30 ;;=4,58^20^4,52
+31 ;;^DIST(.404,.110107,40,8,3)
+32 ;;=!M
+33 ;;^DIST(.404,.110107,40,8,3.1)
+34 ;;=S Y=$$GET^DDSVAL(.11,DA(1),.51)
+35 ;;^DIST(.404,.110107,40,8,4)
+36 ;;=1^^^1
+37 ;;^DIST(.404,.110107,40,8,14)
+38 ;;=N RF S RF=$$GET^DDSVAL(.11,DA(1),.51) I X'=RF S DDSERROR=1 D HLP^DDSUTL("This File number must equal the Root File number: "_RF_".")
+39 ;;^DIST(.404,.110107,40,9,0)
+40 ;;=4^Field^3^^FIELD
+41 ;;^DIST(.404,.110107,40,9,1)
+42 ;;=3
+43 ;;^DIST(.404,.110107,40,9,2)
+44 ;;=4,18^20^4,11
+45 ;;^DIST(.404,.110107,40,9,4)
+46 ;;=1
+47 ;;^DIST(.404,.110107,40,9,13)
+48 ;;=S:X=""!(DDSOLD="") DIKCCRV=1 I $$GET^DDSVAL(.114,.DA,.5) N DIKCTYPE S DIKCTYPE=$P($G(^DD($$GET^DDSVAL(.114,.DA,2),+X,0)),U,2) D PUT^DDSVAL(.114,.DA,6,$S(DIKCTYPE["F"!(DIKCTYPE["K"):30,1:""),"","I")
+49 ;;^DIST(.404,.110107,40,10,0)
+50 ;;=6^Field Name^4
+51 ;;^DIST(.404,.110107,40,10,2)
+52 ;;=5,18^60^5,6
+53 ;;^DIST(.404,.110107,40,10,30)
+54 ;;=N DIKCFIL,DIKCFLD S Y="",DIKCFIL=+{FILE},DIKCFLD=+{FIELD} I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_"..."
+55 ;;^DIST(.404,.110107,40,11,0)
+56 ;;=12^Transform for Display^3^^TRANSFORM FOR DISPLAY
+57 ;;^DIST(.404,.110107,40,11,1)
+58 ;;=5.5
+59 ;;^DIST(.404,.110107,40,11,2)
+60 ;;=11,25^53^11,2
+61 ;;^DIST(.404,.110107,40,11,14)
+62 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Display.")
+63 ;;^DIST(.404,.110107,40,12,0)
+64 ;;=11^Transform for Lookup^3
+65 ;;^DIST(.404,.110107,40,12,1)
+66 ;;=5.3
+67 ;;^DIST(.404,.110107,40,12,2)
+68 ;;=10,25^53^10,3
+69 ;;^DIST(.404,.110107,40,12,14)
+70 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Lookup.")
+71 ;;^DIST(.404,.110108,0)
+72 ;;=DIKC EDIT COMPUTED CRV^.114
+73 ;;^DIST(.404,.110108,40,0)
+74 ;;=^.4044I^8^7
+75 ;;^DIST(.404,.110108,40,1,0)
+76 ;;=1^ Computed-Type Cross Reference Value ^1
+77 ;;^DIST(.404,.110108,40,1,2)
+78 ;;=^^1,21
+79 ;;^DIST(.404,.110108,40,2,0)
+80 ;;=2^Order Number^3
+81 ;;^DIST(.404,.110108,40,2,1)
+82 ;;=.01
+83 ;;^DIST(.404,.110108,40,2,2)
+84 ;;=3,21^3^3,7
+85 ;;^DIST(.404,.110108,40,2,13)
+86 ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
+87 ;;^DIST(.404,.110108,40,3,0)
+88 ;;=3^Subscript Number^3
+89 ;;^DIST(.404,.110108,40,3,1)
+90 ;;=.5
+91 ;;^DIST(.404,.110108,40,3,2)
+92 ;;=4,21^3^4,3
+93 ;;^DIST(.404,.110108,40,3,13)
+94 ;;=S:X=""!(DDSOLD="") DIKCCRV=1
+95 ;;^DIST(.404,.110108,40,4,0)
+96 ;;=5^Maximum Length^3
+97 ;;^DIST(.404,.110108,40,4,1)
+98 ;;=6
+99 ;;^DIST(.404,.110108,40,4,2)
+100 ;;=5,21^3^5,5
+101 ;;^DIST(.404,.110108,40,4,13)
+102 ;;=S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
+103 ;;^DIST(.404,.110108,40,5,0)
+104 ;;=4^Lookup Prompt^3
+105 ;;^DIST(.404,.110108,40,5,1)
+106 ;;=8
+107 ;;^DIST(.404,.110108,40,5,2)
+108 ;;=4,48^30^4,33
+109 ;;^DIST(.404,.110108,40,6,0)
+110 ;;=6^Collation^3
+111 ;;^DIST(.404,.110108,40,6,1)
+112 ;;=7
+113 ;;^DIST(.404,.110108,40,6,2)
+114 ;;=5,48^9^5,37
+115 ;;^DIST(.404,.110108,40,8,0)
+116 ;;=7^Computed Code^3
+117 ;;^DIST(.404,.110108,40,8,1)
+118 ;;=4.5
+119 ;;^DIST(.404,.110108,40,8,2)
+120 ;;=7,18^60^7,3
+121 ;;^DIST(.404,.110108,40,8,4)
+122 ;;=1
+123 ;;^DIST(.404,.110108,40,8,14)
+124 ;;=I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Computed Code.")
+125 ;;^DIST(.404,.11021,0)
+126 ;;=DIKC EDIT UI MAIN^.11
+127 ;;^DIST(.404,.11021,40,0)
+128 ;;=^.4044I^9^9
+129 ;;^DIST(.404,.11021,40,1,0)
+130 ;;=1^File^3
+131 ;;^DIST(.404,.11021,40,1,1)
+132 ;;=.01
+133 ;;^DIST(.404,.11021,40,1,2)
+134 ;;=1,15^20^1,9
+135 ;;^DIST(.404,.11021,40,1,13)
+136 ;;=D BLDLOG^DIKCFORM(DA)
+137 ;;^DIST(.404,.11021,40,1,14)
+138 ;;=D VALFILE^DIKCFORM
+139 ;;^DIST(.404,.11021,40,2,0)
+140 ;;=2^Root File^3
+141 ;;^DIST(.404,.11021,40,2,1)
+142 ;;=.51
+143 ;;^DIST(.404,.11021,40,2,2)
+144 ;;=1,60^20^1,49
+145 ;;^DIST(.404,.11021,40,2,4)
+146 ;;=^^^1
+147 ;;^DIST(.404,.11021,40,3,0)
+148 ;;=3^Index Name^3
+149 ;;^DIST(.404,.11021,40,3,1)
+150 ;;=.02
+151 ;;^DIST(.404,.11021,40,3,2)
+152 ;;=2,15^30^2,3
+153 ;;^DIST(.404,.11021,40,3,13)
+154 ;;=D NAMECHG^DIKCFORM
+155 ;;^DIST(.404,.11021,40,3,14)
+156 ;;=D NAMEVAL^DIKCFORM
+157 ;;^DIST(.404,.11021,40,4,0)
+158 ;;=4^Root Type^3
+159 ;;^DIST(.404,.11021,40,4,1)
+160 ;;=.5
+161 ;;^DIST(.404,.11021,40,4,2)
+162 ;;=2,60^16^2,49
+163 ;;^DIST(.404,.11021,40,4,4)
+164 ;;=^^^1
+165 ;;^DIST(.404,.11021,40,5,0)
+166 ;;=5^Short Description^3
+167 ;;^DIST(.404,.11021,40,5,1)
+168 ;;=.11
+169 ;;^DIST(.404,.11021,40,5,2)
+170 ;;=4,20^60^4,1
+171 ;;^DIST(.404,.11021,40,5,11)
+172 ;;=D HLP^DDSUTL(X)
+173 ;;^DIST(.404,.11021,40,6,0)
+174 ;;=6^Description (wp)^3
+175 ;;^DIST(.404,.11021,40,6,1)
+176 ;;=.1
+177 ;;^DIST(.404,.11021,40,6,2)
+178 ;;=5,20^1^5,2
+179 ;;^DIST(.404,.11021,40,7,0)
+180 ;;=7^!M^1
+181 ;;^DIST(.404,.11021,40,7,.1)
+182 ;;=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)")
+183 ;;^DIST(.404,.11021,40,7,2)
+184 ;;=^^5,23
+185 ;;^DIST(.404,.11021,40,8,0)
+186 ;;=8^Set Logic^3
+187 ;;^DIST(.404,.11021,40,8,1)
+188 ;;=1.1
+189 ;;^DIST(.404,.11021,40,8,2)
+190 ;;=14,13^67^14,2
+191 ;;^DIST(.404,.11021,40,8,4)
+192 ;;=^^^2
+193 ;;^DIST(.404,.11021,40,8,11)
+194 ;;=D HLP^DDSUTL(X)
+195 ;;^DIST(.404,.11021,40,9,0)
+196 ;;=9^Kill Logic^3
+197 ;;^DIST(.404,.11021,40,9,1)
+198 ;;=2.1
+199 ;;^DIST(.404,.11021,40,9,2)
+200 ;;=15,13^67^15,1
+201 ;;^DIST(.404,.11021,40,9,4)
+202 ;;=^^^2
+203 ;;^DIST(.404,.11021,40,9,11)
+204 ;;=D HLP^DDSUTL(X)
+205 ;;^DIST(.404,.11022,0)
+206 ;;=DIKC EDIT UI HDR^.11
+207 ;;^DIST(.404,.11022,40,0)
+208 ;;=^.4044I^4^4
+209 ;;^DIST(.404,.11022,40,1,0)
+210 ;;=1^Number^4
+211 ;;^DIST(.404,.11022,40,1,2)
+212 ;;=1,9^15^1,1
+213 ;;^DIST(.404,.11022,40,1,30)
+214 ;;=S Y=DA
+215 ;;^DIST(.404,.11022,40,2,0)
+216 ;;=2^EDIT A UNIQUENESS INDEX^1
+217 ;;^DIST(.404,.11022,40,2,2)
+218 ;;=^^1,30
+219 ;;^DIST(.404,.11022,40,3,0)
+220 ;;=3^Page 1 of 1^1
+221 ;;^DIST(.404,.11022,40,3,2)
+222 ;;=^^1,69
+223 ;;^DIST(.404,.11022,40,4,0)
+224 ;;=4^-------------------------------------------------------------------------------^1
+225 ;;^DIST(.404,.11022,40,4,2)
+226 ;;=^^2,1
+227 ;;^DIST(.404,.11023,0)
+228 ;;=DIKC EDIT UI CRV^.114
+229 ;;^DIST(.404,.11023,40,0)
+230 ;;=^.4044I^4^4
+231 ;;^DIST(.404,.11023,40,1,0)
+232 ;;=1^^3^^ORDER
+233 ;;^DIST(.404,.11023,40,1,1)
+234 ;;=.01
+235 ;;^DIST(.404,.11023,40,1,2)
+236 ;;=1,3^3
+237 ;;^DIST(.404,.11023,40,1,4)
+238 ;;=^^^2
+239 ;;^DIST(.404,.11023,40,1,14)
+240 ;;=I X="" D HLP^DDSUTL($C(7)_"Deletion not allowed.") S DDSERROR=1
+241 ;;^DIST(.404,.11023,40,2,0)
+242 ;;=2^^3^^SUBSCRIPT
+243 ;;^DIST(.404,.11023,40,2,1)
+244 ;;=.5
+245 ;;^DIST(.404,.11023,40,2,2)
+246 ;;=1,12^3
+247 ;;^DIST(.404,.11023,40,2,4)
+248 ;;=^^^1
+249 ;;^DIST(.404,.11023,40,3,0)
+250 ;;=3^^3^^LENGTH
