Routine: BUD1RPL5

Package	Total	Call Graph
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Uniform Data System	1	BUD1RPTL

Name	Comments	DBIA/ICR reference
T4IPPL2	;
T4IPPL	;EP
T4IPPL1	;
T4CHAR1	;
T4IPPH	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
T4PMIS1	;
T4PMIH1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
T4IPPLX	;
T4PMIH	;
T4PMISX	;
T4PMIS2	;
T4CHAH	;
T4CHAR2	;
USR()	;EP - Return name of current user from ^VA(200.
T4CHAH1	;
T4PMIS	;EP
T4CHARX	;
T4CHAR	;EP
T4IPPH1	;

Name	Field # of Occurrence
$$AGE^AUPNPAT	T4IPPL2+10, T4PMIS2+10, T4CHAR2+10
$$HRN^AUPNPAT	T4IPPL2+9, T4PMIS2+9, T4CHAR2+9
^DIR	T4IPPH+2, T4PMIH+2, T4CHAH+2
$$FMTE^XLFDT	T4IPPH1+3, T4IPPH1+7, T4PMIH1+3, T4PMIH1+8, T4CHAH1+3, T4CHAH1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No patients to report." Line Location: T4IPPL+3
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS: ",BUDTOT,! Line Location: T4IPPL+6
Function Call: WRITE	Prompt: !,"Income as Percent of Poverty Level: ",BUDINC,! Line Location: T4IPPL2+2
Function Call: WRITE	Prompt: !,"Income as Percent of Poverty Level: ",BUDINC,! Line Location: T4IPPL2+7
Function Call: WRITE	Prompt: !!,"Sub-Total Line ",BUDINCI," ",BUDINC,": ",BUDSTOT,! Line Location: T4IPPL2+13
Function Call: WRITE	Prompt: ! Line Location: T4IPPH+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: T4IPPH1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: T4IPPH1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: T4IPPH1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 4, Income As Percent of Poverty Level",80),! Line Location: T4IPPH1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: T4IPPH1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T4IPPH1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T4IPPH1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T4IPPH1+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE" Line Location: T4IPPH1+16
Function Call: WRITE	Prompt: !,?5,"INCOME PERCENT OF POVERTY LEVEL" Line Location: T4IPPH1+17
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: T4IPPH1+19
Function Call: WRITE	Prompt: !!,"No patients to report." Line Location: T4PMIS+3
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS: ",BUDTOT,! Line Location: T4PMIS+6
Function Call: WRITE	Prompt: !,"Principle Third Party Medical Insurance Source: ",BUDINC,! Line Location: T4PMIS2+2
Function Call: WRITE	Prompt: !,"Principle Third Party Medical Insurance Source: ",BUDINC,! Line Location: T4PMIS2+7
Function Call: WRITE	Prompt: !!,"Sub-Total Line ",$S(BUDINCI=8.1:"8a",BUDINCI=8.2:"8b",BUDINCI=10.1:"10a",BUDINCI=10.2:"10b",1:BUDINCI)," ",BUDINC,": ",BUDSTOT,! Line Location: T4PMIS2+13
Function Call: WRITE	Prompt: ! Line Location: T4PMIH+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: T4PMIH1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: T4PMIH1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: T4PMIH1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 4",80) Line Location: T4PMIH1+5
Function Call: WRITE	Prompt: !,$$CTR("Principle Third Party Medical Insurance Source",80),! Line Location: T4PMIH1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: T4PMIH1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T4PMIH1+8
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T4PMIH1+9
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T4PMIH1+10
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE" Line Location: T4PMIH1+16
Function Call: WRITE	Prompt: !,?5,"PRINCIPLE THIRD PARTY MEDICAL INSURANCE SOURCE" Line Location: T4PMIH1+17
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: T4PMIH1+19
Function Call: WRITE	Prompt: !!,"No patients to report." Line Location: T4CHAR+3
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS: ",BUDTOT,! Line Location: T4CHAR+6
Function Call: WRITE	Prompt: !,"Special Characteristics: ",BUDINC,! Line Location: T4CHAR2+2
Function Call: WRITE	Prompt: !,"Special Characteristics: ",BUDINC,! Line Location: T4CHAR2+7
Function Call: WRITE	Prompt: !!,"Sub-Total Line ",BUDINCI," ",BUDINC,": ",BUDSTOT,! Line Location: T4CHAR2+13
Function Call: WRITE	Prompt: ! Line Location: T4CHAH+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: T4CHAH1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: T4CHAH1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: T4CHAH1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 4") Line Location: T4CHAH1+5
Function Call: WRITE	Prompt: !,$$CTR("Characteristics - Special Characteristics",80),! Line Location: T4CHAH1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: T4CHAH1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T4CHAH1+8
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T4CHAH1+9
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T4CHAH1+10
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE" Line Location: T4CHAH1+17
Function Call: WRITE	Prompt: !,?5,"SPECIAL CHARACTERISTIC" Line Location: T4CHAH1+18
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: T4CHAH1+20
Routine Call	DIR Line Location: T4IPPH+2 T4PMIH+2 T4CHAH+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1, T4IPPH1+6, T4PMIH1+7, T4CHAH1+7
^DPT - [#2]	T4IPPL2+9, T4IPPL2+10, T4PMIS2+9, T4PMIS2+10, T4CHAR2+9, T4CHAR2+10
^VA(200 - [#200]	USR+1, T4IPPH1+3, T4PMIH1+3, T4CHAH1+3
^XTMP("BUD1RPT1"	T4IPPL+3, T4IPPL1+3, T4IPPL1+4, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4PMIS+3, T4PMIS1+3, T4PMIS1+4 , T4PMIS2+3, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4CHAR+3, T4CHAR1+3, T4CHAR1+4, T4CHAR2+3, T4CHAR2+4, T4CHAR2+5 , T4CHAR2+6

Name	Line Occurrences
$$CTR	T4IPPH1+4, T4IPPH1+5, T4IPPH1+6, T4IPPH1+7, T4IPPH1+8, T4PMIH1+4, T4PMIH1+5, T4PMIH1+6, T4PMIH1+7, T4PMIH1+8 , T4PMIH1+9, T4CHAH1+4, T4CHAH1+5, T4CHAH1+6, T4CHAH1+7, T4CHAH1+8, T4CHAH1+9
T4CHAH	T4CHAR+2, T4CHAR+5, T4CHAR1+1, T4CHAR2+7, T4CHAR2+12
T4CHAH1	T4CHAH+1
T4CHAR1	T4CHAR+4
T4CHAR2	T4CHAR1+4
T4CHARX	T4CHAR+5
T4IPPH	T4IPPL+2, T4IPPL+5, T4IPPL1+1, T4IPPL2+7, T4IPPL2+12
T4IPPH1	T4IPPH+1
T4IPPL1	T4IPPL+4
T4IPPL2	T4IPPL1+4
T4IPPLX	T4IPPL+5
T4PMIH	T4PMIS+2, T4PMIS+5, T4PMIS1+1, T4PMIS2+7, T4PMIS2+12
T4PMIH1	T4PMIH+1
T4PMIS1	T4PMIS+4
T4PMIS2	T4PMIS1+4
T4PMISX	T4PMIS+5

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDAGE	T4IPPL2+5, T4IPPL2+6, T4PMIS2+3, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4CHAR2+3*, T4CHAR2+4, T4CHAR2+5, T4CHAR2+6
>> BUDBD	T4IPPH1+7, T4PMIH1+8, T4CHAH1+8
>> BUDBEN	T4IPPH1+8, T4PMIH1+9, T4CHAH1+9
>> BUDCAD	T4IPPL2+10, T4PMIS2+10, T4CHAR2+10
>> BUDCOM	T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4IPPL2+10, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4PMIS2+10, T4CHAR2+4* , T4CHAR2+5, T4CHAR2+6, T4CHAR2+10
>> BUDED	T4IPPH1+7, T4PMIH1+8, T4CHAH1+8
>> BUDGPG	T4IPPH+1, T4IPPH1+1, T4IPPH1+3, T4PMIH+1, T4PMIH1+1, T4PMIH1+3, T4CHAH+1, T4CHAH1+1*, T4CHAH1+3
>> BUDH	T4IPPL+3, T4IPPL1+3, T4IPPL1+4, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4PMIS+3, T4PMIS1+3, T4PMIS1+4 , T4PMIS2+3, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4CHAR+3, T4CHAR1+3, T4CHAR1+4, T4CHAR2+3, T4CHAR2+4, T4CHAR2+5 , T4CHAR2+6
>> BUDINC	T4IPPL1+4, T4IPPL2+2, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4IPPL2+7, T4IPPL2+11, T4IPPL2+13, T4PMIS1+4 , T4PMIS2+2, T4PMIS2+3, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4PMIS2+7, T4PMIS2+11, T4PMIS2+13, T4CHAR1+4*, T4CHAR2+2 , T4CHAR2+3, T4CHAR2+4, T4CHAR2+5, T4CHAR2+6, T4CHAR2+7, T4CHAR2+11, T4CHAR2+13
>> BUDINCI	T4IPPL1+3, T4IPPL1+4, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4IPPL2+13, T4PMIS1+3, T4PMIS1+4, T4PMIS2+3 , T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4PMIS2+13, T4CHAR1+3*, T4CHAR1+4, T4CHAR2+3, T4CHAR2+4, T4CHAR2+5, T4CHAR2+6 , T4CHAR2+13
>> BUDJ	T4IPPL+3, T4IPPL1+3, T4IPPL1+4, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4PMIS+3, T4PMIS1+3, T4PMIS1+4 , T4PMIS2+3, T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4CHAR+3, T4CHAR1+3, T4CHAR1+4, T4CHAR2+3, T4CHAR2+4, T4CHAR2+5 , T4CHAR2+6
>> BUDP	T4IPPL+1, T4IPPH1+10, T4IPPH1+20, T4PMIS+1, T4PMIH1+11, T4PMIH1+20, T4CHAR+1, T4CHAH1+11, T4CHAH1+21
>> BUDQUIT	T4IPPL+1, T4IPPL+2, T4IPPL+5, T4IPPL1+1, T4IPPL1+3, T4IPPL1+4, T4IPPL2+3, T4IPPL2+4, T4IPPL2+5, T4IPPL2+6 , T4IPPL2+7, T4IPPL2+12, T4IPPH+2, T4PMIS+1, T4PMIS+2, T4PMIS+5, T4PMIS1+1, T4PMIS1+3, T4PMIS1+4, T4PMIS2+3 , T4PMIS2+4, T4PMIS2+5, T4PMIS2+6, T4PMIS2+7, T4PMIS2+12, T4PMIH+2, T4CHAR+1, T4CHAR+2, T4CHAR+5, T4CHAR1+1 , T4CHAR1+3, T4CHAR1+4, T4CHAR2+3, T4CHAR2+4, T4CHAR2+5, T4CHAR2+6, T4CHAR2+7, T4CHAR2+12, T4CHAH+2
>> BUDSEX	T4IPPL2+4, T4IPPL2+5, T4IPPL2+6, T4PMIS2+5, T4PMIS2+6, T4CHAR2+5*, T4CHAR2+6
>> BUDSITE	T4IPPL2+9, T4IPPH1+6, T4PMIS2+9, T4PMIH1+7, T4CHAR2+9, T4CHAH1+7
>> BUDSTOT	T4IPPL2+1, T4IPPL2+8, T4IPPL2+13, T4PMIS2+1, T4PMIS2+8, T4PMIS2+13, T4CHAR2+1, T4CHAR2+8, T4CHAR2+13
>> BUDTOT	T4IPPL+1, T4IPPL+6, T4IPPL1+2, T4IPPL2+8, T4PMIS+1, T4PMIS+6, T4PMIS1+2, T4PMIS2+8, T4CHAR+1, T4CHAR+6 , T4CHAR1+2, T4CHAR2+8*
>> DFN	T4IPPL2+6, T4IPPL2+9, T4IPPL2+10, T4PMIS2+6, T4PMIS2+9, T4PMIS2+10, T4CHAR2+6*, T4CHAR2+9, T4CHAR2+10
DIR	T4IPPH+2!, T4PMIH+2!, T4CHAH+2!
DIR(0	T4IPPH+2, T4PMIH+2, T4CHAH+2*
DT	T4IPPH1+3, T4PMIH1+3, T4CHAH1+3
>> DTOUT	T4IPPH+2, T4PMIH+2, T4CHAH+2
DUZ	USR+1, T4IPPH1+3, T4PMIH1+3, T4CHAH1+3
DUZ(2	LOC+1, T4IPPL2+9, T4PMIS2+9, T4CHAR2+9
IO	T4IPPH+2, T4PMIH+2, T4CHAH+2
IO(0	T4IPPH+2, T4PMIH+2, T4CHAH+2
IOF	T4IPPH1+1, T4PMIH1+1, T4CHAH1+1
IOM	CTR+1
IOSL	T4IPPL+5, T4IPPL1+1, T4IPPL2+7, T4IPPL2+12, T4PMIS+5, T4PMIS1+1, T4PMIS2+7, T4PMIS2+12, T4CHAR+5, T4CHAR1+1 , T4CHAR2+7, T4CHAR2+12
IOST	T4IPPH+2, T4PMIH+2, T4CHAH+2
U	USR+1, LOC+1, T4IPPL2+9, T4IPPL2+10, T4IPPH1+3, T4IPPH1+6, T4PMIS2+9, T4PMIS2+10, T4PMIH1+3, T4PMIH1+7 , T4CHAR2+9, T4CHAR2+10, T4CHAH1+3, T4CHAH1+7
X	CTR~, CTR+1, T4IPPH1+7, T4IPPH1+8, T4PMIH1+8, T4PMIH1+9, T4CHAH1+8, T4CHAH1+9
Y	CTR~, CTR+1, T4IPPH+2, T4PMIH+2, T4CHAH+2
>> ZTQUEUED	T4IPPH+2, T4PMIH+2, T4CHAH+2

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD1RPL5

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: