35 lines
747 B
Mathematica
35 lines
747 B
Mathematica
DINIT220 ;SFISC/DPC-LOAD DATA FOR DATA TYPE FILE ;7/22/94 10:50
|
|
;;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="" ^DINIT24 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
|
|
Q
|
|
ENTRY ;
|
|
;;^DI(.81,0)
|
|
;;=DATA TYPE^.81^99^10
|
|
;;^DI(.81,1,0)
|
|
;;=DATE/TIME^D
|
|
;;^DI(.81,2,0)
|
|
;;=NUMERIC^N
|
|
;;^DI(.81,3,0)
|
|
;;=SET OF CODES^S
|
|
;;^DI(.81,1,0)
|
|
;;=DATE/TIME^D
|
|
;;^DI(.81,2,0)
|
|
;;=NUMERIC^N
|
|
;;^DI(.81,3,0)
|
|
;;=SET OF CODES^S
|
|
;;^DI(.81,4,0)
|
|
;;=FREE TEXT^F
|
|
;;^DI(.81,5,0)
|
|
;;=WORD-PROCESSING^W
|
|
;;^DI(.81,6,0)
|
|
;;=COMPUTED^C
|
|
;;^DI(.81,7,0)
|
|
;;=POINTER TO A FILE^P
|
|
;;^DI(.81,8,0)
|
|
;;=VARIABLE-POINTER^V
|
|
;;^DI(.81,9,0)
|
|
;;=MUMPS^K
|
|
;;^DI(.81,99,0)
|
|
;;=RESERVED FOR FILEMAN
|