Routine: BUDCRP6A

Package	Total	Call Graph
IHS Uniform Data System	2	EN1^BUDCRP6B GENI^BUDCRP6I
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
IHS VA Utilities	1	EN^XBVK
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Uniform Data System	1	BUDCRP6I

Name	Comments	DBIA/ICR reference
HIV2H	;
HIV1H1	;
S(V)	;
PAUSE	;
CTR(X,Y)	;
LOC()	;
EOJ	;
HIV2H1	;
HIV1H	;
HIV2L1	;
HIV1L	;EP
HIV1HD	;
HIV1L1	;
GENI	;EP
HIV2L	;EP
HIV2	;EP
HIV1	;EP
HIVLIST2	;EP
HIVLIST1	;EP
HIV2HD	;

Name	Field # of Occurrence
$$AGE^AUPNPAT	HIV1L1+11, HIV2L1+11
$$HRN^AUPNPAT	HIV1L1+7, HIV1L1+11, HIV2L1+7, HIV2L1+11
EN1^BUDCRP6B	HIVLIST1+4, HIVLIST2+4
GENI^BUDCRP6I	GENI+1
^DIR	PAUSE+1, HIV1H+3, HIV2H+3
EN^XBVK	EOJ+1
$$FMTE^XLFDT	HIV1HD+3, HIV1HD+8, HIV1H1+3, HIV1H1+7, HIV2HD+3, HIV2HD+8, HIV2H1+3, HIV2H1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: HIV1+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",80) Line Location: HIV1+3
Function Call: WRITE	Prompt: !!,"Newly Idenitifed HIV Cases with Timely Follow-Up (Table 6B)",! Line Location: HIV1+4
Function Call: WRITE	Prompt: !!,"This report provides a list of all patients whose first ever HIV" Line Location: HIV1+7
Function Call: WRITE	Prompt: !,"diagnosis occurred between October 1 of the prior year through" Line Location: HIV1+8
Function Call: WRITE	Prompt: !,"September 30th of the current report year and had a medical visit for" Line Location: HIV1+9
Function Call: WRITE	Prompt: !,"HIV care within 90 days of the first-ever HIV diagnosis, and had at " Line Location: HIV1+10
Function Call: WRITE	Prompt: !,"least one medical visit during the report year." Line Location: HIV1+11
Function Call: WRITE	Prompt: !,"Age is calculated as of December 31." Line Location: HIV1+12
Function Call: WRITE	Prompt: ! Line Location: HIV1+13
Function Call: WRITE	Prompt: !,"TOTAL PATIENTS WITH FIRST HIV DX & TIMELY FOLLOW-UP: ",BUDTOT,! Line Location: HIV1L+6
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,! Line Location: HIV1L1+7
Function Call: WRITE	Prompt: ?5,$P(BUDALL,"\|",1),?35,$S($P(BUDALL,"\|",3)]"":$P(BUDALL,"\|",3),1:"None"),?46,$P(BUDALL,"\|",2) Line Location: HIV1L1+10
Function Call: WRITE	Prompt: ! Line Location: HIV1H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: HIV1H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: HIV1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: HIV1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section L,",80),!,$$CTR("Newly Identified HIV Cases with Timely Follow-Up",80),! Line Location: HIV1H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: HIV1H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HIV1H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HIV1H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: HIV1H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: HIV1H1+17
Function Call: WRITE	Prompt: !?5,"First HIV DX: Date",?35,"Date of Onset",?50,"HIV Follow-up: Date" Line Location: HIV1H1+18
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: HIV1H1+19
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: HIV2+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",80) Line Location: HIV2+3
Function Call: WRITE	Prompt: !!,"Newly Idenitifed HIV Cases with Timely Follow-Up (Table 6B)",! Line Location: HIV2+4
Function Call: WRITE	Prompt: !!,"This report provides a list of all patients whose first ever HIV" Line Location: HIV2+7
Function Call: WRITE	Prompt: !,"diagnosis occurred between October 1 of the prior year through" Line Location: HIV2+8
Function Call: WRITE	Prompt: !,"September 30th of the current report year and did not have a medical visit" Line Location: HIV2+9
Function Call: WRITE	Prompt: !,"for HIV care within 90 days of the first-ever HIV diagnosis, and had at " Line Location: HIV2+10
Function Call: WRITE	Prompt: !,"least one medical visit during the report year." Line Location: HIV2+11
Function Call: WRITE	Prompt: !,"Age is calculated as of December 31." Line Location: HIV2+12
Function Call: WRITE	Prompt: ! Line Location: HIV2+13
Function Call: WRITE	Prompt: !,"TOTAL PATIENTS WITH FIRST HIV DX & TIMELY FOLLOW-UP: ",BUDTOT,! Line Location: HIV2L+6
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,! Line Location: HIV2L1+7
Function Call: WRITE	Prompt: ?5,$P(BUDALL,"\|",1),?35,$S($P(BUDALL,"\|",3)]"":$P(BUDALL,"\|",3),1:"None"),?46,$P(BUDALL,"\|",2) Line Location: HIV2L1+10
Function Call: WRITE	Prompt: ! Line Location: HIV2H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: HIV2H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: HIV2H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: HIV2H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section L,",80),!,$$CTR("Newly Identified HIV Cases without Timely Follow-Up",80),! Line Location: HIV2H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: HIV2H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HIV2H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HIV2H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: HIV2H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: HIV2H1+17
Function Call: WRITE	Prompt: !?5,"First HIV DX: Date",?35,"Date of Onset",?50,"HIV Follow-up: Date" Line Location: HIV2H1+18
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: HIV2H1+19
Routine Call	DIR Line Location: PAUSE+1 HIV1H+3 HIV2H+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1, HIV1HD+7, HIV1H1+6, HIV2HD+7, HIV2H1+6
^DPT - [#2]	HIV1L1+7, HIV1L1+11, HIV2L1+7, HIV2L1+11
^TMP($J	S+2*
^VA(200 - [#200]	HIV1HD+3, HIV1H1+3, HIV2HD+3, HIV2H1+3
^XTMP("BUDCRP6B"	HIV1L+3, HIV1L1+2, HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+9, HIV2L+3, HIV2L1+2, HIV2L1+3, HIV2L1+4 , HIV2L1+5, HIV2L1+9

Name	Line Occurrences
$$CTR	HIV1+2, HIV1+3, HIV1H1+4, HIV1H1+5, HIV1H1+6, HIV1H1+7, HIV1H1+8, HIV2+2, HIV2+3, HIV2H1+4 , HIV2H1+5, HIV2H1+6, HIV2H1+7, HIV2H1+8
$$LOC	HIV1+2, HIV2+2
EOJ	HIVLIST1+1, HIVLIST2+1
GENI	HIV1+5, HIV2+5
HIV1	HIVLIST1+3
HIV1H	HIV1L+2, HIV1L+5, HIV1L1+1, HIV1L1+6
HIV1H1	HIV1H+2
HIV1HD	HIV1H+1
HIV1L1	HIV1L+4
HIV2	HIVLIST2+3
HIV2H	HIV2L+2, HIV2L+5, HIV2L1+1, HIV2L1+6
HIV2H1	HIV2H+2
HIV2HD	HIV2H+1
HIV2L1	HIV2L+4
PAUSE	HIV1+6, HIV2+6
S	HIV1L+3, HIV1L+7, HIV1L1+12, HIV1HD+1, HIV1HD+2, HIV1HD+3, HIV1HD+4, HIV1HD+5, HIV1HD+6, HIV1HD+7 , HIV1HD+8, HIV1HD+9, HIV1HD+10, HIV1HD+11, HIV1HD+12, HIV1HD+13, HIV1HD+14, HIV1HD+15, HIV1HD+16, HIV1HD+17 , HIV2L+3, HIV2L+7, HIV2L1+12, HIV2HD+1, HIV2HD+2, HIV2HD+3, HIV2HD+4, HIV2HD+5, HIV2HD+6, HIV2HD+7 , HIV2HD+8, HIV2HD+9, HIV2HD+10, HIV2HD+11, HIV2HD+12, HIV2HD+13, HIV2HD+14, HIV2HD+15, HIV2HD+16, HIV2HD+17

Name	Field # of Occurrence
^(0	LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDAGE	HIV1L1+2, HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+7, HIV1L1+9, HIV2L1+2, HIV2L1+3, HIV2L1+4, HIV2L1+5 , HIV2L1+7, HIV2L1+9
>> BUDALL	HIV1L1+9, HIV1L1+10, HIV1L1+12, HIV2L1+9, HIV2L1+10, HIV2L1+12
>> BUDBD	HIV1HD+8, HIV1H1+7, HIV2HD+8, HIV2H1+7
>> BUDCAD	HIV1L1+11, HIV2L1+11
>> BUDCEN	HIV1HD+9, HIV1H1+8, HIV2HD+9, HIV2H1+8
>> BUDCOM	HIV1L1+4, HIV1L1+5, HIV1L1+7, HIV1L1+9, HIV1L1+11, HIV2L1+4, HIV2L1+5, HIV2L1+7, HIV2L1+9, HIV2L1+11
>> BUDDECNT	S+1*, S+2
>> BUDED	HIV1HD+8, HIV1H1+7, HIV2HD+8, HIV2H1+7
>> BUDGPG	HIV1H+2, HIV1H1+1, HIV1H1+3, HIV2H+2, HIV2H1+1, HIV2H1+3
>> BUDH	HIV1L+3, HIV1L1+2, HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+9, HIV2L+3, HIV2L1+2, HIV2L1+3, HIV2L1+4 , HIV2L1+5, HIV2L1+9
>> BUDHIV1L	HIVLIST1+2*
>> BUDHIV2L	HIVLIST2+2*
>> BUDJ	HIV1L+3, HIV1L1+2, HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+9, HIV2L+3, HIV2L1+2, HIV2L1+3, HIV2L1+4 , HIV2L1+5, HIV2L1+9
>> BUDNAME	HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+9, HIV2L1+3, HIV2L1+4, HIV2L1+5, HIV2L1+9
>> BUDP	HIV1L+1, HIV1H1+10, HIV1H1+20, HIV2L+1, HIV2H1+10, HIV2H1+20
>> BUDQUIT	HIV1L+1, HIV1L+2, HIV1L+5, HIV1L1+1, HIV1L1+2, HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+6, HIV1H+3 , HIV2L+1, HIV2L+2, HIV2L+5, HIV2L1+1, HIV2L1+2, HIV2L1+3, HIV2L1+4, HIV2L1+5, HIV2L1+6, HIV2H+3
>> BUDROT	HIV1L+3, HIV1L+5, HIV1L+6, HIV1L+7, HIV1L1+1, HIV1L1+6, HIV1L1+7, HIV1L1+10, HIV1L1+11, HIV1H+1 , HIV2L+3, HIV2L+5, HIV2L+6, HIV2L+7, HIV2L1+1, HIV2L1+6, HIV2L1+7, HIV2L1+10, HIV2L1+11, HIV2H+1
>> BUDSITE	HIV1L1+7, HIV1L1+11, HIV1HD+7, HIV1H1+6, HIV2L1+7, HIV2L1+11, HIV2HD+7, HIV2H1+6
>> BUDTOT	HIV1L+1, HIV1L+6, HIV1L+7, HIV1L1+8, HIV2L+1, HIV2L+6, HIV2L+7, HIV2L1+8
DA	PAUSE+1!
>> DFN	HIV1L1+5, HIV1L1+7, HIV1L1+9, HIV1L1+11, HIV2L1+5, HIV2L1+7, HIV2L1+9, HIV2L1+11
DIR	PAUSE+1!, HIV1H+3!, HIV2H+3!
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1, HIV1H+3, HIV2H+3*
DT	HIV1HD+3, HIV1H1+3, HIV2HD+3, HIV2H1+3
>> DTOUT	HIV1H+3, HIV2H+3
DUZ	HIV1HD+3, HIV1H1+3, HIV2HD+3, HIV2H1+3
DUZ(2	LOC+1, HIV1L1+7, HIV1L1+11, HIV2L1+7, HIV2L1+11
IO	HIV1H+3, HIV2H+3
IO(0	HIV1H+3, HIV2H+3
IOF	HIV1+1, HIV1H1+1, HIV2+1, HIV2H1+1
IOM	CTR+1
IOSL	HIV1L+5, HIV1L1+1, HIV1L1+6, HIV2L+5, HIV2L1+1, HIV2L1+6
IOST	HIV1H+3, HIV2H+3
U	LOC+1, HIV1L1+7, HIV1L1+11, HIV1L1+12, HIV1HD+3, HIV1HD+7, HIV1H1+3, HIV1H1+6, HIV2L1+7, HIV2L1+11 , HIV2L1+12, HIV2HD+3, HIV2HD+7, HIV2H1+3, HIV2H1+6
V	S~, S+2
X	CTR~, CTR+1, HIV1L1+11, HIV1L1+12, HIV1HD+8, HIV1HD+9, HIV1H1+7, HIV1H1+8, HIV2L1+11, HIV2L1+12 , HIV2HD+8, HIV2HD+9, HIV2H1+7, HIV2H1+8
Y	CTR~, CTR+1, HIV1H+3, HIV2H+3
>> ZTQUEUED	HIV1H+3, HIV2H+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDCRP6A

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: