Routine: BUDHRPTD

Package	Total	Call Graph
IHS Uniform Data System	3	$$VER^BUDHBAN WDEL^BUDHRPTQ (COVPAGED,COVPAGEP)^BUDHUTL1
IHS VA Utilities	2	$$VAL^XBDIQ1 ^XBGSAVE
Patient Care Component Reports	2	$$START1^APCLDF ($$CLINIC,$$PRIMPOV,$$PRIMPROV,$$VD)^APCLV
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package

Total

Call Graph

IHS Uniform Data System

$$VER^BUDHBAN WDEL^BUDHRPTQ (COVPAGED,COVPAGEP)^BUDHUTL1

IHS VA Utilities

$$VAL^XBDIQ1 ^XBGSAVE

Patient Care Component Reports

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

Kernel

$$FMTE^XLFDT

VA Fileman

^DIR

Package	Total	Caller Graph
IHS Uniform Data System	6	BUDHRP6B BUDHRP7 BUDHRP71 BUDHRPTC BUDHRPTL BUDHRPTP

Package

Total

Caller Graph

IHS Uniform Data System

BUDHRP6B BUDHRP7 BUDHRP71 BUDHRPTC BUDHRPTL BUDHRPTP

Entry Points

Name	Comments	DBIA/ICR reference
ENAB
SAVEDEL	;EP
S(V)	;
SUB
T6DH	;EP
LOTE(P,V)	;
TZH1	;
SET
CTR(X,Y)	;EP
DENT
A6
TZH	;EP
VISION
SCREEN	;
T5	;now get visits for table 5 1 per provider type per day
WDEL	;EP - write out delimited file 9d
MEDC1
OTH
MEDC
MH
TZHD	;EP
GETV	;EP - get all visits for this patient and tally in BUDTV

External References

