SCRPW25 ;RENO/KEITH - ACRP Ad Hoc Report (cont.) ; 12/5/00 4:15pm
Source file <SCRPW25.m>
Package | Total | Call Graph |
---|---|---|
Registration | 2 | $$LST^DGMTU (ELIG,SVC)^VADPT |
Scheduling | 2 | $$GETALL^SCAPMCA ($$GETOE,GETPRV)^SDOE |
Kernel | 1 | $$CODE2TXT^XUA4A72 |
VA Fileman | 1 | FIELD^DID |
Name | Comments | DBIA/ICR reference |
---|---|---|
PEEC(SDX) | ;Get environmental contaminants indicator
|
|
PEPW(SDX) | ;Get patient POW indicated
|
|
IRQ(DIR) | ;Set up DIR array for ionizing radiation prompt
|
|
SCSC(SDX) | ;Get secondary stop code
|
|
VARZ(SDZ) | ;Produce variables
|
|
PEVT(SDX) | ;Get veteran (y/n)?
|
|
NPCT(SDX,SDZ) | ;Get non-primary care team information
|
|
PCOTR | ;Person class output transform
|
|
FST(SDX,SDFI,SDFE) | ;Field set transform
|
|
CPQ | ;Credit pair help text
|
|
NX | ||
VFST(SDX) | ;Get skin tests
|
|
AOQ(DIR) | ;Set up DIR array for agent orange prompt
|
|
VFTR(SDX) | ;Get treatments
|
|
ECQ(DIR) | ;Set up DIR array for environmental contaminants prompt
|
|
PEPS(SDX) | ;Get patient period of service
|
|
SCPC(SDX) | ;Get primary stop code
|
|
SCCP(SDX) | ;Get stop code credit pair
|
|
CPO1 | ||
NPCP(SDX,SDZ) | ;Get non-primary care provider information
|
|
SCBC(SDX) | ;Get both stop codes
|
|
VETQ(DIR) | ;Set up DIR array for 'veteran?' prompt
|
|
PEAE(SDX) | ;Get all patient eligibilities
|
|
PESP(SDX) | ;Get service connected percentage
|
|
PRPC(SDX,SDP) | ;Get person class
|
|
VFEX(SDX) | ;Get examinations
|
|
PRPP(SDX) | ;Get primary provider
|
|
PEMTQ(SDZ) | ;Set up means test help text
|
|
PRSP(SDX) | ;Get secondary providers
|
|
CPOTQ | ||
CPOTR | ;Credit pair output transform
|
|
PRAP(SDX) | ;Get all providers
|
|
SCOTR | ;Transform stop code external value
|
|
POWQ(DIR) | ;Set up DIR array for POW prompt
|
|
PCAP(SDX,SDZ) | ;Get primary care associate provider
|
|
VFHF(SDX) | ;Get health factors
|
|
PEMT(SDX,SDZ) | ;Get patient means test
|
|
VFPE(SDX) | ;Get patient education
|
|
VFIM(SDX) | ;Get immunizations
|
|
PEPE(SDX) | ;Get patient primary eligibility
|
|
PEAO(SDX) | ;Get agent orange indicator
|
|
PEIR(SDX) | ;Get ionizing radiation indicator
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVHF - [#9000010.23] | VFHF+1 |
^AUPNVHF("AD" | VFHF+1 |
^AUPNVIMM - [#9000010.11] | VFIM+1 |
^AUPNVIMM("AD" | VFIM+1 |
^AUPNVPED - [#9000010.16] | VFPE+1 |
^AUPNVPED("AD" | VFPE+1 |
^AUPNVSK - [#9000010.12] | VFST+1 |
^AUPNVSK("AD" | VFST+1 |
^AUPNVTRT - [#9000010.15] | VFTR+1 |
^AUPNVTRT("AD" | VFTR+1 |
^AUPNVXAM - [#9000010.13] | VFEX+1 |
^AUPNVXAM("AD" | VFEX+1 |
^AUTTEDT - [#9999999.09] | VFPE+1 |
^AUTTEXAM - [#9999999.15] | VFEX+1 |
^AUTTHF - [#9999999.64] | VFHF+1 |
^AUTTIMM - [#9999999.14] | VFIM+1 |
^AUTTSK - [#9999999.28] | VFST+1 |
^AUTTTRT - [#9999999.17] | VFTR+1 |
^DG(408.32 - [#408.32] | PEMT+1 |
^DIC(40.7 - [#40.7] | SCBC+1, SCBC+2, SCPC+1, SCSC+1, SCOTR+1, CPOTR+2, CPOTR+4 |
^DPT - [#2] | PEEC+1 |
^SCE("APAR" | SCBC+2, SCSC+1 |
^TMP("SDPLIST" | PCAP+4, PCAP+6!, NPCP+4, NPCP+5, NPCP+8!, NPCT+4, NPCT+5, NPCT+8! |
^USC(8932.1 - [#8932.1] | PCOTR+1 |
^VA(200 - [#200] | PRAP+1, PRPP+1, PRSP+1 |
Name | Line Occurrences |
---|---|
CPO1 | CPOTR+3 |
CPOTQ | CPO1, CPO1+1 |
CPOTR | SCCP+1 |
FST | PEEC+1 |
NX | PEAO+2, PEEC+2, PEIR+2, PEMT+2, PEPE+2, PEAE+2, PEPS+2, PEPW+2, PESP+2, PEVT+2 , PRAP+2, PRPC+3, PRPP+2, PRSP+2, SCBC+3, SCPC+2, SCSC+2, SCCP+2, VFEX+2, VFHF+2 , VFIM+2, VFPE+2, VFST+2, VFTR+2, PCAP+7, NPCP+9, NPCT+9 |
PCOTR | PRPC+2 |
SCBC | SCCP+1 |
SCOTR | SCBC+1, SCBC+2, SCPC+1, SCSC+1 |
VARZ | PCAP+3, NPCP+3, NPCT+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | PEAO+1*, PEIR+1*, PEPE+1*, PEAE+1*, PEPS+1*, PEPW+1*, PESP+1*, PEVT+1*, PCAP+2~, PCAP+3 , PCAP+4, PCAP+6, NPCP+2~, NPCP+3, NPCP+4, NPCP+5, NPCP+8, NPCT+2~, NPCT+3, NPCT+4 , NPCT+5, NPCT+8, VARZ+2* |
DIR | VETQ~, AOQ~, IRQ~, ECQ~, POWQ~ |
DIR("?" | VETQ+1*, AOQ+1*, IRQ+1*, ECQ+1*, POWQ+1* |
DIR(0 | VETQ+1*, AOQ+1*, IRQ+1*, ECQ+1*, POWQ+1* |
DT | PEMT+1, VARZ+3 |
SDATE | PCAP+2~, PCAP+3, NPCP+2~, NPCP+3, NPCT+2~, NPCT+3, VARZ+3*, VARZ+4* |
SDATE("BEGIN" | VARZ+4* |
SDATE("END" | VARZ+4* |
SDFE | FST~, FST+1 |
SDFI | FST~, FST+1 |
SDI | PRAP+1~*, PRPC+1~*, PRPC+2*, PCOTR+1~*, PRPP+1~*, PRSP+1~*, SCBC+2~*, SCSC+1~*, VFEX+1~*, VFHF+1~* , VFIM+1~*, VFPE+1~*, VFST+1~*, VFTR+1~*, FST+1~*, PCAP+2~, PCAP+3*, NPCP+2~, NPCP+3*, NPCP+4* , NPCP+5, NPCP+6, NPCT+2~, NPCT+3*, NPCT+4*, NPCT+5, NPCT+6 |
SDII | PCOTR+1~* |
>> SDIRQ("?" | PEMTQ+1*, PEMTQ+2*, CPQ+1* |
SDLIST | PCAP+2~, PCAP+3, NPCP+2~, NPCP+3, NPCT+2~, NPCT+3, VARZ+2* |
>> SDOE | PRAP+1, PRPC+1, PRPP+1, PRSP+1, SCBC+2, SCSC+1 |
>> SDOE0 | PEAO+1, PEEC+1, PEIR+1, PEMT+1, PEPE+1, PEAE+1, PEPS+1, PEPW+1, PESP+1, PEVT+1 , SCBC+1, SCPC+1, VFEX+1, VFHF+1, VFIM+1, VFPE+1, VFST+1, VFTR+1, VARZ+2, VARZ+3 |
>> SDOECH | SCBC+2*, SCSC+1* |
SDP | PRPC~, PRPC+2 |
SDSC1 | CPOTR+1~, CPOTR+2*, CPO1, CPO1+1, CPO1+2 |
SDSC2 | CPOTR+1~, CPOTR+3*, CPOTR+4*, CPO1, CPO1+1, CPO1+2 |
SDX | PEAO~, PEAO+1!, PEEC~, PEEC+1!*, PEIR~, PEIR+1!, PEMT~, PEMT+1!*, PEPE~, PEPE+1! , PEAE~, PEAE+1!*, PEPS~, PEPS+1!, PEPW~, PEPW+1!, PESP~, PESP+1!, PEVT~, PEVT+1! , PRAP~, PRAP+1!*, PRPC~, PRPC+1!, PRPC+2*, PCOTR+1*, PCOTR+2*, PRPP~, PRPP+1!*, PRSP~ , PRSP+1!*, SCBC~, SCBC+1!*, SCBC+2*, SCPC~, SCPC+1!*, SCSC~, SCSC+1!*, SCOTR+1*, SCCP~ , SCCP+1!*, CPOTR+2, CPOTR+3, CPOTR+4, CPOTQ*, VFEX~, VFEX+1!*, VFHF~, VFHF+1!*, VFIM~ , VFIM+1!*, VFPE~, VFPE+1!*, VFST~, VFST+1!*, VFTR~, VFTR+1!*, NX, FST~, FST+1* , PCAP~, PCAP+4*, PCAP+5, NPCP~, NPCP+5*, NPCP+6, NPCT~, NPCT+5*, NPCT+6, VARZ+2! |
SDX( | PEAE+1*, PRAP+1*, PRPC+2*, PRPP+1*, PRSP+1*, VFEX+1*, VFHF+1*, VFIM+1*, VFPE+1*, VFST+1* , VFTR+1*, NPCP+6*, NPCT+6* |
SDX(1 | PEAO+1*, PEEC+1*, PEIR+1*, PEMT+1*, PEPE+1*, PEPS+1*, PEPW+1*, PESP+1*, PEVT+1*, SCBC+1* , SCPC+1*, SCCP+1*, NX*, PCAP+5* |
SDX(2 | SCBC+2*, SCSC+1* |
SDY | PEMT+1~*, PRAP+1~, PRPC+1~, PCOTR+1~*, PRPP+1~, PRSP+1~, SCCP+1~, VFEX+1~*, VFHF+1~*, VFIM+1~* , VFPE+1~*, VFST+1~*, VFTR+1~*, FST+1~* |
SDY( | PRAP+1, PRPC+2, PRPP+1, PRSP+1 |
SDY("POINTER" | FST+1 |
SDY(1 | SCCP+1 |
SDY(2 | SCCP+1 |
SDZ | PEMT~, PEMT+1, PEMTQ~, PEMTQ+1, PEMTQ+2, CPOTR+1~, CPO1*, CPO1+1*, CPO1+2*, CPOTQ , PCAP~, PCAP+3, NPCP~, NPCP+3, NPCT~, NPCT+3, VARZ~, VARZ+3 |
U | PEAO+1, PEEC+1, PEIR+1, PEMT+1, PEPE+1, PEAE+1, PEPS+1, PEPW+1, PESP+1, PEVT+1 , PRAP+1, PRPC+2, PCOTR+1, PRPP+1, PRSP+1, SCBC+1, SCBC+2, SCPC+1, SCSC+1, SCOTR+1 , SCCP+1, CPOTR+2, CPOTR+4, CPOTQ, VFEX+1, VFHF+1, VFIM+1, VFPE+1, VFST+1, VFTR+1 , FST+1, PCAP+4, PCAP+5, NPCP+5, NPCP+6, NPCT+5, NPCT+6, VARZ+2, VARZ+3 |
>> VAEL(1 | PEPE+1, PEAE+1 |
>> VAEL(2 | PEPS+1 |
>> VAEL(3 | PESP+1 |
>> VAEL(4 | PEVT+1 |
>> VASV(2 | PEAO+1 |
>> VASV(3 | PEIR+1 |
>> VASV(4 | PEPW+1 |