Routine: BUDCRP6J

Package	Total	Call Graph
IHS Uniform Data System	3	EN1^BUDCRP6B GENI^BUDCRP6P CAD2HD^BUDCRP6R
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
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
CAD2L	;EP
CAD1	;EP
S(V)	;
PAUSE	;
CAD1L	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CAD2	;EP
EOJ	;
CAD1HD	;
CAD2HD	;
CAD2LIST	;EP
CAD2L1	;
USR()	;EP - Return name of current user from ^VA(200.
CAD2H	;
CADLIST1	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
CAD2H1	;
CAD1H	;
CAD1H1	;
CAD1L1	;
CAD2ALG	;

Name	Field # of Occurrence
$$AGE^AUPNPAT	CAD1L1+11, CAD2ALG+11, CAD2L1+11
$$HRN^AUPNPAT	CAD1L1+7, CAD1L1+11, CAD2ALG+7, CAD2ALG+11, CAD2L1+7, CAD2L1+11
EN1^BUDCRP6B	CADLIST1+4, CAD2LIST+4
GENI^BUDCRP6P	CAD1+5, CAD2+5
CAD2HD^BUDCRP6R	CAD2HD+1
^DIR	PAUSE+1, CAD1H+3, CAD2H+3
EN^XBVK	EOJ+1
$$FMTE^XLFDT	CAD1L1+10, CAD1L1+12, CAD1HD+3, CAD1HD+8, CAD1H1+3, CAD1H1+8, CAD2ALG+10, CAD2ALG+12, CAD2L1+10, CAD2L1+12 , CAD2H1+3, CAD2H1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: CAD1+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",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: !!,"TOTAL CAD PATIENTS WITH LIPID-LOWERING THERAPY: ",BUDTOT,! Line Location: CAD1L+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: CAD1L1+7
Function Call: WRITE	Prompt: ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2),!?5,"LDL: ",$P(BUDALL,U,3)," ",$$FMTE^XLFDT($P(BUDALL,U,4)) Line Location: CAD1L1+10
Function Call: WRITE	Prompt: ! Line Location: CAD1H+3
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 2015",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: !!,"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+11
Function Call: WRITE	Prompt: !!,"TOTAL CAD PATIENTS WITH ALG OR ADV REACTION TO LIPID-LOWERING THERAPY: ",BUDTOT,! Line Location: CAD2L+15
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: CAD2ALG+7
Function Call: WRITE	Prompt: ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2),!?5,"LDL: ",$P(BUDALL,U,3)," ",$$FMTE^XLFDT($P(BUDALL,U,4)) Line Location: CAD2ALG+10
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: CAD2L1+7
Function Call: WRITE	Prompt: ?5,$P(BUDALL,U,1),?30,$P(BUDALL,U,2),!?5,"LDL: ",$P(BUDALL,U,3)," ",$$FMTE^XLFDT($P(BUDALL,U,4)) Line Location: CAD2L1+10
Function Call: WRITE	Prompt: ! Line Location: CAD2H+3
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: !!,"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 CAD1H+3 CAD2H+3

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

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+2
CAD1HD	CAD1H+1
CAD1L1	CAD1L+4
CAD2	CAD2LIST+3
CAD2ALG	CAD2L+13
CAD2H	CAD2L+2, CAD2L+5, CAD2L+14, CAD2ALG+1, CAD2ALG+6, CAD2L1+1, CAD2L1+6
CAD2H1	CAD2H+2
CAD2HD	CAD2H+1
CAD2L1	CAD2L+4
EOJ	CADLIST1+1, CAD2LIST+1
PAUSE	CAD1+6, CAD2+6
S	CAD1L+3, CAD1L+7, CAD1L1+12, CAD1HD+1, CAD1HD+2, CAD1HD+3, CAD1HD+4, CAD1HD+5, CAD1HD+6, CAD1HD+7 , CAD1HD+8, CAD1HD+9, CAD1HD+10, CAD1HD+11, CAD1HD+12, CAD1HD+13, CAD1HD+14, CAD1HD+15, CAD1HD+16, CAD1HD+17 , CAD1HD+18, CAD1HD+19, CAD1HD+20, CAD2L+3, CAD2L+7, CAD2L+12, CAD2L+16, CAD2ALG+12, CAD2L1+12

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, CAD1L1+12, CAD2ALG+9, CAD2ALG+10, CAD2ALG+12, CAD2L1+9*, CAD2L1+10, CAD2L1+12
>> BUDBD	CAD1HD+8, CAD1H1+8, CAD2H1+8
>> BUDCAD	CAD1L1+11, CAD2ALG+11, CAD2L1+11
>> BUDCAD1L	CADLIST1+2*
>> BUDCAD2L	CAD2LIST+2*
>> BUDCEN	CAD1HD+9, CAD1H1+9, CAD2H1+9
>> BUDCOM	CAD1L1+4, CAD1L1+5, CAD1L1+7, CAD1L1+9, CAD1L1+11, CAD2ALG+4, CAD2ALG+5, CAD2ALG+7, CAD2ALG+9, CAD2ALG+11 , CAD2L1+4*, CAD2L1+5, CAD2L1+7, CAD2L1+9, CAD2L1+11
>> BUDDECNT	S+1*, S+2
>> BUDED	CAD1HD+8, CAD1H1+8, CAD2H1+8
>> BUDGPG	CAD1H+2, CAD1H1+1, CAD1H1+3, CAD2H+2, CAD2H1+1, CAD2H1+3
>> BUDH	CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2L+10, 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+10, 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+8, CAD2H1+11, CAD2H1+28*
>> BUDQUIT	CAD1L+1, CAD1L+2, CAD1L+5, CAD1L1+1, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+6, CAD1H+3 , CAD2L+1, CAD2L+2, CAD2L+5, CAD2L+8, CAD2L+14, 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+3*
>> BUDROT	CAD1L+3, CAD1L+5, CAD1L+6, CAD1L+7, CAD1L1+1, CAD1L1+6, CAD1L1+7, CAD1L1+10, CAD1L1+11, CAD1H+1 , CAD2L+3, CAD2L+5, CAD2L+6, CAD2L+7, CAD2L+11, CAD2L+12, CAD2L+14, CAD2L+15, CAD2L+16, CAD2ALG+1 , CAD2ALG+6, CAD2ALG+7, CAD2ALG+10, CAD2ALG+11, CAD2L1+1, CAD2L1+6, CAD2L1+7, CAD2L1+10, CAD2L1+11, CAD2H+1
>> BUDSITE	CAD1L1+7, CAD1L1+11, CAD1HD+7, CAD1H1+7, CAD2ALG+7, CAD2ALG+11, CAD2L1+7, CAD2L1+11, CAD2H1+7
>> BUDTOT	CAD1L+1, CAD1L+6, CAD1L+7, CAD1L1+8, CAD2L+1, CAD2L+6, CAD2L+7, CAD2L+8, CAD2L+15, CAD2L+16 , CAD2ALG+8, CAD2L1+8
>> BUDX2ALG	CAD2L+1, CAD2L+8, CAD2H1+26, CAD2H1+27
DA	PAUSE+1!
>> DFN	CAD1L1+5, CAD1L1+7, CAD1L1+9, CAD1L1+11, CAD2ALG+5, CAD2ALG+7, CAD2ALG+9, CAD2ALG+11, CAD2L1+5*, CAD2L1+7 , CAD2L1+9, CAD2L1+11
DIR	PAUSE+1!, CAD1H+3!, CAD2H+3!
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1, CAD1H+3, CAD2H+3*
DT	CAD1HD+3, CAD1H1+3, CAD2H1+3
>> DTOUT	CAD1H+3, CAD2H+3
DUZ	USR+1, CAD1HD+3, CAD1H1+3, CAD2H1+3
DUZ(2	LOC+1, CAD1L1+7, CAD1L1+11, CAD2ALG+7, CAD2ALG+11, CAD2L1+7, CAD2L1+11
IO	CAD1H+3, CAD2H+3
IO(0	CAD1H+3, CAD2H+3
IOF	CAD1+1, CAD1H1+1, CAD2+1, CAD2H1+1
IOM	CTR+1
IOSL	CAD1L+5, CAD1L1+1, CAD1L1+6, CAD2L+5, CAD2L+14, CAD2ALG+1, CAD2ALG+6, CAD2L1+1, CAD2L1+6
IOST	CAD1H+3, CAD2H+3
U	USR+1, LOC+1, CAD1L1+7, CAD1L1+10, CAD1L1+11, CAD1L1+12, CAD1HD+3, CAD1HD+7, CAD1H1+3, CAD1H1+7 , CAD2ALG+7, CAD2ALG+10, CAD2ALG+11, CAD2ALG+12, CAD2L1+7, CAD2L1+10, CAD2L1+11, CAD2L1+12, CAD2H1+3, CAD2H1+7
V	S~, S+2
X	CTR~, CTR+1, CAD1L1+11, CAD1L1+12, CAD1HD+8, CAD1HD+9, CAD1H1+8, CAD1H1+9, CAD2ALG+11, CAD2ALG+12 , CAD2L1+11, CAD2L1+12, CAD2H1+8, CAD2H1+9
Y	CTR~, CTR+1, CAD1H+3, CAD2H+3
>> ZTQUEUED	CAD1H+3, CAD2H+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDCRP6J

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: