ECX89042 ; COMPILED XREF FOR FILE #728.904 ; 11/01/12
;
S DIKZK=1
S DIKZ(0)=$G(^ECX(728.904,DA,0))
S X=$P($G(DIKZ(0)),U,1)
I X'="" S ^ECX(728.904,"AINV",-X,DA)=""
S X=$P($G(DIKZ(0)),U,3)
I X'="" S ^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'="" S ^ECX(728.904,"AC",$E(X,1,30),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 ^ECX(728.904,"AO",X(1),X(2),DA)=""
CR2 K X
END Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX89042 556 printed Nov 22, 2024@17:02:02 Page 2
ECX89042 ; COMPILED XREF FOR FILE #728.904 ; 11/01/12
+1 ;
+2 SET DIKZK=1
+3 SET DIKZ(0)=$GET(^ECX(728.904,DA,0))
+4 SET X=$PIECE($GET(DIKZ(0)),U,1)
+5 IF X'=""
SET ^ECX(728.904,"AINV",-X,DA)=""
+6 SET X=$PIECE($GET(DIKZ(0)),U,3)
+7 IF X'=""
SET ^ECX(728.904,"A",$EXTRACT(X,1,30),DA)=""
+8 SET DIKZ(1)=$GET(^ECX(728.904,DA,1))
+9 SET X=$PIECE($GET(DIKZ(1)),U,1)
+10 IF X'=""
SET ^ECX(728.904,"AC",$EXTRACT(X,1,30),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 SET ^ECX(728.904,"AO",X(1),X(2),DA)=""
End DoDot:1
CR2 KILL X
END QUIT
