Routine: BDMDG13

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Diabetes Registry	7	$$PLTAX^BDMDG12 $$LASTHT^BDMDG13 $$REFUSAL^BDMDG17 $$CPTREFT^BDMDGDU $$DATE^BDMS9B1 ($$LASTPNEU,$$PNEUCONT)^BDMS9B4 ($$ANCONT,$$ICD,$$ICDDX,$$IMMREF,$$SNOMED,GETIMMS)^BDMUTL
Patient Care Component Reports	3	($$LASTCPTT,$$LASTDXT,$$LASTITEM)^APCLAPIU $$START1^APCLDF ($$CLINIC,$$VD,$$VDTM)^APCLV
Kernel	2	($$FMADD,$$FMDIFF)^XLFDT $$STRIP^XLFSTR
DRG Grouper	1	$$CPT^ICPTCOD
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
VA Fileman	1	^%DT

Package	Total	Caller Graph
Diabetes Registry	9	BDMDG10 BDMDG13 BDMDG15 BDMDG16 BDMPG10 BDMPG15 BDMS9B2 BDMS9B3 BDMVRL41

Package

Total

Caller Graph

Diabetes Registry

BDMDG10 BDMDG13 BDMDG15 BDMDG16 BDMPG10 BDMPG15 BDMS9B2 BDMS9B3
BDMVRL41

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
HEP(P,EDATE,S,F)	;EP
BPS(P,BDATE,EDATE,F)	;EP ;
LASTWT(P,BDATE,EDATE,F)	;PEP - return last wt
PLDMDXS(P)	;EP - get all DM dxs from problem list
HEPCONT(P,C,BD,ED)	;EP
LASTHT(P,EDATE,F)	;PEP - return last ht and date
FLU(P,BDATE,EDATE,R,F)	;EP
LASTFLU(BDMPDFN,BDMBD,BDMED,BDMFORM)	;PEP - date of last FLU ; Return the last recorded FLU:
I	;;
DATE(D)	;EP
LASTDMDX(P,D)	;EP - last pcc dm dx
FRSTDMDX(P,F)	;EP return date of first dm dx
HTNDX(P,EDATE)	;EP - is HTN on problem list

External References

Name	Field # of Occurrence
^%DT	LASTHT+5
$$LASTCPTT^APCLAPIU	LASTFLU+14
$$LASTDXT^APCLAPIU	LASTFLU+16
$$LASTITEM^APCLAPIU	LASTFLU+12
$$START1^APCLDF	BPS+5, HTNDX+16, LASTWT+4, FRSTDMDX+5, LASTDMDX+4, LASTDMDX+6, I+21
$$CLINIC^APCLV	BPS+9
$$VD^APCLV	LASTHT+14
$$VDTM^APCLV	BPS+11
$$DOB^AUPNPAT	LASTFLU+4, PNEU+9, PNEU+21, HTNDX+16, LASTDMDX+4, LASTDMDX+6, HEP+10, I+19, I+21, I+30 , I+33
$$PLTAX^BDMDG12	I+23
$$LASTHT^BDMDG13	INCHES+2
$$REFUSAL^BDMDG17	FLU+15, PNEU+9
$$CPTREFT^BDMDGDU	I+30
$$DATE^BDMS9B1	FLU+6, FLU+17, FLU+29, PNEU+6, PNEU+20, BPS+18, HTNDX+16, HTNDX+17, LASTHT+18, LASTWT+9 , LASTWT+18, CMSFDX+5, PLDMDOO+14, FRSTDMDX+6, I+31
$$LASTPNEU^BDMS9B4	PNEU+5
$$PNEUCONT^BDMS9B4	PNEU+21
$$ANCONT^BDMUTL	I+35
$$ICD^BDMUTL	HTNDX+11, LASTWT+17, PLDMDOO+8, PLDMDXS+7, HEP+16, HEP+18
$$ICDDX^BDMUTL	LASTWT+12, LASTWT+13, PLDMDXS+7
$$IMMREF^BDMUTL	I+33
$$SNOMED^BDMUTL	HTNDX+12, PLDMDOO+11, PLDMDXS+8
GETIMMS^BDMUTL	HEP+6, I+3
$$CPT^ICPTCOD	HEP+16, HEP+18
$$VAL^XBDIQ1	CMSFDX+6
$$VALI^XBDIQ1	BPS+10
$$FMADD^XLFDT	FLU+4, I+25
$$FMDIFF^XLFDT	HEP+22, I+9
$$STRIP^XLFSTR	INCHES+9

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

Global Variables Directly Accessed

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

Name	Line Occurrences
$$HEPCONT	I+19
$$LASTFLU	FLU+5
E	LASTFLU+13, LASTFLU+15, LASTFLU+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Diabetes Registry

Routine: BDMDG13

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: