Routine: BUDARP6S

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

Name	Comments	DBIA/ICR reference
PAUSE	;
APT1H1	;
APTLIST2	;EP
APTLIST1	;EP
EOJ	;
APT2H	;
GENI	;EP - general introductions
APT1	;EP
APT2L1	;
APT1L	;EP
APT2	;EP
USR()	;EP - Return name of current user from ^VA(200.
LOC()	;EP - Return location name from file 4 based on DUZ(2).
APT2L	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
APT1H	;
APT1L1	;
APT2H1	;

Name	Field # of Occurrence
$$HRN^AUPNPAT	APT1L1+7, APT2L1+7
EN1^BUDARP6B	APTLIST1+4, APTLIST2+4
^DIR	PAUSE+1, GENI+4, APT1H+2, APT2H+2
EN^XBVK	EOJ+1
$$FMTE^XLFDT	APT1H1+3, APT1H1+7, APT2H1+3, APT2H1+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: APT1+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2013",80) Line Location: APT1+3
Function Call: WRITE	Prompt: !!,"All Asthma patients 5-40 years of age w/prescription (Table 6B)",! Line Location: APT1+4
Function Call: WRITE	Prompt: !!,"This report provides a list of all patients 5-40 years of age with a " Line Location: APT1+7
Function Call: WRITE	Prompt: !,"diagnosis of persistent asthma (either mild, moderate, or severe) who " Line Location: APT1+8
Function Call: WRITE	Prompt: !,"were prescribed either the preferred long term control medication or an" Line Location: APT1+9
Function Call: WRITE	Prompt: !,"acceptable alternative pharmacological therapy during the report period, " Line Location: APT1+10
Function Call: WRITE	Prompt: !,"had at least two medical visits ever, and had a medical visit during the " Line Location: APT1+11
Function Call: WRITE	Prompt: !,"report period. Age is calculated as of December 31." Line Location: APT1+12
Function Call: WRITE	Prompt: ! Line Location: APT1+13
Function Call: WRITE	Prompt: !!,"No patients to report.",! Line Location: APT1L+3
Function Call: WRITE	Prompt: !!,"TOTAL ASTHMA PATIENTS WITH PREFERRED LONG-TERM CONTROL MEDICATION" Line Location: APT1L+6
Function Call: WRITE	Prompt: !,"OR ACCEPTABLE ALTERNATIVE PHARMACOLOGIC THERAPY: ",BUDTOT,! Line Location: APT1L+7
Function Call: WRITE	Prompt: ! Line Location: APT1H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: APT1H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: APT1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: APT1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section H, Asthma Pharmacological Therapy",80),! Line Location: APT1H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: APT1H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: APT1H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: APT1H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: APT1H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: APT1H1+18
Function Call: WRITE	Prompt: !?5,"ASTHMA DX",?30,"PRESCRIPTION TYPE" Line Location: APT1H1+19
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: APT1H1+20
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: APT2+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2013",80) Line Location: APT2+3
Function Call: WRITE	Prompt: !!,"All Asthma patients 5-40 years of age w/o prescription (Table 6B)",! Line Location: APT2+4
Function Call: WRITE	Prompt: !!,"This report provides a list of all patients 5-40 years of age with a" Line Location: APT2+7
Function Call: WRITE	Prompt: !,"diagnosis of persistent asthma (either mild, moderate, or severe) who were" Line Location: APT2+8
Function Call: WRITE	Prompt: !,"not prescribed either a preferred long term control medication or an " Line Location: APT2+9
Function Call: WRITE	Prompt: !,"acceptable alternative pharmacological therapy or patients 5-40 years " Line Location: APT2+10
Function Call: WRITE	Prompt: !,"of age without a diagnosis of persistent asthma who were prescribed either" Line Location: APT2+11
Function Call: WRITE	Prompt: !,"the preferred long term control medication or an acceptable alternative " Line Location: APT2+12
Function Call: WRITE	Prompt: !,"pharmacological therapy during the report period, had at least two medical" Line Location: APT2+13
Function Call: WRITE	Prompt: !,"visits ever, and had a medical visit during the report period. Age is " Line Location: APT2+14
Function Call: WRITE	Prompt: !,"calculated as of December 31." Line Location: APT2+15
Function Call: WRITE	Prompt: ! Line Location: APT2+16
Function Call: WRITE	Prompt: !!,"No patients to report.",! Line Location: APT2L+3
Function Call: WRITE	Prompt: !!,"TOTAL ASTHMA PATIENTS WITHOUT PREFERRED LONG-TERM CONTROL MEDICATION" Line Location: APT2L+6
Function Call: WRITE	Prompt: !,"OR ACCEPTABLE ALTERNATIVE PHARMACOLOGIC THERAPY: ",BUDTOT,! Line Location: APT2L+7
Function Call: WRITE	Prompt: ! Line Location: APT2H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: APT2H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: APT2H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: APT2H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section H, Asthma Pharmacological Therapy",80),! Line Location: APT2H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: APT2H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: APT2H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: APT2H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: APT2H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: APT2H1+20
Function Call: WRITE	Prompt: !?5,"ASTHMA DX",?30,"PRESCRIPTION TYPE" Line Location: APT2H1+21
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: APT2H1+22
Routine Call	DIR Line Location: PAUSE+1 GENI+4 APT1H+2 APT2H+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1, APT1H1+6, APT2H1+6
^DPT - [#2]	APT1L1+7, APT2L1+7
^VA(200 - [#200]	USR+1, APT1H1+3, APT2H1+3
^XTMP("BUDARP6B"	APT1L+3, APT1L1+2, APT1L1+3, APT1L1+4, APT1L1+5, APT1L1+9, APT2L+3, APT2L1+2, APT2L1+3, APT2L1+4 , APT2L1+5, APT2L1+9

Name	Line Occurrences
$$CTR	APT1+2, APT1+3, APT1H1+4, APT1H1+5, APT1H1+6, APT1H1+7, APT1H1+8, APT2+2, APT2+3, APT2H1+4 , APT2H1+5, APT2H1+6, APT2H1+7, APT2H1+8
$$LOC	APT1+2, APT2+2
APT1	APTLIST1+3
APT1H	APT1L+2, APT1L+5, APT1L1+1, APT1L1+6
APT1H1	APT1H+1
APT1L1	APT1L+4
APT2	APTLIST2+3
APT2H	APT2L+2, APT2L+5, APT2L1+1, APT2L1+6
APT2H1	APT2H+1
APT2L1	APT2L+4
EOJ	APTLIST1+1, APTLIST2+1
GENI	APT1+5, APT2+5
PAUSE	APT1+6, APT2+6

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDAGE	APT1L1+2, APT1L1+3, APT1L1+4, APT1L1+5, APT1L1+7, APT1L1+9, APT2L1+2, APT2L1+3, APT2L1+4, APT2L1+5 , APT2L1+7, APT2L1+9
>> BUDALL	APT1L1+9, APT1L1+10, APT2L1+9, APT2L1+10
>> BUDAPT1L	APTLIST1+2*
>> BUDAPT2L	APTLIST2+2*
>> BUDBD	APT1H1+7, APT2H1+7
>> BUDBEN	APT1H1+8, APT2H1+8
>> BUDCOM	APT1L1+4, APT1L1+5, APT1L1+7, APT1L1+9, APT2L1+4, APT2L1+5, APT2L1+7, APT2L1+9
>> BUDED	APT1H1+7, APT2H1+7
>> BUDGPG	APT1H+1, APT1H1+1, APT1H1+3, APT2H+1, APT2H1+1, APT2H1+3
>> BUDH	APT1L+3, APT1L1+2, APT1L1+3, APT1L1+4, APT1L1+5, APT1L1+9, APT2L+3, APT2L1+2, APT2L1+3, APT2L1+4 , APT2L1+5, APT2L1+9
>> BUDJ	APT1L+3, APT1L1+2, APT1L1+3, APT1L1+4, APT1L1+5, APT1L1+9, APT2L+3, APT2L1+2, APT2L1+3, APT2L1+4 , APT2L1+5, APT2L1+9
>> BUDNAME	APT1L1+3, APT1L1+4, APT1L1+5, APT1L1+9, APT2L1+3, APT2L1+4, APT2L1+5, APT2L1+9
>> BUDP	APT1L+1, APT1H1+10, APT1H1+21, APT2L+1, APT2H1+10, APT2H1+23
>> BUDQUIT	APT1L+1, APT1L+2, APT1L+5, APT1L1+1, APT1L1+2, APT1L1+3, APT1L1+4, APT1L1+5, APT1L1+6, APT1H+2 , APT2L+1, APT2L+2, APT2L+5, APT2L1+1, APT2L1+2, APT2L1+3, APT2L1+4, APT2L1+5, APT2L1+6, APT2H+2
>> BUDSITE	APT1L1+7, APT1H1+6, APT2L1+7, APT2H1+6
>> BUDTOT	APT1L+1, APT1L+7, APT1L1+8, APT2L+1, APT2L+7, APT2L1+8
DA	PAUSE+1!
>> DFN	APT1L1+5, APT1L1+7, APT1L1+9, APT2L1+5, APT2L1+7, APT2L1+9
DIR	PAUSE+1!, GENI+4!, APT1H+2!, APT2H+2!
DIR("A"	PAUSE+1, GENI+4
DIR(0	PAUSE+1, GENI+4, APT1H+2, APT2H+2
DT	APT1H1+3, APT2H1+3
>> DTOUT	APT1H+2, APT2H+2
DUZ	USR+1, APT1H1+3, APT2H1+3
DUZ(2	LOC+1, APT1L1+7, APT2L1+7
IO	APT1H+2, APT2H+2
IO(0	APT1H+2, APT2H+2
IOF	APT1+1, APT1H1+1, APT2+1, APT2H1+1
IOM	CTR+1
IOSL	APT1L+5, APT1L1+1, APT1L1+6, APT2L+5, APT2L1+1, APT2L1+6
IOST	APT1H+2, APT2H+2
U	USR+1, LOC+1, APT1L1+7, APT1L1+10, APT1H1+3, APT1H1+6, APT2L1+7, APT2L1+10, APT2H1+3, APT2H1+6
X	CTR~, CTR+1, APT1H1+7, APT1H1+8, APT2H1+7, APT2H1+8
Y	CTR~, CTR+1, APT1H+2, APT2H+2
>> ZTQUEUED	APT1H+2, APT2H+2

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDARP6S

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: