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

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

initial load of WorldVistAEHR

File size: 798 bytes
RevLine 
[613]1DG737PRE ;BAY/JAT;restore the audit on the INTEGRATION CONTROL NUMBER
2 ;;5.3;Registration;**737**;Aug 13,1993;Build 8
3 ; This is an environment check and a pre-init routine for DG*5.3*737
4 ; The purpose is to turn on the audit on the INTEGRATION CONTROL NUMBER (ICN)
5 ; (field 991.01 on the Patient file) which was inadvertently turned off
6 ; by patch DG*5.3*650
7 ;
8 S XPDABORT=""
9 D PROGCHK(.XPDABORT)
10 I XPDABORT="" K XPDABORT
11 ;
12 Q
13 ;
14PROGCHK(XPDABORT) ;
15 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO
16 .D BMES^XPDUTL("*****")
17 .D MES^XPDUTL("Your programming variables are not set up properly.")
18 .D MES^XPDUTL("Installation aborted.")
19 .D MES^XPDUTL("*****")
20 .S XPDABORT=2
21 .Q
22EN ;
23 N FLDNUM
24 S FLDNUM=991.01
25 D TURNON^DIAUTL(2,FLDNUM)
26 W !,"Adding AUDIT to field #",FLDNUM
27 Q
Note: See TracBrowser for help on using the repository browser.