DG737PRE.m

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 ---DG737PRE   825     printed  Apr 09, 2024@21:38:40                                                                                                                                                                                                     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