source:
WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53P633.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 402 bytes |
Line | |
---|---|
1 | DG53P633 ;ALB/MRY - POST-INIT; 12/29/04 3:22pm |
2 | ;;5.3;Registration;**633**;Aug 13,1993 |
3 | ; |
4 | POST ;Add option to menu |
5 | N DGOK |
6 | S DGOK=$$ADD^XPDMENU("DG REGISTRATION MENU","DG ALL BAI REPORT") |
7 | I DGOK=1 D |
8 | .D BMES^XPDUTL("*****") |
9 | .D MES^XPDUTL("[DG ALL BAI REPORT] Option added to [DG REGISTRATION MENU].") |
10 | E D |
11 | .D BMES^XPDUTL("*****") |
12 | .D MES^XPDUTL("Error - [DG ALL BAI REPORT] Option not added.") |
13 | Q |
Note:
See TracBrowser
for help on using the repository browser.