Routine: BDMD4DU

Package	Total	Call Graph
DRG Grouper	2	$$CODEN^ICDCODE $$CPT^ICPTCOD
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR
Patient Care Component Reports	2	$$START1^APCLDF $$CLINIC^APCLV
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Taxonomy	1	$$ICD^ATXCHK

Package	Total	Caller Graph
Diabetes Registry	3	BDMD411 BDMD412 BDMD413

Name	Comments	DBIA/ICR reference
TRAN(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT IN A TRAN CODE
PLTAX(P,A)	;EP - is DX on problem list 1 or 0
WH(P,BDATE,EDATE,T,F)	;EP
GETMEDS(P,BDMMBD,BDMMED,TAXM,TAXN,TAXC,BDMDNAME,BDMZ)	;EP
RAD(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT
TRANI(P,BDATE,EDATE,CPTI)	;EP
CPTI(P,BDATE,EDATE,CPTI,SCEX,SCLN,SMOD)	;EP - did patient have this cpt (ien) in date range
PLCODE(P,A)	;EP
CPTREFT(P,BDATE,EDATE,T)	;EP - return ien of CPT entry if patient had this CPT
CPT(P,BDATE,EDATE,T,F,SCEX)	;EP - return ien of CPT entry if patient had this CPT
LASTITEM(P,BD,ED,BDMT,BDMV)	;PEP - return last item APCLV OF TYPE APCLT DURING BD TO ED IN FORM APCLF

Name	Field # of Occurrence
$$START1^APCLDF	LASTITEM+5
$$CLINIC^APCLV	CPTI+16
$$ICD^ATXCHK	PLTAX+5, CPT+16, RAD+15, TRAN+14, CPTREFT+9
$$DOB^AUPNPAT	LASTITEM+1
$$CODEN^ICDCODE	PLCODE+5
$$CPT^ICPTCOD	CPT+25, CPT+26, TRAN+23, TRAN+24
$$VAL^XBDIQ1	WH+11, CPTI+17, CPTI+18, CPTI+24, TRANI+16
$$FMADD^XLFDT	WH+5, CPT+6, RAD+5, TRAN+5, CPTREFT+4
$$FMTE^XLFDT	WH+22, CPT+24, RAD+23, TRAN+22
$$UP^XLFSTR	WH+11

Name	Line Occurrences
Function Call: WRITE	Prompt: BDMBOMB Line Location: GETMEDS+24
Function Call: WRITE	Prompt: BDMBOMB Line Location: GETMEDS+25

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	GETMEDS+32, GETMEDS+34, GETMEDS+35
^ATXAX("B"	PLTAX+3, GETMEDS+24, GETMEDS+25, GETMEDS+26
^AUPNPREF - [#9000022]	CPTREFT+8, CPTREFT+10
^AUPNPREF("AA"	CPTREFT+7, CPTREFT+8
^AUPNPROB - [#9000011]	PLCODE+7, PLTAX+5
^AUPNPROB("AC"	PLCODE+7, PLTAX+5
^AUPNVCPT - [#9000010.18]	CPT+16, CPT+23, CPT+24, CPT+25, CPT+26, CPTI+14
^AUPNVCPT("AA"	CPTI+9, CPTI+12, CPTI+13
^AUPNVCPT("AD"	CPT+13, CPT+15
^AUPNVMED - [#9000010.14]	GETMEDS+11, GETMEDS+12, GETMEDS+16, GETMEDS+28, GETMEDS+30
^AUPNVMED("AA"	GETMEDS+9, GETMEDS+10
^AUPNVRAD - [#9000010.22]	RAD+14, RAD+22, RAD+23, RAD+24, RAD+25
^AUPNVRAD("AD"	RAD+12, RAD+13
^AUPNVSIT - [#9000010]	CPT+12, CPT+14, CPT+23, CPT+24, CPT+25, CPT+26, RAD+11, RAD+22, RAD+23, RAD+24 , RAD+25, CPTI+15, TRANI+13, TRAN+11, TRAN+21, TRAN+22, TRAN+23, TRAN+24
^AUPNVSIT("AA"	CPT+10, CPT+11, RAD+9, RAD+10, TRAN+9, TRAN+10
^AUPNVTC - [#9000010.33]	TRANI+10, TRANI+12, TRAN+14, TRAN+21, TRAN+22, TRAN+23, TRAN+24
^AUPNVTC("AC"	TRANI+6, TRANI+9
^AUPNVTC("AD"	TRAN+12, TRAN+13
^BWPCD - [#9002086.1]	WH+9, WH+10, WH+12, WH+21, WH+22
^BWPCD("C"	WH+8
^ICPT - [#81]	CPTI+8, TRANI+5, CPTREFT+10
^PSDRUG - [#50]	GETMEDS+14, GETMEDS+16, GETMEDS+31, GETMEDS+33, GETMEDS+36
^RAMIS(71 - [#71]	RAD+14, RAD+24, RAD+25
^TMP($J	GETMEDS+4!, GETMEDS+16, GETMEDS+19, GETMEDS+20, GETMEDS+22, GETMEDS+23!, GETMEDS+27, GETMEDS+38, GETMEDS+40!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LASTITEM+5~*
A	PLCODE~, PLCODE+2, PLCODE+5, PLTAX~, PLTAX+2, PLTAX+3
BD	CPT+8~, CPT+9, CPT+10, RAD+7~, RAD+8, RAD+9, CPTI+10~, CPTI+11, CPTI+12, TRAN+7~ , TRAN+8, TRAN+9, LASTITEM~, LASTITEM+1*, LASTITEM+5
BDATE	WH~, WH+5, WH+13, CPT~, CPT+6, CPT+9, RAD~, RAD+5, RAD+8, CPTI~ , CPTI+3, CPTI+11, TRANI~, TRANI+3, TRANI+14, TRAN~, TRAN+5, TRAN+8, CPTREFT~, CPTREFT+4* , CPTREFT+8
>> BDMBOMB	GETMEDS+24, GETMEDS+25
BDMC1	GETMEDS+6~, GETMEDS+7, GETMEDS+15, GETMEDS+16, GETMEDS+18, GETMEDS+21, GETMEDS+22, GETMEDS+27, GETMEDS+38, GETMEDS+41!
BDMD	GETMEDS+6~, GETMEDS+12*, GETMEDS+13, GETMEDS+14, GETMEDS+16, GETMEDS+41!
BDMDNAME	GETMEDS~, GETMEDS+5*, GETMEDS+36, GETMEDS+41!
BDMINBD	GETMEDS+6~, GETMEDS+8*, GETMEDS+9, GETMEDS+41!
BDMINED	GETMEDS+6~, GETMEDS+8, GETMEDS+9, GETMEDS+10, GETMEDS+16, GETMEDS+41!
BDMMBD	GETMEDS~, GETMEDS+8, GETMEDS+41!
BDMMED	GETMEDS~, GETMEDS+8, GETMEDS+41!
BDMMIEN	GETMEDS+6~, GETMEDS+10*, GETMEDS+11, GETMEDS+12, GETMEDS+16
BDMR	LASTITEM+5~
BDMR(1	LASTITEM+6, LASTITEM+7
BDMT	LASTITEM~, LASTITEM+3, LASTITEM+5
BDMV	LASTITEM~, LASTITEM+4, LASTITEM+5
BDMZ	GETMEDS~, GETMEDS+4!, GETMEDS+7!
BDMZ(	GETMEDS+38*
C	RAD+7~, RAD+14, RAD+15, TRANI+7~, TRANI+10, TRANI+11, GETMEDS+31, GETMEDS+32, GETMEDS+33, GETMEDS+34
CPTI	CPTI~, CPTI+2, CPTI+8, CPTI+12, CPTI+13, TRANI~, TRANI+5, TRANI+11
D	WH+7~, WH+12, WH+13, WH+14, WH+15, WH+16, WH+21, WH+22, CPT+8~, RAD+7~ , CPTI+10~, TRAN+7~, GETMEDS+6~, GETMEDS+30, GETMEDS+31, GETMEDS+33, GETMEDS+35, GETMEDS+36, CPTREFT+8*, CPTREFT+10
DT	LASTITEM+2
E	LASTITEM+5~*
ED	CPT+8~, CPT+9, CPT+10, CPT+11, RAD+7~, RAD+8, RAD+9, RAD+10, CPTI+10~, CPTI+11* , CPTI+12, CPTI+13, CPTI+24, TRAN+7~, TRAN+8, TRAN+9, TRAN+10, LASTITEM~, LASTITEM+2, LASTITEM+5
EDATE	WH~, WH+4, WH+5, WH+14, CPT~, CPT+5, CPT+6, CPT+9, RAD~, RAD+4 , RAD+5, RAD+8, CPTI~, CPTI+4, CPTI+11, TRANI~, TRANI+4, TRANI+15, TRAN~, TRAN+4 , TRAN+5, TRAN+8, CPTREFT~, CPTREFT+3, CPTREFT+4, CPTREFT+8
F	WH~, WH+3, WH+19, WH+20, WH+21, WH+22, CPT~, CPT+3, CPT+21, CPT+22 , CPT+23, CPT+24, CPT+25, CPT+26, RAD~, RAD+3, RAD+20, RAD+21, RAD+22, RAD+23 , RAD+24, RAD+25, TRAN~, TRAN+3, TRAN+19, TRAN+20, TRAN+21, TRAN+22, TRAN+23, TRAN+24
G	WH+7~, WH+8, WH+16, WH+18, WH+19, WH+20, WH+21, WH+22, CPT+8~, CPT+9* , CPT+10, CPT+11, CPT+15, CPT+16, CPT+20, CPT+21, CPT+22, CPT+23, CPT+24, CPT+25 , CPT+26, RAD+7~, RAD+8, RAD+9, RAD+10, RAD+13, RAD+15, RAD+19, RAD+20, RAD+21 , RAD+22, RAD+23, RAD+24, RAD+25, CPTI+10~, CPTI+11, CPTI+12, CPTI+13, CPTI+24, CPTI+25 , TRANI+7~, TRANI+8, TRANI+16, TRANI+17, TRAN+7~, TRAN+8, TRAN+9, TRAN+10, TRAN+13, TRAN+14* , TRAN+18, TRAN+19, TRAN+20, TRAN+21, TRAN+22, TRAN+23, TRAN+24, GETMEDS+6~, GETMEDS+29, GETMEDS+32 , GETMEDS+34, GETMEDS+35, GETMEDS+36, GETMEDS+37, GETMEDS+38, CPTREFT+5~, CPTREFT+6, CPTREFT+7, CPTREFT+8, CPTREFT+10* , CPTREFT+12
G(	WH+16*
G(0	WH+15
I	WH+8, WH+15, PLCODE+7~, PLCODE+8, PLTAX+5~, PLTAX+6, CPTI+10~, CPTI+13, CPTI+14, CPTI+17 , CPTI+18, CPTI+24, TRANI+16, CPTREFT+5~, CPTREFT+7, CPTREFT+8, CPTREFT+9, CPTREFT+10
J	CPTI+10~, CPTI+20, CPTI+22
K	CPTI+10~, CPTI+20, CPTI+22
M	CPTI+10~, CPTI+17*, CPTI+20
M1	CPTI+10~, CPTI+18*, CPTI+22
O	WH+7~
P	WH~, WH+1, WH+8, PLCODE~, PLCODE+1, PLCODE+7, PLTAX~, PLTAX+1, PLTAX+5, CPT~ , CPT+1, CPT+10, CPT+11, RAD~, RAD+1, RAD+9, RAD+10, CPTI~, CPTI+1, CPTI+9 , CPTI+12, CPTI+13, TRANI~, TRANI+1, TRANI+6, TRANI+9, TRAN~, TRAN+1, TRAN+9, TRAN+10 , LASTITEM~, LASTITEM+1, LASTITEM+5, GETMEDS~, GETMEDS+9, GETMEDS+10, CPTREFT~, CPTREFT+1, CPTREFT+7, CPTREFT+8
Q	CPTI+10~, CPTI+19, CPTI+20, CPTI+21, CPTI+22*, CPTI+23
R	LASTITEM+5!
SCEX	CPT~, CPT+4, CPT+14, CPTI~, CPTI+5, CPTI+15
SCLN	CPTI~, CPTI+6*, CPTI+16
SMOD	CPTI~, CPTI+7*, CPTI+20, CPTI+22
T	WH~, WH+2, WH+10, PLCODE+3~, PLCODE+5, PLCODE+6, PLCODE+7, PLTAX+3~, PLTAX+4, PLTAX+5 , CPT~, CPT+2, CPT+16, RAD~, RAD+2, RAD+15, TRAN~, TRAN+2, TRAN+14, GETMEDS+6~ , GETMEDS+24*, GETMEDS+35, CPTREFT~, CPTREFT+2, CPTREFT+9
T1	GETMEDS+6~, GETMEDS+25*, GETMEDS+34
>> T2	GETMEDS+26*, GETMEDS+32
TAXC	GETMEDS~, GETMEDS+3*, GETMEDS+26, GETMEDS+37
TAXM	GETMEDS~, GETMEDS+1*, GETMEDS+24, GETMEDS+37
TAXN	GETMEDS~, GETMEDS+2*, GETMEDS+25, GETMEDS+37
>> TRANI	TRANI+2
U	WH+10, WH+12, WH+21, WH+22, PLCODE+7, PLTAX+5, CPT+14, CPT+16, CPT+23, CPT+24 , CPT+25, CPT+26, RAD+14, RAD+22, RAD+23, RAD+24, RAD+25, CPTI+14, CPTI+15, TRANI+10 , TRANI+12, TRANI+13, TRAN+14, TRAN+21, TRAN+22, TRAN+23, TRAN+24, LASTITEM+7, GETMEDS+12, GETMEDS+16 , GETMEDS+27, GETMEDS+30, GETMEDS+31, GETMEDS+33, GETMEDS+36, CPTREFT+7, CPTREFT+8, CPTREFT+10
V	WH+7~, WH+8, WH+9, WH+10, WH+11, WH+12, WH+16, CPT+8~, CPT+11, CPT+12 , CPT+13, CPT+14, CPT+15, CPT+23, CPT+24, CPT+25, CPT+26, RAD+7~, RAD+10, RAD+11 , RAD+12, RAD+13, RAD+22, RAD+23, RAD+24, RAD+25, CPTI+10~, CPTI+14, CPTI+15, CPTI+16 , TRANI+7~, TRANI+12, TRANI+13, TRANI+14, TRANI+15, TRANI+16, TRAN+7~, TRAN+10, TRAN+11, TRAN+12 , TRAN+13, TRAN+21, TRAN+22, TRAN+23, TRAN+24*
X	WH+7~, PLCODE+7~, PLTAX+5~, CPT+8~, CPT+15, CPT+16, RAD+7~, RAD+13, RAD+14, RAD+15 , CPTI+10~, TRANI+7~, TRANI+9, TRANI+10, TRANI+12, TRAN+7~, TRAN+13, TRAN+14, GETMEDS+6~, GETMEDS+18* , GETMEDS+19, GETMEDS+20, GETMEDS+22, GETMEDS+27, GETMEDS+38, CPTREFT+5~, CPTREFT+8*
Y	WH+7~, PLCODE+7~, PLTAX+5~, CPT+8~, RAD+7~, CPTI+10~, TRAN+7~, LASTITEM+5~, GETMEDS+6~, GETMEDS+20* , GETMEDS+22, GETMEDS+27, GETMEDS+28, GETMEDS+30, CPTREFT+5~, CPTREFT+8, CPTREFT+10
Z	CPTI+10~, CPTREFT+5~

Customize PDF page

Package: Diabetes Registry

Routine: BDMD4DU

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend: