Routine: BUDCDU

Information

BUDCDU ; IHS/CMI/LAB - gpra utility calls ;

Call Graph

Call Graph Total: 8

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

Package	Total	Caller Graph
IHS Uniform Data System	17	BUDCRP6B BUDCRP6C BUDCRP6D BUDCRP6H BUDCRP6M BUDCRP6N BUDCRP6O BUDCRP6U BUDCRP6V BUDCRP6W BUDCRP6X BUDCRP6Y BUDCRP7 BUDCRP7A BUDCRP7B BUDCRP7C BUDCRPTC

Entry Points

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
SIGCPTS	;;
WH(P,BDATE,EDATE,T,F)	;EP
COLOCPTS	;;
RAD(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT
TRANI(P,BDATE,EDATE,CPTI)	;EP
BECPTS	;;
PLCODE(P,A,ED)	;EP
SITE
DEMO(P,T)	;EP - exclude demo patients
CPT(P,BDATE,EDATE,T,F,SCEX)	;EP - return ien of CPT entry if patient had this CPT
XIT	;
LASTITEM(P,BD,ED,BUDT,BUDV)	;PEP - return last item APCLV OF TYPE APCLT DURING BD TO ED IN FORM APCLF
V	; GET VERSION
PRINT
PLCL(P,A,S)	;EP - is DX on problem list 1 or 0
BANNER	;EP
CPTI(P,BDATE,EDATE,CPTI,SCEX,SCLN,SMOD)	;EP - did patient have this cpt (ien) in date range
DATE(D)	;EP

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(BUDX)\2,BUDX Line Location: PRINT+1
Function Call: WRITE	Prompt: !?80-(8+$L(BUD("VERSION")))/2,"Version ",BUD("VERSION") Line Location: PRINT+2
Function Call: WRITE	Prompt: !!?80-$L(BUD("SITE"))\2,BUD("SITE") Line Location: SITE+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	PLTAX+3
^AUPNPROB - [#9000011]	PLCODE+8, PLTAX+5, PLCL+6, PLCL+7, PLCL+8, PLCL+9
^AUPNPROB("AC"	PLCODE+8, PLTAX+5, PLCL+6
^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
^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
^BUDCTSSC("AD"	PLCL+9
^BUDCTSSC("B"	PLCL+4
^BWPCD - [#9002086.1]	WH+9, WH+10, WH+11, WH+20, WH+21
^BWPCD("C"	WH+8
^DIBT(	DEMO+11, DEMO+17
^DIBT("B"	DEMO+9, DEMO+15
^DIC(4 - [#4]	SITE
^DPT - [#2]	DEMO+7, DEMO+13
^ICPT - [#81]	CPTI+8, TRANI+5
^RAMIS(71 - [#71]	RAD+14, RAD+24, RAD+25

Label References

Name	Line Occurrences
PRINT	V+2
XIT	SITE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DEMO+8~, DEMO+9, DEMO+10, DEMO+11, DEMO+14~, DEMO+15, DEMO+16, DEMO+17, LASTITEM+5~*
A	PLCODE~, PLCODE+2, PLCODE+6, PLTAX~, PLTAX+2, PLTAX+3, PLCL~, PLCL+2, PLCL+4
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+12, 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
>> BUD("SITE"	SITE*, XIT+1!
>> BUD("VERSION"	V+1*, PRINT+2, XIT+1!
BUDJ	V+3, PRINT+1, XIT+1!
BUDLINE	V+2, V+3, PRINT+1, XIT+1!
BUDR	LASTITEM+5~
BUDR(1	LASTITEM+6, LASTITEM+7
BUDT	LASTITEM~, LASTITEM+3, LASTITEM+5
BUDTEXT	V+2*, XIT+1!
BUDV	LASTITEM~, LASTITEM+4, LASTITEM+5
BUDX	V+3, PRINT+1!, XIT+1!
C	RAD+7~, RAD+14, RAD+15, TRANI+7~, TRANI+10, TRANI+11
CPTI	CPTI~, CPTI+2, CPTI+8, CPTI+12, CPTI+13, TRANI~, TRANI+5, TRANI+11
D	DATE~, DATE+1, DATE+2, WH+7~, WH+11, WH+12, WH+13, WH+14, WH+15, WH+20 , WH+21*, CPT+8~, RAD+7~, CPTI+10~, TRAN+7~
DT	PLCODE+3, LASTITEM+2
DUZ(2	SITE
E	LASTITEM+5~*
ED	PLCODE~, PLCODE+3, 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+13, 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
F	WH~, WH+3, WH+18, WH+19, WH+20, WH+21, 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+15, WH+17, WH+18, WH+19, WH+20, WH+21, 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
G(	WH+15*
G(0	WH+14
I	WH+8, WH+14, PLCODE+8~, PLCODE+9, PLTAX+5~, PLTAX+6, PLCL+6~, PLCL+9, PLCL+10, CPTI+10~ , CPTI+13*, CPTI+14, CPTI+17, CPTI+18
IOF	PRINT
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	DEMO~, DEMO+1, DEMO+7, DEMO+11, DEMO+13, DEMO+17, WH~, WH+1, WH+8, PLCODE~ , PLCODE+1, PLCODE+8, PLTAX~, PLTAX+1, PLTAX+5, PLCL~, PLCL+1, PLCL+6, 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
Q	CPTI+10~, CPTI+19, CPTI+20, CPTI+21, CPTI+22*, CPTI+23
R	DEMO+4~, DEMO+5, DEMO+6, DEMO+7, DEMO+10, DEMO+11, DEMO+12, DEMO+13, DEMO+16, DEMO+17* , DEMO+18*, LASTITEM+5!
S	PLCL~, PLCL+3*, PLCL+8
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	DEMO~, DEMO+2, DEMO+3, DEMO+6, DEMO+12, WH~, WH+2, WH+10, PLCODE+4~, PLCODE+6 , PLCODE+7, PLCODE+8, PLTAX+3~, PLTAX+4, PLTAX+5, PLCL+4~, PLCL+5, PLCL+9, CPT~, CPT+2 , CPT+16, RAD~, RAD+2, RAD+15, TRAN~, TRAN+2, TRAN+14
>> TRANI	TRANI+2
U	DEMO+7, DEMO+13, WH+10, WH+11, WH+20, WH+21, PLCODE+8, PLTAX+5, PLCL+7, PLCL+8 , PLCL+9, 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
V	WH+7~, WH+8, WH+9, WH+10, WH+11, WH+15, 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+8~, PLTAX+5~, PLCL+6~, PLCL+7, PLCL+8, PLCL+9, 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
Y	WH+7~, PLCODE+8~, PLTAX+5~, PLCL+6~, PLCL+9, CPT+8~, RAD+7~, CPTI+10~, TRAN+7~, LASTITEM+5~
Z	CPTI+10~

Marked Items

Name	Field # of Occurrence
$T(@BUDTEXT+BUDJ	V+3, PRINT+1

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDCDU

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items