| [613] | 1 | SDP333P ;bpiofo/swo sd*5.3*333 post init
|
|---|
| 2 | ;;5.3;Scheduling;**333**;July 23, 2003
|
|---|
| 3 | ;PAIT Clean-UP remove all entries from file 409.6
|
|---|
| 4 | I $P($G(^SDWL(409.6,0)),"^",4)=0 D Q
|
|---|
| 5 | . W !,"File 409.6 has no entries - nothing to clean up."
|
|---|
| 6 | N DIR
|
|---|
| 7 | W !,"SD*5.3*333 POST INIT"
|
|---|
| 8 | S DIR(0)="YA^^",DIR("A")="Clean-Up file 409.6? ",DIR("B")="NO"
|
|---|
| 9 | S DIR("?")="If this is the first installation of the patch answer 'YES'"
|
|---|
| 10 | S DIR("?",1)="ATTENTION: Answering 'YES' will delete all entries from file 409.6"
|
|---|
| 11 | S DIR("?",2)="(Patient Appointment Information Transmission). This is CORRECT"
|
|---|
| 12 | S DIR("?",3)="for a first installation of the patch. If you are re-installing the"
|
|---|
| 13 | S DIR("?",4)="patch and want to keep the entries in 409.6 answer 'NO'"
|
|---|
| 14 | D ^DIR Q:'Y
|
|---|
| 15 | S ZTDTH=$H,ZTRTN="START^SDP333P",ZTIO=""
|
|---|
| 16 | S ZTDESC="PAIT Clean-Up"
|
|---|
| 17 | K ZTSK D ^%ZTLOAD I '$D(ZTSK) D Q
|
|---|
| 18 | . W !,"Failed to create Task!"
|
|---|
| 19 | W !,"PAIT Clean-UP Task Submitted. Task number: "_$G(ZTSK)
|
|---|
| 20 | W !,"Members of the SD-PAIT mail group will receive a notification message"
|
|---|
| 21 | W !,"when the clean-up job has completed."
|
|---|
| 22 | Q
|
|---|
| 23 | START ;tasked entry point
|
|---|
| 24 | N DA,DIK,SDV1
|
|---|
| 25 | S DIK="^SDWL(409.6,"
|
|---|
| 26 | S SDV1=0 F S SDV1=$O(^SDWL(409.6,SDV1)) Q:'SDV1 D
|
|---|
| 27 | . S DA=SDV1 D ^DIK
|
|---|
| 28 | K DIK
|
|---|
| 29 | MSG ;
|
|---|
| 30 | N SDAMX,XMSUB,XMY,XMTEXT,XMDUZ
|
|---|
| 31 | S XMSUB=$P($$SITE^VASITE(),"^",3)_" PAIT Clean-Up"
|
|---|
| 32 | S XMY("G.SD-PAIT")=""
|
|---|
| 33 | S XMY("S.SD-PAIT-SERVER@FORUM.VA.GOV")=""
|
|---|
| 34 | S XMTEXT="SDAMX("
|
|---|
| 35 | S XMDUZ="POSTMASTER"
|
|---|
| 36 | S SDAMX(1)=""
|
|---|
| 37 | S SDAMX(2)="The PAIT Clean-Up, task #"_$G(ZTSK)_", from the post installation"
|
|---|
| 38 | S SDAMX(3)="of SD*5.3*333 has completed. You may resume post installation activities."
|
|---|
| 39 | D ^XMD
|
|---|
