Changeset 1472 for Scheduling/trunk/m/BSDX30.m
- Timestamp:
- Jul 6, 2012, 2:28:15 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Scheduling/trunk/m/BSDX30.m
r1187 r1472 1 BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [ 4/28/11 10:28am]2 ;;1. 6T2;BSDX;;May 16, 20111 BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [7/6/12 11:03am] 2 ;;1.7T1;BSDX;;Jul 06, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; … … 7 7 ;Entry point for debugging 8 8 ; 9 D DEBUG^%Serenji("SPACE^BSDX30(.BSDXY,BSDXDIC,BSDXVAL)")9 ; D DEBUG^%Serenji("SPACE^BSDX30(.BSDXY,BSDXDIC,BSDXVAL)") 10 10 Q 11 11 ; … … 49 49 EHRPTD(BSDXY,BSDXWID,BSDXDFN) ; 50 50 ; 51 D DEBUG^%Serenji("EHRPT^BSDX30(.BSDXY,BSDXWID,BSDXDFN)")51 ; D DEBUG^%Serenji("EHRPT^BSDX30(.BSDXY,BSDXWID,BSDXDFN)") 52 52 Q 53 53 ; … … 70 70 ; 71 71 PEVENT(BSDXWID,DFN) ;EP - Raise patient selection event to EHR 72 ; VEN/SMH v1.7 3120706 - Not used in VISTA. 73 ; No way right now to synchronize with CPRS. 74 ; Code commented out for now. 72 75 ; 73 76 ;Change patient context to patient DFN … … 78 81 ;all EHR client sessions belonging to user DUZ. 79 82 ; 80 Q:'$G(DUZ)83 ;Q:'$G(DUZ) 81 84 ;N X 82 85 ;S X="CIANBUTL" X ^%ZOSF("TEST") Q:'$T 83 86 ;S X="CIANBEVT" X ^%ZOSF("TEST") Q:'$T 84 N UID,BRET85 S BRET=0,UID=086 F S BRET=$$NXTUID^CIANBUTL(.UID,1) Q:'UID D87 . Q:DUZ'=$$GETVAR^CIANBUTL("DUZ",,,UID)88 . I BSDXWID'="" Q:BSDXWID'=$TR($$GETVAR^CIANBUTL("WID",,,UID),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")89 . D QUEUE^CIANBEVT("CONTEXT.PATIENT",+DFN,UID)90 Q87 ;N UID,BRET 88 ;S BRET=0,UID=0 89 ;F S BRET=$$NXTUID^CIANBUTL(.UID,1) Q:'UID D 90 ;. Q:DUZ'=$$GETVAR^CIANBUTL("DUZ",,,UID) 91 ;. I BSDXWID'="" Q:BSDXWID'=$TR($$GETVAR^CIANBUTL("WID",,,UID),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ") 92 ;. D QUEUE^CIANBEVT("CONTEXT.PATIENT",+DFN,UID) 93 ;Q
Note:
See TracChangeset
for help on using the changeset viewer.