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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLW1P

Package: Patient Care Component Reports

Routine: APCLW1P


Information

APCLW1P ; IHS/CMI/LAB - print dx by age ;

Source Information

Source file <APCLW1P.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Patient Care Component Reports 1 DONE^APCLOSUT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
START ;
AGE ;
DONE
HEAD
HEAD1 ;

External References

Name Field # of Occurrence
DONE^APCLOSUT DONE
^DIR HEAD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO PATIENT DATA TO REPORT",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: ?8,$J(P,6)
  • Line Location: AGE+7
Function Call: WRITE
  • Prompt: ?X,"-"
  • Line Location: AGE+9
Function Call: WRITE
  • Prompt: ?16,$J(B,6)
  • Line Location: AGE+10
Function Call: WRITE
  • Prompt: ?24,$J(R,6)
  • Line Location: AGE+11
Function Call: WRITE
  • Prompt: ?38,$J(X,6),?47,V
  • Line Location: AGE+12
Function Call: WRITE
  • Prompt: ?52,$J(B,6),?60,V
  • Line Location: AGE+13
Function Call: WRITE
  • Prompt: ?66,$J((X+B),6),?74,V
  • Line Location: AGE+14
Function Call: WRITE
  • Prompt: !!,"TOTAL: ",?8,$J(@T,6)
  • Line Location: AGE+16
Function Call: WRITE
  • Prompt: ?X,"-"
  • Line Location: AGE+18
Function Call: WRITE
  • Prompt: ?16,$J(B,6)
  • Line Location: AGE+19
Function Call: WRITE
  • Prompt: ?24,X_"-"_Y
  • Line Location: AGE+20
Function Call: WRITE
  • Prompt: ?38,$J(@Z,6),?47,V
  • Line Location: AGE+21
Function Call: WRITE
  • Prompt: ?52,$J(@Y,6),?60,V
  • Line Location: AGE+22
Function Call: WRITE
  • Prompt: ?66,$J((@Y+@Z),6),?74,V
  • Line Location: AGE+23
Function Call: WRITE
  • Prompt: !!,"* Usable Patient Records are defined as:",!?4,"1). Having a visit within the past 3 years (active users)",!?4,"2). Having current height and weight measurements recorded."
  • Line Location: AGE+25
Function Call: WRITE
  • Prompt: !?6,"- ages 2-19 must have ht and wt taken on the same day within the past year"
  • Line Location: AGE+26
Function Call: WRITE
  • Prompt: !?6,"- ages 20-74 must have ht taken after age 19/wt taken in the past 3 yrs"
  • Line Location: AGE+27
Function Call: WRITE
  • Prompt: !!,"NOTE: To make sure data is accurate and to eliminate data entry error, table",!,"excludes patient records whose BMI falls above or below the data check limits.",!,"See the BMI Standard Reference Table for a list of these limits."
  • Line Location: AGE+28
Function Call: WRITE
  • Prompt: !,"Prenatal patients are also excluded."
  • Line Location: AGE+29
Function Call: WRITE
  • Prompt: !,"***** Values identified on this report as errors are 'possible' errors that"
  • Line Location: AGE+30
Function Call: WRITE
  • Prompt: !," deserve review but are not 'validated true errors'.",!
  • Line Location: AGE+31
Function Call: WRITE
  • Prompt: !,"Ages 2-19: 'At Risk for Overweight' is defined as BMI >=85th% but <95th%"
  • Line Location: AGE+33
Function Call: WRITE
  • Prompt: !?12,"'Overweight' is defined as BMI >= 95th%"
  • Line Location: AGE+34
Function Call: WRITE
  • Prompt: !,"(per National Center for Health Statistics in collaboration with the National",!,"Center for Chronic Disease Prevention and Health Promotion (2000)."
  • Line Location: AGE+35
Function Call: WRITE
  • Prompt: !!,"Ages 20-74: 'Overweight' is defined as BMI >=25.0 but <30.0."
  • Line Location: AGE+36
Function Call: WRITE
  • Prompt: !?13,"'Obese' is defined as BMI >=30.0"
  • Line Location: AGE+37
Function Call: WRITE
  • Prompt: !,"(per Clinical Guidelines on the Identification, Evaluation,"
  • Line Location: AGE+38
Function Call: WRITE
  • Prompt: !," and Treatment of Overweight and Obesity in Adults. Bethesda, Md: NHlBI, 1998)"
  • Line Location: AGE+39
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?71,"Page ",APCLPG,!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?21,"RISK FOR OVERWEIGHT PREVALENCE REPORT",!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?(80-$L(X))/2,X
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !?(80-APCLLENG)/2,APCLTEXT
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !?(80-APCLLENG)/2,APCLTEXT
  • Line Location: HEAD1+11
Function Call: WRITE
  • Prompt: !?(80-APCLLENG)/2,APCLTEXT
  • Line Location: HEAD1+14
Function Call: WRITE
  • Prompt: !?(80-APCLLENG)/2,APCLTEXT
  • Line Location: HEAD1+16
Function Call: WRITE
  • Prompt: !!?7,"TOTAL #",!?7,"PATIENT",?15,"AVERAGE",?40,"(AT RISK FOR)"
  • Line Location: HEAD1+17
Function Call: WRITE
  • Prompt: !,"AGE",?7,"RECORDS",?17,"BMI",?25,"RANGE",?42,"OVERWEIGHT)",?57," OBESE",?70,"COMBINED"
  • Line Location: HEAD1+18
Function Call: WRITE
  • Prompt: !?7,"USED*",?36," # %",?57,"#",?63,"%",?71,"#",?77,"%"
  • Line Location: HEAD1+19
Function Call: WRITE
  • Prompt: !,APCL80
  • Line Location: HEAD1+20
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(41.1 - [#9002241.1] HEAD1+15
^DIBT( HEAD1+13
^DIC(4 - [#4] HEAD1+3
^VA(200 - [#200] HEAD1+4
^XTMP("APCLW1" DONE+1!, AGE+3, AGE+7, AGE+10, AGE+11, AGE+12, AGE+13

Label References

Name Line Occurrences
AGE START+5
DONE START+4
HEAD START+4, AGE+2, AGE+6, AGE+15, AGE+24, AGE+32
HEAD1 HEAD

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL80 START+1*, HEAD1+20
>> APCLAGEG AGE+4
>> APCLAGEP AGE+3*, AGE+4, AGE+5, AGE+7, AGE+10, AGE+11, AGE+12, AGE+13
>> APCLBIN AGE+4
APCLBTH DONE+1!, AGE+3, AGE+7, AGE+10, AGE+11, AGE+12, AGE+13
>> APCLBTUP START+4
>> APCLCMS HEAD1+15, HEAD1+16
>> APCLDT HEAD1+6
>> APCLIBEN HEAD1+10
APCLJOB DONE+1!, AGE+3, AGE+7, AGE+10, AGE+11, AGE+12, AGE+13
>> APCLLENG HEAD1+8*, HEAD1+9, HEAD1+11*, HEAD1+14*, HEAD1+16*
>> APCLPAGE AGE+4*, AGE+5*, AGE+7
>> APCLPG START+2*, HEAD, HEAD1+1*, HEAD1+4
APCLQUIT START+3!, START+5, AGE+2, AGE+3, AGE+6, AGE+15, AGE+24, AGE+32, HEAD+1*
>> APCLSEAT HEAD1+13, HEAD1+14
>> APCLSEX AGE+1
>> APCLSEXP START+2*, START+5*, AGE+1, AGE+3, AGE+7, AGE+10, AGE+11, AGE+12, AGE+13, AGE+16
, AGE+19, AGE+20, AGE+21, AGE+22, HEAD1+7
>> APCLTEXT HEAD1+7*, HEAD1+8, HEAD1+9, HEAD1+10*, HEAD1+11, HEAD1+13*, HEAD1+14, HEAD1+15*, HEAD1+16
>> B AGE+10*, AGE+13*, AGE+14, AGE+19*
DIR HEAD+1!
DIR(0 HEAD+1*
>> DTOUT HEAD+1
DUZ HEAD1+4
DUZ(2 HEAD1+3
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL AGE+6, AGE+15, AGE+24, AGE+32
IOST HEAD+1
>> P AGE+7*, AGE+8, AGE+10, AGE+12, AGE+13, AGE+14
>> R AGE+11*
>> T AGE+16*, AGE+17, AGE+19, AGE+21, AGE+22, AGE+23
U HEAD1+13, HEAD1+15
>> V AGE+12*, AGE+13*, AGE+14*, AGE+21*, AGE+22*, AGE+23*
>> X AGE+9*, AGE+10*, AGE+11*, AGE+12*, AGE+14, AGE+18*, AGE+20*, HEAD1+3*, HEAD1+4, HEAD1+6*
>> Y AGE+11*, AGE+20*, AGE+22*, AGE+23, HEAD+1
>> Z AGE+19*, AGE+20*, AGE+21*, AGE+23
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All