DINIT0FD ;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="" ^DINIT0FE S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.310106,40,1,13)
;;=D:X=""!(DDSOLD="") UNED^DDSUTL("DETAILS","","",$S(X="":1,1:0))
;;^DIST(.404,.310106,40,1,14)
;;=D UIVAL^DIKKFORM
;;^DIST(.404,.310106,40,2,0)
;;=2^Index Details...^2^^DETAILS
;;^DIST(.404,.310106,40,2,2)
;;=3,19^1^3,2^1
;;^DIST(.404,.310106,40,2,20)
;;=F^^0:0
;;^DIST(.404,.310106,40,2,21,0)
;;=^^1^1^2970722
;;^DIST(.404,.310106,40,2,21,1,0)
;;=Press <Return> to view the properties of the Uniqueness Index.
;;^DIST(.404,.310107,0)
;;=DIKK EDIT UI HDR^.11
;;^DIST(.404,.310107,40,0)
;;=^.4044I^1^1
;;^DIST(.404,.310107,40,1,0)
;;=1^ Uniqueness Index ^1
;;^DIST(.404,.310107,40,1,2)
;;=^^1,31
;;^DIST(.404,.310108,0)
;;=DIKK EDIT UI^.11
;;^DIST(.404,.310108,40,0)
;;=^.4044I^9^9
;;^DIST(.404,.310108,40,1,0)
;;=1^File^3
;;^DIST(.404,.310108,40,1,1)
;;=.01
;;^DIST(.404,.310108,40,1,2)
;;=1,13^20^1,7
;;^DIST(.404,.310108,40,1,4)
;;=^^^1
;;^DIST(.404,.310108,40,1,13)
;;=D BLDLOG^DIKCFORM(DA)
;;^DIST(.404,.310108,40,1,14)
;;=D VALFILE^DIKCFORM
;;^DIST(.404,.310108,40,2,0)
;;=2^Root File^3
;;^DIST(.404,.310108,40,2,1)
;;=.51
;;^DIST(.404,.310108,40,2,2)
;;=1,56^20^1,45
;;^DIST(.404,.310108,40,2,4)
;;=^^^1
;;^DIST(.404,.310108,40,3,0)
;;=3^Index Name^3^^NAME
;;^DIST(.404,.310108,40,3,1)
;;=.02
;;^DIST(.404,.310108,40,3,2)
;;=2,13^30^2,1
;;^DIST(.404,.310108,40,3,13)
;;=D BLDLOG^DIKCFORM(DA)
;;^DIST(.404,.310108,40,3,14)
;;=D NAMEVAL^DIKCFORM
;;^DIST(.404,.310108,40,4,0)
;;=4^Root Type^3
;;^DIST(.404,.310108,40,4,1)
;;=.5
;;^DIST(.404,.310108,40,4,2)
;;=2,56^16^2,45
;;^DIST(.404,.310108,40,4,4)
;;=^^^1
;;^DIST(.404,.310108,40,5,0)
;;=5^Short Description^3
;;^DIST(.404,.310108,40,5,1)
;;=.11
;;^DIST(.404,.310108,40,5,2)
;;=4,20^56^4,1
;;^DIST(.404,.310108,40,5,11)
;;=D HLP^DDSUTL(X)
;;^DIST(.404,.310108,40,6,0)
;;=6^Description (wp)^3
;;^DIST(.404,.310108,40,6,1)
;;=.1
;;^DIST(.404,.310108,40,6,2)
;;=5,20^1^5,2
;;^DIST(.404,.310108,40,7,0)
;;=7^!M^1
;;^DIST(.404,.310108,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,51)_"]",1:"(empty)")
;;^DIST(.404,.310108,40,7,2)
;;=^^5,23
;;^DIST(.404,.310108,40,8,0)
;;=8^Set Logic^3
;;^DIST(.404,.310108,40,8,1)
;;=1.1
;;^DIST(.404,.310108,40,8,2)
;;=14,13^63^14,2
;;^DIST(.404,.310108,40,8,4)
;;=^^^2
;;^DIST(.404,.310108,40,8,11)
;;=D HLP^DDSUTL(X)
;;^DIST(.404,.310108,40,9,0)
;;=9^Kill Logic^3
;;^DIST(.404,.310108,40,9,1)
;;=2.1
;;^DIST(.404,.310108,40,9,2)
;;=15,13^63^15,1
;;^DIST(.404,.310108,40,9,4)
;;=^^^2
;;^DIST(.404,.310108,40,9,11)
;;=D HLP^DDSUTL(X)
;;^DIST(.404,.310109,0)
;;=DIKK EDIT UI FIELD COLUMN HDR^.31
;;^DIST(.404,.310109,40,0)
;;=^.4044I^8^8
;;^DIST(.404,.310109,40,1,0)
;;=1^Order...^1
;;^DIST(.404,.310109,40,1,2)
;;=^^1,1
;;^DIST(.404,.310109,40,2,0)
;;=2^Subscr^1
;;^DIST(.404,.310109,40,2,2)
;;=^^1,11
;;^DIST(.404,.310109,40,3,0)
;;=3^Length^1
;;^DIST(.404,.310109,40,3,2)
;;=^^1,19
;;^DIST(.404,.310109,40,4,0)
;;=4^[File,Field] Field Name^1
;;^DIST(.404,.310109,40,4,2)
;;=^^1,27
;;^DIST(.404,.310109,40,5,0)
;;=5^--------^1
;;^DIST(.404,.310109,40,5,2)
;;=^^2,1
;;^DIST(.404,.310109,40,6,0)
;;=6^------^1
;;^DIST(.404,.310109,40,6,2)
;;=^^2,11
;;^DIST(.404,.310109,40,7,0)
;;=7^------^1
;;^DIST(.404,.310109,40,7,2)
;;=^^2,19
;;^DIST(.404,.310109,40,8,0)
;;=8^-----------------------^1
;;^DIST(.404,.310109,40,8,2)
;;=^^2,27
;;^DIST(.404,.31011,0)
;;=DIKK EDIT UI FIELD REP^.114
;;^DIST(.404,.31011,40,0)
;;=^.4044I^4^4
;;^DIST(.404,.31011,40,1,0)
;;=1^^3^^ORDER
;;^DIST(.404,.31011,40,1,1)
;;=.01
;;^DIST(.404,.31011,40,1,2)
;;=1,3^3
;;^DIST(.404,.31011,40,1,4)
;;=^^^2
;;^DIST(.404,.31011,40,1,14)
;;=I X="" D HLP^DDSUTL($C(7)_"Deletions not allowed.") S DDSERROR=1
;;^DIST(.404,.31011,40,2,0)
;;=2^^3^^SUBSCRIPT
;;^DIST(.404,.31011,40,2,1)
;;=.5
;;^DIST(.404,.31011,40,2,2)
;;=1,12^3
;;^DIST(.404,.31011,40,2,4)
;;=^^^1
;;^DIST(.404,.31011,40,3,0)
;;=3^^3
;;^DIST(.404,.31011,40,3,1)
;;=6
;;^DIST(.404,.31011,40,3,2)
;;=1,20^3
;;^DIST(.404,.31011,40,3,13)
;;=D BLDLOG^DIKCFORM(DA(1))
;;^DIST(.404,.31011,40,4,0)
;;=4^^4
;;^DIST(.404,.31011,40,4,2)
;;=1,27^49
;;^DIST(.404,.31011,40,4,30)
;;=N DIKKFIL,DIKKFLD S DIKKFIL={FILE},DIKKFLD={FIELD} S Y="["_DIKKFIL_","_DIKKFLD_"] "_$P($G(^DD(DIKKFIL,DIKKFLD,0)),U)
;;^DIST(.404,.310111,0)
;;=DIKK EDIT UI FIELD CRV^.114
;;^DIST(.404,.310111,40,0)
;;=^.4044I^9^9
;;^DIST(.404,.310111,40,1,0)
;;=1^ Field-Type Cross Reference Value ^1
;;^DIST(.404,.310111,40,1,2)
;;=^^1,23
;;^DIST(.404,.310111,40,2,0)
;;=2^Order Number^3
;;^DIST(.404,.310111,40,2,1)
;;=.01
;;^DIST(.404,.310111,40,2,2)
;;=3,18^3^3,4
;;^DIST(.404,.310111,40,2,4)
;;=^^^1
;;^DIST(.404,.310111,40,3,0)
;;=3^Subscript Number^3
;;^DIST(.404,.310111,40,3,1)
;;=.5
;;^DIST(.404,.310111,40,3,2)
;;=3,56^3^3,38
;;^DIST(.404,.310111,40,3,4)
;;=^^^1
;;^DIST(.404,.310111,40,4,0)
;;=4^Field^3^^FIELD
;;^DIST(.404,.310111,40,4,1)
;;=3
;;^DIST(.404,.310111,40,4,2)
;;=4,18^20^4,11
;;^DIST(.404,.310111,40,4,4)
;;=^^^1
;;^DIST(.404,.310111,40,5,0)
;;=5^File^3
;;^DIST(.404,.310111,40,5,1)
;;=2
;;^DIST(.404,.310111,40,5,2)
;;=4,56^20^4,50
;;^DIST(.404,.310111,40,5,4)
;;=^^^1
;;^DIST(.404,.310111,40,6,0)
;;=6^Field Name^4
;;^DIST(.404,.310111,40,6,2)
;;=5,18^58^5,6
;;^DIST(.404,.310111,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,.310111,40,7,0)
;;=7^Maximum Length^3
;;^DIST(.404,.310111,40,7,1)
;;=6
;;^DIST(.404,.310111,40,7,2)
;;=7,18^3^7,2
;;^DIST(.404,.310111,40,7,13)
;;=S DIKCCRV=1
;;^DIST(.404,.310111,40,8,0)
;;=8^Collation^3
;;^DIST(.404,.310111,40,8,1)
;;=7
;;^DIST(.404,.310111,40,8,2)
;;=7,58^9^7,47
;;^DIST(.404,.310111,40,9,0)
;;=9^Lookup Prompt^3
;;^DIST(.404,.310111,40,9,1)
;;=8
;;^DIST(.404,.310111,40,9,2)
;;=8,18^30^8,3
;;^DIST(.404,.400011,0)
;;=DIBTED^.401
;;^DIST(.404,.400011,40,0)
;;=^.4044I^9^9
;;^DIST(.404,.400011,40,1,0)
;;=1^TEMPLATE NAME^3
;;^DIST(.404,.400011,40,1,1)
;;=.01
;;^DIST(.404,.400011,40,1,2)
;;=1,16^30^1,1
;;^DIST(.404,.400011,40,2,0)
;;=3^DATE LAST MODIFIED^3
;;^DIST(.404,.400011,40,2,1)
;;=2
;;^DIST(.404,.400011,40,2,2)
;;=4,28^17^4,8
;;^DIST(.404,.400011,40,2,4)
;;=^^^1
;;^DIST(.404,.400011,40,3,0)
;;=4^DATE LAST USED^3
;;^DIST(.404,.400011,40,3,1)
;;=7
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FD 7238 printed Dec 13, 2024@02:50:21 Page 2
DINIT0FD ;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 ^DINIT0FE
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.404,.310106,40,1,13)
+2 ;;=D:X=""!(DDSOLD="") UNED^DDSUTL("DETAILS","","",$S(X="":1,1:0))
+3 ;;^DIST(.404,.310106,40,1,14)
+4 ;;=D UIVAL^DIKKFORM
+5 ;;^DIST(.404,.310106,40,2,0)
+6 ;;=2^Index Details...^2^^DETAILS
+7 ;;^DIST(.404,.310106,40,2,2)
+8 ;;=3,19^1^3,2^1
+9 ;;^DIST(.404,.310106,40,2,20)
+10 ;;=F^^0:0
+11 ;;^DIST(.404,.310106,40,2,21,0)
+12 ;;=^^1^1^2970722
+13 ;;^DIST(.404,.310106,40,2,21,1,0)
+14 ;;=Press <Return> to view the properties of the Uniqueness Index.
+15 ;;^DIST(.404,.310107,0)
+16 ;;=DIKK EDIT UI HDR^.11
+17 ;;^DIST(.404,.310107,40,0)
+18 ;;=^.4044I^1^1
+19 ;;^DIST(.404,.310107,40,1,0)
+20 ;;=1^ Uniqueness Index ^1
+21 ;;^DIST(.404,.310107,40,1,2)
+22 ;;=^^1,31
+23 ;;^DIST(.404,.310108,0)
+24 ;;=DIKK EDIT UI^.11
+25 ;;^DIST(.404,.310108,40,0)
+26 ;;=^.4044I^9^9
+27 ;;^DIST(.404,.310108,40,1,0)
+28 ;;=1^File^3
+29 ;;^DIST(.404,.310108,40,1,1)
+30 ;;=.01
+31 ;;^DIST(.404,.310108,40,1,2)
+32 ;;=1,13^20^1,7
+33 ;;^DIST(.404,.310108,40,1,4)
+34 ;;=^^^1
+35 ;;^DIST(.404,.310108,40,1,13)
+36 ;;=D BLDLOG^DIKCFORM(DA)
+37 ;;^DIST(.404,.310108,40,1,14)
+38 ;;=D VALFILE^DIKCFORM
+39 ;;^DIST(.404,.310108,40,2,0)
+40 ;;=2^Root File^3
+41 ;;^DIST(.404,.310108,40,2,1)
+42 ;;=.51
+43 ;;^DIST(.404,.310108,40,2,2)
+44 ;;=1,56^20^1,45
+45 ;;^DIST(.404,.310108,40,2,4)
+46 ;;=^^^1
+47 ;;^DIST(.404,.310108,40,3,0)
+48 ;;=3^Index Name^3^^NAME
+49 ;;^DIST(.404,.310108,40,3,1)
+50 ;;=.02
+51 ;;^DIST(.404,.310108,40,3,2)
+52 ;;=2,13^30^2,1
+53 ;;^DIST(.404,.310108,40,3,13)
+54 ;;=D BLDLOG^DIKCFORM(DA)
+55 ;;^DIST(.404,.310108,40,3,14)
+56 ;;=D NAMEVAL^DIKCFORM
+57 ;;^DIST(.404,.310108,40,4,0)
+58 ;;=4^Root Type^3
+59 ;;^DIST(.404,.310108,40,4,1)
+60 ;;=.5
+61 ;;^DIST(.404,.310108,40,4,2)
+62 ;;=2,56^16^2,45
+63 ;;^DIST(.404,.310108,40,4,4)
+64 ;;=^^^1
+65 ;;^DIST(.404,.310108,40,5,0)
+66 ;;=5^Short Description^3
+67 ;;^DIST(.404,.310108,40,5,1)
+68 ;;=.11
+69 ;;^DIST(.404,.310108,40,5,2)
+70 ;;=4,20^56^4,1
+71 ;;^DIST(.404,.310108,40,5,11)
+72 ;;=D HLP^DDSUTL(X)
+73 ;;^DIST(.404,.310108,40,6,0)
+74 ;;=6^Description (wp)^3
+75 ;;^DIST(.404,.310108,40,6,1)
+76 ;;=.1
+77 ;;^DIST(.404,.310108,40,6,2)
+78 ;;=5,20^1^5,2
+79 ;;^DIST(.404,.310108,40,7,0)
+80 ;;=7^!M^1
+81 ;;^DIST(.404,.310108,40,7,.1)
+82 ;;=N WPROOT S WPROOT=$$GET^DDSVAL(.11,DA,.1),Y=$S(WPROOT]"":$G(@WPROOT@(1,0)),1:""),Y=$S(Y]"":"["_$E(Y,1,51)_"]",1:"(empty)")
+83 ;;^DIST(.404,.310108,40,7,2)
+84 ;;=^^5,23
+85 ;;^DIST(.404,.310108,40,8,0)
+86 ;;=8^Set Logic^3
+87 ;;^DIST(.404,.310108,40,8,1)
+88 ;;=1.1
+89 ;;^DIST(.404,.310108,40,8,2)
+90 ;;=14,13^63^14,2
+91 ;;^DIST(.404,.310108,40,8,4)
+92 ;;=^^^2
+93 ;;^DIST(.404,.310108,40,8,11)
+94 ;;=D HLP^DDSUTL(X)
+95 ;;^DIST(.404,.310108,40,9,0)
+96 ;;=9^Kill Logic^3
+97 ;;^DIST(.404,.310108,40,9,1)
+98 ;;=2.1
+99 ;;^DIST(.404,.310108,40,9,2)
+100 ;;=15,13^63^15,1
+101 ;;^DIST(.404,.310108,40,9,4)
+102 ;;=^^^2
+103 ;;^DIST(.404,.310108,40,9,11)
+104 ;;=D HLP^DDSUTL(X)
+105 ;;^DIST(.404,.310109,0)
+106 ;;=DIKK EDIT UI FIELD COLUMN HDR^.31
+107 ;;^DIST(.404,.310109,40,0)
+108 ;;=^.4044I^8^8
+109 ;;^DIST(.404,.310109,40,1,0)
+110 ;;=1^Order...^1
+111 ;;^DIST(.404,.310109,40,1,2)
+112 ;;=^^1,1
+113 ;;^DIST(.404,.310109,40,2,0)
+114 ;;=2^Subscr^1
+115 ;;^DIST(.404,.310109,40,2,2)
+116 ;;=^^1,11
+117 ;;^DIST(.404,.310109,40,3,0)
+118 ;;=3^Length^1
+119 ;;^DIST(.404,.310109,40,3,2)
+120 ;;=^^1,19
+121 ;;^DIST(.404,.310109,40,4,0)
+122 ;;=4^[File,Field] Field Name^1
+123 ;;^DIST(.404,.310109,40,4,2)
+124 ;;=^^1,27
+125 ;;^DIST(.404,.310109,40,5,0)
+126 ;;=5^--------^1
+127 ;;^DIST(.404,.310109,40,5,2)
+128 ;;=^^2,1
+129 ;;^DIST(.404,.310109,40,6,0)
+130 ;;=6^------^1
+131 ;;^DIST(.404,.310109,40,6,2)
+132 ;;=^^2,11
+133 ;;^DIST(.404,.310109,40,7,0)
+134 ;;=7^------^1
+135 ;;^DIST(.404,.310109,40,7,2)
+136 ;;=^^2,19
+137 ;;^DIST(.404,.310109,40,8,0)
+138 ;;=8^-----------------------^1
+139 ;;^DIST(.404,.310109,40,8,2)
+140 ;;=^^2,27
+141 ;;^DIST(.404,.31011,0)
+142 ;;=DIKK EDIT UI FIELD REP^.114
+143 ;;^DIST(.404,.31011,40,0)
+144 ;;=^.4044I^4^4
+145 ;;^DIST(.404,.31011,40,1,0)
+146 ;;=1^^3^^ORDER
+147 ;;^DIST(.404,.31011,40,1,1)
+148 ;;=.01
+149 ;;^DIST(.404,.31011,40,1,2)
+150 ;;=1,3^3
+151 ;;^DIST(.404,.31011,40,1,4)
+152 ;;=^^^2
+153 ;;^DIST(.404,.31011,40,1,14)
+154 ;;=I X="" D HLP^DDSUTL($C(7)_"Deletions not allowed.") S DDSERROR=1
+155 ;;^DIST(.404,.31011,40,2,0)
+156 ;;=2^^3^^SUBSCRIPT
+157 ;;^DIST(.404,.31011,40,2,1)
+158 ;;=.5
+159 ;;^DIST(.404,.31011,40,2,2)
+160 ;;=1,12^3
+161 ;;^DIST(.404,.31011,40,2,4)
+162 ;;=^^^1
+163 ;;^DIST(.404,.31011,40,3,0)
+164 ;;=3^^3
+165 ;;^DIST(.404,.31011,40,3,1)
+166 ;;=6
+167 ;;^DIST(.404,.31011,40,3,2)
+168 ;;=1,20^3
+169 ;;^DIST(.404,.31011,40,3,13)
+170 ;;=D BLDLOG^DIKCFORM(DA(1))
+171 ;;^DIST(.404,.31011,40,4,0)
+172 ;;=4^^4
+173 ;;^DIST(.404,.31011,40,4,2)
+174 ;;=1,27^49
+175 ;;^DIST(.404,.31011,40,4,30)
+176 ;;=N DIKKFIL,DIKKFLD S DIKKFIL={FILE},DIKKFLD={FIELD} S Y="["_DIKKFIL_","_DIKKFLD_"] "_$P($G(^DD(DIKKFIL,DIKKFLD,0)),U)
+177 ;;^DIST(.404,.310111,0)
+178 ;;=DIKK EDIT UI FIELD CRV^.114
+179 ;;^DIST(.404,.310111,40,0)
+180 ;;=^.4044I^9^9
+181 ;;^DIST(.404,.310111,40,1,0)
+182 ;;=1^ Field-Type Cross Reference Value ^1
+183 ;;^DIST(.404,.310111,40,1,2)
+184 ;;=^^1,23
+185 ;;^DIST(.404,.310111,40,2,0)
+186 ;;=2^Order Number^3
+187 ;;^DIST(.404,.310111,40,2,1)
+188 ;;=.01
+189 ;;^DIST(.404,.310111,40,2,2)
+190 ;;=3,18^3^3,4
+191 ;;^DIST(.404,.310111,40,2,4)
+192 ;;=^^^1
+193 ;;^DIST(.404,.310111,40,3,0)
+194 ;;=3^Subscript Number^3
+195 ;;^DIST(.404,.310111,40,3,1)
+196 ;;=.5
+197 ;;^DIST(.404,.310111,40,3,2)
+198 ;;=3,56^3^3,38
+199 ;;^DIST(.404,.310111,40,3,4)
+200 ;;=^^^1
+201 ;;^DIST(.404,.310111,40,4,0)
+202 ;;=4^Field^3^^FIELD
+203 ;;^DIST(.404,.310111,40,4,1)
+204 ;;=3
+205 ;;^DIST(.404,.310111,40,4,2)
+206 ;;=4,18^20^4,11
+207 ;;^DIST(.404,.310111,40,4,4)
+208 ;;=^^^1
+209 ;;^DIST(.404,.310111,40,5,0)
+210 ;;=5^File^3
+211 ;;^DIST(.404,.310111,40,5,1)
+212 ;;=2
+213 ;;^DIST(.404,.310111,40,5,2)
+214 ;;=4,56^20^4,50
+215 ;;^DIST(.404,.310111,40,5,4)
+216 ;;=^^^1
+217 ;;^DIST(.404,.310111,40,6,0)
+218 ;;=6^Field Name^4
+219 ;;^DIST(.404,.310111,40,6,2)
+220 ;;=5,18^58^5,6
+221 ;;^DIST(.404,.310111,40,6,30)
+222 ;;=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)_"..."
+223 ;;^DIST(.404,.310111,40,7,0)
+224 ;;=7^Maximum Length^3
+225 ;;^DIST(.404,.310111,40,7,1)
+226 ;;=6
+227 ;;^DIST(.404,.310111,40,7,2)
+228 ;;=7,18^3^7,2
+229 ;;^DIST(.404,.310111,40,7,13)
+230 ;;=S DIKCCRV=1
+231 ;;^DIST(.404,.310111,40,8,0)
+232 ;;=8^Collation^3
+233 ;;^DIST(.404,.310111,40,8,1)
+234 ;;=7
+235 ;;^DIST(.404,.310111,40,8,2)
+236 ;;=7,58^9^7,47
+237 ;;^DIST(.404,.310111,40,9,0)
+238 ;;=9^Lookup Prompt^3
+239 ;;^DIST(.404,.310111,40,9,1)
+240 ;;=8
+241 ;;^DIST(.404,.310111,40,9,2)
+242 ;;=8,18^30^8,3
+243 ;;^DIST(.404,.400011,0)
+244 ;;=DIBTED^.401
+245 ;;^DIST(.404,.400011,40,0)
+246 ;;=^.4044I^9^9
+247 ;;^DIST(.404,.400011,40,1,0)
+248 ;;=1^TEMPLATE NAME^3
+249 ;;^DIST(.404,.400011,40,1,1)
+250 ;;=.01
+251 ;;^DIST(.404,.400011,40,1,2)
+252 ;;=1,16^30^1,1
+253 ;;^DIST(.404,.400011,40,2,0)
+254 ;;=3^DATE LAST MODIFIED^3
+255 ;;^DIST(.404,.400011,40,2,1)
+256 ;;=2
+257 ;;^DIST(.404,.400011,40,2,2)
+258 ;;=4,28^17^4,8
+259 ;;^DIST(.404,.400011,40,2,4)
+260 ;;=^^^1
+261 ;;^DIST(.404,.400011,40,3,0)
+262 ;;=4^DATE LAST USED^3
+263 ;;^DIST(.404,.400011,40,3,1)
+264 ;;=7
