SDSTAT ;MJK/ALB - Appt Status Update Protocol for ADT ; 7/14/92
Source file <SDSTAT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point called by ADT event driver
; -- process adm and d/c only |
|
| ENQ | ||
| 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 |
|
| UPDATE(DFN,SDT) | ; -- update appt status
; input: DFN := ien of patient ; SDT := date of appt |
|
| UPDATEQ | ||
| STAT() | ; -- determine status of appt
|
|
| STATQ | ||
| OE(SDOE,SDSTB,SDSTA,SDHDL) | ; -- update outpatient encounter if appropriate
|
|
| OEQ |
