source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT2AC.m@ 1739

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

initial load of WorldVistAEHR

File size: 891 bytes
Line 
1DINIT2AC ;SFISC/MKO-DATA FOR KEY AND INDEX FILES ;10:50 AM 30 Mar 1999
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="" ^DINIT2B0 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DD("KEY",.1101,0)
8 ;;=.11^A^P^.1101^^
9 ;;^DD("KEY",.1101,2,0)
10 ;;=^.312I^2^2
11 ;;^DD("KEY",.1101,2,1,0)
12 ;;=.01^.11^1
13 ;;^DD("KEY",.1101,2,2,0)
14 ;;=.02^.11^2
15 ;;^DD("KEY",.11401,0)
16 ;;=.114^A^P^.11401^^
17 ;;^DD("KEY",.11401,2,0)
18 ;;=^.312I^1^1
19 ;;^DD("KEY",.11401,2,1,0)
20 ;;=.01^.114^1
21 ;;^DD("KEY",.3101,0)
22 ;;=.31^A^P^.3101^^
23 ;;^DD("KEY",.3101,2,0)
24 ;;=^.312I^2^2
25 ;;^DD("KEY",.3101,2,1,0)
26 ;;=.01^.31^1
27 ;;^DD("KEY",.3101,2,2,0)
28 ;;=.02^.31^2
29 ;;^DD("KEY",.31201,0)
30 ;;=.312^A^P^.31201^^
31 ;;^DD("KEY",.31201,2,0)
32 ;;=^.312I^2^2
33 ;;^DD("KEY",.31201,2,1,0)
34 ;;=.01^.312^1
35 ;;^DD("KEY",.31201,2,2,0)
36 ;;=.02^.312^2
Note: See TracBrowser for help on using the repository browser.