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

Package: Patient Care Component Reports

Routine: APCLD21A


Information

APCLD21A ; IHS/CMI/LAB -IHS -CUMULATIVE REPORT ;

Source Information

Source file <APCLD21A.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 COMMA^%DTC  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLD214  

Entry Points

Name Comments DBIA/ICR reference
ACE ;
EKG ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
HDL ;
URIN ;
EDUC ;
LIPID ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
LDL ;
TOTAL ;
TRIG ;
IMM ;
HEADER ;EP
C(X,X2,X3) ;
ASPIRIN ;
CREAT ;
SELF ;
P(D,N) ;return %
HEADER1 ;
EXIT ;
CALC(N,O) ;ENTRY POINT
SDM ;
TBC ;
EXAMS ;

External References

Name Field # of Occurrence
COMMA^%DTC CALC+6, CALC+7, C+3
^DIR EXIT+1, HEADER+2, EOP+5
$$FMTE^XLFDT HEADER1+2, HEADER1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: ASPIRIN+2
Function Call: WRITE
  • Prompt: !?7,"Yes",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: ASPIRIN+3
Function Call: WRITE
  • Prompt: !?7,"No",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: ASPIRIN+4
Function Call: WRITE
  • Prompt: !?7,"Undetermined",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: ASPIRIN+5
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: ACE+2
Function Call: WRITE
  • Prompt: !?7,"Use in pts with overt proteinuria",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,3),$P(V,U,4))
  • Line Location: ACE+3
Function Call: WRITE
  • Prompt: !?7,"Use in pts with known hypertension",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,5),$P(V,U,6))
  • Line Location: ACE+4
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: LIPID+2
Function Call: WRITE
  • Prompt: !?7,"Use in pts with total chol >=240",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,3),$P(V,U,4))
  • Line Location: LIPID+3
Function Call: WRITE
  • Prompt: !?7,"Use in pts with LDL chol > 160",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,5),$P(V,U,6))
  • Line Location: LIPID+4
Function Call: WRITE
  • Prompt: !!,$P(V,U),?69,"(% refused)"
  • Line Location: EXAMS+2
Function Call: WRITE
  • Prompt: !?7,"Foot Exam - Neuro & Vasc",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)),?71,"( ",$$P($P(V,U,2),$P(V,U,6))," )"
  • Line Location: EXAMS+3
Function Call: WRITE
  • Prompt: !?7,"Eye Exam - Dilated",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)),?71,"( ",$$P($P(V,U,2),$P(V,U,7))," )"
  • Line Location: EXAMS+4
Function Call: WRITE
  • Prompt: !?7,"Dental Exam",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)),?71,"( ",$$P($P(V,U,2),$P(V,U,8))," )"
  • Line Location: EXAMS+5
Function Call: WRITE
  • Prompt: !?7,"Pap Smear (Females Only)",?53,$$C($P(V,U,10)),?65,$$P($P(V,U,9),$P(V,U,10)),?71,"( ",$$P($P(V,U,9),$P(V,U,11))," )"
  • Line Location: EXAMS+6
Function Call: WRITE
  • Prompt: !!,$P(V,U),?69,"(% refused)"
  • Line Location: EDUC+2
Function Call: WRITE
  • Prompt: !?7,"Diet Instruction",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)),?71,"( ",$$P($P(V,U,2),$P(V,U,7))," )"
  • Line Location: EDUC+3
Function Call: WRITE
  • Prompt: !?7,"Exercise Instruction",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)),?71,"( ",$$P($P(V,U,2),$P(V,U,8))," )"
  • Line Location: EDUC+4
Function Call: WRITE
  • Prompt: !?7,"Other Diabetes Education",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)),?71,"( ",$$P($P(V,U,2),$P(V,U,9))," )"
  • Line Location: EDUC+5
Function Call: WRITE
  • Prompt: !?7,"Any of the above topics",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: EDUC+6
Function Call: WRITE
  • Prompt: !!,$P(V,U),?69,"(% refused)"
  • Line Location: IMM+2
Function Call: WRITE
  • Prompt: !?7,"Flu Vaccine - yearly",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)),?71,"( ",$$P($P(V,U,2),$P(V,U,6))," )"
  • Line Location: IMM+3
Function Call: WRITE
  • Prompt: !?7,"Pneumovax - once",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)),?71,"( ",$$P($P(V,U,2),$P(V,U,7))," )"
  • Line Location: IMM+4
Function Call: WRITE
  • Prompt: !?7,"Tetanus/Diptheria (q 10 yrs)",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)),?71,"( ",$$P($P(V,U,2),$P(V,U,8))," )"
  • Line Location: IMM+5
Function Call: WRITE
  • Prompt: !!,"LABORATORY EXAMS",!
  • Line Location: URIN+2
Function Call: WRITE
  • Prompt: !,"Urinalysis in the past 12 months",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: URIN+4
Function Call: WRITE
  • Prompt: !!,"Proteinuria present",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: URIN+5
Function Call: WRITE
  • Prompt: !,"Proteinuria absent",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: URIN+6
Function Call: WRITE
  • Prompt: !,"Proteinuria result unknown",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: URIN+7
Function Call: WRITE
  • Prompt: !,"Proteinuria test not done"
  • Line Location: URIN+8
Function Call: WRITE
  • Prompt: ?53,$$C(Z),?65,$$P($P(V,U,2),Z)
  • Line Location: URIN+8
Function Call: WRITE
  • Prompt: !!?7,"Of the ",$$C($P(V,U,5))," without proteinuria:"
  • Line Location: URIN+9
Function Call: WRITE
  • Prompt: !?9,"Microalbuminuria present",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,5),$P(V,U,7))
  • Line Location: URIN+10
Function Call: WRITE
  • Prompt: !?9,"Microalbuminuria absent",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,5),$P(V,U,8))
  • Line Location: URIN+11
Function Call: WRITE
  • Prompt: !?9,"Microalbuminuria not tested",?53,$$C($P(V,U,9)),?65,$$P($P(V,U,5),$P(V,U,9))
  • Line Location: URIN+12
Function Call: WRITE
  • Prompt: !!,"Creatinine obtained in the past 12 months",?53,$$C(T),?65,$$P($P(V,U,2),T)
  • Line Location: CREAT+3
Function Call: WRITE
  • Prompt: !?7,"Creatinine >= 2.0 mg/dl",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: CREAT+4
Function Call: WRITE
  • Prompt: !?7,"Creatinine < 2.0 mg/dl",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: CREAT+5
Function Call: WRITE
  • Prompt: !?7,"Unable to determine result",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: CREAT+6
Function Call: WRITE
  • Prompt: !?7,"Creatinine not tested/unknown",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: CREAT+7
Function Call: WRITE
  • Prompt: !!,"Total Cholesterol obtained in the past 12 months",?53,$$C(T),?65,$$P($P(V,U,2),T)
  • Line Location: TOTAL+4
Function Call: WRITE
  • Prompt: !?7,"Desirable (<200 mg/dl)",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: TOTAL+5
Function Call: WRITE
  • Prompt: !?7,"Borderline (200-239 mg/dl)",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: TOTAL+6
Function Call: WRITE
  • Prompt: !?7,"High (240 mg/dl or more)",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: TOTAL+7
Function Call: WRITE
  • Prompt: !?7,"Unable to determine result",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: TOTAL+8
Function Call: WRITE
  • Prompt: !?7,"Not tested",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: TOTAL+9
Function Call: WRITE
  • Prompt: !!,"LDL Cholesterol obtained in the past 12 months",?53,$$C(T),?65,$$P($P(V,U,2),T)
  • Line Location: LDL+4
Function Call: WRITE
  • Prompt: !?7,"LDL <100 mg/dl",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: LDL+5
Function Call: WRITE
  • Prompt: !?7,"LDL 100-129 mg/dl",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: LDL+6
Function Call: WRITE
  • Prompt: !?7,"LDL 130-160 mg/dl",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: LDL+7
Function Call: WRITE
  • Prompt: !?7,"LDL >160",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: LDL+8
