TIUP113P.m

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: 

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: