source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53522P.m@ 1141

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

initial load of WorldVistAEHR

File size: 445 bytes
RevLine 
[613]1DG53522P ;ALB/DW - DG*5.3*522 POST-INSTALL; 6/2/2003
2 ;;5.3;Registration;**522**;Aug 13, 1993
3ENV ;Environment check
4 S XPDABORT=""
5 D PRGCHK(.XPDABORT)
6 I XPDABORT="" K XPDABORT
7 Q
8 ;
9PRGCHK(XPDABORT) ;Checks programmer variables
10 I '$G(DUZ)!($G(DUZ(0))'="@") D
11 . W !,$C(7)," To insure that data dictionary changes contained in this patch"
12 . W !," are installed correctly, DUZ(0) must be equal the ""@"" symbol!",!
13 . S XPDABORT=2
14 Q
Note: See TracBrowser for help on using the repository browser.