- 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 Apr 23, 2025@18:54:43 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
