Routine: BUD1RP7T

Package	Total	Call Graph
IHS Uniform Data System	2	$$RACEL^BUD1RP7I ($$HISP,$$RACE)^BUD1RPTC
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	BUD1RP7 BUD1RP71

Name	Comments	DBIA/ICR reference
DMR4H1	;
DMR4L1	;
DMR4	;EP
DMR3	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
DMR3L1	;
DMR3L	;EP
DMR3H	;
DMR3H1	;
DMR3L2	;
USR()	;EP - Return name of current user from ^VA(200.
PAUSE	;
DMR4LX	;
GENI	;general introductions
DMR4H	;
DMR3LX	;
DMR4L	;EP
DMR4L2	;

Name	Field # of Occurrence
$$CLINIC^APCLV	DMR4L2+22, DMR3L2+22
$$PRIMPROV^APCLV	DMR4L2+22, DMR3L2+22
$$HRN^AUPNPAT	DMR4L2+9, DMR3L2+9
$$RACEL^BUD1RP7I	DMR4L2+2, DMR3L2+2
$$HISP^BUD1RPTC	DMR4L2+13, DMR3L2+13
$$RACE^BUD1RPTC	DMR4L2+11, DMR3L2+11
^DIR	PAUSE+1, GENI+4, DMR4H+2, DMR3H+2
$$VAL^XBDIQ1	DMR4L2+22, DMR3L2+22
$$FMTE^XLFDT	DMR4L2+22, DMR4H1+3, DMR4H1+8, DMR3L2+22, DMR3H1+3, DMR3H1+8

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: ! Line Location: GENI+19
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: DMR4+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2011",80) Line Location: DMR4+3
Function Call: WRITE	Prompt: !!,"All Patients w/DM and A1c >9 by Race and Hispanic or Latino Identity (Table 7)",! Line Location: DMR4+4
Function Call: WRITE	Prompt: !!,"This report provides a list by race and Hispanic or Latino Identity of " Line Location: DMR4+7
Function Call: WRITE	Prompt: !,"patients age 18 to 75 years old who have had two medical visits during" Line Location: DMR4+8
Function Call: WRITE	Prompt: !,"the report period, with a diagnosis of Type I or Type II diabetes anytime" Line Location: DMR4+9
Function Call: WRITE	Prompt: !,"through the end of the report period, and without a diagnosis of " Line Location: DMR4+10
Function Call: WRITE	Prompt: !,"polycystic ovaries, gestational diabetes, or steroid-induced diabetes" Line Location: DMR4+11
Function Call: WRITE	Prompt: !,"and with a most recent hemoglobin A1c greater than 9%, or with an A1c" Line Location: DMR4+12
Function Call: WRITE	Prompt: !,"with no result, or with no A1c test during the report period." Line Location: DMR4+13
Function Call: WRITE	Prompt: ! Line Location: DMR4+14
Function Call: WRITE	Prompt: !!,"No patients to report." Line Location: DMR4L+3
Function Call: WRITE	Prompt: !!,"TOTAL DM PATIENTS 18+ W/A1C >9%: ",BUDTOT,! Line Location: DMR4L+6
Function Call: WRITE	Prompt: !,BUDRACEL Line Location: DMR4L2+3
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: DMR4L2+8
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: DMR4L2+19
Function Call: WRITE	Prompt: ?5,BUDV,! Line Location: DMR4L2+20
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: DMR4L2+23
Function Call: WRITE	Prompt: !,"Sub-Total ",BUDRACEL,": ",BUDSTOT,! Line Location: DMR4L2+24
Function Call: WRITE	Prompt: ! Line Location: DMR4H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: DMR4H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: DMR4H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: DMR4H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 7, Section C",80) Line Location: DMR4H1+5
Function Call: WRITE	Prompt: !,$$CTR("Diabetes w/o A1c or >9 by Race and Hispanic or Latino Identity ",80),! Line Location: DMR4H1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: DMR4H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: DMR4H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: DMR4H1+9
Function Call: WRITE	Prompt: !?2,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?47,"SEX",?51,"AGE" Line Location: DMR4H1+21
Function Call: WRITE	Prompt: !?2,"RACE",?24,"HISPANIC OR LATINO IDENTITY" Line Location: DMR4H1+22
Function Call: WRITE	Prompt: !?5,"LAST A1C VALUE OR CD & DATE" Line Location: DMR4H1+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: DMR4H1+24
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: DMR4H1+25
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: DMR3+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2011",80) Line Location: DMR3+3
Function Call: WRITE	Prompt: !!,"All DM Patients w/A1c >=8 and <=9 by Race & Hisp Identity (Table 7)",! Line Location: DMR3+4
Function Call: WRITE	Prompt: !!,"This report provides a list by race and Hispanic or Latino Identity of " Line Location: DMR3+7
Function Call: WRITE	Prompt: !,"patients age 18 to 75 years old who have had two medical visits during" Line Location: DMR3+8
Function Call: WRITE	Prompt: !,"the report period, with a diagnosis of Type I or Type II diabetes anytime" Line Location: DMR3+9
Function Call: WRITE	Prompt: !,"through the end of the report period, and without a diagnosis of " Line Location: DMR3+10
Function Call: WRITE	Prompt: !,"polycystic ovaries, gestational diabetes, or steroid-induced diabetes" Line Location: DMR3+11
Function Call: WRITE	Prompt: !,"and with a most recent hemoglobin A1c greater than or equal to 8% and " Line Location: DMR3+12
Function Call: WRITE	Prompt: !,"less than or equal to 9%." Line Location: DMR3+13
Function Call: WRITE	Prompt: ! Line Location: DMR3+14
Function Call: WRITE	Prompt: !!,"No patients to report." Line Location: DMR3L+3
Function Call: WRITE	Prompt: !!,"TOTAL DM PATIENTS 18+ W/A1C >=8% AND <=9%: ",BUDTOT,! Line Location: DMR3L+6
Function Call: WRITE	Prompt: !,BUDRACEL Line Location: DMR3L2+3
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: DMR3L2+8
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: DMR3L2+19
Function Call: WRITE	Prompt: ?5,BUDV,! Line Location: DMR3L2+20
Function Call: WRITE	Prompt: !,BUDRACEL,! Line Location: DMR3L2+23
Function Call: WRITE	Prompt: !,"Sub-Total ",BUDRACEL,": ",BUDSTOT,! Line Location: DMR3L2+24
Function Call: WRITE	Prompt: ! Line Location: DMR3H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: DMR3H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: DMR3H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: DMR3H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 7, Section C",80) Line Location: DMR3H1+5
Function Call: WRITE	Prompt: !,$$CTR("Diabetes w/A1c >=8 and <=9 by Race and Hispanic or Latino Identity",80),! Line Location: DMR3H1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: DMR3H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: DMR3H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: DMR3H1+9
Function Call: WRITE	Prompt: !?2,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?47,"SEX",?51,"AGE" Line Location: DMR3H1+21
Function Call: WRITE	Prompt: !?2,"RACE",?24,"HISPANIC OR LATINO IDENTITY" Line Location: DMR3H1+22
Function Call: WRITE	Prompt: !?5,"LAST A1C VALUE OR CD & DATE" Line Location: DMR3H1+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: DMR3H1+24
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: DMR3H1+25
Routine Call	DIR Line Location: PAUSE+1 GENI+4 DMR4H+2 DMR3H+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	DMR4L2+22, DMR3L2+22
^DIC(4 - [#4]	LOC+1, DMR4H1+7, DMR3H1+7
^DPT - [#2]	DMR4L2+9, DMR3L2+9
^VA(200 - [#200]	USR+1, DMR4H1+3, DMR3H1+3
^XTMP("BUD1RP7"	DMR4L+3, DMR4L1+3, DMR4L1+4, DMR4L2+4, DMR4L2+5, DMR4L2+6, DMR4L2+7, DMR4L2+15, DMR3L+3, DMR3L1+3 , DMR3L1+4, DMR3L2+4, DMR3L2+5, DMR3L2+6, DMR3L2+7, DMR3L2+15

Name	Line Occurrences
$$CTR	DMR4+2, DMR4+3, DMR4H1+4, DMR4H1+5, DMR4H1+6, DMR4H1+7, DMR4H1+8, DMR3+2, DMR3+3, DMR3H1+4 , DMR3H1+5, DMR3H1+6, DMR3H1+7, DMR3H1+8
$$LOC	DMR4+2, DMR3+2
DMR3H	DMR3L+2, DMR3L+5, DMR3L1+1, DMR3L2+8, DMR3L2+19, DMR3L2+23
DMR3H1	DMR3H+1
DMR3L1	DMR3L+4
DMR3L2	DMR3L1+4
DMR3LX	DMR3L+5
DMR4H	DMR4L+2, DMR4L+5, DMR4L1+1, DMR4L2+8, DMR4L2+19, DMR4L2+23
DMR4H1	DMR4H+1
DMR4L1	DMR4L+4
DMR4L2	DMR4L1+4
DMR4LX	DMR4L+5
GENI	DMR4+5, DMR3+5
PAUSE	DMR4+6, DMR3+6

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDA	DMR4L2+5, DMR4L2+6, DMR4L2+7, DMR4L2+9, DMR4L2+15, DMR3L2+5, DMR3L2+6, DMR3L2+7, DMR3L2+9, DMR3L2+15
>> BUDALL	DMR4L2+15, DMR4L2+16, DMR4L2+17, DMR3L2+15, DMR3L2+16, DMR3L2+17
>> BUDBD	DMR4H1+8, DMR3H1+8
>> BUDCOM	DMR4L2+4, DMR4L2+5, DMR4L2+6, DMR4L2+7, DMR4L2+9, DMR4L2+15, DMR3L2+4, DMR3L2+5, DMR3L2+6, DMR3L2+7 , DMR3L2+9, DMR3L2+15
>> BUDED	DMR4H1+8, DMR3H1+8
>> BUDETH	DMR4L1+4, DMR4L2+2, DMR4L2+4, DMR4L2+5, DMR4L2+6, DMR4L2+7, DMR4L2+15, DMR3L1+4, DMR3L2+2, DMR3L2+4 , DMR3L2+5, DMR3L2+6, DMR3L2+7, DMR3L2+15
>> BUDGPG	DMR4H+1, DMR4H1+1, DMR4H1+3, DMR3H+1, DMR3H1+1, DMR3H1+3
>> BUDH	DMR4L+3, DMR4L1+3, DMR4L1+4, DMR4L2+4, DMR4L2+5, DMR4L2+6, DMR4L2+7, DMR4L2+15, DMR3L+3, DMR3L1+3 , DMR3L1+4, DMR3L2+4, DMR3L2+5, DMR3L2+6, DMR3L2+7, DMR3L2+15
>> BUDHISV	DMR4L2+13, DMR4L2+14, DMR3L2+13, DMR3L2+14
>> BUDJ	DMR4L+3, DMR4L1+3, DMR4L1+4, DMR4L2+4, DMR4L2+5, DMR4L2+6, DMR4L2+7, DMR4L2+15, DMR3L+3, DMR3L1+3 , DMR3L1+4, DMR3L2+4, DMR3L2+5, DMR3L2+6, DMR3L2+7, DMR3L2+15
>> BUDNAME	DMR4L2+6, DMR4L2+7, DMR4L2+15, DMR3L2+6, DMR3L2+7, DMR3L2+15
>> BUDP	DMR4L+1, DMR4H1+10, DMR4H1+26, DMR3L+1, DMR3H1+10, DMR3H1+26
>> BUDPPV	DMR4L2+16, DMR4L2+18, DMR3L2+16, DMR3L2+18
>> BUDQUIT	DMR4L+1, DMR4L+2, DMR4L+5, DMR4L1+1, DMR4L1+3, DMR4L1+4, DMR4L2+4, DMR4L2+5, DMR4L2+6, DMR4L2+7 , DMR4L2+8, DMR4L2+18, DMR4L2+19, DMR4L2+23, DMR4H+2, DMR3L+1, DMR3L+2, DMR3L+5, DMR3L1+1, DMR3L1+3 , DMR3L1+4, DMR3L2+4, DMR3L2+5, DMR3L2+6, DMR3L2+7, DMR3L2+8, DMR3L2+18, DMR3L2+19, DMR3L2+23, DMR3H+2
>> BUDRACE	DMR4L1+3, DMR4L1+4, DMR4L2+2, DMR4L2+4, DMR4L2+5, DMR4L2+6, DMR4L2+7, DMR4L2+15, DMR3L1+3, DMR3L1+4 , DMR3L2+2, DMR3L2+4, DMR3L2+5, DMR3L2+6, DMR3L2+7, DMR3L2+15
>> BUDRACEL	DMR4L2+2, DMR4L2+3, DMR4L2+8, DMR4L2+19, DMR4L2+23, DMR4L2+24, DMR3L2+2, DMR3L2+3, DMR3L2+8, DMR3L2+19 , DMR3L2+23, DMR3L2+24
>> BUDRACV	DMR4L2+11, DMR4L2+12, DMR3L2+11, DMR3L2+12
>> BUDSITE	DMR4L2+9, DMR4H1+7, DMR3L2+9, DMR3H1+7
>> BUDSTOT	DMR4L2+1, DMR4L2+10, DMR4L2+24, DMR3L2+1, DMR3L2+10, DMR3L2+24
>> BUDTOT	DMR4L+1, DMR4L+6, DMR4L1+2, DMR4L2+10, DMR3L+1, DMR3L+6, DMR3L1+2, DMR3L2+10
>> BUDV	DMR4L2+18, DMR4L2+20, DMR4L2+21, DMR3L2+18, DMR3L2+20, DMR3L2+21
>> BUDX	DMR4L2+18, DMR3L2+18
>> C	DMR4L2+21, DMR4L2+22, DMR3L2+21, DMR3L2+22
DA	PAUSE+1!
>> DFN	DMR4L2+7, DMR4L2+9, DMR4L2+11, DMR4L2+13, DMR4L2+15, DMR3L2+7, DMR3L2+9, DMR3L2+11, DMR3L2+13, DMR3L2+15
DIR	PAUSE+1!, GENI+4!, DMR4H+2!, DMR3H+2!
DIR("A"	PAUSE+1, GENI+4
DIR(0	PAUSE+1, GENI+4, DMR4H+2, DMR3H+2
DT	DMR4H1+3, DMR3H1+3
>> DTOUT	DMR4H+2, DMR3H+2
DUZ	USR+1, DMR4H1+3, DMR3H1+3
DUZ(2	LOC+1, DMR4L2+9, DMR3L2+9
IO	DMR4H+2, DMR3H+2
IO(0	DMR4H+2, DMR3H+2
IOF	DMR4+1, DMR4H1+1, DMR3+1, DMR3H1+1
IOM	CTR+1
IOSL	DMR4L+5, DMR4L1+1, DMR4L2+8, DMR4L2+19, DMR4L2+23, DMR3L+5, DMR3L1+1, DMR3L2+8, DMR3L2+19, DMR3L2+23
IOST	DMR4H+2, DMR3H+2
U	USR+1, LOC+1, DMR4L2+9, DMR4L2+12, DMR4L2+14, DMR4L2+18, DMR4L2+22, DMR4H1+3, DMR4H1+7, DMR3L2+9 , DMR3L2+12, DMR3L2+14, DMR3L2+18, DMR3L2+22, DMR3H1+3, DMR3H1+7
>> V	DMR4L2+21, DMR4L2+22, DMR3L2+21, DMR3L2+22
X	CTR~, CTR+1, DMR4H1+8, DMR3H1+8
Y	CTR~, CTR+1, DMR4H+2, DMR3H+2
>> ZTQUEUED	DMR4H+2, DMR3H+2

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD1RP7T

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: