SCRPO2 ;BP-CIOFO/KEITH - Historical Patient Position Assignment Listing (cont.) ;7/31/99 22:36
Source file <SCRPO2.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 3 | $$PRTPC^SCAPMC $$ELIG^SCRPO ENEP^SCRPW24 |
Registration | 1 | $$LST^DGMTU |
VA FileMan | 1 | ^%DTC |
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 |
---|---|---|
Scheduling | 2 | SCMCTSK3 SCRPO1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
BPTPA(SCPASS,SCDIV,SCTEAM,SCPOS,SCLINIC,SCFMT) | ;Evaluate patient team position assignment information
|
|
LSET(SCS,SCX) | ;Set report line
|
|
PROV(SCPROV,SCPC) | ;evaluate providers
|
|
PSET(SCPRD,SCPC,SCLEV,SCN,SCATY,SCPP) | ;Set local provider array
|
|
DT(X) | ;Transform date
|
|
PCROLE(SCPC) | ;Determine PC? y/n
|
|
PTCL(DFN,SCLINIC,SCACT,SCINACT) | ;evaluate enrolled clinic
|
|
AGEGR(SCDT) | ;Calculate age group
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | BPTPA+21, PTCL+8, PTCL+11, PTCL+12, PTCL+13 |
^SCPT(404.43 - [#404.43] | BPTPA+14 |
^TMP("SC" | BPTPA+17, BPTPA+18, BPTPA+20, BPTPA+34, BPTPA+51, PROV+6, PROV+7, PROV+19, PROV+27, PROV+37 , PROV+47, PCROLE+4, PCROLE+5, PTCL+8, PTCL+18, PTCL+19 |
^TMP("SCARR" | PROV+8, PROV+10, PROV+11, PROV+15, PROV+17, PROV+18, PROV+23, PROV+25, PROV+26, PROV+33 , PROV+35, PROV+36, PROV+43, PROV+45, PROV+46, PROV+53, PROV+57, PROV+58 |
^TMP("SCRPT" | BPTPA+59*, BPTPA+60*, BPTPA+61*, BPTPA+62*, BPTPA+63*, BPTPA+64*, BPTPA+65*, BPTPA+66*, BPTPA+67*, BPTPA+68* , BPTPA+69*, LSET+4, LSET+5*, LSET+6, LSET+7*, LSET+9*, LSET+10, LSET+11* |
Name | Line Occurrences |
---|---|
$$AGEGR | BPTPA+30 |
$$DT | PSET+15 |
$$PCROLE | BPTPA+19 |
$$PROV | BPTPA+26 |
$$PTCL | BPTPA+22 |
LSET | BPTPA+56 |
PSET | PROV+19, PROV+27, PROV+37, PROV+47, PROV+59 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | BPTPA+10~, BPTPA+21*, BPTPA+22, BPTPA+27, BPTPA+31, BPTPA+32, BPTPA+34, BPTPA+69, PTCL~, PTCL+8 , PTCL+11, PTCL+12, PTCL+13 |
DT | AGEGR+3 |
ENR | PTCL+6~, PTCL+10*, PTCL+11, PTCL+12, PTCL+14*, PTCL+15*, PTCL+18, PTCL+19 |
ERR | BPTPA+12~ |
SCACT | BPTPA+10~, BPTPA+15*, BPTPA+17*, BPTPA+22, BPTPA+23, PTCL~, PTCL+14 |
SCAGE | BPTPA+11~, BPTPA+30*, BPTPA+63 |
SCARR | BPTPA+11~, BPTPA+24*, BPTPA+25 |
SCATY | BPTPA+11~, BPTPA+46*, BPTPA+59, PSET~, PSET+9, PSET+14 |
SCDIV | BPTPA~, BPTPA+67 |
SCDT | BPTPA+10~, BPTPA+23*, BPTPA+25, AGEGR~, AGEGR+3 |
SCDT("BEGIN" | BPTPA+23* |
SCDT("END" | BPTPA+23* |
SCDT("INCL" | BPTPA+23* |
SCENRP | BPTPA+11~, BPTPA+35*, BPTPA+64 |
SCFAS | PROV+5~, PROV+7*, PROV+9, PROV+13, PROV+51 |
SCFMT | BPTPA~, BPTPA+51, BPTPA+56 |
SCFOUND | PROV+5~, PROV+9*, PROV+19*, PROV+27*, PROV+37*, PROV+47*, PROV+51, PROV+64 |
SCFPC | PROV+5~, PROV+6*, PROV+9, PROV+31, PROV+41, PROV+51 |
SCGEND | BPTPA+11~, BPTPA+29*, BPTPA+62 |
SCI | BPTPA+11~, BPTPA+25*, BPTPA+51*, BPTPA+53, LSET+3~, PROV+5~, PROV+15*, PROV+16*, PROV+17*, PROV+18 , PROV+23*, PROV+24*, PROV+25*, PROV+26, PROV+33*, PROV+34*, PROV+35*, PROV+36, PROV+43*, PROV+44* , PROV+45*, PROV+46, PROV+54*, PROV+57*, PROV+58 |
SCIFN | PTCL+6~, PTCL+7*, PTCL+8, PTCL+11, PTCL+18, PTCL+19 |
SCINACT | BPTPA+10~, BPTPA+15*, BPTPA+18*, BPTPA+22, BPTPA+23, BPTPA+32, PTCL~, PTCL+14, PTCL+15 |
SCL | LSET+3~, LSET+10*, LSET+11 |
SCLAPP | BPTPA+11~ |
SCLEV | PROV+5~, PROV+56*, PROV+59, PSET~, PSET+8 |
SCLINIC | BPTPA~, BPTPA+22, BPTPA+41, PTCL~, PTCL+7, PTCL+18*, PTCL+19* |
SCMTST | BPTPA+11~, BPTPA+32*, BPTPA+33*, BPTPA+39, BPTPA+61 |
SCN | BPTPA+44*, BPTPA+45, BPTPA+46, BPTPA+48, LSET+3~, LSET+4*, LSET+6*, LSET+7, LSET+11, PROV+5~ , PROV+8*, PROV+19, PROV+27, PROV+37, PROV+47, PROV+59, PSET~, PSET+12*, PSET+13, PSET+14 , PSET+15 |
SCNAPP | BPTPA+11~ |
SCPASS | BPTPA~, BPTPA+13, BPTPA+21 |
SCPAT | BPTPA+12~, BPTPA+27*, BPTPA+38 |
SCPC | BPTPA+10~, BPTPA+19*, BPTPA+20, BPTPA+26, BPTPA+66, PROV~, PROV+8, PROV+19, PROV+27, PROV+37 , PROV+47, PROV+55, PROV+59, PSET~, PSET+8, PCROLE~, PCROLE+4, PCROLE+5, PCROLE+6* |
SCPCF | PROV+5~, PROV+8*, PROV+63 |
SCPE | PTCL+6~, PTCL+10*, PTCL+11*, PTCL+12, PTCL+13 |
SCPED | PTCL+6~, PTCL+12*, PTCL+13 |
SCPED0 | PTCL+6~, PTCL+13*, PTCL+14, PTCL+15 |
SCPELIG | BPTPA+12~, BPTPA+31*, BPTPA+39, BPTPA+60 |
SCPOS | BPTPA~, BPTPA+25, BPTPA+40 |
SCPP | PROV+5~, PROV+10*, PROV+11*, PROV+19, PROV+31, PROV+37, PROV+41, PROV+47, PROV+59, PSET~ , PSET+8 |
SCPRD | PROV+5~, PROV+18*, PROV+19, PROV+26*, PROV+27, PROV+36*, PROV+37, PROV+46*, PROV+47, PROV+58* , PROV+59, PSET~, PSET+9, PSET+10*, PSET+13, PSET+14, PSET+15 |
SCPROV | BPTPA+10~, BPTPA+26, BPTPA+45*, BPTPA+47, BPTPA+59, PROV~ |
SCPROV( | BPTPA+44, BPTPA+45, BPTPA+46, BPTPA+48, PSET+13*, PSET+14*, PSET+15* |
SCPROV(0 | PROV+63 |
SCPROV(1 | PROV+63* |
SCPRTY | PSET+7~, PSET+8*, PSET+14 |
SCPT0 | BPTPA+10~, BPTPA+21*, BPTPA+27, BPTPA+28, BPTPA+29, BPTPA+30 |
SCPTPA | BPTPA+10~, BPTPA+13*, BPTPA+14 |
SCPTPA0 | BPTPA+10~, BPTPA+14*, BPTPA+15, BPTPA+19 |
SCPTYP | BPTPA+12~, BPTPA+45*, BPTPA+47 |
SCR | PROV+5~, PROV+10*, PROV+11, PROV+14*, PROV+15, PROV+17, PROV+18, PROV+22*, PROV+23, PROV+25 , PROV+26, PROV+32*, PROV+33, PROV+35, PROV+36, PROV+42*, PROV+43, PROV+45, PROV+46, PROV+53* , PROV+57, PROV+58 |
SCS | BPTPA+11~, BPTPA+51*, BPTPA+52, BPTPA+53, BPTPA+56, LSET~ |
SCS( | BPTPA+53* |
SCS(1 | LSET+4, LSET+7 |
SCS(2 | LSET+4, LSET+7 |
SCS(3 | LSET+4, LSET+7 |
SCS(4 | LSET+11 |
SCS(5 | LSET+11 |
SCS(6 | LSET+11 |
SCSSN | BPTPA+12~, BPTPA+28*, BPTPA+38 |
SCSUB | PROV+5~, PROV+54*, PROV+55, PROV+56, PROV+57, PROV+58, PROV+59 |
SCTEAM | BPTPA~, BPTPA+40, BPTPA+65 |
SCX | BPTPA+10~, BPTPA+34!, BPTPA+35, BPTPA+38*, BPTPA+39*, BPTPA+40*, BPTPA+41*, BPTPA+47*, BPTPA+48*, BPTPA+56 , LSET~, LSET+11 |
SCX(1 | BPTPA+35 |
SCY | BPTPA+11~, BPTPA+52*, BPTPA+53* |
SDOE0 | BPTPA+10~, BPTPA+34* |
U | BPTPA+13, BPTPA+15, BPTPA+17, BPTPA+18, BPTPA+19, BPTPA+21, BPTPA+25, BPTPA+27, BPTPA+28, BPTPA+29 , BPTPA+30, BPTPA+32, BPTPA+34, BPTPA+35, BPTPA+38, BPTPA+39, BPTPA+40, BPTPA+41, BPTPA+45, BPTPA+46 , BPTPA+47, BPTPA+48, BPTPA+51, PROV+63, PSET+9, PSET+10, PSET+13, PSET+14, PSET+15, PTCL+7 , PTCL+14, PTCL+15 |
X | DT~, DT+1*, DT+2, AGEGR+2~, AGEGR+3, AGEGR+4*, AGEGR+5 |
X1 | AGEGR+2~, AGEGR+3* |
X2 | AGEGR+2~, AGEGR+3* |
Y | AGEGR+2~, AGEGR+5*, AGEGR+6 |