SDSTAT ;MJK/ALB - Appt Status Update Protocol for ADT ; 7/14/92
Source file <SDSTAT.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| STAT() | ; -- determine status of appt | |
| EN | ; -- 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 | |
| ENQ | ||
| OE(SDOE,SDSTB,SDSTA,SDHDL) | ; -- update outpatient encounter if appropriate | |
| UPDATEQ | 
| 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+11, EN+13 | 
| ^DIC(42 - [#42] | EN+11 | 
| ^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+7*, ENQ!, SCAN+19, SCAN+20* | 
| ^TMP("SDSTAT" | EN+4!, EN+7*, ENQ!, SCAN+11, SCAN+12* | 
| ^UTILITY("DGPM" | EN+2, EN+8 | 
| Name | Line Occurrences | 
|---|---|
| $$STAT | UPDATE+7 | 
| ENQ | EN+2, EN+3 | 
| OE | SCAN+27, UPDATE+15 | 
| SCAN | EN+15 | 
| STATQ | STAT+3, STAT+4, STAT+5, STAT+6, STAT+7 | 
| UPDATE | SCAN+13 | 
| UPDATEQ | UPDATE+5 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | EN+8, SCAN+12*, SCAN+20* | 
| ^("A" | EN+8 | 
| ^(0 | EN+13, UPDATE+5 | 
| ^(3 | EN+2 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| AFTER | EN+4~, EN+9*, EN+13*, EN+14 | 
| C | STAT+1~, STAT+2*, STAT+5, STAT+6 | 
| DFN | EN+3, EN+15, SCAN+24~*, UPDATE~, UPDATE+5, UPDATE+8, UPDATE+11, UPDATE+14, STAT+2, STAT+3 , STAT+6 | 
| >> DGQUIET | EN+5, EN+6, EN+16 | 
| DT | UPDATE+8, UPDATE+9, STAT+4 | 
| PREV | EN+4~, EN+9*, EN+13*, EN+14 | 
| SDA | EN+4~, EN+8*, EN+9, EN+10, EN+11, EN+12, EN+13 | 
| 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+14*, EN+15, SCAN~, SCAN+9, SCAN+16 | 
| SDCA | EN+4~ | 
| SDCL | UPDATE+4~, UPDATE+6*, UPDATE+11 | 
| SDEND | EN+4~, EN+14*, EN+15, 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 | 
| SDMODE | EN+5~* | 
| >> SDMVT | EN+8* | 
| 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+8*, EN+9, EN+10, EN+11, EN+12, EN+13 | 
| 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+8*, EN+10, EN+11, EN+12, EN+13 | 
| U | EN+11, EN+12, EN+13, 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 |