TIUEPN7.m

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 ---TIUEPN7   392     printed  Apr 09, 2024@21:48:36                                                                                                                                                                                                      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)=""