source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT220.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 747 bytes
Line 
1DINIT220 ;SFISC/DPC-LOAD DATA FOR DATA TYPE FILE ;7/22/94 10:50
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 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
5 Q
6ENTRY ;
7 ;;^DI(.81,0)
8 ;;=DATA TYPE^.81^99^10
9 ;;^DI(.81,1,0)
10 ;;=DATE/TIME^D
11 ;;^DI(.81,2,0)
12 ;;=NUMERIC^N
13 ;;^DI(.81,3,0)
14 ;;=SET OF CODES^S
15 ;;^DI(.81,1,0)
16 ;;=DATE/TIME^D
17 ;;^DI(.81,2,0)
18 ;;=NUMERIC^N
19 ;;^DI(.81,3,0)
20 ;;=SET OF CODES^S
21 ;;^DI(.81,4,0)
22 ;;=FREE TEXT^F
23 ;;^DI(.81,5,0)
24 ;;=WORD-PROCESSING^W
25 ;;^DI(.81,6,0)
26 ;;=COMPUTED^C
27 ;;^DI(.81,7,0)
28 ;;=POINTER TO A FILE^P
29 ;;^DI(.81,8,0)
30 ;;=VARIABLE-POINTER^V
31 ;;^DI(.81,9,0)
32 ;;=MUMPS^K
33 ;;^DI(.81,99,0)
34 ;;=RESERVED FOR FILEMAN
Note: See TracBrowser for help on using the repository browser.