Routine: BUDARPL3

Package	Total	Call Graph
IHS Uniform Data System	3	$$RACE^BUDARPTC HEADER^BUDARPTP STEMP^BUDARPTS
VA Fileman	2	COMMA^%DTC ^DIR
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$CLINIC,$$LOCENC,$$PRIMPOV,$$PRIMPROV)^APCLV

Package	Total	Caller Graph
IHS Uniform Data System	1	BUDARPTP

Entry Points

Name	Comments	DBIA/ICR reference
T3ASH	;
MEDSERV	;
DUP(DFN,T)	;
MENTSERV	;
TW	;
ENASERV	;
T53	;EP
OTHSERV	;
T5W	;
SUBSERV	;
USR()	;EP - Return name of current user from ^VA(200.
LOC()	;EP - Return location name from file 4 based on DUZ(2).
OTHSERV1	;
C(X,Y)	;
CTR(X,Y)	;EP - Center X in a field Y wide.
T5H2	;
T53H	;
ENASERV1	;
DUPOE(DFN,T)	;
T3A	;EP
DENTSERV	;

External References

Name	Field # of Occurrence
COMMA^%DTC	C+4
$$CLINIC^APCLV	TW+2
$$LOCENC^APCLV	TW+2
$$PRIMPOV^APCLV	TW+2
$$PRIMPROV^APCLV	TW+1
$$AGE^AUPNPAT	T5W+3
$$HRN^AUPNPAT	T5W+2
$$RACE^BUDARPTC	T5W+3
HEADER^BUDARPTP	T3A+3, T3A+7, T3A+16, T3A+19, T3A+22
STEMP^BUDARPTS	T3A+1
^DIR	T53H+2
$$FMTE^XLFDT	TW+1, T5H2+3, T5H2+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: T53+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) Line Location: T5W+2
Function Call: WRITE	Prompt: ?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$E($P($$RACE^BUDARPTC(DFN),U,3)_"-"_$P($$RACE^BUDARPTC(DFN),U,4),1,19) Line Location: T5W+3
Function Call: WRITE	Prompt: !?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(BUDV,0),U),".")),?18,$E($$PRIMPROV^APCLV(BUDV,"E"),1,17),?36,$$PRIMPROV^APCLV(BUDV,"T"),?42,$$PRIMPROV^APCLV(BUDV,"D") Line Location: TW+1
Function Call: WRITE	Prompt: ?48,$$PRIMPOV^APCLV(BUDV,"C"),?56,$P(^AUPNVSIT(BUDV,0),U,7),?59,$E($$CLINIC^APCLV(BUDV,"E"),1,9),?70,$E($$LOCENC^APCLV(BUDV,"E"),1,9) Line Location: TW+2
Function Call: WRITE	Prompt: !!,"Line 15 Total Medical Care" Line Location: MEDSERV+2
Function Call: WRITE	Prompt: !!,"Line 19 Total Dental Services" Line Location: DENTSERV+2
Function Call: WRITE	Prompt: !!,"Line 20 Mental Health" Line Location: MENTSERV+2
Function Call: WRITE	Prompt: !!,"Line 21 Substance Abuse Services" Line Location: SUBSERV+2
Function Call: WRITE	Prompt: !!,"Line 22 Other Professional Services" Line Location: OTHSERV+2
Function Call: WRITE	Prompt: !!,"Line 29 Total Enabling Services" Line Location: ENASERV+2
Function Call: WRITE	Prompt: ! Line Location: T53H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: T5H2+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: T5H2+3
Function Call: WRITE	Prompt: !,$$CTR("* BPHC Uniform Data System (UDS) *",80) Line Location: T5H2+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 5 Columns B & C, Patients w/Multiple Visits on Same",80) Line Location: T5H2+5
Function Call: WRITE	Prompt: !,$$CTR("Day in Same Service Categories",80) Line Location: T5H2+6
Function Call: WRITE	Prompt: !,$$CTR($P(^DIC(4,BUDSITE,0),U),80) Line Location: T5H2+7
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: T5H2+8
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T5H2+9
Function Call: WRITE	Prompt: !,"List of all patients with multiple visits on the same day for the same",!,"BPHC service category.",!,"Age is calculated as of June 30.",! Line Location: T5H2+10
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE*" Line Location: T5H2+14
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?18,"PROV TYPE",?36,"INI",?40,"PROV CD",?48,"PRI DX",?55,"SRV",?59,"CLINIC",?70,"LOCATION" Line Location: T5H2+15
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T5H2+16
Function Call: WRITE	Prompt: " " Line Location: T3A+11
Function Call: WRITE	Prompt: !,$P(^BUDQTTA(BUDC,0),U,2),?5,$P(^BUDQTTA(BUDC,0),U,3) Line Location: T3A+20
Function Call: WRITE	Prompt: ! Line Location: T3A+25
Function Call: WRITE	Prompt: $P(BUDY,U,2),?5,$P(BUDY,U,3) Line Location: T3A+26
Function Call: WRITE	Prompt: ?35,$$C($P(BUDTOT("M"),U,BUDX)),?50,$$C($P(BUDTOT("F"),U,BUDX)),?68,$$C($P(BUDTOT("ALL"),U,BUDX)) Line Location: T3A+27
Function Call: WRITE	Prompt: ! Line Location: T3A+28
Function Call: WRITE	Prompt: !,$$CTR($G(^BUDQTTA(1,11)),80),! Line Location: T3ASH+1
Function Call: WRITE	Prompt: !,$P(^BUDQTTA(X,0),U,2),?5,$P(^BUDQTTA(X,0),U,3),?33,$P(^BUDQTTA(X,0),U,4),?50,$P(^BUDQTTA(X,0),U,5),?68,$P(^BUDQTTA(X,0),U,6) Line Location: T3ASH+2
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T3ASH+3
Routine Call	DIR Line Location: T53H+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	TW+1, TW+2
^BUDQTFIV - [#90665.5]	T53+3
^BUDQTFIV("B"	T53+3
^BUDQTTA - [#90665.3]	T3A+8, T3A+20, T3A+23, T3ASH+2
^BUDQTTA("AC"	T3A+5, T3A+6, T3A+21
^BUDQTTA("B"	T3A+18, T3ASH+2
^BUDQTTA(1	T3ASH+1
^DIC(4 - [#4]	T5H2+7, LOC+1
^DPT - [#2]	T5W+2, T5W+3
^VA(200 - [#200]	T5H2+3, USR+1
^XTMP("BUDARPT1"	T53+4, T53+5, T53+6, T53+7, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5, DENTSERV+6 , MENTSERV+4, MENTSERV+5, MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3 , ENASERV+4, ENASERV1+1, ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5, DUPOE+6 , DUPOE+7

Label References

Name	Line Occurrences
$$C	T3A+14, T3A+17, T3A+27
$$CTR	T5H2+4, T5H2+5, T5H2+6, T5H2+7, T5H2+8, T3ASH+1
$$DUP	T5W+1, MEDSERV+1, DENTSERV+1, MENTSERV+1, SUBSERV+1
$$DUPOE	T5W+1, OTHSERV+1, ENASERV+1
DENTSERV	T5W+6
ENASERV	T5W+14
ENASERV1	ENASERV+4
MEDSERV	T5W+4
MENTSERV	T5W+8
OTHSERV	T5W+12
OTHSERV1	OTHSERV+4
SUBSERV	T5W+10
T3ASH	T3A+3, T3A+7, T3A+16, T3A+19, T3A+22
T53H	T53+2, MEDSERV+3, MEDSERV+7, DENTSERV+3, DENTSERV+7, MENTSERV+3, MENTSERV+7, SUBSERV+3, SUBSERV+7, OTHSERV+3 , OTHSERV1+4, ENASERV+3, ENASERV1+4
T5H2	T53H+1
T5W	T53+7
TW	MEDSERV+8, DENTSERV+8, MENTSERV+8, SUBSERV+8, OTHSERV1+5, ENASERV1+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
>> BUD019("ALL"	T3A+17
>> BUD019("F"	T3A+17
>> BUD019("M"	T3A+17
>> BUDAGE	T53+5*, T53+6, T53+7, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5, DENTSERV+6, MENTSERV+4 , MENTSERV+5, MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3, ENASERV+4 , ENASERV1+1, ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5, DUPOE+6, DUPOE+7
>> BUDBD	T5H2+8
>> BUDC	T3A+6, T3A+8, T3A+18, T3A+20, T3A+21*, T3A+23
>> BUDCAD	T5W+3
>> BUDCOM	T53+4*, T53+5, T53+6, T53+7, T5W+2, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5 , DENTSERV+6, MENTSERV+4, MENTSERV+5, MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2 , OTHSERV1+3, ENASERV+4, ENASERV1+1, ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5 , DUPOE+6, DUPOE+7
>> BUDD	MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5, DENTSERV+6, MENTSERV+4, MENTSERV+5, MENTSERV+6, SUBSERV+4 , SUBSERV+5, SUBSERV+6, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3, ENASERV1+1, ENASERV1+2, ENASERV1+3
>> BUDDIS	OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3, ENASERV+4, ENASERV1+1, ENASERV1+2, ENASERV1+3
>> BUDED	T5H2+8
>> BUDGPG	T53H+1, T5H2+1*, T5H2+3
>> BUDH	T53+4, T53+5, T53+6, T53+7, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5, DENTSERV+6 , MENTSERV+4, MENTSERV+5, MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3 , ENASERV+4, ENASERV1+1, ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5, DUPOE+6 , DUPOE+7
>> BUDJ	T53+4, T53+5, T53+6, T53+7, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5, DENTSERV+6 , MENTSERV+4, MENTSERV+5, MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3 , ENASERV+4, ENASERV1+1, ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5, DUPOE+6 , DUPOE+7
>> BUDP	T53+1, T5H2+10, T5H2+18
>> BUDPG	T3A+2*
>> BUDPIEC	MEDSERV+6, DENTSERV+6, MENTSERV+6, SUBSERV+6, OTHSERV1+3, ENASERV1+3
>> BUDQUIT	T53+4, T53+5, T53+6, T53+7, T5W+5, T5W+7, T5W+9, T5W+11, T5W+13, T5W+15 , MEDSERV+3, MEDSERV+4, MEDSERV+6, MEDSERV+7, DENTSERV+3, DENTSERV+4, DENTSERV+6, DENTSERV+7, MENTSERV+3, MENTSERV+4 , MENTSERV+6, MENTSERV+7, SUBSERV+3, SUBSERV+4, SUBSERV+6, SUBSERV+7, OTHSERV+3, OTHSERV+4, OTHSERV1+1, OTHSERV1+3 , OTHSERV1+4, ENASERV+3, ENASERV+4, ENASERV1+1, ENASERV1+3, ENASERV1+4, T53H+2*, T3A+3, T3A+5, T3A+7 , T3A+16, T3A+19, T3A+22
>> BUDSEX	T53+6*, T53+7, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+4, DENTSERV+5, DENTSERV+6, MENTSERV+4, MENTSERV+5 , MENTSERV+6, SUBSERV+4, SUBSERV+5, SUBSERV+6, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3, ENASERV+4, ENASERV1+1 , ENASERV1+2, ENASERV1+3, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+5, DUPOE+6, DUPOE+7
>> BUDSITE	T5W+2, T5H2+7
>> BUDSTMP	T3A+1
>> BUDTOT("ALL"	T3A+14, T3A+27
>> BUDTOT("F"	T3A+14, T3A+27
>> BUDTOT("M"	T3A+14, T3A+27
>> BUDV	TW+1, TW+2, MEDSERV+6, DENTSERV+6, MENTSERV+6, SUBSERV+6, OTHSERV1+3, ENASERV1+3
>> BUDX	T3A+9, T3A+11, T3A+14, T3A+15, T3A+24, T3A+27
>> BUDX2L	T53+3*
>> BUDX2L2	T53+3*
>> BUDY	T53+3, T3A+8, T3A+9, T3A+12, T3A+23*, T3A+24, T3A+26
>> BUDZ	T3A+5*, T3A+6
DFN	T53+7*, T5W+1, T5W+2, T5W+3, MEDSERV+1, MEDSERV+4, MEDSERV+5, MEDSERV+6, DENTSERV+1, DENTSERV+4 , DENTSERV+5, DENTSERV+6, MENTSERV+1, MENTSERV+4, MENTSERV+5, MENTSERV+6, SUBSERV+1, SUBSERV+4, SUBSERV+5, SUBSERV+6 , OTHSERV+1, OTHSERV+4, OTHSERV1+1, OTHSERV1+2, OTHSERV1+3, ENASERV+1, ENASERV+4, ENASERV1+1, ENASERV1+2, ENASERV1+3 , DUP~, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE~, DUPOE+5, DUPOE+6, DUPOE+7
DIR	T53H+2!
DIR(0	T53H+2*
DT	T5H2+3
>> DTOUT	T53H+2
DUZ	T5H2+3, USR+1
DUZ(2	T5W+2, LOC+1
G	DUP+1~, DUP+2, DUP+4, DUP+7, DUP+10, DUP+12, DUPOE+1~, DUPOE+2, DUPOE+7*, DUPOE+9
IO	T53H+2
IO(0	T53H+2
IOF	T5H2+1
IOM	CTR+1
IOSL	MEDSERV+3, MEDSERV+7, DENTSERV+3, DENTSERV+7, MENTSERV+3, MENTSERV+7, SUBSERV+3, SUBSERV+7, OTHSERV+3, OTHSERV1+4 , ENASERV+3, ENASERV1+4, T3A+7, T3A+16, T3A+19, T3A+22
IOST	T53H+2
T	DUP~, DUP+3, DUP+4, DUP+9, DUP+10, DUPOE~, DUPOE+3, DUPOE+4, DUPOE+5, DUPOE+6 , DUPOE+7
U	T53+3, T5W+2, T5W+3, TW+1, TW+2, MEDSERV+5, MEDSERV+6, DENTSERV+5, DENTSERV+6, MENTSERV+5 , MENTSERV+6, SUBSERV+5, SUBSERV+6, OTHSERV1+2, OTHSERV1+3, ENASERV1+2, ENASERV1+3, DUP+7, DUP+10, DUPOE+7 , T5H2+3, T5H2+7, USR+1, LOC+1, T3A+9, T3A+12, T3A+14, T3A+20, T3A+24, T3A+26 , T3A+27, T3ASH+2
X	DUP+1~, DUP+5, DUP+6, DUP+7, DUPOE+1~, DUPOE+6, DUPOE+7, T5H2+8, CTR~, CTR+1 , T3ASH+2, C~, C+1, C+5
>> X2	C+3*
>> X3	C+3*
Y	DUP+1~, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+1~, DUPOE+5, DUPOE+6, DUPOE+7, T53H+2 , CTR~, CTR+1, T3ASH+2, C~, C+1, C+2
>> ZTQUEUED	T53H+2

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDARPL3

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: