Routine: BDMLPM

Package	Total	Call Graph
Diabetes Registry	3	$$DNKA^BDMD917 $$REFDF^BDMS9B3 ($$CODEN,$$ICD,$$SNOMED)^BDMUTL
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 $$PROVCLSC^XBFUNC1
Patient Care Component Reports	2	$$START1^APCLDF ($$CLINIC,$$PRIMPROV,$$VD)^APCLV
DRG Grouper	1	$$CPT^ICPTCOD
IHS Patient	1	$$DOB^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Taxonomy	1	$$ICD^ATXCHK
VA Fileman	1	^%DT

Package	Total	Caller Graph
Diabetes Registry	1	BDMVRL41

Name	Comments	DBIA/ICR reference
DIETEDUC(P,BDATE,EDATE)
EXEDUC(P,BDATE,EDATE)	;EP
PC(V)	;return provider discipline of educ provider
WH(P,BDATE,EDATE,T,F)	;EP
LASTMAM(P)	;EP
CPT(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT
OTHEDUC(P,BDATE,EDATE)	;EP
MAS(P,EDATE)	;EPmastectomy before end of time frame
LASTPAP(P)	;EP - return last pap date
HYSTER(P)	;EP has patient had hysterectomy?

Name	Field # of Occurrence
^%DT	DIETEDUC+3, DIETEDUC+4, EXEDUC+3, EXEDUC+4, OTHEDUC+3, OTHEDUC+4
$$START1^APCLDF	LASTPAP+6, LASTPAP+9, LASTPAP+16, LASTPAP+20, LASTMAM+5, LASTMAM+9, LASTMAM+13, MAS+2, MAS+4, MAS+6 , MAS+8, MAS+55
$$CLINIC^APCLV	DIETEDUC+15
$$PRIMPROV^APCLV	DIETEDUC+16, DIETEDUC+17, DIETEDUC+18
$$VD^APCLV	OTHEDUC+36
$$ICD^ATXCHK	CPT+14
$$DOB^AUPNPAT	HYSTER+10, MAS+2, MAS+4, MAS+6, MAS+8, MAS+55
$$DNKA^BDMD917	DIETEDUC+13, EXEDUC+13, OTHEDUC+13
$$REFDF^BDMS9B3	LASTMAM+21
$$CODEN^BDMUTL	OTHEDUC+31
$$ICD^BDMUTL	HYSTER+6, DIETEDUC+19, EXEDUC+15, OTHEDUC+35
$$SNOMED^BDMUTL	OTHEDUC+29, OTHEDUC+36
$$CPT^ICPTCOD	CPT+23
$$VAL^XBDIQ1	DIETEDUC+21
$$VALI^XBDIQ1	DIETEDUC+19, EXEDUC+15
$$PROVCLSC^XBFUNC1	PC+4
$$FMADD^XLFDT	WH+5, CPT+5
$$FMTE^XLFDT	WH+20, CPT+22, MAS+2, MAS+4, MAS+6, MAS+8, MAS+55

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	DIETEDUC+26, EXEDUC+20, OTHEDUC+25, OTHEDUC+35
^ATXAX("B"	HYSTER+11, DIETEDUC+22, EXEDUC+17, OTHEDUC+15, OTHEDUC+34
^AUPNVCPT - [#9000010.18]	CPT+14, CPT+21, CPT+22, CPT+23, MAS+20, MAS+21, MAS+30, MAS+31, MAS+40, MAS+41 , MAS+50, MAS+51
^AUPNVCPT("AA"	LASTPAP+26, LASTMAM+17, MAS+14, MAS+15, MAS+18, MAS+24, MAS+25, MAS+28, MAS+34, MAS+35 , MAS+38, MAS+44, MAS+45, MAS+48
^AUPNVCPT("AD"	CPT+12, CPT+13, DIETEDUC+21
^AUPNVPED - [#9000010.16]	DIETEDUC+25, PC+2, EXEDUC+19, OTHEDUC+17, OTHEDUC+36
^AUPNVPED("AD"	DIETEDUC+24, EXEDUC+18, OTHEDUC+16
^AUPNVPOV("AD"	DIETEDUC+19, EXEDUC+15
^AUPNVPRC - [#9000010.08]	HYSTER+4
^AUPNVPRC("AC"	HYSTER+2, HYSTER+4
^AUPNVSIT - [#9000010]	CPT+11, CPT+21, CPT+22, CPT+23, DIETEDUC+8, DIETEDUC+9, DIETEDUC+10, DIETEDUC+14, EXEDUC+8, EXEDUC+9 , EXEDUC+10, EXEDUC+14, OTHEDUC+8, OTHEDUC+9, OTHEDUC+10, OTHEDUC+14
^AUPNVSIT("AA"	CPT+9, CPT+10, DIETEDUC+6, DIETEDUC+7, EXEDUC+6, EXEDUC+7, OTHEDUC+6, OTHEDUC+7
^AUTTCMOD - [#9999999.88]	MAS+20, MAS+21, MAS+30, MAS+31, MAS+40, MAS+41, MAS+50, MAS+51
^AUTTEDT - [#9999999.09]	DIETEDUC+27, EXEDUC+21, OTHEDUC+18
^BWPCD - [#9002086.1]	WH+9, WH+10, WH+11, WH+19, WH+20
^BWPCD("C"	WH+8
^BWPN("B"	HYSTER+8
^DD(9000010.16	PC+4
^DIC(6 - [#6]	PC+5
^DIC(7 - [#7]	PC+7
^DPT - [#2]	LASTPAP+1, HYSTER+13, LASTMAM+1
^ICPT("B"	LASTPAP+24, LASTMAM+16, MAS+13
^RAMIS(71 - [#71]	LASTMAM+21

Name	Line Occurrences
$$CPT	HYSTER+13
$$HYSTER	LASTPAP+2
$$WH	HYSTER+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LASTPAP+3~, LASTPAP+5, LASTPAP+6, LASTPAP+9, LASTPAP+15, LASTPAP+16, LASTPAP+19, LASTPAP+20, LASTMAM+2~, LASTMAM+4* , LASTMAM+5, LASTMAM+8, LASTMAM+9, LASTMAM+12, LASTMAM+13, LASTMAM+16, LASTMAM+21, MAS+2, MAS+4, MAS+6* , MAS+8, MAS+14, MAS+15, MAS+20, MAS+21, MAS+24, MAS+25, MAS+30, MAS+31, MAS+34 , MAS+35, MAS+40, MAS+41, MAS+44, MAS+45, MAS+50, MAS+51, MAS+55, MAS+57*
%DT	DIETEDUC+1~, DIETEDUC+3, DIETEDUC+4, EXEDUC+1~, EXEDUC+3, EXEDUC+4, OTHEDUC+1~, OTHEDUC+3, OTHEDUC+4
A	PC+5~*, PC+6, PC+7
APCHY	LASTPAP+3~, LASTPAP+9!, LASTPAP+14!, LASTPAP+18!, LASTPAP+22!, LASTMAM+2~, LASTMAM+7!, LASTMAM+11!, LASTMAM+15!
APCHY(1	LASTPAP+7, LASTPAP+10, LASTPAP+11, LASTPAP+12, LASTPAP+17, LASTPAP+21, LASTPAP+26, LASTPAP+27, LASTPAP+28, LASTPAP+29 , LASTMAM+6, LASTMAM+10, LASTMAM+14, LASTMAM+17, LASTMAM+18, LASTMAM+19, LASTMAM+20
APCL	DIETEDUC+1~, EXEDUC+1~, OTHEDUC+1~
APCLVRD	DIETEDUC+1~, EXEDUC+1~, OTHEDUC+1~
BD	CPT+7~, CPT+8, CPT+9, DIETEDUC+1~, DIETEDUC+3, DIETEDUC+6, EXEDUC+1~, EXEDUC+3, EXEDUC+6, OTHEDUC+1~ , OTHEDUC+3, OTHEDUC+6
BDATE	WH~, WH+5, WH+12, CPT~, CPT+5, CPT+8, DIETEDUC~, DIETEDUC+3, EXEDUC~, EXEDUC+3 , OTHEDUC~, OTHEDUC+3
BDMT	MAS+1~, MAS+2!, MAS+4!, MAS+6!, MAS+8!, MAS+55!
BDMT(	MAS+56
BDMT(1	MAS+3, MAS+5, MAS+7, MAS+9
BDMTX	MAS+12!
BDMTX(	MAS+19, MAS+29, MAS+39, MAS+49, MAS+56*, MAS+57
C	HYSTER+4~, HYSTER+6, MAS+57, MAS+58
CODE	OTHEDUC+30~, OTHEDUC+31*, OTHEDUC+32, OTHEDUC+35
D	WH+7~, WH+11, WH+12, WH+13, WH+19, WH+20, CPT+7~, MAS+16, MAS+17, MAS+26* , MAS+27, MAS+36, MAS+37, MAS+46, MAS+47, MAS+49, DIETEDUC+1~, DIETEDUC+5, DIETEDUC+6, DIETEDUC+7 , DIETEDUC+16, DIETEDUC+17, DIETEDUC+18, DIETEDUC+19, DIETEDUC+21, DIETEDUC+26, DIETEDUC+28, DIETEDUC+29, DIETEDUC+30, DIETEDUC+31 , DIETEDUC+32, EXEDUC+1~, EXEDUC+5, EXEDUC+6, EXEDUC+7, EXEDUC+15, EXEDUC+20, EXEDUC+22, OTHEDUC+1~, OTHEDUC+5* , OTHEDUC+6*, OTHEDUC+7, OTHEDUC+25, OTHEDUC+26, OTHEDUC+27, OTHEDUC+28, OTHEDUC+29, OTHEDUC+35
DT	HYSTER+10, HYSTER+13
>> E	LASTPAP+6, LASTPAP+9, LASTPAP+16, LASTPAP+20, LASTMAM+5, LASTMAM+9, LASTMAM+13, MAS+2, MAS+4, MAS+6 , MAS+8, MAS+15, MAS+16, MAS+18, MAS+19, MAS+25, MAS+26, MAS+28, MAS+29, MAS+35 , MAS+36, MAS+38, MAS+39, MAS+45, MAS+46, MAS+48, MAS+55
ED	CPT+7~, CPT+8, CPT+9, CPT+10, DIETEDUC+1~, DIETEDUC+4, EXEDUC+1~, EXEDUC+4, OTHEDUC+1~, OTHEDUC+4*
EDATE	WH~, WH+4, WH+5, WH+13, CPT~, CPT+4, CPT+5, CPT+8, MAS~, MAS+2 , MAS+4, MAS+6, MAS+8, MAS+17, MAS+27, MAS+37, MAS+47, MAS+55, DIETEDUC~, DIETEDUC+4 , EXEDUC~, EXEDUC+4, OTHEDUC~, OTHEDUC+4
F	HYSTER+4~, WH~, WH+3, WH+17, WH+18, WH+19, WH+20, CPT~, CPT+3*, CPT+19 , CPT+20, CPT+21, CPT+22, CPT+23
G	WH+7~, WH+8, WH+14, WH+16, WH+17, WH+18, WH+19, WH+20, CPT+7~, CPT+8* , CPT+9, CPT+10, CPT+13, CPT+14, CPT+18, CPT+19, CPT+20, CPT+21, CPT+22, CPT+23 , LASTMAM+21, LASTMAM+22, MAS+12, DIETEDUC+1~, DIETEDUC+5, DIETEDUC+6, DIETEDUC+16, DIETEDUC+17, DIETEDUC+18, DIETEDUC+19 , DIETEDUC+20, DIETEDUC+21, DIETEDUC+23, DIETEDUC+26, DIETEDUC+28, DIETEDUC+29, DIETEDUC+30, DIETEDUC+31, DIETEDUC+32, DIETEDUC+34 , EXEDUC+1~, EXEDUC+5, EXEDUC+6, EXEDUC+15, EXEDUC+16, EXEDUC+20, EXEDUC+22, EXEDUC+24, OTHEDUC+1~, OTHEDUC+5 , OTHEDUC+6, OTHEDUC+25, OTHEDUC+26, OTHEDUC+27, OTHEDUC+28, OTHEDUC+29, OTHEDUC+35, OTHEDUC+36*, OTHEDUC+37
>> I	OTHEDUC+36
>> J	DIETEDUC+27, DIETEDUC+28, DIETEDUC+29, DIETEDUC+30, DIETEDUC+31, DIETEDUC+32, EXEDUC+21, EXEDUC+22, OTHEDUC+18*, OTHEDUC+19 , OTHEDUC+20, OTHEDUC+21, OTHEDUC+22, OTHEDUC+23, OTHEDUC+24, OTHEDUC+26, OTHEDUC+27, OTHEDUC+28, OTHEDUC+29, OTHEDUC+36
LMAM	LASTMAM+2~, LASTMAM+3, LASTMAM+6, LASTMAM+10, LASTMAM+14, LASTMAM+20*, LASTMAM+21, LASTMAM+22, LASTMAM+23
LPAP	LASTPAP+3~, LASTPAP+4, LASTPAP+7, LASTPAP+11, LASTPAP+12, LASTPAP+17, LASTPAP+21, LASTPAP+29, LASTPAP+30
>> M	MAS+20, MAS+21, MAS+30, MAS+31, MAS+40, MAS+41, MAS+50, MAS+51
NRD	DIETEDUC+1~, DIETEDUC+2, DIETEDUC+5, EXEDUC+1~, EXEDUC+2, EXEDUC+5, OTHEDUC+1~, OTHEDUC+2, OTHEDUC+5
P	LASTPAP~, LASTPAP+1, LASTPAP+2, LASTPAP+5, LASTPAP+9, LASTPAP+15, LASTPAP+19, LASTPAP+26, HYSTER~, HYSTER+1 , HYSTER+2, HYSTER+4, HYSTER+10, HYSTER+13, WH~, WH+1, WH+8, CPT~, CPT+1, CPT+9 , CPT+10, LASTMAM~, LASTMAM+1, LASTMAM+4, LASTMAM+8, LASTMAM+12, LASTMAM+17, LASTMAM+21, MAS~, MAS+2 , MAS+4, MAS+6, MAS+8, MAS+14, MAS+15, MAS+18, MAS+24, MAS+25, MAS+28, MAS+34 , MAS+35, MAS+38, MAS+44, MAS+45, MAS+48, MAS+55, DIETEDUC~, DIETEDUC+6, DIETEDUC+7, EXEDUC~ , EXEDUC+6, EXEDUC+7, OTHEDUC~, OTHEDUC+6, OTHEDUC+7
RD	DIETEDUC+1~, DIETEDUC+2, DIETEDUC+5, EXEDUC+1~, EXEDUC+2, EXEDUC+5, OTHEDUC+1~, OTHEDUC+2, OTHEDUC+5
S	HYSTER+4~*, HYSTER+7
T	LASTPAP+3~, LASTPAP+24, LASTPAP+25, LASTPAP+26, HYSTER+8, HYSTER+9, HYSTER+10, HYSTER+11, HYSTER+12, WH~ , WH+2, WH+10, CPT~, CPT+2, CPT+14, LASTMAM+2~, LASTMAM+16, LASTMAM+17, MAS+13, MAS+14 , MAS+15, MAS+18, DIETEDUC+22, DIETEDUC+26, EXEDUC+17, EXEDUC+20, OTHEDUC+15, OTHEDUC+25, OTHEDUC+31
>> T1	MAS+13*, MAS+24, MAS+25, MAS+28
>> T2	MAS+13*, MAS+34, MAS+35, MAS+38
>> T3	MAS+13*, MAS+44, MAS+45, MAS+48
TAX	OTHEDUC+33~, OTHEDUC+34*, OTHEDUC+35
U	LASTPAP+1, LASTPAP+11, LASTPAP+12, LASTPAP+29, HYSTER+13, WH+10, WH+11, WH+19, WH+20, CPT+14 , CPT+21, CPT+22, CPT+23, LASTMAM+1, MAS+20, MAS+21, MAS+30, MAS+31, MAS+40, MAS+41 , MAS+50, MAS+51, MAS+56, DIETEDUC+9, DIETEDUC+10, DIETEDUC+14, DIETEDUC+25, DIETEDUC+27, PC+2, PC+4 , PC+5, PC+7, EXEDUC+9, EXEDUC+10, EXEDUC+14, EXEDUC+19, EXEDUC+21, OTHEDUC+9, OTHEDUC+10, OTHEDUC+14 , OTHEDUC+17, OTHEDUC+18, OTHEDUC+35, OTHEDUC+36
V	WH+7~, WH+8, WH+9, WH+10, WH+11, WH+14, CPT+7~, CPT+10, CPT+11, CPT+12 , CPT+13, CPT+21, CPT+22, CPT+23, DIETEDUC+1~, DIETEDUC+7, DIETEDUC+8, DIETEDUC+9, DIETEDUC+10, DIETEDUC+13 , DIETEDUC+14, DIETEDUC+15, DIETEDUC+16, DIETEDUC+17, DIETEDUC+18, DIETEDUC+19, DIETEDUC+21, DIETEDUC+24, PC~, PC+1 , PC+2, EXEDUC+1~, EXEDUC+7, EXEDUC+8, EXEDUC+9, EXEDUC+10, EXEDUC+13, EXEDUC+14, EXEDUC+15, EXEDUC+18 , OTHEDUC+1~, OTHEDUC+7, OTHEDUC+8, OTHEDUC+9, OTHEDUC+10, OTHEDUC+13, OTHEDUC+14, OTHEDUC+16
X	LASTPAP+15, LASTPAP+23, LASTPAP+24, HYSTER+9, HYSTER+10, HYSTER+12, HYSTER+13, WH+7~, CPT+7~, CPT+13* , CPT+14, LASTMAM+4, LASTMAM+8, LASTMAM+12, MAS+12, MAS+56, MAS+57, DIETEDUC+1~, DIETEDUC+3, DIETEDUC+4 , DIETEDUC+19, DIETEDUC+21, DIETEDUC+24, DIETEDUC+25, PC+2~, PC+3, PC+4, PC+5, EXEDUC+1~, EXEDUC+3* , EXEDUC+4, EXEDUC+15, EXEDUC+18, EXEDUC+19, OTHEDUC+1~, OTHEDUC+3, OTHEDUC+4, OTHEDUC+16, OTHEDUC+17
Y	WH+7~, CPT+7~, MAS+12, MAS+18, MAS+20, MAS+21, MAS+28, MAS+30, MAS+31, MAS+38 , MAS+40, MAS+41, MAS+48, MAS+50, MAS+51, DIETEDUC+1~, DIETEDUC+3, DIETEDUC+4, DIETEDUC+25, DIETEDUC+26 , DIETEDUC+27, EXEDUC+1~, EXEDUC+3, EXEDUC+4, EXEDUC+19, EXEDUC+20, EXEDUC+21, OTHEDUC+1~, OTHEDUC+3, OTHEDUC+4 , OTHEDUC+17, OTHEDUC+18, OTHEDUC+25
>> Z	MAS+12, DIETEDUC+21

Customize PDF page

Package: Diabetes Registry

Routine: BDMLPM

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: