Routine: BUDHRP6F

Package	Total	Call Graph
IHS Uniform Data System	4	$$VER^BUDHBAN (HT6B,IN6B)^BUDHDU EN1^BUDHRP6B (AWS1,AWS2)^BUDHRP6G
IHS Patient	1	$$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
S(V)	;
WAC2L1	;
WAC2H1	;
EOJ	;
USR()	;EP - Return name of current user from ^VA(200.
PAUSE	;EP
WAC1HD	;
WAC1	;EP
WAC1H	;
WAC2	;EP
WAC1L	;EP
AWSLIST1	;EP
AWSLIST2	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
WACLIST1	;EP
WACLIST2	;EP
WAC2H	;
WAC2L	;EP
WAC1H1	;
GENI	;EP - general introductions
AWS2	;EP
WAC2HD	;
WAC1L1	;

Name	Field # of Occurrence
$$HRN^AUPNPAT	WAC1L1+7, WAC1L1+11, WAC2L1+7, WAC2L1+11
$$VER^BUDHBAN	WAC1HD+4, WAC1H1+4, WAC2HD+4, WAC2H1+4
HT6B^BUDHDU	WAC1HD+10, WAC1H1+12, WAC2HD+10, WAC2H1+12
IN6B^BUDHDU	WAC1+1, WAC2+1
EN1^BUDHRP6B	WACLIST1+4, WACLIST2+4, AWSLIST1+4, AWSLIST2+4
AWS1^BUDHRP6G	AWSLIST1+3
AWS2^BUDHRP6G	AWS2+1
^DIR	PAUSE+1, GENI+4, WAC1H+3, WAC2H+3
EN^XBVK	EOJ+1
$$FMTE^XLFDT	WAC1HD+3, WAC1HD+8, WAC1H1+3, WAC1H1+8, WAC2HD+3, WAC2HD+8, WAC2H1+3, WAC2H1+8

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: !!,"TOTAL PATIENTS WITH WEIGHT ASSESSMENT AND COUNSELING: ",BUDTOT,! Line Location: WAC1L+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: WAC1L1+7
Function Call: WRITE	Prompt: ?1,$P(BUDALL,U,1)," ",$P(BUDALL,U,2)," ",$S($P(BUDALL,U,3):$J($P(BUDALL,U,3),6,2),1:$P(BUDALL,U,3)),?35,$P(BUDALL,U,4),?61,$P(BUDALL,U,5) Line Location: WAC1L1+10
Function Call: WRITE	Prompt: ! Line Location: WAC1H+3
Function Call: WRITE	Prompt: !,$$CTR("*** SENSITIVE INFORMATION ***",IOM) Line Location: WAC1H1+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: WAC1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" *",80) Line Location: WAC1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section E",80) Line Location: WAC1H1+5
Function Call: WRITE	Prompt: !,$$CTR("With Weight Assessment and Counseling",80),! Line Location: WAC1H1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: WAC1H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: WAC1H1+8
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: WAC1H1+9
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: WAC1H1+10
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: WAC1H1+13
Function Call: WRITE	Prompt: !?1,"HT/WT/BMI PERCENTILE",?35,"NUTRITION COUNSELING",?61,"PHY ACT COUNSELING" Line Location: WAC1H1+14
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: WAC1H1+15
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS WITHOUT WEIGHT ASSESSMENT AND COUNSELING: ",BUDTOT,! Line Location: WAC2L+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: WAC2L1+7
Function Call: WRITE	Prompt: ?1,$P(BUDALL,U,1)," ",$P(BUDALL,U,2)," ",$S($P(BUDALL,U,3):$J($P(BUDALL,U,3),6,2),1:$P(BUDALL,U,3)),?35,$P(BUDALL,U,4),?61,$P(BUDALL,U,5) Line Location: WAC2L1+10
Function Call: WRITE	Prompt: ! Line Location: WAC2H+3
Function Call: WRITE	Prompt: !,$$CTR("*** SENSITIVE INFORMATION ***",IOM) Line Location: WAC2H1+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: WAC2H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" *",80) Line Location: WAC2H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section E",80) Line Location: WAC2H1+5
Function Call: WRITE	Prompt: !,$$CTR("Without Weight Assessment and Counseling",80),! Line Location: WAC2H1+6
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: WAC2H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: WAC2H1+8
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: WAC2H1+9
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: WAC2H1+10
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: WAC2H1+13
Function Call: WRITE	Prompt: !?1,"BMI PERCENTILE",?35,"NUTRITION COUNSELING",?61,"PHYSICAL ACTIVITY COUNSELING" Line Location: WAC2H1+14
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: WAC2H1+15
Routine Call	DIR Line Location: PAUSE+1 GENI+4 WAC1H+3 WAC2H+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1, WAC1HD+7, WAC1H1+7, WAC2HD+7, WAC2H1+7
^DPT - [#2]	WAC1L1+7, WAC1L1+11, WAC2L1+7, WAC2L1+11
^TMP($J	S+2*
^VA(200 - [#200]	USR+1, WAC1HD+3, WAC1H1+3, WAC2HD+3, WAC2H1+3
^XTMP("BUDHRP6B"	WAC1L+3, WAC1L1+2, WAC1L1+3, WAC1L1+4, WAC1L1+5, WAC1L1+9, WAC2L+3, WAC2L1+2, WAC2L1+3, WAC2L1+4 , WAC2L1+5, WAC2L1+9

Name	Line Occurrences
$$CTR	WAC1H1+2, WAC1H1+4, WAC1H1+5, WAC1H1+6, WAC1H1+7, WAC1H1+8, WAC1H1+9, WAC2H1+2, WAC2H1+4, WAC2H1+5 , WAC2H1+6, WAC2H1+7, WAC2H1+8, WAC2H1+9
AWS2	AWSLIST2+3
EOJ	WACLIST1+1, WACLIST2+1, AWSLIST1+1, AWSLIST2+1
S	WAC1L+3, WAC1L+7, WAC1L1+12, WAC1HD+1, WAC1HD+2, WAC1HD+3, WAC1HD+4, WAC1HD+5, WAC1HD+6, WAC1HD+7 , WAC1HD+8, WAC1HD+9, WAC1HD+11, WAC2L+3, WAC2L+7, WAC2L1+12, WAC2HD+1, WAC2HD+2, WAC2HD+3, WAC2HD+4 , WAC2HD+5, WAC2HD+6, WAC2HD+7, WAC2HD+8, WAC2HD+9, WAC2HD+11
WAC1	WACLIST1+3
WAC1H	WAC1L+2, WAC1L+5, WAC1L1+1, WAC1L1+6
WAC1H1	WAC1H+2
WAC1HD	WAC1H+1
WAC1L1	WAC1L+4
WAC2	WACLIST2+3
WAC2H	WAC2L+2, WAC2L+5, WAC2L1+1, WAC2L1+6
WAC2H1	WAC2H+2
WAC2HD	WAC2H+1
WAC2L1	WAC2L+4

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDAGE	WAC1L1+2, WAC1L1+3, WAC1L1+4, WAC1L1+5, WAC1L1+7, WAC1L1+9, WAC1L1+11, WAC2L1+2, WAC2L1+3, WAC2L1+4 , WAC2L1+5, WAC2L1+7, WAC2L1+9, WAC2L1+11
>> BUDALL	WAC1L1+9, WAC1L1+10, WAC1L1+12, WAC2L1+9, WAC2L1+10, WAC2L1+12
>> BUDAWS1L	AWSLIST1+2*
>> BUDAWS2L	AWSLIST2+2*
>> BUDBD	WAC1HD+8, WAC1H1+8, WAC2HD+8, WAC2H1+8
>> BUDBEN	WAC1HD+9, WAC1H1+9, WAC2HD+9, WAC2H1+9
>> BUDCCOM	WAC1L1+4, WAC1L1+5, WAC1L1+7, WAC1L1+9, WAC1L1+11, WAC2L1+4, WAC2L1+5, WAC2L1+7, WAC2L1+9, WAC2L1+11
>> BUDDECNT	S+1*, S+2
>> BUDED	WAC1HD+8, WAC1H1+8, WAC2HD+8, WAC2H1+8
>> BUDGPG	WAC1H+2, WAC1H1+1, WAC1H1+3, WAC2H+2, WAC2H1+1, WAC2H1+3
>> BUDH	WAC1L+3, WAC1L1+2, WAC1L1+3, WAC1L1+4, WAC1L1+5, WAC1L1+9, WAC2L+3, WAC2L1+2, WAC2L1+3, WAC2L1+4 , WAC2L1+5, WAC2L1+9
>> BUDJ	WAC1L+3, WAC1L1+2, WAC1L1+3, WAC1L1+4, WAC1L1+5, WAC1L1+9, WAC2L+3, WAC2L1+2, WAC2L1+3, WAC2L1+4 , WAC2L1+5, WAC2L1+9
>> BUDNAME	WAC1L1+3, WAC1L1+4, WAC1L1+5, WAC1L1+9, WAC2L1+3, WAC2L1+4, WAC2L1+5, WAC2L1+9
>> BUDP	WAC1L+1, WAC1H1+11, WAC1H1+16, WAC2L+1, WAC2H1+11, WAC2H1+16
>> BUDQUIT	WAC1L+1, WAC1L+2, WAC1L+5, WAC1L1+1, WAC1L1+2, WAC1L1+3, WAC1L1+4, WAC1L1+5, WAC1L1+6, WAC1H+3 , WAC2L+1, WAC2L+2, WAC2L+5, WAC2L1+1, WAC2L1+2, WAC2L1+3, WAC2L1+4, WAC2L1+5, WAC2L1+6, WAC2H+3
>> BUDROT	WAC1L+3, WAC1L+5, WAC1L+6, WAC1L+7, WAC1L1+1, WAC1L1+6, WAC1L1+7, WAC1L1+10, WAC1L1+11, WAC1H+1 , WAC2L+3, WAC2L+5, WAC2L+6, WAC2L+7, WAC2L1+1, WAC2L1+6, WAC2L1+7, WAC2L1+10, WAC2L1+11, WAC2H+1
>> BUDSCTC	WAC1H1+3, WAC2H1+3
>> BUDSITE	WAC1L1+7, WAC1L1+11, WAC1HD+7, WAC1H1+7, WAC2L1+7, WAC2L1+11, WAC2HD+7, WAC2H1+7
>> BUDTOT	WAC1L+1, WAC1L+6, WAC1L+7, WAC1L1+8, WAC2L+1, WAC2L+6, WAC2L+7, WAC2L1+8
>> BUDTSCTC	WACLIST1+4, WACLIST2+4, AWSLIST1+4, AWSLIST2+4, WAC1H1+3, WAC2H1+3
>> BUDWAC1L	WACLIST1+2*
>> BUDWAC2L	WACLIST2+2*
>> BUDZLIST	WACLIST1+4, WACLIST2+4, AWSLIST1+4, AWSLIST2+4
DA	PAUSE+1!
>> DFN	WAC1L1+5, WAC1L1+7, WAC1L1+9, WAC1L1+11, WAC2L1+5, WAC2L1+7, WAC2L1+9, WAC2L1+11
DIR	PAUSE+1!, GENI+4!, WAC1H+3!, WAC2H+3!
DIR("A"	PAUSE+1, GENI+4
DIR(0	PAUSE+1, GENI+4, WAC1H+3, WAC2H+3
DT	WAC1HD+3, WAC1H1+3, WAC2HD+3, WAC2H1+3
>> DTOUT	WAC1H+3, WAC2H+3
DUZ	USR+1, WAC1HD+3, WAC1H1+3, WAC2HD+3, WAC2H1+3
DUZ(2	LOC+1, WAC1L1+7, WAC1L1+11, WAC2L1+7, WAC2L1+11
IO	WAC1H+3, WAC2H+3
IO(0	WAC1H+3, WAC2H+3
IOF	WAC1H1+1, WAC2H1+1
IOM	CTR+1, WAC1H1+2, WAC2H1+2
IOSL	WAC1L+5, WAC1L1+1, WAC1L1+6, WAC2L+5, WAC2L1+1, WAC2L1+6
IOST	WAC1H+3, WAC2H+3
U	USR+1, LOC+1, WAC1L1+7, WAC1L1+10, WAC1L1+11, WAC1L1+12, WAC1HD+3, WAC1HD+7, WAC1H1+3, WAC1H1+7 , WAC2L1+7, WAC2L1+10, WAC2L1+11, WAC2L1+12, WAC2HD+3, WAC2HD+7, WAC2H1+3, WAC2H1+7
V	S~, S+2
X	CTR~, CTR+1, WAC1L1+11, WAC1L1+12, WAC1HD+8, WAC1HD+9, WAC1H1+8, WAC1H1+9, WAC2L1+11, WAC2L1+12 , WAC2HD+8, WAC2HD+9, WAC2H1+8, WAC2H1+9
Y	CTR~, CTR+1, WAC1H+3, WAC2H+3
>> ZTQUEUED	WAC1H+3, WAC2H+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDHRP6F

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: