TIUP113P ; SLC/JAK - Post-Install for TIU*1*113 Cont. ;9/24/03
;;1.0;TEXT INTEGRATION UTILITIES;**113**;Jun 20, 1997
MAIL ; -- Send message to user who initiated post-install
N XMSUB,XMTEXT,XMDUZ,XMY,XMZ,XMMG
N TIUI,TIUK,TIUS,TIUTXT
S XMDUZ="PATCH TIU*1*113 DIVISION LOADING",XMY(.5)=""
S:$G(DUZ) XMY(DUZ)=""
F TIUK=3,5 S TIUTXT(TIUK)=""
S TIUTXT(1)="Task Started: "_$$FMTE^XLFDT($G(^XTMP("TIUP113","T0")))
S TIUTXT(2)="Task Ended: "_$$FMTE^XLFDT($G(^XTMP("TIUP113","T1")))
I $G(^XTMP("TIUP113","STOP")) D
. S TIUTXT(4)="Task STOPPED: "_$$FMTE^XLFDT($G(^XTMP("TIUP113","STOP")))_"."
. S TIUTXT(6)="The post-install has not completed."
. S TIUTXT(7)="To restart invoke MAIN^TIUP113 from Programmer mode."
. S TIUTXT(8)="The task will continue from the last entry processed."
E D
. F TIUK=9,13,16,20,24 S TIUTXT(TIUK)=""
. S TIUTXT(4)="Task and post-install COMPLETED successfully."
. S TIUTXT(6)="This patch post-install has reviewed all of the "_+$P($G(^TIU(8925,0)),U,4)
. S TIUTXT(7)="entries in the TIU DOCUMENT file, and has attempted to"
. S TIUTXT(8)="load each with DIVISION data."
. S TIUTXT(10)="There are "_+$G(^XTMP("TIUP113","EX"))_" total exception entries"
. S TIUTXT(11)="that could not be loaded with DIVISION data,"
. S TIUTXT(12)="however. Here's how they break down by types:",TIUI=13
. F TIUS=1,2 D
. . S TIUTXT(TIUI+TIUS)=$P($T(EXHDR+TIUS),";",3)_+$G(^XTMP("TIUP113","EX",TIUS))_" entry/entries"
. S TIUTXT(17)="Next, you can print the entries by type of exception so"
. S TIUTXT(18)="you can review them before continuing, or you can skip"
. S TIUTXT(19)="the printing and finish the post-install."
. S TIUTXT(21)="To print: invoke DEVICE^TIUP113 from Programmer mode"
. S TIUTXT(22)=" (instructions for finishing the post-install"
. S TIUTXT(23)=" are included in this call)"
. S TIUTXT(25)="To finish: invoke UPDATE^TIUP113 from Programmer mode"
S XMTEXT="TIUTXT(",XMSUB="PATCH TIU*1*113 Division Loading"
D ^XMD
Q
EXHDR ; -- Exception entry headers
;;A. Cannot determine DIVISION from Hospital Location:
;;B. Attempted to load DIVISION data but entry in use:
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUP113P 2182 printed Dec 13, 2024@02:42:45 Page 2
TIUP113P ; SLC/JAK - Post-Install for TIU*1*113 Cont. ;9/24/03
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**113**;Jun 20, 1997
MAIL ; -- Send message to user who initiated post-install
+1 NEW XMSUB,XMTEXT,XMDUZ,XMY,XMZ,XMMG
+2 NEW TIUI,TIUK,TIUS,TIUTXT
+3 SET XMDUZ="PATCH TIU*1*113 DIVISION LOADING"
SET XMY(.5)=""
+4 if $GET(DUZ)
SET XMY(DUZ)=""
+5 FOR TIUK=3,5
SET TIUTXT(TIUK)=""
+6 SET TIUTXT(1)="Task Started: "_$$FMTE^XLFDT($GET(^XTMP("TIUP113","T0")))
+7 SET TIUTXT(2)="Task Ended: "_$$FMTE^XLFDT($GET(^XTMP("TIUP113","T1")))
+8 IF $GET(^XTMP("TIUP113","STOP"))
Begin DoDot:1
+9 SET TIUTXT(4)="Task STOPPED: "_$$FMTE^XLFDT($GET(^XTMP("TIUP113","STOP")))_"."
+10 SET TIUTXT(6)="The post-install has not completed."
+11 SET TIUTXT(7)="To restart invoke MAIN^TIUP113 from Programmer mode."
+12 SET TIUTXT(8)="The task will continue from the last entry processed."
End DoDot:1
+13 IF '$TEST
Begin DoDot:1
+14 FOR TIUK=9,13,16,20,24
SET TIUTXT(TIUK)=""
+15 SET TIUTXT(4)="Task and post-install COMPLETED successfully."
+16 SET TIUTXT(6)="This patch post-install has reviewed all of the "_+$PIECE($GET(^TIU(8925,0)),U,4)
+17 SET TIUTXT(7)="entries in the TIU DOCUMENT file, and has attempted to"
+18 SET TIUTXT(8)="load each with DIVISION data."
+19 SET TIUTXT(10)="There are "_+$GET(^XTMP("TIUP113","EX"))_" total exception entries"
+20 SET TIUTXT(11)="that could not be loaded with DIVISION data,"
+21 SET TIUTXT(12)="however. Here's how they break down by types:"
SET TIUI=13
+22 FOR TIUS=1,2
Begin DoDot:2
+23 SET TIUTXT(TIUI+TIUS)=$PIECE($TEXT(EXHDR+TIUS),";",3)_+$GET(^XTMP("TIUP113","EX",TIUS))_" entry/entries"
End DoDot:2
+24 SET TIUTXT(17)="Next, you can print the entries by type of exception so"
+25 SET TIUTXT(18)="you can review them before continuing, or you can skip"
+26 SET TIUTXT(19)="the printing and finish the post-install."
+27 SET TIUTXT(21)="To print: invoke DEVICE^TIUP113 from Programmer mode"
+28 SET TIUTXT(22)=" (instructions for finishing the post-install"
+29 SET TIUTXT(23)=" are included in this call)"
+30 SET TIUTXT(25)="To finish: invoke UPDATE^TIUP113 from Programmer mode"
End DoDot:1
+31 SET XMTEXT="TIUTXT("
SET XMSUB="PATCH TIU*1*113 Division Loading"
+32 DO ^XMD
+33 QUIT
EXHDR ; -- Exception entry headers
+1 ;;A. Cannot determine DIVISION from Hospital Location:
+2 ;;B. Attempted to load DIVISION data but entry in use:
