Return to DDSR1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDSR1.m, revision 1.1

1.1     ! snw         1: DDSR1  ;SFISC/MKO-PAINT ;08:09 AM  20 May 1994
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        ;
        !             5: CAP    ;Write captions in "X" nodes
        !             6:        W:$D(DDGLVAN) $P(DDGLVID,DDGLDEL,2)
        !             7:        ;
        !             8:        S DY=""
        !             9:        F  S DY=$O(@DDSREFS@("X",DDS3P,DY)) Q:DY=""  S DX=$O(^(DY,"")),DDS3CAP=^(DX) D:$D(^(DX))=11  X IOXY W DDS3CAP
        !            10:        . N A,C,C1,C2,P,PC,V,X
        !            11:        . Q:'$D(@DDSREFS@("X",DDS3P,DY,DX,"A"))  S A=^("A")
        !            12:        . S X=DDS3CAP,DDS3CAP="",P=1
        !            13:        . F PC=1:1:$L(A,U) S C=$P(A,U,PC) D:C]""
        !            14:        .. S C1=$P(C,";"),C2=$P(C,";",2)
        !            15:        .. S V=$S($P(C,";",3)="U":$P(DDGLVID,DDGLDEL,4),1:"")
        !            16:        .. S DDS3CAP=DDS3CAP_$E(X,P,C1-1)_V_$E(X,C1,C2)_$P(DDGLVID,DDGLDEL,10)_$S($D(DDGLVAN):$P(DDGLVID,DDGLDEL,2),1:"")
        !            17:        .. S P=C2+1
        !            18:        . S DDS3CAP=DDS3CAP_$E(X,P,999)
        !            19:        ;
        !            20:        W:$D(DDGLVAN) $P(DDGLVID,DDGLDEL,10)
        !            21:        K DDS3CAP
        !            22:        Q