Routine: BUDCRPL2

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

Entry Points

Name	Comments	DBIA/ICR reference
T3HD	;
S(V)	;
T51DH	;
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	;
T52DH	;
T51	;EP
USR()	;EP - Return name of current user from ^VA(200.
T3A	;EP
T51H1	;
T52H	;
T3H1	;
T5W	;

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	T5W+8, T5W+12, T3A+11, T3A+14
$$LOCENC^APCLV	T5W+8, T5W+12, T3A+11, T3A+14
$$PRIMPROV^APCLV	T5W+8, T5W+12, T3A+11, T3A+14
$$AGE^AUPNPAT	T5W+2, T5W+10, T3A+8, T3A+13
$$HRN^AUPNPAT	T5W+1, T5W+10, T3A+8, T3A+13
$$RACE^BUDCRPTC	T5W+2, T5W+11
^DIR	T52H+3, T51H+3, T3H+3
$$FMTE^XLFDT	T5W+8, T5W+12, T52DH+3, T52DH+7, T5H2+3, T5H2+7, T51H1+3, T51H1+7, T51DH+3, T51DH+7 , T3A+11, T3A+14, T3H1+3, T3H1+7, T3HD+3, T3HD+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+6
Function Call: WRITE	Prompt: ! Line Location: T52+15
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^BUDCRPTC(DFN),U,4),1,15)," (",$P($$RACE^BUDCRPTC(DFN),U,3),")" Line Location: T5W+2
Function Call: WRITE	Prompt: !!,"Line ",BUDX2L," ",BUDY Line Location: T5W+7
Function Call: WRITE	Prompt: !?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(BUDV,0),U),".")),?25,$E($$PRIMPROV^APCLV(BUDV,"E"),1,14),?42,$$PRIMPROV^APCLV(BUDV,"D"),?50,$P(^AUPNVSIT(BUDV,0),U,7),?55,$E($$CLINIC^APCLV(BUDV,"E"),1,14),?70,$E($$LOCENC^APCLV(BUDV,"E"),1,9) Line Location: T5W+8
Function Call: WRITE	Prompt: ! Line Location: T52H+3
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("* RPMS 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: $$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, for uncategorized provider visits. Displays",!,"community, gender, age and visit data, including Provider codes." 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",?25,"PROV TYPE",?41,"PROV CD",?50,"SRV",?55,"CLINIC",?70,"LOCATION" Line Location: T5H2+15
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T5H2+16
Function Call: WRITE	Prompt: !!,"Line ",BUDX2LL," ",BUDY Line Location: T51+9
Function Call: WRITE	Prompt: !!,"Line ",BUDX2LL," ",BUDY Line Location: T51+12
Function Call: WRITE	Prompt: !,BUDPROV,?35,^XTMP("BUDCRPT1",BUDJ,BUDH,"T51",BUDX2L,BUDX2L2,BUDPROV) Line Location: T51+13
Function Call: WRITE	Prompt: ! Line Location: T51+16
Function Call: WRITE	Prompt: ! Line Location: T51H+3
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("* RPMS 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: !,$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) Line Location: T3A+8
Function Call: WRITE	Prompt: !?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(BUDV,0),U),".")),?25,$E($$PRIMPROV^APCLV(BUDV,"E"),1,14),?42,$P(^AUPNVSIT(BUDV,0),U,7),?45,$E($$CLINIC^APCLV(BUDV,"E"),1,14),?62,$E($$LOCENC^APCLV(BUDV,"E"),1,14) Line Location: T3A+11
Function Call: WRITE	Prompt: ! Line Location: T3A+16
Function Call: WRITE	Prompt: ! Line Location: T3H+3
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("* RPMS 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+3 T51H+3 T3H+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	T5W+4, T5W+8, T5W+12, T3A+11, T3A+14
^BUDCTFIV - [#90667.5]	T52+5, T51+6
^BUDCTFIV("B"	T52+5, T51+6
^DIC(4 - [#4]	T52DH+6, T5H2+6, LOC+1, T51H1+6, T51DH+6, T3H1+6, T3HD+6
^DPT - [#2]	T5W+1, T5W+2, T5W+10, T3A+8, T3A+13
^TMP($J	S+2*
^VA(200 - [#200]	T52DH+3, T5H2+3, USR+1, T51H1+3, T51DH+3, T3H1+3, T3HD+3
^XTMP("BUDCRPT1"	T52+2, T52+3, T52+8, T52+9, T52+10, T52+11, T5W+3, T51+3, T51+4, T51+11 , T51+13, T51+14, T3A+3, T3A+4, T3A+5, T3A+6, T3A+9

Label References

Name	Line Occurrences
$$CTR	T5H2+4, T5H2+5, T5H2+6, T5H2+7, T5H2+8, T51H1+4, T51H1+5, T51H1+6, T51H1+7, T51H1+8 , T3H1+4, T3H1+5, T3H1+6, T3H1+7, T3H1+8
S	T52+3, T52+7, T5W+13, T52DH+1, T52DH+2, T52DH+3, T52DH+4, T52DH+5, T52DH+6, T52DH+7 , T52DH+8, T52DH+9, T52DH+10, T52DH+11, T52DH+12, T52DH+13, T52DH+14, T51+10, T51+14, T51DH+1 , T51DH+2, T51DH+3, T51DH+4, T51DH+5, T51DH+6, T51DH+7, T51DH+8, T51DH+9, T51DH+10, T51DH+11 , T3A+15, T3HD+1, T3HD+2, T3HD+3, T3HD+4, T3HD+5, T3HD+6, T3HD+7, T3HD+8, T3HD+9 , T3HD+10, T3HD+11, T3HD+12, T3HD+13
T3H	T3A+2, T3A+7, T3A+10
T3H1	T3H+2
T3HD	T3H+1
T51DH	T51+2, T51H+1
T51H	T51+8, T51+12
T51H1	T51H+2
T52DH	T52H+1
T52H	T52+2, T52+3, T52+4, T5W+7
T5H2	T52H+2
T5W	T52+11

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDCRPL2

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: