Changeset 1481 for Scheduling/trunk/m/BSDX2E.m

Timestamp:

Jul 11, 2012, 12:18:56 PM (12 years ago)

Author:

Sam Habiel

Message:

Updated routine version numbers to 1.7T2.
Changes the Writes in the post-init to MES^{XPDUTL in BSDX2E.
Changed the check for BMX to be for BMX 4 rather than BMX 2.}

File:

• Scheduling/trunk/m/BSDX2E.m (modified) (5 diffs)

Scheduling/trunk/m/BSDX2E.m

@@ -1 @@
-BSDX2E  ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [4/28/11 10:28am]
-        ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
+BSDX2E  ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/11/12 9:37am]
+        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
         ; Licensed under LGPL
         ;
@@ -24 +24 @@
         Q:'$$VERCHK("SD",5.3)
         ; Q:'$$PATCHCK("PIMS*5.3*1003") D
-        Q:'$$VERCHK("BMX",2)
+        Q:'$$VERCHK("BMX",4)
         ;
 OTHER   ;
@@ -91 +91 @@
         . D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")
         . ; Error message
-        . I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
+        . I $D(BSDXMSG) D MES^XPDUTL("Error: ",BSDXMSG("DIERR",1,"TEXT",1))
         ;
         ; Remove nassssty protocols ORU PATIENT MOVMT and DVBA C&P SCHD EVENT
@@ -106 +106 @@
         D:$D(BSDXFDA) FILE^DIE("","BSDXFDA","BSDXMSG")
         ; If error
-        I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
+        I $D(BSDXMSG) D MES^XPDUTL("Error: ",BSDXMSG("DIERR",1,"TEXT",1))
         ;
         ;
@@ -117 +117 @@
         I $G(BSDXERR) W $C(7),"Error: ",BSDXERR
         D PUT^XPAR("PKG","BSDX AUTO PRINT AS",1,0,.BSDXERR)
-        I $G(BSDXERR) W $C(7),"Error: ",BSDXERR
+        I $G(BSDXERR) D MES^XPDUTL("Error: ",BSDXERR)
         QUIT
         ;