Routine: APCLD61A

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

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLD614

Name	Comments	DBIA/ICR reference
ACE	;
EKG	;
USR()	;EP -
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	;
DEP	;
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	;

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: ASPIRIN+2
Function Call: WRITE	Prompt: !?7,"Aspirin/Antiplatelet Rx",?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,"None",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6)) Line Location: ASPIRIN+6
Function Call: WRITE	Prompt: !?7,"Refused or Adverse Rxn",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7)) Line Location: ASPIRIN+7
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 > 100",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,5),$P(V,U,6)) Line Location: LIPID+4
Function Call: WRITE	Prompt: !!?7,"Of the ",$P(V,U,7)," pts taking a lipid agent:" Line Location: LIPID+5
Function Call: WRITE	Prompt: !?9,"Statin drug prescribed:",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,7),$P(V,U,8)) Line Location: LIPID+6
Function Call: WRITE	Prompt: !?9,"Non-statin drug prescribed:",?53,$$C($P(V,U,9)),?65,$$P($P(V,U,7),$P(V,U,9)) Line Location: LIPID+7
Function Call: WRITE	Prompt: !?9,"Statin AND non-statin prescribed:",?53,$$C($P(V,U,10)),?65,$$P($P(V,U,7),$P(V,U,10)) Line Location: LIPID+8
Function Call: WRITE	Prompt: !!?7,"Refused or Adverse Reaction: ",?53,$$C($P(V,U,11)) Line Location: LIPID+9
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: !!,$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",?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: !?7,"PPD -, date of Dx or PPD date unknown",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8)) Line Location: TBC+9
Function Call: WRITE	Prompt: !?7,"PPD Refused",?53,$$C($P(V,U,9)),?65,$$P($P(V,U,2),$P(V,U,9)) Line Location: TBC+10
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) Line Location: SELF+2
Function Call: WRITE	Prompt: !!,"DEPRESSION identified as an active dx" Line Location: DEP+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: DEP+3
Function Call: WRITE	Prompt: !?7,"No",?53,$$C(Z),?65,$$P($P(V,U,2),Z) Line Location: DEP+5
Function Call: WRITE	Prompt: !!?7,"Of the ",Z," pts without an active dx" Line Location: DEP+9
Function Call: WRITE	Prompt: !?7,"of depression, proportion screened" Line Location: DEP+10
Function Call: WRITE	Prompt: !?7,"for depression in past year:" Line Location: DEP+11
Function Call: WRITE	Prompt: !?13,"Screened",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3)) Line Location: DEP+12
Function Call: WRITE	Prompt: !?13,"Not Screened",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4)) Line Location: DEP+13
Function Call: WRITE	Prompt: !?13,"Refused Screening",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)) Line Location: DEP+14
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: SDM+3
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: HEADER1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !,$$CTR("* HEALTH STATUS OF DIABETIC PATIENTS *",80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U)),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+7
Function Call: WRITE	Prompt: !!,$P(APCLCUML(10),U,2)," patients were reviewed" Line Location: HEADER1+8
Function Call: WRITE	Prompt: ?55," n",?63,"Percent" Line Location: HEADER1+9
Routine Call	DIR Line Location: EXIT+1 HEADER+2

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

Name	Line Occurrences
$$C	ASPIRIN+3, ASPIRIN+6, ASPIRIN+7, ACE+3, ACE+4, LIPID+3, LIPID+4, LIPID+6, LIPID+7, LIPID+8 , LIPID+9, EXAMS+3, EXAMS+4, EXAMS+5, 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, TBC+9, TBC+10, EDUC+3, EDUC+4 , EDUC+5, EDUC+6, DEP+3, DEP+5, DEP+12, DEP+13, DEP+14
$$CTR	HEADER1+4, HEADER1+5, HEADER1+6
$$P	ASPIRIN+3, ASPIRIN+6, ASPIRIN+7, ACE+3, ACE+4, LIPID+3, LIPID+4, LIPID+6, LIPID+7, LIPID+8 , EXAMS+3, EXAMS+4, EXAMS+5, 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, TBC+9, TBC+10, EDUC+3, EDUC+4, EDUC+5, EDUC+6 , DEP+3, DEP+5, DEP+12, DEP+13, DEP+14
HEADER	ASPIRIN+1, ACE+1, LIPID+1, EXAMS+1, IMM+1, URIN+1, CREAT+1, TOTAL+1, LDL+1, HDL+1 , TRIG+1, EKG+1, TBC+1, EDUC+1, DEP+1, DEP+7
HEADER1	HEADER+1

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLADAT	HEADER1+6
>> APCLBDAT	HEADER1+6
>> APCLCUML(10	HEADER1+8
>> 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(300	DEP+2
>> APCLCUML(301	DEP+8
>> APCLCUML(70	TBC+2
>> APCLGUI	HEADER1+2
>> APCLIOSL	ASPIRIN+1, ACE+1, LIPID+1, EXAMS+1, IMM+1, URIN+1, CREAT+1, TOTAL+1, LDL+1, HDL+1 , TRIG+1, EKG+1, TBC+1, EDUC+1, DEP+1, DEP+7
>> APCLPG	HEADER+1, HEADER1+1*, HEADER1+3
>> APCLQUIT	ASPIRIN+1, ACE+1, LIPID+1, EXAMS+1, IMM+1, URIN+1, CREAT+1, TOTAL+1, LDL+1, HDL+1 , TRIG+1, EKG+1, TBC+1, EDUC+1, DEP+1, DEP+7, HEADER+2*
D	P~, P+1, P+3
DIR	EXIT+1!, HEADER+2!
DIR("A"	EXIT+1*
DIR(0	EXIT+1, HEADER+2
>> DIRUT	EXIT+1*
DT	HEADER1+3
>> DTOUT	HEADER+2
>> DUOUT	EXIT+1
DUZ	HEADER1+3, USR+1
DUZ(2	HEADER1+5, LOC+1
IO	EXIT+1, HEADER+2
IO(0	EXIT+1, HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOST	EXIT+1, HEADER+2
N	CALC~, CALC+3, CALC+5*, CALC+7, P~, P+2, P+3
O	CALC~, CALC+3, CALC+6*, CALC+7
>> 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+6, ASPIRIN+7, ACE+2, ACE+3, ACE+4, LIPID+2, LIPID+3, LIPID+4 , LIPID+5, LIPID+6, LIPID+7, LIPID+8, LIPID+9, EXAMS+2, EXAMS+3, EXAMS+4, EXAMS+5, 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, TBC+9 , TBC+10, EDUC+2, EDUC+3, EDUC+4, EDUC+5, EDUC+6, DEP+3, DEP+4, DEP+5, DEP+12 , DEP+13, DEP+14, HEADER1+3, HEADER1+5, HEADER1+8, USR+1, LOC+1
>> V	ASPIRIN+2, ASPIRIN+3, ASPIRIN+6, ASPIRIN+7, ACE+2, ACE+3, ACE+4, LIPID+2, LIPID+3, LIPID+4 , LIPID+5, LIPID+6, LIPID+7, LIPID+8, LIPID+9, EXAMS+2, EXAMS+3, EXAMS+4, EXAMS+5, 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, TBC+9, TBC+10, EDUC+2, EDUC+3, EDUC+4, EDUC+5 , EDUC+6, DEP+2, DEP+3, DEP+4, DEP+5, DEP+8, DEP+12, DEP+13, DEP+14
X	CALC+4~, CALC+5, CALC+6, P+3~, P+4, C~, C+4, HEADER1+6, CTR~, CTR+1
X2	CALC+4~, CALC+5, CALC+6, C~, C+1*
X3	CALC+4~, CALC+5, CALC+6, C~, C+2*
Y	HEADER+2, CTR~, CTR+1
Z	URIN+8, DEP+4, DEP+5, DEP+9, CALC+2~, CALC+7*, CALC+8

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLD61A

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: