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

Package: Patient Care Component Reports

Routine: APCLD994


Information

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

Source Information

Source file <APCLD994.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 COMMA^%DTC  ^DIR  
IHS Patient 1 $$AGE^AUPNPAT  
Kernel 1 ($$FMDIFF,$$FMTE)^XLFDT  
Patient Care Component Reports 1 ($$CMSFDX,$$PLDMDOO)^APCLD997  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Patient Care Component Reports 2 APCLD995  APCLD99P  

Entry Points

Name Comments DBIA/ICR reference
BPC ;
CUML ;EP
EKG ;
PRINT ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
D(D) ;
TOB ;
EDUC ;
OB(APCLPD,BMI,D) ;EP obese
TX ;
WTCNTL ;
CTR(X,Y) ;EP - Center X in a field Y wide.
LDL ;
DURDM(P,R,EDATE,F) ;EP
TOTAL ;
BSC ;
PRINT1 ;
TRIG ;
IMM ;
HEADER ;EP
EXAMS ;
DMDUR ;
ASPIRIN ;
C(X,X2,X3) ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CREAT ;
SELF ;
P(D,N) ;return %
HEADER1 ;
EXIT ;
CALC(N,O) ;ENTRY POINT
SDM ;
TBC ;
OW(APCLPD,BMI,D) ;EP overweight

External References

Name Field # of Occurrence
COMMA^%DTC CALC+6, CALC+7, C+3
$$CMSFDX^APCLD997 DURDM+4
$$PLDMDOO^APCLD997 DURDM+6
$$AGE^AUPNPAT OB+4, OW+4
^DIR EXIT+1, HEADER+2, EOP+5
$$FMDIFF^XLFDT DURDM+7
$$FMTE^XLFDT HEADER1+2, HEADER1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(APCLCUML(10),U),!,?7,"Female",?53,$$C($P(APCLCUML(10),U,3)),?65,$$P($P(APCLCUML(10),U,2),$P(APCLCUML(10),U,3))
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: !,?7,"Male",?53,$$C($P(APCLCUML(10),U,4)),?65,$$P($P(APCLCUML(10),U,2),$P(APCLCUML(10),U,4))
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !!,"Age"
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: !?7,"<15 yrs",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: !?7,"15-44 yrs",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !?7,"45-64 yrs",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: !?7,"65 yrs and older",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: DMDUR+2
Function Call: WRITE
  • Prompt: !?7,"Less than 10 years",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: DMDUR+3
Function Call: WRITE
  • Prompt: !?7,"10 years or more",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: DMDUR+4
Function Call: WRITE
  • Prompt: !?7,"Diagnosis date not recorded",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: DMDUR+5
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: WTCNTL+2
Function Call: WRITE
  • Prompt: !?7,"Overweight (BMI>85%ile)",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: WTCNTL+3
Function Call: WRITE
  • Prompt: !?7,"Obese (BMI>95%ile)",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: WTCNTL+4
Function Call: WRITE
  • Prompt: !?7,"BMI could not be calculated",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: WTCNTL+5
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: BSC+2
Function Call: WRITE
  • Prompt: !?7,"HbA1c <7.0",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: BSC+3
Function Call: WRITE
  • Prompt: !?7,"HbA1c 7.0-7.9",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: BSC+4
Function Call: WRITE
  • Prompt: !?7,"HbA1c 8.0-8.9",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: BSC+5
Function Call: WRITE
  • Prompt: !?7,"HbA1c 9.0-9.9",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: BSC+6
Function Call: WRITE
  • Prompt: !?7,"HbA1c 10.0-10.9",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: BSC+7
Function Call: WRITE
  • Prompt: !?7,"HbA1c 11.0 or higher",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: BSC+8
Function Call: WRITE
  • Prompt: !?7,"Undocumented",?53,$$C($P(V,U,9)),?65,$$P($P(V,U,2),$P(V,U,9))
  • Line Location: BSC+9
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: BPC+2
Function Call: WRITE
  • Prompt: !?7,"Ideal BP Control (<120/<80)",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: BPC+3
Function Call: WRITE
  • Prompt: !?7,"Target (120/80-<130/<85)",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: BPC+4
