| 1 | DDSR1 ;SFISC/MKO-PAINT ;08:09 AM 20 May 1994
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 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
|
|---|
