Routine: BUDARP6J

Package	Total	Call Graph
IHS Patient	1	$$HRN^AUPNPAT
IHS Uniform Data System	1	EN1^BUDARP6B
IHS VA Utilities	1	EN^XBVK
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Uniform Data System	1	BUDARP6I

Entry Points

Name	Comments	DBIA/ICR reference
CAD2L	;EP
CAD1	;EP
CAD2LIST	;EP
PAUSE	;
CAD1L	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CAD2	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
GENI	;EP - general introductions
CAD1H	;
CAD2L1	;
USR()	;EP - Return name of current user from ^VA(200.
CAD2H	;
CADLIST1	;EP
EOJ	;
CAD2H1	;
CAD1H1	;
CAD1L1	;
CAD2ALG	;

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	CAD1L1+7, CAD2ALG+7, CAD2L1+7
EN1^BUDARP6B	CADLIST1+4, CAD2LIST+4
^DIR	PAUSE+1, GENI+4, CAD1H+2, CAD2H+2
EN^XBVK	EOJ+1
$$FMTE^XLFDT	CAD1L1+10, CAD1H1+3, CAD1H1+8, CAD2ALG+10, CAD2L1+10, CAD2H1+3, CAD2H1+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: !?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: CAD1+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2013",80) Line Location: CAD1+3
Function Call: WRITE	Prompt: !!,"All CAD patients 18+ w/Lipid Therapy (Table 6B)",! Line Location: CAD1+4
Function Call: WRITE	Prompt: !!,"This report provides a list of all patients 18 years of age and older" Line Location: CAD1+7
Function Call: WRITE	Prompt: !,"with an active diagnosis of Coronary Artery Disease (CAD) including " Line Location: CAD1+8
Function Call: WRITE	Prompt: !,"myocardial infarction (MI),or have had cardiac surgery, and whose last LDL" Line Location: CAD1+9
Function Call: WRITE	Prompt: !,"was greater than or equal to 130 who were prescribed a lipid-lowering " Line Location: CAD1+10
Function Call: WRITE	Prompt: !,"therapy medication or have documented evidence of use by patient of lipid" Line Location: CAD1+11
Function Call: WRITE	Prompt: !,"lowering medication during the report period, does not have an allergy or" Line Location: CAD1+12
Function Call: WRITE	Prompt: !,"adverse reaction to lipid-lowering therapy medications, had at least two" Line Location: CAD1+13
Function Call: WRITE	Prompt: !,"medical visits ever, and had a medical visit during the report period. " Line Location: CAD1+14
Function Call: WRITE	Prompt: !,"Age is calculated as of December 31." Line Location: CAD1+15
Function Call: WRITE	Prompt: ! Line Location: CAD1+16
Function Call: WRITE	Prompt: !!,"No patients to report.",! Line Location: CAD1L+3
Function Call: WRITE	Prompt: !!,"TOTAL CAD PATIENTS WITH LIPID-LOWERING THERAPY: ",BUDTOT,! Line Location: CAD1L+6
Function Call: WRITE	Prompt: ! Line Location: CAD1H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: CAD1H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: CAD1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: CAD1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section I, ",80) Line Location: CAD1H1+5
Function Call: WRITE	Prompt: !,$$CTR("Coronary Artery Disease: Lipid Therapy",80),! Line Location: CAD1H1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: CAD1H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: CAD1H1+8
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: CAD1H1+9
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: CAD1H1+10
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: CAD1H1+22
Function Call: WRITE	Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication" Line Location: CAD1H1+23
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: CAD1H1+24
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: CAD2+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2013",80) Line Location: CAD2+3
Function Call: WRITE	Prompt: !!,"All CAD patients 18+ w/o Lipid Therapy (Table 6B)",! Line Location: CAD2+4
Function Call: WRITE	Prompt: !!,"This report provides a list of all patients 18 years of age and older" Line Location: CAD2+7
Function Call: WRITE	Prompt: !,"with an active diagnosis of Coronary Artery Disease (CAD) including " Line Location: CAD2+8
Function Call: WRITE	Prompt: !,"myocardial infarction (MI) or have had cardiac surgery and whose last " Line Location: CAD2+9
Function Call: WRITE	Prompt: !,"LDL was greater than or equal to 130 or last recorded LDL is greater than" Line Location: CAD2+10
Function Call: WRITE	Prompt: !,"1yr from last visit in the report year who were not prescribed a " Line Location: CAD2+11
Function Call: WRITE	Prompt: !,"lipid-lowering therapy medication or has no documented evidence of use by" Line Location: CAD2+12
Function Call: WRITE	Prompt: !,"patient of lipid lowering medication during the report period or has an " Line Location: CAD2+13
Function Call: WRITE	Prompt: !,"allergy or adverse reaction to lipid-lowering therapy medications, had at" Line Location: CAD2+14
Function Call: WRITE	Prompt: !,"least two medical visits ever, and had a medical visit during the report" Line Location: CAD2+15
Function Call: WRITE	Prompt: !,"period." Line Location: CAD2+16
Function Call: WRITE	Prompt: !,"Age is calculated as of December 31." Line Location: CAD2+17
Function Call: WRITE	Prompt: ! Line Location: CAD2+18
Function Call: WRITE	Prompt: !!,"No patients to report.",! Line Location: CAD2L+3
Function Call: WRITE	Prompt: !!,"TOTAL CAD PATIENTS WITHOUT LIPID-LOWERING THERAPY: ",BUDTOT,! Line Location: CAD2L+6
Function Call: WRITE	Prompt: !!,"TOTAL CAD PATIENTS WITH ALG OR ADV REACTION TO LIPID-LOWERING THERAPY: 0",! Line Location: CAD2L+9
Function Call: WRITE	Prompt: !!,"TOTAL CAD PATIENTS WITH ALG OR ADV REACTION TO LIPID-LOWERING THERAPY: ",BUDTOT,! Line Location: CAD2L+12
Function Call: WRITE	Prompt: ! Line Location: CAD2H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: CAD2H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: CAD2H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: CAD2H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section I, ",80) Line Location: CAD2H1+5
Function Call: WRITE	Prompt: !,$$CTR("Coronary Artery Disease: Lipid Therapy",80),! Line Location: CAD2H1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: CAD2H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: CAD2H1+8
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: CAD2H1+9
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: CAD2H1+10
Function Call: WRITE	Prompt: !,"with an active diagnosis of Coronary Artery Disease (CAD) including " Line Location: CAD2H1+13
Function Call: WRITE	Prompt: !,"myocardial infarction (MI) or have had cardiac surgery and whose last " Line Location: CAD2H1+14
Function Call: WRITE	Prompt: !,"LDL was greater than or equal to 130 or last recorded LDL is greater than" Line Location: CAD2H1+15
Function Call: WRITE	Prompt: !,"1yr from last visit in the report year who were not prescribed a " Line Location: CAD2H1+16
Function Call: WRITE	Prompt: !,"lipid-lowering therapy medication or has no documented evidence of use by" Line Location: CAD2H1+17
Function Call: WRITE	Prompt: !,"patient of lipid lowering medication during the report period or has an " Line Location: CAD2H1+18
Function Call: WRITE	Prompt: !,"allergy or adverse reaction to lipid-lowering therapy medications, had at" Line Location: CAD2H1+19
Function Call: WRITE	Prompt: !,"least two medical visits ever, and had a medical visit during the report" Line Location: CAD2H1+20
Function Call: WRITE	Prompt: !,"period." Line Location: CAD2H1+21
Function Call: WRITE	Prompt: !,"Age is calculated as of December 31." Line Location: CAD2H1+22
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: CAD2H1+23
Function Call: WRITE	Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication",?72,"LDL" Line Location: CAD2H1+24
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: CAD2H1+25
Function Call: WRITE	Prompt: "CAD Patients with LDL >=130 w/o Lipid Lowering Medication",! Line Location: CAD2H1+26
Function Call: WRITE	Prompt: "CAD Patients w/LDL =>130 and an ALG or ADV Reaction to Lipid Lowering Medication" Line Location: CAD2H1+27
Routine Call	DIR Line Location: PAUSE+1 GENI+4 CAD1H+2 CAD2H+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1, CAD1H1+7, CAD2H1+7
^DPT - [#2]	CAD1L1+7, CAD2ALG+7, CAD2L1+7
^VA(200 - [#200]	USR+1, CAD1H1+3, CAD2H1+3
^XTMP("BUDARP6B"	CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2L+9, CAD2ALG+2, CAD2ALG+3 , CAD2ALG+4, CAD2ALG+5, CAD2ALG+9, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+9

Label References

Name	Line Occurrences
$$CTR	CAD1+2, CAD1+3, CAD1H1+4, CAD1H1+5, CAD1H1+6, CAD1H1+7, CAD1H1+8, CAD1H1+9, CAD2+2, CAD2+3 , CAD2H1+4, CAD2H1+5, CAD2H1+6, CAD2H1+7, CAD2H1+8, CAD2H1+9
$$LOC	CAD1+2, CAD2+2
CAD1	CADLIST1+3
CAD1H	CAD1L+2, CAD1L+5, CAD1L1+1, CAD1L1+6
CAD1H1	CAD1H+1
CAD1L1	CAD1L+4
CAD2	CAD2LIST+3
CAD2ALG	CAD2L+10
CAD2H	CAD2L+2, CAD2L+5, CAD2L+8, CAD2L+11, CAD2ALG+1, CAD2ALG+6, CAD2L1+1, CAD2L1+6
CAD2H1	CAD2H+1
CAD2L1	CAD2L+4
EOJ	CADLIST1+1, CAD2LIST+1
GENI	CAD1+5, CAD2+5
PAUSE	CAD1+6, CAD2+6

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDAGE	CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+7, CAD1L1+9, CAD2ALG+2, CAD2ALG+3, CAD2ALG+4, CAD2ALG+5 , CAD2ALG+7, CAD2ALG+9, CAD2L1+2*, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+7, CAD2L1+9
>> BUDALL	CAD1L1+9, CAD1L1+10, CAD2ALG+9, CAD2ALG+10, CAD2L1+9*, CAD2L1+10
>> BUDBD	CAD1H1+8, CAD2H1+8
>> BUDBEN	CAD1H1+9, CAD2H1+9
>> BUDCAD1L	CADLIST1+2*
>> BUDCAD2L	CAD2LIST+2*
>> BUDCOM	CAD1L1+4, CAD1L1+5, CAD1L1+7, CAD1L1+9, CAD2ALG+4, CAD2ALG+5, CAD2ALG+7, CAD2ALG+9, CAD2L1+4*, CAD2L1+5 , CAD2L1+7, CAD2L1+9
>> BUDED	CAD1H1+8, CAD2H1+8
>> BUDGPG	CAD1H+1, CAD1H1+1, CAD1H1+3, CAD2H+1, CAD2H1+1, CAD2H1+3
>> BUDH	CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2L+9, CAD2ALG+2, CAD2ALG+3 , CAD2ALG+4, CAD2ALG+5, CAD2ALG+9, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+9
>> BUDJ	CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2L+9, CAD2ALG+2, CAD2ALG+3 , CAD2ALG+4, CAD2ALG+5, CAD2ALG+9, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+9
>> BUDNAME	CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2ALG+3, CAD2ALG+4, CAD2ALG+5, CAD2ALG+9, CAD2L1+3*, CAD2L1+4 , CAD2L1+5, CAD2L1+9
>> BUDP	CAD1L+1, CAD1H1+11, CAD1H1+25, CAD2L+1, CAD2L+7, CAD2H1+11, CAD2H1+28*
>> BUDQUIT	CAD1L+1, CAD1L+2, CAD1L+5, CAD1L1+1, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+6, CAD1H+2 , CAD2L+1, CAD2L+2, CAD2L+5, CAD2L+7, CAD2L+8, CAD2L+11, CAD2ALG+1, CAD2ALG+2, CAD2ALG+3, CAD2ALG+4 , CAD2ALG+5, CAD2ALG+6, CAD2L1+1, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+6, CAD2H+2*
>> BUDSITE	CAD1L1+7, CAD1H1+7, CAD2ALG+7, CAD2L1+7, CAD2H1+7
>> BUDTOT	CAD1L+1, CAD1L+6, CAD1L1+8, CAD2L+1, CAD2L+6, CAD2L+7, CAD2L+12, CAD2ALG+8, CAD2L1+8
>> BUDX2ALG	CAD2L+1, CAD2L+7, CAD2H1+26, CAD2H1+27
DA	PAUSE+1!
>> DFN	CAD1L1+5, CAD1L1+7, CAD1L1+9, CAD2ALG+5, CAD2ALG+7, CAD2ALG+9, CAD2L1+5*, CAD2L1+7, CAD2L1+9
DIR	PAUSE+1!, GENI+4!, CAD1H+2!, CAD2H+2!
DIR("A"	PAUSE+1, GENI+4
DIR(0	PAUSE+1, GENI+4, CAD1H+2, CAD2H+2
DT	CAD1H1+3, CAD2H1+3
>> DTOUT	CAD1H+2, CAD2H+2
DUZ	USR+1, CAD1H1+3, CAD2H1+3
DUZ(2	LOC+1, CAD1L1+7, CAD2ALG+7, CAD2L1+7
IO	CAD1H+2, CAD2H+2
IO(0	CAD1H+2, CAD2H+2
IOF	CAD1+1, CAD1H1+1, CAD2+1, CAD2H1+1
IOM	CTR+1
IOSL	CAD1L+5, CAD1L1+1, CAD1L1+6, CAD2L+5, CAD2L+11, CAD2ALG+1, CAD2ALG+6, CAD2L1+1, CAD2L1+6
IOST	CAD1H+2, CAD2H+2
U	USR+1, LOC+1, CAD1L1+7, CAD1L1+10, CAD1H1+3, CAD1H1+7, CAD2ALG+7, CAD2ALG+10, CAD2L1+7, CAD2L1+10 , CAD2H1+3, CAD2H1+7
X	CTR~, CTR+1, CAD1H1+8, CAD1H1+9, CAD2H1+8, CAD2H1+9
Y	CTR~, CTR+1, CAD1H+2, CAD2H+2
>> ZTQUEUED	CAD1H+2, CAD2H+2

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDARP6J

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: