- TIUEPN12 ; ;04/07/16
- S X=DG(DQ),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 ASUBS^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[HTIUEPN12 239 printed Apr 23, 2025@18:54:53 Page 2
- TIUEPN12 ; ;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,0)),U,5)
- IF +$PIECE($GET(^TIU(8925,+DA,13)),U)
- DO ASUBS^TIUDD($GET(X),+$GET(^TIU(8925,+DA,0)),+$PIECE(^TIU(8925,+DA,0),U,5),(9999999-+$GET(^TIU(8925,+DA,13))),DA)
