Return to DITMU3.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DITMU3.m, revision 1.1.1.1

1.1       snw         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