Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SCDXSTOP

SCDXSTOP.m

Go to the documentation of this file.
  1. SCDXSTOP ;ALB/TXH - STOP ACRP HL7 TRANSMISSIONS;08/21/18
  1. ;;5.3;Scheduling;**640**;AUG 13, 1993;Build 8
  1. ;
  1. ; This post-init routine will
  1. ; - disable the AMB-CARE & SDPM Logical Links
  1. ; - unschedule the AMB-CARE NIGHTLY transmission task
  1. ; - place AMB-CARE & APM related options Out of Order
  1. ;
  1. Q
  1. ;
  1. EN ; Entry Point
  1. D BMES^XPDUTL("SD*5.3*640 Post-Init Started...")
  1. D LOGLNK
  1. D DELETE
  1. D OPTOUT
  1. D BMES^XPDUTL("SD*5.3*640 Post-Init Finished.")
  1. D MES^XPDUTL(" ")
  1. Q
  1. ;
  1. LOGLNK ; Disable the AMB-CARE & SDPM Logical Links
  1. ;
  1. D BMES^XPDUTL(" * Disabling the following Logical Links...")
  1. N SDLOG,SDLOGN,SDLOGLNK,DA,DR,SDLNKMSG,SDLNK
  1. S SDLOG=0
  1. F SDLOGN=1:1 S SDLOGLNK=$P($TEXT(LOGLIST+SDLOGN),";;",2) Q:SDLOGLNK="$$END"!(SDLOGLNK="") D
  1. . S SDLNK=+$$FIND1^DIC(870,"","BX",SDLOGLNK,"","","")
  1. . I SDLNK="" D MES^XPDUTL(" "_SDLOGLNK_" not found. It's okay.") Q
  1. . ; Get AUTOSTART disabled and set SHUTDOWN LLP to YES.
  1. . N DIE S DIE="^HLCS(870,",DA=SDLNK,DR="4.5///0;14///1"
  1. . D ^DIE
  1. . S SDLNKMSG=" "_SDLOGLNK
  1. . D MES^XPDUTL(SDLNKMSG)
  1. D MES^XPDUTL(" Done.")
  1. Q
  1. ;
  1. DELETE ; Remove the following tasks in Option Schedule
  1. ; SCDX AMBCAR NIGHTLY XMIT Ambulatory Care Nightly Transmission to NPCDB
  1. ; SCRPW APM TASK JOB Schedule APM Performance Monitor Task
  1. ; SDOQM PM NIGHTLY JOB Nightly job for PM data extract
  1. ;
  1. ; IA #6121 Remove Scheduled options from #19.2
  1. ; IA #2051 Database Server API: Lookup Utilities (DIC)
  1. ;
  1. K ^XTMP("SCDXTSK")
  1. D BMES^XPDUTL(" * Removing ACRP & APM related scheduled tasks...")
  1. N SDMCN,SDRPTSK,SDOPT,DA,DIK,SDTSKMSG
  1. S SDN=0
  1. F SDMCN=1:1 S SDRPTSK=$P($TEXT(TSKLIST+SDMCN),";;",2) Q:SDRPTSK="$$END"!(SDRPTSK="") D
  1. . S SDOPT=+$$FIND1^DIC(19,"","BX",SDRPTSK,"","","")
  1. . I SDOPT="" D MES^XPDUTL(" "_SDRPTSK_" not found. It's okay.") Q
  1. . S DA="" F S DA=$O(^DIC(19.2,"B",SDOPT,DA)) Q:'+DA D
  1. . . S ^XTMP("SCDXTSK",$J,SDN)=$$FMADD^XLFDT(DT+90)_"^"_DT_"^copy of "_SDRPTSK_" in #19.2^"_DA
  1. . . M ^XTMP("SCDXTSK",$J,SDN,"DIC",19.2,DA)=^DIC(19.2,DA)
  1. . . S DIK="^DIC(19.2," D ^DIK
  1. . . S SDTSKMSG=" "_SDRPTSK
  1. . . D MES^XPDUTL(SDTSKMSG)
  1. . . S SDN=SDN+1
  1. K SDN
  1. D MES^XPDUTL(" Done.")
  1. Q
  1. ;
  1. OPTOUT ; Set options out of order
  1. ;
  1. ; IA #1157 OUT^XPDMENU(OPT,TXT)
  1. ;
  1. D BMES^XPDUTL(" * Placing the following options out of order...")
  1. N SDMCN,SDOPT,SDTXT,SDOPTMSG
  1. S SDTXT="This functionality is now accomplished by CDW/VSSC."
  1. F SDMCN=1:1 S SDOPT=$P($TEXT(OPTLIST+SDMCN),";;",2) Q:SDOPT="$$END"!(SDOPT="") D
  1. . D OUT^XPDMENU(SDOPT,SDTXT) ;Mark option out-of-order
  1. . S SDOPTMSG=" "_SDOPT
  1. . D MES^XPDUTL(SDOPTMSG)
  1. D MES^XPDUTL(" Done.")
  1. Q
  1. ;
  1. OPTLIST ; options
  1. ;;SCDX AMBCAR NIGHTLY XMIT
  1. ;;SCDX AMBCAR RETRANS BY DATE
  1. ;;SCDX AMBCAR RETRANS ERROR
  1. ;;SCDX AMBCAR RETRANS SEL REJ
  1. ;;SCRPW APM TASK JOB
  1. ;;SCRPW PM RETRANSMIT REPORT
  1. ;;SDOQM PM NIGHTLY JOB
  1. ;;$$END
  1. ;
  1. TSKLIST ; Scheduled tasks
  1. ;;SCDX AMBCAR NIGHTLY XMIT
  1. ;;SCRPW APM TASK JOB
  1. ;;SDOQM PM NIGHTLY JOB
  1. ;;$$END
  1. ;
  1. LOGLIST ; Logical Links
  1. ;;AMB-CARE
  1. ;;SDPM
  1. ;;$$END
  1. ;