Routine: BUDDDU

Package	Total	Call Graph
DRG Grouper	2	$$CODEN^ICDEX $$CPT^ICPTCOD
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBVK
Patient Care Component Reports	2	$$START1^APCLDF ($$CLINIC,$$VD)^APCLV
IHS Patient	1	$$DOB^AUPNPAT
IHS Uniform Data System	1	GENI^BUDDRP6B
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Taxonomy	1	$$ICD^ATXCHK
VA Fileman	1	^DIR

Package

Total

Call Graph

DRG Grouper

$$CODEN^ICDEX $$CPT^ICPTCOD

IHS VA Utilities

$$VAL^XBDIQ1 EN^XBVK

Patient Care Component Reports

$$START1^APCLDF ($$CLINIC,$$VD)^APCLV

IHS Patient

$$DOB^AUPNPAT

IHS Uniform Data System

GENI^BUDDRP6B

Kernel

($$FMADD,$$FMTE)^XLFDT

Taxonomy

$$ICD^ATXCHK

VA Fileman

^DIR

Package	Total	Caller Graph
IHS Uniform Data System	29	BUDDRP61 BUDDRP6A BUDDRP6B BUDDRP6C BUDDRP6D BUDDRP6F BUDDRP6G BUDDRP6H BUDDRP6I BUDDRP6J BUDDRP6K BUDDRP6L BUDDRP6M BUDDRP6N BUDDRP6O BUDDRP6P BUDDRP6R BUDDRP6S BUDDRP6T BUDDRP6U BUDDRP6V BUDDRP6X BUDDRP6Y BUDDRP7 BUDDRP7A BUDDRP7B BUDDRP7C BUDDRPTC BUDDRPTE

Package

Total

Caller Graph

IHS Uniform Data System

