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

Package: Patient Care Component Reports

Routine: APCLW2P


Information

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

Source Information

Source file <APCLW2P.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 ;
HEAD
DONE
HEAD1 ;
PAT ;

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: !!,"Search Template ",$P($G(^DIBT(APCLSTMP,0)),U)," has been created.",!,"A total of ",APCLGRAN," patients were added to the template.",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!,"TOTAL NUMBER OF PATIENTS: ",APCLGRAN
  • Line Location: START+9
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: START+10
Function Call: WRITE
  • Prompt: !?6,"- ages 2-19 must have ht and wt taken on the same day within the past year"
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !?6,"- ages 20-74 must have ht since age 19 and wt taken in the past 3 yrs"
  • Line Location: START+12
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: START+13
Function Call: WRITE
  • Prompt: !,"Prenatal patients are also excluded."
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !,"***** Values identified on this report as errors are 'possible' errors that"
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !," deserve review but are not 'validated true errors'.",!
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !,"Ages 2-19: 'At Risk for Overweight' is defined as BMI >=85th% but <95th%"
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !?12,"'Overweight' is defined as BMI >= 95th%"
  • Line Location: START+19
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: START+20
Function Call: WRITE
  • Prompt: !!,"Ages 20-74: 'Overweight' is defined as BMI >=25.0 but <30.0."
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !?13,"'Obese' is defined as BMI >=30.0"
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !,"(per Clinical Guidelines on the Identification, Evaluation,"
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !," and Treatment of Overweight and Obesity in Adults. Bethesda, Md: NHlBI, 1998)"
  • Line Location: START+24
Function Call: WRITE
  • Prompt: $E($P(R,U),1,15),?17,$J($P(R,U,2),6)
  • Line Location: PAT+3
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: ?22,"RISK FOR OVERWEIGHT PATIENT LISTING "
  • Line Location: HEAD1+5
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+13
Function Call: WRITE
  • Prompt: !?(80-APCLLENG)/2,APCLTEXT
  • Line Location: HEAD1+16
Function Call: WRITE
  • Prompt: !,?66,"(AT RISK",!?41,"DATE OF",?69,"FOR)"
  • Line Location: HEAD1+17
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?17,"HRN #",?25," HT",?33," WT",?41,"WEIGHT",?51,"AGE",?56,"SEX",?61," BMI",?67,"OVERWT",?75,"OBESE"
  • Line Location: HEAD1+18
Function Call: WRITE
  • Prompt: !,APCL80
  • Line Location: HEAD1+19
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIBT( START+5, HEAD1+15
^DIC(4 - [#4] HEAD1+3
^VA(200 - [#200] HEAD1+4
^XTMP("APCLW2" START+6, DONE+1!, PAT+1

Label References

Name Line Occurrences
DONE START+4, START+5, START+7, START+8
HEAD START+4, START+8, START+17, PAT+2
HEAD1 HEAD
PAT START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL80 START+1*, HEAD1+19
>> APCLAGER HEAD1+10
APCLBTH START+6, DONE+1!, PAT+1
>> APCLGRAN START+4, START+5, START+9
>> APCLIBEN HEAD1+12
>> APCLIDEN PAT+3
APCLJOB START+6, DONE+1!, PAT+1
>> APCLLENG HEAD1+8*, HEAD1+9, HEAD1+11*, HEAD1+13*, HEAD1+16*
>> APCLPG START+2*, HEAD, HEAD1+1*, HEAD1+4
APCLQUIT START+3!, START+6, START+7, START+8, START+17, PAT+1, PAT+2, HEAD+1*
>> APCLRPT HEAD1+7
>> APCLRTYP START+5
>> APCLSEAT HEAD1+15, HEAD1+16
>> APCLSEX HEAD1+10
>> APCLSEXP START+2*
>> APCLSRT START+6*, PAT+1
>> APCLSTMP START+5
>> APCLTEXT HEAD1+7*, HEAD1+8, HEAD1+9, HEAD1+10*, HEAD1+11, HEAD1+12*, HEAD1+13, HEAD1+15*, HEAD1+16
>> DFN PAT+1*
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 START+8, START+17, PAT+2
IOST HEAD+1
>> R PAT+1*, PAT+3, PAT+4
U START+5, PAT+3, PAT+4, HEAD1+15
>> X HEAD1+3*, HEAD1+4
>> Y HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All