Last change
on this file since 1569 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
724 bytes
|
Line | |
---|
1 | SDCOU1 ;ALB/RMO - Utilities Cont. - Check Out;28 DEC 1992 10:00 am
|
---|
2 | ;;5.3;Scheduling;**132**;Aug 13, 1993
|
---|
3 | ;
|
---|
4 | EVT(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))
|
---|
17 | EVTQ Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.