Function Call: WRITE
  • Prompt: !?7,"Adequate (130/85-<140/,90)",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: BPC+5
Function Call: WRITE
  • Prompt: !?7,"Inadequate (140/90-<160/<95)",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: BPC+6
Function Call: WRITE
  • Prompt: !?7,"Markedly Poor (160/95 or higher)",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: BPC+7
Function Call: WRITE
  • Prompt: !?7,"BP Control Undetermined",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: BPC+8
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",?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,"Date of DM DX Unknown",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: TBC+7
Function Call: WRITE
  • Prompt: !?7,"PPD status unknown",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: TBC+8
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: TOB+2
Function Call: WRITE
  • Prompt: !?7,"Uses Tobacco",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: TOB+3
Function Call: WRITE
  • Prompt: !?9,"Counseled - Yes",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,3),$P(V,U,4))
  • Line Location: TOB+4
Function Call: WRITE
  • Prompt: !?9,"Counseled - No",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,3),$P(V,U,5))
  • Line Location: TOB+5
Function Call: WRITE
  • Prompt: !?7,"Does not Use tobacco",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: TOB+6
Function Call: WRITE
  • Prompt: !?7,"Used tobacco in past",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: TOB+7
Function Call: WRITE
  • Prompt: !?7,"Tobacco use not documented",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: TOB+8
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: TX+2
Function Call: WRITE
  • Prompt: !?7,"Diet and Exercise Alone",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: TX+3
Function Call: WRITE
  • Prompt: !?7,"Insulin",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: TX+4
Function Call: WRITE
  • Prompt: !?7,"Oral Med (monotherapy)"
  • Line Location: TX+5
Function Call: WRITE
  • Prompt: !?10,"Sulfonylurea",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: TX+6
Function Call: WRITE
  • Prompt: !?10,"Metformin",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: TX+7
Function Call: WRITE
  • Prompt: !?10,"Acarbose",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: TX+8
Function Call: WRITE
  • Prompt: !?10,"Glitazone",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: TX+9
Function Call: WRITE
  • Prompt: !?7,"Combination of Oral Meds",?53,$$C($P(V,U,9)),?65,$$P($P(V,U,2),$P(V,U,9))
  • Line Location: TX+10
Function Call: WRITE
  • Prompt: !?7,"Combination of Oral Meds+Insulin",?53,$$C($P(V,U,10)),?65,$$P($P(V,U,2),$P(V,U,10))
  • Line Location: TX+11
Function Call: WRITE
  • Prompt: !?10,"Refused or Undetermined",?53,$$C($P(V,U,11)),?65,$$P($P(V,U,2),$P(V,U,11))
  • Line Location: TX+12
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),?68,"(% 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)),?70,"(",$$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))
  • 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))
  • Line Location: EXAMS+5
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • 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))
  • 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))
  • 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))
  • Line Location: EDUC+5
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • 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))
  • 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))
  • Line Location: IMM+4