BUDDRP61  BUDDRP6A  BUDDRP6B  BUDDRP6C  BUDDRP6D  BUDDRP6F  BUDDRP6G  BUDDRP6H
BUDDRP6I  BUDDRP6J  BUDDRP6K  BUDDRP6L  BUDDRP6M  BUDDRP6N  BUDDRP6O  BUDDRP6P
BUDDRP6R  BUDDRP6S  BUDDRP6T  BUDDRP6U  BUDDRP6V  BUDDRP6X  BUDDRP6Y  BUDDRP7
BUDDRP7A  BUDDRP7B  BUDDRP7C  BUDDRPTC  BUDDRPTE

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
S(V)	;
EOJ	;
PLCL(P,A,ED,S,BD)	;EP - is DX on problem list 1 or 0
CPTI(P,BDATE,EDATE,CPTI,SCEX,SCLN,SMOD)	;EP - did patient have this cpt (ien) in date range
PRINT
IN6B(T)	;EP
BANNER	;EP
SIGCPTS	;;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
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
LASTITEM(P,BD,ED,BUDT,BUDV)	;PEP - return last item APCLV OF TYPE APCLT DURING BD TO ED IN FORM APCLF
DATE(D)	;EP
PAUSE	;
WH(P,BDATE,EDATE,T,F)	;EP
HT6B(T)	;EP
COLOCPTS	;;
SITE
TRANI(P,BDATE,EDATE,CPTI)	;EP
XIT	;
V	; GET VERSION
PLCODE(P,A,ED,S)	;EP
BECPTS	;;
RAD(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT

External References

Name	Field # of Occurrence
$$START1^APCLDF	LASTITEM+5
$$CLINIC^APCLV	CPTI+16
$$VD^APCLV	PLCODE+15, PLCODE+18, PLCL+12, PLCL+15
$$ICD^ATXCHK	PLTAX+5, CPT+16, RAD+15, TRAN+14
$$DOB^AUPNPAT	PLCL+5, LASTITEM+1
GENI^BUDDRP6B	IN6B+6
^DIR	PAUSE+1
$$CODEN^ICDEX	PLCODE+7
$$CPT^ICPTCOD	CPT+25, CPT+26, TRAN+23, TRAN+24
$$VAL^XBDIQ1	PLCODE+21, PLTAX+5, PLCL+18, PLCL+19, CPTI+17, CPTI+18
EN^XBVK	EOJ+1
$$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: !,$$CTR($$LOC,80) Line Location: IN6B+3
Function Call: WRITE	Prompt: !,$$CTR("UDS 2016",80) Line Location: IN6B+4
Function Call: WRITE	Prompt: !!,$P(^BUDDLST2(BUDLST2I,0),U,1)_" (Table 6B)",! Line Location: IN6B+5
Function Call: WRITE	Prompt: !,^BUDDLST2(BUDLST2I,11,X,0) Line Location: IN6B+8
Function Call: WRITE	Prompt: ! Line Location: IN6B+9
Function Call: WRITE	Prompt: !,^BUDDLST2(L,12,X,0) Line Location: HT6B+4
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
Routine Call	DIR Line Location: PAUSE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	PLTAX+3
^AUPNPROB - [#9000011]	PLCODE+9, PLCODE+10, PLCODE+11, PLCODE+12, PLCODE+14, PLCODE+15, PLCODE+17, PLCODE+18, PLCODE+20, PLCODE+21 , PLTAX+5, PLCL+8, PLCL+9, PLCL+10, PLCL+11, PLCL+12, PLCL+14, PLCL+15, PLCL+17, PLCL+18 , PLCL+19
^AUPNPROB("AC"	PLCODE+9, PLTAX+5, PLCL+8
^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
^BUDDLST2 - [#90668.6]	IN6B+5, IN6B+8, HT6B+4, HT6B+7
^BUDDLST2("C"	IN6B+1, HT6B+2
^BUDDTSSC("AD"	PLCL+18
^BUDDTSSC("AS"	PLCL+19
^BUDDTSSC("B"	PLCL+6
^BWPCD - [#9002086.1]	WH+9, WH+10, WH+11, WH+20, WH+21
^BWPCD("C"	WH+8
^DIBT(	DEMO+14, DEMO+20
^DIBT("B"	DEMO+12, DEMO+18
^DIC(4 - [#4]	LOC+1, SITE
^DPT - [#2]	DEMO+7, DEMO+8, DEMO+9, DEMO+10, DEMO+16
^ICPT - [#81]	CPTI+8, TRANI+5
^RAMIS(71 - [#71]	RAD+14, RAD+24, RAD+25
^TMP($J	S+2*

Name	Line Occurrences
$$CTR	IN6B+3, IN6B+4
$$LOC	IN6B+3
PAUSE	IN6B+7
PRINT	V+2
S	HT6B+6, HT6B+7, HT6B+8
XIT	SITE

Name	Field # of Occurrence
^(0	LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DEMO+11~, DEMO+12, DEMO+13, DEMO+14, DEMO+17~, DEMO+18, DEMO+19, DEMO+20, LASTITEM+5~*
A	PLCODE~, PLCODE+2, PLCODE+7, PLCODE+9~, PLCODE+14, PLCODE+15, PLCODE+17, PLCODE+18, PLTAX~, PLTAX+2 , PLTAX+3, PLCL~, PLCL+2, PLCL+6, PLCL+8~, PLCL+11, PLCL+12, PLCL+14, PLCL+15
BD	PLCL~, PLCL+5, PLCL+13, PLCL+16, PLCL+17, 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!
>> BUDDECNT	S+1*, S+2
BUDJ	V+3, PRINT+1, XIT+1!
BUDLINE	V+2, V+3, PRINT+1, XIT+1!
>> BUDLST2I	IN6B+1*, IN6B+5, IN6B+8
BUDR	LASTITEM+5~
BUDR(1	LASTITEM+6, LASTITEM+7
>> BUDROT	HT6B+3, HT6B+5
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, PLCODE+9~, PLCODE+14, PLCODE+15, PLCODE+16, PLCODE+17, PLCODE+18, PLCODE+19, PLCL+8~, PLCL+11 , PLCL+12, PLCL+13, PLCL+14, PLCL+15*, PLCL+16, CPT+8~, RAD+7~, CPTI+10~, TRAN+7~
DA	PAUSE+1!
>> DFN	DEMO+8, DEMO+9, DEMO+10
DIR	PAUSE+1!
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1*
DT	PLCODE+3, PLCL+4, LASTITEM+2
DUZ(2	LOC+1, SITE
E	LASTITEM+5~*
ED	PLCODE~, PLCODE+3, PLCODE+16, PLCODE+19, PLCODE+20, PLCL~, PLCL+4, PLCL+13, PLCL+16, PLCL+17 , 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, PLCODE+9~, PLCODE+14* , PLCODE+16, PLCODE+17, PLCODE+19, PLCODE+20, PLCL+8~, PLCL+11, PLCL+13, PLCL+14, PLCL+16, PLCL+17 , 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+9~, PLCODE+21, PLCODE+22, PLTAX+5~, PLTAX+6, PLCL+8~, PLCL+18, PLCL+19 , PLCL+20, CPTI+10~, CPTI+13*, CPTI+14, CPTI+17, CPTI+18
IOF	IN6B+2, PRINT
IOM	CTR+1
J	CPTI+10~, CPTI+20, CPTI+22
K	CPTI+10~, CPTI+20, CPTI+22
L	HT6B+1~, HT6B+2*, HT6B+4, HT6B+7
M	CPTI+10~, CPTI+17*, CPTI+20
M1	CPTI+10~, CPTI+18*, CPTI+22
N	PLCL+6~, PLCL+19*
O	WH+7~
P	DEMO~, DEMO+1, DEMO+7, DEMO+14, DEMO+16, DEMO+20, WH~, WH+1, WH+8, PLCODE~ , PLCODE+1, PLCODE+9, PLTAX~, PLTAX+1, PLTAX+5, PLCL~, PLCL+1, PLCL+5, PLCL+8, 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+8, DEMO+9, DEMO+10, DEMO+13, DEMO+14, DEMO+15 , DEMO+16, DEMO+19, DEMO+20, DEMO+21*, LASTITEM+5!
S	PLCODE~, PLCODE+4, PLCODE+11, PLCL~, PLCL+3, PLCL+10
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	IN6B~, IN6B+1, HT6B~, HT6B+2, DEMO~, DEMO+2, DEMO+3, DEMO+6, DEMO+15, WH~ , WH+2, WH+10, PLCODE+5~, PLCODE+7, PLCODE+8, PLCODE+13, PLTAX+3~, PLTAX+4, PLTAX+5, PLCL+6~ , PLCL+7, PLCL+18, PLCL+19, CPT~, CPT+2, CPT+16, RAD~, RAD+2, RAD+15, TRAN~ , TRAN+2, TRAN+14
>> TRANI	TRANI+2
U	LOC+1, IN6B+5, DEMO+7, DEMO+8, DEMO+9, DEMO+10, DEMO+16, WH+10, WH+11, WH+20 , WH+21, PLCODE+10, PLCODE+11, PLCODE+12, PLCODE+15, PLCODE+18, PLCODE+20, PLCODE+21, PLTAX+5, PLCL+9 , PLCL+10, PLCL+12, PLCL+15, PLCL+17, PLCL+18, PLCL+19, 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	S~, S+2, 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	CTR~, CTR+1, IN6B+8, HT6B+4, HT6B+7, WH+7~, PLCODE+9~, PLCODE+10, PLCODE+11, PLCODE+12 , PLCODE+14, PLCODE+15, PLCODE+17, PLCODE+18, PLCODE+20, PLCODE+21, PLTAX+5~, PLCL+8~, PLCL+9, PLCL+10 , PLCL+11, PLCL+12, PLCL+14, PLCL+15, PLCL+17, PLCL+18, PLCL+19, 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	CTR~, CTR+1, WH+7~, PLCODE+9~, PLCODE+12, PLCODE+13, PLTAX+5~, PLCL+8~, PLCL+18*, CPT+8~ , RAD+7~, CPTI+10~, TRAN+7~, LASTITEM+5~
Z	CPTI+10~

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDDDU

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 29

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items