DG53P638.m

DG53P638 ;ALB/MRY - POST-INIT; 3/1/05 3:22pm

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

 ;

POST ;Add option to menu

 N DGOK

 S DGOK=$$ADD^XPDMENU("DG REGISTRATION MENU","DG PATIENT CE REPORT")

 I DGOK=1 D

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

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

 E  D

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

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53P638   422     printed  Apr 09, 2024@21:45:20                                                                                                                                                                                                     Page 2

DG53P638  ;ALB/MRY - POST-INIT; 3/1/05 3:22pm

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

 +2       ;

POST      ;Add option to menu

 +1        NEW DGOK

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

 +3        IF DGOK=1

               Begin DoDot:1

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

 +5                DO MES^XPDUTL("[DG PATIENT CE 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 PATIENT CE REPORT] Option not added.")

               End DoDot:1

 +9        QUIT