SDCOU1 ;ALB/RMO - Utilities Cont. - Check Out;28 DEC 1992 10:00 am
;;5.3;Scheduling;**132**;Aug 13, 1993
;
EVT(SDOE,SDCAP,SDHDL,SDATA,SDOE0) ;Check Out Event Driver Call
; Input -- SDOE Outpatient Encounter file IEN
; SDCAP Capture Mode (BEFORE or AFTER)
; SDHDL Event Handle
; SDATA Before/After Status Data
; SDOE0 OE 0th node [Only required for check out deletion]
; Output -- Event Driver Call
; Only for Appts, Disp Delete, A/E's
N SDORG
S SDORG=+$P($G(^SCE(+SDOE,0),$G(SDOE0)),"^",8) G EVTQ:'SDORG
I SDCAP="BEFORE" S SDHDL=$$HANDLE^SDAMEVT(SDORG)
I SDORG=1!(SDORG=2)!(SDORG=3) D
.D OEVT^SDAMEVT(SDOE,SDCAP,SDHDL,.SDATA,$G(SDOE0))
EVTQ Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDCOU1 741 printed Nov 22, 2024@17:59:36 Page 2
SDCOU1 ;ALB/RMO - Utilities Cont. - Check Out;28 DEC 1992 10:00 am
+1 ;;5.3;Scheduling;**132**;Aug 13, 1993
+2 ;
EVT(SDOE,SDCAP,SDHDL,SDATA,SDOE0) ;Check Out Event Driver Call
+1 ; Input -- SDOE Outpatient Encounter file IEN
+2 ; SDCAP Capture Mode (BEFORE or AFTER)
+3 ; SDHDL Event Handle
+4 ; SDATA Before/After Status Data
+5 ; SDOE0 OE 0th node [Only required for check out deletion]
+6 ; Output -- Event Driver Call
+7 ; Only for Appts, Disp Delete, A/E's
+8 NEW SDORG
+9 SET SDORG=+$PIECE($GET(^SCE(+SDOE,0),$GET(SDOE0)),"^",8)
if 'SDORG
GOTO EVTQ
+10 IF SDCAP="BEFORE"
SET SDHDL=$$HANDLE^SDAMEVT(SDORG)
+11 IF SDORG=1!(SDORG=2)!(SDORG=3)
Begin DoDot:1
+12 DO OEVT^SDAMEVT(SDOE,SDCAP,SDHDL,.SDATA,$GET(SDOE0))
End DoDot:1
EVTQ QUIT
