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