TIUEPN5 ; ;04/07/16
S X=DG(DQ),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) S ^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=DG(DQ),DIC=DIE
I +$$ALOCP^TIULX(+DA),+$P($G(^TIU(8925,+DA,15)),U) S ^TIU(8925,"ALOCP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)=""
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUEPN5 392 printed Dec 13, 2024@02:40:27 Page 2
TIUEPN5 ; ;04/07/16
+1 SET X=DG(DQ)
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)
SET ^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=DG(DQ)
SET DIC=DIE
+4 IF +$$ALOCP^TIULX(+DA)
IF +$PIECE($GET(^TIU(8925,+DA,15)),U)
SET ^TIU(8925,"ALOCP",+X,+$PIECE($GET(^TIU(8925,+DA,15)),U),+DA)=""
