- 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 Mar 13, 2025@21:54: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
