Routine: BUDCRP6T

Package	Total	Call Graph
IHS Patient	1	$$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
TUA1H	;
S(V)	;
PAUSE	;
TUA1L1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
LOC()	;EP
TUA1H1	;
EOJ	;
TUA2H1	;
TUA2L	;EP
TUALIST2	;EP
USR()	;EP - Return name of current user from ^VA(200.
TUALIST1	;EP
TUA1L	;EP
TUA2HD	;
GENI	;EP
TUA2	;EP
TUA2H	;
TUA1	;EP
TUA1HD	;
TUA2L1	;

Name	Field # of Occurrence
$$HRN^AUPNPAT	TUA1L1+7, TUA1L1+13, TUA2L1+7, TUA2L1+13
EN1^BUDCRP6B	TUALIST1+4, TUALIST2+4
^DIR	PAUSE+1, GENI+4, TUA1H+3, TUA2H+3
EN^XBVK	EOJ+1
$$FMTE^XLFDT	TUA1HD+3, TUA1HD+7, TUA1H1+3, TUA1H1+7, TUA2HD+3, TUA2HD+7, TUA2H1+3, TUA2H1+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: TUA1+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",80) Line Location: TUA1+3
Function Call: WRITE	Prompt: !!,"All Patients 18+ w/tobacco use scrn & cessation intervention (Table 6B)",! Line Location: TUA1+4
Function Call: WRITE	Prompt: !!,"This report provides a list of all patients 18 years and older who were" Line Location: TUA1+7
Function Call: WRITE	Prompt: !,"queried/screened about any and all forms tobacco use AND received documented" Line Location: TUA1+8
Function Call: WRITE	Prompt: !,"cessation counseling intervention (counseling) or medication (smoking" Line Location: TUA1+9
Function Call: WRITE	Prompt: !,"(cessation agents) if identified as a tobacco user one or more times during the " Line Location: TUA1+10
Function Call: WRITE	Prompt: !,"report period or the prior year, had at least one medical during the report" Line Location: TUA1+11
Function Call: WRITE	Prompt: !,"period, and with at least two medical visits ever, and were ever seen after" Line Location: TUA1+12
Function Call: WRITE	Prompt: !,"their 18th birthday." Line Location: TUA1+13
Function Call: WRITE	Prompt: ! Line Location: TUA1+14
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS WITH TOBACCO USE SCREEN AND CESSATION INTERVENTION: ",BUDTOT,! Line Location: TUA1L+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: TUA1L1+7
Function Call: WRITE	Prompt: ?5,"Never" Line Location: TUA1L1+10
Function Call: WRITE	Prompt: ?5,$P(BUDSCR,U,2),?20,$E($P(BUDSCR,U,1),1,18) Line Location: TUA1L1+12
Function Call: WRITE	Prompt: ?40,"USER: ",BUDUSER," CESS: ",$P(BUDCESS,U,1)_" "_$P(BUDCESS,U,2) Line Location: TUA1L1+12
Function Call: WRITE	Prompt: ! Line Location: TUA1H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: TUA1H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: TUA1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: TUA1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section G, Tobacco Screening and Cessation Intervention",80),! Line Location: TUA1H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: TUA1H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: TUA1H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: TUA1H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: TUA1H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: TUA1H1+19
Function Call: WRITE	Prompt: !?5,"SCREEN DATE",?20,"TOBACCO STATUS",?40,"CESSATION" Line Location: TUA1H1+20
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: TUA1H1+21
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: TUA2+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",80) Line Location: TUA2+3
Function Call: WRITE	Prompt: !!,"All Patients 18 and older w/o tobacco use scrn or cessation intervention (Table 6B)",! Line Location: TUA2+4
Function Call: WRITE	Prompt: !!,"This report provides a list of all patients 18 years and older who were" Line Location: TUA2+7
Function Call: WRITE	Prompt: !,"not queried/screened about any and all forms tobacco use or did not " Line Location: TUA2+8
Function Call: WRITE	Prompt: !,"receive a documented cessation counseling intervention (counseling) or" Line Location: TUA2+9
Function Call: WRITE	Prompt: !,"medication (smoking cessation agents) if identified as a tobacco user" Line Location: TUA2+10
Function Call: WRITE	Prompt: !,"one or more times during the report period or the prior year, had at " Line Location: TUA2+11
Function Call: WRITE	Prompt: !,"least one medical during the report period, and with at least two medical" Line Location: TUA2+12
Function Call: WRITE	Prompt: !,"visits ever, and were ever seen after their 18th birthday." Line Location: TUA2+13
Function Call: WRITE	Prompt: ! Line Location: TUA2+14
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS WITHOUT TOBACCO USE SCREEN OR CESSATION INERVENTION: ",BUDTOT,! Line Location: TUA2L+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: TUA2L1+7
Function Call: WRITE	Prompt: ?5,"Never" Line Location: TUA2L1+10
Function Call: WRITE	Prompt: ?5,$P(BUDSCR,U,2),?20,$E($P(BUDSCR,U,1),1,18) Line Location: TUA2L1+12
Function Call: WRITE	Prompt: ?40,"USER: ",BUDUSER," CESS: ",$P(BUDCESS,U,1)_" "_$P(BUDCESS,U,2) Line Location: TUA2L1+12
Function Call: WRITE	Prompt: ! Line Location: TUA2H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: TUA2H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: TUA2H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: TUA2H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section G, Tobacco Use Screening and Cessation Intervention",80),! Line Location: TUA2H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: TUA2H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: TUA2H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: TUA2H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: TUA2H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: TUA2H1+20
Function Call: WRITE	Prompt: !?5,"SCREEN DATE",?30,"TOBACCO STATUS",?60,"CESSATION" Line Location: TUA2H1+21
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: TUA2H1+22
Routine Call	DIR Line Location: PAUSE+1 GENI+4 TUA1H+3 TUA2H+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1, TUA1HD+6, TUA1H1+6, TUA2HD+6, TUA2H1+6
^DPT - [#2]	TUA1L1+7, TUA1L1+13, TUA2L1+7, TUA2L1+13
^TMP($J	S+2*
^VA(200 - [#200]	USR+1, TUA1HD+3, TUA1H1+3, TUA2HD+3, TUA2H1+3
^XTMP("BUDCRP6B"	TUA1L+3, TUA1L1+2, TUA1L1+3, TUA1L1+4, TUA1L1+5, TUA1L1+9, TUA2L+3, TUA2L1+2, TUA2L1+3, TUA2L1+4 , TUA2L1+5, TUA2L1+9

Name	Line Occurrences
$$CTR	TUA1+2, TUA1+3, TUA1H1+4, TUA1H1+5, TUA1H1+6, TUA1H1+7, TUA1H1+8, TUA2+2, TUA2+3, TUA2H1+4 , TUA2H1+5, TUA2H1+6, TUA2H1+7, TUA2H1+8
$$LOC	TUA1+2, TUA2+2
EOJ	TUALIST1+1, TUALIST2+1
GENI	TUA1+5, TUA2+5
PAUSE	TUA1+6, TUA2+6
S	TUA1L+3, TUA1L+7, TUA1L1+14, TUA1L1+16, TUA1HD+1, TUA1HD+2, TUA1HD+3, TUA1HD+4, TUA1HD+5, TUA1HD+6 , TUA1HD+7, TUA1HD+8, TUA1HD+9, TUA1HD+10, TUA1HD+11, TUA1HD+12, TUA1HD+13, TUA1HD+14, TUA1HD+15, TUA1HD+16 , TUA1HD+17, TUA1HD+18, TUA2L+3, TUA2L+7, TUA2L1+14, TUA2L1+16, TUA2HD+1, TUA2HD+2, TUA2HD+3, TUA2HD+4 , TUA2HD+5, TUA2HD+6, TUA2HD+7, TUA2HD+8, TUA2HD+9, TUA2HD+10, TUA2HD+11, TUA2HD+12, TUA2HD+13, TUA2HD+14 , TUA2HD+15, TUA2HD+16, TUA2HD+17, TUA2HD+18, TUA2HD+19
TUA1	TUALIST1+3
TUA1H	TUA1L+2, TUA1L+5, TUA1L1+1, TUA1L1+6
TUA1H1	TUA1H+2
TUA1HD	TUA1H+1
TUA1L1	TUA1L+4
TUA2	TUALIST2+3
TUA2H	TUA2L+2, TUA2L+5, TUA2L1+1, TUA2L1+6
TUA2H1	TUA2H+2
TUA2HD	TUA2H+1
TUA2L1	TUA2L+4

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDAGE	TUA1L1+2, TUA1L1+3, TUA1L1+4, TUA1L1+5, TUA1L1+7, TUA1L1+9, TUA1L1+13, TUA2L1+2, TUA2L1+3, TUA2L1+4 , TUA2L1+5, TUA2L1+7, TUA2L1+9, TUA2L1+13
>> BUDALL	TUA1L1+9, TUA1L1+10, TUA1L1+11, TUA1L1+14, TUA2L1+9, TUA2L1+10, TUA2L1+11, TUA2L1+14
>> BUDBD	TUA1HD+7, TUA1H1+7, TUA2HD+7, TUA2H1+7
>> BUDCEN	TUA1HD+8, TUA1H1+8, TUA2HD+8, TUA2H1+8
>> BUDCESS	TUA1L1+11, TUA1L1+12, TUA1L1+15, TUA2L1+11, TUA2L1+12, TUA2L1+15
>> BUDCOM	TUA1L1+4, TUA1L1+5, TUA1L1+7, TUA1L1+9, TUA1L1+13, TUA2L1+4, TUA2L1+5, TUA2L1+7, TUA2L1+9, TUA2L1+13
>> BUDDECNT	S+1*, S+2
>> BUDED	TUA1HD+7, TUA1H1+7, TUA2HD+7, TUA2H1+7
>> BUDGPG	TUA1H+2, TUA1H1+1, TUA1H1+3, TUA2H+2, TUA2H1+1, TUA2H1+3
>> BUDH	TUA1L+3, TUA1L1+2, TUA1L1+3, TUA1L1+4, TUA1L1+5, TUA1L1+9, TUA2L+3, TUA2L1+2, TUA2L1+3, TUA2L1+4 , TUA2L1+5, TUA2L1+9
>> BUDJ	TUA1L+3, TUA1L1+2, TUA1L1+3, TUA1L1+4, TUA1L1+5, TUA1L1+9, TUA2L+3, TUA2L1+2, TUA2L1+3, TUA2L1+4 , TUA2L1+5, TUA2L1+9
>> BUDNAME	TUA1L1+3, TUA1L1+4, TUA1L1+5, TUA1L1+9, TUA2L1+3, TUA2L1+4, TUA2L1+5, TUA2L1+9
>> BUDP	TUA1L+1, TUA1H1+10, TUA1H1+22, TUA2L+1, TUA2H1+10, TUA2H1+23
>> BUDQUIT	TUA1L+1, TUA1L+2, TUA1L+5, TUA1L1+1, TUA1L1+2, TUA1L1+3, TUA1L1+4, TUA1L1+5, TUA1L1+6, TUA1H+3 , TUA2L+1, TUA2L+2, TUA2L+5, TUA2L1+1, TUA2L1+2, TUA2L1+3, TUA2L1+4, TUA2L1+5, TUA2L1+6, TUA2H+3
>> BUDROT	TUA1L+3, TUA1L+5, TUA1L+6, TUA1L+7, TUA1L1+1, TUA1L1+6, TUA1L1+7, TUA1L1+10, TUA1L1+12, TUA1L1+13 , TUA1H+1, TUA2L+3, TUA2L+5, TUA2L+6, TUA2L+7, TUA2L1+1, TUA2L1+6, TUA2L1+7, TUA2L1+12, TUA2L1+13 , TUA2H+1
>> BUDSCR	TUA1L1+11, TUA1L1+12, TUA1L1+15, TUA2L1+11, TUA2L1+12, TUA2L1+15
>> BUDSITE	TUA1L1+7, TUA1L1+13, TUA1HD+6, TUA1H1+6, TUA2L1+7, TUA2L1+13, TUA2HD+6, TUA2H1+6
>> BUDTOT	TUA1L+1, TUA1L+6, TUA1L+7, TUA1L1+8, TUA2L+1, TUA2L+6, TUA2L+7, TUA2L1+8
>> BUDTUA1L	TUALIST1+2*
>> BUDTUA2L	TUALIST2+2*
>> BUDUSER	TUA1L1+11, TUA1L1+12, TUA1L1+15, TUA2L1+11, TUA2L1+12, TUA2L1+15
DA	PAUSE+1!
>> DFN	TUA1L1+5, TUA1L1+7, TUA1L1+9, TUA1L1+13, TUA2L1+5, TUA2L1+7, TUA2L1+9, TUA2L1+13
DIR	PAUSE+1!, GENI+4!, TUA1H+3!, TUA2H+3!
DIR("A"	PAUSE+1, GENI+4
DIR(0	PAUSE+1, GENI+4, TUA1H+3, TUA2H+3
DT	TUA1HD+3, TUA1H1+3, TUA2HD+3, TUA2H1+3
>> DTOUT	TUA1H+3, TUA2H+3
DUZ	USR+1, TUA1HD+3, TUA1H1+3, TUA2HD+3, TUA2H1+3
DUZ(2	LOC+1, TUA1L1+7, TUA1L1+13, TUA2L1+7, TUA2L1+13
IO	TUA1H+3, TUA2H+3
IO(0	TUA1H+3, TUA2H+3
IOF	TUA1+1, TUA1H1+1, TUA2+1, TUA2H1+1
IOM	CTR+1
IOSL	TUA1L+5, TUA1L1+1, TUA1L1+6, TUA2L+5, TUA2L1+1, TUA2L1+6
IOST	TUA1H+3, TUA2H+3
U	USR+1, LOC+1, TUA1L1+7, TUA1L1+12, TUA1L1+13, TUA1L1+14, TUA1L1+15, TUA1HD+3, TUA1HD+6, TUA1H1+3 , TUA1H1+6, TUA2L1+7, TUA2L1+12, TUA2L1+13, TUA2L1+14, TUA2L1+15, TUA2HD+3, TUA2HD+6, TUA2H1+3, TUA2H1+6
V	S~, S+2
X	CTR~, CTR+1, TUA1L1+13, TUA1L1+14, TUA1L1+15, TUA1L1+16, TUA1HD+7, TUA1HD+8, TUA1H1+7, TUA1H1+8* , TUA2L1+13, TUA2L1+14, TUA2L1+15, TUA2L1+16, TUA2HD+7, TUA2HD+8, TUA2H1+7, TUA2H1+8*
Y	CTR~, CTR+1, TUA1H+3, TUA2H+3
>> ZTQUEUED	TUA1H+3, TUA2H+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDCRP6T

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: