Return to DDSR1.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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