Function Call: WRITE
  • Prompt: !?7,"Tetanus/Diptheria (1 10 years)",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: IMM+5
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: CREAT+2
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+3
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+4
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+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: !!,$P(V,U)
  • Line Location: TOTAL+2
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+3
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+4
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+5
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+6
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+7
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: LDL+2
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+3
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+4
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+5
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+6
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+7
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+8
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: TRIG+2
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+3
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+4
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+5
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+6
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+7
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+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)
^APCLBMI - [#9001003.9] OB+7, OB+8, OW+7, OW+8
^APCLBMI("H" OB+5, OW+5
^DIC(4 - [#4] HEADER1+4, LOC+1
^DPT - [#2] OB+2, OW+2
^VA(200 - [#200] HEADER1+2, USR+1

Label References

Name Line Occurrences
$$C PRINT1+1, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, DMDUR+3, DMDUR+4, DMDUR+5, WTCNTL+3
, WTCNTL+4, WTCNTL+5, BSC+3, BSC+4, BSC+5, BSC+6, BSC+7, BSC+8, BSC+9, BPC+3
, BPC+4, BPC+5, BPC+6, BPC+7, BPC+8, TBC+3, TBC+4, TBC+5, TBC+6, TBC+7
, TBC+8, TOB+3, TOB+4, TOB+5, TOB+6, TOB+7, TOB+8, TX+3, TX+4, TX+6
, TX+7, TX+8, TX+9, TX+10, TX+11, TX+12, ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, EXAMS+3
, EXAMS+4, EXAMS+5, EDUC+3, EDUC+4, EDUC+5, IMM+3, IMM+4, IMM+5, EKG+3, EKG+4
, EKG+5, CREAT+3, CREAT+4, CREAT+5, CREAT+6, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7
, LDL+3, LDL+4, LDL+5, LDL+6, LDL+7, LDL+8, TRIG+3, TRIG+4, TRIG+5, TRIG+6
, TRIG+7, TRIG+8, SELF+3, SELF+4, SELF+5, SDM+3, SDM+4, SDM+5
$$CTR HEADER1+3, HEADER1+4, HEADER1+5
$$D DURDM+5
$$P PRINT1+1, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, DMDUR+3, DMDUR+4, DMDUR+5, WTCNTL+3
, WTCNTL+4, WTCNTL+5, BSC+3, BSC+4, BSC+5, BSC+6, BSC+7, BSC+8, BSC+9, BPC+3
, BPC+4, BPC+5, BPC+6, BPC+7, BPC+8, TBC+3, TBC+4, TBC+5, TBC+6, TBC+7
, TBC+8, TOB+3, TOB+4, TOB+5, TOB+6, TOB+7, TOB+8, TX+3, TX+4, TX+6
, TX+7, TX+8, TX+9, TX+10, TX+11, TX+12, ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, EXAMS+3
, EXAMS+4, EXAMS+5, EDUC+3, EDUC+4, EDUC+5, IMM+3, IMM+4, IMM+5, EKG+3, EKG+4
, EKG+5, CREAT+3, CREAT+4, CREAT+5, CREAT+6, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7
, LDL+3, LDL+4, LDL+5, LDL+6, LDL+7, LDL+8, TRIG+3, TRIG+4, TRIG+5, TRIG+6
, TRIG+7, TRIG+8, SELF+3, SELF+4, SELF+5, SDM+3, SDM+4, SDM+5
EXIT PRINT+5
HEADER PRINT+3, PRINT1+3, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, TBC+1, TOB+1, TX+1, ASPIRIN+1
, EXAMS+1, EDUC+1, IMM+1, EKG+1, CREAT+1, TOTAL+1, LDL+1, TRIG+1, SELF+1, SDM+1
HEADER1 HEADER+1
PRINT1 PRINT+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
A OB+4~*, OB+5, OW+4~*, OW+5
>> APCLADAT HEADER1+5
>> APCLBDAT HEADER1+5
>> APCLCUML CUML+1
>> APCLCUML(10 PRINT1+1, PRINT1+2, HEADER1+7
>> APCLCUML(100 ASPIRIN+2
>> APCLCUML(120 EXAMS+2
>> APCLCUML(130 EDUC+2
>> APCLCUML(140 IMM+2
>> APCLCUML(150 EKG+2
>> APCLCUML(170 CREAT+2
>> APCLCUML(180 TOTAL+2
>> APCLCUML(190 LDL+2
>> APCLCUML(20 PRINT1+4
>> APCLCUML(200 TRIG+2
>> APCLCUML(210 SELF+2
>> APCLCUML(220 SDM+2
>> APCLCUML(30 DMDUR+2
>> APCLCUML(40 WTCNTL+2
>> APCLCUML(50 BSC+2
>> APCLCUML(60 BPC+2
>> APCLCUML(70 TBC+2
>> APCLCUML(80 TOB+2
>> APCLCUML(90 TX+2
APCLPD OB~, OB+2, OB+4, OW~, OW+2, OW+4
>> APCLPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
>> APCLQUIT PRINT+2*, PRINT1+3, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, TBC+1, TOB+1, TX+1, ASPIRIN+1
, EXAMS+1, EDUC+1, IMM+1, EKG+1, CREAT+1, TOTAL+1, LDL+1, TRIG+1, SELF+1, SDM+1
, HEADER+2*
BMI OB~, OB+1, OB+7, OB+8, OW~, OW+1, OW+7, OW+8
D D~, D+1, D+2, OB~, OB+4, OW~, OW+4, P~, P+1, P+3
DATE DURDM+2~, DURDM+3*, DURDM+4*, DURDM+5, DURDM+6*, DURDM+7
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
EDATE DURDM~, DURDM+7
F DURDM~, DURDM+1*, DURDM+5
IO EXIT+1, HEADER+2
IO("S" EOP+2
IO(0 EXIT+1, HEADER+2
IOF HEADER1+1
IOM CTR+1
IOSL PRINT1+3, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, TBC+1, TOB+1, TX+1, ASPIRIN+1, EXAMS+1
, EDUC+1, IMM+1, EKG+1, CREAT+1, TOTAL+1, LDL+1, TRIG+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
P DURDM~, DURDM+4, DURDM+6
R DURDM~, DURDM+4, OB+5~*, OB+6, OB+7, OB+8, OW+5~*, OW+6, OW+7, OW+8
S OB+2~*, OB+3, OB+5, OW+2~*, OW+3, OW+5
U OB+2, OB+7, OB+8, OW+2, OW+7, OW+8, PRINT1+1, PRINT1+2, PRINT1+5, PRINT1+6
, PRINT1+7, PRINT1+8, DMDUR+2, DMDUR+3, DMDUR+4, DMDUR+5, WTCNTL+2, WTCNTL+3, WTCNTL+4, WTCNTL+5
, BSC+2, BSC+3, BSC+4, BSC+5, BSC+6, BSC+7, BSC+8, BSC+9, BPC+2, BPC+3
, BPC+4, BPC+5, BPC+6, BPC+7, BPC+8, TBC+2, TBC+3, TBC+4, TBC+5, TBC+6
, TBC+7, TBC+8, TOB+2, TOB+3, TOB+4, TOB+5, TOB+6, TOB+7, TOB+8, TX+2
, TX+3, TX+4, TX+6, TX+7, TX+8, TX+9, TX+10, TX+11, TX+12, ASPIRIN+2
, ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, EXAMS+2, EXAMS+3, EXAMS+4, EXAMS+5, EDUC+2, EDUC+3, EDUC+4
, EDUC+5, IMM+2, IMM+3, IMM+4, IMM+5, EKG+2, EKG+3, EKG+4, EKG+5, CREAT+2
, CREAT+3, CREAT+4, CREAT+5, CREAT+6, TOTAL+2, TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6, TOTAL+7
, LDL+2, LDL+3, LDL+4, LDL+5, LDL+6, LDL+7, LDL+8, TRIG+2, TRIG+3, TRIG+4
, TRIG+5, TRIG+6, TRIG+7, TRIG+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 PRINT1+4*, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, DMDUR+2*, DMDUR+3, DMDUR+4, DMDUR+5, WTCNTL+2*
, WTCNTL+3, WTCNTL+4, WTCNTL+5, BSC+2*, BSC+3, BSC+4, BSC+5, BSC+6, BSC+7, BSC+8
, BSC+9, BPC+2*, BPC+3, BPC+4, BPC+5, BPC+6, BPC+7, BPC+8, TBC+2*, TBC+3
, TBC+4, TBC+5, TBC+6, TBC+7, TBC+8, TOB+2*, TOB+3, TOB+4, TOB+5, TOB+6
, TOB+7, TOB+8, TX+2*, TX+3, TX+4, TX+6, TX+7, TX+8, TX+9, TX+10
, TX+11, TX+12, ASPIRIN+2*, ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, EXAMS+2*, EXAMS+3, EXAMS+4, EXAMS+5
, EDUC+2*, EDUC+3, EDUC+4, EDUC+5, IMM+2*, IMM+3, IMM+4, IMM+5, EKG+2*, EKG+3
, EKG+4, EKG+5, CREAT+2*, CREAT+3, CREAT+4, CREAT+5, CREAT+6, TOTAL+2*, TOTAL+3, TOTAL+4
, TOTAL+5, TOTAL+6, TOTAL+7, LDL+2*, LDL+3, LDL+4, LDL+5, LDL+6, LDL+7, LDL+8
, TRIG+2*, TRIG+3, TRIG+4, TRIG+5, TRIG+6, TRIG+7, TRIG+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 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