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 ---[H[J[2J[HDG53P633 415 printed Nov 22, 2024@17:49:56 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
