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

Timestamp:

Oct 8, 2012, 6:59:10 AM (12 years ago)

Author:

Tariq Hamkari

Message:

updated the BSDX version to 1.7

• fix "BSDX01.m" routine , it was take too long time to retrieve patient radiology exams.

File:

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

Scheduling/trunk/m/BSDX2E.m

@@ -1 @@
-BSDX2E  ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/11/12 9:37am]
-        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
+BSDX2E  ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [4/28/11 10:28am]
+        ;;1.6;BSDX;;Aug 31, 2011;Build 25
         ; Licensed under LGPL
         ;
@@ -24 +24 @@
         Q:'$$VERCHK("SD",5.3)
         ; Q:'$$PATCHCK("PIMS*5.3*1003") D
-        Q:'$$VERCHK("BMX",4)
+        Q:'$$VERCHK("BMX",2)
         ;
 OTHER   ;
@@ -91 +91 @@
         . D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")
         . ; Error message
-        . I $D(BSDXMSG) D MES^XPDUTL("Error: ",BSDXMSG("DIERR",1,"TEXT",1))
+        . I $D(BSDXMSG) W $C(7),"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) D MES^XPDUTL("Error: ",BSDXMSG("DIERR",1,"TEXT",1))
+        I $D(BSDXMSG) W $C(7),"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) D MES^XPDUTL("Error: ",BSDXERR)
+        I $G(BSDXERR) W $C(7),"Error: ",BSDXERR
         QUIT
         ;