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

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1DINIT2AB ;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="" ^DINIT2AC S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DD("IX",.31203,0)
8 ;;=.312^S^Lets FileMan step through Key fields in sequence^R^^R^IR^I^.312^^^^^LS
9 ;;^DD("IX",.31203,.1,0)
10 ;;=^^4^4^2980911^
11 ;;^DD("IX",.31203,.1,1,0)
12 ;;=The S index, a compound index on all fields of the Fields multiple of the
13 ;;^DD("IX",.31203,.1,2,0)
14 ;;=Key file, lets FileMan step through the key fields in sequence. This is
15 ;;^DD("IX",.31203,.1,3,0)
16 ;;=essential for prompting, returning values, as well as for the generation
17 ;;^DD("IX",.31203,.1,4,0)
18 ;;=of each key's uniqueness index.
19 ;;^DD("IX",.31203,1)
20 ;;=S ^DD("KEY",DA(1),2,"S",X(1),X(2),X(3),DA)=""
21 ;;^DD("IX",.31203,2)
22 ;;=K ^DD("KEY",DA(1),2,"S",X(1),X(2),X(3),DA)
23 ;;^DD("IX",.31203,2.5)
24 ;;=K ^DD("KEY",DA(1),2,"S")
25 ;;^DD("IX",.31203,11.1,0)
26 ;;=^.114^3^3
27 ;;^DD("IX",.31203,11.1,1,0)
28 ;;=1^F^.312^1^^1
29 ;;^DD("IX",.31203,11.1,2,0)
30 ;;=2^F^.312^.01^^2
31 ;;^DD("IX",.31203,11.1,3,0)
32 ;;=3^F^.312^.02^^3
Note: See TracBrowser for help on using the repository browser.