Routine: BDMDA13

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Diabetes Registry	5	$$PLTAX^BDMDA12 $$LASTHT^BDMDA13 $$REFUSAL^BDMDA17 $$CPTREFT^BDMDADU ($$ANCONT,$$IMMREF,GETIMMS)^BDMUTL
Patient Care Component Reports	4	$$LASTPNEU^APCLAPI4 ($$LASTCPTT,$$LASTDXT,$$LASTITEM)^APCLAPIU $$START1^APCLDF ($$CLINIC,$$VD)^APCLV
DRG Grouper	2	$$ICDDX^ICDCODE $$CPT^ICPTCOD
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT
Taxonomy	1	$$ICD^ATXCHK
VA Fileman	1	^%DT

Package	Total	Caller Graph
Diabetes Registry	5	BDMDA10 BDMDA13 BDMDA14 BDMDA15 BDMDA16

Package

Total

Caller Graph

Diabetes Registry

BDMDA10 BDMDA13 BDMDA14 BDMDA15 BDMDA16

Entry Points

Name	Comments	DBIA/ICR reference
PLDMDOO(P,F)	;EP
BPS(P,BDATE,EDATE,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 ;
BI()	;
PNEU(P,EDATE,R,F)	;EP
CMSFDX(P,R,T)	;EP - return date/dx of dm in register
LASTWT(P,BDATE,EDATE,F)	;PEP - return last wt
LASTHT(P,EDATE,F)	;PEP - return last ht and date
FLU(P,BDATE,EDATE,R,F)	;EP
LASTDMDX(P,D)	;EP - last pcc dm dx
FRSTDMDX(P,F)	;EP return date of first dm dx
DATE(D)	;EP
PLDMDXS(P)	;EP - get all DM dxs from problem list
E	;
INCHES	;
I
LASTFLUO	;
LASTFLUN	;
LASTPNO	;
LASTPNN	;
HEP(P,EDATE,S,F)	;EP
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+19
$$LASTDXT^APCLAPIU	LASTFLU+21
$$LASTITEM^APCLAPIU	LASTFLU+17
$$START1^APCLDF	BPS+5, HTNDX+5, HTNDX+8, LASTWT+4, FRSTDMDX+5, LASTDMDX+4, LASTDMDX+6, I+5
$$CLINIC^APCLV	BPS+9
$$VD^APCLV	LASTHT+14
$$ICD^ATXCHK	PLDMDOO+8, PLDMDXS+7, HEP+16, HEP+18
$$DOB^AUPNPAT	LASTFLU+8, HTNDX+8, LASTDMDX+4, LASTDMDX+6, HEP+10, I+5, I+14, I+17
$$PLTAX^BDMDA12	I+7
$$LASTHT^BDMDA13	INCHES+2
$$REFUSAL^BDMDA17	FLU+14, PNEU+8, PNEU+12, PNEU+15
$$CPTREFT^BDMDADU	I+14
$$ANCONT^BDMUTL	I+19
$$IMMREF^BDMUTL	I+17
GETIMMS^BDMUTL	HEP+6
$$ICDDX^ICDCODE	LASTWT+11, PLDMDXS+7
$$CPT^ICPTCOD	HEP+16, HEP+18
$$VAL^XBDIQ1	CMSFDX+6
$$FMADD^XLFDT	FLU+4, PNEU+8, PNEU+12, PNEU+15, I+9
$$FMDIFF^XLFDT	HEP+22
$$FMTE^XLFDT	FLU+6, FLU+15, FLU+16, FLU+28, 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+18, LASTWT+9 , LASTWT+17, CMSFDX+5, PLDMDOO+12, FRSTDMDX+6, I+15

Name	Line Occurrences
Function Call: READ	Timeout: 2,1:3)_" Variable: Q $S(BDMNMI Line Location: I+13
Function Call: READ	Timeout: $P(R,U,3)="N" Variable: S Line Location: I+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(44 - [#9002244]	CMSFDX+4, CMSFDX+5
^ATXAX - [#9002226]	LASTFLU+15, FLU+12
^ATXAX("B"	LASTFLU+13, FLU+10, PLDMDOO+3, PLDMDXS+2, HEP+11, I+14
^AUPNPREF - [#9000022]	I+12
^AUPNPREF("AA"	I+12
^AUPNPROB - [#9000011]	PLDMDOO+6, PLDMDOO+7, PLDMDOO+9, PLDMDXS+5, PLDMDXS+6
^AUPNPROB("AC"	PLDMDOO+5, PLDMDXS+4
^AUPNVCPT - [#9000010.18]	HEP+16
^AUPNVCPT("AD"	HEP+15
^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+11, LASTHT+12, LASTHT+13, LASTHT+14, LASTWT+7
^AUPNVMSR("AA"	LASTHT+9, LASTHT+10
^AUPNVPOV - [#9000010.07]	LASTWT+11
^AUPNVPOV("AD"	LASTWT+9, LASTWT+10
^AUPNVSIT - [#9000010]	LASTFLUN+6, LASTFLUO+5, LASTPNN+6, LASTPNO+5, HEP+14
^AUPNVSIT("AA"	HEP+12, HEP+13
^AUPNVSIT("AC"	LASTHT+3
^AUPNVTC - [#9000010.33]	HEP+18
^AUPNVTC("AD"	HEP+17
^AUTTIMM - [#9999999.14]	LASTFLUN+3, LASTFLUN+4, LASTFLUO+3, LASTPNN+3, LASTPNN+4, LASTPNO+3
^AUTTIMM("C"	FLU+14, FLU+18, PNEU+8, PNEU+12, PNEU+15, PNEU+19, I+11
^AUTTIMM(0	BI+1
^AUTTMSR("B"	LASTHT+7
^BICONT - [#9002084.81]	FLU+21, FLU+22, PNEU+22
^BIPC - [#9002084.11]	FLU+19, FLU+23, FLU+25, FLU+26, PNEU+20, PNEU+24, PNEU+26
^BIPC("AC"	FLU+18, PNEU+19
^DPT - [#2]	HTNDX+2, LASTHT+6

Name	Line Occurrences
$$BI	PNEU+8, PNEU+11
$$LASTFLU	FLU+5
E	LASTFLU+18, LASTFLU+20, LASTFLU+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Diabetes Registry

Routine: BDMDA13

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: