SDP333P ;bpiofo/swo sd*5.3*333 post init
;;5.3;Scheduling;**333**;July 23, 2003
;PAIT Clean-UP remove all entries from file 409.6
I $P($G(^SDWL(409.6,0)),"^",4)=0 D Q
. W !,"File 409.6 has no entries - nothing to clean up."
N DIR
W !,"SD*5.3*333 POST INIT"
S DIR(0)="YA^^",DIR("A")="Clean-Up file 409.6? ",DIR("B")="NO"
S DIR("?")="If this is the first installation of the patch answer 'YES'"
S DIR("?",1)="ATTENTION: Answering 'YES' will delete all entries from file 409.6"
S DIR("?",2)="(Patient Appointment Information Transmission). This is CORRECT"
S DIR("?",3)="for a first installation of the patch. If you are re-installing the"
S DIR("?",4)="patch and want to keep the entries in 409.6 answer 'NO'"
D ^DIR Q:'Y
S ZTDTH=$H,ZTRTN="START^SDP333P",ZTIO=""
S ZTDESC="PAIT Clean-Up"
K ZTSK D ^%ZTLOAD I '$D(ZTSK) D Q
. W !,"Failed to create Task!"
W !,"PAIT Clean-UP Task Submitted. Task number: "_$G(ZTSK)
W !,"Members of the SD-PAIT mail group will receive a notification message"
W !,"when the clean-up job has completed."
Q
START ;tasked entry point
N DA,DIK,SDV1
S DIK="^SDWL(409.6,"
S SDV1=0 F S SDV1=$O(^SDWL(409.6,SDV1)) Q:'SDV1 D
. S DA=SDV1 D ^DIK
K DIK
MSG ;
N SDAMX,XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB=$P($$SITE^VASITE(),"^",3)_" PAIT Clean-Up"
S XMY("G.SD-PAIT")=""
S XMY("S.SD-PAIT-SERVER@DOMAIN.EXT")=""
S XMTEXT="SDAMX("
S XMDUZ="POSTMASTER"
S SDAMX(1)=""
S SDAMX(2)="The PAIT Clean-Up, task #"_$G(ZTSK)_", from the post installation"
S SDAMX(3)="of SD*5.3*333 has completed. You may resume post installation activities."
D ^XMD
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDP333P 1627 printed Dec 13, 2024@02:59:21 Page 2
SDP333P ;bpiofo/swo sd*5.3*333 post init
+1 ;;5.3;Scheduling;**333**;July 23, 2003
+2 ;PAIT Clean-UP remove all entries from file 409.6
+3 IF $PIECE($GET(^SDWL(409.6,0)),"^",4)=0
Begin DoDot:1
+4 WRITE !,"File 409.6 has no entries - nothing to clean up."
End DoDot:1
QUIT
+5 NEW DIR
+6 WRITE !,"SD*5.3*333 POST INIT"
+7 SET DIR(0)="YA^^"
SET DIR("A")="Clean-Up file 409.6? "
SET DIR("B")="NO"
+8 SET DIR("?")="If this is the first installation of the patch answer 'YES'"
+9 SET DIR("?",1)="ATTENTION: Answering 'YES' will delete all entries from file 409.6"
+10 SET DIR("?",2)="(Patient Appointment Information Transmission). This is CORRECT"
+11 SET DIR("?",3)="for a first installation of the patch. If you are re-installing the"
+12 SET DIR("?",4)="patch and want to keep the entries in 409.6 answer 'NO'"
+13 DO ^DIR
if 'Y
QUIT
+14 SET ZTDTH=$HOROLOG
SET ZTRTN="START^SDP333P"
SET ZTIO=""
+15 SET ZTDESC="PAIT Clean-Up"
+16 KILL ZTSK
DO ^%ZTLOAD
IF '$DATA(ZTSK)
Begin DoDot:1
+17 WRITE !,"Failed to create Task!"
End DoDot:1
QUIT
+18 WRITE !,"PAIT Clean-UP Task Submitted. Task number: "_$GET(ZTSK)
+19 WRITE !,"Members of the SD-PAIT mail group will receive a notification message"
+20 WRITE !,"when the clean-up job has completed."
+21 QUIT
START ;tasked entry point
+1 NEW DA,DIK,SDV1
+2 SET DIK="^SDWL(409.6,"
+3 SET SDV1=0
FOR
SET SDV1=$ORDER(^SDWL(409.6,SDV1))
if 'SDV1
QUIT
Begin DoDot:1
+4 SET DA=SDV1
DO ^DIK
End DoDot:1
+5 KILL DIK
MSG ;
+1 NEW SDAMX,XMSUB,XMY,XMTEXT,XMDUZ
+2 SET XMSUB=$PIECE($$SITE^VASITE(),"^",3)_" PAIT Clean-Up"
+3 SET XMY("G.SD-PAIT")=""
+4 SET XMY("S.SD-PAIT-SERVER@DOMAIN.EXT")=""
+5 SET XMTEXT="SDAMX("
+6 SET XMDUZ="POSTMASTER"
+7 SET SDAMX(1)=""
+8 SET SDAMX(2)="The PAIT Clean-Up, task #"_$GET(ZTSK)_", from the post installation"
+9 SET SDAMX(3)="of SD*5.3*333 has completed. You may resume post installation activities."
+10 DO ^XMD
