Routine: BUD0RPL3

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

Name	Comments	DBIA/ICR reference
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	;
CTR(X,Y)	;EP - Center X in a field Y wide.
T5H2	;
T53H	;
ENASERV1	;
DUPOE(DFN,T)	;
DENTSERV	;

Name	Field # of Occurrence
$$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^BUD0RPTC	T5W+3
^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^BUD0RPTC(DFN),U,3)_"-"_$P($$RACE^BUD0RPTC(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
Routine Call	DIR Line Location: T53H+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	TW+1, TW+2
^BUDTTFIV - [#90662.5]	T53+3
^BUDTTFIV("B"	T53+3
^DIC(4 - [#4]	T5H2+7, LOC+1
^DPT - [#2]	T5W+2, T5W+3
^VA(200 - [#200]	T5H2+3, USR+1
^XTMP("BUD0RPT1"	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

Name	Line Occurrences
$$CTR	T5H2+4, T5H2+5, T5H2+6, T5H2+7, T5H2+8
$$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
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

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUD0L	T53+3*
>> BUD0L2	T53+3*
>> 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
>> 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
>> 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*
>> 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
>> BUDV	TW+1, TW+2, MEDSERV+6, DENTSERV+6, MENTSERV+6, SUBSERV+6, OTHSERV1+3, ENASERV1+3
>> BUDY	T53+3*
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
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
X	DUP+1~, DUP+5, DUP+6, DUP+7, DUPOE+1~, DUPOE+6, DUPOE+7, T5H2+8*, CTR~, CTR+1
Y	DUP+1~, DUP+6, DUP+7, DUP+9, DUP+10, DUPOE+1~, DUPOE+5*, DUPOE+6, DUPOE+7, T53H+2 , CTR~, CTR+1
>> ZTQUEUED	T53H+2

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD0RPL3

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: