ECX8101 ; COMPILED XREF FOR FILE #727.81 ; 11/01/23
;
S DIKZK=2
S DIKZ(0)=$G(^ECX(727.81,DA,0))
S X=$P($G(DIKZ(0)),U,3)
I X'="" K ^ECX(727.81,"AC",$E(X,1,30),DA)
S X=$P($G(DIKZ(0)),U,17)
I X'="" S DH=727.81,DV=16,DU=1 S DIIX=2 D:$G(DIK(0))'["A" AUDIT^DIK1
END Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX8101 279 printed Nov 22, 2024@17:01:19 Page 2
ECX8101 ; COMPILED XREF FOR FILE #727.81 ; 11/01/23
+1 ;
+2 SET DIKZK=2
+3 SET DIKZ(0)=$GET(^ECX(727.81,DA,0))
+4 SET X=$PIECE($GET(DIKZ(0)),U,3)
+5 IF X'=""
KILL ^ECX(727.81,"AC",$EXTRACT(X,1,30),DA)
+6 SET X=$PIECE($GET(DIKZ(0)),U,17)
+7 IF X'=""
SET DH=727.81
SET DV=16
SET DU=1
SET DIIX=2
if $GET(DIK(0))'["A"
DO AUDIT^DIK1
END QUIT
