DG53P633.m

DG53P633 ;ALB/MRY - POST-INIT; 12/29/04 3:22pm

 ;;5.3;Registration;**633**;Aug 13,1993

 ;

POST ;Add option to menu

 N DGOK

 S DGOK=$$ADD^XPDMENU("DG REGISTRATION MENU","DG ALL BAI REPORT")

 I DGOK=1 D

 .D BMES^XPDUTL("*****")

 .D MES^XPDUTL("[DG ALL BAI REPORT] Option added to [DG REGISTRATION MENU].")

 E  D

 .D BMES^XPDUTL("*****")

 .D MES^XPDUTL("Error - [DG ALL BAI REPORT] Option not added.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53P633   415     printed  Apr 09, 2024@21:45:05                                                                                                                                                                                                     Page 2

DG53P633  ;ALB/MRY - POST-INIT; 12/29/04 3:22pm

 +1       ;;5.3;Registration;**633**;Aug 13,1993

 +2       ;

POST      ;Add option to menu

 +1        NEW DGOK

 +2        SET DGOK=$$ADD^XPDMENU("DG REGISTRATION MENU","DG ALL BAI REPORT")

 +3        IF DGOK=1

               Begin DoDot:1

 +4                DO BMES^XPDUTL("*****")

 +5                DO MES^XPDUTL("[DG ALL BAI REPORT] Option added to [DG REGISTRATION MENU].")

               End DoDot:1

 +6       IF '$TEST

               Begin DoDot:1

 +7                DO BMES^XPDUTL("*****")

 +8                DO MES^XPDUTL("Error - [DG ALL BAI REPORT] Option not added.")

               End DoDot:1

 +9        QUIT