Routine: BUDARPTL

Package	Total	Call Graph
IHS Uniform Data System	5	(T3A,T51,T52)^BUDARPL2 T3BR^BUDARPL4 (T4CHAR,T4IPPL,T4PMIS)^BUDARPL5 $$RACE^BUDARPTC TZH^BUDARPTD
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$CLINIC,$$LOCENC,$$PRIMPROV,$$VD)^APCLV
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Uniform Data System	1	BUDARPTP

Entry Points

Name	Comments	DBIA/ICR reference
6	;;Chronic bronchitis and emphysema
28	;;II. Oral Exams
T6W	;
70	;;Hepatitis C test;;21b
T5H1	;
29	;;Prophylaxis - adult or child
60	;;Overweight and obesity;;14a
61	;;Tobacco use disorder;;19a
62	;;Childhood lead test screening (9 to 72 months);;26a
63	;;Screening, Brief Intervention, and Referral (SBIRT);;26b
64	;;Smoke and tobacco use cessation counseling;;26c
T6H	;
67	;;Hepatitis B;;4a
68	;;Hepatitis C;;4b
69	;;Hepatitis B test;;21a
32	;;III. Restorative Services
34	;;V. Rehabilitative Services (Endo, Perio, Prostho, Ortho)
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
22	;;Mammogram
23	;;Pap Test
CTR(X,Y)	;
T52	;
42	;;Attention Deficit and disruptive behavior disorders;;20c
43	;;Other Mental disorders, excl drug or alcohol dependence (incl mental retardation);;20d
40	;;Depression and Other Mood Disorders;;20a
41	;;Anxiety disorders including PTSD;;20b
1	;;Symptomatic and Asymptomatic HIV;;1,2
T51	;EP
3	;;Tuberculosis
2	;;Asymptomatic HIV
5	;;Asthma
4	;;Syphilis and other sexually transmitted diseases
7	;;Abnormal breast findings, female
T4PMIS	;
9	;;Diabetes mellitus
TZH	;
TZ1	;
TZ2	;
10	;;Heart disease (selected)
T6	;
T4CHAR	;
T5	;
T5W
T5H	;
START	;
71	;;Comprehensive and Intermediate Eye Exams;;26d
8	;;Abnormal cervical findings
20	;;Other Mental disorders, excluding drug or alcohol dependence
T3BR	;
11	;;Hypertension
T4IPPL	;
13	;;Dehydration
12	;;Contact dermatitis and other eczema
15	;;Otitis media and Eustachian tube disorders
14	;;Exposure to heat or cold
17	;;Lack of expected normal physiological development
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)
INS(Z)	;
T6H1	;
65	;;Seasonal Flu vaccine;;24a

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	T5W+7, TZ2+11, TZ1+11, T6W+10
$$LOCENC^APCLV	T5W+7, TZ2+11, TZ1+11, T6W+10
$$PRIMPROV^APCLV	T5W+7, TZ2+11, TZ1+11
$$VD^APCLV	T6W+4
$$AGE^AUPNPAT	T5W+1, T6W+3
$$HRN^AUPNPAT	T5W, TZ2+8, TZ1+8, T6W+2
T3A^BUDARPL2	T3A+1
T51^BUDARPL2	T51+1
T52^BUDARPL2	T52+1
T3BR^BUDARPL4	T3BR+1
T4CHAR^BUDARPL5	T4CHAR+1
T4IPPL^BUDARPL5	T4IPPL+1
T4PMIS^BUDARPL5	T4PMIS+1
$$RACE^BUDARPTC	T5W+1, T6W+3
TZH^BUDARPTD	TZH+1
^DIR	T5H+2, T6H+2
$$FMTE^XLFDT	T5W+7, T5H1+3, T5H1+7, TZ2+11, TZ1+11, T6W+10, T6H1+3, T6H1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: T5+13
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: T5W+0
Function Call: WRITE	Prompt: ?36,$E(BUDCOM,1,12),?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$E($P($$RACE^BUDARPTC(DFN),U,4),1,16)," (",$P($$RACE^BUDARPTC(DFN),U,3),")" Line Location: T5W+1
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: $$CTR(X,80),! Line Location: T5H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T5H1+9
Function Call: WRITE	Prompt: !,"List of all patients, sorted by defined Service Categories. Displays",!,"community, gender, age and visit data, including Provider codes.",!,"Age is calculated as of June 30." Line Location: T5H1+10
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE*" Line Location: T5H1+13
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"PROV CD",?50,"SRV",?55,"CLINIC",?62,"LOCATION" Line Location: T5H1+14
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T5H1+15
Function Call: WRITE	Prompt: !!,BUDSUBT,! Line Location: T5H1+16
Function Call: WRITE	Prompt: ! Line Location: TZ2+12
Function Call: WRITE	Prompt: ! Line Location: TZ1+12
Function Call: WRITE	Prompt: ! Line Location: T6+10
Function Call: WRITE	Prompt: !!,"Line ",$S($P($T(@BUDX2L),";;",3)]"":$P($T(@BUDX2L),";;",3),1:BUDX2L)," ",$P($T(@BUDX2L),";;",2) Line Location: T6W+1
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: T6W+2
Function Call: WRITE	Prompt: ?36,$E(BUDCOM,1,12),?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$E($P($$RACE^BUDARPTC(DFN),U,4),1,16)," (",$P($$RACE^BUDARPTC(DFN),U,3),")" Line Location: T6W+3
Function Call: WRITE	Prompt: !!,"Line ",$S($P($T(@BUDX2L),";;",3)]"":$P($T(@BUDX2L),";;",3),1:BUDX2L)," ",$P($T(@BUDX2L),";;",2) Line Location: T6W+6
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 6A, 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: $$CTR(X,80),! Line Location: T6H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T6H1+9
Function Call: WRITE	Prompt: !,"List of all patients, sorted by diagnosis and tests/screening",!,"categories. Displays community, gender, age and visit data, and codes." Line Location: T6H1+10
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE*" Line Location: T6H1+13
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?25,"VALUE",?41,"SRV",?45,"CLINIC",?63,"LOCATION" Line Location: T6H1+14
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T6H1+15
Routine Call	DIR Line Location: T5H+2 T6H+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	T5W+3, T5W+7, TZ2+11, TZ1+11, T6W+10
^BUDQTFIV - [#90665.5]	T5+6
^BUDQTFIV("B"	T5+6
^DIC(4 - [#4]	T5H1+6, T6H1+6
^DPT - [#2]	T5W, T5W+1, TZ2+8, TZ1+8, T6W+2, T6W+3
^VA(200 - [#200]	T5H1+3, T6H1+3
^XTMP("BUDARPT1"	T5+2, T5+4, T5+9, T5+10, T5+11, T5+12, T5W+2, TZ+3, TZ2+1, TZ2+2 , TZ2+3, TZ2+4, TZ2+5, TZ2+9, TZ1+1, TZ1+2, TZ1+3, TZ1+4, TZ1+5, TZ1+6 , TZ1+9, T6+3, T6+6, T6+7, T6+8, T6+9, T6W+4, T6W+8, T6W+13, T6W+14 , T6W+16, T6W+17

Label References

Name	Line Occurrences
$$CTR	T5H1+4, T5H1+5, T5H1+6, T5H1+7, T5H1+8, T6H1+4, T6H1+5, T6H1+6, T6H1+7, T6H1+8
$$INS	TZ2+8, TZ1+8
T3A	START+4
T3BR	START+6
T4CHAR	START+12
T4IPPL	START+8
T4PMIS	START+10
T5	START+16
T51	START+14
T52	START+18
T5H	T5+8, T5W+6
T5H1	T5H+1
T5W	T5+12
T6	START+20
T6H	T6+4, T6W+1, T6W+6
T6H1	T6H+1
T6W	T6+9
TZ	START+2
TZ1	TZ+3
TZ2	TZ+6
TZH	TZ+2, TZ2+6, TZ2+10, TZ1+7, TZ1+10

Naked Globals

Name	Field # of Occurrence
^(	T6W+14, T6W+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	T6W+9*
>> BUDAGE	T5+10, T5+11, T5+12, T5W+2, T6+7, T6+8, T6+9, T6W+4, T6W+8, T6W+13 , T6W+14, T6W+16, T6W+17
>> BUDBD	T5H1+7, T6H1+7
>> BUDBEN	T5H1+8, T6H1+8
>> BUDCAD	T5W+1, T6W+3
>> BUDCOM	T5+9, T5+10, T5+11, T5+12, T5W+1, T5W+2, TZ2+2, TZ2+3, TZ2+4, TZ2+5 , TZ2+8, TZ2+9, TZ1+3, TZ1+4, TZ1+5, TZ1+6, TZ1+8, TZ1+9, T6+6, T6+7 , T6+8, T6+9, T6W+3, T6W+4, T6W+8, T6W+13, T6W+14, T6W+16, T6W+17
>> BUDDD	T5W+4*, T5W+5
>> BUDED	T5H1+7, T6H1+7
>> BUDGPG	START+1, START+2, START+4, START+6, START+8, START+10, START+12, START+14, START+16, START+18 , START+20, T5H+1, T5H1+1, T5H1+3, T6H+1, T6H1+1*, T6H1+3
>> BUDH	T5+2, T5+4, T5+9, T5+10, T5+11, T5+12, T5W+2, TZ+3, TZ2+1, TZ2+2 , TZ2+3, TZ2+4, TZ2+5, TZ2+9, TZ1+1, TZ1+2, TZ1+3, TZ1+4, TZ1+5, TZ1+6 , TZ1+9, T6+3, T6+6, T6+7, T6+8, T6+9, T6W+4, T6W+8, T6W+13, T6W+14 , T6W+16, T6W+17
>> BUDINS	TZ2+1, TZ2+2, TZ2+3, TZ2+4, TZ2+5, TZ2+8, TZ2+9, TZ1+2, TZ1+3, TZ1+4 , TZ1+5, TZ1+6, TZ1+8, TZ1+9
>> BUDJ	T5+2, T5+4, T5+9, T5+10, T5+11, T5+12, T5W+2, TZ+3, TZ2+1, TZ2+2 , TZ2+3, TZ2+4, TZ2+5, TZ2+9, TZ1+1, TZ1+2, TZ1+3, TZ1+4, TZ1+5, TZ1+6 , TZ1+9, T6+3, T6+6, T6+7, T6+8, T6+9, T6W+4, T6W+8, T6W+13, T6W+14 , T6W+16, T6W+17
>> BUDNAME	TZ2+4, TZ2+5, TZ2+9, TZ1+5, TZ1+6, TZ1+9
>> BUDP	T5+1, T5H1+10, T5H1+17, TZ+1, T6+1, T6H1+10, T6H1+16*
>> BUDQUIT	START+1, START+3, START+5, START+7, START+9, START+11, START+13, START+15, START+17, START+19 , START+21, T5+2, T5+4, T5+8, T5+9, T5+10, T5+11, T5+12, T5W+2, T5W+4 , T5W+5, T5W+6, T5H+2, TZ+2, TZ+3, TZ+4, TZ2+1, TZ2+2, TZ2+3, TZ2+4 , TZ2+5, TZ2+6, TZ2+9, TZ2+10, TZ1+1, TZ1+2, TZ1+3, TZ1+4, TZ1+5, TZ1+6 , TZ1+7, TZ1+9, TZ1+10, T6+4, T6+6, T6+7, T6+8, T6+9, T6W+1, T6W+4 , T6W+6, T6W+13, T6W+16, T6H+2*
>> BUDSEX	T5+11, T5+12, T5W+2, TZ2+3, TZ2+4, TZ2+5, TZ2+9, TZ1+4, TZ1+5, TZ1+6 , TZ1+9, T6+8, T6+9, T6W+4, T6W+8, T6W+13, T6W+14, T6W+16, T6W+17
>> BUDSITE	T5W, T5H1+6, TZ2+8, TZ1+8, T6W+2, T6H1+6
>> BUDSUBT	T5+7*, T5H1+16
>> BUDT3AL	START+4
>> BUDT3BRL	START+6
>> BUDT4CHA	START+12
>> BUDT4IPP	START+8
>> BUDT4PMI	START+10
>> BUDT5L	START+16
>> BUDT5L1	START+14
>> BUDT5L2	START+18
>> BUDT6L	START+20
>> BUDTZL	START+2
>> BUDV	T5W+2, T5W+3, T5W+5, T5W+7, TZ2+9, TZ2+11, TZ1+9, TZ1+11, T6W+4, T6W+7 , T6W+8, T6W+10
>> BUDVC	T6W+4, T6W+5, T6W+7
>> BUDVD	T6W+5*, T6W+7
BUDVLST	T5W+2!
BUDVLST(	T5W+3*, T5W+4, T5W+5
BUDVRR	T6W+4!
BUDVRR(	T6W+4*, T6W+5, T6W+7
>> BUDW	T6W+13, T6W+14, T6W+16, T6W+17
>> BUDX2L	T5+2, T5+3, T5+4, T5+5, T5+9, T5+10, T5+11, T5+12, T5W+2, T6+2 , T6+3, T6+5, T6+6, T6+7, T6+8, T6+9, T6W+1, T6W+4, T6W+6, T6W+8 , T6W+12, T6W+13, T6W+14, T6W+15, T6W+16, T6W+17
>> BUDX2L2	T5+4*, T5+5, T5+9, T5+10, T5+11, T5+12, T5W+2
>> BUDX2LL	T5+5*, T5+6, T5+7
>> BUDY	T5+6*, T5+7
>> BUDYY	TZ+3, TZ+6, TZ2+1, TZ2+2, TZ2+3, TZ2+4, TZ2+5, TZ2+9, TZ1+1, TZ1+2 , TZ1+3, TZ1+4, TZ1+5, TZ1+6, TZ1+9
>> BUDZIP	TZ1+1*, TZ1+2, TZ1+3, TZ1+4, TZ1+5, TZ1+6, TZ1+8, TZ1+9
>> DFN	T5+12, T5W, T5W+1, T5W+2, TZ2+5, TZ2+8, TZ2+9, TZ1+6, TZ1+8, TZ1+9 , T6+9, T6W+2, T6W+3, T6W+4, T6W+8, T6W+13, T6W+14, T6W+16, T6W+17
DIR	T5H+2!, T6H+2!
DIR(0	T5H+2, T6H+2
DT	T5H1+3, T6H1+3
>> DTOUT	T5H+2, T6H+2
DUZ	T5H1+3, T6H1+3
DUZ(2	T5W, TZ2+8, TZ1+8, T6W+2
IO	T5H+2, T6H+2
IO(0	T5H+2, T6H+2
IOF	T5H1+1, T6H1+1
IOM	CTR+1
IOSL	T5W+6, TZ2+6, TZ2+10, TZ1+7, TZ1+10, T6W+1, T6W+6
IOST	T5H+2, T6H+2
>> J	T6W+9*, T6W+10
U	T5+6, T5W, T5W+1, T5W+3, T5W+7, T5H1+3, T5H1+6, TZ2+8, TZ2+11, TZ1+8 , TZ1+11, T6W+2, T6W+3, T6W+9, T6W+10, T6W+14, T6W+17, T6H1+3, T6H1+6
X	T5H1+7, T5H1+8, T6H1+7, T6H1+8, CTR~, CTR+1
Y	T5H+2, T6H+2, CTR~, CTR+1
Z	INS~, INS+1, INS+2, INS+3, INS+4, T6W+8*, T6W+9
>> ZTQUEUED	T5H+2, T6H+2

Marked Items

Name	Field # of Occurrence
$T(@BUDX2L	T6+5, T6W+1, T6W+6

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDARPTL

Information

Source Information

Call Graph

Call Graph Total: 9

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