Routine: BUDDRPL4

Information

BUDDRPL4 ; 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)^BUDDRPTC
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	BUDDRPTL

Entry Points

Name	Comments	DBIA/ICR reference
S(V)	;
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.
T3BRLX	;
T3BRH	;
RACE(R)	;EP
USR()	;EP - Return name of current user from ^VA(200.
T3BR	;EP
T3BRHD	;

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	T3BRL2+22, T3BRL2+26
$$LOCENC^APCLV	T3BRL2+22, T3BRL2+26
$$PRIMPROV^APCLV	T3BRL2+22, T3BRL2+26
$$AGE^AUPNPAT	T3BRL2+12, T3BRL2+24
$$HRN^AUPNPAT	T3BRL2+11, T3BRL2+24
$$HISP^BUDDRPTC	T3BRL2+15
$$RACE^BUDDRPTC	T3BRL2+13
^DIR	T3BRH+3
$$FMTE^XLFDT	T3BRL2+22, T3BRL2+26, T3BRH1+3, T3BRH1+7, T3BRHD+3, T3BRHD+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No patients to report." Line Location: T3BR+4
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS: ",BUDTOT,! Line Location: T3BR+8
Function Call: WRITE	Prompt: !,BUDRACEL Line Location: T3BRL2+3
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: T3BRL2+9
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U,1),1,22),?24,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)) Line Location: T3BRL2+11
Function Call: WRITE	Prompt: !?2,$E($P(BUDRACV,U,4),1,16)_" ("_$P(BUDRACV,U,3),")" Line Location: T3BRL2+14
Function Call: WRITE	Prompt: ?24,$P(BUDHISV,U,3)," (",$P(BUDHISV,U,2),")" Line Location: T3BRL2+16
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: T3BRL2+20
Function Call: WRITE	Prompt: ?60,$S(BUDI:"YES",1:"NO") Line Location: T3BRL2+21
Function Call: WRITE	Prompt: !?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(BUDV,0),U),".")),?25,$E($$PRIMPROV^APCLV(BUDV,"E"),1,14),?42,$P(^AUPNVSIT(BUDV,0),U,7),?45,$E($$CLINIC^APCLV(BUDV,"E"),1,14),?62,$E($$LOCENC^APCLV(BUDV,"E"),1,14) Line Location: T3BRL2+22
Function Call: WRITE	Prompt: !!,"Sub-Total ",BUDRACEL,": ",BUDSTOT,! Line Location: T3BRL2+29
Function Call: WRITE	Prompt: ! Line Location: T3BRH+3
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: $$CTR(X,80),! Line Location: T3BRH1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T3BRH1+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE" Line Location: T3BRH1+18
Function Call: WRITE	Prompt: !,?2,"RACE",?24,"HISPANIC OR LATINO IDENTITY",?60,"INTERPRETER" Line Location: T3BRH1+19
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION" Line Location: T3BRH1+20
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: T3BRH1+21
Routine Call	DIR Line Location: T3BRH+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	T3BRL2+22, T3BRL2+26
^DIC(4 - [#4]	LOC+1, T3BRH1+6, T3BRHD+6
^DPT - [#2]	T3BRL2+11, T3BRL2+12, T3BRL2+24
^TMP($J	S+2*
^VA(200 - [#200]	USR+1, T3BRH1+3, T3BRHD+3
^XTMP("BUDDRPT1"	T3BR+3, T3BRL1+3, T3BRL1+4, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+8, T3BRL2+17, T3BRL2+19

Label References

Name	Line Occurrences
$$CTR	T3BRH1+4, T3BRH1+5, T3BRH1+6, T3BRH1+7, T3BRH1+8
$$RACEL	T3BRL2+2
S	T3BR+5, T3BR+9, T3BRL2+4, T3BRL2+27, T3BRL2+30, T3BRHD+1, T3BRHD+2, T3BRHD+3, T3BRHD+4, T3BRHD+5 , T3BRHD+6, T3BRHD+7, T3BRHD+8, T3BRHD+9, T3BRHD+10, T3BRHD+11, T3BRHD+12, T3BRHD+13, T3BRHD+14, T3BRHD+15 , T3BRHD+16
T3BRH	T3BR+2, T3BR+7, T3BRL1+1, T3BRL2+9, T3BRL2+20, T3BRL2+28
T3BRH1	T3BRH+2
T3BRHD	T3BRH+1
T3BRL1	T3BR+6
T3BRL2	T3BRL1+4
T3BRLX	T3BR+7

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+5*, T3BRL2+6, T3BRL2+7, T3BRL2+8, T3BRL2+17, T3BRL2+19
>> BUDBD	T3BRH1+7, T3BRHD+7
>> BUDBEN	T3BRH1+8, T3BRHD+8
>> BUDCCAD	T3BRL2+12, T3BRL2+24
>> BUDCCOM	T3BRL2+7*, T3BRL2+8, T3BRL2+12, T3BRL2+17, T3BRL2+19, T3BRL2+24
>> BUDD	T3BRL2+17, T3BRL2+18, T3BRL2+21
>> BUDDECNT	S+1*, S+2
>> BUDED	T3BRH1+7, T3BRHD+7
>> BUDETH	T3BRL1+4*, T3BRL2+2, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+8, T3BRL2+17, T3BRL2+19
>> BUDGPG	T3BRH+2, T3BRH1+1*, T3BRH1+3
>> BUDH	T3BR+3, T3BRL1+3, T3BRL1+4, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+8, T3BRL2+17, T3BRL2+19
>> BUDHISV	T3BRL2+15*, T3BRL2+16, T3BRL2+25
>> BUDI	T3BRL2+19*, T3BRL2+21, T3BRL2+25
>> BUDJ	T3BR+3, T3BRL1+3, T3BRL1+4, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+8, T3BRL2+17, T3BRL2+19
>> BUDP	T3BR+1, T3BRH1+10, T3BRH1+22
>> BUDQUIT	T3BR+1, T3BR+2, T3BR+7, T3BRL1+1, T3BRL1+3, T3BRL1+4, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+8 , T3BRL2+9, T3BRL2+17, T3BRL2+20, T3BRL2+28, T3BRH+3
>> BUDRACE	T3BRL1+3*, T3BRL1+4, T3BRL2+2, T3BRL2+5, T3BRL2+6, T3BRL2+7, T3BRL2+8, T3BRL2+17, T3BRL2+19
>> BUDRACEL	T3BRL2+2*, T3BRL2+3, T3BRL2+4, T3BRL2+9, T3BRL2+20, T3BRL2+29, T3BRL2+30
>> BUDRACV	T3BRL2+13*, T3BRL2+14, T3BRL2+25
>> BUDROT	T3BR+4, T3BR+7, T3BR+8, T3BR+9, T3BRL1+1, T3BRL2+3, T3BRL2+4, T3BRL2+9, T3BRL2+11, T3BRL2+14 , T3BRL2+16, T3BRL2+20, T3BRL2+21, T3BRL2+22, T3BRL2+23, T3BRL2+28, T3BRL2+29, T3BRL2+30, T3BRH+1
>> BUDSEX	T3BRL2+6*, T3BRL2+7, T3BRL2+8, T3BRL2+17, T3BRL2+19
>> BUDSITE	T3BRL2+11, T3BRL2+24, T3BRH1+6, T3BRHD+6
>> BUDSTOT	T3BRL2+1, T3BRL2+10, T3BRL2+29, T3BRL2+30
>> BUDTOT	T3BR+1, T3BR+8, T3BR+9, T3BRL1+2, T3BRL2+10*
>> BUDV	T3BRL2+17*, T3BRL2+19, T3BRL2+22, T3BRL2+26
>> DFN	T3BRL2+8*, T3BRL2+11, T3BRL2+12, T3BRL2+13, T3BRL2+15, T3BRL2+17, T3BRL2+19, T3BRL2+24
DIR	T3BRH+3!
DIR(0	T3BRH+3*
DT	T3BRH1+3, T3BRHD+3
>> DTOUT	T3BRH+3
DUZ	USR+1, T3BRH1+3, T3BRHD+3
DUZ(2	LOC+1, T3BRL2+11, T3BRL2+24
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+3
IO(0	T3BRH+3
IOF	T3BRH1+1
IOM	CTR+1
IOSL	T3BR+7, T3BRL1+1, T3BRL2+9, T3BRL2+20, T3BRL2+28
IOST	T3BRH+3
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+11, T3BRL2+12, T3BRL2+14, T3BRL2+16, T3BRL2+22, T3BRL2+24, T3BRL2+25, T3BRL2+26 , T3BRH1+3, T3BRH1+6, T3BRHD+3, T3BRHD+6
V	S~, S+2
X	CTR~, CTR+1, T3BRL2+24, T3BRL2+25, T3BRL2+26, T3BRL2+27, T3BRH1+7, T3BRH1+8, T3BRHD+7, T3BRHD+8*
Y	CTR~, CTR+1, T3BRH+3
>> ZTQUEUED	T3BRH+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDDRPL4

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: