BSDX30 ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ; [ 09/12/2007 1:54 PM ]
;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010
;
;
SPACED(BSDXY,BSDXDIC,BSDXVAL) ;EP
;Entry point for debugging
;
D DEBUG^%Serenji("SPACE^BSDX30(.BSDXY,BSDXDIC,BSDXVAL)")
Q
;
SPACE(BSDXY,BSDXDIC,BSDXVAL) ;EP
;Update ^DISV with most recent lookup value BSDXVAL from file BSDXDIC
;BSDXDIC is the data global in the form GLOBAL(
;BSDXVAL is the entry number (IEN) in the file
;
;Return Status = 1 if success, 0 if fail
;
S BSDXY="^BSDXTMP("_$J_")"
N BSDX1,BSDXRES
S BSDXI=0
S X="ETRAP^BSDX30",@^%ZOSF("TRAP")
I (BSDXDIC="")!('+$G(BSDXVAL)) D ERR(BSDXI+1,99) Q
S BSDXDIC="^"_BSDXDIC
S ^BSDXTMP($J,0)="T00020ERRORID"_$C(30)
I $D(@(BSDXDIC_"BSDXVAL,0)")),'$D(^(-9)) D ;Note: Naked reference is immediately preceded by the full global reference per SAC 2.2.2.8
. S ^DISV(DUZ,BSDXDIC)=BSDXVAL
. S BSDXRES=1
E S BSDXRES=0
S BSDXI=BSDXI+1
S ^BSDXTMP($J,BSDXI)=BSDXRES_$C(30)_$C(31)
Q
;
ERR(BSDXI,BSDXERR) ;Error processing
S BSDXI=BSDXI+1
S ^BSDXTMP($J,BSDXI)=BSDXERR_$C(30)
S BSDXI=BSDXI+1
S ^BSDXTMP($J,BSDXI)=$C(31)
Q
;
ETRAP ;EP Error trap entry
I '$D(BSDXI) N BSDXI S BSDXI=999
S BSDXI=BSDXI+1
D ERR(99,0)
Q
;
EHRPTD(BSDXY,BSDXWID,BSDXDFN) ;
;
D DEBUG^%Serenji("EHRPT^BSDX30(.BSDXY,BSDXWID,BSDXDFN)")
Q
;
EHRPT(BSDXY,BSDXWID,BSDXDFN) ;
;
;Return Status = 1 if success, 0 if error
;
S BSDXY="^BSDXTMP("_$J_")"
N BSDX1,BSDXRES
S BSDXI=0,BSDXRES=1
S X="ETRAP^BSDX30",@^%ZOSF("TRAP")
S ^BSDXTMP($J,0)="T00020ERRORID"_$C(30)
I '+BSDXDFN D ERR(BSDXI+1,0) Q
;
D PEVENT(BSDXWID,BSDXDFN) ;Raise patient selected event
;
S BSDXI=BSDXI+1
S ^BSDXTMP($J,BSDXI)=BSDXRES_$C(30)_$C(31)
Q
;
PEVENT(BSDXWID,DFN) ;EP - Raise patient selection event to EHR
;
;Change patient context to patient DFN
;on all EHR client sessions associated with user DUZ
;and workstation BSDXWID.
;
;If BSDXWID is "", the context change is sent to
;all EHR client sessions belonging to user 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
BSDX30 ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ; [ 09/12/2007 1:54 PM ]
+1 ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010
+2 ;
+3 ;
SPACED(BSDXY,BSDXDIC,BSDXVAL) ;EP
+1 ;Entry point for debugging
+2 ;
+3 DO DEBUG^%Serenji("SPACE^BSDX30(.BSDXY,BSDXDIC,BSDXVAL)")
+4 QUIT
+5 ;
SPACE(BSDXY,BSDXDIC,BSDXVAL) ;EP
+1 ;Update ^DISV with most recent lookup value BSDXVAL from file BSDXDIC
+2 ;BSDXDIC is the data global in the form GLOBAL(
+3 ;BSDXVAL is the entry number (IEN) in the file
+4 ;
+5 ;Return Status = 1 if success, 0 if fail
+6 ;
+7 SET BSDXY="^BSDXTMP("_$JOB_")"
+8 NEW BSDX1,BSDXRES
+9 SET BSDXI=0
+10 SET X="ETRAP^BSDX30"
SET @^%ZOSF("TRAP")
+11 IF (BSDXDIC="")!('+$GET(BSDXVAL))
DO ERR(BSDXI+1,99)
QUIT
+12 SET BSDXDIC="^"_BSDXDIC
+13 SET ^BSDXTMP($JOB,0)="T00020ERRORID"_$CHAR(30)
+14 ;Note: Naked reference is immediately preceded by the full global reference per SAC 2.2.2.8
IF $DATA(@(BSDXDIC_"BSDXVAL,0)"))
IF '$DATA(^(-9))
Begin DoDot:1
+15 SET ^DISV(DUZ,BSDXDIC)=BSDXVAL
+16 SET BSDXRES=1
End DoDot:1
+17 IF '$TEST
SET BSDXRES=0
+18 SET BSDXI=BSDXI+1
+19 SET ^BSDXTMP($JOB,BSDXI)=BSDXRES_$CHAR(30)_$CHAR(31)
+20 QUIT
+21 ;
ERR(BSDXI,BSDXERR) ;Error processing
+1 SET BSDXI=BSDXI+1
+2 SET ^BSDXTMP($JOB,BSDXI)=BSDXERR_$CHAR(30)
+3 SET BSDXI=BSDXI+1
+4 SET ^BSDXTMP($JOB,BSDXI)=$CHAR(31)
+5 QUIT
+6 ;
ETRAP ;EP Error trap entry
+1 IF '$DATA(BSDXI)
NEW BSDXI
SET BSDXI=999
+2 SET BSDXI=BSDXI+1
+3 DO ERR(99,0)
+4 QUIT
+5 ;
EHRPTD(BSDXY,BSDXWID,BSDXDFN) ;
+1 ;
+2 DO DEBUG^%Serenji("EHRPT^BSDX30(.BSDXY,BSDXWID,BSDXDFN)")
+3 QUIT
+4 ;
EHRPT(BSDXY,BSDXWID,BSDXDFN) ;
+1 ;
+2 ;Return Status = 1 if success, 0 if error
+3 ;
+4 SET BSDXY="^BSDXTMP("_$JOB_")"
+5 NEW BSDX1,BSDXRES
+6 SET BSDXI=0
SET BSDXRES=1
+7 SET X="ETRAP^BSDX30"
SET @^%ZOSF("TRAP")
+8 SET ^BSDXTMP($JOB,0)="T00020ERRORID"_$CHAR(30)
+9 IF '+BSDXDFN
DO ERR(BSDXI+1,0)
QUIT
+10 ;
+11 ;Raise patient selected event
DO PEVENT(BSDXWID,BSDXDFN)
+12 ;
+13 SET BSDXI=BSDXI+1
+14 SET ^BSDXTMP($JOB,BSDXI)=BSDXRES_$CHAR(30)_$CHAR(31)
+15 QUIT
+16 ;
PEVENT(BSDXWID,DFN) ;EP - Raise patient selection event to EHR
+1 ;
+2 ;Change patient context to patient DFN
+3 ;on all EHR client sessions associated with user DUZ
+4 ;and workstation BSDXWID.
+5 ;
+6 ;If BSDXWID is "", the context change is sent to
+7 ;all EHR client sessions belonging to user DUZ.
+8 ;
+9 IF '$GET(DUZ)
QUIT
+10 ;N X
+11 ;S X="CIANBUTL" X ^%ZOSF("TEST") Q:'$T
+12 ;S X="CIANBEVT" X ^%ZOSF("TEST") Q:'$T
+13 NEW UID,BRET
+14 SET BRET=0
SET UID=0
+15 FOR
SET BRET=$$NXTUID^CIANBUTL(.UID,1)
IF 'UID
QUIT
Begin DoDot:1
+16 IF DUZ'=$$GETVAR^CIANBUTL("DUZ",,,UID)
QUIT
+17 IF BSDXWID'=""
IF BSDXWID'=$TRANSLATE($$GETVAR^CIANBUTL("WID",,,UID),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
QUIT
+18 DO QUEUE^CIANBEVT("CONTEXT.PATIENT",+DFN,UID)
End DoDot:1
+19 QUIT
