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 ---[H[J[2J[HDG53P638 422 printed Dec 13, 2024@02:39:58 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
