33 lines
1.1 KiB
Mathematica
33 lines
1.1 KiB
Mathematica
DINIT2AB ;SFISC/MKO-DATA FOR KEY AND INDEX FILES ;10:50 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="" ^DINIT2AC S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
|
|
Q
|
|
ENTRY ;
|
|
;;^DD("IX",.31203,0)
|
|
;;=.312^S^Lets FileMan step through Key fields in sequence^R^^R^IR^I^.312^^^^^LS
|
|
;;^DD("IX",.31203,.1,0)
|
|
;;=^^4^4^2980911^
|
|
;;^DD("IX",.31203,.1,1,0)
|
|
;;=The S index, a compound index on all fields of the Fields multiple of the
|
|
;;^DD("IX",.31203,.1,2,0)
|
|
;;=Key file, lets FileMan step through the key fields in sequence. This is
|
|
;;^DD("IX",.31203,.1,3,0)
|
|
;;=essential for prompting, returning values, as well as for the generation
|
|
;;^DD("IX",.31203,.1,4,0)
|
|
;;=of each key's uniqueness index.
|
|
;;^DD("IX",.31203,1)
|
|
;;=S ^DD("KEY",DA(1),2,"S",X(1),X(2),X(3),DA)=""
|
|
;;^DD("IX",.31203,2)
|
|
;;=K ^DD("KEY",DA(1),2,"S",X(1),X(2),X(3),DA)
|
|
;;^DD("IX",.31203,2.5)
|
|
;;=K ^DD("KEY",DA(1),2,"S")
|
|
;;^DD("IX",.31203,11.1,0)
|
|
;;=^.114^3^3
|
|
;;^DD("IX",.31203,11.1,1,0)
|
|
;;=1^F^.312^1^^1
|
|
;;^DD("IX",.31203,11.1,2,0)
|
|
;;=2^F^.312^.01^^2
|
|
;;^DD("IX",.31203,11.1,3,0)
|
|
;;=3^F^.312^.02^^3
|