Return to DITMU3.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DITMU3(FILE,FIELD,ROOT)	;SFISC/EDE(OHPRD)-GET XREFS FOR ONE FIELD IN ONE FILE/SUBFILE ;
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    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: 	;
   21: START	;
   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