TIU358P ; NA/AJB - POST-INSTALL ;04/06/23 06:19
;;1.0;TEXT INTEGRATION UTILITIES;**358**;Jun 20, 1997;Build 16
;
Q
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)
Q
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU358P 907 printed Dec 13, 2024@02:38:38 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
