Routine: BDMDG14

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

Package	Total	Caller Graph
Diabetes Registry	4	BDMDG15 BDMDG1A BDMDG1P BDMPG15

Name	Comments	DBIA/ICR reference
BPC	;
CUML	;EP
RETIN	;
NUMMEDS	;
PRINT	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
D(D)	;EP
TOB	;
STATIN	;
CVD	;
TOBSCR	;
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	;
ENDS	;
SOB(BDMPD,BMI,D)	;EP severly obese
HEADER	;EP
LEAMP	;
C(X,X2,X3)	;
DMDUR	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HTN	;
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^BDMDC13	DURDM+3
$$PLDMDOO^BDMDC13	DURDM+5
$$DI^BDMDC16	DURDM+11
^BDMDG1A	LEAMP+5
$$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),!?3,"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: !?3,"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: !?3,"<20 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: !?3,"20-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: !?3,"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: !?3,">=65 years",?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: !?3,"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: !?3,"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: !?3,"<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: !?3,"<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: !?3,">=10 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: DMDUR+5
Function Call: WRITE	Prompt: !?3,"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: !?3,"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: !?3,"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: !?3,"Obese (BMI >=30.0)",?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: !?3,"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: !?3,"----------------------------------" Line Location: WTCNTL+7
Function Call: WRITE	Prompt: !?3,"Severely obese (BMI >=40.0)",?49,$$C($P(V,U,7)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,7)) Line Location: WTCNTL+8
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: BSC+2
Function Call: WRITE	Prompt: !?3,"A1C <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: !?3,"A1C 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: !?3,"A1C 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: !?3,"A1C 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: !?3,"A1C 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: !?3,"A1C >=11.0",?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: !!?3,"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: !?3,"----------------------------------" Line Location: BSC+10
Function Call: WRITE	Prompt: !?3,"A1C <8.0",?49,$$C($P(V,U,11)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,11)) Line Location: BSC+11
Function Call: WRITE	Prompt: !?3,"A1C >9.0",?49,$$C($P(V,U,12)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,12)) Line Location: BSC+12
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: BPC+2
Function Call: WRITE	Prompt: !?3,"<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: !?3,"140/90 - <160/<100",?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: !?3,"160/100 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: !?3,"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: !?3,"----------------------------------" Line Location: BPC+8
Function Call: WRITE	Prompt: !?3,"If age >=60 years, <150/<90",?49,$$C($P(V,U,10)),?61,$$C($P(V,U,9)),?73,$$P($P(V,U,9),$P(V,U,10)) Line Location: BPC+9
Function Call: WRITE	Prompt: !!,"Hypertension" Line Location: HTN+3
Function Call: WRITE	Prompt: !?3,"Diagnosed ever",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: HTN+4
Function Call: WRITE	Prompt: !?6,"Diagnosed hypertension and mean BP <140/<90",?49,$$C($P(V,U,4)),?61,$$C($P(V,U,3)),?73,$$P($P(V,U,3),$P(V,U,4)) Line Location: HTN+5
Function Call: WRITE	Prompt: !?6,"Diagnosed hypertension and ACE inhibitor",?49,$$C($P(V,U,5)),?61,$$C($P(V,U,3)),?73,$$P($P(V,U,3),$P(V,U,5)) Line Location: HTN+6
Function Call: WRITE	Prompt: !?9,"or ARB prescribed." Line Location: HTN+7
Function Call: WRITE	Prompt: !!,"Tobacco and Nicotine Use",!?3,$P(V,U) Line Location: TOBSCR+2
Function Call: WRITE	Prompt: !?6,"Screened",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: TOBSCR+3
Function Call: WRITE	Prompt: !?6,"Not screened",?49,$$C($P(V,U,4)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,4)) Line Location: TOBSCR+4
Function Call: WRITE	Prompt: !!?3,$P(V,U) Line Location: TOB+2
Function Call: WRITE	Prompt: !?6,"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?" Line Location: TOB+4
Function Call: WRITE	Prompt: !?12,"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+5
Function Call: WRITE	Prompt: !?12,"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+6
Function Call: WRITE	Prompt: !?6,"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+7
Function Call: WRITE	Prompt: !?6,"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+8
Function Call: WRITE	Prompt: !!,"Electronic nicotine delivery system (ENDS) " Line Location: ENDS+3
Function Call: WRITE	Prompt: !,"use screening during Audit period" Line Location: ENDS+4
Function Call: WRITE	Prompt: !?6,"Screened",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: ENDS+5
Function Call: WRITE	Prompt: !?6,"Not screened",?49,$$C($P(V,U,4)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,4)) Line Location: ENDS+6
Function Call: WRITE	Prompt: !,"ENDS use status" Line Location: ENDS+7
Function Call: WRITE	Prompt: !?6,"Current ENDS user",?49,$$C($P(V,U,5)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,5)) Line Location: ENDS+8
Function Call: WRITE	Prompt: !?6,"Not a current ENDS user",?49,$$C($P(V,U,6)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,6)) Line Location: ENDS+9
Function Call: WRITE	Prompt: !?6,"ENDS use not documented",?49,$$C($P(V,U,7)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,7)) Line Location: ENDS+10
Function Call: WRITE	Prompt: !,"----------------------------------" Line Location: ENDS+11
Function Call: WRITE	Prompt: !,"Current user of both tobacco and ENDS",?49,$$C($P(V,U,8)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,8)) Line Location: ENDS+12
Function Call: WRITE	Prompt: !,"Current user of tobacco and/or ENDS",?49,$$C($P(V,U,9)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,9)) Line Location: ENDS+13
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: TX+2
Function Call: WRITE	Prompt: !!?3,"Number of diabetes meds currently prescribed" Line Location: NUMMEDS+2
Function Call: WRITE	Prompt: !?6,"None",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: NUMMEDS+3
Function Call: WRITE	Prompt: !?6,"One medication",?49,$$C($P(V,U,17)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,17)) Line Location: NUMMEDS+4
Function Call: WRITE	Prompt: !?6,"Two medications",?49,$$C($P(V,U,18)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,18)) Line Location: NUMMEDS+5
Function Call: WRITE	Prompt: !?6,"Three medications",?49,$$C($P(V,U,19)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,19)) Line Location: NUMMEDS+6
Function Call: WRITE	Prompt: !?6,"Four or more medications",?49,$$C($P(V,U,20)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,20)) Line Location: NUMMEDS+7
Function Call: WRITE	Prompt: !!?3,"Diabetes meds currently prescribed, alone or in combination" Line Location: NUMMEDS+9
Function Call: WRITE	Prompt: !!?6,"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: NUMMEDS+10
Function Call: WRITE	Prompt: !!?6,"Metformin [Glucophage, 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: NUMMEDS+11
Function Call: WRITE	Prompt: !!?6,"Sulfonylurea [glyburide, glipizide, ",?49,$$C($P(V,U,6)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,6)),!?6,"others]" Line Location: NUMMEDS+12
Function Call: WRITE	Prompt: !!?6,"DPP4 inhibitor [Sitagliptin (Januvia),",?49,$$C($P(V,U,7)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,7)),!?6,"Saxagliptin (Onglyza), Linagliptin ",!?6,"(Tradjenta), Alogliptin (Nesina)]" Line Location: NUMMEDS+13
Function Call: WRITE	Prompt: !!?6,"GLP-1 agonist [Exenatide (Byetta, ",?49,$$C($P(V,U,8)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,8)),!?6,"Bydureon), Liraglutide (Victoza), Albiglutide",!?6,"(Tanzeum), Dulaglutide (Trulicity), " Line Location: NUMMEDS+14
Function Call: WRITE	Prompt: !?6,"Lixisenatide (Adlyxin), Semaglutide (Ozempic)]" Line Location: NUMMEDS+15
Function Call: WRITE	Prompt: !!?6,"SGLT-2 inhibitor [Canagliflozin,",?49,$$C($P(V,U,9)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,9)),!?6,"(Invokana), Dapagliflozin (Farxiga),",!?6,"Empagliflozin (Jardiance), ",!?6,"Ertugliflozin (Steglatro)]" Line Location: NUMMEDS+16
Function Call: WRITE	Prompt: !!?6,"Pioglitazone [Actos] or rosiglitazone",?49,$$C($P(V,U,10)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,10)),!?6,"[Avandia]" Line Location: NUMMEDS+17
Function Call: WRITE	Prompt: !!?6,"Acarbose [Precose] or miglitol [Glyset]",?49,$$C($P(V,U,11)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,11)) Line Location: NUMMEDS+18
Function Call: WRITE	Prompt: !!?6,"Repaglinide [Prandin] or Nateglinide ",?49,$$C($P(V,U,12)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,12)),!?6,"[Starlix]" Line Location: NUMMEDS+19
Function Call: WRITE	Prompt: !!?6,"Amylin analog [Symlin]",?49,$$C($P(V,U,14)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,14)) Line Location: NUMMEDS+20
Function Call: WRITE	Prompt: !!?6,"Bromocriptine [Cycloset]",?49,$$C($P(V,U,15)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,15)) Line Location: NUMMEDS+21
Function Call: WRITE	Prompt: !!?6,"Colesevelam [Welchol]",?49,$$C($P(V,U,16)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,16)) Line Location: NUMMEDS+22
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: STATIN+2
Function Call: WRITE	Prompt: !?3,"Yes*",?49,$$C($P(V,U,6)),?61,$$C($P(V,U,4)),?73,$$P($P(V,U,4),$P(V,U,6)) Line Location: STATIN+3
Function Call: WRITE	Prompt: !?3,"Allergy, intolerance, or contraindication",?49,$$C($P(V,U,7)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,7)) Line Location: STATIN+4
Function Call: WRITE	Prompt: !!?3,"In patients with diagnosed CVD " Line Location: STATIN+5
Function Call: WRITE	Prompt: !?6,"Yes*",?49,$$C($P(V,U,22)),?61,$$C($P(V,U,21)),?73,$$P($P(V,U,21),$P(V,U,22)) Line Location: STATIN+6
Function Call: WRITE	Prompt: !?6,"Allergy, intolerance, or contraindication",?49,$$C($P(V,U,17)),?61,$$C($P(V,U,16)),?73,$$P($P(V,U,16),$P(V,U,17)) Line Location: STATIN+7
Function Call: WRITE	Prompt: !!?3,"In patients age 40-75 years " Line Location: STATIN+8
Function Call: WRITE	Prompt: !?6,"Yes*",?49,$$C($P(V,U,19)),?61,$$C($P(V,U,8)),?73,$$P($P(V,U,8),$P(V,U,19)) Line Location: STATIN+9
Function Call: WRITE	Prompt: !?6,"Allergy, intolerance, or contraindication",?49,$$C($P(V,U,20)),?61,$$C($P(V,U,23)),?73,$$P($P(V,U,23),$P(V,U,20)) Line Location: STATIN+10
Function Call: WRITE	Prompt: !!?3,"In patients with diagnosed CVD and/or age 40-75 years" Line Location: STATIN+11
Function Call: WRITE	Prompt: !?6,"Yes*",?49,$$C($P(V,U,26)),?61,$$C($P(V,U,25)),?73,$$P($P(V,U,25),$P(V,U,26)) Line Location: STATIN+12
Function Call: WRITE	Prompt: !?6,"Allergy, intolerance, or contraindication",?49,$$C($P(V,U,27)),?61,$$C($P(V,U,24)),?73,$$P($P(V,U,24),$P(V,U,27)) Line Location: STATIN+13
Function Call: WRITE	Prompt: !!?2,"*Excludes patients with an allergy, intolerance, or contraindication." Line Location: STATIN+14
Function Call: WRITE	Prompt: !!,"Cardiovascular Disease (CVD)" Line Location: CVD+3
Function Call: WRITE	Prompt: !?3,"CVD diagnosed ever",?49,$$C($P(V,U,8)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,8)) Line Location: CVD+4
Function Call: WRITE	Prompt: !?6,"CVD and mean BP <140/<90",?49,$$C($P(V,U,9)),?61,$$C($P(V,U,8)),?73,$$P($P(V,U,8),$P(V,U,9)) Line Location: CVD+5
Function Call: WRITE	Prompt: !?6,"CVD and not current tobacco user",?49,$$C($P(V,U,10)),?61,$$C($P(V,U,8)),?73,$$P($P(V,U,8),$P(V,U,10)) Line Location: CVD+6
Function Call: WRITE	Prompt: !?6,"CVD and aspirin or other",?49,$$C($P(V,U,12)),?61,$$C($P(V,U,8)),?73,$$P($P(V,U,8),$P(V,U,12)),!?9,"antiplatelet/anticoagulant therapy prescribed" Line Location: CVD+7
Function Call: WRITE	Prompt: !?6,"CVD and statin prescribed*",?49,$$C($P(V,U,11)),?61,$$C($P(V,U,34)),?73,$$P($P(V,U,34),$P(V,U,11)) Line Location: CVD+8
Function Call: WRITE	Prompt: !?6,"*Excludes patients with an allergy, intolerance, or contraindication" Line Location: CVD+9
Function Call: WRITE	Prompt: !!,"Retinopathy" Line Location: RETIN+3
Function Call: WRITE	Prompt: !?3,"Diagnosed ever",?49,$$C($P(V,U,38)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,38)) Line Location: RETIN+4
Function Call: WRITE	Prompt: !!,$P(BDMCUML(117),U,1) Line Location: LEAMP+3
Function Call: WRITE	Prompt: !?3,"Any type ever (e.g., toe, partial",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)),!?3,"foot, above or below knee)" Line Location: LEAMP+4
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 - 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("Annual Audit",80),! Line Location: HEADER1+11
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEADER1+12
Function Call: WRITE	Prompt: $TR($J("",80)," ","-"),! Line Location: HEADER1+13
Function Call: WRITE	Prompt: ?45,"# of ",?57,"#",?70,"Percent",! Line Location: HEADER1+14
Function Call: WRITE	Prompt: ?45,"Patients",?57,"Considered",! Line Location: HEADER1+15
Function Call: WRITE	Prompt: ?45,"(Numerator)",?57,"(Denominator)",! Line Location: HEADER1+16
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, WTCNTL+8, BSC+3, BSC+4, BSC+5 , BSC+6, BSC+7, BSC+8, BSC+9, BSC+11, BSC+12, BPC+4, BPC+5, BPC+6, BPC+7 , BPC+9, HTN+4, HTN+5, HTN+6, TOBSCR+3, TOBSCR+4, TOB+3, TOB+5, TOB+6, TOB+7 , TOB+8, ENDS+5, ENDS+6, ENDS+8, ENDS+9, ENDS+10, ENDS+12, ENDS+13, NUMMEDS+3, NUMMEDS+4 , NUMMEDS+5, NUMMEDS+6, NUMMEDS+7, NUMMEDS+10, NUMMEDS+11, NUMMEDS+12, NUMMEDS+13, NUMMEDS+14, NUMMEDS+16, NUMMEDS+17 , NUMMEDS+18, NUMMEDS+19, NUMMEDS+20, NUMMEDS+21, NUMMEDS+22, STATIN+3, STATIN+4, STATIN+6, STATIN+7, STATIN+9 , STATIN+10, STATIN+12, STATIN+13, CVD+4, CVD+5, CVD+6, CVD+7, CVD+8, RETIN+4, LEAMP+4
$$CTR	HEADER1+5, HEADER1+8, HEADER1+10, HEADER1+11, HEADER1+12
$$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, WTCNTL+8, BSC+3, BSC+4, BSC+5 , BSC+6, BSC+7, BSC+8, BSC+9, BSC+11, BSC+12, BPC+4, BPC+5, BPC+6, BPC+7 , BPC+9, HTN+4, HTN+5, HTN+6, TOBSCR+3, TOBSCR+4, TOB+3, TOB+5, TOB+6, TOB+7 , TOB+8, ENDS+5, ENDS+6, ENDS+8, ENDS+9, ENDS+10, ENDS+12, ENDS+13, NUMMEDS+3, NUMMEDS+4 , NUMMEDS+5, NUMMEDS+6, NUMMEDS+7, NUMMEDS+10, NUMMEDS+11, NUMMEDS+12, NUMMEDS+13, NUMMEDS+14, NUMMEDS+16, NUMMEDS+17 , NUMMEDS+18, NUMMEDS+19, NUMMEDS+20, NUMMEDS+21, NUMMEDS+22, STATIN+3, STATIN+4, STATIN+6, STATIN+7, STATIN+9 , STATIN+10, STATIN+12, STATIN+13, CVD+4, CVD+5, CVD+6, CVD+7, CVD+8, RETIN+4, LEAMP+4
EXIT	PRINT+5
HEADER	PRINT+3, PRINT1+6, TYPE+1, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, HTN+1, TOBSCR+1, TOB+1 , ENDS+1, TX+1, NUMMEDS+1, STATIN+1, CVD+1, RETIN+1, LEAMP+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+12
>> BDMCUML(115	STATIN+2
>> BDMCUML(117	LEAMP+2, LEAMP+3
>> BDMCUML(20	PRINT1+7
>> BDMCUML(25	TYPE+2
>> BDMCUML(30	DMDUR+2
>> BDMCUML(40	WTCNTL+2
>> BDMCUML(400	CVD+2, RETIN+2
>> BDMCUML(410	HTN+2
>> BDMCUML(50	BSC+2
>> BDMCUML(60	BPC+2
>> BDMCUML(65	TOBSCR+2
>> BDMCUML(69	ENDS+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, HTN+1, TOBSCR+1, TOB+1, ENDS+1 , TX+1, NUMMEDS+1, STATIN+1, CVD+1, RETIN+1, LEAMP+1
>> BDMNOGO	PRINT1+1, PRINT1+2
BDMPD	SOB~, 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, HTN+1, TOBSCR+1, TOB+1 , ENDS+1, TX+1, NUMMEDS+1, STATIN+1, CVD+1, RETIN+1, LEAMP+1, HEADER+3
BMI	SOB~, SOB+1, SOB+2, OB~, OB+1, OB+2, OW~, OW+1, OW+2, OW+3
D	D~, D+1, D+2, DI~, DI+1, DI+2, SOB~, 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, WTCNTL+8 , BSC+2, BSC+3, BSC+4, BSC+5, BSC+6, BSC+7, BSC+8, BSC+9, BSC+11, BSC+12 , BPC+2, BPC+3, BPC+4, BPC+5, BPC+6, BPC+7, BPC+9, HTN+4, HTN+5, HTN+6 , TOBSCR+2, TOBSCR+3, TOBSCR+4, TOB+2, TOB+3, TOB+5, TOB+6, TOB+7, TOB+8, ENDS+5 , ENDS+6, ENDS+8, ENDS+9, ENDS+10, ENDS+12, ENDS+13, TX+2, NUMMEDS+3, NUMMEDS+4, NUMMEDS+5 , NUMMEDS+6, NUMMEDS+7, NUMMEDS+10, NUMMEDS+11, NUMMEDS+12, NUMMEDS+13, NUMMEDS+14, NUMMEDS+16, NUMMEDS+17, NUMMEDS+18 , NUMMEDS+19, NUMMEDS+20, NUMMEDS+21, NUMMEDS+22, STATIN+2, STATIN+3, STATIN+4, STATIN+6, STATIN+7, STATIN+9 , STATIN+10, STATIN+12, STATIN+13, CVD+4, CVD+5, CVD+6, CVD+7, CVD+8, RETIN+4, LEAMP+3 , LEAMP+4, HEADER1+4, HEADER1+10, HEADER1+12, 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, WTCNTL+8 , BSC+2, BSC+3, BSC+4, BSC+5, BSC+6, BSC+7, BSC+8, BSC+9, BSC+11, BSC+12 , BPC+2, BPC+3, BPC+4, BPC+5, BPC+6, BPC+7, BPC+9, HTN+2, HTN+4, HTN+5 , HTN+6, TOBSCR+2, TOBSCR+3, TOBSCR+4, TOB+2, TOB+3, TOB+5, TOB+6, TOB+7, TOB+8 , ENDS+2, ENDS+5, ENDS+6, ENDS+8, ENDS+9, ENDS+10, ENDS+12, ENDS+13, TX+2, NUMMEDS+3 , NUMMEDS+4, NUMMEDS+5, NUMMEDS+6, NUMMEDS+7, NUMMEDS+10, NUMMEDS+11, NUMMEDS+12, NUMMEDS+13, NUMMEDS+14, NUMMEDS+16 , NUMMEDS+17, NUMMEDS+18, NUMMEDS+19, NUMMEDS+20, NUMMEDS+21, NUMMEDS+22, STATIN+2, STATIN+3, STATIN+4, STATIN+6 , STATIN+7, STATIN+9, STATIN+10, STATIN+12, STATIN+13, CVD+2, CVD+4, CVD+5, CVD+6, CVD+7 , CVD+8, RETIN+2, RETIN+4, LEAMP+2, LEAMP+4
X	CALC+5~, CALC+6, CALC+7, P+3~, P+4, C~, C+4, HEADER1+10, HEADER1+12*, 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: BDMDG14

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: