ECX89041 ; COMPILED XREF FOR FILE #728.904 ; 11/01/12
;
S DIKZK=2
S DIKZ(0)=$G(^ECX(728.904,DA,0))
S X=$P($G(DIKZ(0)),U,3)
I X'="" K ^ECX(728.904,"A",$E(X,1,30),DA)
S DIKZ(1)=$G(^ECX(728.904,DA,1))
S X=$P($G(DIKZ(1)),U,1)
I X'="" K ^ECX(728.904,"AC",$E(X,1,30),DA)
S X=$P($G(DIKZ(0)),U,1)
I X'="" K ^ECX(728.904,"AINV",-X,DA)
CR1 S DIXR=317
K X
S X(1)=$P(DIKZ(0),U,2)
S X(2)=$P(DIKZ(0),U,10)
S X=$G(X(1))
I $G(X(1))]"",$G(X(2))]"" D
. K X1,X2 M X1=X,X2=X
. S:$D(DIKIL) (X2,X2(1),X2(2))=""
. K ^ECX(728.904,"AO",X(1),X(2),DA)
CR2 K X
END Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX89041 580 printed Nov 22, 2024@17:02:01 Page 2
ECX89041 ; COMPILED XREF FOR FILE #728.904 ; 11/01/12
+1 ;
+2 SET DIKZK=2
+3 SET DIKZ(0)=$GET(^ECX(728.904,DA,0))
+4 SET X=$PIECE($GET(DIKZ(0)),U,3)
+5 IF X'=""
KILL ^ECX(728.904,"A",$EXTRACT(X,1,30),DA)
+6 SET DIKZ(1)=$GET(^ECX(728.904,DA,1))
+7 SET X=$PIECE($GET(DIKZ(1)),U,1)
+8 IF X'=""
KILL ^ECX(728.904,"AC",$EXTRACT(X,1,30),DA)
+9 SET X=$PIECE($GET(DIKZ(0)),U,1)
+10 IF X'=""
KILL ^ECX(728.904,"AINV",-X,DA)
CR1 SET DIXR=317
+1 KILL X
+2 SET X(1)=$PIECE(DIKZ(0),U,2)
+3 SET X(2)=$PIECE(DIKZ(0),U,10)
+4 SET X=$GET(X(1))
+5 IF $GET(X(1))]""
IF $GET(X(2))]""
Begin DoDot:1
+6 KILL X1,X2
MERGE X1=X,X2=X
+7 if $DATA(DIKIL)
SET (X2,X2(1),X2(2))=""
+8 KILL ^ECX(728.904,"AO",X(1),X(2),DA)
End DoDot:1
CR2 KILL X
END QUIT
