SDSTAT ;MJK/ALB - Appt Status Update Protocol for ADT ; 7/14/92
Source file <SDSTAT.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Kernel | 1 | ^ORD(101 |
Scheduling | 1 | SD APPT STATUS |
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 |
Name | Field # of Occurrence |
---|---|
$$FIND^SDAM2 | STAT+2 |
$$INP^SDAM2 | SCAN+23, STAT+3 |
$$HANDLE^SDAMEVT | SCAN+24, UPDATE+12 |
OEVT^SDAMEVT | UPDATE+13, UPDATE+16 |
BEFORE^SDAMEVT2 | SCAN+25 |
EVT^SDAMEVT2 | SCAN+28 |
BEFORE^SDAMEVT3 | SCAN+26 |
EVT^SDAMEVT3 | SCAN+29 |
COMDT^SDCODEL | OE+8 |
EN^SDCOM | OE+9 |
$$CHK^SDM1A | STAT+7 |
$$COCMP^SDM1A | STAT+6 |
$$REQ^SDM1A | UPDATE+8, STAT+5 |
$$GETAPT^SDVSIT2 | UPDATE+11 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPM - [#405] | EN+10, EN+12 |
^DIC(42 - [#42] | EN+10 |
^DPT - [#2] | EN+3, SCAN+10, UPDATE+5, UPDATE+8*, UPDATE+14* |
^SC - [#44] | STAT+2 |
^SCE - [#409.68] | SCAN+21, UPDATE+12, UPDATE+17, UPDATE+18*, UPDATE+19* |
^SCE("ADFN" | SCAN+17, SCAN+18 |
^SCE("APAR" | UPDATE+19 |
^TMP("SDOE STAT" | EN+4!, EN+6*, ENQ!, SCAN+19, SCAN+20* |
^TMP("SDSTAT" | EN+4!, EN+6*, ENQ!, SCAN+11, SCAN+12* |
^UTILITY("DGPM" | EN+2, EN+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AFTER | EN+4~, EN+8*, EN+12*, EN+13 |
C | STAT+1~, STAT+2*, STAT+5, STAT+6 |
DFN | EN+3, EN+14, SCAN+24~*, UPDATE~, UPDATE+5, UPDATE+8, UPDATE+11, UPDATE+14, STAT+2, STAT+3 , STAT+6 |
>> DGQUIET | EN+5, EN+15 |
DT | UPDATE+8, UPDATE+9, STAT+4 |
PREV | EN+4~, EN+8*, EN+12*, EN+13 |
SDA | EN+4~, EN+7*, EN+8, EN+9, EN+10, EN+11, EN+12 |
SDADTHDL | SCAN+24~*, SCAN+25, SCAN+26, SCAN+27, SCAN+28, SCAN+29, UPDATE+10~, UPDATE+12*, UPDATE+13, UPDATE+15 , UPDATE+16 |
SDATA | SCAN+24~, UPDATE+4~, UPDATE+5*, UPDATE+6, UPDATE+10~, UPDATE+13, UPDATE+16, STAT+2, STAT+7 |
SDBEG | EN+4~, EN+13*, EN+14, SCAN~, SCAN+9, SCAN+16 |
SDCA | EN+4~ |
SDCL | UPDATE+4~, UPDATE+6*, UPDATE+11 |
SDEND | EN+4~, EN+13*, EN+14, SCAN~, SCAN+10, SCAN+17 |
SDFN | SCAN~, SCAN+10, SCAN+13, SCAN+17, SCAN+18, SCAN+23, SCAN+24, SCAN+26, SCAN+29 |
SDHDL | OE~, OE+9 |
>> SDMVT | EN+7* |
SDOE | SCAN+7~, SCAN+18*, SCAN+19, SCAN+20, SCAN+21, SCAN+25, SCAN+27, SCAN+28, UPDATE+4~, UPDATE+6* , UPDATE+11*, UPDATE+12, UPDATE+13, UPDATE+15, UPDATE+16, UPDATE+17, UPDATE+18, UPDATE+19, OE~, OE+8 , OE+9 |
>> SDOE0 | SCAN+21*, SCAN+23 |
SDOEC | UPDATE+10~, UPDATE+19* |
SDOEP | SCAN+7~, SCAN+21*, SCAN+22 |
SDORG | SCAN+7~, SCAN+21*, SCAN+22, SCAN+24, SCAN+25, SCAN+26, SCAN+28, SCAN+29 |
SDP | EN+4~, EN+7*, EN+8, EN+9, EN+10, EN+11, EN+12 |
SDSTA | SCAN+7~, SCAN+23*, SCAN+27, UPDATE+4~, UPDATE+7*, UPDATE+8, UPDATE+14, UPDATE+15, UPDATE+17, OE~ , OE+3, OE+4, OE+5, OE+6 |
SDSTB | SCAN+7~, SCAN+23*, SCAN+27, UPDATE+4~, UPDATE+6*, UPDATE+7, UPDATE+15, OE~, OE+3, OE+4 , OE+5, OE+6 |
SDT | SCAN+7~, SCAN+9*, SCAN+10*, SCAN+11, SCAN+12, SCAN+13, SCAN+16*, SCAN+17*, SCAN+18, SCAN+23 , SCAN+26, SCAN+29, UPDATE~, UPDATE+5, UPDATE+8, UPDATE+9, UPDATE+11, UPDATE+14, STAT+2, STAT+3 , STAT+4, STAT+5, STAT+6, STAT+7 |
SDTYPE | EN+4~, EN+7*, EN+9, EN+10, EN+11, EN+12 |
U | EN+10, EN+11, EN+12, SCAN+21, SCAN+23, UPDATE+6, UPDATE+8, UPDATE+12, UPDATE+14, UPDATE+17 , UPDATE+18, UPDATE+19, STAT+6 |
X | STAT+1~, STAT+3*, STAT+4*, STAT+5*, STAT+6*, STAT+7*, STAT+8*, STATQ |
Y | OE+1~, OE+2*, OE+3*, OE+4*, OE+5*, OE+6*, OE+7 |