Routine: BUDHRP6J

Package	Total	Call Graph
IHS Uniform Data System	4	$$VER^BUDHBAN (HT6B,IN6B)^BUDHDU EN1^BUDHRP6B $$DATE^BUDHUTL1
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	BUDHRP6I

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
$$VER^BUDHBAN	CAD1HD+4, CAD1H1+4, CAD2HD+4, CAD2H1+4
HT6B^BUDHDU	CAD1HD+9, CAD1H1+12, CAD2HD+10, CAD2H1+12
IN6B^BUDHDU	CAD1+1, CAD2+1
EN1^BUDHRP6B	CADLIST1+4, CAD2LIST+4
$$DATE^BUDHUTL1	CAD2HD+3
^DIR	PAUSE+1, CAD1H+3, CAD2H+3
EN^XBVK	EOJ+1
$$FMTE^XLFDT	CAD1HD+3, CAD1HD+7, CAD1H1+3, CAD1H1+8, CAD2ALG+10, CAD2HD+8, CAD2H1+3, CAD2H1+8

Interaction Calls

Name	Line Occurrences
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(BUDCCOM,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)," ","MED: ",$P(BUDALL,U,4) Line Location: CAD1L1+10
Function Call: WRITE	Prompt: ! Line Location: CAD1H+3
Function Call: WRITE	Prompt: !,$$CTR("*** SENSITIVE INFORMATION ***",IOM) Line Location: CAD1H1+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: CAD1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" *",80) Line Location: CAD1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section I, With Lipid Therapy ",80) Line Location: CAD1H1+5
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+13
Function Call: WRITE	Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication" Line Location: CAD1H1+14
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: CAD1H1+15
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(BUDCCOM,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(BUDCCOM,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)," ","MED: ",$P(BUDALL,U,4) Line Location: CAD2L1+10
Function Call: WRITE	Prompt: "CAD Patients w/o Lipid Lowering Medication",! Line Location: CAD2HD+12
Function Call: WRITE	Prompt: "CAD Patients w/LDL =>130 and an ALG or ADV Reaction to Lipid Lowering Medication" Line Location: CAD2HD+13
Function Call: WRITE	Prompt: ! Line Location: CAD2H+3
Function Call: WRITE	Prompt: !,$$CTR("*** SENSITIVE INFORMATION ***",IOM) Line Location: CAD2H1+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: CAD2H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" *",80) Line Location: CAD2H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section I, Without Lipid Therapy",80) Line Location: CAD2H1+5
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+13
Function Call: WRITE	Prompt: !?5,"Date of DX",?16,"DX or Svc CD",?30,"Medication" Line Location: CAD2H1+14
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: CAD2H1+15
Function Call: WRITE	Prompt: "CAD Patients with LDL >=130 w/o Lipid Lowering Medication",! Line Location: CAD2H1+16
Function Call: WRITE	Prompt: "CAD Patients w/LDL =>130 and an ALG or ADV Reaction to Lipid Lowering Medication" Line Location: CAD2H1+17
Routine Call	DIR Line Location: PAUSE+1 CAD1H+3 CAD2H+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1, CAD1HD+6, CAD1H1+7, CAD2HD+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, CAD2HD+3, CAD2H1+3
^XTMP("BUDHRP6B"	CAD1L+3, CAD1L1+2, CAD1L1+3, CAD1L1+4, CAD1L1+5, CAD1L1+9, CAD2L+3, CAD2ALG+2, CAD2ALG+3, CAD2ALG+4 , CAD2ALG+5, CAD2ALG+9, CAD2L1+2, CAD2L1+3, CAD2L1+4, CAD2L1+5, CAD2L1+9

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

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+7, CAD1H1+8, CAD2HD+8, CAD2H1+8
>> BUDBEN	CAD1HD+8, CAD1H1+9, CAD2HD+9, CAD2H1+9
>> BUDCAD1L	CADLIST1+2*
>> BUDCAD2L	CAD2LIST+2*
>> BUDCCAD	CAD1L1+11, CAD2ALG+11, CAD2L1+11
>> BUDCCOM	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+7, CAD1H1+8, CAD2HD+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, 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, 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+16, CAD2L+1, CAD2L+8, CAD2H1+11, CAD2H1+18*
>> 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, 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, CAD2ALG+1, CAD2ALG+6, CAD2ALG+7, CAD2ALG+10, CAD2ALG+11, CAD2L1+1 , CAD2L1+6, CAD2L1+7, CAD2L1+10, CAD2L1+11, CAD2HD+12, CAD2H+1
>> BUDSCTC	CAD1H1+3, CAD2H1+3
>> BUDSITE	CAD1L1+7, CAD1L1+11, CAD1HD+6, CAD1H1+7, CAD2ALG+7, CAD2ALG+11, CAD2L1+7, CAD2L1+11, CAD2HD+7, CAD2H1+7
>> BUDTOT	CAD1L+1, CAD1L+6, CAD1L+7, CAD1L1+8, CAD2L+1, CAD2L+6, CAD2L+7, CAD2L+8, CAD2ALG+8, CAD2L1+8
>> BUDTSCTC	CADLIST1+4, CAD2LIST+4, CAD1H1+3, CAD2H1+3
>> BUDX2ALG	CAD2L+1, CAD2L+8
>> BUDZLIST	CADLIST1+4, CAD2LIST+4
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, CAD2HD+3, CAD2H1+3
>> DTOUT	CAD1H+3, CAD2H+3
DUZ	USR+1, CAD1HD+3, CAD1H1+3, CAD2HD+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	CAD1H1+1, CAD2H1+1
IOM	CTR+1, CAD1H1+2, CAD2H1+2
IOSL	CAD1L+5, CAD1L1+1, CAD1L1+6, CAD2L+5, 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+6, CAD1H1+3, CAD1H1+7 , CAD2ALG+7, CAD2ALG+10, CAD2ALG+11, CAD2ALG+12, CAD2L1+7, CAD2L1+10, CAD2L1+11, CAD2L1+12, CAD2HD+3, CAD2HD+7 , CAD2H1+3, CAD2H1+7
V	S~, S+2
X	CTR~, CTR+1, CAD1L1+11, CAD1L1+12, CAD1HD+7, CAD1HD+8, CAD1H1+8, CAD1H1+9, CAD2ALG+11, CAD2ALG+12 , CAD2L1+11, CAD2L1+12, CAD2HD+8, CAD2HD+9, 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: BUDHRP6J

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: