Routine: TIU358P

TIU358P ; NA/AJB - POST-INSTALL ;04/06/23  06:19

 ;;1.0;TEXT INTEGRATION UTILITIES;**358**;Jun 20, 1997;Build 16

POST ;

 N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSK S ZTDESC="Post-Install TIU,358",ZTIO=""

 S ZTDTH=+$H_","_($P($H,",",2)+10),ZTRTN="TASK^TIU358P(DUZ)" D ^%ZTLOAD

 D BMES^XPDUTL("TIU*1.0*358 Post-Install task started.  Task #"_ZTSK)

TASK(USER) ;

 S ZTREQ="@" N DOC,ENTRY,GBL,IEN S GBL=$NA(^TIU(8925.7,"AC"))

 S ENTRY=0 F  S ENTRY=$O(@GBL@(ENTRY)) Q:'ENTRY  S DOC=0 F  S DOC=$O(@GBL@(ENTRY,DOC)) Q:'DOC  S IEN=0 F  S IEN=$O(@GBL@(ENTRY,DOC,IEN)) Q:'IEN  D

 . N NODE S NODE=$G(^TIU(8925.7,IEN,0)) I +$P(NODE,U,4) K @GBL@(ENTRY,DOC,IEN) D SEND^TIUALRT(DOC) ; signed, kill "AC" index, resend alerts

 N XMDUN,XMDUZ,XMSUB,XMTEXT,XMY,XMZ S XMDUZ=.5,XMSUB="TIU*1.0*358 Post-Install Complete",XMTEXT="XMTEXT(",XMY(USER)=""

 S XMTEXT(1)="TIU*1.0*358 Post-Install task complete."

 D ^XMD

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU358P   907     printed  Apr 09, 2024@21:47:26                                                                                                                                                                                                      Page 2

TIU358P   ; NA/AJB - POST-INSTALL ;04/06/23  06:19

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**358**;Jun 20, 1997;Build 16

 +2       ;

 +3        QUIT

POST      ;

 +1        NEW ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSK

           SET ZTDESC="Post-Install TIU,358"

           SET ZTIO=""

 +2        SET ZTDTH=+$HOROLOG_","_($PIECE($HOROLOG,",",2)+10)

           SET ZTRTN="TASK^TIU358P(DUZ)"

           DO ^%ZTLOAD

 +3        DO BMES^XPDUTL("TIU*1.0*358 Post-Install task started.  Task #"_ZTSK)

 +4        QUIT

TASK(USER) ;

 +1        SET ZTREQ="@"

           NEW DOC,ENTRY,GBL,IEN

           SET GBL=$NAME(^TIU(8925.7,"AC"))

 +2        SET ENTRY=0

FOR

               SET ENTRY=$ORDER(@GBL@(ENTRY))

               if 'ENTRY

                   QUIT

               SET DOC=0

FOR

                   SET DOC=$ORDER(@GBL@(ENTRY,DOC))

                   if 'DOC

                       QUIT

                   SET IEN=0

FOR

                       SET IEN=$ORDER(@GBL@(ENTRY,DOC,IEN))

                       if 'IEN

                           QUIT

                       Begin DoDot:1

 +3       ; signed, kill "AC" index, resend alerts

                           NEW NODE

                           SET NODE=$GET(^TIU(8925.7,IEN,0))

                           IF +$PIECE(NODE,U,4)

                               KILL @GBL@(ENTRY,DOC,IEN)

                               DO SEND^TIUALRT(DOC)

                       End DoDot:1

 +4        NEW XMDUN,XMDUZ,XMSUB,XMTEXT,XMY,XMZ

           SET XMDUZ=.5

           SET XMSUB="TIU*1.0*358 Post-Install Complete"

           SET XMTEXT="XMTEXT("

           SET XMY(USER)=""

 +5        SET XMTEXT(1)="TIU*1.0*358 Post-Install task complete."

 +6        DO ^XMD

 +7        QUIT

TIU358P.m