Routine: BUDHRP7T

Package	Total	Call Graph
IHS Uniform Data System	3	$$VER^BUDHBAN $$RACEL^BUDHRP7I ($$HISP,$$RACE)^BUDHRPTC
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	BUDHRP7 BUDHRP71

Name	Comments	DBIA/ICR reference
DMR1LX	;
S(V)	;
PAUSE	;
DMR1	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
DMR1HD	;
CTR(X,Y)	;EP - Center X in a field Y wide.
DMR1L2	;
DMR1H	;
DMR1L	;EP
USR()	;EP - Return name of current user from ^VA(200.
GENI	;general introductions
DMR1H1	;
DMR1L1	;

Name	Field # of Occurrence
$$CLINIC^APCLV	DMR1L2+28, DMR1L2+29
$$PRIMPROV^APCLV	DMR1L2+28, DMR1L2+29
$$HRN^AUPNPAT	DMR1L2+10, DMR1L2+11
$$VER^BUDHBAN	DMR1H1+4, DMR1HD+3
$$RACEL^BUDHRP7I	DMR1L2+2
$$HISP^BUDHRPTC	DMR1L2+16
$$RACE^BUDHRPTC	DMR1L2+13
^DIR	PAUSE+1, GENI+4, DMR1H+3
$$VAL^XBDIQ1	DMR1L2+28, DMR1L2+29
$$FMTE^XLFDT	DMR1L2+28, DMR1L2+29, DMR1H1+3, DMR1H1+8, DMR1HD+2, DMR1HD+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NOTE: Patient lists may be hundreds of pages long, depending on the size of your" Line Location: GENI+1
Function Call: WRITE	Prompt: !,"patient population. It is recommended that you run these reports at night and" Line Location: GENI+2
Function Call: WRITE	Prompt: !,"print to an electronic file, not directly to a printer.",! Line Location: GENI+3
Function Call: WRITE	Prompt: !!,"This Patient List option documents the individual patients and visits" Line Location: GENI+5
Function Call: WRITE	Prompt: !,"that are counted and summarized on each Table report (main menu" Line Location: GENI+6
Function Call: WRITE	Prompt: !,"option REP). The summary Table report is included at the beginning of each" Line Location: GENI+7
Function Call: WRITE	Prompt: !,"List report." Line Location: GENI+8
Function Call: WRITE	Prompt: !,"UDS searches your database to find all visits and related patients" Line Location: GENI+9
Function Call: WRITE	Prompt: !,"during the time period selected. Based on the UDS definition, to be counted" Line Location: GENI+10
Function Call: WRITE	Prompt: !,"as a patient, the patient must have had at least one visit meeting the " Line Location: GENI+11
Function Call: WRITE	Prompt: !,"following criteria:" Line Location: GENI+12
Function Call: WRITE	Prompt: !?4,"- must be to a location specified in your visit location setup" Line Location: GENI+13
Function Call: WRITE	Prompt: !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day" Line Location: GENI+14
Function Call: WRITE	Prompt: !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), " Line Location: GENI+15
Function Call: WRITE	Prompt: !?6,"or In-Hospital (I) visit" Line Location: GENI+16
Function Call: WRITE	Prompt: !?4,"- must NOT have an excluded clinic code (see User Manual for a list)" Line Location: GENI+17
Function Call: WRITE	Prompt: !?4,"- must have a primary provider and a coded purpose of visit" Line Location: GENI+18
Function Call: WRITE	Prompt: !?4,"- the patient must NOT have a gender of 'Unknown'" Line Location: GENI+19
Function Call: WRITE	Prompt: ! Line Location: GENI+20
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: DMR1+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2018",80) Line Location: DMR1+3
Function Call: WRITE	Prompt: !!,"All Patients w/DM and A1c >9 by Race and Hispanic or Latino Identity (Table 7)",! Line Location: DMR1+4
Function Call: WRITE	Prompt: !!,"This report provides a list by race and Hispanic or Latino Identity of " Line Location: DMR1+7
Function Call: WRITE	Prompt: !,"patients age 18 to 75 years old who have had at least one medical visit during" Line Location: DMR1+8
Function Call: WRITE	Prompt: !,"the report period, with a diagnosis of Type I or Type II diabetes anytime" Line Location: DMR1+9
Function Call: WRITE	Prompt: !,"through the end of the report period, and without a diagnosis of " Line Location: DMR1+10
Function Call: WRITE	Prompt: !,"polycystic ovaries, gestational diabetes, or steroid-induced diabetes" Line Location: DMR1+11
Function Call: WRITE	Prompt: !,"and with a most recent hemoglobin A1c greater than 9%, or with an A1c" Line Location: DMR1+12
Function Call: WRITE	Prompt: !,"with no result, or with no A1c test during the report period." Line Location: DMR1+13
Function Call: WRITE	Prompt: ! Line Location: DMR1+14
Function Call: WRITE	Prompt: !,"TOTAL DIABETES PATIENTS 18-75 W/A1C >9% BY RACE AND HISPANIC ",!,"OR LATINO IDENTITY: ",BUDTOT,! Line Location: DMR1L+6
Function Call: WRITE	Prompt: !,BUDRACEL Line Location: DMR1L2+3
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: DMR1L2+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(BUDCCOM,1,10),?47,$P(^DPT(DFN,0),U,2),?51,BUDA,! Line Location: DMR1L2+10
Function Call: WRITE	Prompt: ?2,$E($P(BUDRACV,U,4),1,16)_" ("_$P(BUDRACV,U,3),")" Line Location: DMR1L2+14
Function Call: WRITE	Prompt: ?24,$P(BUDHISV,U,3)," (",$P(BUDHISV,U,2),")",! Line Location: DMR1L2+17
Function Call: WRITE	Prompt: ?5,$P(BUDALL,"^",2),! Line Location: DMR1L2+21
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: DMR1L2+24
Function Call: WRITE	Prompt: ?5,BUDV,! Line Location: DMR1L2+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: DMR1L2+28
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: DMR1L2+30
Function Call: WRITE	Prompt: !,"Sub-Total ",BUDRACEL,": ",BUDSTOT,! Line Location: DMR1L2+31
Function Call: WRITE	Prompt: ! Line Location: DMR1H+3
Function Call: WRITE	Prompt: !,$$CTR("*** SENSITIVE INFORMATION ***",IOM) Line Location: DMR1H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?55,"Section "_BUDSCTC_" of "_BUDTSCTC_", Page "_BUDGPG,! Line Location: DMR1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" *",80) Line Location: DMR1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 7, Section C",80) Line Location: DMR1H1+5
Function Call: WRITE	Prompt: !,$$CTR("Diabetes w/o A1c or >9 by Race and Hispanic or Latino Identity ",80),! Line Location: DMR1H1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: DMR1H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: DMR1H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: DMR1H1+9
Function Call: WRITE	Prompt: !?2,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?47,"SEX",?51,"AGE" Line Location: DMR1H1+21
Function Call: WRITE	Prompt: !?2,"RACE",?24,"HISPANIC OR LATINO IDENTITY" Line Location: DMR1H1+22
Function Call: WRITE	Prompt: !?5,"LAST A1C VALUE OR CD & DATE" Line Location: DMR1H1+23
Function Call: WRITE	Prompt: !?5,"LAST DM DATE",?19,"DX OR SVC CD",?35,"PROV TYPE",?45,"SVC CAT",?53,"CLINIC",?65,"LOCATION" Line Location: DMR1H1+24
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: DMR1H1+25
Routine Call	DIR Line Location: PAUSE+1 GENI+4 DMR1H+3

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	DMR1L2+28, DMR1L2+29
^DIC(4 - [#4]	LOC+1, DMR1H1+7, DMR1HD+5
^DPT - [#2]	DMR1L2+10, DMR1L2+11
^TMP($J	S+2*
^VA(200 - [#200]	USR+1, DMR1H1+3, DMR1HD+2
^XTMP("BUDHRP7"	DMR1L+3, DMR1L1+3, DMR1L1+4, DMR1L2+5, DMR1L2+6, DMR1L2+7, DMR1L2+8, DMR1L2+19

Name	Line Occurrences
$$CTR	DMR1+2, DMR1+3, DMR1H1+2, DMR1H1+4, DMR1H1+5, DMR1H1+6, DMR1H1+7, DMR1H1+8
$$LOC	DMR1+2
DMR1H	DMR1L+2, DMR1L+5, DMR1L1+1, DMR1L2+9, DMR1L2+24, DMR1L2+30
DMR1H1	DMR1H+2
DMR1HD	DMR1H+1
DMR1L1	DMR1L+4
DMR1L2	DMR1L1+4
DMR1LX	DMR1L+5
GENI	DMR1+5
PAUSE	DMR1+6
S	DMR1L+3, DMR1L+7, DMR1L2+4, DMR1L2+26, DMR1L2+29, DMR1L2+32, DMR1HD+1, DMR1HD+2, DMR1HD+3, DMR1HD+4 , DMR1HD+5, DMR1HD+6, DMR1HD+7, DMR1HD+8, DMR1HD+9, DMR1HD+10, DMR1HD+11, DMR1HD+12, DMR1HD+13, DMR1HD+14 , DMR1HD+15, DMR1HD+16, DMR1HD+17, DMR1HD+18, DMR1HD+19

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDA	DMR1L2+6*, DMR1L2+7, DMR1L2+8, DMR1L2+10, DMR1L2+11, DMR1L2+19
>> BUDALL	DMR1L2+19*, DMR1L2+20, DMR1L2+21, DMR1L2+22
>> BUDBD	DMR1H1+8, DMR1HD+6
>> BUDBEN	DMR1HD+7
>> BUDCCOM	DMR1L2+5*, DMR1L2+6, DMR1L2+7, DMR1L2+8, DMR1L2+10, DMR1L2+11, DMR1L2+19
>> BUDDECNT	S+1*, S+2
>> BUDED	DMR1H1+8, DMR1HD+6
>> BUDGPG	DMR1H+2, DMR1H1+1*, DMR1H1+3
>> BUDH	DMR1L+3, DMR1L1+3, DMR1L1+4, DMR1L2+5, DMR1L2+6, DMR1L2+7, DMR1L2+8, DMR1L2+19
>> BUDHISV	DMR1L2+16*, DMR1L2+17, DMR1L2+18
>> BUDHTH	DMR1L1+4*, DMR1L2+2, DMR1L2+5, DMR1L2+6, DMR1L2+7, DMR1L2+8, DMR1L2+19
>> BUDJ	DMR1L+3, DMR1L1+3, DMR1L1+4, DMR1L2+5, DMR1L2+6, DMR1L2+7, DMR1L2+8, DMR1L2+19
>> BUDNAME	DMR1L2+7*, DMR1L2+8, DMR1L2+19
>> BUDP	DMR1L+1, DMR1H1+10, DMR1H1+26
>> BUDPPV	DMR1L2+20*, DMR1L2+23
>> BUDPV	DMR1L2+11, DMR1L2+15, DMR1L2+18, DMR1L2+22, DMR1L2+26*, DMR1L2+29
>> BUDQUIT	DMR1L+1, DMR1L+2, DMR1L+5, DMR1L1+1, DMR1L1+3, DMR1L1+4, DMR1L2+5, DMR1L2+6, DMR1L2+7, DMR1L2+8 , DMR1L2+9, DMR1L2+23, DMR1L2+24, DMR1L2+30, DMR1H+3
>> BUDRACE	DMR1L1+3*, DMR1L1+4, DMR1L2+2, DMR1L2+5, DMR1L2+6, DMR1L2+7, DMR1L2+8, DMR1L2+19
>> BUDRACEL	DMR1L2+2*, DMR1L2+3, DMR1L2+4, DMR1L2+9, DMR1L2+24, DMR1L2+30, DMR1L2+31, DMR1L2+32
>> BUDRACV	DMR1L2+13*, DMR1L2+14, DMR1L2+15
>> BUDROT	DMR1L+3, DMR1L+5, DMR1L+6, DMR1L+7, DMR1L1+1, DMR1L2+3, DMR1L2+4, DMR1L2+9, DMR1L2+10, DMR1L2+11 , DMR1L2+14, DMR1L2+15, DMR1L2+17, DMR1L2+18, DMR1L2+21, DMR1L2+22, DMR1L2+24, DMR1L2+25, DMR1L2+26, DMR1L2+28 , DMR1L2+29, DMR1L2+30, DMR1L2+31, DMR1L2+32, DMR1H+1
>> BUDSCTC	DMR1H1+3
>> BUDSITE	DMR1L2+10, DMR1L2+11, DMR1H1+7, DMR1HD+5
>> BUDSTOT	DMR1L2+1, DMR1L2+12, DMR1L2+31, DMR1L2+32
>> BUDTOT	DMR1L+1, DMR1L+6, DMR1L+7, DMR1L1+2, DMR1L2+12*
>> BUDTSCTC	DMR1H1+3
>> BUDV	DMR1L2+23*, DMR1L2+25, DMR1L2+26, DMR1L2+27
>> BUDX	DMR1L2+23*
>> C	DMR1L2+27*, DMR1L2+28, DMR1L2+29
DA	PAUSE+1!
>> DFN	DMR1L2+8*, DMR1L2+10, DMR1L2+11, DMR1L2+13, DMR1L2+16, DMR1L2+19
DIR	PAUSE+1!, GENI+4!, DMR1H+3!
DIR("A"	PAUSE+1, GENI+4
DIR(0	PAUSE+1, GENI+4, DMR1H+3*
DT	DMR1H1+3, DMR1HD+2
>> DTOUT	DMR1H+3
DUZ	USR+1, DMR1H1+3, DMR1HD+2
DUZ(2	LOC+1, DMR1L2+10, DMR1L2+11
IO	DMR1H+3
IO(0	DMR1H+3
IOF	DMR1+1, DMR1H1+1
IOM	CTR+1, DMR1H1+2
IOSL	DMR1L+5, DMR1L1+1, DMR1L2+9, DMR1L2+24, DMR1L2+30
IOST	DMR1H+3
U	USR+1, LOC+1, DMR1L2+10, DMR1L2+11, DMR1L2+14, DMR1L2+15, DMR1L2+17, DMR1L2+18, DMR1L2+22, DMR1L2+23 , DMR1L2+26, DMR1L2+28, DMR1L2+29, DMR1H1+3, DMR1H1+7, DMR1HD+2, DMR1HD+5
V	S~, S+2, DMR1L2+27*, DMR1L2+28, DMR1L2+29
X	CTR~, CTR+1, DMR1L+3, DMR1L2+29, DMR1H1+8, DMR1HD+6, DMR1HD+7*
Y	CTR~, CTR+1, DMR1H+3
>> ZTQUEUED	DMR1H+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDHRP7T

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: