Routine: BUDHDU

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
Taxonomy	2	$$ICD^ATXAPI $$ICD^ATXCHK
IHS Patient	1	$$DOB^AUPNPAT
IHS Uniform Data System	1	GENI^BUDHRP6B
Kernel	1	($$FMADD,$$FMTE)^XLFDT
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

Taxonomy

$$ICD^ATXAPI $$ICD^ATXCHK

IHS Patient

$$DOB^AUPNPAT

IHS Uniform Data System

GENI^BUDHRP6B

Kernel

($$FMADD,$$FMTE)^XLFDT

VA Fileman

^DIR

Package	Total	Caller Graph
IHS Uniform Data System	31	BUDHRP61 BUDHRP6A BUDHRP6B BUDHRP6C BUDHRP6D BUDHRP6F BUDHRP6G BUDHRP6H BUDHRP6I BUDHRP6J BUDHRP6K BUDHRP6L BUDHRP6M BUDHRP6N BUDHRP6O BUDHRP6P BUDHRP6R BUDHRP6S BUDHRP6T BUDHRP6U BUDHRP6V BUDHRP6X BUDHRP6Y BUDHRP7 BUDHRP7A BUDHRP7B BUDHRP7C BUDHRPTC BUDHRPTE BUDHUTL2 BUDHUTL3

Package

Total

Caller Graph

IHS Uniform Data System

BUDHRP61  BUDHRP6A  BUDHRP6B  BUDHRP6C  BUDHRP6D  BUDHRP6F  BUDHRP6G  BUDHRP6H
BUDHRP6I  BUDHRP6J  BUDHRP6K  BUDHRP6L  BUDHRP6M  BUDHRP6N  BUDHRP6O  BUDHRP6P
BUDHRP6R  BUDHRP6S  BUDHRP6T  BUDHRP6U  BUDHRP6V  BUDHRP6X  BUDHRP6Y  BUDHRP7
BUDHRP7A  BUDHRP7B  BUDHRP7C  BUDHRPTC  BUDHRPTE  BUDHUTL2  BUDHUTL3

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	;
IPLSNOND(P,T,E,Z)	;EP - any problem list entry with a SNOMED in T
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
PLTAXND(P,A,E,Z)
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^ATXAPI	PLTAXND+18
$$ICD^ATXCHK	PLTAX+5, CPT+16, RAD+15, TRAN+14
$$DOB^AUPNPAT	PLCL+5, LASTITEM+1
GENI^BUDHRP6B	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, PLTAXND+21
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 2018",80) Line Location: IN6B+4
Function Call: WRITE	Prompt: !!,$P(^BUDHLST2(BUDLST2I,0),U,1)_" (Table 6B)",! Line Location: IN6B+5
Function Call: WRITE	Prompt: !,^BUDHLST2(BUDLST2I,11,X,0) Line Location: IN6B+8
Function Call: WRITE	Prompt: ! Line Location: IN6B+9
Function Call: WRITE	Prompt: !,^BUDHLST2(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, PLTAXND+7
^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, PLTAXND+12, PLTAXND+13, PLTAXND+14, PLTAXND+15, PLTAXND+16, PLTAXND+17, PLTAXND+19, PLTAXND+20, IPLSNOND+10 , IPLSNOND+11, IPLSNOND+12, IPLSNOND+14, IPLSNOND+15, IPLSNOND+16, IPLSNOND+17
^AUPNPROB("AC"	PLCODE+9, PLTAX+5, PLCL+8, PLTAXND+11
^AUPNPROB("APCT"	IPLSNOND+8, IPLSNOND+9
^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
^BUDHLST2 - [#90669.906]	IN6B+5, IN6B+8, HT6B+4, HT6B+7
^BUDHLST2("C"	IN6B+1, HT6B+2
^BUDHTSSC - [#90669.908]	IPLSNOND+13
^BUDHTSSC("AD"	PLCL+18
^BUDHTSSC("AS"	PLCL+19
^BUDHTSSC("B"	PLCL+6, IPLSNOND+7
^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, PLTAXND~ , PLTAXND+4, PLTAXND+7
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~, PLTAXND+9~ , PLTAXND+19, PLTAXND+20, PLTAXND+21, IPLSNOND+16, IPLSNOND+17*, IPLSNOND+18
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~, PLTAXND~, PLTAXND+5, PLTAXND+16, PLTAXND+17, IPLSNOND~, IPLSNOND+4*, IPLSNOND+14, IPLSNOND+15
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, IPLSNOND+2~ , IPLSNOND+3, IPLSNOND+8, IPLSNOND+9, IPLSNOND+18*, IPLSNOND+19
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, PLTAXND+9~, PLTAXND+10, PLTAXND+11, PLTAXND+21* , PLTAXND+23
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, PLTAXND~, PLTAXND+3, PLTAXND+11, IPLSNOND~, IPLSNOND+8, IPLSNOND+9
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, PLTAXND+7~, PLTAXND+8, PLTAXND+18, IPLSNOND~, IPLSNOND+6, IPLSNOND+7*, IPLSNOND+13
>> 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, PLTAXND+13, PLTAXND+14 , PLTAXND+15, PLTAXND+16, PLTAXND+17, PLTAXND+19, PLTAXND+20, PLTAXND+21, IPLSNOND+11, IPLSNOND+12, IPLSNOND+14, IPLSNOND+15 , IPLSNOND+16, IPLSNOND+17, IPLSNOND+18
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, PLTAXND+9~, PLTAXND+10, PLTAXND+11, PLTAXND+12, PLTAXND+13, PLTAXND+14, PLTAXND+15, PLTAXND+16 , PLTAXND+17, PLTAXND+19, PLTAXND+20, PLTAXND+21, IPLSNOND+2~, IPLSNOND+3, IPLSNOND+8, IPLSNOND+9, IPLSNOND+13, IPLSNOND+18
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~, PLTAXND+9~, PLTAXND+10, PLTAXND+15, PLTAXND+18, IPLSNOND+2~, IPLSNOND+9 , IPLSNOND+10, IPLSNOND+11, IPLSNOND+12, IPLSNOND+14, IPLSNOND+15, IPLSNOND+16, IPLSNOND+17
Z	CPTI+10~, PLTAXND~, PLTAXND+6, PLTAXND+14, IPLSNOND~, IPLSNOND+5, IPLSNOND+12

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDHDU

Information

Source Information

Call Graph

Call Graph Total: 12

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