Routine: APCLD613

Package	Total	Call Graph
Patient Care Component Reports	5	$$CPT^APCLD612 $$LASTHT^APCLD613 $$REFUSAL^APCLD617 $$START1^APCLDF $$CLINIC^APCLV
DRG Grouper	1	$$ICDDX^ICDCODE
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Taxonomy	1	$$ICD^ATXCHK
VA Fileman	1	^%DT

Package	Total	Caller Graph
Patient Care Component Reports	5	APCLD610 APCLD613 APCLD614 APCLD615 APCLD616

Name	Comments	DBIA/ICR reference
PLDMDOO(P,F)	;EP
BI()	;
CMSFDX(P,R,T)	;EP - return date/dx of dm in register
INCHES	;
PNEU(P,EDATE)	;EP
BPS(P,BDATE,EDATE,F)	;EP ;
LASTFLUO	;
LASTFLUN	;
PLDMDXS(P)	;EP - get all DM dxs from problem list
LASTPNO	;
LASTHT(P,EDATE,F)	;PEP - return last ht and date
LASTPNN	;
FLU(P,BDATE,EDATE)	;EP
DATE(D)	;EP
LASTDMDX(P,D)	;EP - last pcc dm dx
FRSTDMDX(P,F)	;EP return date of first dm dx
LASTWT(P,EDATE,F)	;PEP - return last wt
HTNDX(P,EDATE)	;EP - is HTN on problem list

Name	Field # of Occurrence
^%DT	FLU+2, FLU+28, FLU+29, PNEU+3, PNEU+26, LASTHT+5, LASTWT+4
$$CPT^APCLD612	FLU+31, PNEU+11
$$LASTHT^APCLD613	INCHES+2
$$REFUSAL^APCLD617	FLU+37, FLU+40, FLU+43, FLU+46, PNEU+16, PNEU+20, PNEU+23
$$START1^APCLDF	FLU+11, FLU+15, FLU+19, FLU+23, BPS+5, HTNDX+5, HTNDX+8, LASTHT+7, LASTWT+7, FRSTDMDX+5 , LASTDMDX+4, LASTDMDX+6
$$CLINIC^APCLV	BPS+7
$$ICD^ATXCHK	PLDMDOO+7, PLDMDXS+7
$$DOB^AUPNPAT	PNEU+4, PNEU+16, PNEU+20, PNEU+23, HTNDX+8, LASTDMDX+4, LASTDMDX+6
$$ICDDX^ICDCODE	PLDMDXS+7
$$VAL^XBDIQ1	CMSFDX+6
$$FMADD^XLFDT	FLU+3, LASTWT+5
$$FMTE^XLFDT	FLU+3, BPS+9, HTNDX+8, CMSFDX+5, PLDMDOO+11, FRSTDMDX+6

