- 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 Feb 19, 2025@00:16:35 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