37 lines
891 B
Mathematica
37 lines
891 B
Mathematica
|
DINIT2AC ;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="" ^DINIT2B0 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
|
||
|
|
Q
|
||
|
|
ENTRY ;
|
||
|
|
;;^DD("KEY",.1101,0)
|
||
|
|
;;=.11^A^P^.1101^^
|
||
|
|
;;^DD("KEY",.1101,2,0)
|
||
|
|
;;=^.312I^2^2
|
||
|
|
;;^DD("KEY",.1101,2,1,0)
|
||
|
|
;;=.01^.11^1
|
||
|
|
;;^DD("KEY",.1101,2,2,0)
|
||
|
|
;;=.02^.11^2
|
||
|
|
;;^DD("KEY",.11401,0)
|
||
|
|
;;=.114^A^P^.11401^^
|
||
|
|
;;^DD("KEY",.11401,2,0)
|
||
|
|
;;=^.312I^1^1
|
||
|
|
;;^DD("KEY",.11401,2,1,0)
|
||
|
|
;;=.01^.114^1
|
||
|
|
;;^DD("KEY",.3101,0)
|
||
|
|
;;=.31^A^P^.3101^^
|
||
|
|
;;^DD("KEY",.3101,2,0)
|
||
|
|
;;=^.312I^2^2
|
||
|
|
;;^DD("KEY",.3101,2,1,0)
|
||
|
|
;;=.01^.31^1
|
||
|
|
;;^DD("KEY",.3101,2,2,0)
|
||
|
|
;;=.02^.31^2
|
||
|
|
;;^DD("KEY",.31201,0)
|
||
|
|
;;=.312^A^P^.31201^^
|
||
|
|
;;^DD("KEY",.31201,2,0)
|
||
|
|
;;=^.312I^2^2
|
||
|
|
;;^DD("KEY",.31201,2,1,0)
|
||
|
|
;;=.01^.312^1
|
||
|
|
;;^DD("KEY",.31201,2,2,0)
|
||
|
|
;;=.02^.312^2
|