Name	Field # of Occurrence
$$START1^APCLDF	GETV+11
$$CLINIC^APCLV	GETV+25, T5+10, A6+8
$$PRIMPOV^APCLV	MH+3
$$PRIMPROV^APCLV	GETV+23, GETV+28, GETV+30, T5+13, T5+16, T5+19
$$VD^APCLV	GETV+35, GETV+36, T5+18, A6+13, A6+14, LOTE+5
$$VER^BUDHBAN	TZH1+4, TZHD+3, T6DH+4
WDEL^BUDHRPTQ	WDEL+1
COVPAGED^BUDHUTL1	SAVEDEL+7
COVPAGEP^BUDHUTL1	SCREEN+1
^DIR	TZH+3
$$VAL^XBDIQ1	MEDC+3, A6+31, A6+45, LOTE+12, LOTE+15
^XBGSAVE	SAVEDEL+13
$$FMTE^XLFDT	GETV+11, A6+31, A6+45, TZH1+3, TZH1+7, TZHD+2, TZHD+6, T6DH+3, T6DH+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: TZH+3
Function Call: WRITE	Prompt: !,$$CTR("*** SENSITIVE INFORMATION ***",IOM) Line Location: TZH1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?55,"Section "_BUDSCTC_" of "_BUDTSCTC_", Page "_BUDGPG,! Line Location: TZH1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" *",80) Line Location: TZH1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List: Patient by Zip Code/Insurance",80),! Line Location: TZH1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: TZH1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: TZH1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: TZH1+9
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: TZH1+10
Function Call: WRITE	Prompt: !,"List of all patients with one or more visits during the calendar year." Line Location: TZH1+11
Function Call: WRITE	Prompt: !,"Zip code is from patient registration." Line Location: TZH1+12
Function Call: WRITE	Prompt: !!,"NOTE: Patients with a zip code included in the Other Zip Codes category" Line Location: TZH1+13
Function Call: WRITE	Prompt: !,"have their zip code value followed by a ""","",""" (e.g. 87015)." Line Location: TZH1+14
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"ZIP CODE",?65,"INS" Line Location: TZH1+15
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION" Line Location: TZH1+16
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: TZH1+18
Function Call: WRITE	Prompt: !," " Line Location: SCREEN+2
Function Call: WRITE	Prompt: !,^TMP($J,"BUDDEL",X) Line Location: SCREEN+3
Function Call: WRITE	Prompt: !!,"*** END OF REPORT ***",! Line Location: SCREEN+4
Routine Call	DIR Line Location: TZH+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	LOTE+7, LOTE+9, LOTE+10, LOTE+13
^AUPNVPOV("AD"	GETV+32, T5+9
^AUPNVSIT - [#9000010]	GETV+15, GETV+16, GETV+17, GETV+18, GETV+21, T5+2, T5+3, T5+4, T5+5, T5+8 , MEDC1+3, MEDC1+4, DENT+6, DENT+7, MH+8, MH+9, SUB+6, SUB+7, VISION+6, VISION+7 , OTH+5, OTH+6, ENAB+5, ENAB+6, A6+1, A6+2, A6+3, A6+4, A6+7, A6+13 , A6+14
^BUDDATA	SAVEDEL+4, SAVEDEL+6!, SAVEDEL+15, SAVEDEL+16!, SAVEDEL+8, SAVEDEL+9, SAVEDEL+10*
^BUDHCNTL - [#90669.902]	GETV+27, T5+12, MEDC1+1, DENT+4, MH+6, SUB+4, VISION+4, ENAB+3, A6+10
^BUDHCNTL("B"	GETV+26, T5+11, MEDC+2, DENT+2, MH+2, SUB+2, VISION+2, ENAB+2, A6+9
^BUDHSITE - [#90669.901]	GETV+20, GETV+24, T5+7, T5+17, A6+6, A6+29, A6+43
^BUDHTFIV - [#90669.905]	OTH+3
^BUDHTFIV("AA"	MEDC+5
^BUDHTFIV("B"	OTH+1
^BUDHTFIV("C"	MEDC+4
^BWPCD - [#9002086.1]	A6+22, A6+23, A6+24, A6+27, A6+30, A6+36, A6+37, A6+38, A6+41, A6+44
^BWPCD("C"	A6+21, A6+35
^BWPN("B"	A6+17, A6+18, A6+19, A6+33
^DIC(4 - [#4]	TZH1+6, TZHD+5, T6DH+6
^TMP($J	GETV+5!, GETV+12, GETV+14, GETV+34, T5+1, MEDC1+2, MEDC1+4, DENT+5, DENT+7, MH+7 , MH+9, SUB+5, SUB+7, VISION+5, VISION+7, OTH+4, OTH+6, ENAB+4, ENAB+6, SET+1* , A6, A6+13, A6+14, A6+15, A6+31, A6+45, S+2*, SAVEDEL+5!, SAVEDEL+9, SAVEDEL+17! , SCREEN+3
^VA(200 - [#200]	TZH1+3, TZHD+2, T6DH+3

Label References

Name	Line Occurrences
$$CTR	TZH1+2, TZH1+4, TZH1+5, TZH1+6, TZH1+7, TZH1+9
MEDC1	MEDC+3, MEDC+4
S	TZHD+1, TZHD+2, TZHD+3, TZHD+4, TZHD+5, TZHD+6, TZHD+7, TZHD+8, TZHD+9, TZHD+10 , TZHD+11, TZHD+12, TZHD+13, T6DH+1, T6DH+2, T6DH+3, T6DH+4, T6DH+5, T6DH+6, T6DH+7 , T6DH+8, T6DH+9, T6DH+10, T6DH+11, T6DH+12, T6DH+13, T6DH+15, T6DH+16
SCREEN	SAVEDEL+1
SUB	MH+4
TZH1	TZH+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LOTE+4~, LOTE+6*
>> A	GETV+11*
>> B	GETV+11*
>> BUDBD	GETV+11, A6+25, A6+39, TZH1+7, TZHD+6, T6DH+7
>> BUDBEN	TZH1+8, TZHD+7, T6DH+8
>> BUDCLINC	GETV+25, GETV+27, T5+10, T5+12, A6+8*, A6+10
>> BUDDECNT	S+1*, S+2
>> BUDDELF	SAVEDEL+12
>> BUDDELT	SAVEDEL+1
>> BUDED	GETV+11, A6+26, A6+40, TZH1+7, TZHD+6, T6DH+7
>> BUDFRSTV	GETV+10, GETV+36
>> BUDGPG	TZH+2, TZH1+1*, TZH1+3
>> BUDLASTV	GETV+9, GETV+35
>> BUDLINE	MEDC+3, MEDC+4, MEDC+5*, MEDC1+1, DENT+4, MH+6, SUB+4, VISION+4, ENAB+3
>> BUDMEDV	GETV+7, MEDC1+5
>> BUDMEDVI	GETV+8, MEDC1+5
>> BUDP	TZH1+11, TZH1+12, TZH1+13, TZH1+14, TZH1+17*
>> BUDPP	GETV+28, GETV+29, T5+13, T5+14
>> BUDPPD	GETV+30, GETV+31, T5+19, T5+20, MEDC+3, MEDC+4, MEDC+5, OTH+3, OTH+4, OTH+6 , ENAB+4, ENAB+6
>> BUDQUIT	TZH+3*
>> BUDROT	TZH+1
>> BUDSCTC	TZH1+3
>> BUDSITE	GETV+20, GETV+24, T5+7, T5+17, A6+6, A6+29, A6+43, TZH1+6, TZHD+5, T6DH+6
>> BUDTIEN	GETV+26, GETV+27, T5+11, T5+12, MEDC+2, MEDC1+1, MEDC1+2, MEDC1+4, DENT+2, DENT+4 , DENT+5, DENT+7, MH+2, MH+6, MH+7, MH+9, SUB+2, SUB+4, SUB+5, SUB+7 , VISION+2, VISION+4, VISION+5, VISION+7, OTH+1, OTH+3, ENAB+2, ENAB+3, A6+9, A6+10
>> BUDTSCTC	TZH1+3
>> BUDUDSPT	GETV+6, GETV+33, GETV+37
>> BUDVDATE	T5+18*, MEDC1+2, MEDC1+4, DENT+5, DENT+7, MH+7, MH+9, SUB+5, SUB+7, VISION+5 , VISION+7, OTH+4, OTH+6, ENAB+4, ENAB+6
>> BUDVLOC	GETV+18, GETV+19, GETV+20, T5+5, T5+6, T5+7, MEDC1+2, MEDC1+4, DENT+5, DENT+7 , MH+7, MH+9, SUB+5, SUB+7, VISION+5, VISION+7, OTH+4, OTH+6, ENAB+4, ENAB+6 , A6+4*, A6+5, A6+6
>> BUDVSIT	GETV+14, GETV+15, GETV+16, GETV+17, GETV+18, GETV+21, GETV+23, GETV+25, GETV+28, GETV+30 , GETV+32, GETV+34, GETV+35, GETV+36, T5+1, T5+2, T5+3, T5+4, T5+5, T5+8 , T5+9, T5+10, T5+13, T5+16, T5+18, T5+19, MEDC+3, MEDC1+3, MEDC1+4, MEDC1+5 , DENT+6, DENT+7, MH+3, MH+8, MH+9, SUB+6, SUB+7, VISION+6, VISION+7, OTH+5 , OTH+6, ENAB+5, ENAB+6, SET+1, A6*, A6+1, A6+2, A6+3, A6+4, A6+7 , A6+8, A6+13, A6+14, A6+15
>> BUDX	GETV+14, T5+1, A6*
>> BUDY	MEDC+4*
>> C	SAVEDEL+8, SAVEDEL+9, SAVEDEL+10*
D	MEDC1+2, MEDC1+3, DENT+5, DENT+6, MH+7, MH+8, SUB+5, SUB+6, VISION+5, VISION+6 , OTH+4, OTH+5, ENAB+4, ENAB+5, A6+23, A6+25, A6+26, A6+31, A6+37, A6+39 , A6+40, A6+45, LOTE+4~, LOTE+5, LOTE+7
>> DFN	GETV+11, MEDC1+2, MEDC1+4, DENT+5, DENT+7, MH+7, MH+9, SUB+5, SUB+7, VISION+5 , VISION+7, OTH+4, OTH+6, ENAB+4, ENAB+6, A6+13, A6+14, A6+21, A6+35
DIR	TZH+3!
DIR(0	TZH+3*
DT	TZH1+3, TZHD+2, T6DH+3
>> DTOUT	TZH+3
DUZ	TZH1+3, TZHD+2, T6DH+3
>> E	GETV+11*
>> G	A6+21, A6+35
IO	TZH+3
IO(0	TZH+3
IOF	TZH1+1
IOM	TZH1+2, CTR+1
IOST	TZH+3
IR	LOTE+4~, LOTE+6*
>> J	GETV+23, GETV+24, T5+16, T5+17, A6+24, A6+38
L	A6+27, A6+28, A6+29, A6+41, A6+42, A6+43, LOTE+4~, LOTE+6, LOTE+7, LOTE+8 , LOTE+9, LOTE+10, LOTE+13
P	MH+3*, MH+4, LOTE~, LOTE+7, LOTE+9, LOTE+10, LOTE+13
PL	LOTE+4~, LOTE+6, LOTE+10, LOTE+11, LOTE+12, LOTE+13*, LOTE+14, LOTE+15
RL	LOTE+4~, LOTE+6*
>> S	MEDC+1, MEDC1, MEDC1+3, MEDC1+6, DENT+1, DENT+3, DENT+6, DENT+8, MH+1, MH+5 , MH+8, MH+10, SUB+1, SUB+3, SUB+6, SUB+8, VISION+1, VISION+3, VISION+6, VISION+8 , OTH+2, OTH+5, OTH+7, ENAB+1, ENAB+5*, ENAB+7
>> T	A6+17, A6+24, A6+33, A6+38
>> T1	A6+18*, A6+24
>> T2	A6+19*, A6+24
U	GETV+14, GETV+16, GETV+17, GETV+18, GETV+21, T5+1, T5+3, T5+4, T5+5, T5+8 , MEDC1+2, MEDC1+3, MEDC1+4, DENT+5, DENT+6, DENT+7, MH+7, MH+8, MH+9, SUB+5 , SUB+6, SUB+7, VISION+5, VISION+6, VISION+7, OTH+4, OTH+5, OTH+6, ENAB+4, ENAB+5 , ENAB+6, A6, A6+2, A6+3, A6+4, A6+7, A6+13, A6+14, A6+23, A6+24 , A6+27, A6+30, A6+31, A6+37, A6+38, A6+41, A6+44, A6+45, TZH1+3, TZH1+6 , LOTE+9, LOTE+10, LOTE+13, TZHD+2, TZHD+5, T6DH+3, T6DH+6
V	A6+21, A6+22, A6+23, A6+24, A6+27, A6+30, A6+31, A6+35, A6+36, A6+37 , A6+38, A6+41, A6+44, A6+45, LOTE~, LOTE+5, S~, S+2
X	TZH1+7, TZH1+8, TZH1+9, CTR~, CTR+1, LOTE+4~, LOTE+6, LOTE+7, TZHD+6, TZHD+7 , TZHD+12, SAVEDEL+9, SCREEN+3, T6DH+7, T6DH+8*
XBE	SAVEDEL+14!
XBF	SAVEDEL+12*, SAVEDEL+14!
XBFLT	SAVEDEL+12*, SAVEDEL+14!
XBFN	SAVEDEL+12*, SAVEDEL+14!
>> XBGL	SAVEDEL+3*
XBMED	SAVEDEL+12*, SAVEDEL+14!
>> XBQ	SAVEDEL+12*
XBTLE	SAVEDEL+12*, SAVEDEL+14!
Y	TZH+3, CTR~, CTR+1, LOTE+4~, LOTE+6, LOTE+7
>> ZTQUEUED	TZH+3, SAVEDEL+4

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDHRPTD

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: