Changeset 1563 for Scheduling/trunk/m/BSDX30.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/BSDX30.m (modified) (5 diffs)

Scheduling/trunk/m/BSDX30.m

@@ -1 @@
-BSDX30  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [7/6/12 11:03am]
-        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
+BSDX30  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [4/28/11 10:28am]
+        ;;1.6;BSDX;;Aug 31, 2011;Build 25
         ; Licensed under LGPL
         ;
@@ -7 +7 @@
         ;Entry point for debugging
         ;
-        ; D DEBUG^%Serenji("SPACE^BSDX30(.BSDXY,BSDXDIC,BSDXVAL)")
+        D DEBUG^%Serenji("SPACE^BSDX30(.BSDXY,BSDXDIC,BSDXVAL)")
         Q
         ;
@@ -49 +49 @@
 EHRPTD(BSDXY,BSDXWID,BSDXDFN)   ;
         ;
-        ; D DEBUG^%Serenji("EHRPT^BSDX30(.BSDXY,BSDXWID,BSDXDFN)")
+        D DEBUG^%Serenji("EHRPT^BSDX30(.BSDXY,BSDXWID,BSDXDFN)")
         Q
         ;
@@ -70 +70 @@
         ;
 PEVENT(BSDXWID,DFN)     ;EP - Raise patient selection event to EHR
-        ; VEN/SMH v1.7 3120706 - Not used in VISTA.
-        ; No way right now to synchronize with CPRS.
-        ; Code commented out for now.
         ;
         ;Change patient context to patient DFN
@@ -81 +78 @@
         ;all EHR client sessions belonging to user DUZ.
         ;
-        ;Q:'$G(DUZ)
+        Q:'$G(DUZ)
         ;N X
         ;S X="CIANBUTL" X ^%ZOSF("TEST") Q:'$T
         ;S X="CIANBEVT" X ^%ZOSF("TEST") Q:'$T
-        ;N UID,BRET
-        ;S BRET=0,UID=0
-        ;F  S BRET=$$NXTUID^CIANBUTL(.UID,1) Q:'UID  D
-        ;. Q:DUZ'=$$GETVAR^CIANBUTL("DUZ",,,UID)
-        ;. I BSDXWID'="" Q:BSDXWID'=$TR($$GETVAR^CIANBUTL("WID",,,UID),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
-        ;. D QUEUE^CIANBEVT("CONTEXT.PATIENT",+DFN,UID)
-        ;Q
+        N UID,BRET
+        S BRET=0,UID=0
+        F  S BRET=$$NXTUID^CIANBUTL(.UID,1) Q:'UID  D
+        . Q:DUZ'=$$GETVAR^CIANBUTL("DUZ",,,UID)
+        . I BSDXWID'="" Q:BSDXWID'=$TR($$GETVAR^CIANBUTL("WID",,,UID),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
+        . D QUEUE^CIANBEVT("CONTEXT.PATIENT",+DFN,UID)
+        Q