TIUEPN11 ; ;04/07/16
S X=DE(35),DIC=DIE
I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$P($G(^TIU(8925,+DA,13)),U) D ASUBK^TIUDD($G(X),+$G(^TIU(8925,+DA,0)),+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUEPN11 239 printed Nov 22, 2024@17:50:19 Page 2
TIUEPN11 ; ;04/07/16
+1 SET X=DE(35)
SET DIC=DIE
+2 IF +$PIECE($GET(^TIU(8925,+DA,0)),U)
IF +$PIECE($GET(^TIU(8925,+DA,0)),U,5)
IF +$PIECE($GET(^TIU(8925,+DA,13)),U)
DO ASUBK^TIUDD($GET(X),+$GET(^TIU(8925,+DA,0)),+$PIECE(^TIU(8925,+DA,0),U,5),(9999999-+$GET(^TIU(8925,+DA,13))),DA)
