SDWL638.m

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 ---SDWL638   1120     printed  Apr 09, 2024@21:48:05                                                                                                                                                                                                     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