Routine: BUD7RPTP

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

Package	Total	Caller Graph
IHS Uniform Data System	3	BUD7RPP1 BUD7RPT1 BUD7RPT2

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	;

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " " Line Location: T3A+9
Function Call: WRITE	Prompt: !,$P(^BUDETTA(BUDC,0),U,2),?5,$P(^BUDETTA(BUDC,0),U,3) Line Location: T3A+18
Function Call: WRITE	Prompt: ! Line Location: T3A+23
Function Call: WRITE	Prompt: $P(BUDY,U,2),?5,$P(BUDY,U,3) Line Location: T3A+24
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+25
Function Call: WRITE	Prompt: ! Line Location: T3A+26
Function Call: WRITE	Prompt: !,$$CTR($G(^BUDETTA(1,11)),80),! Line Location: T3ASH+1
Function Call: WRITE	Prompt: !,$P(^BUDETTA(X,0),U,2),?5,$P(^BUDETTA(X,0),U,3),?33,$P(^BUDETTA(X,0),U,4),?50,$P(^BUDETTA(X,0),U,5),?68,$P(^BUDETTA(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 RACE/ETHNICITY/LANGUAGE",80),!,BUD80L Line Location: T3BSH+2
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("PATIENTS 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,"PATIENTS" Line Location: TZSH+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: TZSH+7
Function Call: WRITE	Prompt: !?66,"NUMBER" Line Location: T3B+3
Function Call: WRITE	Prompt: !,"PATIENTS BY HISPANIC/LATINO IDENTITY",?67,"(a)",!,BUD80L Line Location: T3B+4
Function Call: WRITE	Prompt: !,"NUMBER OF PATIENTS",!,BUD80L Line Location: T3B+5
Function Call: WRITE	Prompt: !?8,$P(BUDHISP(BUDX),U,4) Line Location: T3B+9
Function Call: WRITE	Prompt: ?65,$$C($P(BUDHISP(BUDX),U,3)) Line Location: T3B+10
Function Call: WRITE	Prompt: !!,BUD80L,!?66,"NUMBER" Line Location: T3B+14
Function Call: WRITE	Prompt: !,"PATIENTS BY RACE",?67,"(a)",!,BUD80L Line Location: T3B+15
Function Call: WRITE	Prompt: !,"NUMBER OF PATIENTS",!,BUD80L Line Location: T3B+16
Function Call: WRITE	Prompt: !?8,$P(BUDRACET(BUDX),U,4) Line Location: T3B+20
Function Call: WRITE	Prompt: ?65,$$C($P(BUDRACET(BUDX),U,3)) Line Location: T3B+21
Function Call: WRITE	Prompt: !!,BUD80L,!?66,"NUMBER" Line Location: T3B+24
Function Call: WRITE	Prompt: !,"PATIENTS BY LANGUAGE",?67,"(a)",!,BUD80L Line Location: T3B+25
Function Call: WRITE	Prompt: !,"NUMBER OF PATIENTS",!,BUD80L Line Location: T3B+26
Function Call: WRITE	Prompt: !?2,"12",?8,"PATIENTS BEST SERVED IN A LANGUAGE OTHER THAN ENGLISH",!,BUD80L Line Location: T3B+27
Function Call: WRITE	Prompt: ! Line Location: T3B+28
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(^BUDETFIV(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(^BUDETFIV(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(^BUDETFIV(BUDY,0),U,3) Line Location: T5+25
Function Call: WRITE	Prompt: !,"15.",?10,"Total Medical Care",!?10,"(Lines 8 - 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(^BUDETFIV(BUDY,0),U,3) Line Location: T5+33
Function Call: WRITE	Prompt: !?6,$P(^BUDETFIV(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(^BUDETFIV(BUDY,0),U,3) Line Location: T518+12
Function Call: WRITE	Prompt: !?6,$P(^BUDETFIV(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(^BUDETFIV(BUDY,0),U,3) Line Location: T518+21
Function Call: WRITE	Prompt: !?6,$P(^BUDETFIV(BUDY,0),U,3) Line Location: T518+27
Function Call: WRITE	Prompt: !?6,$P(^BUDETFIV(BUDY,0),U,3) Line Location: T518+33
Function Call: WRITE	Prompt: !?6,$P(^BUDETFIV(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(^BUDETFIV(BUDY,0),U,3) Line Location: T518+48
Function Call: WRITE	Prompt: !,"33.",?10,"TOTAL ADMINISTRATION AND FACILITY",!?10,"(TOTAL LINES 30+31+32)" 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: !,"34.",?10,"GRAND TOTAL: (TOTAL LINES",!?10,"(15+19+20+21+22+23+29+29A+33)" Line Location: T518+56
Function Call: WRITE	Prompt: ?60,$$C(Y),?71,$$C(Y,2),!,BUD80L Line Location: T518+58
Function Call: WRITE	Prompt: ! Line Location: T518+62
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,"PATIENTS" 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(^BUDESITE(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

Name	Line Occurrences (* Changed, ! Killed)
^BUDESITE - [#90669.1]	HEADER1+5
^BUDETFIV - [#90669.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
^BUDETFIV("B"	T5+3, T5+13, T5+23, T5+31, T518, T518+9, T518+19, T518+25, T518+31, T518+37 , T518+46
^BUDETTA - [#90669.3]	T3A+6, T3A+18, T3A+21, T3ASH+2
^BUDETTA("AC"	T3A+3, T3A+4, T3A+19
^BUDETTA("B"	T3A+16, T3ASH+2
^BUDETTA(1	T3ASH+1
^DIC(4 - [#4]	HEADER1+2, LOC+1
^TMP($J	EOJ+1!
^VA(200 - [#200]	HEADER1+2, USR+1
^XTMP("BUD7RPT1"	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+12, T3A+15, T3A+25, T3B+10, T3B+21, 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+58
$$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+5, T3A+14, T3A+17, T3A+20, T3B+1, T3B+7, T3B+13, T3B+18, T3B+23 , 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+60
HEADER1	HEADER+1
PATLISTS	PRINT+10
T3A	PRINT+5
T3ASH	T3A+1, T3A+5, T3A+14, T3A+17, T3A+20
T3B	PRINT+6
T3BSH	T3B+1, T3B+7, T3B+13, T3B+18, T3B+23
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+60
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+15
>> BUD019("F"	T3A+15
>> BUD019("M"	T3A+15
>> BUD80L	PRINT+3*, T3BSH+2, T3B+4, T3B+5, T3B+11, T3B+14, T3B+15, T3B+16, T3B+22, T3B+24 , T3B+25, T3B+26, T3B+27, 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+58
>> BUDBD	HEADER1+6
>> BUDC	T3A+4, T3A+6, T3A+16, T3A+18, T3A+19*, T3A+21
>> BUDCOM	TZ+16*, TZ+17, TZ+18, TZ+19, TZ+20, TZ+21, TZ+22
>> BUDED	HEADER1+6
>> 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
>> BUDHISP(	T3B+6, T3B+8, T3B+9, T3B+10
>> 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
>> BUDNAME	TZ+18*, TZ+19, TZ+20, TZ+21, TZ+22
>> 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+5 , T3A+14, T3A+17, T3A+20, T3B+1, T3B+6, T3B+7, T3B+13, T3B+17, T3B+18, T3B+23 , 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+60, HEADER+2
>> BUDRACET(	T3B+19, T3B+20, T3B+21
>> BUDSEX	TZ+17*, TZ+18, TZ+19, TZ+20, TZ+21, TZ+22
>> BUDSITE	HEADER1+2, HEADER1+5
>> 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+57
>> BUDTAB5("10A"	T5+22
>> BUDTAB5(15	T5+30
>> BUDTAB5(19	T518+7
>> BUDTAB5(20	T518+18
>> BUDTAB5(29	T518+45
>> BUDTAB5(33	T518+54
>> BUDTAB5(35	T518+59, T518+61
>> BUDTAB5(8	T5+11
>> BUDTOT("ALL"	T3A+12, T3A+25
>> BUDTOT("F"	T3A+12, T3A+25
>> BUDTOT("M"	T3A+12, T3A+25
>> BUDTZ	PRINT+4
>> BUDX	T3A+7, T3A+9, T3A+12, T3A+13, T3A+22, T3A+25, T3B+6, T3B+8, T3B+9, T3B+10 , T3B+17, T3B+19, T3B+20, T3B+21
>> BUDY	T3A+6, T3A+7, T3A+10, T3A+21, T3A+22, T3A+24, 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
>> BUDZ	T3A+3, T3A+4, 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	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+5, T3A+14, T3A+17, T3A+20, T3B+7, T3B+13, T3B+18, T3B+23, 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+60
IOST	HEADER+2
U	T3A+7, T3A+10, T3A+12, T3A+18, T3A+22, T3A+24, T3A+25, T3ASH+2, T3B+8, T3B+9 , T3B+10, T3B+19, T3B+20, T3B+21, 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+57, T518+59, T518+61, HEADER1+2 , HEADER1+5, USR+1, LOC+1
X	T3ASH+2, TZ+14, TZ+20, TZ+21, TZ+22, T518+57, HEADER1+2*, C~, C+1, C+5 , CTR~, CTR+1
>> X2	C+3*
>> X3	C+3*
Y	T3ASH+2, T518+57, T518+58, HEADER+2, C~, C+1, C+2, CTR~, CTR+1

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD7RPTP

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: