Routine: BDMDE14

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

Package	Total	Caller Graph
Diabetes Registry	4	BDMDE15 BDMDE1A BDMDE1P BDMPE15

Name	Comments	DBIA/ICR reference
CKD	;
BPC	;
CUML	;EP
ENDS	;
PRINT	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
D(D)	;EP
TOB	;
TOBSCR	;
COM	;
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	;
GU	;
COMOR	;
SOB(BDMPD,BMI,D)	;EP severly obese
HEADER	;EP
C(X,X2,X3)	;
DMDUR	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
P(D,N)	;return %
COCVD	;
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
^BDMDE1A	TX+23
$$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 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: !?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,"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: !?3,"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: !?3,"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: !?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 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: !?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 or above)",?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 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: !?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: !!,$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/<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: !?3,"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: !?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: !!,$P(BDMCUML(400),U,1) Line Location: COMOR+2
Function Call: WRITE	Prompt: !?3,"Active Depression",?49,$$C($P(V,U,3)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,3)) Line Location: COMOR+3
Function Call: WRITE	Prompt: !?3,"Current tobacco user",?49,$$C($P(V,U,4)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,4)) Line Location: COMOR+4
Function Call: WRITE	Prompt: !?3,"Severely obese (BMI 40.0 or above)",?49,$$C($P(V,U,5)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,5)) Line Location: COMOR+5
Function Call: WRITE	Prompt: !?3,"Diagnosed hypertension",?49,$$C($P(V,U,6)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,6)) Line Location: COMOR+6
Function Call: WRITE	Prompt: !?6,"Diagnosed hypertension & mean BP <140/<90",?49,$$C($P(V,U,7)),?61,$$C($P(V,U,6)),?73,$$P($P(V,U,6),$P(V,U,7)) Line Location: COMOR+7
Function Call: WRITE	Prompt: !!?3,"Diagnosed CVD",?49,$$C($P(V,U,8)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,8)) Line Location: COCVD+2
Function Call: WRITE	Prompt: !?6,"Diagnosed CVD & 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: COCVD+3
Function Call: WRITE	Prompt: !?6,"Diagnosed CVD & 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: COCVD+4
Function Call: WRITE	Prompt: !?6,"Diagnosed CVD & 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: COCVD+5
Function Call: WRITE	Prompt: !?6,"*Excludes patients with an allergy, intolerance, or contraindication" Line Location: COCVD+6
Function Call: WRITE	Prompt: !?6,"Diagnosed CVD & 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: COCVD+7
Function Call: WRITE	Prompt: !!?3,"In age 18+ chronic kidney disease (CKD)**",?49,$$C($P(V,U,14)),?61,$$C($P(V,U,13)),?73,$$P($P(V,U,13),$P(V,U,14)) Line Location: CKD+2
Function Call: WRITE	Prompt: !?6,"CKD** & mean BP <140/<90",?49,$$C($P(V,U,15)),?61,$$C($P(V,U,14)),?73,$$P($P(V,U,14),$P(V,U,15)) Line Location: CKD+3
Function Call: WRITE	Prompt: !?6,"CKD** & ACE Inhibitor or ARB prescribed",?49,$$C($P(V,U,16)),?61,$$C($P(V,U,14)),?73,$$P($P(V,U,14),$P(V,U,16)) Line Location: CKD+4
Function Call: WRITE	Prompt: !!?3,"In age 18+",?49,$$C($P(V,U,13)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,13)) Line Location: GU+2
Function Call: WRITE	Prompt: !?6,"Chronic Kidney Disease Stage" Line Location: GU+3
Function Call: WRITE	Prompt: !?6,"Normal: eGFR =>60 ml/min",?49,$$C($P(V,U,18)),?61,$$C($P(V,U,13)),?73,$$P($P(V,U,13),$P(V,U,18)),!?9,"& UACR <30 mg/g" Line Location: GU+4
Function Call: WRITE	Prompt: !?6,"Stages 1 & 2: eGFR =>60 ml/min",?49,$$C($P(V,U,19)),?61,$$C($P(V,U,13)),?73,$$P($P(V,U,13),$P(V,U,19)),!?9,"& UACR =>30 mg/g" Line Location: GU+5
Function Call: WRITE	Prompt: !?6,"Stage 3: eGFR 30-59 ml/min",?49,$$C($P(V,U,20)),?61,$$C($P(V,U,13)),?73,$$P($P(V,U,13),$P(V,U,20)) Line Location: GU+6
Function Call: WRITE	Prompt: !?6,"Stage 4: eGFR 15-29 ml/min",?49,$$C($P(V,U,21)),?61,$$C($P(V,U,13)),?73,$$P($P(V,U,13),$P(V,U,21)) Line Location: GU+7
Function Call: WRITE	Prompt: !?6,"Stage 5: eGFR <15 ml/min",?49,$$C($P(V,U,22)),?61,$$C($P(V,U,13)),?73,$$P($P(V,U,13),$P(V,U,22)) Line Location: GU+8
Function Call: WRITE	Prompt: !?6,"In age 18+ Chronic Kidney",?49,$$C($P(V,U,23)),?61,$$C($P(V,U,13)),?73,$$P($P(V,U,13),$P(V,U,23)),!?9,"Disease Stage undetermined" Line Location: GU+9
Function Call: WRITE	Prompt: !!?3,"Number of comorbid conditions*****" Line Location: COM+2
Function Call: WRITE	Prompt: !?6,"Diabetes only",?49,$$C($P(V,U,25)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,25)) Line Location: COM+3
Function Call: WRITE	Prompt: !?6,"One",?49,$$C($P(V,U,26)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,26)) Line Location: COM+4
Function Call: WRITE	Prompt: !?6,"Two",?49,$$C($P(V,U,27)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,27)) Line Location: COM+5
Function Call: WRITE	Prompt: !?6,"Three",?49,$$C($P(V,U,28)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,28)) Line Location: COM+6
Function Call: WRITE	Prompt: !?6,"Four",?49,$$C($P(V,U,29)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,29)) Line Location: COM+7
Function Call: WRITE	Prompt: !?6,"Five",?49,$$C($P(V,U,30)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,30)) Line Location: COM+8
Function Call: WRITE	Prompt: !?6,"Six",?49,$$C($P(V,U,31)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,31)) Line Location: COM+9
Function Call: WRITE	Prompt: !!,"Tobacco & 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 the 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: !,"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+11
Function Call: WRITE	Prompt: !!,$P(V,U) Line Location: TX+2
Function Call: WRITE	Prompt: !?3,"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: !!?3,"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: !!?3,"Sulfonylurea (glyburide, glipizide,",?49,$$C($P(V,U,5)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,5)),!?10,"others)" Line Location: TX+6
Function Call: WRITE	Prompt: !!?3,"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: !!?3,"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: !!?3,"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: !!?3,"Pioglitizone (Actos) or rosiglitazone",?49,$$C($P(V,U,9)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,9)),!?10,"(Avandia)" Line Location: TX+10
Function Call: WRITE	Prompt: !!?3,"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)),!?10,"Tanzeum, Trulicity)" Line Location: TX+11
Function Call: WRITE	Prompt: !!?3,"DPP4 inhibitor (Januvia, Onglyza, ",?49,$$C($P(V,U,11)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,11)),!?10,"Tradjenta, Nesina)" Line Location: TX+12
Function Call: WRITE	Prompt: !!?3,"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: !!?3,"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: !!?3,"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: !!?3,"SGLT-2 Inhibitor (Invokana, Farxiga,",?49,$$C($P(V,U,16)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,16)),!?10,"Jardiance)" Line Location: TX+16
Function Call: WRITE	Prompt: !!?2,"Number of diabetes meds currently prescribed" Line Location: TX+18
Function Call: WRITE	Prompt: !?3,"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+19
Function Call: WRITE	Prompt: !?3,"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+20
Function Call: WRITE	Prompt: !?3,"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+21
Function Call: WRITE	Prompt: !?3,"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+22
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, WTCNTL+8, BSC+3, BSC+4, BSC+5 , BSC+6, BSC+7, BSC+8, BSC+9, BPC+4, BPC+5, BPC+6, BPC+7, COMOR+3, COMOR+4 , COMOR+5, COMOR+6, COMOR+7, COCVD+2, COCVD+3, COCVD+4, COCVD+5, COCVD+7, CKD+2, CKD+3 , CKD+4, GU+2, GU+4, GU+5, GU+6, GU+7, GU+8, GU+9, COM+3, COM+4 , COM+5, COM+6, COM+7, COM+8, COM+9, 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+11, 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+19, TX+20, TX+21, TX+22
$$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, WTCNTL+8, BSC+3, BSC+4, BSC+5 , BSC+6, BSC+7, BSC+8, BSC+9, BPC+4, BPC+5, BPC+6, BPC+7, COMOR+3, COMOR+4 , COMOR+5, COMOR+6, COMOR+7, COCVD+2, COCVD+3, COCVD+4, COCVD+5, COCVD+7, CKD+2, CKD+3 , CKD+4, GU+2, GU+4, GU+5, GU+6, GU+7, GU+8, GU+9, COM+3, COM+4 , COM+5, COM+6, COM+7, COM+8, COM+9, 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+11, 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+19, TX+20, TX+21, TX+22
EXIT	PRINT+5
HEADER	PRINT+3, PRINT1+6, TYPE+1, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, COMOR+1, COCVD+1, CKD+1 , GU+1, COM+1, TOBSCR+1, TOB+1, ENDS+1, TX+1, TX+17
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(400	COMOR+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, COMOR+1, COCVD+1, CKD+1, GU+1 , COM+1, TOBSCR+1, TOB+1, ENDS+1, TX+1, TX+17
>> 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, COMOR+1, COCVD+1, CKD+1 , GU+1, COM+1, TOBSCR+1, TOB+1, ENDS+1, TX+1, TX+17, 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, BPC+2, BPC+3 , BPC+4, BPC+5, BPC+6, BPC+7, COMOR+2, COMOR+3, COMOR+4, COMOR+5, COMOR+6, COMOR+7 , COCVD+2, COCVD+3, COCVD+4, COCVD+5, COCVD+7, CKD+2, CKD+3, CKD+4, GU+2, GU+4 , GU+5, GU+6, GU+7, GU+8, GU+9, COM+3, COM+4, COM+5, COM+6, COM+7 , COM+8, COM+9, 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+11, 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+19, TX+20, TX+21, TX+22, 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, WTCNTL+8 , 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, COMOR+2, COMOR+3, COMOR+4, COMOR+5, COMOR+6, COMOR+7 , COCVD+2, COCVD+3, COCVD+4, COCVD+5, COCVD+7, CKD+2, CKD+3, CKD+4, GU+2, GU+4 , GU+5, GU+6, GU+7, GU+8, GU+9, COM+3, COM+4, COM+5, COM+6, COM+7 , COM+8, COM+9, 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+11, 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+19, TX+20, TX+21, TX+22
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: BDMDE14

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: