- TIUEPN7 ; ;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[HTIUEPN7 392 printed Feb 19, 2025@00:06:57 Page 2
- TIUEPN7 ; ;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)=""