Return to DITMU3.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DITMU3.m, revision 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