source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDCOU1.m@ 1590

Last change on this file since 1590 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 724 bytes
Line 
1SDCOU1 ;ALB/RMO - Utilities Cont. - Check Out;28 DEC 1992 10:00 am
2 ;;5.3;Scheduling;**132**;Aug 13, 1993
3 ;
4EVT(SDOE,SDCAP,SDHDL,SDATA,SDOE0) ;Check Out Event Driver Call
5 ; Input -- SDOE Outpatient Encounter file IEN
6 ; SDCAP Capture Mode (BEFORE or AFTER)
7 ; SDHDL Event Handle
8 ; SDATA Before/After Status Data
9 ; SDOE0 OE 0th node [Only required for check out deletion]
10 ; Output -- Event Driver Call
11 ; Only for Appts, Disp Delete, A/E's
12 N SDORG
13 S SDORG=+$P($G(^SCE(+SDOE,0),$G(SDOE0)),"^",8) G EVTQ:'SDORG
14 I SDCAP="BEFORE" S SDHDL=$$HANDLE^SDAMEVT(SDORG)
15 I SDORG=1!(SDORG=2)!(SDORG=3) D
16 .D OEVT^SDAMEVT(SDOE,SDCAP,SDHDL,.SDATA,$G(SDOE0))
17EVTQ Q
Note: See TracBrowser for help on using the repository browser.