Routine: BUDARPL2

Package	Total	Call Graph
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
IHS Uniform Data System	1	$$RACE^BUDARPTC
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	BUDARPTL

Name	Comments	DBIA/ICR reference
T3H	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
T52	;EP
T51H	;
T5H2	;
T51	;EP
USR()	;EP - Return name of current user from ^VA(200.
T3A	;EP
T51H1	;
T52H	;
T3H1	;
T5W	;

Name	Field # of Occurrence
$$CLINIC^APCLV	T5W+8, T3A+11
$$LOCENC^APCLV	T5W+8, T3A+11
$$PRIMPROV^APCLV	T5W+8, T3A+11
$$AGE^AUPNPAT	T5W+2, T3A+8
$$HRN^AUPNPAT	T5W+1, T3A+8
$$RACE^BUDARPTC	T5W+2
^DIR	T52H+2, T51H+2, T3H+2
$$FMTE^XLFDT	T5W+8, T5H2+3, T5H2+7, T51H1+3, T51H1+7, T3A+11, T3H1+3, T3H1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Uncategorized Provider visits to report." Line Location: T52+2
Function Call: WRITE	Prompt: !!,"Line ",BUDX2L," ",BUDY Line Location: T52+5
Function Call: WRITE	Prompt: ! Line Location: T52+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)),?36,$E(BUDCOM,1,12) Line Location: T5W+1
Function Call: WRITE	Prompt: ?51,$P(^DPT(DFN,0),U,2),?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$E($P($$RACE^BUDARPTC(DFN),U,4),1,15)," (",$P($$RACE^BUDARPTC(DFN),U,3),")" Line Location: T5W+2
Function Call: WRITE	Prompt: !!,"Line ",BUDX2L," ",BUDY Line Location: T5W+7
Function Call: WRITE	Prompt: ! Line Location: T52H+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, Uncategorized Provider Visits",80),! Line Location: T5H2+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: T5H2+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T5H2+7
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T5H2+8
Function Call: WRITE	Prompt: !,"List of all patients, for uncategorized provider visits. Displays",!,"community, gender, age and visit data, including Provider codes." Line Location: T5H2+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE*" Line Location: T5H2+13
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"PROV CD",?50,"SRV",?55,"CLINIC",?70,"LOCATION" Line Location: T5H2+14
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T5H2+15
Function Call: WRITE	Prompt: !!,"Line ",BUDX2LL," ",BUDY Line Location: T51+10
Function Call: WRITE	Prompt: ! Line Location: T51+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: $$CTR(X,80),! Line Location: T51H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T51H1+9
Function Call: WRITE	Prompt: !,"List of all Active Provider Personnel sorted by Major Service Category.",! Line Location: T51H1+10
Function Call: WRITE	Prompt: !,"PROVIDER NAME",?35,"PROVIDER CODE",?70,"FTE" Line Location: T51H1+11
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T51H1+12
Function Call: WRITE	Prompt: ! Line Location: T3A+12
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 Table 3A, Patients by Age and Gender",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: $$CTR(X,80),! Line Location: T3H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T3H1+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE" Line Location: T3H1+14
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION" Line Location: T3H1+15
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T3H1+17
Routine Call	DIR Line Location: T52H+2 T51H+2 T3H+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	T5W+4, T5W+8, T3A+11
^BUDQTFIV - [#90665.5]	T52+4, T51+5
^BUDQTFIV("B"	T52+4, T51+5
^DIC(4 - [#4]	T5H2+6, LOC+1, T51H1+6, T3H1+6
^DPT - [#2]	T5W+1, T5W+2, T3A+8
^VA(200 - [#200]	T5H2+3, USR+1, T51H1+3, T3H1+3
^XTMP("BUDARPT1"	T52+2, T52+6, T52+7, T52+8, T52+9, T5W+3, T51+2, T51+3, T51+9, T51+11 , T3A+3, T3A+4, T3A+5, T3A+6, T3A+9

Name	Line Occurrences
$$CTR	T5H2+4, T5H2+5, T5H2+6, T5H2+7, T51H1+4, T51H1+5, T51H1+6, T51H1+7, T51H1+8, T3H1+4 , T3H1+5, T3H1+6, T3H1+7, T3H1+8
T3H	T3A+2, T3A+7, T3A+10
T3H1	T3H+1
T51H	T51+7, T51+10
T51H1	T51H+1
T52H	T52+2, T52+3, T5W+7
T5H2	T52H+1
T5W	T52+9

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDAGE	T52+7, T52+8, T52+9, T5W+3, T3A+3, T3A+4, T3A+5, T3A+6, T3A+9
>> BUDBD	T5H2+7, T51H1+7, T3H1+7
>> BUDBEN	T51H1+8, T3H1+8
>> BUDCAD	T5W+2, T3A+8
>> BUDCOM	T52+6, T52+7, T52+8, T52+9, T5W+1, T5W+3, T3A+5, T3A+6, T3A+8, T3A+9
>> BUDDD	T5W+5*, T5W+6
>> BUDED	T5H2+7, T51H1+7, T3H1+7
>> BUDGPG	T52H+1, T5H2+1, T5H2+3, T51H+1, T51H1+1, T51H1+3, T3H+1, T3H1+1*, T3H1+3
>> BUDH	T52+2, T52+6, T52+7, T52+8, T52+9, T5W+3, T51+2, T51+3, T51+9, T51+11 , T3A+3, T3A+4, T3A+5, T3A+6, T3A+9
>> BUDJ	T52+2, T52+6, T52+7, T52+8, T52+9, T5W+3, T51+2, T51+3, T51+9, T51+11 , T3A+3, T3A+4, T3A+5, T3A+6, T3A+9
BUDNEWR	T51+1*, T51+7!
>> BUDP	T52+1, T5H2+9, T5H2+16, T3A+1, T3H1+10, T3H1+16
>> BUDPROV	T51+9*, T51+11
>> BUDQUIT	T52+6, T52+7, T52+8, T52+9, T5W+3, T5W+5, T5W+6, T5W+7, T52H+2, T51+2 , T51+3, T51+7, T51+9, T51+10, T51H+2, T3A+2, T3A+3, T3A+4, T3A+5, T3A+6 , T3A+7, T3A+9, T3A+10, T3H+2*
>> BUDSEX	T52+8, T52+9, T5W+3, T3A+4, T3A+5, T3A+6, T3A+9
>> BUDSITE	T5W+1, T5H2+6, T51H1+6, T3A+8, T3H1+6
>> BUDSUBT	T51+6*
>> BUDV	T5W+3, T5W+4, T5W+6, T5W+8, T3A+9*, T3A+11
BUDVLST	T5W+3!
BUDVLST(	T5W+4*, T5W+5, T5W+6
>> BUDX2L	T52+1, T52+2, T52+4, T52+5, T52+6, T52+7, T52+8, T52+9, T5W+3, T5W+7 , T51+2*, T51+3, T51+4, T51+9, T51+11
>> BUDX2L2	T52+4, T52+6, T52+7, T52+8, T52+9, T5W+3, T51+3, T51+4, T51+9, T51+11
>> BUDX2LL	T51+4*, T51+5, T51+6, T51+8, T51+10
>> BUDY	T52+4, T52+5, T5W+7, T51+5, T51+6, T51+8, T51+10
>> DFN	T52+9, T5W+1, T5W+2, T5W+3, T3A+6, T3A+8, T3A+9
DIR	T52H+2!, T51H+2!, T3H+2!
DIR(0	T52H+2, T51H+2, T3H+2*
DT	T5H2+3, T51H1+3, T3H1+3
>> DTOUT	T52H+2, T51H+2, T3H+2
DUZ	T5H2+3, USR+1, T51H1+3, T3H1+3
DUZ(2	T5W+1, LOC+1, T3A+8
IO	T52H+2, T51H+2, T3H+2
IO(0	T52H+2, T51H+2, T3H+2
IOF	T5H2+1, T51H1+1, T3H1+1
IOM	CTR+1
IOSL	T5W+7, T51+7, T51+10, T3A+7, T3A+10
IOST	T52H+2, T51H+2, T3H+2
U	T52+4, T5W+1, T5W+2, T5W+4, T5W+8, T5H2+3, T5H2+6, USR+1, LOC+1, T51+5 , T51H1+3, T51H1+6, T3A+8, T3A+11, T3H1+3, T3H1+6
X	T5H2+7, CTR~, CTR+1, T51H1+7, T51H1+8, T3H1+7, T3H1+8*
Y	T52H+2, CTR~, CTR+1, T51H+2, T3H+2
>> ZTQUEUED	T52H+2, T51H+2, T3H+2

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDARPL2

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: