source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRP385.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 562 bytes
Line 
1RMPRP385 ; BAY/KAM - Patch RMPR*3*85 Install Utility Routine ; 3/25/04 12:02pm
2 ;;3.0;Prosthetics;**85**;AUG 13, 1993
3 ;
4ENV ;Main Entry point for Environment Check
5 S XPDABORT=""
6 D PROGCHK(.XPDABORT) ;checks programmer variables
7 I XPDABORT="" K XPDABORT
8 Q
9PROGCHK(XPDABORT) ; checks for necessary programmer variables
10 ;
11 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
12 . D BMES^XPDUTL("****")
13 . D MES^XPDUTL("Your programming variables are not set up properly.")
14 . D MES^XPDUTL("Installation aborted.")
15 . D MES^XPDUTL("*****")
16 . S XPDABORT=2
17 Q
Note: See TracBrowser for help on using the repository browser.