SDCOU1.m

SDCOU1 ;ALB/RMO - Utilities Cont. - Check Out;28 DEC 1992 10:00 am

 ;;5.3;Scheduling;**132,1015**;Aug 13, 1993;Build 21

 ;

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

SDCOU1    ;ALB/RMO - Utilities Cont. - Check Out;28 DEC 1992 10:00 am

 +1       ;;5.3;Scheduling;**132,1015**;Aug 13, 1993;Build 21

 +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