Routine: BDMD113

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

BDMD113 ; IHS/CMI/LAB - 2011 DIABETES AUDIT ;

Source Information

Source file <BDMD113.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Patient Care Component Reports	4	$$LASTPNEU^APCLAPI4 ($$LASTCPTT,$$LASTITEM)^APCLAPIU $$START1^APCLDF ($$CLINIC,$$VD)^APCLV
Diabetes Registry	2	$$LASTHT^BDMD113 $$REFUSAL^BDMD117
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
Diabetes Registry	5	BDMD110 BDMD113 BDMD114 BDMD115 BDMD116

Entry Points

Name	Comments	DBIA/ICR reference
PLDMDOO(P,F)	;EP
BI()	;
PNEU(P,EDATE,R,F)	;EP
E	;
INCHES	;
CMSFDX(P,R,T)	;EP - return date/dx of dm in register
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,R,F)	;EP
LASTFLU(BDMPDFN,BDMBD,BDMED,BDMFORM)	;PEP - date of last FLU ; Return the last recorded FLU: ; - V Immunization: 15, 16, 88, 111 ; - V CPT [dm audit seasonal flu cpts] ; If APCLFORM is A returns the string: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ;
DATE(D)	;EP
LASTDMDX(P,D)	;EP - last pcc dm dx
FRSTDMDX(P,F)	;EP return date of first dm dx
LASTWT(P,BDATE,EDATE,F)	;PEP - return last wt
HTNDX(P,EDATE)	;EP - is HTN on problem list

External References

Name	Field # of Occurrence
^%DT	PNEU+18, LASTHT+5
$$LASTPNEU^APCLAPI4	PNEU+5
$$LASTCPTT^APCLAPIU	LASTFLU+27
$$LASTITEM^APCLAPIU	LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+23, LASTFLU+25
$$START1^APCLDF	BPS+5, HTNDX+5, HTNDX+8, LASTWT+7, FRSTDMDX+5, LASTDMDX+4, LASTDMDX+6
$$CLINIC^APCLV	BPS+9
$$VD^APCLV	LASTHT+15
$$ICD^ATXCHK	PLDMDOO+7, PLDMDXS+7
$$DOB^AUPNPAT	LASTFLU+8, HTNDX+8, LASTDMDX+4, LASTDMDX+6
$$LASTHT^BDMD113	INCHES+2
$$REFUSAL^BDMD117	FLU+9, FLU+12, FLU+15, FLU+18, PNEU+8, PNEU+12, PNEU+15
$$ICDDX^ICDCODE	LASTWT+6, LASTWT+14, PLDMDXS+7
$$VAL^XBDIQ1	CMSFDX+6
$$FMADD^XLFDT	FLU+4, PNEU+8, PNEU+12, PNEU+15
$$FMTE^XLFDT	FLU+6, FLU+10, FLU+13, FLU+14, FLU+16, FLU+17, FLU+19, FLU+20, FLU+31, PNEU+6 , PNEU+8, PNEU+9, PNEU+10, PNEU+12, PNEU+13, PNEU+14, PNEU+15, PNEU+16, PNEU+17, PNEU+28 , BPS+11, HTNDX+8, HTNDX+9, LASTHT+19, LASTWT+12, LASTWT+21, CMSFDX+5, PLDMDOO+11, FRSTDMDX+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(44 - [#9002244]	CMSFDX+4, CMSFDX+5
^ATXAX("B"	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
^AUPNVMSR - [#9000010.01]	BPS+8, LASTHT+12, LASTHT+13, LASTHT+14, LASTHT+15, LASTWT+10
^AUPNVMSR("AA"	LASTHT+10, LASTHT+11
^AUPNVPOV - [#9000010.07]	LASTWT+14
^AUPNVPOV("AD"	LASTWT+12, LASTWT+13
^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+9, FLU+12, FLU+15, FLU+18, FLU+21, PNEU+8, PNEU+12, PNEU+15, PNEU+19
^AUTTIMM(0	BI+1
^AUTTMSR("B"	LASTHT+8
^BICONT - [#9002084.81]	FLU+24, FLU+25, PNEU+22
^BIPC - [#9002084.11]	FLU+22, FLU+26, FLU+28, FLU+29, PNEU+20, PNEU+24, PNEU+26
^BIPC("AC"	FLU+21, PNEU+19
^DPT - [#2]	HTNDX+2, LASTHT+6

Name	Line Occurrences
$$BI	FLU+9, PNEU+8, PNEU+11
$$LASTFLU	FLU+5
E	LASTFLU+14, LASTFLU+16, LASTFLU+18, LASTFLU+20, LASTFLU+22, LASTFLU+24, LASTFLU+26, LASTFLU+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	FLU+1~, HTNDX+3~, HTNDX+5*, LASTHT+4~, LASTWT+3~
%DT	FLU+1~, PNEU+1~, PNEU+18, LASTHT+5
B	FLU+1~, PNEU+1~, LASTFLUN+7, LASTFLUO+6, LASTPNN+7, LASTPNO+6
BD	FLU+1~
BDATE	FLU~, FLU+4, FLU+5, FLU+9, FLU+12, FLU+15, FLU+18, FLU+28, BPS~, BPS+5 , LASTHT+4~, LASTHT+6, LASTWT~, LASTWT+7
BDM	FLU+1~, PNEU+1~, BPS+2~, BPS+4!, HTNDX+3~, HTNDX+4!, HTNDX+7!, LASTWT+3~, LASTWT+7!, FRSTDMDX+3~ , LASTDMDX+2~, LASTDMDX+6!
BDM(	BPS+6, BPS+7, BPS+9, BPS+11, LASTWT+8, LASTWT+9, LASTWT+11, LASTWT+12, LASTWT+21
BDM(1	HTNDX+6, HTNDX+9, FRSTDMDX+5, LASTDMDX+5, LASTDMDX+7
BDM(2	HTNDX+9
BDM(3	HTNDX+9
BDMARRY	LASTHT+4~, LASTWT+3~
BDMARRY(1	LASTHT+15*, LASTHT+19
BDMBD	LASTFLU~, LASTFLU+8*, LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+23, LASTFLU+25, LASTFLU+27
>> BDMBP	BPS+6*, BPS+11, BPS+12
BDMD	LASTWT+3~, LASTWT+13*, LASTWT+14
BDMED	LASTFLU~, LASTFLU+9*, LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+23, LASTFLU+25, LASTFLU+27
BDMF	LASTFLU+11~
BDMFORM	LASTFLU~, LASTFLU+10*, LASTFLU+29
BDML	BPS+2~, BPS+6*, BPS+7, BPS+9, BPS+11
BDMLAST	LASTFLU+11~, LASTFLU+12, LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+23, LASTFLU+25, LASTFLU+27 , LASTFLU+29, LASTFLU+30, E+1
BDMLL	BPS+2~, BPS+3, BPS+6, BPS+10, BPS+11, BPS+12
BDMN	LASTWT+3~, LASTWT+8*, LASTWT+9, LASTWT+11, LASTWT+12, LASTWT+21
>> BDMPD	INCHES+2
BDMPDFN	LASTFLU~, LASTFLU+7, LASTFLU+8, LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+23, LASTFLU+25 , LASTFLU+27
>> BDMRED	INCHES+2
BDMV	BPS+2~, BPS+3, BPS+11, BPS+12*, BPS+13
BDMV221	LASTWT+6~*
BDMVAL	LASTFLU+11~, LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+23, LASTFLU+25, LASTFLU+27, E+1
BDMVF	BPS+2~, BPS+7, BPS+8, LASTWT+3~, LASTWT+9, LASTWT+10
BDMW	LASTWT+3~, LASTWT+7, LASTWT+8, LASTWT+12, LASTWT+13, LASTWT+21*, LASTWT+23
BDMX	LASTFLU+11~, LASTWT+3~, LASTWT+7*
BDMY	LASTFLU+11~
BDMZ	LASTWT+3~, LASTWT+11*, LASTWT+12, LASTWT+13
C	FLU+1~, PNEU+1~
D	FLU+1~, FLU+26, FLU+27, FLU+30, FLU+31, PNEU+1~, PNEU+24, PNEU+25, PNEU+27, PNEU+28 , 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, LASTHT+4~, LASTHT+10, LASTHT+11, 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
DT	LASTFLU+9
E	LASTFLU+11~, FLU+1~, PNEU+1~, PNEU+18, LASTFLUN+8, LASTFLUO+7, LASTPNN+8, LASTPNO+7, BPS+2~, BPS+5 , HTNDX+3~, HTNDX+5, HTNDX+8, LASTHT+4~, LASTHT+8, LASTHT+10, LASTHT+11, LASTWT+3~, LASTWT+7, FRSTDMDX+3~ , FRSTDMDX+5, LASTDMDX+2~, LASTDMDX+4, LASTDMDX+6*
EDATE	FLU~, FLU+4, FLU+5, FLU+9, FLU+12, FLU+15, FLU+18, FLU+29, PNEU~, PNEU+5 , PNEU+8, PNEU+12, PNEU+15, PNEU+18, PNEU+26, BPS~, BPS+5, HTNDX~, HTNDX+8, LASTHT~ , LASTHT+5*, LASTWT~, LASTWT+7
F	FLU~, FLU+2, FLU+6, PNEU~, PNEU+3, PNEU+6, BPS~, BPS+1, BPS+11, BPS+12 , LASTHT~, LASTHT+2, LASTHT+17, LASTWT~, LASTWT+2, LASTWT+23, PLDMDOO~, PLDMDOO+2, PLDMDOO+11, FRSTDMDX~ , FRSTDMDX+2, FRSTDMDX+6, INCHES+1~, INCHES+5, INCHES+6
FI	INCHES+1~, INCHES+6*, INCHES+7
G	LASTFLU+11~, FLU+1~, FLU+9~, FLU+10, FLU+11, FLU+12, FLU+13, FLU+14, FLU+15, FLU+16 , FLU+17, FLU+18, FLU+19, FLU+20, FLU+21, FLU+30, FLU+31, PNEU+1~, PNEU+8, PNEU+9 , PNEU+10, PNEU+12, PNEU+13, PNEU+14, PNEU+15, PNEU+16, PNEU+17, PNEU+19, PNEU+27, PNEU+28 , CMSFDX+4~, CMSFDX+10, CMSFDX+11
G(	CMSFDX+10, CMSFDX+11
G(0	CMSFDX+9
G(9999999	CMSFDX+8*
H	LASTHT+4~, LASTHT+9, LASTHT+10, LASTHT+11, LASTHT+14, LASTHT+16, LASTHT+17, LASTHT+18*, LASTHT+19, LASTWT+3~
I	PLDMDOO+5~, PLDMDOO+6, PLDMDOO+7, PLDMDXS+4~, PLDMDXS+5, PLDMDXS+7
>> ICD	LASTWT+14*, LASTWT+15, LASTWT+16, LASTWT+17, LASTWT+18, LASTWT+19, LASTWT+20
LFLU	FLU+1~, FLU+5*, FLU+6
LPN	PNEU+1~, PNEU+5*, PNEU+6
P	FLU~, FLU+5, FLU+9, FLU+12, FLU+15, FLU+18, FLU+21, PNEU~, PNEU+5, PNEU+8 , PNEU+12, PNEU+15, PNEU+19, 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+10, LASTHT+11 , 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	LASTFLU+11~, FLU~, FLU+3, FLU+8, FLU+22, FLU+23, FLU+24, FLU+25, PNEU~, PNEU+4* , PNEU+7, PNEU+20*, PNEU+21, PNEU+22, CMSFDX~, CMSFDX+2, CMSFDX+4
T	LASTFLU+11~, FLU+1~, PNEU+1~, CMSFDX~, CMSFDX+3, CMSFDX+12, PLDMDOO+3~, PLDMDOO+4, PLDMDOO+7, PLDMDXS+2~ , PLDMDXS+3, PLDMDXS+7
TFLU	FLU+1~
TFLU(9999999	LASTFLUN+9, LASTFLUN+10, LASTFLUN+11, LASTFLUN+12, LASTFLUO+8*
TPN	PNEU+1~, PNEU+2!
TPN(9999999	LASTPNN+9, LASTPNN+10, LASTPNN+11, LASTPNO+8
U	LASTFLU+13, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+23, LASTFLU+25, LASTFLU+27, LASTFLU+29, E+1 , FLU+10, FLU+13, FLU+14, FLU+16, FLU+17, FLU+19, FLU+20, FLU+22, FLU+25, FLU+26 , FLU+28, FLU+29, FLU+30, FLU+31, PNEU+9, PNEU+10, PNEU+13, PNEU+14, PNEU+16, PNEU+17 , PNEU+20, PNEU+24, PNEU+26, PNEU+27, PNEU+28, 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+8, BPS+9, BPS+11, HTNDX+9, LASTHT+6, LASTHT+13, LASTHT+14 , LASTHT+15, LASTHT+19, LASTWT+6, LASTWT+9, LASTWT+10, LASTWT+11, LASTWT+12, LASTWT+14, LASTWT+21, CMSFDX+4 , CMSFDX+5, CMSFDX+11, PLDMDOO+6, PLDMDOO+8, PLDMDXS+5, PLDMDXS+7, FRSTDMDX+5
V	LASTFLU+11~
W	LASTHT+4~, LASTHT+11*, LASTHT+12, LASTHT+13, LASTHT+14, LASTHT+15, LASTWT+3~
X	LASTFLU+11~, FLU+1~, FLU+21, FLU+22, FLU+26, FLU+28, FLU+29, PNEU+1~, PNEU+18, PNEU+19* , PNEU+20, PNEU+24, PNEU+26, 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 , LASTWT+3~, 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*
Y	LASTFLU+11~, FLU+1~, FLU+21, PNEU+1~, PNEU+18, PNEU+19, 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, HTNDX+9, LASTHT+5, 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+21, PNEU+1~, PNEU+19, INCHES+1~, INCHES+2*, INCHES+7

Customize PDF page

Package: Diabetes Registry

Routine: BDMD113

Call Graph Total: 12

Caller Graph Total: 5