Function Call: WRITE
  • Prompt: !?7,"Unable to determine result",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: LDL+9
Function Call: WRITE
  • Prompt: !?7,"Not tested",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: LDL+10
Function Call: WRITE
  • Prompt: !!,"HDL Cholesterol obtained in the past 12 months",?53,$$C(T),?65,$$P($P(V,U,2),T)
  • Line Location: HDL+4
Function Call: WRITE
  • Prompt: !?7,"HDL <35 mg/dl",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: HDL+5
Function Call: WRITE
  • Prompt: !?7,"HDL 35-45 mg/dl",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: HDL+6
Function Call: WRITE
  • Prompt: !?7,"HDL 46-55 mg/dl",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: HDL+7
Function Call: WRITE
  • Prompt: !?7,"HDL >55",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: HDL+8
Function Call: WRITE
  • Prompt: !?7,"Unable to determine result",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: HDL+9
Function Call: WRITE
  • Prompt: !?7,"Not tested",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: HDL+10
Function Call: WRITE
  • Prompt: !!,"Triglycerides obtained in the past 12 months",?53,$$C(T),?65,$$P($P(V,U,2),T)
  • Line Location: TRIG+4
Function Call: WRITE
  • Prompt: !?7,"TG <150 mg/dl",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: TRIG+5
Function Call: WRITE
  • Prompt: !?7,"TG 150-199 mg/dl",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: TRIG+6
Function Call: WRITE
  • Prompt: !?7,"TG 200-400 mg/dl",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: TRIG+7
Function Call: WRITE
  • Prompt: !?7,"TG >400 mg/dl",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: TRIG+8
Function Call: WRITE
  • Prompt: !?7,"Unable to determine result",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: TRIG+9
Function Call: WRITE
  • Prompt: !?7,"Not tested",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: TRIG+10
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: EKG+2
Function Call: WRITE
  • Prompt: !?7,"Performed in past 3 years",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: EKG+3
Function Call: WRITE
  • Prompt: !?7,"Performed in past 5 years",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: EKG+4
Function Call: WRITE
  • Prompt: !?7,"Ever performed",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: EKG+5
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: TBC+2
Function Call: WRITE
  • Prompt: !?7,"PPD +,INH treatment complete",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: TBC+3
Function Call: WRITE
  • Prompt: !?7,"PPD +, untreated/incomplete or tx unknown",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: TBC+4
Function Call: WRITE
  • Prompt: !?7,"PPD -, placed since DM dx",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: TBC+5
Function Call: WRITE
  • Prompt: !?7,"PPD -, placed before DM dx or date unknown",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: TBC+6
Function Call: WRITE
  • Prompt: !?7,"PPD status unknown",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: TBC+8
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: SELF+2
Function Call: WRITE
  • Prompt: !?7,"Yes",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: SELF+3
Function Call: WRITE
  • Prompt: !?7,"No",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: SELF+4
Function Call: WRITE
  • Prompt: !?7,"Refused",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: SELF+5
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: SDM+2
Function Call: WRITE
  • Prompt: !?7,"Yes",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: SDM+3
Function Call: WRITE
  • Prompt: !?7,"No",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: SDM+4
Function Call: WRITE
  • Prompt: !?7,"Undetermined",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: SDM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,$$CTR("*** HEALTH STATUS OF DIABETIC PATIENTS ***",80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U)),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !!,$P(APCLCUML(10),U,2)," patients were reviewed"
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: ?55," n",?63,"Percent"
  • Line Location: HEADER1+8
Routine Call
  • DIR
  • Line Location:
    • EXIT+1
    • HEADER+2
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HEADER1+4, LOC+1
^VA(200 - [#200] HEADER1+2, USR+1

Label References

Name Line Occurrences
$$C ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ACE+3, ACE+4, LIPID+3, LIPID+4, EXAMS+3, EXAMS+4, EXAMS+5
, EXAMS+6, EDUC+3, EDUC+4, EDUC+5, EDUC+6, IMM+3, IMM+4, IMM+5, URIN+4, URIN+5
, URIN+6, URIN+7, URIN+8, URIN+9, URIN+10, URIN+11, URIN+12, CREAT+3, CREAT+4, CREAT+5
, CREAT+6, CREAT+7, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+9, LDL+4, LDL+5
, LDL+6, LDL+7, LDL+8, LDL+9, LDL+10, HDL+4, HDL+5, HDL+6, HDL+7, HDL+8
, HDL+9, HDL+10, TRIG+4, TRIG+5, TRIG+6, TRIG+7, TRIG+8, TRIG+9, TRIG+10, EKG+3
, EKG+4, EKG+5, TBC+3, TBC+4, TBC+5, TBC+6, TBC+8, SELF+3, SELF+4, SELF+5
, SDM+3, SDM+4, SDM+5
$$CTR HEADER1+3, HEADER1+4, HEADER1+5
$$P ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ACE+3, ACE+4, LIPID+3, LIPID+4, EXAMS+3, EXAMS+4, EXAMS+5
, EXAMS+6, EDUC+3, EDUC+4, EDUC+5, EDUC+6, IMM+3, IMM+4, IMM+5, URIN+4, URIN+5
, URIN+6, URIN+7, URIN+8, URIN+10, URIN+11, URIN+12, CREAT+3, CREAT+4, CREAT+5, CREAT+6
, CREAT+7, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+9, LDL+4, LDL+5, LDL+6
, LDL+7, LDL+8, LDL+9, LDL+10, HDL+4, HDL+5, HDL+6, HDL+7, HDL+8, HDL+9
, HDL+10, TRIG+4, TRIG+5, TRIG+6, TRIG+7, TRIG+8, TRIG+9, TRIG+10, EKG+3, EKG+4
, EKG+5, TBC+3, TBC+4, TBC+5, TBC+6, TBC+8, SELF+3, SELF+4, SELF+5, SDM+3
, SDM+4, SDM+5
HEADER ASPIRIN+1, ACE+1, LIPID+1, EXAMS+1, EDUC+1, IMM+1, URIN+1, CREAT+1, TOTAL+1, LDL+1
, HDL+1, TRIG+1, EKG+1, TBC+1, SELF+1, SDM+1
HEADER1 HEADER+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLADAT HEADER1+5
>> APCLBDAT HEADER1+5
>> APCLCUML(10 HEADER1+7
>> APCLCUML(100 ASPIRIN+2
>> APCLCUML(110 ACE+2
>> APCLCUML(115 LIPID+2
>> APCLCUML(120 EXAMS+2
>> APCLCUML(130 EDUC+2
>> APCLCUML(140 IMM+2
>> APCLCUML(145 URIN+3
>> APCLCUML(150 EKG+2
>> APCLCUML(170 CREAT+2
>> APCLCUML(180 TOTAL+2
>> APCLCUML(190 LDL+2
>> APCLCUML(195 HDL+2
>> APCLCUML(200 TRIG+2
>> APCLCUML(210 SELF+2
>> APCLCUML(220 SDM+2
>> APCLCUML(70 TBC+2
>> APCLPG HEADER+1, HEADER1+1*, HEADER1+2
>> APCLQUIT ASPIRIN+1, ACE+1, LIPID+1, EXAMS+1, EDUC+1, IMM+1, URIN+1, CREAT+1, TOTAL+1, LDL+1
, HDL+1, TRIG+1, EKG+1, TBC+1, SELF+1, SDM+1, HEADER+2*
D P~, P+1, P+3
DFOUT EOP+4!
DIR EXIT+1!, HEADER+2!, EOP+3~
DIR("A" EXIT+1*
DIR(0 EXIT+1*, HEADER+2*, EOP+5*
DIRUT EXIT+1*, EOP+4!
DLOUT EOP+4!
DT HEADER1+2
DTOUT HEADER+2, EOP+4!
DUOUT EXIT+1, EOP+4!
DUZ HEADER1+2, USR+1
DUZ(2 HEADER1+4, LOC+1
IO EXIT+1, HEADER+2
IO("S" EOP+2
IO(0 EXIT+1, HEADER+2
IOF HEADER1+1
IOM CTR+1
IOSL ASPIRIN+1, ACE+1, LIPID+1, EXAMS+1, EDUC+1, IMM+1, URIN+1, CREAT+1, TOTAL+1, LDL+1
, HDL+1, TRIG+1, EKG+1, TBC+1, SELF+1, SDM+1
IOST EXIT+1, HEADER+2, EOP+1
>> IOT EOP+2
N CALC~, CALC+4, CALC+6*, CALC+8, P~, P+2, P+3
O CALC~, CALC+4, CALC+7*, CALC+8
>> T CREAT+2*, CREAT+3, TOTAL+3*, TOTAL+4, LDL+3*, LDL+4, HDL+3*, HDL+4, TRIG+3*, TRIG+4
U ASPIRIN+2, ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ACE+2, ACE+3, ACE+4, LIPID+2, LIPID+3, LIPID+4
, EXAMS+2, EXAMS+3, EXAMS+4, EXAMS+5, EXAMS+6, EDUC+2, EDUC+3, EDUC+4, EDUC+5, EDUC+6
, IMM+2, IMM+3, IMM+4, IMM+5, URIN+4, URIN+5, URIN+6, URIN+7, URIN+8, URIN+9
, URIN+10, URIN+11, URIN+12, CREAT+2, CREAT+3, CREAT+4, CREAT+5, CREAT+6, CREAT+7, TOTAL+3
, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+9, LDL+3, LDL+4, LDL+5, LDL+6
, LDL+7, LDL+8, LDL+9, LDL+10, HDL+3, HDL+4, HDL+5, HDL+6, HDL+7, HDL+8
, HDL+9, HDL+10, TRIG+3, TRIG+4, TRIG+5, TRIG+6, TRIG+7, TRIG+8, TRIG+9, TRIG+10
, EKG+2, EKG+3, EKG+4, EKG+5, TBC+2, TBC+3, TBC+4, TBC+5, TBC+6, TBC+8
, SELF+2, SELF+3, SELF+4, SELF+5, SDM+2, SDM+3, SDM+4, SDM+5, HEADER1+2, HEADER1+4
, HEADER1+7, USR+1, LOC+1
>> V ASPIRIN+2*, ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ACE+2*, ACE+3, ACE+4, LIPID+2*, LIPID+3, LIPID+4
, EXAMS+2*, EXAMS+3, EXAMS+4, EXAMS+5, EXAMS+6, EDUC+2*, EDUC+3, EDUC+4, EDUC+5, EDUC+6
, IMM+2*, IMM+3, IMM+4, IMM+5, URIN+3*, URIN+4, URIN+5, URIN+6, URIN+7, URIN+8
, URIN+9, URIN+10, URIN+11, URIN+12, CREAT+2*, CREAT+3, CREAT+4, CREAT+5, CREAT+6, CREAT+7
, TOTAL+2*, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+9, LDL+2*, LDL+3
, LDL+4, LDL+5, LDL+6, LDL+7, LDL+8, LDL+9, LDL+10, HDL+2*, HDL+3, HDL+4
, HDL+5, HDL+6, HDL+7, HDL+8, HDL+9, HDL+10, TRIG+2*, TRIG+3, TRIG+4, TRIG+5
, TRIG+6, TRIG+7, TRIG+8, TRIG+9, TRIG+10, EKG+2*, EKG+3, EKG+4, EKG+5, TBC+2*
, TBC+3, TBC+4, TBC+5, TBC+6, TBC+8, SELF+2*, SELF+3, SELF+4, SELF+5, SDM+2*
, SDM+3, SDM+4, SDM+5
X CALC+5~, CALC+6*, CALC+7*, P+3~*, P+4, C~, C+4, HEADER1+5*, CTR~, CTR+1
X2 CALC+5~, CALC+6*, CALC+7*, C~, C+1*
X3 CALC+5~, CALC+6*, CALC+7*, C~, C+2*
Y HEADER+2, CTR~, CTR+1
Z URIN+8*, CALC+3~, CALC+8*, CALC+9
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All