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

Timestamp:

Jun 1, 2013, 10:54:38 AM (11 years ago)

Author:

Tariq Hamkari

Message:

Ayman Ghaith : adding the correct routines which not has the transactions.

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.6;BSDX;;Aug 31, 2011;Build 25
+BSDX2E  ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/11/12 9:37am]
+        ;;1.7;BSDX;;Jun 01, 2013;Build 24
         ; 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
         ;