281 lines
6.6 KiB
Mathematica
281 lines
6.6 KiB
Mathematica
DINIT0FC ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
|
|
;;22.0;VA FileMan;;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="" ^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
|