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 |
Package | Total | Caller Graph |
---|---|---|
Shift Handoff Tool | 1 | CRHD3 |
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 |