Routine: APCLVLU

Information

APCLVLU ; IHS/CMI/LAB - GEN RETR UTILITIES ;

Source Information

Source file <APCLVLU.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Patient Care Component Reports	3	$$PIDD^APCLOS21 $$RBLK^APCLUTL $$VD^APCLV
Kernel	2	($$FMDIFF,$$FMTE)^XLFDT $$UP^XLFSTR
IHS Patient	1	($$MCD,$$MCR,$$PI)^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Patient Care Component Reports	2	APCLVL04 APCLVLU1

Name	Comments	DBIA/ICR reference
ANYINS(P,D)	;EP return 1 or 0 if patient has any insurance
MCD(P,D)	;
PN(V,R,I)	;EP
LOS(V)	;EP called from pcc man rpts visit sort
MCR(P,D,F)	;is patient medicare eligible on this date
HFC(V)	;EP - get last factor in category C for patient P
PMEAS	;
FAMHX	;EP - return FAMILY HISTORY AND RELATIONSHIP
R(T,V)	;
MCRX	;
LASTINUD(P,D)	;EP - last date internet access was updated as of date D
PIVX	;
PIX	;
LBLK(V,L)	;left blank fill
PIN(P,D,F)	;EP private insurer name (external or internal)
FAMHXP	;EP - return FAMILY HISTORY DESCRIPTION
MCDPNX	;
LASTHF(P,C,F)	;EP - get last factor in category C for patient P
DATE(D)	;EP
MCDPN(P,D,F)	;EP - return medicaid plan name
THIRD	;EP
ALLCPTS(V,RETVAL)	;EP - return in array RETVAL all cpts ien of visit V - used in VGEN
PIV(P,D)	;EP - return 1 or 0 if current pi policy has been verified, return 1
LZERO(V,L)	;EP left zero fill
LASTINAC(P,F,D)	;EP - last response to does patient have internet access?
MEDQD	;EP - return med/qty/days formatted
ADMWARD(V)	;EP return admission ward for this visit
LASTINYN(P,F,D)	;EP - last response to does patient have internet access? as of date D
HFCP	;EP get all hfs in category stored
MCDX	;
LASTTOHF(P,C,F)	;EP - get last factor in tobacco categories for patient P
ALLCPTSP(V,RETVAL)	;EP - return in array RETVAL all cpts ien of visit V - used in VGEN
EDOB(V,R,I)	;EP
PINX	;
RZERO(V,L)	;EP right zero fill
MCRD(P,D)	;is patient medicare eligible on this date
PI(P,D)	;

Name	Field # of Occurrence
$$PIDD^APCLOS21	MCRD+17
$$RBLK^APCLUTL	MEDQD+5, MEDQD+6
$$VD^APCLV	HFCP+10
$$MCD^AUPNPAT	ANYINS+4, THIRD+3
$$MCR^AUPNPAT	ANYINS+3, THIRD+2
$$PI^AUPNPAT	ANYINS+5, THIRD+4
$$GET1^DIQ	LASTINYN+10, LASTINAC+12
$$VAL^XBDIQ1	PN+5, MEDQD+5, FAMHX+5, FAMHX+6, FAMHX+8, FAMHXP+5, FAMHXP+6, FAMHXP+8, ALLCPTSP+4, ALLCPTSP+6 , ALLCPTSP+8, ALLCPTSP+10, ALLCPTSP+12, PMEAS+4, PMEAS+6
$$VALI^XBDIQ1	ALLCPTSP+10, ALLCPTSP+12
$$FMDIFF^XLFDT	LOS+12
$$FMTE^XLFDT	LASTHF+16, LASTTOHF+18
$$UP^XLFSTR	EDOB+4, EDOB+6

