Routine: BUD0RPL4

Information

BUD0RPL4 ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
IHS Uniform Data System	1	($$HISP,$$RACE)^BUD0RPTC
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$CLINIC,$$LOCENC,$$PRIMPROV)^APCLV
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Uniform Data System	1	BUD0RPTL

Entry Points

Name	Comments	DBIA/ICR reference
T3BELX	;
T3BRL1	;
RACEL(R,E)	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
T3BRL2	;
T3BRH1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
T3BEL2	;
T3BEL1	;
T3BE	;EP
T3BRLX	;
T3BEH1	;
T3BRH	;
RACE(R)	;EP
USR()	;EP - Return name of current user from ^VA(200.
T3BEH	;
T3BR	;EP

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	T3BRL2+18, T3BEL2+13
$$LOCENC^APCLV	T3BRL2+18, T3BEL2+13
$$PRIMPROV^APCLV	T3BRL2+18, T3BEL2+13
$$AGE^AUPNPAT	T3BRL2+11, T3BEL2+10
$$HRN^AUPNPAT	T3BRL2+10, T3BEL2+9
$$HISP^BUD0RPTC	T3BRL2+14, T3BEL2+10
$$RACE^BUD0RPTC	T3BRL2+12
^DIR	T3BRH+2, T3BEH+2
$$FMTE^XLFDT	T3BRL2+18, T3BRH1+3, T3BRH1+7, T3BEL2+13, T3BEH1+3, T3BEH1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No patients to report." Line Location: T3BR+3
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS: ",BUDTOT,! Line Location: T3BR+6
Function Call: WRITE	Prompt: !,BUDRACEL Line Location: T3BRL2+3
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: T3BRL2+8
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: T3BRL2+17
Function Call: WRITE	Prompt: !!,"Sub-Total ",BUDRACEL,": ",BUDSTOT,! Line Location: T3BRL2+20
Function Call: WRITE	Prompt: ! Line Location: T3BRH+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: T3BRH1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: T3BRH1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: T3BRH1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 3B, Patients by Hispanic or Latino Identity and Race",80),! Line Location: T3BRH1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: T3BRH1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T3BRH1+7
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T3BRH1+8
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE" Line Location: T3BRH1+17
Function Call: WRITE	Prompt: !,?2,"RACE",?24,"HISPANIC OR LATINO IDENTITY" Line Location: T3BRH1+18
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION" Line Location: T3BRH1+19
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: T3BRH1+20
Function Call: WRITE	Prompt: !!,"No patients to report." Line Location: T3BE+3
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS: ",BUDTOT,! Line Location: T3BE+6
Function Call: WRITE	Prompt: !,$P(BUDRACE,"-",1),! Line Location: T3BEL2+2
Function Call: WRITE	Prompt: !,$P(BUDRACE,"-",1),! Line Location: T3BEL2+7
Function Call: WRITE	Prompt: !,$P(BUDRACE,"-",1),! Line Location: T3BEL2+12
Function Call: WRITE	Prompt: !!,"Sub-Total ",$P(BUDRACE,"-",1),": ",BUDSTOT,! Line Location: T3BEL2+15
Function Call: WRITE	Prompt: ! Line Location: T3BEH+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: T3BEH1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: T3BEH1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: T3BEH1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 3B, Patients by Ethnicity",80),! Line Location: T3BEH1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: T3BEH1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T3BEH1+7
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T3BEH1+8
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"ETHNICITY*" Line Location: T3BEH1+17
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION" Line Location: T3BEH1+18
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: T3BEH1+19
Routine Call	DIR Line Location: T3BRH+2 T3BEH+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	T3BRL2+18, T3BEL2+13
^DIC(4 - [#4]	LOC+1, T3BRH1+6, T3BEH1+6
^DPT - [#2]	T3BRL2+10, T3BRL2+11, T3BEL2+9, T3BEL2+10
^VA(200 - [#200]	USR+1, T3BRH1+3, T3BEH1+3
^XTMP("BUD0RPT1"	T3BR+3, T3BRL1+3, T3BRL1+4, T3BRL2+4, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+16, T3BE+3, T3BEL1+3 , T3BEL2+3, T3BEL2+4, T3BEL2+5, T3BEL2+6, T3BEL2+11

Label References

Name	Line Occurrences
$$CTR	T3BRH1+4, T3BRH1+5, T3BRH1+6, T3BRH1+7, T3BEH1+4, T3BEH1+5, T3BEH1+6, T3BEH1+7
$$RACEL	T3BRL2+2
T3BEH	T3BE+2, T3BE+5, T3BEL1+1, T3BEL2+7, T3BEL2+12, T3BEL2+14
T3BEH1	T3BEH+1
T3BEL1	T3BE+4
T3BEL2	T3BEL1+3
T3BELX	T3BE+5
T3BRH	T3BR+2, T3BR+5, T3BRL1+1, T3BRL2+8, T3BRL2+17, T3BRL2+19
T3BRH1	T3BRH+1
T3BRL1	T3BR+4
T3BRL2	T3BRL1+4
T3BRLX	T3BR+5

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDA	T3BRL2+4, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+16, T3BEL2+3, T3BEL2+4, T3BEL2+5, T3BEL2+6, T3BEL2+11
>> BUDBD	T3BRH1+7, T3BEH1+7
>> BUDCAD	T3BRL2+11, T3BEL2+10
>> BUDCOM	T3BRL2+6, T3BRL2+7, T3BRL2+11, T3BRL2+16, T3BEL2+5, T3BEL2+6, T3BEL2+10, T3BEL2+11
>> BUDED	T3BRH1+7, T3BEH1+7
>> BUDETH	T3BRL1+4*, T3BRL2+2, T3BRL2+4, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+16
>> BUDGPG	T3BRH+1, T3BRH1+1, T3BRH1+3, T3BEH+1, T3BEH1+1, T3BEH1+3
>> BUDH	T3BR+3, T3BRL1+3, T3BRL1+4, T3BRL2+4, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+16, T3BE+3, T3BEL1+3 , T3BEL2+3, T3BEL2+4, T3BEL2+5, T3BEL2+6, T3BEL2+11
>> BUDHISV	T3BRL2+14*, T3BRL2+15
>> BUDJ	T3BR+3, T3BRL1+3, T3BRL1+4, T3BRL2+4, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+16, T3BE+3, T3BEL1+3 , T3BEL2+3, T3BEL2+4, T3BEL2+5, T3BEL2+6, T3BEL2+11
>> BUDP	T3BR+1, T3BRH1+9, T3BRH1+21, T3BE+1, T3BEH1+9, T3BEH1+20
>> BUDQUIT	T3BR+1, T3BR+2, T3BR+5, T3BRL1+1, T3BRL1+3, T3BRL1+4, T3BRL2+4, T3BRL2+5, T3BRL2+6, T3BRL2+7 , T3BRL2+8, T3BRL2+16, T3BRL2+17, T3BRL2+19, T3BRH+2, T3BE+1, T3BE+2, T3BE+5, T3BEL1+1, T3BEL1+3 , T3BEL2+3, T3BEL2+4, T3BEL2+5, T3BEL2+6, T3BEL2+7, T3BEL2+11, T3BEL2+12, T3BEL2+14, T3BEH+2
>> BUDRACE	T3BRL1+3, T3BRL1+4, T3BRL2+2, T3BRL2+4, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+16, T3BEL1+3, T3BEL2+2 , T3BEL2+3, T3BEL2+4, T3BEL2+5, T3BEL2+6, T3BEL2+7, T3BEL2+11, T3BEL2+12, T3BEL2+15
>> BUDRACEL	T3BRL2+2*, T3BRL2+3, T3BRL2+8, T3BRL2+17, T3BRL2+20
>> BUDRACV	T3BRL2+12*, T3BRL2+13
>> BUDSEX	T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+16, T3BEL2+4, T3BEL2+5, T3BEL2+6, T3BEL2+11
>> BUDSITE	T3BRL2+10, T3BRH1+6, T3BEL2+9, T3BEH1+6
>> BUDSTOT	T3BRL2+1, T3BRL2+9, T3BRL2+20, T3BEL2+1, T3BEL2+8, T3BEL2+15
>> BUDTOT	T3BR+1, T3BR+6, T3BRL1+2, T3BRL2+9, T3BE+1, T3BE+6, T3BEL1+2, T3BEL2+8
>> BUDV	T3BRL2+16, T3BRL2+18, T3BEL2+11, T3BEL2+13
>> DFN	T3BRL2+7, T3BRL2+10, T3BRL2+11, T3BRL2+12, T3BRL2+14, T3BRL2+16, T3BEL2+6, T3BEL2+9, T3BEL2+10, T3BEL2+11
DIR	T3BRH+2!, T3BEH+2!
DIR(0	T3BRH+2, T3BEH+2
DT	T3BRH1+3, T3BEH1+3
>> DTOUT	T3BRH+2, T3BEH+2
DUZ	USR+1, T3BRH1+3, T3BEH1+3
DUZ(2	LOC+1, T3BRL2+10, T3BEL2+9
E	RACEL~, RACEL+1, RACEL+2, RACEL+3, RACEL+4, RACEL+5, RACEL+6, RACEL+7, RACEL+8, RACEL+9 , RACEL+10, RACEL+11, RACEL+12, RACEL+13, RACEL+14, RACEL+15, RACEL+16, RACEL+17
IO	T3BRH+2, T3BEH+2
IO(0	T3BRH+2, T3BEH+2
IOF	T3BRH1+1, T3BEH1+1
IOM	CTR+1
IOSL	T3BR+5, T3BRL1+1, T3BRL2+8, T3BRL2+17, T3BRL2+19, T3BE+5, T3BEL1+1, T3BEL2+7, T3BEL2+12, T3BEL2+14
IOST	T3BRH+2, T3BEH+2
R	RACEL~, RACEL+1, RACEL+2, RACEL+3, RACEL+4, RACEL+5, RACEL+6, RACEL+7, RACEL+8, RACEL+9 , RACEL+10, RACEL+11, RACEL+12, RACEL+13, RACEL+14, RACEL+15, RACEL+16, RACEL+17, RACE~, RACE+1 , RACE+2, RACE+3, RACE+4, RACE+5, RACE+6, RACE+7, RACE+8, RACE+9
U	USR+1, LOC+1, T3BRL2+10, T3BRL2+11, T3BRL2+13, T3BRL2+15, T3BRL2+18, T3BRH1+3, T3BRH1+6, T3BEL2+9 , T3BEL2+10, T3BEL2+13, T3BEH1+3, T3BEH1+6
X	CTR~, CTR+1, T3BRH1+7, T3BEH1+7
Y	CTR~, CTR+1, T3BRH+2, T3BEH+2
>> ZTQUEUED	T3BRH+2, T3BEH+2

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD0RPL4

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: