Routine: BDMDB14

Package	Total	Call Graph
Diabetes Registry	4	($$CMSFDX,$$PLDMDOO)^BDMDB13 $$DI^BDMDB16 ^BDMDB1A $$DATE^BDMS9B1
VA Fileman	2	COMMA^%DTC ^DIR
Kernel	1	($$FMDIFF,$$FMTE)^XLFDT

Package	Total	Caller Graph
Diabetes Registry	3	BDMDB15 BDMDB1A BDMDB1P

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

Name	Field # of Occurrence
COMMA^%DTC	CALC+6, CALC+7, C+3
$$CMSFDX^BDMDB13	DURDM+3
$$PLDMDOO^BDMDB13	DURDM+5
$$DI^BDMDB16	DURDM+11
^BDMDB1A	TX+22
$$DATE^BDMS9B1	HEADER1+7
^DIR	EXIT+1, HEADER+3, EOP+5
$$FMDIFF^XLFDT	DURDM+13
$$FMTE^XLFDT	HEADER1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(BDMCUML(10),U),!?5,"Male",?49,$$C($P(BDMCUML(10),U,4)),?61,$$C($P(BDMCUML(10),U,2)),?73,$$P($P(BDMCUML(10),U,2),$P(BDMCUML(10),U,4)) Line Location: PRINT1+3
Function Call: WRITE	Prompt: !?5,"Female",?49,$$C($P(BDMCUML(10),U,3)),?61,$$C($P(BDMCUML(10),U,2)),?73,$$P($P(BDMCUML(10),U,2),$P(BDMCUML(10),U,3)) Line Location: PRINT1+4
Function Call: WRITE	Prompt: !!,"Age" Line Location: PRINT1+7
Function Call: WRITE	Prompt: !?5,"<15 years",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: PRINT1+9
Function Call: WRITE	Prompt: !?5,"15-44 years",?49,$$C($P(V,U,4)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,4)) Line Location: PRINT1+10
Function Call: WRITE	Prompt: !?5,"45-64 years",?49,$$C($P(V,U,5)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,5)) Line Location: PRINT1+11
Function Call: WRITE	Prompt: !?5,"65 years and older",?49,$$C($P(V,U,6)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,6)) Line Location: PRINT1+12
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: TYPE+3
Function Call: WRITE	Prompt: !?5,"Type 1",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: TYPE+4
Function Call: WRITE	Prompt: !?5,"Type 2",?49,$$C($P(V,U,4)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,4)) Line Location: TYPE+5
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: DMDUR+2
Function Call: WRITE	Prompt: !?5,"Less than 1 year",?49,$$C($P(V,U,6)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,6)) Line Location: DMDUR+3
Function Call: WRITE	Prompt: !?5,"Less than 10 years",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: DMDUR+4
Function Call: WRITE	Prompt: !?5,"10 years or more",?49,$$C($P(V,U,4)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,4)) Line Location: DMDUR+5
Function Call: WRITE	Prompt: !?5,"Diagnosis date not recorded",?49,$$C($P(V,U,5)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,5)) Line Location: DMDUR+6
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: WTCNTL+2
Function Call: WRITE	Prompt: !?5,"Normal (BMI<25.0)",?49,$$C($P(V,U,6)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,6)) Line Location: WTCNTL+3
Function Call: WRITE	Prompt: !?5,"Overweight (BMI 25.0-29.9)",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: WTCNTL+4
Function Call: WRITE	Prompt: !?5,"Obese (BMI 30.0 or above)",?49,$$C($P(V,U,4)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,4)) Line Location: WTCNTL+5
Function Call: WRITE	Prompt: !?5,"Height or Weight missing",?49,$$C($P(V,U,5)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,5)) Line Location: WTCNTL+6
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: BSC+2
Function Call: WRITE	Prompt: !?5,"HbA1c <7.0",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: BSC+3
Function Call: WRITE	Prompt: !?5,"HbA1c 7.0-7.9",?49,$$C($P(V,U,4)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,4)) Line Location: BSC+4
Function Call: WRITE	Prompt: !?5,"HbA1c 8.0-8.9",?49,$$C($P(V,U,5)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,5)) Line Location: BSC+5
Function Call: WRITE	Prompt: !?5,"HbA1c 9.0-9.9",?49,$$C($P(V,U,6)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,6)) Line Location: BSC+6
Function Call: WRITE	Prompt: !?5,"HbA1c 10.0-10.9",?49,$$C($P(V,U,7)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,7)) Line Location: BSC+7
Function Call: WRITE	Prompt: !?5,"HbA1c 11.0 or higher",?49,$$C($P(V,U,8)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,8)) Line Location: BSC+8
Function Call: WRITE	Prompt: !?5,"Not tested or no valid result",?49,$$C($P(V,U,9)),?61,$$C($P(V,U,2)),?73,$$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: !?5,"<140/<90",?49,$$C(T),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),T) Line Location: BPC+4
Function Call: WRITE	Prompt: !?5,"140/90 - <160/<95",?49,$$C($P(V,U,6)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,6)) Line Location: BPC+5
Function Call: WRITE	Prompt: !?5,"160/95 or higher",?49,$$C($P(V,U,7)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,7)) Line Location: BPC+6
Function Call: WRITE	Prompt: !?5,"BP category Undetermined",?49,$$C($P(V,U,8)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,8)) Line Location: BPC+7
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: TOB+2
Function Call: WRITE	Prompt: !?5,"Current Tobacco User",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: TOB+3
Function Call: WRITE	Prompt: !?9,"In current users, counseled? Yes",?49,$$C($P(V,U,4)),?61,$$C($P(V,U,3)),?73,$$P($P(V,U,3),$P(V,U,4)) Line Location: TOB+4
Function Call: WRITE	Prompt: !?9," No",?49,$$C($P(V,U,5)),?61,$$C($P(V,U,3)),?73,$$P($P(V,U,3),$P(V,U,5)) Line Location: TOB+5
Function Call: WRITE	Prompt: !?5,"Not a current tobacco user",?49,$$C($P(V,U,7)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,7)) Line Location: TOB+6
Function Call: WRITE	Prompt: !?5,"Tobacco use not documented",?49,$$C($P(V,U,8)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,8)) Line Location: TOB+7
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: TX+2
Function Call: WRITE	Prompt: !?5,"Diet and exercise alone",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: TX+3
Function Call: WRITE	Prompt: !?2,"Diabetes meds currently prescribed, alone or in combination" Line Location: TX+4
Function Call: WRITE	Prompt: !?5,"Insulin",?49,$$C($P(V,U,4)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,4)) Line Location: TX+5
Function Call: WRITE	Prompt: !?5,"Sulfonylurea (glyburide, glipizide,",!?10,"others)",?49,$$C($P(V,U,5)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,5)) Line Location: TX+6
Function Call: WRITE	Prompt: !?5,"Glinide (Prandin, Starlix)",?49,$$C($P(V,U,6)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,6)) Line Location: TX+7
Function Call: WRITE	Prompt: !?5,"Metformin (Glucophage, others)",?49,$$C($P(V,U,7)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,7)) Line Location: TX+8
Function Call: WRITE	Prompt: !?5,"Acarbose (Precose)/Miglitol (Glyset)",?49,$$C($P(V,U,8)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,8)) Line Location: TX+9
Function Call: WRITE	Prompt: !?5,"Proglitizone (Actos) or rosiglitazone",!?10,"(Avandia)",?49,$$C($P(V,U,9)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,9)) Line Location: TX+10
Function Call: WRITE	Prompt: !?5,"GLP-1 med (Byetta, Bydureon, Victoza)",?49,$$C($P(V,U,10)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,10)) Line Location: TX+11
Function Call: WRITE	Prompt: !?5,"DPP4 inhibitor (Januvia, Onglyza, ",!?10,"Tradjenta)",?49,$$C($P(V,U,11)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,11)) Line Location: TX+12
Function Call: WRITE	Prompt: !?5,"Amylin analog (Symlin)",?49,$$C($P(V,U,12)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,12)) Line Location: TX+13
Function Call: WRITE	Prompt: !?5,"Bromocriptine (Cycloset)",?49,$$C($P(V,U,14)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,14)) Line Location: TX+14
Function Call: WRITE	Prompt: !?5,"Colesevelam (Welchol)",?49,$$C($P(V,U,15)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,15)) Line Location: TX+15
Function Call: WRITE	Prompt: !?5,"SGLT-2 Inhibitor (Invokana)",?49,$$C($P(V,U,16)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,16)) Line Location: TX+16
Function Call: WRITE	Prompt: !!?2,"Number of diabetes meds currently prescribed" Line Location: TX+17
Function Call: WRITE	Prompt: !?5,"One med",?49,$$C($P(V,U,17)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,17)) Line Location: TX+18
Function Call: WRITE	Prompt: !?5,"Two meds",?49,$$C($P(V,U,18)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,18)) Line Location: TX+19
Function Call: WRITE	Prompt: !?5,"Three meds",?49,$$C($P(V,U,19)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,19)) Line Location: TX+20
Function Call: WRITE	Prompt: !?5,"Four or more meds",?49,$$C($P(V,U,20)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,20)) Line Location: TX+21
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: HEADER1+2
Function Call: WRITE	Prompt: !! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BDMPG,! Line Location: HEADER1+4
Function Call: WRITE	Prompt: !,$$CTR("IHS DIABETES CARE AND OUTCOMES AUDIT REPORT - RPMS AUDIT",80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR(BDMDHDR,80),! Line Location: HEADER1+8
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+10
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEADER1+11
Function Call: WRITE	Prompt: $TR($J("",80)," ","-"),! Line Location: HEADER1+12
Function Call: WRITE	Prompt: ?45,"# of ",?57,"#",?70,"Percent",! Line Location: HEADER1+13
Function Call: WRITE	Prompt: ?45,"Patients",?57,"Considered",! Line Location: HEADER1+14
Function Call: WRITE	Prompt: ?45,"(Numerator)",?57,"(Denominator)",! Line Location: HEADER1+15
Routine Call	DIR Line Location: EXIT+1 HEADER+3 EOP+5

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

Name	Line Occurrences
$$C	PRINT1+3, PRINT1+4, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+12, TYPE+4, TYPE+5, DMDUR+3, DMDUR+4 , DMDUR+5, DMDUR+6, WTCNTL+3, WTCNTL+4, WTCNTL+5, WTCNTL+6, BSC+3, BSC+4, BSC+5, BSC+6 , BSC+7, BSC+8, BSC+9, BPC+4, BPC+5, BPC+6, BPC+7, TOB+3, TOB+4, TOB+5 , TOB+6, TOB+7, TX+3, TX+5, TX+6, TX+7, TX+8, TX+9, TX+10, TX+11 , TX+12, TX+13, TX+14, TX+15, TX+16, TX+18, TX+19, TX+20, TX+21
$$CTR	HEADER1+5, HEADER1+8, HEADER1+10, HEADER1+11
$$P	PRINT1+3, PRINT1+4, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+12, TYPE+4, TYPE+5, DMDUR+3, DMDUR+4 , DMDUR+5, DMDUR+6, WTCNTL+3, WTCNTL+4, WTCNTL+5, WTCNTL+6, BSC+3, BSC+4, BSC+5, BSC+6 , BSC+7, BSC+8, BSC+9, BPC+4, BPC+5, BPC+6, BPC+7, TOB+3, TOB+4, TOB+5 , TOB+6, TOB+7, TX+3, TX+5, TX+6, TX+7, TX+8, TX+9, TX+10, TX+11 , TX+12, TX+13, TX+14, TX+15, TX+16, TX+18, TX+19, TX+20, TX+21
EXIT	PRINT+5
HEADER	PRINT+3, PRINT1+6, TYPE+1, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, TOB+1, TX+1
HEADER1	HEADER+1
PRINT1	PRINT+4

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDMADAT	HEADER1+7
>> BDMBDAT	HEADER1+7
>> BDMCUML	CUML+1
>> BDMCUML(10	PRINT1+3, PRINT1+4, HEADER1+11
>> BDMCUML(20	PRINT1+7
>> BDMCUML(25	TYPE+2
>> BDMCUML(30	DMDUR+2
>> BDMCUML(40	WTCNTL+2
>> BDMCUML(50	BSC+2
>> BDMCUML(60	BPC+2
>> BDMCUML(80	TOB+2
>> BDMCUML(90	TX+2
BDMDHDR	HEADER1+6~, HEADER1+7*, HEADER1+8
>> BDMDUZ2	HEADER1+10
>> BDMGUI	HEADER1+2, HEADER1+3
>> BDMIOSL	PRINT1+6, TYPE+1, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, TOB+1, TX+1
>> BDMNOGO	PRINT1+1, PRINT1+2
BDMPD	OB~, OW~
>> BDMPG	HEADER+1, HEADER1+1*, HEADER1+2, HEADER1+4
>> BDMQUIT	PRINT+2, PRINT1+6, TYPE+1, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, TOB+1, TX+1, HEADER+3
BMI	OB~, OB+1, OB+2, OW~, OW+1, OW+2, OW+3
D	D~, D+1, D+2, DI~, DI+1, DI+2, OB~, OW~, P~, P+1 , P+3
DATE	DURDM+1~, DURDM+2, DURDM+3, DURDM+4, DURDM+5*, DURDM+6
DFOUT	EOP+4!
DIR	EXIT+1!, HEADER+3!, EOP+3~
DIR("A"	EXIT+1*
DIR(0	EXIT+1, HEADER+3, EOP+5*
DIRUT	EXIT+1*, EOP+4!
DLOUT	EOP+4!
DT	HEADER1+4
DTOUT	HEADER+3, EOP+4!
DUOUT	EXIT+1, EOP+4!
DUZ	HEADER1+4, USR+1
DUZ(2	HEADER1+10, LOC+1
EARLY	DURDM+1~, DURDM+2, DURDM+4, DURDM+6, DURDM+7, DURDM+9, DURDM+10, DURDM+11*, DURDM+13
EDATE	DURDM~, DURDM+13
IO	EXIT+1, HEADER+3
IO("S"	EOP+2
IO(0	EXIT+1, HEADER+3
IOF	HEADER1+1
IOM	CTR+1
IOST	EXIT+1, HEADER+3, 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+3, DURDM+5
R	DURDM~, DURDM+3
>> T	BPC+3*, BPC+4
U	PRINT1+3, PRINT1+4, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+12, TYPE+3, TYPE+4, TYPE+5, DMDUR+2 , DMDUR+3, DMDUR+4, DMDUR+5, DMDUR+6, WTCNTL+2, WTCNTL+3, WTCNTL+4, WTCNTL+5, WTCNTL+6, 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, TOB+2, TOB+3, TOB+4, TOB+5, TOB+6, TOB+7, TX+2 , TX+3, TX+5, TX+6, TX+7, TX+8, TX+9, TX+10, TX+11, TX+12, TX+13 , TX+14, TX+15, TX+16, TX+18, TX+19, TX+20, TX+21, HEADER1+4, HEADER1+10, HEADER1+11 , USR+1, LOC+1
>> V	PRINT1+7, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+12, TYPE+2, TYPE+3, TYPE+4, TYPE+5, DMDUR+2* , DMDUR+3, DMDUR+4, DMDUR+5, DMDUR+6, WTCNTL+2, WTCNTL+3, WTCNTL+4, WTCNTL+5, WTCNTL+6, 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, TOB+2, TOB+3, TOB+4, TOB+5, TOB+6, TOB+7, TX+2* , TX+3, TX+5, TX+6, TX+7, TX+8, TX+9, TX+10, TX+11, TX+12, TX+13 , TX+14, TX+15, TX+16, TX+18, TX+19, TX+20, TX+21
X	CALC+5~, CALC+6, CALC+7, P+3~, P+4, C~, C+4, HEADER1+10, HEADER1+11*, 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+3, CTR~, CTR+1
Z	CALC+3~, CALC+8*, CALC+9
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Diabetes Registry

Routine: BDMDB14

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: