Routine: BUDCRP6K

Package	Total	Call Graph
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
IHS Uniform Data System	1	EN1^BUDCRP6B
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
IVD2L1	;
IVD1L	;EP
S(V)	;
PAUSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
LOC()	;EP - Return location name from file 4 based on DUZ(2).
IVD1	;EP
EOJ	;
IVD2H	;
IVD1H1	;
IVD1HD	;
IVD2H1	;
USR()	;EP - Return name of current user from ^VA(200.
IVD2HD	;
GENI	;EP - general introductions
IVD2L	;EP
IVD2	;EP
IVD1L1	;
IVDLIST1	;EP
IVD1H	;
IVDLIST2	;EP

Name	Field # of Occurrence
$$AGE^AUPNPAT	IVD1L1+11, IVD2L1+11
$$HRN^AUPNPAT	IVD1L1+7, IVD1L1+11, IVD2L1+7, IVD2L1+11
EN1^BUDCRP6B	IVDLIST1+4, IVDLIST2+4
^DIR	PAUSE+1, GENI+4, IVD1H+3, IVD2H+3
EN^XBVK	EOJ+1
$$FMTE^XLFDT	IVD1HD+3, IVD1HD+8, IVD1H1+3, IVD1H1+7, IVD2HD+3, IVD2HD+8, IVD2H1+3, IVD2H1+7

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: IVD1+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",80) Line Location: IVD1+3
Function Call: WRITE	Prompt: !!,"All IVD patients 18+ w/Aspirin or Antithrombotic Therapy (Table 6B)",! Line Location: IVD1+4
Function Call: WRITE	Prompt: !!,"This report provides a list of patients 18 years of age and older who, " Line Location: IVD1+7
Function Call: WRITE	Prompt: !,"in the current or prior report year, were diagnosed with Ischemic Vascular" Line Location: IVD1+8
Function Call: WRITE	Prompt: !,"Disease (IVD) including acute myocardial infarction (AMI), or discharged" Line Location: IVD1+9
Function Call: WRITE	Prompt: !,"alive after cardiovascular surgery (coronary artery bypass graft (CABG)" Line Location: IVD1+10
Function Call: WRITE	Prompt: !,"or percutaneous transluminal coronary angioplasty (PTCA)) and were " Line Location: IVD1+11
Function Call: WRITE	Prompt: !,"prescribed or dispensed aspirin or another anti-thrombotic medication" Line Location: IVD1+12
Function Call: WRITE	Prompt: !,"or have documented evidence of use by patient of aspirin or another " Line Location: IVD1+13
Function Call: WRITE	Prompt: !,"anti-thrombotic medication during the report period, and had a medical" Line Location: IVD1+14
Function Call: WRITE	Prompt: !,"visit during the report period." Line Location: IVD1+15
Function Call: WRITE	Prompt: !,"Age is calculated as of December 31." Line Location: IVD1+16
Function Call: WRITE	Prompt: ! Line Location: IVD1+17
Function Call: WRITE	Prompt: !!,"TOTAL IVD PATIENTS WITH ASPIRIN OR ANTITHROMBOTIC THERAPY: ",BUDTOT,! Line Location: IVD1L+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: IVD1L1+7
Function Call: WRITE	Prompt: ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2) Line Location: IVD1L1+10
Function Call: WRITE	Prompt: ! Line Location: IVD1H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: IVD1H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: IVD1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: IVD1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section J, ",80),!,$$CTR("Ischemic Vascular Disease: Aspirin or Antithrombotic Therapy",80),! Line Location: IVD1H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: IVD1H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: IVD1H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: IVD1H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: IVD1H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: IVD1H1+21
Function Call: WRITE	Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication" Line Location: IVD1H1+22
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: IVD1H1+23
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: IVD2+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",80) Line Location: IVD2+3
Function Call: WRITE	Prompt: !!,"All IVD patients 18+ w/o Aspirin or Antithrombotic Therapy (Table 6B)",! Line Location: IVD2+4
Function Call: WRITE	Prompt: !!,"This report provides a list of patients 18 years of age and older who, " Line Location: IVD2+7
Function Call: WRITE	Prompt: !,"in the current or prior report year, were diagnosed with Ischemic Vascular" Line Location: IVD2+8
Function Call: WRITE	Prompt: !,"Disease (IVD) including acute myocardial infarction (AMI), or discharged" Line Location: IVD2+9
Function Call: WRITE	Prompt: !,"alive after cardiovascular surgery (coronary artery bypass graft (CABG)" Line Location: IVD2+10
Function Call: WRITE	Prompt: !,"or percutaneous transluminal coronary angioplasty (PTCA)) and were not" Line Location: IVD2+11
Function Call: WRITE	Prompt: !,"prescribed or dispensed aspirin or another anti-thrombotic medication" Line Location: IVD2+12
Function Call: WRITE	Prompt: !,"or have documented evidence of use by patient of aspirin or another " Line Location: IVD2+13
Function Call: WRITE	Prompt: !,"anti-thrombotic medication during the report period, and had a medical" Line Location: IVD2+14
Function Call: WRITE	Prompt: !,"visit during the report period." Line Location: IVD2+15
Function Call: WRITE	Prompt: !,"Age is calculated as of December 31." Line Location: IVD2+16
Function Call: WRITE	Prompt: ! Line Location: IVD2+17
Function Call: WRITE	Prompt: !!,"TOTAL IVD PATIENTS WITHOUT ASPIRIN OR ANTITHROMBOTIC THERAPY: ",BUDTOT,! Line Location: IVD2L+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: IVD2L1+7
Function Call: WRITE	Prompt: ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2) Line Location: IVD2L1+10
Function Call: WRITE	Prompt: ! Line Location: IVD2H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: IVD2H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: IVD2H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: IVD2H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section J, ",80),!,$$CTR("Ischemic Vascular Disease: Aspirin or Antithrombotic Therapy",80),! Line Location: IVD2H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: IVD2H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: IVD2H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: IVD2H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: IVD2H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: IVD2H1+21
Function Call: WRITE	Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication" Line Location: IVD2H1+22
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: IVD2H1+23
Routine Call	DIR Line Location: PAUSE+1 GENI+4 IVD1H+3 IVD2H+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1, IVD1HD+7, IVD1H1+6, IVD2HD+7, IVD2H1+6
^DPT - [#2]	IVD1L1+7, IVD1L1+11, IVD2L1+7, IVD2L1+11
^TMP($J	S+2*
^VA(200 - [#200]	USR+1, IVD1HD+3, IVD1H1+3, IVD2HD+3, IVD2H1+3
^XTMP("BUDCRP6B"	IVD1L+3, IVD1L1+2, IVD1L1+3, IVD1L1+4, IVD1L1+5, IVD1L1+9, IVD2L+3, IVD2L1+2, IVD2L1+3, IVD2L1+4 , IVD2L1+5, IVD2L1+9

Name	Line Occurrences
$$CTR	IVD1+2, IVD1+3, IVD1H1+4, IVD1H1+5, IVD1H1+6, IVD1H1+7, IVD1H1+8, IVD2+2, IVD2+3, IVD2H1+4 , IVD2H1+5, IVD2H1+6, IVD2H1+7, IVD2H1+8
$$LOC	IVD1+2, IVD2+2
EOJ	IVDLIST1+1, IVDLIST2+1
GENI	IVD1+5, IVD2+5
IVD1	IVDLIST1+3
IVD1H	IVD1L+2, IVD1L+5, IVD1L1+1, IVD1L1+6
IVD1H1	IVD1H+2
IVD1HD	IVD1H+1
IVD1L1	IVD1L+4
IVD2	IVDLIST2+3
IVD2H	IVD2L+2, IVD2L+5, IVD2L1+1, IVD2L1+6
IVD2H1	IVD2H+2
IVD2HD	IVD2H+1
IVD2L1	IVD2L+4
PAUSE	IVD1+6, IVD2+6
S	IVD1L+3, IVD1L+7, IVD1L1+12, IVD1HD+1, IVD1HD+2, IVD1HD+3, IVD1HD+4, IVD1HD+5, IVD1HD+6, IVD1HD+7 , IVD1HD+8, IVD1HD+9, IVD1HD+10, IVD1HD+11, IVD1HD+12, IVD1HD+13, IVD1HD+14, IVD1HD+15, IVD1HD+16, IVD1HD+17 , IVD1HD+18, IVD1HD+19, IVD1HD+20, IVD1HD+21, IVD2L+3, IVD2L+7, IVD2L1+12, IVD2HD+1, IVD2HD+2, IVD2HD+3 , IVD2HD+4, IVD2HD+5, IVD2HD+6, IVD2HD+7, IVD2HD+8, IVD2HD+9, IVD2HD+10, IVD2HD+11, IVD2HD+12, IVD2HD+13 , IVD2HD+14, IVD2HD+15, IVD2HD+16, IVD2HD+17, IVD2HD+18, IVD2HD+19, IVD2HD+20, IVD2HD+21

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDAGE	IVD1L1+2, IVD1L1+3, IVD1L1+4, IVD1L1+5, IVD1L1+7, IVD1L1+9, IVD2L1+2, IVD2L1+3, IVD2L1+4, IVD2L1+5 , IVD2L1+7, IVD2L1+9
>> BUDALL	IVD1L1+9, IVD1L1+10, IVD1L1+12, IVD2L1+9, IVD2L1+10, IVD2L1+12
>> BUDBD	IVD1HD+8, IVD1H1+7, IVD2HD+8, IVD2H1+7
>> BUDCAD	IVD1L1+11, IVD2L1+11
>> BUDCEN	IVD1HD+9, IVD1H1+8, IVD2HD+9, IVD2H1+8
>> BUDCOM	IVD1L1+4, IVD1L1+5, IVD1L1+7, IVD1L1+9, IVD1L1+11, IVD2L1+4, IVD2L1+5, IVD2L1+7, IVD2L1+9, IVD2L1+11
>> BUDDECNT	S+1*, S+2
>> BUDED	IVD1HD+8, IVD1H1+7, IVD2HD+8, IVD2H1+7
>> BUDGPG	IVD1H+2, IVD1H1+1, IVD1H1+3, IVD2H+2, IVD2H1+1, IVD2H1+3
>> BUDH	IVD1L+3, IVD1L1+2, IVD1L1+3, IVD1L1+4, IVD1L1+5, IVD1L1+9, IVD2L+3, IVD2L1+2, IVD2L1+3, IVD2L1+4 , IVD2L1+5, IVD2L1+9
>> BUDIVD1L	IVDLIST1+2*
>> BUDIVD2L	IVDLIST2+2*
>> BUDJ	IVD1L+3, IVD1L1+2, IVD1L1+3, IVD1L1+4, IVD1L1+5, IVD1L1+9, IVD2L+3, IVD2L1+2, IVD2L1+3, IVD2L1+4 , IVD2L1+5, IVD2L1+9
>> BUDNAME	IVD1L1+3, IVD1L1+4, IVD1L1+5, IVD1L1+9, IVD2L1+3, IVD2L1+4, IVD2L1+5, IVD2L1+9
>> BUDP	IVD1L+1, IVD1H1+10, IVD1H1+24, IVD2L+1, IVD2H1+10, IVD2H1+24
>> BUDQUIT	IVD1L+1, IVD1L+2, IVD1L+5, IVD1L1+1, IVD1L1+2, IVD1L1+3, IVD1L1+4, IVD1L1+5, IVD1L1+6, IVD1H+3 , IVD2L+1, IVD2L+2, IVD2L+5, IVD2L1+1, IVD2L1+2, IVD2L1+3, IVD2L1+4, IVD2L1+5, IVD2L1+6, IVD2H+3
>> BUDROT	IVD1L+3, IVD1L+5, IVD1L+6, IVD1L+7, IVD1L1+1, IVD1L1+6, IVD1L1+7, IVD1L1+10, IVD1L1+11, IVD1H+1 , IVD2L+3, IVD2L+5, IVD2L+6, IVD2L+7, IVD2L1+1, IVD2L1+6, IVD2L1+7, IVD2L1+10, IVD2L1+11, IVD2H+1
>> BUDSITE	IVD1L1+7, IVD1L1+11, IVD1HD+7, IVD1H1+6, IVD2L1+7, IVD2L1+11, IVD2HD+7, IVD2H1+6
>> BUDTOT	IVD1L+1, IVD1L+6, IVD1L+7, IVD1L1+8, IVD2L+1, IVD2L+6, IVD2L+7, IVD2L1+8
DA	PAUSE+1!
>> DFN	IVD1L1+5, IVD1L1+7, IVD1L1+9, IVD1L1+11, IVD2L1+5, IVD2L1+7, IVD2L1+9, IVD2L1+11
DIR	PAUSE+1!, GENI+4!, IVD1H+3!, IVD2H+3!
DIR("A"	PAUSE+1, GENI+4
DIR(0	PAUSE+1, GENI+4, IVD1H+3, IVD2H+3
DT	IVD1HD+3, IVD1H1+3, IVD2HD+3, IVD2H1+3
>> DTOUT	IVD1H+3, IVD2H+3
DUZ	USR+1, IVD1HD+3, IVD1H1+3, IVD2HD+3, IVD2H1+3
DUZ(2	LOC+1, IVD1L1+7, IVD1L1+11, IVD2L1+7, IVD2L1+11
IO	IVD1H+3, IVD2H+3
IO(0	IVD1H+3, IVD2H+3
IOF	IVD1+1, IVD1H1+1, IVD2+1, IVD2H1+1
IOM	CTR+1
IOSL	IVD1L+5, IVD1L1+1, IVD1L1+6, IVD2L+5, IVD2L1+1, IVD2L1+6
IOST	IVD1H+3, IVD2H+3
U	USR+1, LOC+1, IVD1L1+7, IVD1L1+10, IVD1L1+11, IVD1L1+12, IVD1HD+3, IVD1HD+7, IVD1H1+3, IVD1H1+6 , IVD2L1+7, IVD2L1+10, IVD2L1+11, IVD2L1+12, IVD2HD+3, IVD2HD+7, IVD2H1+3, IVD2H1+6
V	S~, S+2
X	CTR~, CTR+1, IVD1L1+11, IVD1L1+12, IVD1HD+8, IVD1HD+9, IVD1H1+7, IVD1H1+8, IVD2L1+11, IVD2L1+12 , IVD2HD+8, IVD2HD+9, IVD2H1+7, IVD2H1+8
Y	CTR~, CTR+1, IVD1H+3, IVD2H+3
>> ZTQUEUED	IVD1H+3, IVD2H+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDCRP6K

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: