Routine: BUDRPTL

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

Package	Total	Caller Graph
IHS Uniform Data System	1	BUDRPTP

Entry Points

Name	Comments	DBIA/ICR reference
T51H1	;
T6W	;
22	;;Mammogram
T5H1	;
USR()	;EP - Return name of current user from ^VA(200.
T6H	;
TOL	;
24	;;Selected Immunizations
25	;;Contraceptive Management
26	;;Health supervision of infant or child (ages 0 through 11)
20	;;Other Mental disorders, excluding drug or alcohol dependence
21	;;HIV Test
LOC()	;EP - Return location name from file 4 based on DUZ(2).
23	;;Pap Smear
CTR(X,Y)	;EP - Center X in a field Y wide.
T52	;
3	;;Tuberculosis
1	;;Symptomatic HIV
T51H	;
2	;;Asymptomatic HIV
5	;;Asthma
4	;;Syphilis and other venereal diseases
7	;;Abnormal breast findings, female
6	;;Chronic bronchitis and emphysema
9	;;Diabetes mellitus
8	;;Abnormal cervical findings
T6	;
T4	;
T5	;
T5W
T5H	;
START	;
17	;;Lack of expected normal physiological development
T3H1	;
11	;;Hypertension
10	;;Heart disease (selected)
13	;;Dehydration
12	;;Contact dermatitis and other eczema
15	;;Otitis media and eustachian tube disorders
14	;;Exposure to heat or cold
T3H	;
16	;;Selected perinatal medical conditions
19	;;Drug dependence
18	;;Alcohol dependence
T3A	;
T51	;
T6H1	;

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	T3A+11, T5W+6, T6W+4
$$LOCENC^APCLV	T3A+11, T5W+6, T6W+4
$$PRIMPROV^APCLV	T3A+11, T5W+6
$$AGE^AUPNPAT	T3A+8, T5W, T6W+1
$$HRN^AUPNPAT	T3A+8, T5W, T6W+1
$$RACE^BUDRPTC	T3A+8, T5W, T6W+1
TOL^BUDRPTL1	TOL+1
T52^BUDRPTL2	T52+1
^DIR	T3H+2, T51H+2, T5H+2, T6H+2
$$FMTE^XLFDT	T3A+11, T3H1+3, T3H1+7, T51H1+3, T51H1+7, T5W+6, T5H1+3, T5H1+7, T6W+4, T6H1+3 , T6H1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: T3H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: T3H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: T3H1+3
Function Call: WRITE	Prompt: !,$$CTR("* BPHC Uniform Data System (UDS) *",80) Line Location: T3H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Tables 3A, 3B",80),! Line Location: T3H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: T3H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T3H1+7
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T3H1+8
Function Call: WRITE	Prompt: !,"List of all Users, defined as any patient with one or more visits during the",!,"calendar year, with gender, age, race or ethnicity, and visit information.",!,"Age is calculated as of June 30.",! Line Location: T3H1+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE/ETHN" Line Location: T3H1+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T3H1+12
Function Call: WRITE	Prompt: ! Line Location: T51H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: T51H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: T51H1+3
Function Call: WRITE	Prompt: !,$$CTR("* BPHC Uniform Data System (UDS) *",80) Line Location: T51H1+4
Function Call: WRITE	Prompt: !,$$CTR("Provider List for Table 5 Columns A, By Service Category",80),! Line Location: T51H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: T51H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T51H1+7
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T51H1+8
Function Call: WRITE	Prompt: !,"PROVIDER NAME",?35,"PROVIDER CODE",?70,"FTE" Line Location: T51H1+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T51H1+11
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)),?36,$E(BUDCOM,1,12),?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$P($$RACE^BUDRPTC(DFN),U,2) Line Location: T5W+0
Function Call: WRITE	Prompt: ! Line Location: T5H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: T5H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: T5H1+3
Function Call: WRITE	Prompt: !,$$CTR("* BPHC Uniform Data System (UDS) *",80) Line Location: T5H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 5 Columns B & C, By Service Category",80),! Line Location: T5H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: T5H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T5H1+7
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T5H1+8
Function Call: WRITE	Prompt: !,"List of all Users, sorted by defined Service Categories. Displays",!,"community, gender, age and visit data, including Provider codes." Line Location: T5H1+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE/ETHN" Line Location: T5H1+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T5H1+11
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)),?36,$E(BUDCOM,1,12),?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$P($$RACE^BUDRPTC(DFN),U,2) Line Location: T6W+1
Function Call: WRITE	Prompt: ! Line Location: T6H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: T6H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: T6H1+3
Function Call: WRITE	Prompt: !,$$CTR("* BPHC Uniform Data System (UDS) *",80) Line Location: T6H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6, By Diagnosis Category",80),! Line Location: T6H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: T6H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T6H1+7
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T6H1+8
Function Call: WRITE	Prompt: !,"List of all Users, sorted by primary diagnosis and tests/screening",!,"categories. Displays community, gender, age and visit data, and codes." Line Location: T6H1+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE/ETHN" Line Location: T6H1+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T6H1+11
Routine Call	DIR Line Location: T3H+2 T51H+2 T5H+2 T6H+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	T3A+11, T5W+2, T5W+6, T6W+4
^BUDTFIVE - [#90345.5]	T51+4, T5+5
^BUDTFIVE("B"	T51+4, T5+5
^DIC(4 - [#4]	T3H1+6, T51H1+6, T5H1+6, T6H1+6, LOC+1
^DPT - [#2]	T3A+8, T5W, T6W+1
^VA(200 - [#200]	T3H1+3, T51H1+3, T5H1+3, T6H1+3, USR+1
^XTMP("BUDRPT1"	T3A+3, T3A+4, T3A+5, T3A+6, T3A+9, T51+2, T51+6, T51+7, T5+3, T5+7 , T5+8, T5+9, T5+10, T5W+1, T6+3, T6+6, T6+7, T6+8, T6+9, T6W+2 , T6W+4

Label References

Name	Line Occurrences
$$CTR	T3H1+4, T3H1+5, T3H1+6, T3H1+7, T51H1+4, T51H1+5, T51H1+6, T51H1+7, T5H1+4, T5H1+5 , T5H1+6, T5H1+7, T6H1+4, T6H1+5, T6H1+6, T6H1+7
T3A	START+2, START+4
T3H	T3A+2, T3A+7, T3A+10
T3H1	T3H+1
T4	START+6
T5	START+8
T51	START+10
T51H	T51+1, T51+3
T51H1	T51H+1
T52	START+12
T5H	T5+4, T5W+5
T5H1	T5H+1
T5W	T5+10
T6	START+14
T6H	T6+4, T6W+3
T6H1	T6H+1
T6W	T6+9
TOL	START+16

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUD5L	T51+2, T51+4, T51+5, T51+6, T51+7, T5+3, T5+5, T5+6, T5+7, T5+8 , T5+9, T5+10, T5W+1
>> BUD6L	T6+3*, T6+5, T6+6, T6+7, T6+8, T6+9, T6W+2, T6W+4
>> BUDAGE	T3A+3, T3A+4, T3A+5, T3A+6, T3A+9, T5+8, T5+9, T5+10, T5W+1, T6+7* , T6+8, T6+9, T6W+2, T6W+4
>> BUDBD	T3H1+7, T51H1+7, T5H1+7, T6H1+7
>> BUDCAD	T3A+8, T5W, T6W+1
>> BUDCOM	T3A+5, T3A+6, T3A+8, T3A+9, T5+7, T5+8, T5+9, T5+10, T5W, T5W+1 , T6+6*, T6+7, T6+8, T6+9, T6W+1, T6W+2, T6W+4
>> BUDDD	T5W+3*, T5W+4
>> BUDED	T3H1+7, T51H1+7, T5H1+7, T6H1+7
>> BUDGPG	START+1, T3H+1, T3H1+1, T3H1+3, T51H+1, T51H1+1, T51H1+3, T5H+1, T5H1+1, T5H1+3 , T6H+1, T6H1+1*, T6H1+3
>> BUDH	T3A+3, T3A+4, T3A+5, T3A+6, T3A+9, T51+2, T51+6, T51+7, T5+3, T5+7 , T5+8, T5+9, T5+10, T5W+1, T6+3, T6+6, T6+7, T6+8, T6+9, T6W+2 , T6W+4
>> BUDJ	T3A+3, T3A+4, T3A+5, T3A+6, T3A+9, T51+2, T51+6, T51+7, T5+3, T5+7 , T5+8, T5+9, T5+10, T5W+1, T6+3, T6+6, T6+7, T6+8, T6+9, T6W+2 , T6W+4
>> BUDP	T3A+1, T3H1+9, T3H1+11, T5+1, T5H1+9, T5H1+12, T6+1, T6H1+9, T6H1+12
>> BUDPROV	T51+6*, T51+7
>> BUDQUIT	START+1, START+3, START+5, START+7, START+9, START+11, START+13, START+15, T3A+2, T3A+3 , T3A+4, T3A+5, T3A+6, T3A+7, T3A+9, T3A+10, T3H+2, T51+1, T51+2, T51+3 , T51+6, T51H+2, T5+3, T5+4, T5+7, T5+8, T5+9, T5+10, T5W+1, T5W+3 , T5W+4, T5W+5, T5H+2, T6+3, T6+4, T6+6, T6+7, T6+8, T6+9, T6W+2 , T6W+3, T6H+2*
>> BUDSEX	T3A+4, T3A+5, T3A+6, T3A+9, T5+9, T5+10, T5W+1, T6+8*, T6+9, T6W+2 , T6W+4
>> BUDSITE	T3A+8, T3H1+6, T51H1+6, T5W, T5H1+6, T6W+1, T6H1+6
>> BUDT3AL	START+2, START+4
>> BUDT3BL	START+4
>> BUDT4L	START+6
>> BUDT5L	START+8
>> BUDT5L1	START+10
>> BUDT5L2	START+12
>> BUDT6L	START+14
>> BUDTOL	START+16
>> BUDV	T3A+9, T3A+11, T5W+1, T5W+2, T5W+4, T5W+6, T6W+2, T6W+4
BUDVLST	T5W+1!
BUDVLST(	T5W+2*, T5W+3, T5W+4
>> BUDY	T51+4, T51+5, T5+5, T5+6
>> DFN	T3A+6, T3A+8, T3A+9, T5+10, T5W, T5W+1, T6+9*, T6W+1, T6W+2, T6W+4
DIR	T3H+2!, T51H+2!, T5H+2!, T6H+2!
DIR(0	T3H+2, T51H+2, T5H+2, T6H+2
DT	T3H1+3, T51H1+3, T5H1+3, T6H1+3
>> DTOUT	T3H+2, T51H+2, T5H+2, T6H+2
DUZ	T3H1+3, T51H1+3, T5H1+3, T6H1+3, USR+1
DUZ(2	T3A+8, T5W, T6W+1, LOC+1
IO	T3H+2, T51H+2, T5H+2, T6H+2
IO(0	T3H+2, T51H+2, T5H+2, T6H+2
IOF	T3H1+1, T51H1+1, T5H1+1, T6H1+1
IOM	CTR+1
IOSL	T3A+7, T3A+10, T51+3, T5W+5, T6W+3
IOST	T3H+2, T51H+2, T5H+2, T6H+2
U	T3A+8, T3A+11, T3H1+3, T3H1+6, T51+4, T51H1+3, T51H1+6, T5+5, T5W, T5W+2 , T5W+6, T5H1+3, T5H1+6, T6W+1, T6W+4, T6H1+3, T6H1+6, USR+1, LOC+1
X	T3H1+7, T51H1+7, T5H1+7, T6H1+7, CTR~, CTR+1
Y	T3H+2, T51H+2, T5H+2, T6H+2, CTR~, CTR+1
>> ZTQUEUED	T3H+2, T51H+2, T5H+2, T6H+2

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDRPTL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items