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 |
IHS Changes To ADT | 1 | $$HRCN^BDGF2 |
Registration | 1 | $$LST^DGMTU |
VA Fileman | 1 | ^%DTC |
Name | Comments | DBIA/ICR reference |
---|---|---|
DT(X) | ;Transform date
|
|
LSET(SCS,SCX) | ;Set report line
|
|
PCROLE(SCPC) | ;Determine PC? y/n
|
|
PTCL(DFN,SCLINIC,SCACT,SCINACT) | ;evaluate enrolled clinic
|
|
PROV(SCPROV,SCPC) | ;evaluate providers
|
|
AGEGR(SCDT) | ;Calculate age group
|
|
PSET(SCPRD,SCPC,SCLEV,SCN,SCATY,SCPP) | ;Set local provider array
|
|
BPTPA(SCPASS,SCDIV,SCTEAM,SCPOS,SCLINIC,SCFMT) | ;Evaluate patient team position assignment information
|
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+35, BPTPA+53, 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+61*, BPTPA+62*, BPTPA+63*, BPTPA+64*, BPTPA+65*, BPTPA+66*, BPTPA+67*, BPTPA+68*, BPTPA+69*, BPTPA+70* , BPTPA+71*, LSET+4, LSET+5*, LSET+6, LSET+7*, LSET+9*, LSET+10, LSET+11* |
Name | Line Occurrences |
---|---|
$$AGEGR | BPTPA+31 |
$$DT | PSET+15 |
$$PCROLE | BPTPA+19 |
$$PROV | BPTPA+26 |
$$PTCL | BPTPA+22 |
LSET | BPTPA+58 |
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+29, BPTPA+32, BPTPA+33, BPTPA+35, BPTPA+71, PTCL~ , PTCL+8, PTCL+11, PTCL+12, PTCL+13 |
DT | AGEGR+3 |
DUZ(2 | BPTPA+29 |
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+31*, BPTPA+65 |
SCARR | BPTPA+11~, BPTPA+24*, BPTPA+25 |
SCATY | BPTPA+11~, BPTPA+48*, BPTPA+61, PSET~, PSET+9, PSET+14 |
SCDIV | BPTPA~, BPTPA+69 |
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+36*, BPTPA+66 |
SCFAS | PROV+5~, PROV+7*, PROV+9, PROV+13, PROV+51 |
SCFMT | BPTPA~, BPTPA+53, BPTPA+58 |
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+30*, BPTPA+64 |
SCI | BPTPA+11~, BPTPA+25*, BPTPA+53*, BPTPA+55, 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+33, 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+43, PTCL~, PTCL+7, PTCL+18*, PTCL+19* |
SCMTST | BPTPA+11~, BPTPA+33*, BPTPA+34*, BPTPA+63 |
SCN | BPTPA+46*, BPTPA+47, BPTPA+48, BPTPA+50, 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+40 |
SCPC | BPTPA+10~, BPTPA+19*, BPTPA+20, BPTPA+26, BPTPA+68, 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+32*, BPTPA+62 |
SCPOS | BPTPA~, BPTPA+25, BPTPA+42 |
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+47*, BPTPA+49, BPTPA+61, PROV~ |
SCPROV( | BPTPA+46, BPTPA+47, BPTPA+48, BPTPA+50, 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+30, BPTPA+31 |
SCPTPA | BPTPA+10~, BPTPA+13*, BPTPA+14 |
SCPTPA0 | BPTPA+10~, BPTPA+14*, BPTPA+15, BPTPA+19 |
SCPTYP | BPTPA+12~, BPTPA+47*, BPTPA+49 |
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+53*, BPTPA+54, BPTPA+55, BPTPA+58, LSET~ |
SCS( | BPTPA+55* |
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+29*, BPTPA+40 |
SCSUB | PROV+5~, PROV+54*, PROV+55, PROV+56, PROV+57, PROV+58, PROV+59 |
SCTEAM | BPTPA~, BPTPA+42, BPTPA+67 |
SCX | BPTPA+10~, BPTPA+35!, BPTPA+36, BPTPA+40*, BPTPA+42*, BPTPA+43*, BPTPA+49*, BPTPA+50*, BPTPA+58, LSET~ , LSET+11 |
SCX(1 | BPTPA+36 |
SCY | BPTPA+11~, BPTPA+54*, BPTPA+55* |
SDOE0 | BPTPA+10~, BPTPA+35* |
U | BPTPA+13, BPTPA+15, BPTPA+17, BPTPA+18, BPTPA+19, BPTPA+21, BPTPA+25, BPTPA+27, BPTPA+28, BPTPA+30 , BPTPA+31, BPTPA+33, BPTPA+35, BPTPA+36, BPTPA+40, BPTPA+42, BPTPA+43, BPTPA+47, BPTPA+48, BPTPA+49 , BPTPA+50, BPTPA+53, 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 |