Routine: SDAMEVT

Information

SDAMEVT ;ALB/MJK - Appt Event Driver Utilities ; 12/1/91 [ 09/19/96 1:39 PM ]

Source file <SDAMEVT.m>

Name	Comments	DBIA/ICR reference
BEFORE(SDATA,DFN,SDT,SDCL,SDDA,SDHDL)	; -- get before values	ICR #5838 Status: Active Usage: Private ICR #6183 Status: Withdrawn Usage: Private
AFTER(SDATA,DFN,SDT,SDCL,SDDA,SDHDL)	; -- get after values	ICR #5838 Status: Active Usage: Private ICR #6183 Status: Withdrawn Usage: Private
HANDLE(SDORG)	; -- get evt handle ; SDORG = originating process (1=appt , 2=a/e , 3=disp)	ICR #5838 Status: Active Usage: Private ICR #6183 Status: Withdrawn Usage: Private
CLEAN(SDHDL)	;
HDLKILL	; -- kill off handle data	ICR #5838 Status: Active Usage: Private ICR #6183 Status: Withdrawn Usage: Private
CAPTURE(SDCAP,SDATA,DFN,SDT,SDCL,SDDA,SDHDL)	;
EVT(SDATA,SDAMEVT,SDMODE,SDHDL)	; -- calls the sdam event protocol	ICR #5838 Status: Active Usage: Private ICR #6183 Status: Withdrawn Usage: Private
EVTQ
MAKE(DFN,SDT,SDCL,SDDA,SDMODE)	; -- make appt event #1	ICR #6048 Status: Active Usage: Private
CANCEL(SDATA,DFN,SDT,SDCL,SDDA,SDMODE,SDHDL)	; -- cancel event #2	ICR #6048 Status: Active Usage: Private
NOSHOW(SDATA,DFN,SDT,SDCL,SDDA,SDMODE,SDHDL)	; -- no-show event #3
OE(SDCAP,SDORG,SDOE,SDHDL)	; -- set up encounter data
OEQ
OECHG(SDORG,SDHDL)	; -- compare befores and afters
OEVT(SDOE,SDCAP,SDHDL,SDATA,SDOE0)	; -- event driver calls by oe ; SDATA only required for appts ; SDOE0 only required for check out deletion AFTER
OEVTQ