CRHDPL ; CAIRO/MGH - Find personal lists for changeover list ;04-Mar-2008 16:00;CLC
Source file <CRHDPL.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEFPAT(CRHDPATL,DUZ) | ;Find the personal list for this person
|
|
| PERSLST(CRHDPATL,DUZ) | ;
|
|
| GETPTS | ;subroutine to return patients on a list
|
|
| ALPHA(CRHDPATA,CRHDPATL,CRHDCT) | ;
|
|
| PATDATA(CRHDDFN,CRHDCT) | ;
|
|
| SPECPTS(CRHDPATL,SPL) | ;
|
|
| TEAM(CRHDPATL,TEAM,FLAG) | ;
|
|
| PROV(CRHDPATL,PROV) | ;
|
|
| WARD(CRHDPATL,WARD) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OR(100.21 - [#100.21] | GETPTS+3 |
| ^TMP("OR" | DEFPAT+9, DEFPAT+11 |
| Name | Field # of Occurrence |
|---|---|
| ^( | GETPTS+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CRHDAGE | DEFPAT+2~, PATDATA+8*, PATDATA+11, SPECPTS+1~, TEAM+1~, PROV+1~, WARD+1~ |
| CRHDCT | DEFPAT+1~, DEFPAT+3*, DEFPAT+17, DEFPAT+18, GETPTS+5, GETPTS+6, ALPHA~, ALPHA+3*, PATDATA~, SPECPTS+1~ , SPECPTS+2*, SPECPTS+7, SPECPTS+8, TEAM+1~, TEAM+2*, TEAM+7, TEAM+8, PROV+1~, PROV+2*, PROV+7 , PROV+8, WARD+1~, WARD+2*, WARD+7, WARD+8 |
| CRHDDFN | DEFPAT+1~, DEFPAT+15*, DEFPAT+16, DEFPAT+17, GETPTS+4*, GETPTS+5, PATDATA~, PATDATA+3, PATDATA+11, SPECPTS+1~ , TEAM+1~, PROV+1~, WARD+1~ |
| CRHDDOB | DEFPAT+2~, PATDATA+7*, PATDATA+11, SPECPTS+1~, TEAM+1~, PROV+1~, WARD+1~ |
| CRHDDSRC | DEFPAT+2~, DEFPAT+5, DEFPAT+7 |
| CRHDJ | DEFPAT+2~, DEFPAT+13*, DEFPAT+14*, DEFPAT+15 |
| CRHDL | DEFPAT+1~, PERSLST+4*, PERSLST+5, SPECPTS+1~, SPECPTS+5*, SPECPTS+6, TEAM+1~, TEAM+5*, TEAM+6, PROV+1~ , PROV+5*, PROV+6, WARD+1~, WARD+5*, WARD+6 |
| CRHDLIST | DEFPAT+1~, PERSLST+5*, PERSLST+12*, GETPTS+3, SPECPTS+1~, SPECPTS+6*, SPECPTS+7, TEAM+1~, TEAM+6*, TEAM+7 , PROV+1~, PROV+6*, PROV+7, WARD+1~, WARD+6*, WARD+7 |
| CRHDLST | DEFPAT+6, DEFPAT+8!, DEFPAT+12, PERSLST+2, PERSLST+9!, PERSLST+10, PERSLST+11, PERSLST+12, SPECPTS+1~, SPECPTS+3 , TEAM+1~, TEAM+3, PROV+1~, PROV+3, WARD+1~, WARD+3 |
| CRHDLST( | DEFPAT+11*, DEFPAT+14, DEFPAT+15, PERSLST+4, PERSLST+5, SPECPTS+5, SPECPTS+6, TEAM+5, TEAM+6, PROV+5 , PROV+6, WARD+5, WARD+6 |
| CRHDLST(1 | PERSLST+3, SPECPTS+4, TEAM+4, PROV+4, WARD+4 |
| CRHDN | DEFPAT+2~, DEFPAT+10*, DEFPAT+11* |
| CRHDNAME | DEFPAT+1~, PATDATA+7*, PATDATA+11, SPECPTS+1~, TEAM+1~, PROV+1~, WARD+1~ |
| CRHDORX | DEFPAT+1~, GETPTS+4*, SPECPTS+1~, TEAM+1~, PROV+1~, WARD+1~ |
| CRHDPATA | DEFPAT+18, GETPTS+6, ALPHA~, ALPHA+4!, SPECPTS+8, TEAM+8, PROV+8, WARD+8 |
| CRHDPATA( | ALPHA+3, PATDATA+11* |
| CRHDPATL | DEFPAT~, DEFPAT+18, PERSLST~, GETPTS+6, ALPHA~, SPECPTS~, SPECPTS+8, TEAM~, TEAM+8, PROV~ , PROV+8, WARD~, WARD+8 |
| CRHDPATL( | ALPHA+3* |
| CRHDPATL(1 | PERSLST+11* |
| CRHDPLST | DEFPAT+1~ |
| CRHDSEX | DEFPAT+2~, PATDATA+8*, PATDATA+11 |
| CRHDSSN | DEFPAT+1~, PATDATA+7*, PATDATA+11, SPECPTS+1~, TEAM+1~, PROV+1~, WARD+1~ |
| CRHDTLST | DEFPAT+2~, DEFPAT+19 |
| DFN | PATDATA+2!, PATDATA+3* |
| DUZ | DEFPAT~, PERSLST~ |
| FLAG | TEAM~, TEAM+3 |
| J | GETPTS+1~, GETPTS+2*, GETPTS+3*, GETPTS+4 |
| PROV | PROV~, PROV+3 |
| SPL | SPECPTS~, SPECPTS+3 |
| TEAM | TEAM~, TEAM+3 |
| TXX | ALPHA+1~, ALPHA+2*, ALPHA+3* |
| U | PERSLST+3, PERSLST+5, PERSLST+11, PERSLST+12, PATDATA+7, PATDATA+8, PATDATA+11, SPECPTS+4, SPECPTS+6, TEAM+4 , TEAM+6, PROV+4, PROV+6, WARD+4, WARD+6 |
| VADM | GETPTS+1~, PATDATA+2! |
| VADM(1 | PATDATA+7 |
| VADM(2 | PATDATA+7 |
| VADM(3 | PATDATA+7 |
| VADM(4 | PATDATA+8 |
| VADM(5 | PATDATA+8 |
| VAIN | DEFPAT+1~, SPECPTS+1~, TEAM+1~, PROV+1~, WARD+1~ |
| VAIP | GETPTS+1~, PATDATA+2! |
| WARD | WARD~, WARD+3 |