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

Scheduling/trunk/m/BSDX30.m

@@ -1 @@
-BSDX30  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [4/28/11 10:28am]
-        ;;1.6;BSDX;;Aug 31, 2011;Build 25
+BSDX30  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [7/6/12 11:03am]
+        ;;1.7;BSDX;;Jun 01, 2013;Build 24
         ; 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
@@ -78 +81 @@
         ;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