Routine: APCLD613

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

APCLD613 ; IHS/CMI/LAB - 2006 DIABETES AUDIT ;

Source Information

Source file <APCLD613.m>

Call Graph

Call Graph Total: 11

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

Caller Graph

Caller Graph Total: 5

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

Entry Points

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

External References

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

Global Variables Directly Accessed

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

Call Graph Total: 11

Caller Graph Total: 5