; -- main entry point called by ADT event driver
; -- process adm and d/c only
SCAN(SDFN,SDBEG,SDEND)
; -- scan range of appts to update
; input: SDFN := ien of patient
; SDBEG := begin date
; SDEND := end date
; ^TMP("SDSTAT",$J) := array of apts processed
; ^TMP("SDOE STAT",$J) := array of encounters processed
STATQ
OEQ
UPDATE(DFN,SDT)
; -- update appt status
; input: DFN := ien of patient
; SDT := date of appt