Routine: BUDCRP6G

Package	Total	Call Graph
IHS Patient	1	$$HRN^AUPNPAT
IHS Uniform Data System	1	(GENI,PAUSE)^BUDCRP6F
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Uniform Data System	2	BUDCRP6F BUDCRP6I

Name	Comments	DBIA/ICR reference
S(V)	;
AWS1H1	;
AWS2L1	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
AWS2H1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
AWS1L	;EP
AWS2H	;
USR()	;EP - Return name of current user from ^VA(200.
PAUSE	;EP
AWS2L	;EP
AWS1HD	;
GENI	;EP - general introductions
AWS1	;EP
AWS1H	;
AWS2	;EP
AWS2HD	;
AWS1L1	;

Name	Field # of Occurrence
$$HRN^AUPNPAT	AWS2L1+7, AWS2L1+11, AWS1L1+7, AWS1L1+11
GENI^BUDCRP6F	AWS2+5
PAUSE^BUDCRP6F	AWS2+6
^DIR	AWS2H+3, AWS1H+3, PAUSE+1, GENI+4
$$FMTE^XLFDT	AWS2HD+3, AWS2HD+8, AWS2H1+3, AWS2H1+8, AWS1HD+3, AWS1HD+8, AWS1H1+3, AWS1H1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: AWS2+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",80) Line Location: AWS2+3
Function Call: WRITE	Prompt: !!,"All Patients 18 and older w/o BMI or does not have a follow-up plan (Table 6B)",! Line Location: AWS2+4
Function Call: WRITE	Prompt: !!,"This report provides a list of all patients 18 years and older who do" Line Location: AWS2+7
Function Call: WRITE	Prompt: !,"not have documente BMI percentile on the last visit during the report" Line Location: AWS2+8
Function Call: WRITE	Prompt: !,"period or on any visit within the last 6 months of the last visit during" Line Location: AWS2+9
Function Call: WRITE	Prompt: !,"the report period, or who are not overweight or underweight, or does not" Line Location: AWS2+10
Function Call: WRITE	Prompt: !,"have a follow-up plan documented, had a medical visit during the report" Line Location: AWS2+11
Function Call: WRITE	Prompt: !,"period, and were ever seen after their 18th birthday." Line Location: AWS2+12
Function Call: WRITE	Prompt: ! Line Location: AWS2+13
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS WITHOUT ADULT WEIGHT SCREEN OR FOLLOW-UP PLAN: ",BUDTOT,! Line Location: AWS2L+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: AWS2L1+7
Function Call: WRITE	Prompt: ?5,$S($P(BUDALL,U,1)]"":$J($P(BUDALL,U,1),6,2),1:""),?25,$P(BUDALL,U,2),?51,$P(BUDALL,U,3) Line Location: AWS2L1+10
Function Call: WRITE	Prompt: ! Line Location: AWS2H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: AWS2H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: AWS2H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: AWS2H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section F",80) Line Location: AWS2H1+5
Function Call: WRITE	Prompt: !,$$CTR("Without Adult Weight Screen and Follow-up",80),! Line Location: AWS2H1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: AWS2H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: AWS2H1+8
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: AWS2H1+9
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: AWS2H1+10
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: AWS2H1+19
Function Call: WRITE	Prompt: !?5,"BMI PERCENTILE",?25,"WEIGHT STATUS",?51,"FOLLOW-UP PLAN" Line Location: AWS2H1+20
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: AWS2H1+21
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: AWS1+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",80) Line Location: AWS1+3
Function Call: WRITE	Prompt: !!,"All Patients 18 and older w/BMI who were over/underweight w/followup" Line Location: AWS1+4
Function Call: WRITE	Prompt: !,"plan (Table 6B)",! Line Location: AWS1+5
Function Call: WRITE	Prompt: !!,"This report provides a list of all patients 18 and older who have a" Line Location: AWS1+8
Function Call: WRITE	Prompt: !,"documented BMI percentile on the last visit during the report period" Line Location: AWS1+9
Function Call: WRITE	Prompt: !,"or on any visit within the last 6 months of the last visit during the" Line Location: AWS1+10
Function Call: WRITE	Prompt: !,"report period, and are overweight or underweight, and patient had a" Line Location: AWS1+11
Function Call: WRITE	Prompt: !,"follow-up plan documented, had a medical visit during the report period," Line Location: AWS1+12
Function Call: WRITE	Prompt: !,"and were ever seen after their 18th birthday." Line Location: AWS1+13
Function Call: WRITE	Prompt: ! Line Location: AWS1+14
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS WITH ADULT WEIGHT SCREEN AND FOLLOW-UP PLAN:",BUDTOT,! Line Location: AWS1L+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: AWS1L1+7
Function Call: WRITE	Prompt: ?5,$J($P(BUDALL,U,1),6,2),?25,$P(BUDALL,U,2),?51,$P(BUDALL,U,3) Line Location: AWS1L1+10
Function Call: WRITE	Prompt: ! Line Location: AWS1H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: AWS1H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: AWS1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: AWS1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section F",80) Line Location: AWS1H1+5
Function Call: WRITE	Prompt: !,$$CTR("Adult Weight Screening and Follow-up",80),! Line Location: AWS1H1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: AWS1H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: AWS1H1+8
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: AWS1H1+9
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: AWS1H1+10
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: AWS1H1+19
Function Call: WRITE	Prompt: !?5,"BMI PERCENTILE",?25,"WEIGHT STATUS",?51,"FOLLOW-UP PLAN" Line Location: AWS1H1+20
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: AWS1H1+21
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
Routine Call	DIR Line Location: AWS2H+3 AWS1H+3 PAUSE+1 GENI+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	AWS2HD+7, AWS2H1+7, LOC+1, AWS1HD+7, AWS1H1+7
^DPT - [#2]	AWS2L1+7, AWS2L1+11, AWS1L1+7, AWS1L1+11
^TMP($J	S+2*
^VA(200 - [#200]	AWS2HD+3, AWS2H1+3, USR+1, AWS1HD+3, AWS1H1+3
^XTMP("BUDCRP6B"	AWS2L+3, AWS2L1+2, AWS2L1+3, AWS2L1+4, AWS2L1+5, AWS2L1+9, AWS1L+3, AWS1L1+2, AWS1L1+3, AWS1L1+4 , AWS1L1+5, AWS1L1+9

Name	Line Occurrences
$$CTR	AWS2+2, AWS2+3, AWS2H1+4, AWS2H1+5, AWS2H1+6, AWS2H1+7, AWS2H1+8, AWS2H1+9, AWS1+2, AWS1+3 , AWS1H1+4, AWS1H1+5, AWS1H1+6, AWS1H1+7, AWS1H1+8, AWS1H1+9
$$LOC	AWS2+2, AWS1+2
AWS1H	AWS1L+2, AWS1L+5, AWS1L1+1, AWS1L1+6
AWS1H1	AWS1H+2
AWS1HD	AWS1H+1
AWS1L1	AWS1L+4
AWS2H	AWS2L+2, AWS2L+5, AWS2L1+1, AWS2L1+6
AWS2H1	AWS2H+2
AWS2HD	AWS2H+1
AWS2L1	AWS2L+4
GENI	AWS1+6
PAUSE	AWS1+7
S	AWS2L+3, AWS2L+7, AWS2L1+12, AWS2HD+1, AWS2HD+2, AWS2HD+3, AWS2HD+4, AWS2HD+5, AWS2HD+6, AWS2HD+7 , AWS2HD+8, AWS2HD+9, AWS2HD+10, AWS2HD+11, AWS2HD+12, AWS2HD+13, AWS2HD+14, AWS2HD+15, AWS2HD+16, AWS2HD+17 , AWS2HD+18, AWS1L+3, AWS1L+7, AWS1L1+12, AWS1HD+1, AWS1HD+2, AWS1HD+3, AWS1HD+4, AWS1HD+5, AWS1HD+6 , AWS1HD+7, AWS1HD+8, AWS1HD+9, AWS1HD+10, AWS1HD+11, AWS1HD+12, AWS1HD+13, AWS1HD+14, AWS1HD+15, AWS1HD+16 , AWS1HD+17, AWS1HD+18

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDAGE	AWS2L1+2, AWS2L1+3, AWS2L1+4, AWS2L1+5, AWS2L1+7, AWS2L1+9, AWS2L1+11, AWS1L1+2, AWS1L1+3, AWS1L1+4 , AWS1L1+5, AWS1L1+7, AWS1L1+9, AWS1L1+11
>> BUDALL	AWS2L1+9, AWS2L1+10, AWS2L1+12, AWS1L1+9, AWS1L1+10, AWS1L1+12
>> BUDBD	AWS2HD+8, AWS2H1+8, AWS1HD+8, AWS1H1+8
>> BUDCEN	AWS2HD+9, AWS2H1+9, AWS1HD+9, AWS1H1+9
>> BUDCOM	AWS2L1+4, AWS2L1+5, AWS2L1+7, AWS2L1+9, AWS2L1+11, AWS1L1+4, AWS1L1+5, AWS1L1+7, AWS1L1+9, AWS1L1+11
>> BUDDECNT	S+1*, S+2
>> BUDED	AWS2HD+8, AWS2H1+8, AWS1HD+8, AWS1H1+8
>> BUDGPG	AWS2H+2, AWS2H1+1, AWS2H1+3, AWS1H+2, AWS1H1+1, AWS1H1+3
>> BUDH	AWS2L+3, AWS2L1+2, AWS2L1+3, AWS2L1+4, AWS2L1+5, AWS2L1+9, AWS1L+3, AWS1L1+2, AWS1L1+3, AWS1L1+4 , AWS1L1+5, AWS1L1+9
>> BUDJ	AWS2L+3, AWS2L1+2, AWS2L1+3, AWS2L1+4, AWS2L1+5, AWS2L1+9, AWS1L+3, AWS1L1+2, AWS1L1+3, AWS1L1+4 , AWS1L1+5, AWS1L1+9
>> BUDNAME	AWS2L1+3, AWS2L1+4, AWS2L1+5, AWS2L1+9, AWS1L1+3, AWS1L1+4, AWS1L1+5, AWS1L1+9
>> BUDP	AWS2L+1, AWS2H1+11, AWS2H1+22, AWS1L+1, AWS1H1+11, AWS1H1+22
>> BUDQUIT	AWS2L+1, AWS2L+2, AWS2L+5, AWS2L1+1, AWS2L1+2, AWS2L1+3, AWS2L1+4, AWS2L1+5, AWS2L1+6, AWS2H+3 , AWS1L+1, AWS1L+2, AWS1L+5, AWS1L1+1, AWS1L1+2, AWS1L1+3, AWS1L1+4, AWS1L1+5, AWS1L1+6, AWS1H+3
>> BUDROT	AWS2L+3, AWS2L+5, AWS2L+6, AWS2L+7, AWS2L1+1, AWS2L1+6, AWS2L1+7, AWS2L1+10, AWS2L1+11, AWS2H+1 , AWS1L+3, AWS1L+5, AWS1L+6, AWS1L+7, AWS1L1+1, AWS1L1+6, AWS1L1+7, AWS1L1+10, AWS1L1+11, AWS1H+1
>> BUDSITE	AWS2L1+7, AWS2L1+11, AWS2HD+7, AWS2H1+7, AWS1L1+7, AWS1L1+11, AWS1HD+7, AWS1H1+7
>> BUDTOT	AWS2L+1, AWS2L+6, AWS2L+7, AWS2L1+8, AWS1L+1, AWS1L+6, AWS1L+7, AWS1L1+8
DA	PAUSE+1!
>> DFN	AWS2L1+5, AWS2L1+7, AWS2L1+9, AWS2L1+11, AWS1L1+5, AWS1L1+7, AWS1L1+9, AWS1L1+11
DIR	AWS2H+3!, AWS1H+3!, PAUSE+1!, GENI+4!
DIR("A"	PAUSE+1, GENI+4
DIR(0	AWS2H+3, AWS1H+3, PAUSE+1, GENI+4
DT	AWS2HD+3, AWS2H1+3, AWS1HD+3, AWS1H1+3
>> DTOUT	AWS2H+3, AWS1H+3
DUZ	AWS2HD+3, AWS2H1+3, USR+1, AWS1HD+3, AWS1H1+3
DUZ(2	AWS2L1+7, AWS2L1+11, LOC+1, AWS1L1+7, AWS1L1+11
IO	AWS2H+3, AWS1H+3
IO(0	AWS2H+3, AWS1H+3
IOF	AWS2+1, AWS2H1+1, AWS1+1, AWS1H1+1
IOM	CTR+1
IOSL	AWS2L+5, AWS2L1+1, AWS2L1+6, AWS1L+5, AWS1L1+1, AWS1L1+6
IOST	AWS2H+3, AWS1H+3
U	AWS2L1+7, AWS2L1+10, AWS2L1+11, AWS2L1+12, AWS2HD+3, AWS2HD+7, AWS2H1+3, AWS2H1+7, USR+1, LOC+1 , AWS1L1+7, AWS1L1+10, AWS1L1+11, AWS1L1+12, AWS1HD+3, AWS1HD+7, AWS1H1+3, AWS1H1+7
V	S~, S+2
X	AWS2L1+11, AWS2L1+12, AWS2HD+8, AWS2HD+9, AWS2H1+8, AWS2H1+9, CTR~, CTR+1, AWS1L1+11, AWS1L1+12 , AWS1HD+8, AWS1HD+9, AWS1H1+8, AWS1H1+9
Y	AWS2H+3, CTR~, CTR+1, AWS1H+3
>> ZTQUEUED	AWS2H+3, AWS1H+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDCRP6G

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: