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

DG53997P.m

Go to the documentation of this file.
  1. DG53997P ;ALB/JAM - DG*5.3*997 POST-INSTALL ROUTINE TO REMOVE 2 ITEMS FROM MENU PROTOCOL ;04/03/2020 3:21pm
  1. ;;5.3;Registration;**997**;Aug 13,1993;Build 42
  1. ;
  1. ; IAs:
  1. ; DELETE^XPDPROT: Supported by ICR 5567
  1. Q
  1. EP ; Entry Point
  1. N DGRET
  1. S DGRET=1
  1. D BMES^XPDUTL(">>> Patch DG*5.3*997 - Post-install...")
  1. D MES^XPDUTL(" Remove 'DGMTH EDIT HARDSHIP' and 'DGMTH DELETE HARDSHIP' item protocols")
  1. D MES^XPDUTL(" from 'DGMTH HARDSHIP MENU' menu protocol...")
  1. S DGRET=$$DELETE^XPDPROT("DGMTH HARDSHIP MENU","DGMTH EDIT HARDSHIP")
  1. I DGRET=1 D MES^XPDUTL(" - 'DGMTH EDIT HARDSHIP' item protocol removed...")
  1. I DGRET'=1 D MES^XPDUTL(" - 'DGMTH EDIT HARDSHIP' item protocol already removed...")
  1. S DGRET=$$DELETE^XPDPROT("DGMTH HARDSHIP MENU","DGMTH DELETE HARDSHIP")
  1. I DGRET=1 D MES^XPDUTL(" - 'DGMTH DELETE HARDSHIP' item protocol removed...")
  1. I DGRET'=1 D MES^XPDUTL(" - 'DGMTH DELETE HARDSHIP' item protocol already removed...")
  1. D MES^XPDUTL(">>> Patch DG*5.3*997 - Post-install complete.")
  1. Q