Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BUDCRP6F

Package: IHS Uniform Data System

Routine: BUDCRP6F


Information

BUDCRP6F ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;

Source Information

Source file <BUDCRP6F.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Uniform Data System 2 EN1^BUDCRP6B  (AWS1,AWS2)^BUDCRP6G  
IHS Patient 1 $$HRN^AUPNPAT  
IHS VA Utilities 1 EN^XBVK  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Uniform Data System 2 BUDCRP6G  BUDCRP6I  

Entry Points

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 ;

External References

Name Field # of Occurrence
$$HRN^AUPNPAT WAC1L1+7, WAC1L1+11, WAC2L1+7, WAC2L1+11
EN1^BUDCRP6B WACLIST1+4, WACLIST2+4, AWSLIST1+4, AWSLIST2+4
AWS1^BUDCRP6G AWSLIST1+3
AWS2^BUDCRP6G 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: !,$$CTR($$LOC,80)
  • Line Location: WAC1+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2015",80)
  • Line Location: WAC1+3
Function Call: WRITE
  • Prompt: !!,"All Patients 3-17 w/Weight Assessment and Counseling (Table 6B)",!
  • Line Location: WAC1+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all patients ages 3-17 who have "
  • Line Location: WAC1+7
Function Call: WRITE
  • Prompt: !,"documented BMI percentile, counseling for nutrition, counseling for"
  • Line Location: WAC1+8
Function Call: WRITE
  • Prompt: !,"physical activity, had a medical visit during the report period, and"
  • Line Location: WAC1+9
Function Call: WRITE
  • Prompt: !,"were first ever seen in the clinic by their 17th birthday."
  • Line Location: WAC1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WAC1+11
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(BUDCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,!
  • Line Location: WAC1L1+7
Function Call: WRITE
  • Prompt: ?5,$S($P(BUDALL,U,1):$J($P(BUDALL,U,1),6,2),1:$P(BUDALL,U,1)),?25,$P(BUDALL,U,2),?51,$P(BUDALL,U,3)
  • Line Location: WAC1L1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WAC1H+3
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: WAC1H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: WAC1H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",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+17
Function Call: WRITE
  • Prompt: !?5,"BMI PERCENTILE",?25,"NUTRITION COUNSELING",?51,"PHYSICAL ACTIVITY COUNSELING"
  • Line Location: WAC1H1+18
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: WAC1H1+19
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: WAC2+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2015",80)
  • Line Location: WAC2+3
Function Call: WRITE
  • Prompt: !!,"All Patients 3-17 w/Weight Assessment and Counseling (Table 6B)",!
  • Line Location: WAC2+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all patients ages 3-17 who do not have"
  • Line Location: WAC2+7
Function Call: WRITE
  • Prompt: !,"documented BMI percentile, or counseling for nutrition, or counseling for"
  • Line Location: WAC2+8
Function Call: WRITE
  • Prompt: !,"physical activity, had a medical visit during the report period, and"
  • Line Location: WAC2+9
Function Call: WRITE
  • Prompt: !,"were first ever seen in the clinic by their 17th birthday."
  • Line Location: WAC2+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WAC2+11
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(BUDCOM,1,25),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,!
  • Line Location: WAC2L1+7
Function Call: WRITE
  • Prompt: ?5,$S($P(BUDALL,U,1):$J($P(BUDALL,U,1),6,2),1:$P(BUDALL,U,1)),?25,$P(BUDALL,U,2),?51,$P(BUDALL,U,3)
  • Line Location: WAC2L1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WAC2H+3
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: WAC2H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: WAC2H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",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+17
Function Call: WRITE
  • Prompt: !?5,"BMI PERCENTILE",?25,"NUTRITION COUNSELING",?51,"PHYSICAL ACTIVITY COUNSELING"
  • Line Location: WAC2H1+18
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: WAC2H1+19
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
    • GENI+4
    • WAC1H+3
    • WAC2H+3

Global Variables Directly Accessed

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("BUDCRP6B" WAC1L+3, WAC1L1+2, WAC1L1+3, WAC1L1+4, WAC1L1+5, WAC1L1+9, WAC2L+3, WAC2L1+2, WAC2L1+3, WAC2L1+4
, WAC2L1+5, WAC2L1+9

Label References

Name Line Occurrences
$$CTR WAC1+2, WAC1+3, WAC1H1+4, WAC1H1+5, WAC1H1+6, WAC1H1+7, WAC1H1+8, WAC1H1+9, WAC2+2, WAC2+3
, WAC2H1+4, WAC2H1+5, WAC2H1+6, WAC2H1+7, WAC2H1+8, WAC2H1+9
$$LOC WAC1+2, WAC2+2
AWS2 AWSLIST2+3
EOJ WACLIST1+1, WACLIST2+1, AWSLIST1+1, AWSLIST2+1
GENI WAC1+5, WAC2+5
PAUSE WAC1+6, WAC2+6
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+10, WAC1HD+11, WAC1HD+12, WAC1HD+13, WAC1HD+14, WAC1HD+15, WAC1HD+16, 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+10, WAC2HD+11, WAC2HD+12, WAC2HD+13, WAC2HD+14, WAC2HD+15, WAC2HD+16
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

Naked Globals

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
>> BUDCEN WAC1HD+9, WAC1H1+9, WAC2HD+9, WAC2H1+9
>> BUDCOM 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+20*, WAC2L+1*, WAC2H1+11, WAC2H1+20*
>> 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
>> 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*
>> BUDWAC1L WACLIST1+2*
>> BUDWAC2L WACLIST2+2*
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 WAC1+1, WAC1H1+1, WAC2+1, WAC2H1+1
IOM CTR+1
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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All