DG737PRE ;BAY/JAT;restore the audit on the INTEGRATION CONTROL NUMBER
;;5.3;Registration;**737**;Aug 13,1993;Build 8
; This is an environment check and a pre-init routine for DG*5.3*737
; The purpose is to turn on the audit on the INTEGRATION CONTROL NUMBER (ICN)
; (field 991.01 on the Patient file) which was inadvertently turned off
; by patch DG*5.3*650
;
S XPDABORT=""
D PROGCHK(.XPDABORT)
I XPDABORT="" K XPDABORT
;
Q
;
PROGCHK(XPDABORT) ;
I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO
.D BMES^XPDUTL("*****")
.D MES^XPDUTL("Your programming variables are not set up properly.")
.D MES^XPDUTL("Installation aborted.")
.D MES^XPDUTL("*****")
.S XPDABORT=2
.Q
EN ;
N FLDNUM
S FLDNUM=991.01
D TURNON^DIAUTL(2,FLDNUM)
W !,"Adding AUDIT to field #",FLDNUM
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG737PRE 825 printed Sep 23, 2025@20:16:33 Page 2
DG737PRE ;BAY/JAT;restore the audit on the INTEGRATION CONTROL NUMBER
+1 ;;5.3;Registration;**737**;Aug 13,1993;Build 8
+2 ; This is an environment check and a pre-init routine for DG*5.3*737
+3 ; The purpose is to turn on the audit on the INTEGRATION CONTROL NUMBER (ICN)
+4 ; (field 991.01 on the Patient file) which was inadvertently turned off
+5 ; by patch DG*5.3*650
+6 ;
+7 SET XPDABORT=""
+8 DO PROGCHK(.XPDABORT)
+9 IF XPDABORT=""
KILL XPDABORT
+10 ;
+11 QUIT
+12 ;
PROGCHK(XPDABORT) ;
+1 IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")
Begin DoDot:1
+2 DO BMES^XPDUTL("*****")
+3 DO MES^XPDUTL("Your programming variables are not set up properly.")
+4 DO MES^XPDUTL("Installation aborted.")
+5 DO MES^XPDUTL("*****")
+6 SET XPDABORT=2
+7 QUIT
End DoDot:1
EN ;
+1 NEW FLDNUM
+2 SET FLDNUM=991.01
+3 DO TURNON^DIAUTL(2,FLDNUM)
+4 WRITE !,"Adding AUDIT to field #",FLDNUM
+5 QUIT