Name	Line Occurrences (* Changed, ! Killed)
^APCLVRPT - [#9001003.8]	HFCP+7, HFCP+8, PN+7, PN+8, EDOB+5, EDOB+6
^AUPNFH - [#9000014]	FAMHX+8, FAMHXP+8
^AUPNFH("AC"	FAMHX+3, FAMHXP+3
^AUPNMCD - [#9000004]	MCD+8, MCD+9, MCD+11, MCDPN+8, MCDPN+9, MCDPN+11, MCDPN+12
^AUPNMCD("B"	MCD+7, MCDPN+7
^AUPNMCR - [#9000003]	MCR+7, MCR+9, MCR+10, MCR+11, MCR+12, MCRD+7, MCRD+9, MCRD+10, MCRD+11, MCRD+12
^AUPNPAT - [#9000001]	MCR+6, MCD+5, MCDPN+5, PI+5, PIV+5, PIN+6, MCRD+6, LASTINUD+3, LASTINUD+5, LASTINYN+4 , LASTINYN+7, LASTINYN+9, LASTINAC+6, LASTINAC+9, LASTINAC+11
^AUPNPRVT - [#9000006]	PI+6, PI+8, PI+9, PI+10, PI+12, PI+13, PIV+6, PIV+8, PIV+9, PIV+10 , PIV+12, PIV+13, PIV+14, PIN+7, PIN+9, PIN+10, PIN+11, PIN+13, PIN+14
^AUPNVCHS - [#9000010.03]	LOS+10
^AUPNVCHS("AD"	LOS+4, LOS+8, LOS+10
^AUPNVCPT - [#9000010.18]	ALLCPTS+4, ALLCPTSP+4
^AUPNVCPT("AD"	ALLCPTS+4, ALLCPTSP+4
^AUPNVHF - [#9000010.23]	LASTHF+15, LASTHF+16, LASTTOHF+17, LASTTOHF+18, HFC+3, HFCP+3
^AUPNVHF("AA"	LASTHF+8, LASTHF+9, LASTHF+11, LASTTOHF+10, LASTTOHF+11, LASTTOHF+13
^AUPNVHF("AD"	HFC+2, HFCP+2
^AUPNVINP - [#9000010.02]	LOS+10
^AUPNVINP("AD"	LOS+5, LOS+8, LOS+10
^AUPNVMED - [#9000010.14]	MEDQD+6, MEDQD+7, MEDQD+10
^AUPNVMED("AD"	MEDQD+3
^AUPNVMSR - [#9000010.01]	PMEAS+3, PMEAS+7
^AUPNVMSR("AD"	PMEAS+2
^AUPNVPED - [#9000010.16]	EDOB+3, ALLCPTS+12
^AUPNVPED("AD"	EDOB+2, ALLCPTS+12, ALLCPTSP+12
^AUPNVPOV - [#9000010.07]	PN+3
^AUPNVPOV("AD"	PN+2
^AUPNVPRC - [#9000010.08]	ALLCPTS+6, ALLCPTSP+6
^AUPNVPRC("AD"	ALLCPTS+6, ALLCPTSP+6
^AUPNVSIT - [#9000010]	LOS+2, LOS+3, LOS+4, LOS+5, LOS+7, ALLCPTS+8, ALLCPTSP+8
^AUPNVTC - [#9000010.33]	ALLCPTS+10
^AUPNVTC("AD"	ALLCPTS+10, ALLCPTSP+10
^AUTNINS - [#9999999.18]	MCDPN+12, PI+11, PIV+11, PIN+12, PIN+15
^AUTTHF - [#9999999.64]	LASTHF+16, LASTTOHF+18, HFC+5, HFCP+5, HFCP+9
^AUTTHF("AC"	LASTHF+7, LASTTOHF+9
^AUTTHF("B"	LASTHF+4, LASTTOHF+5, LASTTOHF+6, LASTTOHF+7
^DPT - [#2]	MCR+4, MCR+5, MCR+8, MCD+3, MCD+4, MCD+6, MCDPN+3, MCDPN+4, MCDPN+6, PI+3 , PI+4, PI+7, PIV+3, PIV+4, PIV+7, PIN+4, PIN+5, PIN+8, MCRD+4, MCRD+5 , MCRD+8

Name	Line Occurrences
$$R	PMEAS+6
MCDPNX	MCDPN+3, MCDPN+4, MCDPN+5, MCDPN+6
MCDX	MCD+3, MCD+4, MCD+5, MCD+6
MCRX	MCR+4, MCR+5, MCR+6, MCR+7, MCR+8, MCRD+4, MCRD+5, MCRD+6, MCRD+7, MCRD+8
PINX	PIN+4, PIN+5, PIN+6, PIN+7, PIN+8
PIX	PI+3, PI+4, PI+5, PI+6, PI+7, PIV+3, PIV+4, PIV+5, PIV+6, PIV+7

Name	Field # of Occurrence
^(	MCR+8, MCD+6, MCDPN+6, PI+7, PIV+7, PIN+8, MCRD+8
^(0	MCR+12, MCD+11, MCDPN+11, PI+13, PIV+13, PIN+14, MCRD+12

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLVLU

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
%	RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~, LBLK+2*
A	LOS+6~, LOS+7, LOS+12, HFC+1~, HFC+2, HFC+3, HFCP+1~, HFCP+2, HFCP+3, PN+1~ , PN+9, PN+12, EDOB+1~, EDOB+7, EDOB+10, ALLCPTS+1~, ALLCPTS+4, ALLCPTS+6, ALLCPTS+8, ALLCPTS+10* , ALLCPTS+12, ALLCPTSP+1~, ALLCPTSP+4, ALLCPTSP+6, ALLCPTSP+8, ALLCPTSP+10, ALLCPTSP+12
APCLA	ANYINS+1~, ANYINS+2, ANYINS+3, ANYINS+4, ANYINS+5, ANYINS+6
APCLFLG	MCR+1~, MCR+2, MCR+13, MCRX+1, MCD+1~, MCD+2, MCD+12, MCDX+1, PI+1~, PI+2* , PI+14, PIX+1, PIV+1~, PIV+2, PIV+15, PIVX+1, MCRD+1~, MCRD+2, MCRD+13, MCRD+15 , MCRD+17, MCRD+18
>> APCLI	HFCP+7
APCLMIFN	MCR+1~, MCR+9, MCR+10, MCR+11, MCR+12, MCD+1~, MCD+7, MCD+8, MCD+9, MCD+11 , MCDPN+1~, MCDPN+7, MCDPN+8, MCDPN+9, MCDPN+11, MCDPN+12, PI+1~, PI+8, PI+9, PI+10 , PI+12, PI+13, PIV+1~, PIV+8, PIV+9, PIV+10, PIV+12, PIV+13, PIV+14, PIN+1~ , PIN+9, PIN+10, PIN+11, PIN+13, PIN+14, MCRD+1~, MCRD+9*, MCRD+10, MCRD+11, MCRD+12
>> APCLNAME	PI+10, PI+11, PIV+10, PIV+11
APCLNIFN	MCD+1~, MCD+9, MCD+10, MCD+11, MCDPN+1~, MCDPN+9, MCDPN+10, MCDPN+11
>> APCLPCNT	HFCP+10, MEDQD+2, MEDQD+8, MEDQD+9, MEDQD+10, FAMHX+2, FAMHX+7, FAMHX+8, FAMHXP+2, FAMHXP+7* , FAMHXP+8, PMEAS+5*, PMEAS+6, PMEAS+7
APCLPIN	PIN+1~, PIN+3, PIN+15, PINX+1
APCLPN	MCDPN+1~, MCDPN+2, MCDPN+12, MCDPNX+1
>> APCLPRNM(	HFCP+10, MEDQD+9, MEDQD+10, FAMHX+8, FAMHXP+8, PMEAS+6, PMEAS+7*
>> APCLPRNT	THIRD+1, THIRD+2, THIRD+3, THIRD+4, THIRD+5, HFCP+9, HFCP+10, MEDQD+4, FAMHX+4, FAMHXP+4* , PMEAS+4*, PMEAS+6
>> APCLPTVS	THIRD+2, THIRD+3, THIRD+4
>> APCLRPT	HFCP+7, HFCP+8
>> APCLVIEN	HFCP+2, HFCP+10, MEDQD+3, ALLCPTS+12, ALLCPTSP+12, PMEAS+2
>> APCLVREC	THIRD+2, THIRD+3, THIRD+4
APCLX	PMEAS+1~, PMEAS+2*, PMEAS+3, PMEAS+4, PMEAS+6, PMEAS+7
B	HFC+1~, HFC+3, HFC+4, HFC+5, HFCP+1~, HFCP+3, HFCP+4, HFCP+5, HFCP+9, ALLCPTS+1~ , ALLCPTSP+1~
C	LASTHF~, LASTHF+2, LASTHF+4, LASTHF+5, LASTHF+7, LASTTOHF~, LASTTOHF+2, LASTTOHF+9, HFC+1~, HFC+5 , HFC+6, HFC+7, HFCP+1~, HFCP+5, HFCP+6, HFCP+8, HFCP+10, ALLCPTS+1~, ALLCPTS+2, ALLCPTSP+1~ , ALLCPTSP+2, ALLCPTSP+4, ALLCPTSP+6, ALLCPTSP+8, ALLCPTSP+10, ALLCPTSP+12
D	ANYINS~, ANYINS+3, ANYINS+4, ANYINS+5, MCR~, MCR+8, MCR+11, MCR+12, MCD~, MCD+6 , MCD+10, MCD+11, MCDPN~, MCDPN+6, MCDPN+10, MCDPN+11, PI~, PI+7, PI+12, PI+13 , PIV~, PIV+7, PIV+12, PIV+13, PIN~, PIN+8, PIN+13, PIN+14, LOS+6~, LOS+10* , LOS+11, LOS+12, LASTHF+6~, LASTHF+9, LASTHF+10, LASTHF+11, LASTHF+13, LASTHF+14, LASTHF+15, LASTHF+16 , LASTTOHF+8~, LASTTOHF+11, LASTTOHF+12, LASTTOHF+13, LASTTOHF+15, LASTTOHF+16, LASTTOHF+17, LASTTOHF+18, HFC+1~, HFCP+1~ , HFCP+7, HFCP+8, MCRD~, MCRD+8, MCRD+11, MCRD+12, MCRD+17, LASTINUD~, LASTINUD+1, LASTINUD+5 , DATE~, DATE+1, DATE+2, LASTINYN~, LASTINYN+2, LASTINYN+7, LASTINAC~, LASTINAC+4, LASTINAC+5, LASTINAC+9 , MEDQD+1~, MEDQD+7, MEDQD+9, FAMHX+1~, FAMHXP+1~, ALLCPTS+1~, ALLCPTSP+1~
>> DFN	THIRD+2, THIRD+3, THIRD+4, MCRD+17, FAMHX+3, FAMHXP+3
DT	THIRD+2, THIRD+3, THIRD+4, LASTINUD+1, LASTINYN+2, LASTINAC+5
E	LOS+6~, LOS+12*, LOS+13
F	MCR~, MCR+3, MCR+10, MCDPN~, MCDPN+12, PIN~, PIN+2, PIN+15, LOS+6~, LOS+8* , LOS+9, LOS+10, LASTHF~, LASTHF+3, LASTHF+15, LASTHF+16, LASTTOHF~, LASTTOHF+3, LASTTOHF+17, LASTTOHF+18 , MCRD+3, LASTINYN~, LASTINYN+3, LASTINYN+9, LASTINAC~, LASTINAC+3*, LASTINAC+11
G	PN+1~, PN+8, PN+9, EDOB+1~, EDOB+6, EDOB+7
H	LASTHF+6~, LASTHF+7, LASTHF+8, LASTHF+9, LASTHF+11, LASTTOHF+8~, LASTTOHF+9, LASTTOHF+10, LASTTOHF+11, LASTTOHF+13
I	RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~, LBLK+2*, PN~, PN+7, PN+8, EDOB~ , EDOB+5, EDOB+6
L	RZERO~, RZERO+2, LZERO~, LZERO+2, LBLK~, LBLK+2, LASTTOHF+4~, LASTTOHF+5*, LASTTOHF+9
M	LASTTOHF+4~, LASTTOHF+6*, LASTTOHF+9
N	LASTTOHF+4~, LASTTOHF+7, LASTTOHF+9, PN+1~, PN+3, PN+4, PN+5, PN+6, PN+9, EDOB+1~ , EDOB+3, EDOB+4*, EDOB+7
O	LASTHF+6~!, LASTTOHF+8~!
O(	LASTHF+11, LASTHF+15, LASTHF+16, LASTTOHF+13, LASTTOHF+17, LASTTOHF+18
O(0	LASTHF+13, LASTTOHF+15
P	ANYINS~, ANYINS+3, ANYINS+4, ANYINS+5, MCR~, MCR+4, MCR+5, MCR+6, MCR+7, MCR+8 , MCR+9, MCR+10, MCR+11, MCR+12, MCD~, MCD+3, MCD+4, MCD+5, MCD+6, MCD+7 , MCDPN~, MCDPN+3, MCDPN+4, MCDPN+5, MCDPN+6, MCDPN+7, PI~, PI+3, PI+4, PI+5 , PI+6, PI+7, PI+8, PI+9, PI+10, PI+12, PI+13, PIV~, PIV+3, PIV+4 , PIV+5, PIV+6, PIV+7, PIV+8, PIV+9, PIV+10, PIV+12, PIV+13, PIV+14, PIN~ , PIN+4, PIN+5, PIN+6, PIN+7, PIN+8, PIN+9, PIN+10, PIN+11, PIN+13, PIN+14 , LASTHF~, LASTHF+1, LASTHF+8, LASTHF+9, LASTHF+11, LASTTOHF~, LASTTOHF+1, LASTTOHF+10, LASTTOHF+11, LASTTOHF+13 , MCRD~, MCRD+4, MCRD+5, MCRD+6, MCRD+7, MCRD+8, MCRD+9, MCRD+10, MCRD+11, MCRD+12 , LASTINUD~, LASTINUD+2, LASTINUD+3, LASTINUD+5, LASTINYN~, LASTINYN+1, LASTINYN+4, LASTINYN+7, LASTINYN+9, LASTINYN+10 , LASTINAC~, LASTINAC+2, LASTINAC+6, LASTINAC+9, LASTINAC+11, LASTINAC+12, MEDQD+1~, MEDQD+3, MEDQD+5, MEDQD+6 , MEDQD+7, MEDQD+10, FAMHX+1~, FAMHX+3, FAMHX+5, FAMHX+6, FAMHX+8, FAMHXP+1~, FAMHXP+3*, FAMHXP+5 , FAMHXP+6, FAMHXP+8
Q	MEDQD+1~, MEDQD+6, MEDQD+9, FAMHX+1~, FAMHX+6, FAMHX+8, FAMHXP+1~, FAMHXP+6*, FAMHXP+8
R	PN~, PN+7, PN+8, EDOB~, EDOB+5, EDOB+6
RETVAL	ALLCPTS~, ALLCPTSP~
RETVAL(	ALLCPTS+4, ALLCPTS+6, ALLCPTS+8, ALLCPTS+10, ALLCPTSP+4, ALLCPTSP+6, ALLCPTSP+8, ALLCPTSP+10, ALLCPTSP+12*
T	R~, R+1
U	MCR+5, MCR+8, MCR+10, MCR+11, MCR+12, MCD+4, MCD+6, MCD+11, MCDPN+4, MCDPN+6 , MCDPN+11, MCDPN+12, PI+4, PI+7, PI+9, PI+10, PI+11, PI+12, PI+13, PIV+4 , PIV+7, PIV+9, PIV+10, PIV+11, PIV+12, PIV+13, PIV+14, PIN+5, PIN+8, PIN+10 , PIN+11, PIN+12, PIN+13, PIN+14, PIN+15, LOS+3, LOS+4, LOS+5, LOS+7, LOS+10 , THIRD+2, THIRD+3, THIRD+4, LASTHF+15, LASTHF+16, LASTTOHF+17, LASTTOHF+18, HFC+3, HFC+5, HFCP+3 , HFCP+5, HFCP+7, HFCP+9, PN+3, PN+8, EDOB+3, EDOB+6, MCRD+5, MCRD+8, MCRD+10 , MCRD+11, MCRD+12, LASTINYN+9, LASTINAC+11, MEDQD+6, MEDQD+7, MEDQD+10, FAMHX+8, FAMHXP+8, ALLCPTS+4 , ALLCPTS+6, ALLCPTS+8, ALLCPTS+10, ALLCPTS+12, ALLCPTSP+4, ALLCPTSP+6, ALLCPTSP+8, PMEAS+3, PMEAS+7
V	RZERO~, RZERO+2, RZERO+3, LZERO~, LZERO+2, LZERO+3, LBLK~, LBLK+2*, LBLK+3, LOS~ , LOS+1, LOS+2, LOS+3, LOS+4, LOS+5, LOS+7, LOS+8, LOS+10, HFC~, HFC+2 , ADMWARD~, PN~, PN+2, EDOB~, EDOB+2, ALLCPTS~, ALLCPTS+4, ALLCPTS+6, ALLCPTS+8, ALLCPTS+10 , ALLCPTSP~, ALLCPTSP+4, ALLCPTSP+6, ALLCPTSP+8, ALLCPTSP+10, R~, R+1, R+2, R+3
X	THIRD+2, THIRD+3, THIRD+4, LASTINUD+4~, LASTINUD+5, LASTINYN+5~, LASTINYN+7, LASTINAC+7~, LASTINAC+9, MEDQD+1~ , MEDQD+4, MEDQD+5, MEDQD+9, FAMHX+1~, FAMHX+4, FAMHX+5, FAMHX+8, FAMHXP+1~, FAMHXP+4, FAMHXP+5 , FAMHXP+8
X(	HFC+7, ALLCPTS+12
Y	PIN+1~, PIN+3, PIN+11, PIN+12, PIN+15, PN+1~, PN+2, PN+3, PN+5, EDOB+1~ , EDOB+2, EDOB+3, LASTINUD+4~, LASTINUD+5, LASTINUD+6, LASTINYN+5~, LASTINYN+7, LASTINAC+7~, LASTINAC+9*
Z	RZERO+2, LZERO+2, LBLK+2, PN+1~, PN+7, PN+8, EDOB+1~, EDOB+5, EDOB+6, LASTINYN+5~ , LASTINYN+6, LASTINYN+7, LASTINYN+8, LASTINYN+9, LASTINYN+10, LASTINAC+7~, LASTINAC+8, LASTINAC+9, LASTINAC+10, LASTINAC+11 , LASTINAC+12, ALLCPTSP+4, ALLCPTSP+6, ALLCPTSP+10, ALLCPTSP+12*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed