SD53674P.m

SD53674P ;ALB/BJR - Un-schedule and Delete CLW and CLU Transmissions ;9/16/2017 2:06 pm

 ;;5.3;Scheduling;**674**;Aug 13, 1993;Build 18

 ; Call to RTN^%ZTLOAD supported by ICR #10063

 ; Call to DQ^%ZTLOAD supported by ICR #10063

 ; Call to KILL^%ZTLOAD supported by ICR #10063

 ; Call to OWNSKEY^XUSRB supported by ICR #3277

 ; Call to BMES^XPDUTL supported by ICR #10141

 Q

EN ;Entry Point for SD*5.3*674 post install routine

 N SDRTN,SDRTN1,SDRTN2,SDLIST,ZTSK,SDKEY,SDRET

 S SDKEY="ZTMQ" D OWNSKEY^XUSRB(.SDRET,SDKEY) I '$G(SDRET(0)) D BMES^XPDUTL("The Installer MUST be assigned Security Key 'ZTMQ'.") D  Q

 .D BMES^XPDUTL("Please add the key to yourself using Allocation of Security Keys [ORLEASE] menu option.")

 .D BMES^XPDUTL("Then, either re-install the patch, or re-run post install routine EN^SS53674P from the command prompt.")

 S SDRTN="RUN^SCRPW74(1)",SDRTN1="RUN^SCRPW74(0)",SDRTN2="RUN^SCRPW74"

 S SDLIST="^TMP(""SDLIST"",$J)"

 D RTN^%ZTLOAD(SDRTN,SDLIST),RTN^%ZTLOAD(SDRTN1,SDLIST),RTN^%ZTLOAD(SDRTN2,SDLIST)

 I '$O(^TMP("SDLIST",$J,0)) D BMES^XPDUTL("No Clinic Utilization (CLU) or Clinic Wait Time (CLW) tasks found.") Q

 S ZTSK=0 F  S ZTSK=$O(^TMP("SDLIST",$J,ZTSK)) Q:'ZTSK  D

 .D DQ^%ZTLOAD I $G(ZTSK(0)) D BMES^XPDUTL("Task number "_ZTSK_" has been successfully un-scheduled.")

 .I '$G(ZTSK(0)) D BMES^XPDUTL("Task number "_ZTSK_" could not be un-scheduled. Please use Taskman Management [XUTM MGR] to un-schedule the task.")

 .D KILL^%ZTLOAD I $G(ZTSK(0)) D BMES^XPDUTL("Task number "_ZTSK_" has been successfully deleted.")

 .I '$G(ZTSK(0)) D BMES^XPDUTL("Task number "_ZTSK_" could not be deleted. Please use Taskman Management [XUTM MGR] to delete the task.")

 K ^XTMP("SD53P192","EXTRACT") D BMES^XPDUTL("The global ^XTMP(""SD53P192"",""EXTRACT"") has been deleted.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53674P   1822     printed  Apr 09, 2024@21:55:52                                                                                                                                                                                                    Page 2

SD53674P  ;ALB/BJR - Un-schedule and Delete CLW and CLU Transmissions ;9/16/2017 2:06 pm

 +1       ;;5.3;Scheduling;**674**;Aug 13, 1993;Build 18

 +2       ; Call to RTN^%ZTLOAD supported by ICR #10063

 +3       ; Call to DQ^%ZTLOAD supported by ICR #10063

 +4       ; Call to KILL^%ZTLOAD supported by ICR #10063

 +5       ; Call to OWNSKEY^XUSRB supported by ICR #3277

 +6       ; Call to BMES^XPDUTL supported by ICR #10141

 +7        QUIT 

EN        ;Entry Point for SD*5.3*674 post install routine

 +1        NEW SDRTN,SDRTN1,SDRTN2,SDLIST,ZTSK,SDKEY,SDRET

 +2        SET SDKEY="ZTMQ"

           DO OWNSKEY^XUSRB(.SDRET,SDKEY)

           IF '$GET(SDRET(0))

               DO BMES^XPDUTL("The Installer MUST be assigned Security Key 'ZTMQ'.")

               Begin DoDot:1

 +3                DO BMES^XPDUTL("Please add the key to yourself using Allocation of Security Keys [ORLEASE] menu option.")

 +4                DO BMES^XPDUTL("Then, either re-install the patch, or re-run post install routine EN^SS53674P from the command prompt.")

               End DoDot:1

               QUIT 

 +5        SET SDRTN="RUN^SCRPW74(1)"

           SET SDRTN1="RUN^SCRPW74(0)"

           SET SDRTN2="RUN^SCRPW74"

 +6        SET SDLIST="^TMP(""SDLIST"",$J)"

 +7        DO RTN^%ZTLOAD(SDRTN,SDLIST)

           DO RTN^%ZTLOAD(SDRTN1,SDLIST)

           DO RTN^%ZTLOAD(SDRTN2,SDLIST)

 +8        IF '$ORDER(^TMP("SDLIST",$JOB,0))

               DO BMES^XPDUTL("No Clinic Utilization (CLU) or Clinic Wait Time (CLW) tasks found.")

               QUIT 

 +9        SET ZTSK=0

           FOR 

               SET ZTSK=$ORDER(^TMP("SDLIST",$JOB,ZTSK))

               if 'ZTSK

                   QUIT 

               Begin DoDot:1

 +10               DO DQ^%ZTLOAD

                   IF $GET(ZTSK(0))

                       DO BMES^XPDUTL("Task number "_ZTSK_" has been successfully un-scheduled.")

 +11               IF '$GET(ZTSK(0))

                       DO BMES^XPDUTL("Task number "_ZTSK_" could not be un-scheduled. Please use Taskman Management [XUTM MGR] to un-schedule the task.")

 +12               DO KILL^%ZTLOAD

                   IF $GET(ZTSK(0))

                       DO BMES^XPDUTL("Task number "_ZTSK_" has been successfully deleted.")

 +13               IF '$GET(ZTSK(0))

                       DO BMES^XPDUTL("Task number "_ZTSK_" could not be deleted. Please use Taskman Management [XUTM MGR] to delete the task.")

               End DoDot:1

 +14       KILL ^XTMP("SD53P192","EXTRACT")

           DO BMES^XPDUTL("The global ^XTMP(""SD53P192"",""EXTRACT"") has been deleted.")

 +15       QUIT