Routine: BUDEDU

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^BUDERP6B
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^BUDERP6B

Kernel

($$FMADD,$$FMTE)^XLFDT

Taxonomy

$$ICD^ATXCHK

VA Fileman

^DIR

Package	Total	Caller Graph
IHS Uniform Data System	31	BUDERP61 BUDERP6A BUDERP6B BUDERP6C BUDERP6D BUDERP6F BUDERP6G BUDERP6H BUDERP6I BUDERP6J BUDERP6K BUDERP6L BUDERP6M BUDERP6N BUDERP6O BUDERP6P BUDERP6R BUDERP6S BUDERP6T BUDERP6U BUDERP6V BUDERP6X BUDERP6Y BUDERP7 BUDERP7A BUDERP7B BUDERP7C BUDERPTC BUDERPTE BUDHRP6N BUDHUTL2

Package

Total

Caller Graph

IHS Uniform Data System

BUDERP61  BUDERP6A  BUDERP6B  BUDERP6C  BUDERP6D  BUDERP6F  BUDERP6G  BUDERP6H
BUDERP6I  BUDERP6J  BUDERP6K  BUDERP6L  BUDERP6M  BUDERP6N  BUDERP6O  BUDERP6P
BUDERP6R  BUDERP6S  BUDERP6T  BUDERP6U  BUDERP6V  BUDERP6X  BUDERP6Y  BUDERP7
BUDERP7A  BUDERP7B  BUDERP7C  BUDERPTC  BUDERPTE  BUDHRP6N  BUDHUTL2

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^BUDERP6B	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 2017",80) Line Location: IN6B+4
Function Call: WRITE	Prompt: !!,$P(^BUDELST2(BUDLST2I,0),U,1)_" (Table 6B)",! Line Location: IN6B+5
Function Call: WRITE	Prompt: !,^BUDELST2(BUDLST2I,11,X,0) Line Location: IN6B+8
Function Call: WRITE	Prompt: ! Line Location: IN6B+9
Function Call: WRITE	Prompt: !,^BUDELST2(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
^BUDELST2 - [#90669.6]	IN6B+5, IN6B+8, HT6B+4, HT6B+7
^BUDELST2("C"	IN6B+1, HT6B+2
^BUDETSSC("AD"	PLCL+18
^BUDETSSC("AS"	PLCL+19
^BUDETSSC("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: BUDEDU

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 31

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items