TIUEPN6 ; ;04/07/16
S X=DE(21),DIC=DIE
I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALOC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
S X=DE(21),DIC=DIE
I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,"ALOCP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUEPN6 366 printed Dec 13, 2024@02:40:28 Page 2
TIUEPN6 ; ;04/07/16
+1 SET X=DE(21)
SET DIC=DIE
+2 IF +$PIECE($GET(^TIU(8925,+DA,0)),U)
IF +$PIECE($GET(^TIU(8925,+DA,13)),U)
IF +$PIECE($GET(^TIU(8925,+DA,0)),U,5)
KILL ^TIU(8925,"ALOC",+X,+$PIECE($GET(^TIU(8925,+DA,0)),U),+$PIECE($GET(^TIU(8925,+DA,0)),U,5),(9999999-$PIECE($GET(^TIU(8925,+DA,13)),U)),DA)
+3 SET X=DE(21)
SET DIC=DIE
+4 IF +$PIECE($GET(^TIU(8925,+DA,15)),U)
KILL ^TIU(8925,"ALOCP",+X,+$PIECE($GET(^TIU(8925,+DA,15)),U),+DA)
