|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
724 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
