Routine: BUD5RPTP

Package	Total	Call Graph
IHS Uniform Data System	2	T6^BUD5RPP1 ^BUD5RPTL
VA Fileman	2	COMMA^%DTC ^DIR
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
IHS Uniform Data System	3	BUD5RPP1 BUD5RPT1 BUD5RPT2

Entry Points

Name	Comments	DBIA/ICR reference
T518
TZ	;
C(X,Y)	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEADER	;EP
T3ASH	;
EOJ	;
T4	;
T5	;print table 5
T3B	;
USR()	;EP - Return name of current user from ^VA(200.
T3A	;
T6	;
CTR(X,Y)	;EP - Center X in a field Y wide.
HEADER1	;
T5SH	;
T3BSH	;
PRINT	;EP
PATLISTS	;
TZSH	;

External References

Name	Field # of Occurrence
COMMA^%DTC	C+4
T6^BUD5RPP1	T6+1
^BUD5RPTL	PATLISTS+1
^DIR	HEADER+2
$$FMTE^XLFDT	HEADER1+5, HEADER1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " " Line Location: T3A+8
Function Call: WRITE	Prompt: !,$$CTR($G(^BUDVTTA(1,11)),80),! Line Location: T3ASH+1
Function Call: WRITE	Prompt: !,$P(^BUDVTTA(X,0),U,2),?5,$P(^BUDVTTA(X,0),U,3),?33,$P(^BUDVTTA(X,0),U,4),?50,$P(^BUDVTTA(X,0),U,5),?68,$P(^BUDVTTA(X,0),U,6) Line Location: T3ASH+2
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: T3ASH+3
Function Call: WRITE	Prompt: !!,$$CTR("TABLE 3B -",80) Line Location: T3BSH+1
Function Call: WRITE	Prompt: !,$$CTR("USERS BY RACE/ETHNICITY/LANGUAGE",80),! Line Location: T3BSH+2
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T3BSH+3
Function Call: WRITE	Prompt: !,"RACE/ETHNICITY/LANGUAGE",?65,"NUMBER (a)" Line Location: T3BSH+4
Function Call: WRITE	Prompt: !,"PROPORTION OF USERS" Line Location: T3BSH+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T3BSH+6
Function Call: WRITE	Prompt: !!,$$CTR("CENTER/GRANTEE PROFILE",80) Line Location: TZSH+1
Function Call: WRITE	Prompt: !,$$CTR("COVER SHEET",80),! Line Location: TZSH+2
Function Call: WRITE	Prompt: !!,$$CTR("USER/PATIENT BY ZIP CODE",80) Line Location: TZSH+4
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: TZSH+5
Function Call: WRITE	Prompt: !!?5,"ZIP CODE",?40,"USERS/PATIENTS" Line Location: TZSH+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: TZSH+7
Function Call: WRITE	Prompt: !?3,"1a.",?8,"Asian",?65,$$C(BUDRACET("1A")),!,BUD80L Line Location: T3B+3
Function Call: WRITE	Prompt: !?3,"1b.",?8,"Native Hawaiian",?65,$$C(BUDRACET("1B")),!,BUD80L Line Location: T3B+4
Function Call: WRITE	Prompt: !?3,"1c.",?8,"Other Pacific Islander",?65,$$C(BUDRACET("1C")),!,BUD80L Line Location: T3B+5
Function Call: WRITE	Prompt: !,"1.",?13,"Asian/Pacific Islander (sum lines 1a+1b+1c)",?65,$$C(BUDRACET("1A")+BUDRACET("1B")+BUDRACET("1C")),!,BUD80L Line Location: T3B+7
Function Call: WRITE	Prompt: !,"2.",?8,"Black/African American (not Hispanic or Latino)",?65,$$C(BUDRACET(2)),!,BUD80L Line Location: T3B+9
Function Call: WRITE	Prompt: !,"3.",?8,"American Indian/Alaska Native",?65,$$C(BUDRACET(3)),!,BUD80L Line Location: T3B+11
Function Call: WRITE	Prompt: !,"4.",?8,"White (not Hispanic or Latino)",?65,$$C(BUDRACET(4)),!,BUD80L Line Location: T3B+13
Function Call: WRITE	Prompt: !,"5.",?8,"Hispanic or Latino (all races)",?65,$$C(BUDRACET(5)),!,BUD80L Line Location: T3B+15
Function Call: WRITE	Prompt: !,"6.",?8,"Unreported / Refused to Report",?65,$$C(BUDRACET(6)),!,BUD80L Line Location: T3B+17
Function Call: WRITE	Prompt: !,"7.",?12,"TOTAL USERS (SUM LINES 1-6)",?65,$$C(Y),!,BUD80L Line Location: T3B+20
Function Call: WRITE	Prompt: !,"8.",?8,"Users needing interpretation/Bilingual/Sign Language Services",!,BUD80L Line Location: T3B+22
Function Call: WRITE	Prompt: !!?8,"TOTAL",?40,$$C(BUDZTOT) Line Location: TZ+18
Function Call: WRITE	Prompt: " " Line Location: T5+6
Function Call: WRITE	Prompt: !," 8.",?10,"TOTAL PHYSICIANS",!?8,"(Total Lines 1 through 7)",?60,$$C($P(BUDTAB5(8),U,1)),?71,$$C($P(BUDTAB5(8),U,2),2),!,BUD80L Line Location: T5+11
Function Call: WRITE	Prompt: " " Line Location: T5+16
Function Call: WRITE	Prompt: !,"15.",?10,"TOTAL MEDICAL CARE SERVICES",!?10,"(TOTAL LINES 8 THROUGH 14)",?60,$$C($P(BUDTAB5(15),U,1)),?71,$$C($P(BUDTAB5(15),U,2)),!,BUD80L Line Location: T5+28
Function Call: WRITE	Prompt: !,"19.",?10,"TOTAL DENTAL SERVICES",!?10,"(TOTAL LINES 16 THROUGH 18)",?60,$$C($P(BUDTAB5(19),U,1)),?71,$$C($P(BUDTAB5(19),U,2)),!,BUD80L Line Location: T518+7
Function Call: WRITE	Prompt: !?6,$P(^BUDVTFIV(BUDY,0),U,3) Line Location: T518+12
Function Call: WRITE	Prompt: !?6,$P(^BUDVTFIV(BUDY,0),U,4) Line Location: T518+13
Function Call: WRITE	Prompt: !,"20.",?10,"MENTAL HEALTH SERVICES",!?10,"(TOTAL LINES 20A + 20B +20C)",?60,$$C($P(BUDTAB5(20),U,1)),?71,$$C($P(BUDTAB5(20),U,2)),!,BUD80L Line Location: T518+18
Function Call: WRITE	Prompt: !,"29.",?10,"TOTAL ENABLING SERVICES",!?10,"(TOTAL LINES 24 THROUGH 28)",?60,$$C($P(BUDTAB5(29),U,1)),?71,$$C($P(BUDTAB5(29),U,2)),!,BUD80L Line Location: T518+44
Function Call: WRITE	Prompt: !,"33.",?10,"TOTAL ADMINISTRATION AND FACILITY",!?10,"(TOTAL LINES 30+31+32)" Line Location: T518+52
Function Call: WRITE	Prompt: ?60,$$C($P(BUDTAB5(33),U,1),2),?71,$$C($P(BUDTAB5(33),U,2),2),!,BUD80L Line Location: T518+53
Function Call: WRITE	Prompt: !,"34.",?10,"GRAND TOTAL: (TOTAL LINES",!?10,"(15+19+20+21+22+23+29+29A+33)" Line Location: T518+55
Function Call: WRITE	Prompt: ?60,$$C(Y),?71,$$C(Y,2),!,BUD80L Line Location: T518+57
Function Call: WRITE	Prompt: !,$$CTR("TABLE 5 - STAFFING AND UTILIZATION",80) Line Location: T5SH+1
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T5SH+3
Function Call: WRITE	Prompt: !,?54,"FTEs",?60,"ENCOUNTERS",?71," USERS" Line Location: T5SH+4
Function Call: WRITE	Prompt: !,"PERSONNEL BY MAJOR SERVICE CATEGORY",?54,"(a)",?64,"(b)",?73,"(c)" Line Location: T5SH+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T5SH+6
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,X Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,"UDS No. ",$P(^BUDVSITE(BUDSITE,0),U,2),?50,"Date Run: ",$$FMTE^XLFDT(DT) Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,"Reporting Period: ",$$FMTE^XLFDT(BUDBD)," through ",$$FMTE^XLFDT(BUDED) Line Location: HEADER1+6
Function Call: WRITE	Prompt: ! Line Location: HEADER1+7
Routine Call	DIR Line Location: HEADER+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BUDVSITE - [#90347.1]	HEADER1+5
^BUDVTFIV - [#90347.5]	T5+7, T5+17, T5+23, T5+31, T518+2, T518+11, T518+12, T518+13, T518+21, T518+27 , T518+33, T518+39, T518+47
^BUDVTFIV("B"	T5+3, T5+13, T5+21, T5+29, T518, T518+9, T518+19, T518+25, T518+31, T518+37 , T518+45
^BUDVTTA - [#90347.3]	T3A+5, T3ASH+2
^BUDVTTA("B"	T3A+3
^BUDVTTA(1	T3ASH+1
^DIC(4 - [#4]	HEADER1+2, LOC+1
^TMP($J	EOJ+1!
^VA(200 - [#200]	HEADER1+2, USR+1
^XTMP("BUD5RPT1"	TZ+4, TZ+6, TZ+7, TZ+10, TZ+11, TZ+12!, TZ+13, TZ+15

Label References

Name	Line Occurrences
$$C	T3A+11, T3A+14, T3B+3, T3B+4, T3B+5, T3B+7, T3B+9, T3B+11, T3B+13, T3B+15 , T3B+17, T3B+20, TZ+16, TZ+18, T5+8, T5+9, T5+11, T5+18, T5+19, T5+24 , T5+25, T5+28, T5+32, T5+33, T518+3, T518+4, T518+7, T518+14, T518+15, T518+18 , T518+22, T518+23, T518+28, T518+29, T518+34, T518+35, T518+40, T518+41, T518+44, T518+48 , T518+49, T518+53, T518+57
$$CTR	T3ASH+1, T3BSH+1, T3BSH+2, TZSH+1, TZSH+2, TZSH+4, T5SH+1, HEADER1+2
EOJ	PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+11
HEADER	T3A+1, T3A+4, T3A+13, T3B+1, T3B+6, T3B+8, T3B+10, T3B+12, T3B+14, T3B+16 , T3B+18, T3B+21, TZ+1, TZ+14, T5+1, T5+14, T5+22, T5+27, T5+30, T518+1 , T518+6, T518+8, T518+10, T518+17, T518+20, T518+26, T518+32, T518+38, T518+43, T518+46 , T518+51, T518+54, T518+59
HEADER1	HEADER+1
PATLISTS	PRINT+10
T3A	PRINT+4
T3ASH	T3A+1, T3A+4, T3A+13
T3B	PRINT+5
T3BSH	T3B+1, T3B+6, T3B+8, T3B+10, T3B+12, T3B+14, T3B+16, T3B+18, T3B+21
T4	PRINT+6
T5	PRINT+7
T5SH	T5+1, T5+14, T5+22, T5+27, T5+30, T518+1, T518+6, T518+8, T518+10, T518+17 , T518+20, T518+26, T518+32, T518+38, T518+43, T518+46, T518+51, T518+54, T518+59
T6	PRINT+8
TZ	PRINT+9
TZSH	TZ+1, TZ+14

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUD019("ALL"	T3A+14
>> BUD019("F"	T3A+14
>> BUD019("M"	T3A+14
>> BUD80L	PRINT+3*, T3B+3, T3B+4, T3B+5, T3B+7, T3B+9, T3B+11, T3B+13, T3B+15, T3B+17 , T3B+20, T3B+22, TZ+16, T5+10, T5+11, T5+20, T5+26, T5+28, T5+34, T518+5 , T518+7, T518+16, T518+18, T518+24, T518+30, T518+36, T518+42, T518+44, T518+50, T518+53 , T518+57
>> BUDBD	HEADER1+6
>> BUDC	T3A+3*, T3A+5
>> BUDED	HEADER1+6
>> BUDH	TZ+4, TZ+6, TZ+7, TZ+10, TZ+11, TZ+12, TZ+13, TZ+15
>> BUDJ	TZ+4, TZ+6, TZ+7, TZ+10, TZ+11, TZ+12, TZ+13, TZ+15
>> BUDL	T5+3, T5+6, T5+7, T5+8, T5+9, T5+13, T5+16, T5+17, T5+18, T5+19 , T5+21, T5+23, T5+24, T5+25, T5+29, T5+31, T5+32, T5+33, T518, T518+2 , T518+3, T518+4, T518+9, T518+11, T518+14, T518+15, T518+19, T518+21, T518+22, T518+23 , T518+25, T518+27, T518+28, T518+29, T518+31, T518+33, T518+34, T518+35, T518+37, T518+39 , T518+40, T518+41, T518+45*, T518+47, T518+48, T518+49
>> BUDPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
>> BUDQUIT	PRINT+2, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, T3A+1, T3A+3, T3A+4 , T3A+13, T3B+1, T3B+6, T3B+8, T3B+10, T3B+12, T3B+14, T3B+16, T3B+18, T3B+21 , TZ+1, TZ+13, TZ+14, TZ+17, T5+1, T5+3, T5+13, T5+14, T5+21, T5+22 , T5+27, T5+29, T5+30, T518, T518+1, T518+6, T518+8, T518+9, T518+10, T518+17 , T518+19, T518+20, T518+25, T518+26, T518+31, T518+32, T518+37, T518+38, T518+43, T518+45 , T518+46, T518+51, T518+54, T518+59, HEADER+2
>> BUDRACET(	T3B+19
>> BUDRACET("1A"	T3B+3, T3B+7
>> BUDRACET("1B"	T3B+4, T3B+7
>> BUDRACET("1C"	T3B+5, T3B+7
>> BUDRACET(2	T3B+9
>> BUDRACET(3	T3B+11
>> BUDRACET(4	T3B+13
>> BUDRACET(5	T3B+15
>> BUDRACET(6	T3B+17
>> BUDSITE	HEADER1+2, HEADER1+5
>> BUDT3A	PRINT+4
>> BUDT3B	PRINT+5
>> BUDT4	PRINT+6
>> BUDT5	PRINT+7
>> BUDT6	PRINT+8
>> BUDTAB5(	T5+8, T5+9, T5+18, T5+19, T5+24, T5+25, T5+32, T5+33, T518+3, T518+4 , T518+14, T518+15, T518+22, T518+23, T518+28, T518+29, T518+34, T518+35, T518+40, T518+41 , T518+48, T518+49, T518+56
>> BUDTAB5(15	T5+28
>> BUDTAB5(19	T518+7
>> BUDTAB5(20	T518+18
>> BUDTAB5(29	T518+44
>> BUDTAB5(33	T518+53
>> BUDTAB5(35	T518+58, T518+60
>> BUDTAB5(8	T5+11
>> BUDTOT("ALL"	T3A+11
>> BUDTOT("F"	T3A+11
>> BUDTOT("M"	T3A+11
>> BUDTZ	PRINT+9
>> BUDX	T3A+6*, T3A+8, T3A+11, T3A+12
>> BUDY	T3A+5, T3A+6, T3A+9, TZ+7, TZ+8, TZ+11, TZ+12, TZ+15, TZ+16, T5+3* , T5+4, T5+7, T5+13, T5+17, T5+21, T5+23, T5+29, T5+31, T518, T518+2 , T518+9, T518+11, T518+12, T518+13, T518+19, T518+21, T518+25, T518+27, T518+31, T518+33 , T518+37, T518+39, T518+45, T518+47
>> BUDZ	TZ+6, TZ+7, TZ+10, TZ+11, TZ+12, TZ+13*, TZ+15, TZ+16
>> BUDZTOT	TZ+3, TZ+8, TZ+12, TZ+18
DIR	HEADER+2!
DIR(0	HEADER+2*
DT	HEADER1+5
>> DTOUT	HEADER+2
DUZ	HEADER1+2, USR+1
DUZ(2	LOC+1
IO	HEADER+2
IO(0	HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	T3A+4, T3A+13, T3B+6, T3B+8, T3B+10, T3B+12, T3B+14, T3B+16, T3B+18, T3B+21 , TZ+14, T5+14, T5+22, T5+27, T5+30, T518+1, T518+6, T518+10, T518+17, T518+20 , T518+26, T518+32, T518+38, T518+43, T518+46, T518+51, T518+54, T518+59
IOST	HEADER+2
U	T3A+6, T3A+9, T3A+11, T3ASH+2, T5+7, T5+8, T5+9, T5+11, T5+17, T5+18 , T5+19, T5+23, T5+24, T5+25, T5+28, T5+31, T5+32, T5+33, T518+2, T518+3 , T518+4, T518+7, T518+11, T518+12, T518+13, T518+14, T518+15, T518+18, T518+21, T518+22 , T518+23, T518+27, T518+28, T518+29, T518+33, T518+34, T518+35, T518+39, T518+40, T518+41 , T518+44, T518+47, T518+48, T518+49, T518+53, T518+56, T518+58, T518+60, HEADER1+2, HEADER1+5 , USR+1, LOC+1
X	T3ASH+2, T3B+19, TZ+12, T518+56, HEADER1+2*, C~, C+1, C+5, CTR~, CTR+1
>> X2	C+3*
>> X3	C+3*
Y	T3B+19, T3B+20, T518+56, T518+57, HEADER+2, C~, C+1, C+2, CTR~, CTR+1

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD5RPTP

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: