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

DVBA215P.m

Go to the documentation of this file.
  1. DVBA215P ;ALB/JDG - DVBA C PURGE OFF;6/20/2019
  1. ;;2.7;AMIE;**215**;Oct 20, 2000;Build 4
  1. ;
  1. ; Call to RTN^%ZTLOAD supported by ICR #10063
  1. ; Call to DQ^%ZTLOAD supported by ICR #10063
  1. ; Call to KILL^%ZTLOAD supported by ICR #10063
  1. ; Call to OWNSKEY^XUSRB supported by ICR #3277
  1. ; Call to BMES^XPDUTL supported by ICR #10141
  1. ;
  1. Q
  1. ;
  1. EN ; entry point for post install routine
  1. D TASKOFF
  1. D BADXRFDL
  1. Q
  1. ;
  1. TASKOFF ;unschedules and deletes DVBA C PURGE 2507 tasks
  1. N DVBOPTN,DVBLIST,DVBKEY,DVBRET,ZTSK
  1. S DVBKEY="ZTMQ" D OWNSKEY^XUSRB(.DVBRET,DVBKEY) I '$G(DVBRET(0)) D BMES^XPDUTL("The Installer MUST be assigned Security Key 'ZTMQ'.") D Q
  1. .D BMES^XPDUTL("Please add the key to yourself using Allocation of Security Keys [ORLEASE] menu option.")
  1. .D BMES^XPDUTL("Then, either re-install this patch, or re-run this post install routine from the command prompt.")
  1. S DVBOPTN="DVBA C PURGE 2507",DVBLIST="^TMP(""DVBLIST"",$J)"
  1. D OPTION^%ZTLOAD(DVBOPTN,DVBLIST)
  1. I '$O(^TMP("DVBLIST",$J,0)) D BMES^XPDUTL("No DVBA C PURGE 2507 tasks found.") Q
  1. S ZTSK=0 F S ZTSK=$O(^TMP("DVBLIST",$J,ZTSK)) Q:'ZTSK D
  1. .D DQ^%ZTLOAD I $G(ZTSK(0)) D BMES^XPDUTL("Task number "_ZTSK_" has been successfully un-scheduled.")
  1. .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.")
  1. .D KILL^%ZTLOAD I $G(ZTSK(0)) D BMES^XPDUTL("Task number "_ZTSK_" has been successfully deleted.")
  1. .I '$G(ZTSK(0)) D BMES^XPDUTL("Task number "_ZTSK_" could not be deleted. Please use Taskman Management [XUTM MGR] to delete the task.")
  1. Q
  1. ;
  1. BADXRFDL ;removal of bad AH x-ref
  1. N DVBCNT,DVBDTE,DVBIEN
  1. D BMES^XPDUTL("Searching for corrupt entries within the DATE STATUS LAST CHANGED (AH)")
  1. D BMES^XPDUTL("cross-reference of the 2507 REQUEST (#396.3) file...")
  1. S DVBCNT=0
  1. S DVBDTE=0 F S DVBDTE=$O(^DVB(396.3,"AH",DVBDTE)) Q:'DVBDTE D
  1. .S DVBIEN=0 F S DVBIEN=$O(^DVB(396.3,"AH",DVBDTE,DVBIEN)) Q:'DVBIEN D
  1. ..I '$D(^DVB(396.3,DVBIEN,0)) S DVBCNT=DVBCNT+1 K ^DVB(396.3,"AH",DVBDTE,DVBIEN)
  1. I DVBCNT=0 D BMES^XPDUTL("There were no corrupt entries found in the 2507 REQUEST (#396.3) file.") Q
  1. D BMES^XPDUTL(DVBCNT_" corrupt entries have been removed from the 2507 REQUEST (#396.3) file.")
  1. Q