Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BDMDF14

Package: Diabetes Registry

Routine: BDMDF14


Information

BDMDF14 ; IHS/CMI/LAB -IHS -CUMULATIVE REPORT 14 Oct 2014 9:54 AM ;

Source Information

Source file <BDMDF14.m>

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Diabetes Registry 4 BDMDF15  BDMDF1A  BDMDF1P  BDMPF15  

Entry Points

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
HEPC ;P11
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

External References

Name Field # of Occurrence
COMMA^%DTC CALC+6, CALC+7, C+3
$$CMSFDX^BDMDC13 DURDM+3
$$PLDMDOO^BDMDC13 DURDM+5
$$DI^BDMDC16 DURDM+11
^BDMDF1A TX+17
$$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: !?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+10
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+11
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 ever",?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 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: 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) [1]",?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 [1] & 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 [1] & 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,"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: !!,?2,"Diagnosed hepatitis C (HCV) ever",?49,$$C($P(V,U,35)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,35))
  • Line Location: HEPC+1
Function Call: WRITE
  • Prompt: !,?6,"If born 1945-1965 and no HCV dx,",?49,$$C($P(V,U,37)),?61,$$C($P(V,U,36)),?73,$$P($P(V,U,36),$P(V,U,37)),!?6,"screened ever"
  • Line Location: HEPC+2
Function Call: WRITE
  • Prompt: !!,?2,"Diagnosed retinopathy 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: HEPC+3
Function Call: WRITE
  • Prompt: !!?3,"Number of comorbid conditions [2]"
  • 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 or more",?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: !!,"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,"None of the following meds",?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,"Repaglinide (Prandin) or Nateglinide ",?49,$$C($P(V,U,6)),?61,$$C($P(V,U,2)),?73,$$P($P(V,U,2),$P(V,U,6)),!?10,"(Starlix)"
  • 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: !
  • 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

Global Variables Directly Accessed

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

Label References

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+10, BSC+11, 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
, HEPC+1, HEPC+2, HEPC+3, COM+3, COM+4, COM+5, COM+6, COM+7, COM+8, 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
$$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, BSC+10, BSC+11, 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
, HEPC+1, HEPC+2, HEPC+3, COM+3, COM+4, COM+5, COM+6, COM+7, COM+8, 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
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
HEADER1 HEADER+1
PRINT1 PRINT+4

Naked Globals

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
>> 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, 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+10, BSC+11
, 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, HEPC+1, HEPC+2, HEPC+3
, COM+3, COM+4, COM+5, COM+6, COM+7, COM+8, 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, 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, BSC+10, BSC+11
, 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, HEPC+1, HEPC+2, HEPC+3
, COM+3, COM+4, COM+5, COM+6, COM+7, COM+8, 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
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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All