SDWL638 ;ALB/JAM - STOP EWL AAC SCHEDULED TRANSMISSIONS ;May 7, 2015
;;5.3;Scheduling;**638**;AUG 13, 1993;Build 8
;
;
Q
; Reference/ICR
; REMOVE SCHEDULED OPTIONS FROM #19.2/6121
; XPDMENU CALL/1157
;
;
EN ;Validate user and initialize variables.
I '$D(DUZ) D BMES^XPDUTL("*** PROGRAMMER NOT DEFINED ***") Q
N SDWLOPT,SDWLIEN
S SDWLOPT="SD WAIT LIST TRANS TO AAC",SDWLIEN=$O(^DIC(19,"B",SDWLOPT,""))
D OPTOUT
I SDWLIEN D DELTSK
Q
OPTOUT ;Disable EWL transmission option.
N SDWLTEXT
S SDWLTEXT="This functionality is now accomplished by CDW/VSSC"
D OUT^XPDMENU(SDWLOPT,SDWLTEXT)
D BMES^XPDUTL(SDWLOPT_" option has been placed out of order.")
Q
DELTSK ;Confirm option entry exists in the OPTION SCHEDULING (#19.2) file and delete scheduled task as needed.
N DA,DIK
S DA=""
F S DA=$O(^DIC(19.2,"B",SDWLIEN,DA)) Q:'+DA D
. S ^XTMP("SDWLOPT",$J,0)=$$FMADD^XLFDT(DT+90)_"^"_DT_"^copy of EWL Transmission Task^"_DA
. M ^XTMP("SDWLOPT",$J,"DIC",19.2,DA)=^DIC(19.2,DA)
. S DIK="^DIC(19.2," D ^DIK
. D BMES^XPDUTL("Scheduled option "_SDWLOPT_" has been removed.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWL638 1120 printed Dec 13, 2024@03:02:07 Page 2
SDWL638 ;ALB/JAM - STOP EWL AAC SCHEDULED TRANSMISSIONS ;May 7, 2015
+1 ;;5.3;Scheduling;**638**;AUG 13, 1993;Build 8
+2 ;
+3 ;
+4 QUIT
+5 ; Reference/ICR
+6 ; REMOVE SCHEDULED OPTIONS FROM #19.2/6121
+7 ; XPDMENU CALL/1157
+8 ;
+9 ;
EN ;Validate user and initialize variables.
+1 IF '$DATA(DUZ)
DO BMES^XPDUTL("*** PROGRAMMER NOT DEFINED ***")
QUIT
+2 NEW SDWLOPT,SDWLIEN
+3 SET SDWLOPT="SD WAIT LIST TRANS TO AAC"
SET SDWLIEN=$ORDER(^DIC(19,"B",SDWLOPT,""))
+4 DO OPTOUT
+5 IF SDWLIEN
DO DELTSK
+6 QUIT
OPTOUT ;Disable EWL transmission option.
+1 NEW SDWLTEXT
+2 SET SDWLTEXT="This functionality is now accomplished by CDW/VSSC"
+3 DO OUT^XPDMENU(SDWLOPT,SDWLTEXT)
+4 DO BMES^XPDUTL(SDWLOPT_" option has been placed out of order.")
+5 QUIT
DELTSK ;Confirm option entry exists in the OPTION SCHEDULING (#19.2) file and delete scheduled task as needed.
+1 NEW DA,DIK
+2 SET DA=""
+3 FOR
SET DA=$ORDER(^DIC(19.2,"B",SDWLIEN,DA))
if '+DA
QUIT
Begin DoDot:1
+4 SET ^XTMP("SDWLOPT",$JOB,0)=$$FMADD^XLFDT(DT+90)_"^"_DT_"^copy of EWL Transmission Task^"_DA
+5 MERGE ^XTMP("SDWLOPT",$JOB,"DIC",19.2,DA)=^DIC(19.2,DA)
+6 SET DIK="^DIC(19.2,"
DO ^DIK
+7 DO BMES^XPDUTL("Scheduled option "_SDWLOPT_" has been removed.")
End DoDot:1
+8 QUIT
