Routine: BUDCRP7J

Package	Total	Call Graph
IHS Uniform Data System	2	($$RACEL,GENI)^BUDCRP7I ($$HISP,$$RACE)^BUDCRPTC
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$CLINIC,$$PRIMPROV)^APCLV
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Uniform Data System	2	BUDCRP7 BUDCRP71

Name	Comments	DBIA/ICR reference
HTCRH1	;
S(V)	;
USR()	;EP - Return name of current user from ^VA(200.
HTCRL1	;
HTCRL2	;
HTCR	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
HTRL	;EP
HTRH	;
HTR	;EP
HTRL2	;
HTRL1	;
HTCRLX	;
PAUSE	;
HTRH1	;
HTRLX	;
HTCRHD	;
GENI	;general introductions
HTCRH	;
HTRHD	;
HTCRL	;EP

Name	Field # of Occurrence
$$CLINIC^APCLV	HTRL2+27, HTRL2+28, HTCRL2+28, HTCRL2+29
$$PRIMPROV^APCLV	HTRL2+27, HTRL2+28, HTCRL2+28, HTCRL2+29
$$HRN^AUPNPAT	HTRL2+10, HTRL2+11, HTCRL2+10, HTCRL2+11
$$RACEL^BUDCRP7I	HTRL2+2, HTCRL2+2
GENI^BUDCRP7I	GENI+1
$$HISP^BUDCRPTC	HTRL2+16, HTCRL2+16
$$RACE^BUDCRPTC	HTRL2+13, HTCRL2+13
^DIR	PAUSE+1, HTRH+3, HTCRH+3
$$VAL^XBDIQ1	HTRL2+27, HTRL2+28, HTCRL2+28, HTCRL2+29
$$FMTE^XLFDT	HTRL2+27, HTRL2+28, HTRHD+2, HTRHD+6, HTRH1+3, HTRH1+8, HTCRL2+28, HTCRL2+29, HTCRHD+2, HTCRHD+6 , HTCRH1+3, HTCRH1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: HTR+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",80) Line Location: HTR+3
Function Call: WRITE	Prompt: !!,"All Hypertension Patients by Race & Hispanic or Latino Identity (Table 7)",! Line Location: HTR+4
Function Call: WRITE	Prompt: !!,"This report provides a list by race and Hispanic or Latino identity of " Line Location: HTR+7
Function Call: WRITE	Prompt: !,"patients age 18 to 85 years old who have had two medical visits during" Line Location: HTR+8
Function Call: WRITE	Prompt: !,"the report period and were diagnosed with hypertension before June 30 " Line Location: HTR+9
Function Call: WRITE	Prompt: !,"of the report period." Line Location: HTR+10
Function Call: WRITE	Prompt: ! Line Location: HTR+11
Function Call: WRITE	Prompt: !!,X,! Line Location: HTRL+7
Function Call: WRITE	Prompt: !,BUDRACEL Line Location: HTRL2+3
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: HTRL2+9
Function Call: WRITE	Prompt: !?2,$E($P(^DPT(DFN,0),U,1),1,20),?24,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?36,$E(BUDCOM,1,10),?47,$P(^DPT(DFN,0),U,2),?51,BUDA,! Line Location: HTRL2+10
Function Call: WRITE	Prompt: ?2,$E($P(BUDRACV,U,4),1,16)_" ("_$P(BUDRACV,U,3),")" Line Location: HTRL2+14
Function Call: WRITE	Prompt: ?24,$P(BUDHISV,U,3)," (",$P(BUDHISV,U,2),")",! Line Location: HTRL2+17
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: HTRL2+23
Function Call: WRITE	Prompt: ?5,BUDV,! Line Location: HTRL2+24
Function Call: WRITE	Prompt: ?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),".")),?19,C,?35,$$PRIMPROV^APCLV(V,"D"),?45,$P(^AUPNVSIT(V,0),U,7),?53,$$CLINIC^APCLV(V,"C"),?65,$E($$VAL^XBDIQ1(9000010,V,.06),1,15),! Line Location: HTRL2+27
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: HTRL2+29
Function Call: WRITE	Prompt: !,"Sub-Total ",BUDRACEL,": ",BUDSTOT,! Line Location: HTRL2+30
Function Call: WRITE	Prompt: ! Line Location: HTRH+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: HTRH1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: HTRH1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: HTRH1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 7, Section B",80) Line Location: HTRH1+5
Function Call: WRITE	Prompt: !,$$CTR("Hypertension Patients by Race and Hispanic or Latino Identity",80),! Line Location: HTRH1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: HTRH1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HTRH1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: HTRH1+9
Function Call: WRITE	Prompt: !?2,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?47,"SEX",?51,"AGE" Line Location: HTRH1+21
Function Call: WRITE	Prompt: !?2,"RACE",?24,"HISPANIC OR LATINO IDENTITY" Line Location: HTRH1+22
Function Call: WRITE	Prompt: !?5,"LAST HTN DATE",?19,"DX OR SVC CD",?35,"PROV TYPE",?45,"SVC CAT",?53,"CLINIC",?65,"LOCATION" Line Location: HTRH1+23
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: HTRH1+24
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: HTCR+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",80) Line Location: HTCR+3
Function Call: WRITE	Prompt: !!,"All Hypertension Patients w/Controlled BP by Race and Hispanic or Latino Identity (Table 7)",! Line Location: HTCR+4
Function Call: WRITE	Prompt: !!,"This report provides a list by race and Hispanic or Latino identity" Line Location: HTCR+7
Function Call: WRITE	Prompt: !,"of patients age 18 to 85 years old who have had two medical visits" Line Location: HTCR+8
Function Call: WRITE	Prompt: !,"during the report period, were diagnosed with hypertension before" Line Location: HTCR+9
Function Call: WRITE	Prompt: !,"June 30 of the report period, and who have controlled blood pressure " Line Location: HTCR+10
Function Call: WRITE	Prompt: !,"(<140/90 mm HG) during the report period." Line Location: HTCR+11
Function Call: WRITE	Prompt: ! Line Location: HTCR+12
Function Call: WRITE	Prompt: !!,X,! Line Location: HTCRL+7
Function Call: WRITE	Prompt: !,BUDRACEL Line Location: HTCRL2+3
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: HTCRL2+9
Function Call: WRITE	Prompt: !?2,$E($P(^DPT(DFN,0),U,1),1,20),?24,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?36,$E(BUDCOM,1,10),?47,$P(^DPT(DFN,0),U,2),?51,BUDA,! Line Location: HTCRL2+10
Function Call: WRITE	Prompt: ?2,$E($P(BUDRACV,U,4),1,16)_" ("_$P(BUDRACV,U,3),")" Line Location: HTCRL2+14
Function Call: WRITE	Prompt: ?24,$P(BUDHISV,U,3)," (",$P(BUDHISV,U,2),")",! Line Location: HTCRL2+17
Function Call: WRITE	Prompt: ?5,$P(BUDALL,"^",2),! Line Location: HTCRL2+21
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: HTCRL2+24
Function Call: WRITE	Prompt: ?5,BUDV,! Line Location: HTCRL2+25
Function Call: WRITE	Prompt: ?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),".")),?19,C,?35,$$PRIMPROV^APCLV(V,"D"),?45,$P(^AUPNVSIT(V,0),U,7),?53,$$CLINIC^APCLV(V,"C"),?65,$E($$VAL^XBDIQ1(9000010,V,.06),1,15),! Line Location: HTCRL2+28
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: HTCRL2+30
Function Call: WRITE	Prompt: !,"Sub-Total ",BUDRACEL,": ",BUDSTOT,! Line Location: HTCRL2+31
Function Call: WRITE	Prompt: ! Line Location: HTCRH+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: HTCRH1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: HTCRH1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: HTCRH1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 7, Section B",80) Line Location: HTCRH1+5
Function Call: WRITE	Prompt: !,$$CTR("Hypertension w/Controlled BP by Race and Hispanic or Latino Identity",80),! Line Location: HTCRH1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: HTCRH1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HTCRH1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: HTCRH1+9
Function Call: WRITE	Prompt: !?2,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?47,"SEX",?51,"AGE" Line Location: HTCRH1+20
Function Call: WRITE	Prompt: !?2,"RACE",?24,"HISPANIC OR LATINO IDENTITY" Line Location: HTCRH1+21
Function Call: WRITE	Prompt: !?5,"LAST BP VALUE OR CD & DATE" Line Location: HTCRH1+22
Function Call: WRITE	Prompt: !?5,"LAST HTN DATE",?19,"DX OR SVC CD",?35,"PROV TYPE",?45,"SVC CAT",?53,"CLINIC",?65,"LOCATION" Line Location: HTCRH1+23
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: HTCRH1+24
Routine Call	DIR Line Location: PAUSE+1 HTRH+3 HTCRH+3

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	HTRL2+27, HTRL2+28, HTCRL2+28, HTCRL2+29
^DIC(4 - [#4]	LOC+1, HTRHD+5, HTRH1+7, HTCRHD+5, HTCRH1+7
^DPT - [#2]	HTRL2+10, HTRL2+11, HTCRL2+10, HTCRL2+11
^TMP($J	S+2*
^VA(200 - [#200]	USR+1, HTRHD+2, HTRH1+3, HTCRHD+2, HTCRH1+3
^XTMP("BUDCRP7"	HTRL+3, HTRL1+3, HTRL1+4, HTRL2+5, HTRL2+6, HTRL2+7, HTRL2+8, HTRL2+19, HTCRL+3, HTCRL1+3 , HTCRL1+4, HTCRL2+5, HTCRL2+6, HTCRL2+7, HTCRL2+8, HTCRL2+19

Name	Line Occurrences
$$CTR	HTR+2, HTR+3, HTRH1+4, HTRH1+5, HTRH1+6, HTRH1+7, HTRH1+8, HTCR+2, HTCR+3, HTCRH1+4 , HTCRH1+5, HTCRH1+6, HTCRH1+7, HTCRH1+8
$$LOC	HTR+2, HTCR+2
GENI	HTR+5, HTCR+5
HTCRH	HTCRL+2, HTCRL+5, HTCRL1+1, HTCRL2+9, HTCRL2+24, HTCRL2+30
HTCRH1	HTCRH+2
HTCRHD	HTCRH+1
HTCRL1	HTCRL+4
HTCRL2	HTCRL1+4
HTCRLX	HTCRL+5
HTRH	HTRL+2, HTRL+5, HTRL1+1, HTRL2+9, HTRL2+23, HTRL2+29
HTRH1	HTRH+2
HTRHD	HTRH+1
HTRL1	HTRL+4
HTRL2	HTRL1+4
HTRLX	HTRL+5
PAUSE	HTR+6, HTCR+6
S	HTRL+3, HTRL+8, HTRL2+4, HTRL2+28, HTRL2+31, HTRHD+1, HTRHD+2, HTRHD+3, HTRHD+4, HTRHD+5 , HTRHD+6, HTRHD+7, HTRHD+8, HTRHD+9, HTRHD+10, HTRHD+11, HTRHD+12, HTRHD+13, HTRHD+14, HTRHD+15 , HTRHD+16, HTRHD+17, HTRHD+18, HTRHD+19, HTCRL+3, HTCRL+8, HTCRL2+4, HTCRL2+26, HTCRL2+29, HTCRL2+32 , HTCRHD+1, HTCRHD+2, HTCRHD+3, HTCRHD+4, HTCRHD+5, HTCRHD+6, HTCRHD+7, HTCRHD+8, HTCRHD+9, HTCRHD+10 , HTCRHD+11, HTCRHD+12, HTCRHD+13, HTCRHD+14, HTCRHD+15, HTCRHD+16, HTCRHD+17, HTCRHD+18

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDA	HTRL2+6, HTRL2+7, HTRL2+8, HTRL2+10, HTRL2+11, HTRL2+19, HTCRL2+6, HTCRL2+7, HTCRL2+8, HTCRL2+10 , HTCRL2+11, HTCRL2+19
>> BUDALL	HTRL2+19, HTRL2+20, HTCRL2+19, HTCRL2+20, HTCRL2+21, HTCRL2+22
>> BUDBD	HTRHD+6, HTRH1+8, HTCRHD+6, HTCRH1+8
>> BUDCEN	HTRHD+7, HTCRHD+7
>> BUDCOM	HTRL2+5, HTRL2+6, HTRL2+7, HTRL2+8, HTRL2+10, HTRL2+11, HTRL2+19, HTCRL2+5, HTCRL2+6, HTCRL2+7 , HTCRL2+8, HTCRL2+10, HTCRL2+11, HTCRL2+19
>> BUDDECNT	S+1*, S+2
>> BUDED	HTRHD+6, HTRH1+8, HTCRHD+6, HTCRH1+8
>> BUDETH	HTRL1+4, HTRL2+2, HTRL2+5, HTRL2+6, HTRL2+7, HTRL2+8, HTRL2+19, HTCRL1+4, HTCRL2+2, HTCRL2+5 , HTCRL2+6, HTCRL2+7, HTCRL2+8, HTCRL2+19
>> BUDGPG	HTRH+2, HTRH1+1, HTRH1+3, HTCRH+2, HTCRH1+1, HTCRH1+3
>> BUDH	HTRL+3, HTRL1+3, HTRL1+4, HTRL2+5, HTRL2+6, HTRL2+7, HTRL2+8, HTRL2+19, HTCRL+3, HTCRL1+3 , HTCRL1+4, HTCRL2+5, HTCRL2+6, HTCRL2+7, HTCRL2+8, HTCRL2+19
>> BUDHISV	HTRL2+16, HTRL2+17, HTRL2+18, HTCRL2+16, HTCRL2+17, HTCRL2+18
>> BUDJ	HTRL+3, HTRL1+3, HTRL1+4, HTRL2+5, HTRL2+6, HTRL2+7, HTRL2+8, HTRL2+19, HTCRL+3, HTCRL1+3 , HTCRL1+4, HTCRL2+5, HTCRL2+6, HTCRL2+7, HTCRL2+8, HTCRL2+19
>> BUDNAME	HTRL2+7, HTRL2+8, HTRL2+19, HTCRL2+7, HTCRL2+8, HTCRL2+19
>> BUDP	HTRL+1, HTRH1+10, HTRH1+25, HTCRL+1, HTCRH1+10, HTCRH1+25
>> BUDPPV	HTRL2+20, HTRL2+22, HTCRL2+20, HTCRL2+23
>> BUDPV	HTRL2+11, HTRL2+15, HTRL2+18, HTRL2+25, HTRL2+28, HTCRL2+11, HTCRL2+15, HTCRL2+18, HTCRL2+22, HTCRL2+26* , HTCRL2+29
>> BUDQUIT	HTRL+1, HTRL+2, HTRL+5, HTRL1+1, HTRL1+3, HTRL1+4, HTRL2+5, HTRL2+6, HTRL2+7, HTRL2+8 , HTRL2+9, HTRL2+22, HTRL2+23, HTRL2+29, HTRH+3, HTCRL+1, HTCRL+2, HTCRL+5, HTCRL1+1, HTCRL1+3 , HTCRL1+4, HTCRL2+5, HTCRL2+6, HTCRL2+7, HTCRL2+8, HTCRL2+9, HTCRL2+23, HTCRL2+24, HTCRL2+30, HTCRH+3
>> BUDRACE	HTRL1+3, HTRL1+4, HTRL2+2, HTRL2+5, HTRL2+6, HTRL2+7, HTRL2+8, HTRL2+19, HTCRL1+3, HTCRL1+4 , HTCRL2+2, HTCRL2+5, HTCRL2+6, HTCRL2+7, HTCRL2+8, HTCRL2+19
>> BUDRACEL	HTRL2+2, HTRL2+3, HTRL2+4, HTRL2+9, HTRL2+23, HTRL2+29, HTRL2+30, HTRL2+31, HTCRL2+2, HTCRL2+3 , HTCRL2+4, HTCRL2+9, HTCRL2+24, HTCRL2+30, HTCRL2+31, HTCRL2+32
>> BUDRACV	HTRL2+13, HTRL2+14, HTRL2+15, HTCRL2+13, HTCRL2+14, HTCRL2+15
>> BUDROT	HTRL+3, HTRL+5, HTRL+7, HTRL+8, HTRL1+1, HTRL2+3, HTRL2+4, HTRL2+9, HTRL2+10, HTRL2+11 , HTRL2+14, HTRL2+15, HTRL2+17, HTRL2+18, HTRL2+23, HTRL2+24, HTRL2+25, HTRL2+27, HTRL2+28, HTRL2+29 , HTRL2+30, HTRL2+31, HTRH+1, HTCRL+3, HTCRL+5, HTCRL+7, HTCRL+8, HTCRL1+1, HTCRL2+3, HTCRL2+4 , HTCRL2+9, HTCRL2+10, HTCRL2+11, HTCRL2+14, HTCRL2+15, HTCRL2+17, HTCRL2+18, HTCRL2+21, HTCRL2+22, HTCRL2+24 , HTCRL2+25, HTCRL2+26, HTCRL2+28, HTCRL2+29, HTCRL2+30, HTCRL2+31, HTCRL2+32, HTCRH+1
>> BUDSITE	HTRL2+10, HTRL2+11, HTRHD+5, HTRH1+7, HTCRL2+10, HTCRL2+11, HTCRHD+5, HTCRH1+7
>> BUDSTOT	HTRL2+1, HTRL2+12, HTRL2+30, HTRL2+31, HTCRL2+1, HTCRL2+12, HTCRL2+31, HTCRL2+32
>> BUDTOT	HTRL+1, HTRL+6, HTRL1+2, HTRL2+12, HTCRL+1, HTCRL+6, HTCRL1+2, HTCRL2+12
>> BUDV	HTRL2+22, HTRL2+24, HTRL2+25, HTRL2+26, HTCRL2+23, HTCRL2+25, HTCRL2+26, HTCRL2+27
>> BUDX	HTRL2+22, HTCRL2+23
>> C	HTRL2+26, HTRL2+27, HTRL2+28, HTCRL2+27, HTCRL2+28, HTCRL2+29
DA	PAUSE+1!
>> DFN	HTRL2+8, HTRL2+10, HTRL2+11, HTRL2+13, HTRL2+16, HTRL2+19, HTCRL2+8, HTCRL2+10, HTCRL2+11, HTCRL2+13 , HTCRL2+16, HTCRL2+19
DIR	PAUSE+1!, HTRH+3!, HTCRH+3!
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1, HTRH+3, HTCRH+3*
DT	HTRHD+2, HTRH1+3, HTCRHD+2, HTCRH1+3
>> DTOUT	HTRH+3, HTCRH+3
DUZ	USR+1, HTRHD+2, HTRH1+3, HTCRHD+2, HTCRH1+3
DUZ(2	LOC+1, HTRL2+10, HTRL2+11, HTCRL2+10, HTCRL2+11
IO	HTRH+3, HTCRH+3
IO(0	HTRH+3, HTCRH+3
IOF	HTR+1, HTRH1+1, HTCR+1, HTCRH1+1
IOM	CTR+1
IOSL	HTRL+5, HTRL1+1, HTRL2+9, HTRL2+23, HTRL2+29, HTCRL+5, HTCRL1+1, HTCRL2+9, HTCRL2+24, HTCRL2+30
IOST	HTRH+3, HTCRH+3
U	USR+1, LOC+1, HTRL2+10, HTRL2+11, HTRL2+14, HTRL2+15, HTRL2+17, HTRL2+18, HTRL2+22, HTRL2+25 , HTRL2+27, HTRL2+28, HTRHD+2, HTRHD+5, HTRH1+3, HTRH1+7, HTCRL2+10, HTCRL2+11, HTCRL2+14, HTCRL2+15 , HTCRL2+17, HTCRL2+18, HTCRL2+22, HTCRL2+23, HTCRL2+26, HTCRL2+28, HTCRL2+29, HTCRHD+2, HTCRHD+5, HTCRH1+3 , HTCRH1+7
V	S~, S+2, HTRL2+26, HTRL2+27, HTRL2+28, HTCRL2+27, HTCRL2+28, HTCRL2+29
X	CTR~, CTR+1, HTRL+3, HTRL+6, HTRL+7, HTRL+8, HTRL2+28, HTRHD+6, HTRHD+7, HTRH1+8 , HTCRL+3, HTCRL+6, HTCRL+7, HTCRL+8, HTCRL2+29, HTCRHD+6, HTCRHD+7, HTCRH1+8
Y	CTR~, CTR+1, HTRH+3, HTCRH+3
>> ZTQUEUED	HTRH+3, HTCRH+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDCRP7J

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: