Routine: BUD6RPTL

Package	Total	Call Graph
IHS Uniform Data System	2	T52^BUD6RPL2 $$RACE^BUD6RPTC
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	BUD6RPTP

Entry Points

Name	Comments	DBIA/ICR reference
28	;;II. Oral Exams
T6W	;
22	;;Mammogram
T5H1	;
43	;;Other Mental disorders, excl drug or alcohol dependence (incl mental retardation);;20d
34	;;V. Rehabilitative Services (Endo, Perio, Prostho, Ortho)
USR()	;EP - Return name of current user from ^VA(200.
T6H	;
T51H1	;
TZH1	;
24	;;Selected Immunizations
25	;;Contraceptive Management
26	;;Health supervision of infant or child (ages 0 through 11)
27	;;I. Emergency Services
TZ	;
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	;
42	;;Attention Deficit and disruptive behavior disorders;;20c
3	;;Tuberculosis
40	;;Depression and Other Mood Disorders;;20a
41	;;Anxiety disorders including PTSD;;20b
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
TZH	;
T6	;
T4	;
T5	;
T5W
T5H	;
START	;
17	;;Lack of expected normal physiological development
8	;;Abnormal cervical findings
20	;;Other Mental disorders, excluding drug or alcohol dependence
T3H1	;
29	;;Prophylaxis - adult or child
32	;;III. Restorative Services
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	;;Other substance related disorders (excluding tobacco use disorders)
18	;;Alcohol related disorders
31	;;Fluoride treatment
30	;;Sealants
T3A	;
33	;;IV. Oral Surgery (extractions only)
T51	;
T6H1	;

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	T3A+11, T5W+6, TZ+12, T6W+5
$$LOCENC^APCLV	T3A+11, T5W+6, TZ+12, T6W+5
$$PRIMPROV^APCLV	T3A+11, T5W+6, TZ+12
$$AGE^AUPNPAT	T3A+8, T5W, T6W+2
$$HRN^AUPNPAT	T3A+8, T5W, TZ+9, T6W+2
T52^BUD6RPL2	T52+1
$$RACE^BUD6RPTC	T3A+8, T5W, T6W+2
^DIR	T3H+2, T51H+2, T5H+2, TZH+2, T6H+2
$$FMTE^XLFDT	T3A+11, T3H1+3, T3H1+7, T51H1+3, T51H1+7, T5W+6, T5H1+3, T5H1+7, TZ+12, TZH1+3 , TZH1+7, T6W+5, 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: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION" Line Location: T3H1+11
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T3H1+13
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("Personnel List for Table 5 Column 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: !,"List of all Active Provider Personnel sorted by Major Service Category.",! Line Location: T51H1+9
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^BUD6RPTC(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: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"PROV CD",?50,"SRV",?55,"CLINIC",?62,"LOCATION" Line Location: T5H1+11
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T5H1+12
Function Call: WRITE	Prompt: ! Line Location: TZH+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: TZH1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: TZH1+3
Function Call: WRITE	Prompt: !,$$CTR("* BPHC Uniform Data System (UDS) *",80) Line Location: TZH1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List Center/Grantee Profile: User/Patient by Zip Code",80),! Line Location: TZH1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: TZH1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: TZH1+7
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: TZH1+8
Function Call: WRITE	Prompt: !,"List of all Users, defined as any patient with one or more visits during the",!,"calendar year." Line Location: TZH1+9
Function Call: WRITE	Prompt: !,"Zip code is from patient registration." Line Location: TZH1+10
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"ZIP CODE" Line Location: TZH1+11
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION" Line Location: TZH1+12
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: TZH1+14
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^BUD6RPTC(DFN),U,2) Line Location: T6W+2
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: !?5,"VISIT DATE",?25,"VALUE",?41,"SRV",?45,"CLINIC",?63,"LOCATION" Line Location: T6H1+11
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T6H1+12
Routine Call	DIR Line Location: T3H+2 T51H+2 T5H+2 TZH+2 T6H+2

Global Variables Directly Accessed

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

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, TZH1+4, TZH1+5, TZH1+6, TZH1+7, T6H1+4, T6H1+5, T6H1+6, T6H1+7
T3A	START+4, START+6
T3H	T3A+2, T3A+7, T3A+10
T3H1	T3H+1
T4	START+8
T5	START+10
T51	START+12
T51H	T51+1, T51+5, T51+9
T51H1	T51H+1
T52	START+14
T5H	T5+4, T5W+5
T5H1	T5H+1
T5W	T5+11
T6	START+16
T6H	T6+6, T6W+1, T6W+4
T6H1	T6H+1
T6W	T6+11
TZ	START+2
TZH	TZ+2, TZ+8, TZ+11
TZH1	TZH+1

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD6RPTL

Information

Source Information

Call Graph

Call Graph Total: 6

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