Name	Line Occurrences (* Changed, ! Killed)
^ACM(44 - [#9002244]	CMSFDX+4, CMSFDX+5
^ATXAX("B"	FLU+30, PNEU+10, PLDMDOO+3, PLDMDXS+2
^AUPNPROB - [#9000011]	PLDMDOO+6, PLDMDOO+8, PLDMDXS+5
^AUPNPROB("AC"	PLDMDOO+5, PLDMDXS+4
^AUPNVIMM - [#9000010.11]	LASTFLUN+2, LASTFLUN+5, LASTFLUO+2, LASTFLUO+4, LASTPNN+2, LASTPNN+5, LASTPNO+2, LASTPNO+4
^AUPNVIMM("AC"	LASTFLUN+1, LASTFLUO+1, LASTPNN+1, LASTPNO+1
^AUPNVPOV - [#9000010.07]	LASTWT+12
^AUPNVPOV("AD"	LASTWT+10, LASTWT+11
^AUPNVSIT - [#9000010]	LASTFLUN+6, LASTFLUO+5, LASTPNN+6, LASTPNO+5
^AUPNVSIT("AC"	LASTHT+3
^AUTTIMM - [#9999999.14]	LASTFLUN+3, LASTFLUN+4, LASTFLUO+3, LASTPNN+3, LASTPNN+4, LASTPNO+3
^AUTTIMM("C"	FLU+37, FLU+40, FLU+43, FLU+46, FLU+49, PNEU+16, PNEU+20, PNEU+23, PNEU+27
^AUTTIMM(0	BI+1
^BICONT - [#9002084.81]	FLU+52, FLU+53, PNEU+30, PNEU+31
^BIPC - [#9002084.11]	FLU+50, FLU+54, FLU+56, FLU+57, PNEU+28, PNEU+32, PNEU+34
^BIPC("AC"	FLU+49, PNEU+27
^DPT - [#2]	HTNDX+2, LASTHT+6
^ICD9("BA"	LASTWT+6

Name	Line Occurrences
$$BI	FLU+7, FLU+8, FLU+37, PNEU+5, PNEU+6, PNEU+16, PNEU+19
$$DATE	FLU+35, PNEU+15, LASTHT+11, LASTWT+10, LASTWT+12
LASTFLUN	FLU+7
LASTFLUO	FLU+8
LASTPNN	PNEU+6
LASTPNO	PNEU+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	FLU+1~, FLU+11, FLU+15, FLU+19, FLU+23, HTNDX+3~, HTNDX+5, LASTHT+4~, LASTHT+7, LASTWT+3~
%DT	FLU+1~, FLU+2, FLU+28, FLU+29, PNEU+1~, PNEU+3, PNEU+26, LASTHT+5, LASTWT+4*
APCL	FLU+1~, FLU+11!, FLU+15!, FLU+19!, FLU+23!, FLU+31!, FLU+32!, PNEU+1~, BPS+2~, BPS+4! , HTNDX+3~, HTNDX+4!, HTNDX+7!, LASTWT+3~, LASTWT+7!, FRSTDMDX+3~, LASTDMDX+2~, LASTDMDX+6!
APCL(	BPS+6, BPS+7, BPS+9, LASTWT+8, LASTWT+9, LASTWT+10, LASTWT+12
APCL(1	FLU+12, FLU+13, FLU+14, FLU+16, FLU+17, FLU+18, FLU+20, FLU+21, FLU+22, FLU+24 , FLU+25, FLU+26, FLU+31*, FLU+32, FLU+33, FLU+34, HTNDX+6, FRSTDMDX+5, LASTDMDX+5, LASTDMDX+7
APCL(3	HTNDX+8
APCLARRY	LASTHT+4~, LASTWT+3~
APCLARRY(1	LASTHT+7, LASTHT+11
>> APCLBP	BPS+6*, BPS+9, BPS+10
APCLD	LASTWT+3~, LASTWT+11*, LASTWT+12
APCLL	BPS+2~, BPS+6*, BPS+7, BPS+9
APCLLL	BPS+2~, BPS+3, BPS+6, BPS+8, BPS+9, BPS+10
APCLN	LASTWT+3~, LASTWT+8*, LASTWT+9, LASTWT+10, LASTWT+12
>> APCLPD	INCHES+2
>> APCLRED	INCHES+2
APCLV	BPS+2~, BPS+3, BPS+9, BPS+10*, BPS+11
APCLV221	LASTWT+6~*, LASTWT+12
APCLW	LASTWT+3~, LASTWT+7, LASTWT+8, LASTWT+10, LASTWT+11, LASTWT+12*, LASTWT+14
APCLX	LASTWT+3~, LASTWT+7*
APCLZ	LASTWT+3~, LASTWT+9*, LASTWT+10, LASTWT+11
B	FLU+1~, FLU+3, PNEU+1~, PNEU+4, PNEU+11, LASTFLUN+7, LASTFLUO+6, LASTPNN+7, LASTPNO+6
BD	FLU+1~, FLU+2, FLU+3, FLU+11, FLU+15, FLU+19, FLU+23, FLU+29*, FLU+31, FLU+37 , FLU+40, FLU+43, FLU+46, FLU+56
BDATE	FLU~, BPS~, BPS+5, LASTHT+4~, LASTHT+6, LASTHT+7, LASTWT+5, LASTWT+7
C	FLU+1~, PNEU+1~, PNEU+11!*, PNEU+12, PNEU+13, PNEU+14
D	FLU+1~, FLU+54, FLU+55, PNEU+1~, PNEU+32, PNEU+33, LASTFLUN+5, LASTFLUN+6, LASTFLUN+7, LASTFLUN+8 , LASTFLUN+9, LASTFLUN+10, LASTFLUN+11, LASTFLUN+12, LASTFLUO+4, LASTFLUO+5, LASTFLUO+6, LASTFLUO+7, LASTFLUO+8, LASTPNN+5* , LASTPNN+6, LASTPNN+7, LASTPNN+8, LASTPNN+9, LASTPNN+10, LASTPNN+11, LASTPNO+4, LASTPNO+5, LASTPNO+6, LASTPNO+7 , LASTPNO+8, CMSFDX+4~, CMSFDX+5, CMSFDX+8, CMSFDX+11, CMSFDX+12, PLDMDOO+5~, PLDMDOO+11, PLDMDXS+4~, PLDMDXS+7 , PLDMDXS+9, LASTDMDX~, LASTDMDX+4, LASTDMDX+6, DATE~, DATE+1, DATE+2
D(	PLDMDOO+8*
D(0	PLDMDOO+11
D1	CMSFDX+4~, CMSFDX+5, CMSFDX+7, CMSFDX+8, CMSFDX+11*, CMSFDX+12
E	FLU+1~, FLU+2, FLU+11, FLU+15, FLU+19, FLU+23, PNEU+1~, PNEU+3, PNEU+11, PNEU+26* , LASTFLUN+8, LASTFLUO+7, LASTPNN+8, LASTPNO+7, BPS+2~, BPS+5, HTNDX+3~, HTNDX+5, HTNDX+8, LASTHT+4~ , LASTHT+7, LASTWT+3~, LASTWT+7, FRSTDMDX+3~, FRSTDMDX+5, LASTDMDX+2~, LASTDMDX+4, LASTDMDX+6
>> ED	FLU+28*, FLU+31, FLU+57, PNEU+34
EDATE	FLU~, FLU+2, FLU+11, FLU+15, FLU+19, FLU+23, FLU+28, FLU+37, FLU+40, FLU+43 , FLU+46, PNEU~, PNEU+3, PNEU+16, PNEU+20, PNEU+23, PNEU+26, BPS~, BPS+5, HTNDX~ , HTNDX+8, LASTHT~, LASTHT+5, LASTHT+7, LASTWT~, LASTWT+4, LASTWT+5, LASTWT+7
F	BPS~, BPS+1, BPS+9, BPS+10, LASTHT~, LASTHT+2, LASTHT+9, LASTWT~, LASTWT+2, LASTWT+14 , PLDMDOO~, PLDMDOO+2, PLDMDOO+11, FRSTDMDX~, FRSTDMDX+2, FRSTDMDX+6, INCHES+1~, INCHES+5, INCHES+6
FI	INCHES+1~, INCHES+6*, INCHES+7
G	FLU+1~, FLU+37~, FLU+38, FLU+39, FLU+40, FLU+41, FLU+42, FLU+43, FLU+44, FLU+45 , FLU+46, FLU+47, FLU+48, FLU+49, FLU+58, FLU+59, PNEU+1~, PNEU+16, PNEU+17, PNEU+18 , PNEU+20, PNEU+21, PNEU+22, PNEU+23, PNEU+24, PNEU+25, PNEU+27, PNEU+35, PNEU+36, CMSFDX+4~ , CMSFDX+10, CMSFDX+11
G(	CMSFDX+10, CMSFDX+11
G(0	CMSFDX+9
G(9999999	CMSFDX+8*
H	LASTHT+4~, LASTHT+7, LASTHT+8, LASTHT+9, LASTHT+10, LASTHT+11, LASTWT+3~
I	PLDMDOO+5~, PLDMDOO+6, PLDMDOO+7, PLDMDXS+4~, PLDMDXS+5, PLDMDXS+7
LFLU	FLU+1~, FLU+6, FLU+9, FLU+10, FLU+13, FLU+14, FLU+17, FLU+18, FLU+21, FLU+22 , FLU+25, FLU+26, FLU+33, FLU+34, FLU+35
LPN	PNEU+1~, PNEU+7, PNEU+8, PNEU+13, PNEU+14*, PNEU+15
P	FLU~, FLU+11, FLU+15, FLU+19, FLU+23, FLU+31, FLU+37, FLU+40, FLU+43, FLU+46 , FLU+49, PNEU~, PNEU+4, PNEU+11, PNEU+16, PNEU+20, PNEU+23, PNEU+27, LASTFLUN+1, LASTFLUO+1 , LASTPNN+1, LASTPNO+1, BPS~, BPS+5, HTNDX~, HTNDX+1, HTNDX+2, HTNDX+5, HTNDX+8, LASTHT~ , LASTHT+1, LASTHT+3, LASTHT+6, LASTHT+7, LASTWT~, LASTWT+1, LASTWT+7, CMSFDX~, CMSFDX+1, CMSFDX+4 , PLDMDOO~, PLDMDOO+1, PLDMDOO+5, PLDMDXS~, PLDMDXS+1, PLDMDXS+4, FRSTDMDX~, FRSTDMDX+1, FRSTDMDX+5, LASTDMDX~ , LASTDMDX+1, LASTDMDX+4, LASTDMDX+6
R	FLU+50, FLU+51, FLU+52, FLU+53, PNEU+28, PNEU+29, PNEU+30, PNEU+31, CMSFDX~, CMSFDX+2 , CMSFDX+4
T	FLU+1~, FLU+30, FLU+31, PNEU+1~, PNEU+10, PNEU+11, CMSFDX~, CMSFDX+3, CMSFDX+12, PLDMDOO+3~* , PLDMDOO+4, PLDMDOO+7, PLDMDXS+2~*, PLDMDXS+3, PLDMDXS+7
TFLU	FLU+1~, FLU+6!
TFLU(0	FLU+9
TFLU(9999999	LASTFLUN+9, LASTFLUN+10, LASTFLUN+11, LASTFLUN+12, LASTFLUO+8*
TPN	PNEU+1~, PNEU+2!
TPN(0	PNEU+7
TPN(9999999	LASTPNN+9, LASTPNN+10, LASTPNN+11, LASTPNO+8
U	FLU+13, FLU+14, FLU+17, FLU+18, FLU+21, FLU+22, FLU+25, FLU+26, FLU+33, FLU+34 , FLU+38, FLU+41, FLU+44, FLU+47, FLU+50, FLU+53, FLU+54, FLU+56, FLU+57, PNEU+13 , PNEU+14, PNEU+17, PNEU+21, PNEU+24, PNEU+28, PNEU+31, PNEU+32, PNEU+34, LASTFLUN+2, LASTFLUN+4 , LASTFLUN+5, LASTFLUN+6, LASTFLUO+2, LASTFLUO+3, LASTFLUO+4, LASTFLUO+5, LASTPNN+2, LASTPNN+4, LASTPNN+5, LASTPNN+6 , LASTPNO+2, LASTPNO+3, LASTPNO+4, LASTPNO+5, BPS+6, BPS+7, BPS+9, LASTHT+6, LASTHT+7, LASTHT+11 , LASTWT+9, LASTWT+10, LASTWT+12, CMSFDX+4, CMSFDX+5, CMSFDX+11, PLDMDOO+6, PLDMDOO+8, PLDMDXS+5, PLDMDXS+7 , FRSTDMDX+5
W	LASTHT+4~, LASTWT+3~
X	FLU+1~, FLU+2, FLU+28, FLU+29, FLU+49, FLU+50, FLU+54, FLU+56, FLU+57, PNEU+1~ , PNEU+3, PNEU+26, PNEU+27, PNEU+28, PNEU+32, PNEU+34, LASTFLUN+1, LASTFLUN+2, LASTFLUN+5, LASTFLUO+1* , LASTFLUO+2, LASTFLUO+4, LASTPNN+1, LASTPNN+2, LASTPNN+5, LASTPNO+1, LASTPNO+2, LASTPNO+4, BPS+2~, BPS+5* , HTNDX+3~, HTNDX+8, LASTHT+5, LASTHT+7~, LASTWT+3~, LASTWT+4, CMSFDX+4~, CMSFDX+5, CMSFDX+6, PLDMDOO+5~* , PLDMDOO+6, PLDMDOO+8, PLDMDXS+4~, PLDMDXS+5, FRSTDMDX+3~, FRSTDMDX+5, LASTDMDX+2~, LASTDMDX+4, LASTDMDX+6, INCHES+2* , INCHES+3, INCHES+4, INCHES+5, INCHES+7, INCHES+8*
Y	FLU+1~, FLU+2, FLU+28, FLU+29, FLU+49, PNEU+1~, PNEU+3, PNEU+26, PNEU+27, LASTFLUN+2* , LASTFLUN+3, LASTFLUN+4, LASTFLUN+9, LASTFLUN+10, LASTFLUN+11, LASTFLUN+12, LASTFLUO+2, LASTFLUO+3, LASTFLUO+8, LASTPNN+2 , LASTPNN+3, LASTPNN+4, LASTPNN+9, LASTPNN+10, LASTPNN+11, LASTPNO+2, LASTPNO+3, LASTPNO+8, LASTHT+5, LASTWT+4 , CMSFDX+4~, CMSFDX+6, CMSFDX+8, CMSFDX+10, CMSFDX+11, CMSFDX+12, FRSTDMDX+3~, FRSTDMDX+4, FRSTDMDX+5, FRSTDMDX+6 , LASTDMDX+2~, LASTDMDX+3, LASTDMDX+4, LASTDMDX+6
Z	FLU+1~, FLU+49, PNEU+1~, PNEU+27, INCHES+1~, INCHES+2*, INCHES+7

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLD613

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: