Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: TIUEPN12

TIUEPN12.m

Go to the documentation of this file.

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 09, 2024@21:45:25                                                                                                                                                                                                     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)