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

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

initial load of WorldVistAEHR

File size: 892 bytes
RevLine 
[613]1DITMU3(FILE,FIELD,ROOT) ;SFISC/EDE(OHPRD)-GET XREFS FOR ONE FIELD IN ONE FILE/SUBFILE ;
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; Given a file/subfile number, a field number, and a variable
6 ; from which to assign subscripted values, this routine will
7 ; return the xrefs for the specified field.
8 ;
9 ; The returned xrefs will be subscripted from the ROOT as follows:
10 ;
11 ; ROOT(FIELD,n) = file/subfile^xref (e.g. 9000010^AC)
12 ; ROOT(FIELD,n,"K") = executable kill logic
13 ; ROOT(FIELD,n,"S") = executable set logic
14 ;
15 ; Formal list:
16 ;
17 ; 1) FILE = file or subfile number (call by value)
18 ; 2) FIELD = field number (call by value)
19 ; 3) ROOT = array root (call by reference)
20 ;
21START ;
22 NEW Y
23 F Y=0:0 S Y=$O(^DD(FILE,FIELD,1,Y)) Q:Y'=+Y S ROOT(FIELD,Y)=^(Y,0),ROOT(FIELD,Y,"S")=^(1),ROOT(FIELD,Y,"K")=^(2)
24 Q
Note: See TracBrowser for help on using the repository browser.