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: BUDARP6G

Package: IHS Uniform Data System

Routine: BUDARP6G


Information

BUDARP6G ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B 30 Dec 2013 8:09 PM 14 Dec 2013 1:24 PM ;

Source Information

Source file <BUDARP6G.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Uniform Data System 2 BUDARP6F  BUDARP6I  

Entry Points

Name Comments DBIA/ICR reference
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.
AWS2H ;
USR() ;EP - Return name of current user from ^VA(200.
AWS2L ;EP
AWS2 ;EP

External References

Name Field # of Occurrence
$$HRN^AUPNPAT AWS2L1+7
GENI^BUDARP6F AWS2+5
PAUSE^BUDARP6F AWS2+6
^DIR AWS2H+2
$$FMTE^XLFDT AWS2H1+3, AWS2H1+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: AWS2+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2013",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: !!,"No patients to report.",!
  • Line Location: AWS2L+3
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS WITHOUT ADULT WEIGHT SCREEN OR FOLLOW-UP PLAN: ",BUDTOT,!
  • Line Location: AWS2L+6
Function Call: WRITE
  • Prompt: !
  • Line Location: AWS2H+2
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("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
Routine Call
  • DIR
  • Line Location:
    • AWS2H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] AWS2H1+7, LOC+1
^DPT - [#2] AWS2L1+7
^VA(200 - [#200] AWS2H1+3, USR+1
^XTMP("BUDARP6B" AWS2L+3, AWS2L1+2, AWS2L1+3, AWS2L1+4, AWS2L1+5, AWS2L1+9

Label References

Name Line Occurrences
$$CTR AWS2+2, AWS2+3, AWS2H1+4, AWS2H1+5, AWS2H1+6, AWS2H1+7, AWS2H1+8, AWS2H1+9
$$LOC AWS2+2
AWS2H AWS2L+2, AWS2L+5, AWS2L1+1, AWS2L1+6
AWS2H1 AWS2H+1
AWS2L1 AWS2L+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 AWS2L1+2*, AWS2L1+3, AWS2L1+4, AWS2L1+5, AWS2L1+7, AWS2L1+9
>> BUDALL AWS2L1+9*, AWS2L1+10
>> BUDBD AWS2H1+8
>> BUDBEN AWS2H1+9
>> BUDCOM AWS2L1+4*, AWS2L1+5, AWS2L1+7, AWS2L1+9
>> BUDED AWS2H1+8
>> BUDGPG AWS2H+1, AWS2H1+1*, AWS2H1+3
>> BUDH AWS2L+3, AWS2L1+2, AWS2L1+3, AWS2L1+4, AWS2L1+5, AWS2L1+9
>> BUDJ AWS2L+3, AWS2L1+2, AWS2L1+3, AWS2L1+4, AWS2L1+5, AWS2L1+9
>> BUDNAME AWS2L1+3*, AWS2L1+4, AWS2L1+5, AWS2L1+9
>> BUDP AWS2L+1*, AWS2H1+11, AWS2H1+22*
>> BUDQUIT AWS2L+1*, AWS2L+2, AWS2L+5, AWS2L1+1, AWS2L1+2, AWS2L1+3, AWS2L1+4, AWS2L1+5, AWS2L1+6, AWS2H+2*
>> BUDSITE AWS2L1+7, AWS2H1+7
>> BUDTOT AWS2L+1*, AWS2L+6, AWS2L1+8*
>> DFN AWS2L1+5*, AWS2L1+7, AWS2L1+9
DIR AWS2H+2!
DIR(0 AWS2H+2*
DT AWS2H1+3
>> DTOUT AWS2H+2
DUZ AWS2H1+3, USR+1
DUZ(2 AWS2L1+7, LOC+1
IO AWS2H+2
IO(0 AWS2H+2
IOF AWS2+1, AWS2H1+1
IOM CTR+1
IOSL AWS2L+5, AWS2L1+1, AWS2L1+6
IOST AWS2H+2
U AWS2L1+7, AWS2L1+10, AWS2H1+3, AWS2H1+7, USR+1, LOC+1
X AWS2H1+8*, AWS2H1+9*, CTR~, CTR+1
Y AWS2H+2, CTR~, CTR+1
>> ZTQUEUED AWS2H+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All