Routine: APCPUTIL

Package	Total	Call Graph
IHS Patient	2	$$CPT^AUPNCPT $$BEN^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Patient Care Component Reports	1	($$CLINIC,$$PRIMPROV,$$SECPROV)^APCLV
VA Fileman	1	^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
GLUCOSE(V)	;EP - return glucose test value on this visit
CLS(P)	;return ihs class code for provider P
VENTYP(V)	;EP return vendor type from VCHS
SSN(P)	;return provider's ssn
LOS(V)	;EP
CPTRECS(V)	;EP # of cpt records (AD4's)
LABDONE(V,T)	;EP - return Y/N
DMNUTR(V)	;EP - was dm nutrition educ done on this visit, Y or N
BI()	;IHS/CMI/LAB - new subroutine patch 4 1/5/1999
ZIP(V)	;EP - zip code of patient
LBLK(V,L)	;left blank fill
DSCHTYPE(V)	;EP
LABRES(V,T)	;EP - return result of lab test in taxonomy T
PED(V,N)	;EP - return nth v patient ed on this visit
DATE(D)	;EP - return YYYYMMDD from internal fm format
EXAM(V,N)	;EP - return nth v exam on this visit
UPI(V)	;EP unique Patient ID
C	;
E	;
DENTSSN(V)	;EP - if a provider is a 52 get SSN
I	;
H	;
PHNAC(V)	;
CHSDT	;
IMM(V,F,N)	;EP
S	;
RBLK(V,L)	;EP right blank fill
HFNAME(V,C)	;EP return name of health factor in this category
LZERO(V,L)	;EP - left zero fill
CHSDD	;
CHSLOS	;
PHN(V)	;
HF(V,F)	;EP was this health factor recorded on this visit
DELM(V)	;
RZERO(V,L)	;ep right zero fill
NATION(V)	;EP
PAP(V)	;EP - was pap performed Y/N
DENTCOST(V)	;COST OF THIS VISIT
LEVEL(V)	;EP
DSCHDATE(V)	;EP
MEAS(V,T,F)	;EP - return first weight recorded

External References

Name	Field # of Occurrence
^%DTC	LOS+7, CHSLOS+2
$$CLINIC^APCLV	PHNAC+4, DELM+4, DELM+5
$$PRIMPROV^APCLV	PHN+4
$$SECPROV^APCLV	PHN+5
$$CPT^AUPNCPT	CPTRECS+2
$$BEN^AUPNPAT	NATION+4
$$VAL^XBDIQ1	VENTYP+9
$$VALI^XBDIQ1	DSCHTYPE+8, CHSDT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	DMNUTR+8
^ATXAX("B"	DMNUTR+4
^ATXLAB - [#9002228]	PAP+4, GLUCOSE+4, LABDONE+5, LABRES+5
^ATXLAB("B"	PAP+2, GLUCOSE+2, LABDONE+3, LABRES+3
^AUPNVCHS - [#9000010.03]	VENTYP+5, VENTYP+7, CHSDD+2, CHSLOS+2
^AUPNVCHS("AD"	VENTYP+3, CHSDT+1, CHSDD+1, CHSLOS+1
^AUPNVDEN - [#9000010.05]	DENTCOST+4
^AUPNVDEN("AD"	DENTCOST+4, DELM+6
^AUPNVHF - [#9000010.23]	HF+3, HFNAME+3
^AUPNVHF("AD"	HF+3, HFNAME+3
^AUPNVIMM - [#9000010.11]	IMM+6, S+1
^AUPNVIMM("AD"	IMM+6
^AUPNVINP - [#9000010.02]	DSCHDATE+6, LOS+7
^AUPNVINP("AD"	DSCHTYPE+6, DSCHDATE+5, LOS+6
^AUPNVLAB - [#9000010.09]	PAP+4, GLUCOSE+4, LABDONE+5, LABRES+5
^AUPNVLAB("AD"	PAP+4, GLUCOSE+4, LABDONE+5, LABRES+5
^AUPNVMSR - [#9000010.01]	MEAS+10
^AUPNVMSR("AD"	MEAS+5, MEAS+10
^AUPNVPED - [#9000010.16]	PED+6, DMNUTR+8
^AUPNVPED("AD"	PED+6, DMNUTR+3, DMNUTR+8
^AUPNVPHN - [#9000010.32]	LEVEL+5
^AUPNVPHN("AD"	LEVEL+3
^AUPNVPRV - [#9000010.06]	PHN+5, DENTSSN+3
^AUPNVPRV("AD"	PHN+5, DENTSSN+3
^AUPNVSIT - [#9000010]	DSCHTYPE+2, DSCHTYPE+3, DSCHTYPE+5, VENTYP+2, DSCHDATE+2, DSCHDATE+3, LOS+2, LOS+3, LOS+5, LOS+7 , CHSLOS+2, PHNAC+3, MEAS+3, EXAM+2, PED+2, IMM+2, DENTSSN+2, NATION+2, DMNUTR+2, ZIP+2 , DELM+3, UPI+2
^AUPNVXAM - [#9000010.13]	EXAM+6
^AUPNVXAM("AD"	EXAM+6
^AUTTEDT - [#9999999.09]	PED+8, PED+9
^AUTTEXAM - [#9999999.15]	EXAM+8, EXAM+9
^AUTTHF - [#9999999.64]	HFNAME+3
^AUTTHF("B"	HF+2, HFNAME+2
^AUTTIMM - [#9999999.14]	IMM+8, E+1, C+2, H+2
^AUTTIMM(0	BI+1
^AUTTLOC - [#9999999.06]	UPI+4
^AUTTMSR("B"	MEAS+6
^AUTTSITE(1	UPI+4*, UPI+6
^DD(9000010.02	DSCHTYPE+10, DSCHTYPE+11
^DD(9000010.06	CLS+3, SSN+2, SSN+3
^DG(405.1 - [#405.1]	DSCHTYPE+11
^DIC(16 - [#16]	SSN+3
^DIC(42.2 - [#42.2]	DSCHTYPE+10
^DIC(6 - [#6]	CLS+9, CLS+10
^DIC(7 - [#7]	CLS+7, CLS+12
^DPT - [#2]	ZIP+3
^VA(200 - [#200]	CLS+4, CLS+5, SSN+2

Label References

Name	Line Occurrences
$$BI	C+2, H+1
$$CLS	DENTSSN+4
$$DATE	DSCHDATE+8, CHSDD+4
$$PHN	PHNAC+2, LEVEL+2
$$SSN	DENTSSN+5
@(	IMM+10
CHSDD	DSCHDATE+5
CHSDT	DSCHTYPE+5
CHSLOS	LOS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~, LBLK+2, RBLK+1~, RBLK+2, DSCHTYPE+4~, DSCHTYPE+6* , PHN+3~, PHN+5, PHN+6, EXAM+4~, PED+4~, IMM+4~, IMM+10, IMM+11, I+1, E+1 , S+1, C+2, H+1, H+2, CLS+2~, CLS+3, CLS+7, LABDONE+4~, LABDONE+5, LABDONE+6 , LABRES+4~, LABRES+5, LABRES+6
%1	CLS+5~, CLS+6, CLS+7, CLS+10~, CLS+11, CLS+12
>> APCPVIEN	DELM+4, DELM+5, DELM+6
AUPNCPT	CPTRECS+1!, CPTRECS+3
AUPNCPT(	CPTRECS+4
C	CPTRECS+2~, CPTRECS+4, CPTRECS+5, VENTYP+3~, VENTYP+4, VENTYP+5, VENTYP+7, EXAM+4~, EXAM+5, EXAM+6 , PED+4~, PED+5, PED+6, IMM+4~, IMM+5, IMM+6, DENTCOST+2~, DENTCOST+3, DENTCOST+4, DENTCOST+5 , HFNAME~, HFNAME+2*, HFNAME+3
D	DATE~, DATE+1, DATE+2, PHN+3~, PHN+5, DENTSSN+4, DENTSSN+5
E	VENTYP+6~, VENTYP+7*, VENTYP+8, VENTYP+9
F	MEAS~, MEAS+8, MEAS+12, IMM~, IMM+9, IMM+10, HF~, HF+2
I	RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~, LBLK+2, RBLK+1~, RBLK+2
L	RZERO~, RZERO+2, LZERO~, LZERO+2, LBLK~, LBLK+2, RBLK~, RBLK+2
N	PHN+3~, PHN+5*, EXAM~, EXAM+3, EXAM+6, PED~, PED+3, PED+6, IMM~, IMM+3 , IMM+6
P	LEVEL+3~, LEVEL+4, LEVEL+5, EXAM+4~, EXAM+5, EXAM+6, EXAM+7, EXAM+8, EXAM+9, PED+4~ , PED+5, PED+6, PED+7, PED+8, PED+9, IMM+4~, IMM+5, IMM+6, IMM+7, IMM+8 , I+1, E+1, C+2, H+2, CLS~, CLS+1, CLS+4, CLS+5, CLS+9, CLS+10 , SSN~, SSN+1, SSN+2, SSN+3, NATION+2~, NATION+3, NATION+4, ZIP+2~, ZIP+3, UPI+2~ , UPI+3, UPI+6
R	CPTRECS+2~, CPTRECS+5, CPTRECS+6, MEAS+9~, MEAS+10, MEAS+11, MEAS+12, MEAS+13, DMNUTR+6~, DMNUTR+7* , DMNUTR+8*, DMNUTR+9
S	DENTSSN+3~, DENTSSN+5, DENTSSN+7, DELM+1~, DELM+3*, DELM+4, DELM+5, DELM+6
T	VENTYP+6~, VENTYP+9, VENTYP+10, MEAS~, MEAS+4, MEAS+6, PAP+2~, PAP+3, PAP+4, GLUCOSE+2~* , GLUCOSE+3, GLUCOSE+4, LABDONE~, LABDONE+2, LABDONE+3, LABDONE+5, LABRES~, LABRES+2, LABRES+3, LABRES+5 , HF+2~*, HF+3
U	DENTCOST+4, DMNUTR+8, ZIP+2, ZIP+3, PAP+4, GLUCOSE+4, LABDONE+5, LABRES+5, HF+3, HFNAME+3 , DELM+3, UPI+2, UPI+4, UPI+6
V	RZERO~, RZERO+2, RZERO+3, LZERO~, LZERO+2, LZERO+3, LBLK~, LBLK+2, LBLK+3, RBLK~ , RBLK+2, RBLK+3, CPTRECS~, CPTRECS+2, DSCHTYPE~, DSCHTYPE+1, DSCHTYPE+2, DSCHTYPE+3, DSCHTYPE+5, DSCHTYPE+6 , VENTYP~, VENTYP+1, VENTYP+2, VENTYP+3, CHSDT+1, DSCHDATE~, DSCHDATE+1, DSCHDATE+2, DSCHDATE+3, DSCHDATE+5 , CHSDD+1, LOS~, LOS+1, LOS+2, LOS+3, LOS+5, LOS+6, CHSLOS+1, PHNAC~, PHNAC+1 , PHNAC+2, PHNAC+3, PHNAC+4, PHN~, PHN+2, PHN+4, PHN+5, LEVEL~, LEVEL+1, LEVEL+2 , LEVEL+3, MEAS~, MEAS+3, MEAS+5, MEAS+10, EXAM~, EXAM+1, EXAM+2, EXAM+6, PED~ , PED+1, PED+2, PED+6, IMM~, IMM+1, IMM+2, IMM+6, DENTSSN~, DENTSSN+1, DENTSSN+2 , DENTSSN+3, NATION~, NATION+1, NATION+2, DENTCOST~, DENTCOST+1, DENTCOST+4, DMNUTR~, DMNUTR+1, DMNUTR+2 , DMNUTR+3, DMNUTR+8, ZIP~, ZIP+1, ZIP+2, PAP~, PAP+1, PAP+4, GLUCOSE~, GLUCOSE+1 , GLUCOSE+4, LABDONE~, LABDONE+1, LABDONE+5, LABRES~, LABRES+1, LABRES+5, HF~, HF+1, HF+3 , HFNAME~, HFNAME+1, HFNAME+3, DELM~, DELM+2, DELM+3, UPI~, UPI+1, UPI+2
X	CPTRECS+2~, CPTRECS+4, LOS+4~, LOS+8, LOS+9, CHSLOS+3, CHSLOS+4, PHN+3~, PHN+5, MEAS+9~ , MEAS+10, DENTSSN+3~, DENTCOST+2~, DENTCOST+3, DENTCOST+4, DMNUTR+6~, DMNUTR+8, PAP+4~, GLUCOSE+4~, LABDONE+4~* , LABDONE+5, LABRES+4~, LABRES+5, HF+3~, HFNAME+3~*
X1	LOS+4~, LOS+7, CHSLOS+2
X2	LOS+4~, LOS+7, CHSLOS+2
Y	DSCHTYPE+4~, DSCHTYPE+8, DSCHTYPE+9, DSCHTYPE+10, DSCHTYPE+11, CHSDT+2, CHSDT+3, CHSDT+4, DSCHDATE+4~, DSCHDATE+6 , DSCHDATE+7, DSCHDATE+8, CHSDD+2, CHSDD+3, CHSDD+4, LOS+4~, MEAS+6~, MEAS+7, MEAS+10, EXAM+4~ , EXAM+5, EXAM+6, PED+4~, PED+5, PED+6, IMM+4~, IMM+5, IMM+6, DENTSSN+3~, DENTSSN+4 , DENTSSN+5, DENTCOST+2~, DMNUTR+4~, DMNUTR+5, DMNUTR+8, PAP+4~, PAP+5, GLUCOSE+4~, GLUCOSE+5, LABDONE+4~ , LABDONE+5, LABRES+4~, LABRES+5, HF+3~, HF+4, HFNAME+3~, HFNAME+4
Z	RZERO+2, LZERO+2, LBLK+2, RBLK+2, DSCHTYPE+4~, DSCHTYPE+6, DSCHTYPE+7, DSCHTYPE+8, CHSDT+1, CHSDT+2 , DSCHDATE+4~, DSCHDATE+5, DSCHDATE+6, CHSDD+1, CHSDD+2, LOS+4~, LOS+6, LOS+7, CHSLOS+1, CHSLOS+2 , MEAS+9~, EXAM+4~, EXAM+5, EXAM+6, PED+4~, PED+5, PED+6, IMM+4~, IMM+5, IMM+6 , S+1, DMNUTR+6~, DMNUTR+8, PAP+4~, GLUCOSE+4~, HFNAME+3~

Name	Field # of Occurrence
%	RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~, LBLK+2, RBLK+1~, RBLK+2, DSCHTYPE+4~, DSCHTYPE+6* , PHN+3~, PHN+5, PHN+6, EXAM+4~, PED+4~, IMM+4~, IMM+10, IMM+11, I+1, E+1 , S+1, C+2, H+1, H+2, CLS+2~, CLS+3, CLS+7, LABDONE+4~, LABDONE+5, LABDONE+6 , LABRES+4~, LABRES+5, LABRES+6
%1	CLS+5~, CLS+6, CLS+7, CLS+10~, CLS+11, CLS+12
>> APCPVIEN	DELM+4, DELM+5, DELM+6
AUPNCPT	CPTRECS+1!, CPTRECS+3
AUPNCPT(	CPTRECS+4
C	CPTRECS+2~, CPTRECS+4, CPTRECS+5, VENTYP+3~, VENTYP+4, VENTYP+5, VENTYP+7, EXAM+4~, EXAM+5, EXAM+6 , PED+4~, PED+5, PED+6, IMM+4~, IMM+5, IMM+6, DENTCOST+2~, DENTCOST+3, DENTCOST+4, DENTCOST+5 , HFNAME~, HFNAME+2*, HFNAME+3
D	DATE~, DATE+1, DATE+2, PHN+3~, PHN+5, DENTSSN+4, DENTSSN+5
E	VENTYP+6~, VENTYP+7*, VENTYP+8, VENTYP+9
F	MEAS~, MEAS+8, MEAS+12, IMM~, IMM+9, IMM+10, HF~, HF+2
I	RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~, LBLK+2, RBLK+1~, RBLK+2
L	RZERO~, RZERO+2, LZERO~, LZERO+2, LBLK~, LBLK+2, RBLK~, RBLK+2
N	PHN+3~, PHN+5*, EXAM~, EXAM+3, EXAM+6, PED~, PED+3, PED+6, IMM~, IMM+3 , IMM+6
P	LEVEL+3~, LEVEL+4, LEVEL+5, EXAM+4~, EXAM+5, EXAM+6, EXAM+7, EXAM+8, EXAM+9, PED+4~ , PED+5, PED+6, PED+7, PED+8, PED+9, IMM+4~, IMM+5, IMM+6, IMM+7, IMM+8 , I+1, E+1, C+2, H+2, CLS~, CLS+1, CLS+4, CLS+5, CLS+9, CLS+10 , SSN~, SSN+1, SSN+2, SSN+3, NATION+2~, NATION+3, NATION+4, ZIP+2~, ZIP+3, UPI+2~ , UPI+3, UPI+6
R	CPTRECS+2~, CPTRECS+5, CPTRECS+6, MEAS+9~, MEAS+10, MEAS+11, MEAS+12, MEAS+13, DMNUTR+6~, DMNUTR+7* , DMNUTR+8*, DMNUTR+9
S	DENTSSN+3~, DENTSSN+5, DENTSSN+7, DELM+1~, DELM+3*, DELM+4, DELM+5, DELM+6
T	VENTYP+6~, VENTYP+9, VENTYP+10, MEAS~, MEAS+4, MEAS+6, PAP+2~, PAP+3, PAP+4, GLUCOSE+2~* , GLUCOSE+3, GLUCOSE+4, LABDONE~, LABDONE+2, LABDONE+3, LABDONE+5, LABRES~, LABRES+2, LABRES+3, LABRES+5 , HF+2~*, HF+3
U	DENTCOST+4, DMNUTR+8, ZIP+2, ZIP+3, PAP+4, GLUCOSE+4, LABDONE+5, LABRES+5, HF+3, HFNAME+3 , DELM+3, UPI+2, UPI+4, UPI+6
V	RZERO~, RZERO+2, RZERO+3, LZERO~, LZERO+2, LZERO+3, LBLK~, LBLK+2, LBLK+3, RBLK~ , RBLK+2, RBLK+3, CPTRECS~, CPTRECS+2, DSCHTYPE~, DSCHTYPE+1, DSCHTYPE+2, DSCHTYPE+3, DSCHTYPE+5, DSCHTYPE+6 , VENTYP~, VENTYP+1, VENTYP+2, VENTYP+3, CHSDT+1, DSCHDATE~, DSCHDATE+1, DSCHDATE+2, DSCHDATE+3, DSCHDATE+5 , CHSDD+1, LOS~, LOS+1, LOS+2, LOS+3, LOS+5, LOS+6, CHSLOS+1, PHNAC~, PHNAC+1 , PHNAC+2, PHNAC+3, PHNAC+4, PHN~, PHN+2, PHN+4, PHN+5, LEVEL~, LEVEL+1, LEVEL+2 , LEVEL+3, MEAS~, MEAS+3, MEAS+5, MEAS+10, EXAM~, EXAM+1, EXAM+2, EXAM+6, PED~ , PED+1, PED+2, PED+6, IMM~, IMM+1, IMM+2, IMM+6, DENTSSN~, DENTSSN+1, DENTSSN+2 , DENTSSN+3, NATION~, NATION+1, NATION+2, DENTCOST~, DENTCOST+1, DENTCOST+4, DMNUTR~, DMNUTR+1, DMNUTR+2 , DMNUTR+3, DMNUTR+8, ZIP~, ZIP+1, ZIP+2, PAP~, PAP+1, PAP+4, GLUCOSE~, GLUCOSE+1 , GLUCOSE+4, LABDONE~, LABDONE+1, LABDONE+5, LABRES~, LABRES+1, LABRES+5, HF~, HF+1, HF+3 , HFNAME~, HFNAME+1, HFNAME+3, DELM~, DELM+2, DELM+3, UPI~, UPI+1, UPI+2
X	CPTRECS+2~, CPTRECS+4, LOS+4~, LOS+8, LOS+9, CHSLOS+3, CHSLOS+4, PHN+3~, PHN+5, MEAS+9~ , MEAS+10, DENTSSN+3~, DENTCOST+2~, DENTCOST+3, DENTCOST+4, DMNUTR+6~, DMNUTR+8, PAP+4~, GLUCOSE+4~, LABDONE+4~* , LABDONE+5, LABRES+4~, LABRES+5, HF+3~, HFNAME+3~*
X1	LOS+4~, LOS+7, CHSLOS+2
X2	LOS+4~, LOS+7, CHSLOS+2
Y	DSCHTYPE+4~, DSCHTYPE+8, DSCHTYPE+9, DSCHTYPE+10, DSCHTYPE+11, CHSDT+2, CHSDT+3, CHSDT+4, DSCHDATE+4~, DSCHDATE+6 , DSCHDATE+7, DSCHDATE+8, CHSDD+2, CHSDD+3, CHSDD+4, LOS+4~, MEAS+6~, MEAS+7, MEAS+10, EXAM+4~ , EXAM+5, EXAM+6, PED+4~, PED+5, PED+6, IMM+4~, IMM+5, IMM+6, DENTSSN+3~, DENTSSN+4 , DENTSSN+5, DENTCOST+2~, DMNUTR+4~, DMNUTR+5, DMNUTR+8, PAP+4~, PAP+5, GLUCOSE+4~, GLUCOSE+5, LABDONE+4~ , LABDONE+5, LABRES+4~, LABRES+5, HF+3~, HF+4, HFNAME+3~, HFNAME+4
Z	RZERO+2, LZERO+2, LBLK+2, RBLK+2, DSCHTYPE+4~, DSCHTYPE+6, DSCHTYPE+7, DSCHTYPE+8, CHSDT+1, CHSDT+2 , DSCHDATE+4~, DSCHDATE+5, DSCHDATE+6, CHSDD+1, CHSDD+2, LOS+4~, LOS+6, LOS+7, CHSLOS+1, CHSLOS+2 , MEAS+9~, EXAM+4~, EXAM+5, EXAM+6, PED+4~, PED+5, PED+6, IMM+4~, IMM+5, IMM+6 , S+1, DMNUTR+6~, DMNUTR+8, PAP+4~, GLUCOSE+4~, HFNAME+3~

Customize PDF page

Package: Patient Care Component Data Transmission

Routine: APCPUTIL

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: