- 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 Feb 19, 2025@00:25:52 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
