Routine: BDMPC1A

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

Package	Total	Caller Graph
Diabetes Registry	1	BDMPC14

Name	Comments	DBIA/ICR reference
LOC()	;EP - Return location name from file 4 based on DUZ(2).
TOTAL	;
HDL	;
LIPID	;
ACE	;
EKG	;
CTR(X,Y)	;EP - Center X in a field Y wide.
TRIG	;
P(D,N)	;return %
FAST	;
LDL	;
G75	;
HEADER	;EP
USR()	;EP -
HEADER1	;
EXIT	;
C(X,X2,X3)	;
CALC(N,O)	;ENTRY POINT
EDUC	;
ASPIRIN	;

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",?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: !!,$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: 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: !!,$P(V,U),?53,$$C(T),?65,$$P($P(V,U,2),T) Line Location: FAST+4
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: FAST+5
Function Call: WRITE	Prompt: !!,$P(V,U),?53,$$C(T),?65,$$P($P(V,U,2),T) Line Location: G75+4
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: G75+5
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: ! 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 ",BDMPG,! 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,$S($G(BDMDUZ2):BDMDUZ2,1: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(BDMCUML(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+4, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, LIPID+3, LIPID+4, LIPID+6, LIPID+7, LIPID+8 , EDUC+3, EDUC+4, FAST+4, FAST+5, G75+4, G75+5, 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
$$CTR	HEADER1+4, HEADER1+5, HEADER1+6
$$P	ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, LIPID+3, LIPID+4, LIPID+6, LIPID+7, LIPID+8 , EDUC+3, EDUC+4, FAST+4, FAST+5, G75+4, G75+5, 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
HEADER	ASPIRIN+1, ACE+1, LIPID+1, EDUC+1, FAST+1, G75+1, TOTAL+1, LDL+1, HDL+1, TRIG+1 , EKG+1
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
>> BDMADAT	HEADER1+6
>> BDMBDAT	HEADER1+6
>> BDMCUML(10	HEADER1+8
>> BDMCUML(100	ASPIRIN+2
>> BDMCUML(110	ACE+2
>> BDMCUML(115	LIPID+2
>> BDMCUML(130	EDUC+2
>> BDMCUML(150	EKG+2
>> BDMCUML(180	TOTAL+2
>> BDMCUML(190	LDL+2
>> BDMCUML(195	HDL+2
>> BDMCUML(200	TRIG+2
>> BDMCUML(600	FAST+2
>> BDMCUML(610	G75+2
>> BDMDUZ2	HEADER1+5
>> BDMGUI	HEADER1+2
>> BDMIOSL	ASPIRIN+1, ACE+1, LIPID+1, EDUC+1, FAST+1, G75+1, TOTAL+1, LDL+1, HDL+1, TRIG+1 , EKG+1
>> BDMPG	HEADER+1, HEADER1+1*, HEADER1+3
>> BDMQUIT	ASPIRIN+1, ACE+1, LIPID+1, EDUC+1, FAST+1, G75+1, TOTAL+1, LDL+1, HDL+1, TRIG+1 , EKG+1, 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	FAST+3, FAST+4, G75+3, G75+4, 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, LIPID+2, LIPID+3, LIPID+4 , LIPID+5, LIPID+6, LIPID+7, LIPID+8, EDUC+2, EDUC+3, EDUC+4, FAST+3, FAST+4, FAST+5 , G75+3, G75+4, G75+5, 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, HEADER1+3, HEADER1+5 , HEADER1+8, USR+1, LOC+1
>> V	ASPIRIN+2, ASPIRIN+3, ASPIRIN+4, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, ACE+2, LIPID+2, LIPID+3, LIPID+4 , LIPID+5, LIPID+6, LIPID+7, LIPID+8, EDUC+2, EDUC+3, EDUC+4, FAST+2, FAST+3, FAST+4 , FAST+5, G75+2, G75+3, G75+4, G75+5, 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
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	CALC+2~, CALC+7*, CALC+8

Customize PDF page

Package: Diabetes Registry

Routine: BDMPC1A

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: