Routine: APCLD51A

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

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLD514

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+2, HEADER1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: ASPIRIN+2
Function Call: WRITE	Prompt: !?7,"Aspirin",?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,"Other Anti-platelet Rx",?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,"Both ASA & Other Rx",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5)) Line Location: ASPIRIN+5
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",?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: !!,$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: 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: 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: !!,$P(V,U) Line Location: DEP+8
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+9
Function Call: WRITE	Prompt: !?7,"No",?53,$$C(Z),?65,$$P($P(V,U,2),Z) Line Location: DEP+11
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: SDM+3
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+4
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+5
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+6
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

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

Name	Line Occurrences
$$C	ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, ACE+3, ACE+4, LIPID+3, LIPID+4, LIPID+6 , LIPID+7, LIPID+8, EXAMS+3, EXAMS+4, EXAMS+5, 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, DEP+3, DEP+5, DEP+9, DEP+11, SDM+4, SDM+5 , SDM+6
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5
$$P	ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, ACE+3, ACE+4, LIPID+3, LIPID+4, LIPID+6 , LIPID+7, LIPID+8, EXAMS+3, EXAMS+4, EXAMS+5, 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, DEP+3, DEP+5, DEP+9, DEP+11, SDM+4, SDM+5, SDM+6
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, DEP+1, DEP+7, SDM+2
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+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+3
>> APCLCUML(300	DEP+2
>> APCLCUML(301	DEP+8
>> 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, DEP+1, DEP+7, SDM+2, 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+2
>> DTOUT	HEADER+2
>> DUOUT	EXIT+1
DUZ	HEADER1+2, USR+1
DUZ(2	HEADER1+4, LOC+1
IO	EXIT+1, HEADER+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, DEP+1, DEP+7, SDM+2
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+4, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, ACE+2, ACE+3, ACE+4, LIPID+2 , LIPID+3, LIPID+4, LIPID+5, LIPID+6, LIPID+7, LIPID+8, EXAMS+2, EXAMS+3, EXAMS+4, EXAMS+5 , 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, DEP+2 , DEP+3, DEP+4, DEP+5, DEP+8, DEP+9, DEP+10, DEP+11, SDM+3, SDM+4, SDM+5 , SDM+6, HEADER1+2, HEADER1+4, HEADER1+7, USR+1, LOC+1
>> V	ASPIRIN+2, ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, ACE+2, ACE+3, ACE+4, LIPID+2* , LIPID+3, LIPID+4, LIPID+5, LIPID+6, LIPID+7, LIPID+8, EXAMS+2, EXAMS+3, EXAMS+4, EXAMS+5 , 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, DEP+2, DEP+3, DEP+4, DEP+5, DEP+8, DEP+9 , DEP+10, DEP+11, SDM+3, SDM+4, SDM+5, SDM+6
X	CALC+4~, CALC+5, CALC+6, P+3~, P+4, C~, C+4, HEADER1+5, 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+10, DEP+11, CALC+2~, CALC+7, CALC+8

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLD51A

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: