DG53997P.m

DG53997P ;ALB/JAM - DG*5.3*997 POST-INSTALL ROUTINE TO REMOVE 2 ITEMS FROM MENU PROTOCOL ;04/03/2020 3:21pm

 ;;5.3;Registration;**997**;Aug 13,1993;Build 42

 ;

 ; IAs:

 ;  DELETE^XPDPROT:  Supported by ICR 5567

 Q

EP ; Entry Point

 N DGRET

 S DGRET=1

 D BMES^XPDUTL(">>> Patch DG*5.3*997 - Post-install...")

 D MES^XPDUTL("    Remove 'DGMTH EDIT HARDSHIP' and 'DGMTH DELETE HARDSHIP' item protocols")

 D MES^XPDUTL("    from 'DGMTH HARDSHIP MENU' menu protocol...")

 S DGRET=$$DELETE^XPDPROT("DGMTH HARDSHIP MENU","DGMTH EDIT HARDSHIP")

 I DGRET=1 D MES^XPDUTL("    - 'DGMTH EDIT HARDSHIP' item protocol removed...")

 I DGRET'=1 D MES^XPDUTL("    - 'DGMTH EDIT HARDSHIP' item protocol already removed...")

 S DGRET=$$DELETE^XPDPROT("DGMTH HARDSHIP MENU","DGMTH DELETE HARDSHIP")

 I DGRET=1 D MES^XPDUTL("    - 'DGMTH DELETE HARDSHIP' item protocol removed...")

 I DGRET'=1 D MES^XPDUTL("    - 'DGMTH DELETE HARDSHIP' item protocol already removed...")

 D MES^XPDUTL(">>> Patch DG*5.3*997 - Post-install complete.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53997P   1038     printed  Dec 13, 2024@02:39:31                                                                                                                                                                                                    Page 2

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

 +2       ;

 +3       ; IAs:

 +4       ;  DELETE^XPDPROT:  Supported by ICR 5567

 +5        QUIT 

EP        ; Entry Point

 +1        NEW DGRET

 +2        SET DGRET=1

 +3        DO BMES^XPDUTL(">>> Patch DG*5.3*997 - Post-install...")

 +4        DO MES^XPDUTL("    Remove 'DGMTH EDIT HARDSHIP' and 'DGMTH DELETE HARDSHIP' item protocols")

 +5        DO MES^XPDUTL("    from 'DGMTH HARDSHIP MENU' menu protocol...")

 +6        SET DGRET=$$DELETE^XPDPROT("DGMTH HARDSHIP MENU","DGMTH EDIT HARDSHIP")

 +7        IF DGRET=1

               DO MES^XPDUTL("    - 'DGMTH EDIT HARDSHIP' item protocol removed...")

 +8        IF DGRET'=1

               DO MES^XPDUTL("    - 'DGMTH EDIT HARDSHIP' item protocol already removed...")

 +9        SET DGRET=$$DELETE^XPDPROT("DGMTH HARDSHIP MENU","DGMTH DELETE HARDSHIP")

 +10       IF DGRET=1

               DO MES^XPDUTL("    - 'DGMTH DELETE HARDSHIP' item protocol removed...")

 +11       IF DGRET'=1

               DO MES^XPDUTL("    - 'DGMTH DELETE HARDSHIP' item protocol already removed...")

 +12       DO MES^XPDUTL(">>> Patch DG*5.3*997 - Post-install complete.")

 +13       QUIT