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 |