DINIT0FC ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
;;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="" ^DINIT0FD S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.11023,40,3,1)
;;=6
;;^DIST(.404,.11023,40,3,2)
;;=1,20^3
;;^DIST(.404,.11023,40,3,13)
;;=D BLDLOG^DIKCFORM(DA(1))
;;^DIST(.404,.11023,40,4,0)
;;=4^^4^^FIELD DISPLAY
;;^DIST(.404,.11023,40,4,2)
;;=1,27^43
;;^DIST(.404,.11023,40,4,30)
;;=N DIKCFIL,DIKCFLD S DIKCFIL={FILE},DIKCFLD={FIELD} S Y="["_DIKCFIL_","_DIKCFLD_"] "_$P($G(^DD(+DIKCFIL,+DIKCFLD,0)),U)
;;^DIST(.404,.11024,0)
;;=DIKC EDIT UI CRV HDR^.11
;;^DIST(.404,.11024,40,0)
;;=^.4044I^8^8
;;^DIST(.404,.11024,40,1,0)
;;=1^Order...^1
;;^DIST(.404,.11024,40,1,2)
;;=^^1,2
;;^DIST(.404,.11024,40,2,0)
;;=2^Subscr^1
;;^DIST(.404,.11024,40,2,2)
;;=^^1,12
;;^DIST(.404,.11024,40,3,0)
;;=3^Length^1
;;^DIST(.404,.11024,40,3,2)
;;=^^1,20
;;^DIST(.404,.11024,40,4,0)
;;=4^[File,Field] Field Name^1
;;^DIST(.404,.11024,40,4,2)
;;=^^1,28
;;^DIST(.404,.11024,40,5,0)
;;=5^--------^1
;;^DIST(.404,.11024,40,5,2)
;;=^^2,2
;;^DIST(.404,.11024,40,6,0)
;;=6^------^1
;;^DIST(.404,.11024,40,6,2)
;;=^^2,12
;;^DIST(.404,.11024,40,7,0)
;;=7^------^1
;;^DIST(.404,.11024,40,7,2)
;;=^^2,20
;;^DIST(.404,.11024,40,8,0)
;;=8^-----------------------^1
;;^DIST(.404,.11024,40,8,2)
;;=^^2,28
;;^DIST(.404,.11025,0)
;;=DIKC EDIT UI FIELD CRV^.114
;;^DIST(.404,.11025,11)
;;=K DIKCCRV
;;^DIST(.404,.11025,12)
;;=I $D(DIKCCRV) D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
;;^DIST(.404,.11025,40,0)
;;=^.4044I^9^9
;;^DIST(.404,.11025,40,1,0)
;;=1^ Field-Type Cross Reference Value ^1
;;^DIST(.404,.11025,40,1,2)
;;=^^1,23
;;^DIST(.404,.11025,40,2,0)
;;=2^Order Number^3
;;^DIST(.404,.11025,40,2,1)
;;=.01
;;^DIST(.404,.11025,40,2,2)
;;=3,18^3^3,4
;;^DIST(.404,.11025,40,2,4)
;;=^^^1
;;^DIST(.404,.11025,40,3,0)
;;=3^Subscript Number^3
;;^DIST(.404,.11025,40,3,1)
;;=.5
;;^DIST(.404,.11025,40,3,2)
;;=3,58^3^3,40
;;^DIST(.404,.11025,40,3,4)
;;=^^^1
;;^DIST(.404,.11025,40,4,0)
;;=4^Field^3^^FIELD
;;^DIST(.404,.11025,40,4,1)
;;=3
;;^DIST(.404,.11025,40,4,2)
;;=4,18^20^4,11
;;^DIST(.404,.11025,40,4,4)
;;=^^^1
;;^DIST(.404,.11025,40,5,0)
;;=5^File^3
;;^DIST(.404,.11025,40,5,1)
;;=2
;;^DIST(.404,.11025,40,5,2)
;;=4,58^20^4,52
;;^DIST(.404,.11025,40,5,4)
;;=^^^1
;;^DIST(.404,.11025,40,6,0)
;;=6^Field Name^4
;;^DIST(.404,.11025,40,6,2)
;;=5,18^60^5,6
;;^DIST(.404,.11025,40,6,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,.11025,40,7,0)
;;=7^Maximum Length^3
;;^DIST(.404,.11025,40,7,1)
;;=6
;;^DIST(.404,.11025,40,7,2)
;;=7,18^3^7,2
;;^DIST(.404,.11025,40,7,13)
;;=S DIKCCRV=1
;;^DIST(.404,.11025,40,8,0)
;;=8^Collation^3
;;^DIST(.404,.11025,40,8,1)
;;=7
;;^DIST(.404,.11025,40,8,2)
;;=7,58^9^7,47
;;^DIST(.404,.11025,40,9,0)
;;=9^Lookup Prompt^3
;;^DIST(.404,.11025,40,9,1)
;;=8
;;^DIST(.404,.11025,40,9,2)
;;=8,18^30^8,3
;;^DIST(.404,.310101,0)
;;=DIKK EDIT HDR^.31
;;^DIST(.404,.310101,40,0)
;;=^.4044I^4^4
;;^DIST(.404,.310101,40,1,0)
;;=1^Number^4
;;^DIST(.404,.310101,40,1,2)
;;=1,9^16^1,1
;;^DIST(.404,.310101,40,1,30)
;;=S Y=DA
;;^DIST(.404,.310101,40,2,0)
;;=2^EDIT A KEY^1
;;^DIST(.404,.310101,40,2,2)
;;=^^1,36
;;^DIST(.404,.310101,40,3,0)
;;=3^Page 1 of 1^1
;;^DIST(.404,.310101,40,3,2)
;;=^^1,69
;;^DIST(.404,.310101,40,4,0)
;;=4^-------------------------------------------------------------------------------^1
;;^DIST(.404,.310101,40,4,2)
;;=^^2,1
;;^DIST(.404,.310102,0)
;;=DIKK EDIT MAIN^.31
;;^DIST(.404,.310102,40,0)
;;=^.4044I^3^3
;;^DIST(.404,.310102,40,1,0)
;;=1^File^3
;;^DIST(.404,.310102,40,1,1)
;;=.01
;;^DIST(.404,.310102,40,1,2)
;;=1,9^20^1,3
;;^DIST(.404,.310102,40,1,4)
;;=^^^2
;;^DIST(.404,.310102,40,2,0)
;;=2^Name^3
;;^DIST(.404,.310102,40,2,1)
;;=.02
;;^DIST(.404,.310102,40,2,2)
;;=1,39^1^1,33
;;^DIST(.404,.310102,40,2,13)
;;=D NAMEPAC^DIKKFORM
;;^DIST(.404,.310102,40,3,0)
;;=3^Priority^3
;;^DIST(.404,.310102,40,3,1)
;;=1
;;^DIST(.404,.310102,40,3,2)
;;=1,71^9^1,61
;;^DIST(.404,.310102,40,3,14)
;;=D PRIOVAL^DIKKFORM
;;^DIST(.404,.310103,0)
;;=DIKK EDIT FIELD HDR^.31
;;^DIST(.404,.310103,40,0)
;;=^.4044I^10^10
;;^DIST(.404,.310103,40,1,0)
;;=1^KEY FIELDS:^1
;;^DIST(.404,.310103,40,1,2)
;;=^^1,1
;;^DIST(.404,.310103,40,2,0)
;;=2^==========^1
;;^DIST(.404,.310103,40,2,2)
;;=^^2,1
;;^DIST(.404,.310103,40,3,0)
;;=3^Field^1
;;^DIST(.404,.310103,40,3,2)
;;=^^3,1
;;^DIST(.404,.310103,40,4,0)
;;=4^Seq No.^1
;;^DIST(.404,.310103,40,4,2)
;;=^^3,22
;;^DIST(.404,.310103,40,5,0)
;;=5^File^1
;;^DIST(.404,.310103,40,5,2)
;;=^^3,31
;;^DIST(.404,.310103,40,6,0)
;;=6^Field Name^1
;;^DIST(.404,.310103,40,6,2)
;;=^^3,53
;;^DIST(.404,.310103,40,7,0)
;;=7^-----^1
;;^DIST(.404,.310103,40,7,2)
;;=^^4,1
;;^DIST(.404,.310103,40,8,0)
;;=8^-------^1
;;^DIST(.404,.310103,40,8,2)
;;=^^4,22
;;^DIST(.404,.310103,40,9,0)
;;=9^----^1
;;^DIST(.404,.310103,40,9,2)
;;=^^4,31
;;^DIST(.404,.310103,40,10,0)
;;=10^----------^1
;;^DIST(.404,.310103,40,10,2)
;;=^^4,53
;;^DIST(.404,.310104,0)
;;=DIKK EDIT FIELD^.312
;;^DIST(.404,.310104,40,0)
;;=^.4044I^4^4
;;^DIST(.404,.310104,40,1,0)
;;=1^^3
;;^DIST(.404,.310104,40,1,1)
;;=.01
;;^DIST(.404,.310104,40,1,2)
;;=1,1^20
;;^DIST(.404,.310104,40,2,0)
;;=2^^3
;;^DIST(.404,.310104,40,2,1)
;;=1
;;^DIST(.404,.310104,40,2,2)
;;=1,24^3
;;^DIST(.404,.310104,40,3,0)
;;=3^^3
;;^DIST(.404,.310104,40,3,1)
;;=.02
;;^DIST(.404,.310104,40,3,2)
;;=1,31^20
;;^DIST(.404,.310104,40,3,3)
;;=!M
;;^DIST(.404,.310104,40,3,3.1)
;;=S Y=$$GET^DDSVAL(.31,DA(1),.01)
;;^DIST(.404,.310104,40,3,4)
;;=^^^1
;;^DIST(.404,.310104,40,4,0)
;;=4^^4
;;^DIST(.404,.310104,40,4,2)
;;=1,53^25
;;^DIST(.404,.310104,40,4,30)
;;==$P($G(^DD({FILE},{FIELD},0)),U)
;;^DIST(.404,.310105,0)
;;=DIKK EDIT UI IDENTIFIER^.11
;;^DIST(.404,.310105,40,0)
;;=^.4044I^2^2
;;^DIST(.404,.310105,40,1,0)
;;=1^^3
;;^DIST(.404,.310105,40,1,1)
;;=.02
;;^DIST(.404,.310105,40,1,2)
;;=1,44^30
;;^DIST(.404,.310105,40,2,0)
;;=2^^3
;;^DIST(.404,.310105,40,2,1)
;;=.11
;;^DIST(.404,.310105,40,2,2)
;;=2,19^61
;;^DIST(.404,.310106,0)
;;=DIKK EDIT UNIQUENESS INDEX^.31
;;^DIST(.404,.310106,11)
;;=D:$$GET^DDSVAL(.31,DA,3)="" UNED^DDSUTL("DETAILS","","",1)
;;^DIST(.404,.310106,40,0)
;;=^.4044I^2^2
;;^DIST(.404,.310106,40,1,0)
;;=1^Uniqueness Index^3
;;^DIST(.404,.310106,40,1,1)
;;=3
;;^DIST(.404,.310106,40,1,2)
;;=1,19^20^1,1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FC 7214 printed Dec 13, 2024@02:50:20 Page 2
DINIT0FC ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
+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 ^DINIT0FD
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.404,.11023,40,3,1)
+2 ;;=6
+3 ;;^DIST(.404,.11023,40,3,2)
+4 ;;=1,20^3
+5 ;;^DIST(.404,.11023,40,3,13)
+6 ;;=D BLDLOG^DIKCFORM(DA(1))
+7 ;;^DIST(.404,.11023,40,4,0)
+8 ;;=4^^4^^FIELD DISPLAY
+9 ;;^DIST(.404,.11023,40,4,2)
+10 ;;=1,27^43
+11 ;;^DIST(.404,.11023,40,4,30)
+12 ;;=N DIKCFIL,DIKCFLD S DIKCFIL={FILE},DIKCFLD={FIELD} S Y="["_DIKCFIL_","_DIKCFLD_"] "_$P($G(^DD(+DIKCFIL,+DIKCFLD,0)),U)
+13 ;;^DIST(.404,.11024,0)
+14 ;;=DIKC EDIT UI CRV HDR^.11
+15 ;;^DIST(.404,.11024,40,0)
+16 ;;=^.4044I^8^8
+17 ;;^DIST(.404,.11024,40,1,0)
+18 ;;=1^Order...^1
+19 ;;^DIST(.404,.11024,40,1,2)
+20 ;;=^^1,2
+21 ;;^DIST(.404,.11024,40,2,0)
+22 ;;=2^Subscr^1
+23 ;;^DIST(.404,.11024,40,2,2)
+24 ;;=^^1,12
+25 ;;^DIST(.404,.11024,40,3,0)
+26 ;;=3^Length^1
+27 ;;^DIST(.404,.11024,40,3,2)
+28 ;;=^^1,20
+29 ;;^DIST(.404,.11024,40,4,0)
+30 ;;=4^[File,Field] Field Name^1
+31 ;;^DIST(.404,.11024,40,4,2)
+32 ;;=^^1,28
+33 ;;^DIST(.404,.11024,40,5,0)
+34 ;;=5^--------^1
+35 ;;^DIST(.404,.11024,40,5,2)
+36 ;;=^^2,2
+37 ;;^DIST(.404,.11024,40,6,0)
+38 ;;=6^------^1
+39 ;;^DIST(.404,.11024,40,6,2)
+40 ;;=^^2,12
+41 ;;^DIST(.404,.11024,40,7,0)
+42 ;;=7^------^1
+43 ;;^DIST(.404,.11024,40,7,2)
+44 ;;=^^2,20
+45 ;;^DIST(.404,.11024,40,8,0)
+46 ;;=8^-----------------------^1
+47 ;;^DIST(.404,.11024,40,8,2)
+48 ;;=^^2,28
+49 ;;^DIST(.404,.11025,0)
+50 ;;=DIKC EDIT UI FIELD CRV^.114
+51 ;;^DIST(.404,.11025,11)
+52 ;;=K DIKCCRV
+53 ;;^DIST(.404,.11025,12)
+54 ;;=I $D(DIKCCRV) D BLDLOG^DIKCFORM(DA(1)) K DIKCCRV
+55 ;;^DIST(.404,.11025,40,0)
+56 ;;=^.4044I^9^9
+57 ;;^DIST(.404,.11025,40,1,0)
+58 ;;=1^ Field-Type Cross Reference Value ^1
+59 ;;^DIST(.404,.11025,40,1,2)
+60 ;;=^^1,23
+61 ;;^DIST(.404,.11025,40,2,0)
+62 ;;=2^Order Number^3
+63 ;;^DIST(.404,.11025,40,2,1)
+64 ;;=.01
+65 ;;^DIST(.404,.11025,40,2,2)
+66 ;;=3,18^3^3,4
+67 ;;^DIST(.404,.11025,40,2,4)
+68 ;;=^^^1
+69 ;;^DIST(.404,.11025,40,3,0)
+70 ;;=3^Subscript Number^3
+71 ;;^DIST(.404,.11025,40,3,1)
+72 ;;=.5
+73 ;;^DIST(.404,.11025,40,3,2)
+74 ;;=3,58^3^3,40
+75 ;;^DIST(.404,.11025,40,3,4)
+76 ;;=^^^1
+77 ;;^DIST(.404,.11025,40,4,0)
+78 ;;=4^Field^3^^FIELD
+79 ;;^DIST(.404,.11025,40,4,1)
+80 ;;=3
+81 ;;^DIST(.404,.11025,40,4,2)
+82 ;;=4,18^20^4,11
+83 ;;^DIST(.404,.11025,40,4,4)
+84 ;;=^^^1
+85 ;;^DIST(.404,.11025,40,5,0)
+86 ;;=5^File^3
+87 ;;^DIST(.404,.11025,40,5,1)
+88 ;;=2
+89 ;;^DIST(.404,.11025,40,5,2)
+90 ;;=4,58^20^4,52
+91 ;;^DIST(.404,.11025,40,5,4)
+92 ;;=^^^1
+93 ;;^DIST(.404,.11025,40,6,0)
+94 ;;=6^Field Name^4
+95 ;;^DIST(.404,.11025,40,6,2)
+96 ;;=5,18^60^5,6
+97 ;;^DIST(.404,.11025,40,6,30)
+98 ;;=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)_"..."
+99 ;;^DIST(.404,.11025,40,7,0)
+100 ;;=7^Maximum Length^3
+101 ;;^DIST(.404,.11025,40,7,1)
+102 ;;=6
+103 ;;^DIST(.404,.11025,40,7,2)
+104 ;;=7,18^3^7,2
+105 ;;^DIST(.404,.11025,40,7,13)
+106 ;;=S DIKCCRV=1
+107 ;;^DIST(.404,.11025,40,8,0)
+108 ;;=8^Collation^3
+109 ;;^DIST(.404,.11025,40,8,1)
+110 ;;=7
+111 ;;^DIST(.404,.11025,40,8,2)
+112 ;;=7,58^9^7,47
+113 ;;^DIST(.404,.11025,40,9,0)
+114 ;;=9^Lookup Prompt^3
+115 ;;^DIST(.404,.11025,40,9,1)
+116 ;;=8
+117 ;;^DIST(.404,.11025,40,9,2)
+118 ;;=8,18^30^8,3
+119 ;;^DIST(.404,.310101,0)
+120 ;;=DIKK EDIT HDR^.31
+121 ;;^DIST(.404,.310101,40,0)
+122 ;;=^.4044I^4^4
+123 ;;^DIST(.404,.310101,40,1,0)
+124 ;;=1^Number^4
+125 ;;^DIST(.404,.310101,40,1,2)
+126 ;;=1,9^16^1,1
+127 ;;^DIST(.404,.310101,40,1,30)
+128 ;;=S Y=DA
+129 ;;^DIST(.404,.310101,40,2,0)
+130 ;;=2^EDIT A KEY^1
+131 ;;^DIST(.404,.310101,40,2,2)
+132 ;;=^^1,36
+133 ;;^DIST(.404,.310101,40,3,0)
+134 ;;=3^Page 1 of 1^1
+135 ;;^DIST(.404,.310101,40,3,2)
+136 ;;=^^1,69
+137 ;;^DIST(.404,.310101,40,4,0)
+138 ;;=4^-------------------------------------------------------------------------------^1
+139 ;;^DIST(.404,.310101,40,4,2)
+140 ;;=^^2,1
+141 ;;^DIST(.404,.310102,0)
+142 ;;=DIKK EDIT MAIN^.31
+143 ;;^DIST(.404,.310102,40,0)
+144 ;;=^.4044I^3^3
+145 ;;^DIST(.404,.310102,40,1,0)
+146 ;;=1^File^3
+147 ;;^DIST(.404,.310102,40,1,1)
+148 ;;=.01
+149 ;;^DIST(.404,.310102,40,1,2)
+150 ;;=1,9^20^1,3
+151 ;;^DIST(.404,.310102,40,1,4)
+152 ;;=^^^2
+153 ;;^DIST(.404,.310102,40,2,0)
+154 ;;=2^Name^3
+155 ;;^DIST(.404,.310102,40,2,1)
+156 ;;=.02
+157 ;;^DIST(.404,.310102,40,2,2)
+158 ;;=1,39^1^1,33
+159 ;;^DIST(.404,.310102,40,2,13)
+160 ;;=D NAMEPAC^DIKKFORM
+161 ;;^DIST(.404,.310102,40,3,0)
+162 ;;=3^Priority^3
+163 ;;^DIST(.404,.310102,40,3,1)
+164 ;;=1
+165 ;;^DIST(.404,.310102,40,3,2)
+166 ;;=1,71^9^1,61
+167 ;;^DIST(.404,.310102,40,3,14)
+168 ;;=D PRIOVAL^DIKKFORM
+169 ;;^DIST(.404,.310103,0)
+170 ;;=DIKK EDIT FIELD HDR^.31
+171 ;;^DIST(.404,.310103,40,0)
+172 ;;=^.4044I^10^10
+173 ;;^DIST(.404,.310103,40,1,0)
+174 ;;=1^KEY FIELDS:^1
+175 ;;^DIST(.404,.310103,40,1,2)
+176 ;;=^^1,1
+177 ;;^DIST(.404,.310103,40,2,0)
+178 ;;=2^==========^1
+179 ;;^DIST(.404,.310103,40,2,2)
+180 ;;=^^2,1
+181 ;;^DIST(.404,.310103,40,3,0)
+182 ;;=3^Field^1
+183 ;;^DIST(.404,.310103,40,3,2)
+184 ;;=^^3,1
+185 ;;^DIST(.404,.310103,40,4,0)
+186 ;;=4^Seq No.^1
+187 ;;^DIST(.404,.310103,40,4,2)
+188 ;;=^^3,22
+189 ;;^DIST(.404,.310103,40,5,0)
+190 ;;=5^File^1
+191 ;;^DIST(.404,.310103,40,5,2)
+192 ;;=^^3,31
+193 ;;^DIST(.404,.310103,40,6,0)
+194 ;;=6^Field Name^1
+195 ;;^DIST(.404,.310103,40,6,2)
+196 ;;=^^3,53
+197 ;;^DIST(.404,.310103,40,7,0)
+198 ;;=7^-----^1
+199 ;;^DIST(.404,.310103,40,7,2)
+200 ;;=^^4,1
+201 ;;^DIST(.404,.310103,40,8,0)
+202 ;;=8^-------^1
+203 ;;^DIST(.404,.310103,40,8,2)
+204 ;;=^^4,22
+205 ;;^DIST(.404,.310103,40,9,0)
+206 ;;=9^----^1
+207 ;;^DIST(.404,.310103,40,9,2)
+208 ;;=^^4,31
+209 ;;^DIST(.404,.310103,40,10,0)
+210 ;;=10^----------^1
+211 ;;^DIST(.404,.310103,40,10,2)
+212 ;;=^^4,53
+213 ;;^DIST(.404,.310104,0)
+214 ;;=DIKK EDIT FIELD^.312
+215 ;;^DIST(.404,.310104,40,0)
+216 ;;=^.4044I^4^4
+217 ;;^DIST(.404,.310104,40,1,0)
+218 ;;=1^^3
+219 ;;^DIST(.404,.310104,40,1,1)
+220 ;;=.01
+221 ;;^DIST(.404,.310104,40,1,2)
+222 ;;=1,1^20
+223 ;;^DIST(.404,.310104,40,2,0)
+224 ;;=2^^3
+225 ;;^DIST(.404,.310104,40,2,1)
+226 ;;=1
+227 ;;^DIST(.404,.310104,40,2,2)
+228 ;;=1,24^3
+229 ;;^DIST(.404,.310104,40,3,0)
+230 ;;=3^^3
+231 ;;^DIST(.404,.310104,40,3,1)
+232 ;;=.02
+233 ;;^DIST(.404,.310104,40,3,2)
+234 ;;=1,31^20
+235 ;;^DIST(.404,.310104,40,3,3)
+236 ;;=!M
+237 ;;^DIST(.404,.310104,40,3,3.1)
+238 ;;=S Y=$$GET^DDSVAL(.31,DA(1),.01)
+239 ;;^DIST(.404,.310104,40,3,4)
+240 ;;=^^^1
+241 ;;^DIST(.404,.310104,40,4,0)
+242 ;;=4^^4
+243 ;;^DIST(.404,.310104,40,4,2)
+244 ;;=1,53^25
+245 ;;^DIST(.404,.310104,40,4,30)
+246 ;;==$P($G(^DD({FILE},{FIELD},0)),U)
+247 ;;^DIST(.404,.310105,0)
+248 ;;=DIKK EDIT UI IDENTIFIER^.11
+249 ;;^DIST(.404,.310105,40,0)
+250 ;;=^.4044I^2^2
+251 ;;^DIST(.404,.310105,40,1,0)
+252 ;;=1^^3
+253 ;;^DIST(.404,.310105,40,1,1)
+254 ;;=.02
+255 ;;^DIST(.404,.310105,40,1,2)
+256 ;;=1,44^30
+257 ;;^DIST(.404,.310105,40,2,0)
+258 ;;=2^^3
+259 ;;^DIST(.404,.310105,40,2,1)
+260 ;;=.11
+261 ;;^DIST(.404,.310105,40,2,2)
+262 ;;=2,19^61
+263 ;;^DIST(.404,.310106,0)
+264 ;;=DIKK EDIT UNIQUENESS INDEX^.31
+265 ;;^DIST(.404,.310106,11)
+266 ;;=D:$$GET^DDSVAL(.31,DA,3)="" UNED^DDSUTL("DETAILS","","",1)
+267 ;;^DIST(.404,.310106,40,0)
+268 ;;=^.4044I^2^2
+269 ;;^DIST(.404,.310106,40,1,0)
+270 ;;=1^Uniqueness Index^3
+271 ;;^DIST(.404,.310106,40,1,1)
+272 ;;=3
+273 ;;^DIST(.404,.310106,40,1,2)
+274 ;;=1,19^20^1,1
