Routine: BUD9RPTP

Package	Total	Call Graph
IHS Uniform Data System	3	T6^BUD9RPP1 ^BUD9RPTL STEMP^BUD9RPTS
Kernel	2	$$FMTE^XLFDT $$LOW^XLFSTR
VA Fileman	2	COMMA^%DTC ^DIR

Package	Total	Caller Graph
IHS Uniform Data System	12	BUD9RP6B BUD9RP71 BUD9RP7F BUD9RP7G BUD9RP7N BUD9RP7O BUD9RP7P BUD9RP7Q BUD9RPP1 BUD9RPT1 BUD9RPT2 BUD9RPTS

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	;
HEADER2
T6	;
CTR(X,Y)	;EP - Center X in a field Y wide.
HEADER1	;
T5SH	;
T3BSH	;
PRINT	;EP
PATLISTS	;
TZSH	;

Name	Field # of Occurrence
COMMA^%DTC	C+4
T6^BUD9RPP1	T6+1
^BUD9RPTL	PATLISTS+1
STEMP^BUD9RPTS	T3A+1
^DIR	HEADER+2
$$FMTE^XLFDT	HEADER2+4, HEADER2+5
$$LOW^XLFSTR	T5+25, T5+33, T518+2, T518+11, T518+21, T518+27, T518+33, T518+39, T518+48, T518+58

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " " Line Location: T3A+10
Function Call: WRITE	Prompt: !,$P(^BUDNTTA(BUDC,0),U,2),?5,$P(^BUDNTTA(BUDC,0),U,3) Line Location: T3A+19
Function Call: WRITE	Prompt: ! Line Location: T3A+24
Function Call: WRITE	Prompt: $P(BUDY,U,2),?5,$P(BUDY,U,3) Line Location: T3A+25
Function Call: WRITE	Prompt: ?35,$$C($P(BUDTOT("M"),U,BUDX)),?50,$$C($P(BUDTOT("F"),U,BUDX)),?68,$$C($P(BUDTOT("ALL"),U,BUDX)) Line Location: T3A+26
Function Call: WRITE	Prompt: ! Line Location: T3A+27
Function Call: WRITE	Prompt: !,$$CTR($G(^BUDNTTA(1,11)),80),! Line Location: T3ASH+1
Function Call: WRITE	Prompt: !,$P(^BUDNTTA(X,0),U,2),?5,$P(^BUDNTTA(X,0),U,3),?33,$P(^BUDNTTA(X,0),U,4),?50,$P(^BUDNTTA(X,0),U,5),?68,$P(^BUDNTTA(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("PATIENTS BY HISPANIC OR LATINO IDENTITY/RACE/LANGUAGE",80),!,BUD80L Line Location: T3BSH+2
Function Call: WRITE	Prompt: !?41,"NOT",?53,"UNREPORTED/" Line Location: T3BSH+5
Function Call: WRITE	Prompt: !?25,"HISPANIC/",?39,"HISPANIC/",?53,"REFUSED TO",?70,"TOTAL" Line Location: T3BSH+6
Function Call: WRITE	Prompt: !?3,"PATIENTS BY RACE",?26,"LATINO",?40,"LATINO",?54,"REPORT",?70,"(d)" Line Location: T3BSH+7
Function Call: WRITE	Prompt: !?28,"(a)",?41,"(b)",?56,"(c)" Line Location: T3BSH+8
Function Call: WRITE	Prompt: !,BUD80L Line Location: T3BSH+9
Function Call: WRITE	Prompt: !,"NUMBER OF PATIENTS",!,BUD80L Line Location: T3BSH+10
Function Call: WRITE	Prompt: !!,$$CTR("PATIENTS BY ZIP CODE",80) Line Location: TZSH+1
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: TZSH+2
Function Call: WRITE	Prompt: !!?5,"ZIP CODE",?40,"PATIENTS" Line Location: TZSH+3
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: TZSH+4
Function Call: WRITE	Prompt: !?6,$P(BUDRACET(BUDX),U,7) Line Location: T3B+8
Function Call: WRITE	Prompt: !?6,$P(BUDRACET(BUDX),U,8) Line Location: T3B+9
Function Call: WRITE	Prompt: ?25,$$C($P(BUDRACET(BUDX),U,3)) Line Location: T3B+10
Function Call: WRITE	Prompt: ?39,$$C($P(BUDRACET(BUDX),U,4)) Line Location: T3B+11
Function Call: WRITE	Prompt: ?53,$$C($P(BUDRACET(BUDX),U,5)) Line Location: T3B+12
Function Call: WRITE	Prompt: ?67,$$C($P(BUDRACET(BUDX),U,6)) Line Location: T3B+13
Function Call: WRITE	Prompt: !!,BUD80L,!?66,"NUMBER" Line Location: T3B+17
Function Call: WRITE	Prompt: !,"PATIENTS BY LANGUAGE",?67,"(a)",!,BUD80L Line Location: T3B+18
Function Call: WRITE	Prompt: !,"NUMBER OF PATIENTS",!,BUD80L Line Location: T3B+19
Function Call: WRITE	Prompt: !?2,"9",?8,"PATIENTS BEST SERVED IN A LANGUAGE OTHER THAN ",!?2,"ENGLISH",!,BUD80L Line Location: T3B+20
Function Call: WRITE	Prompt: ! Line Location: T3B+21
Function Call: WRITE	Prompt: !!?8,"TOTAL",?40,$$C(BUDZTOT),! Line Location: TZ+28
Function Call: WRITE	Prompt: " " Line Location: T5+6
Function Call: WRITE	Prompt: !?6,$P(^BUDNTFIV(BUDY,0),U,3) Line Location: T5+8
Function Call: WRITE	Prompt: ?60,$$C($P(BUDTAB5(BUDL),U,1),$S(BUDL=6:2,1:0)),?71,$$C($P(BUDTAB5(BUDL),U,2),2) Line Location: T5+9
Function Call: WRITE	Prompt: !," 8.",?10,"Total Physicians",!?8,"(Lines 1 - 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: !?6,$P(^BUDNTFIV(BUDY,0),U,3) Line Location: T5+18
Function Call: WRITE	Prompt: !,"10a.",?10,"Total Midlevel Practitioners",!?8,"(Lines 9a - 10)",?60,$$C($P(BUDTAB5("10A"),U,1)),?71,$$C($P(BUDTAB5("10A"),U,2),2),!,BUD80L Line Location: T5+22
Function Call: WRITE	Prompt: !?6,$P(^BUDNTFIV(BUDY,0),U,3) Line Location: T5+25
Function Call: WRITE	Prompt: !,"15.",?10,"Total Medical Care",!?10,"(Lines 8 + 10a through 14)",?60,$$C($P(BUDTAB5(15),U,1)),?71,$$C($P(BUDTAB5(15),U,2)),!,BUD80L Line Location: T5+30
Function Call: WRITE	Prompt: !?6,$P(^BUDNTFIV(BUDY,0),U,3) Line Location: T5+33
Function Call: WRITE	Prompt: !?6,$P(^BUDNTFIV(BUDY,0),U,3) Line Location: T518+2
Function Call: WRITE	Prompt: !,"19.",?10,"Total Dental Services",!?10,"(Lines 16 - 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(^BUDNTFIV(BUDY,0),U,3) Line Location: T518+12
Function Call: WRITE	Prompt: !?6,$P(^BUDNTFIV(BUDY,0),U,4) Line Location: T518+13
Function Call: WRITE	Prompt: !,"20.",?10,"Mental Health Services",!?10,"(Lines 20a - c)",?60,$$C($P(BUDTAB5(20),U,1)),?71,$$C($P(BUDTAB5(20),U,2)),!,BUD80L Line Location: T518+18
Function Call: WRITE	Prompt: !?6,$P(^BUDNTFIV(BUDY,0),U,3) Line Location: T518+21
Function Call: WRITE	Prompt: !?6,$P(^BUDNTFIV(BUDY,0),U,3) Line Location: T518+27
Function Call: WRITE	Prompt: !?6,$P(^BUDNTFIV(BUDY,0),U,3) Line Location: T518+33
Function Call: WRITE	Prompt: !?6,$P(^BUDNTFIV(BUDY,0),U,3) Line Location: T518+39
Function Call: WRITE	Prompt: !,"29.",?10,"Total Enabling Services",!?10,"(Lines 24 - 28)",?60,$$C($P(BUDTAB5(29),U,1)),?71,$$C($P(BUDTAB5(29),U,2)),!,BUD80L Line Location: T518+45
Function Call: WRITE	Prompt: !?6,$P(^BUDNTFIV(BUDY,0),U,3) Line Location: T518+48
Function Call: WRITE	Prompt: !,"30.",?10,"Total Administrative Staff",!?10,"(Lines 30a-30c)" Line Location: T518+53
Function Call: WRITE	Prompt: ?60,$$C($P(BUDTAB5(33),U,1),2),?71,$$C($P(BUDTAB5(33),U,2),2),!,BUD80L Line Location: T518+54
Function Call: WRITE	Prompt: !?6,$P(^BUDNTFIV(BUDY,0),U,3) Line Location: T518+58
Function Call: WRITE	Prompt: !,"33.",?10,"TOTAL ADMINISTRATION AND FACILITY",!?10,"(TOTAL LINES 30+31+32)" Line Location: T518+63
Function Call: WRITE	Prompt: ?60,$$C($P(BUDTAB5(33),U,1),2),?71,$$C($P(BUDTAB5(33),U,2),2),!,BUD80L Line Location: T518+64
Function Call: WRITE	Prompt: !,"34.",?10,"GRAND TOTAL: (TOTAL LINES",!?10,"(15+19+20+21+22+23+29+29A+33)" Line Location: T518+66
Function Call: WRITE	Prompt: ?60,$$C(Y),?71,$$C(Y,2),!,BUD80L Line Location: T518+68
Function Call: WRITE	Prompt: ! Line Location: T518+72
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,"CLINIC",?71,"PATIENTS" Line Location: T5SH+4
Function Call: WRITE	Prompt: !?60,"VISITS" Line Location: T5SH+5
Function Call: WRITE	Prompt: !,"PERSONNEL BY MAJOR SERVICE CATEGORY",?54,"(a)",?64,"(b)",?73,"(c)" Line Location: T5SH+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T5SH+7
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,X Line Location: HEADER2+1
Function Call: WRITE	Prompt: !,"UDS No. ",$P(^BUDNSITE(BUDSITE,0),U,2),?50,"Date Run: ",$$FMTE^XLFDT(DT) Line Location: HEADER2+4
Function Call: WRITE	Prompt: !,"Reporting Period: ",$$FMTE^XLFDT(BUDBD)," through ",$$FMTE^XLFDT(BUDED) Line Location: HEADER2+5
Function Call: WRITE	Prompt: ! Line Location: HEADER2+6
Routine Call	DIR Line Location: HEADER+2

Name	Line Occurrences (* Changed, ! Killed)
^BUDNSITE - [#90661.1]	HEADER2+4
^BUDNTFIV - [#90661.5]	T5+7, T5+8, T5+17, T5+18, T5+25, T5+33, T518+2, T518+11, T518+12, T518+13 , T518+21, T518+27, T518+33, T518+39, T518+48, T518+58
^BUDNTFIV("B"	T5+3, T5+13, T5+23, T5+31, T518, T518+9, T518+19, T518+25, T518+31, T518+37 , T518+46, T518+56
^BUDNTTA - [#90661.3]	T3A+7, T3A+19, T3A+22, T3ASH+2
^BUDNTTA("AC"	T3A+4, T3A+5, T3A+20
^BUDNTTA("B"	T3A+17, T3ASH+2
^BUDNTTA(1	T3ASH+1
^DIC(4 - [#4]	HEADER2+1, LOC+1
^TMP($J	EOJ+1!
^VA(200 - [#200]	HEADER2+1, USR+1
^XTMP("BUD9RPT1"	EOJ+2!, TZ+4, TZ+6, TZ+7, TZ+10, TZ+13, TZ+14!, TZ+16, TZ+17, TZ+18 , TZ+19, TZ+20, TZ+21*, TZ+22!, TZ+23, TZ+25

Name	Line Occurrences
$$C	T3A+13, T3A+16, T3A+26, T3B+10, T3B+11, T3B+12, T3B+13, TZ+26, TZ+28, T5+9 , T5+11, T5+19, T5+20, T5+22, T5+26, T5+27, T5+30, T5+34, T5+35, 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+45, T518+49, T518+50, T518+54, T518+59, T518+60, T518+64, T518+68
$$CTR	T3ASH+1, T3BSH+1, T3BSH+2, TZSH+1, T5SH+1, HEADER2+1
EOJ	PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+11
HEADER	T3A+2, T3A+6, T3A+15, T3A+18, T3A+21, T3B+1, T3B+4, T3B+6, T3B+16, TZ+1 , TZ+24, T5+1, T5+14, T5+24, T5+29, T5+32, T518+1, T518+6, T518+10, T518+17 , T518+20, T518+26, T518+32, T518+38, T518+44, T518+47, T518+52, T518+55, T518+57, T518+62 , T518+65, T518+70
HEADER1	HEADER+1
HEADER2	HEADER1+1
PATLISTS	PRINT+10
T3A	PRINT+5
T3ASH	T3A+2, T3A+6, T3A+15, T3A+18, T3A+21
T3B	PRINT+6
T3BSH	T3B+1, T3B+4, T3B+6, T3B+16
T4	PRINT+7
T5	PRINT+8
T5SH	T5+1, T5+14, T5+24, T5+29, T5+32, T518+1, T518+6, T518+10, T518+17, T518+20 , T518+26, T518+32, T518+38, T518+44, T518+47, T518+52, T518+55, T518+57, T518+62, T518+65 , T518+70
T6	PRINT+9
TZ	PRINT+4
TZSH	TZ+1, TZ+24

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+16
>> BUD019("F"	T3A+16
>> BUD019("M"	T3A+16
>> BUD80L	PRINT+3*, T3BSH+2, T3BSH+9, T3BSH+10, T3B+14, T3B+17, T3B+18, T3B+19, T3B+20, TZ+26 , T5+10, T5+11, T5+21, T5+22, T5+28, T5+30, T5+36, T518+5, T518+7, T518+16 , T518+18, T518+24, T518+30, T518+36, T518+43, T518+45, T518+51, T518+54, T518+61, T518+64 , T518+68
>> BUDBD	HEADER2+5
>> BUDC	T3A+5, T3A+7, T3A+17, T3A+19, T3A+20*, T3A+22
>> BUDCOM	TZ+16*, TZ+17, TZ+18, TZ+19, TZ+20, TZ+21, TZ+22
>> BUDED	HEADER2+5
>> BUDFNP	HEADER1+1, HEADER1+2
>> BUDH	EOJ+2, TZ+4, TZ+6, TZ+7, TZ+10, TZ+13, TZ+14, TZ+16, TZ+17, TZ+18 , TZ+19, TZ+20, TZ+21, TZ+22, TZ+23, TZ+25
>> BUDJ	EOJ+2, TZ+4, TZ+6, TZ+7, TZ+10, TZ+13, TZ+14, TZ+16, TZ+17, TZ+18 , TZ+19, TZ+20, TZ+21, TZ+22, TZ+23, TZ+25
>> BUDL	T5+3, T5+6, T5+7, T5+9, T5+13, T5+16, T5+17, T5+19, T5+20, T5+23* , T5+25, T5+26, T5+27, T5+31, T5+33, T5+34, T5+35, 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+46, T518+48, T518+49, T518+50, T518+56, T518+58, T518+59, T518+60
BUDLANG	T3BSH+4, T3B+15*, T3B+22!
>> BUDNAME	TZ+18*, TZ+19, TZ+20, TZ+21, TZ+22
>> BUDPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2, HEADER2, HEADER2+1
>> BUDQUIT	PRINT+2, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, T3A+2, T3A+4, T3A+6 , T3A+15, T3A+18, T3A+21, T3B+1, T3B+4, T3B+5, T3B+6, T3B+16, TZ+1, TZ+23 , TZ+24, TZ+27, T5+1, T5+3, T5+13, T5+14, T5+23, T5+24, T5+29, T5+31 , T5+32, T518, T518+1, T518+6, T518+9, T518+10, T518+17, T518+19, T518+20, T518+25 , T518+26, T518+31, T518+32, T518+37, T518+38, T518+44, T518+46, T518+47, T518+52, T518+55 , T518+56, T518+57, T518+62, T518+65, T518+70, HEADER+2
>> BUDRACET(	T3B+7, T3B+8, T3B+9, T3B+10, T3B+11, T3B+12, T3B+13
>> BUDSEX	TZ+17*, TZ+18, TZ+19, TZ+20, TZ+21, TZ+22
>> BUDSITE	HEADER2+1, HEADER2+4
>> BUDSTMP	T3A+1
>> BUDT3A	PRINT+5
>> BUDT3B	PRINT+6
>> BUDT4	PRINT+7
>> BUDT5	PRINT+8
>> BUDT6	PRINT+9
>> BUDTAB5(	T5+9, T5+19, T5+20, T5+26, T5+27, T5+34, T5+35, T518+3, T518+4, T518+14 , T518+15, T518+22, T518+23, T518+28, T518+29, T518+34, T518+35, T518+40, T518+49, T518+50 , T518+59, T518+60, T518+67
>> BUDTAB5("10A"	T5+22
>> BUDTAB5(15	T5+30
>> BUDTAB5(19	T518+7
>> BUDTAB5(20	T518+18
>> BUDTAB5(29	T518+45
>> BUDTAB5(33	T518+54, T518+64
>> BUDTAB5(35	T518+69, T518+71
>> BUDTAB5(8	T5+11
>> BUDTOT("ALL"	T3A+13, T3A+26
>> BUDTOT("F"	T3A+13, T3A+26
>> BUDTOT("M"	T3A+13, T3A+26
>> BUDTZ	PRINT+4
>> BUDX	T3A+8, T3A+10, T3A+13, T3A+14, T3A+23, T3A+26, T3B+5*, T3B+7, T3B+8, T3B+9 , T3B+10, T3B+11, T3B+12, T3B+13
>> BUDY	T3A+7, T3A+8, T3A+11, T3A+22, T3A+23, T3A+25, TZ+7, TZ+8, TZ+13, TZ+14 , TZ+25, TZ+26, T5+3, T5+4, T5+7, T5+8, T5+13, T5+17, T5+18, T5+23 , T5+25, T5+31, T5+33, 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+46, T518+48, T518+56* , T518+58
>> BUDZ	T3A+4, T3A+5, TZ+6, TZ+7, TZ+10, TZ+11, TZ+12, TZ+13, TZ+14, TZ+16 , TZ+17, TZ+18, TZ+19, TZ+20, TZ+21, TZ+22, TZ+23, TZ+25, TZ+26
>> BUDZTOT	TZ+3, TZ+8, TZ+14, TZ+28
>> DFN	TZ+19*, TZ+20, TZ+21, TZ+22
DIR	HEADER+2!
DIR(0	HEADER+2*
DT	HEADER2+4
>> DTOUT	HEADER+2
DUZ	HEADER2+1, USR+1
DUZ(2	LOC+1
IO	HEADER+2
IO(0	HEADER+2
IOF	HEADER1+2
IOM	CTR+1
IOSL	T3A+6, T3A+15, T3A+18, T3A+21, T3B+4, T3B+6, T3B+16, TZ+24, T5+14, T5+24 , T5+29, T5+32, T518+1, T518+6, T518+10, T518+17, T518+20, T518+26, T518+32, T518+38 , T518+44, T518+47, T518+52, T518+55, T518+57, T518+62, T518+65, T518+70
IOST	HEADER+2
U	T3A+8, T3A+11, T3A+13, T3A+19, T3A+23, T3A+25, T3A+26, T3ASH+2, T3B+7, T3B+8 , T3B+9, T3B+10, T3B+11, T3B+12, T3B+13, T5+7, T5+8, T5+9, T5+11, T5+17 , T5+18, T5+19, T5+20, T5+22, T5+25, T5+26, T5+27, T5+30, T5+33, T5+34 , T5+35, 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+45, T518+48, T518+49, T518+50, T518+54, T518+58, T518+59, T518+60 , T518+64, T518+67, T518+69, T518+71, HEADER2+1, HEADER2+4, USR+1, LOC+1
X	T3ASH+2, TZ+14, TZ+20, TZ+21, TZ+22, T518+67, HEADER2+1*, C~, C+1, C+5 , CTR~, CTR+1
>> X2	C+3*
>> X3	C+3*
Y	T3ASH+2, T518+67, T518+68, HEADER+2, C~, C+1, C+2, CTR~, CTR+1

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD9RPTP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: