SDP333P.m

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 ---SDP333P   1627     printed  Apr 09, 2024@22:00                                                                                                                                                                                                        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