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: BDMD414

Package: Diabetes Registry

Routine: BDMD414


Information

BDMD414 ; IHS/CMI/LAB -IHS -CUMULATIVE REPORT ; 22 Feb 2012 3:43 PM

Source Information

Source file <BDMD414.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Diabetes Registry 3 ($$CMSFDX,$$PLDMDOO)^BDMD413  $$DI^BDMD416  ^BDMD41A  
VA Fileman 2 COMMA^%DTC  ^DIR  
Kernel 1 ($$FMDIFF,$$FMTE)^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Diabetes Registry 2 BDMD415  BDMD41P  

Entry Points

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

External References

Name Field # of Occurrence
COMMA^%DTC CALC+6, CALC+7, C+3
$$CMSFDX^BDMD413 DURDM+3
$$PLDMDOO^BDMD413 DURDM+5
$$DI^BDMD416 DURDM+11
^BDMD41A TX+19
^DIR EXIT+1, HEADER+3, EOP+5
$$FMDIFF^XLFDT DURDM+13
$$FMTE^XLFDT HEADER1+4, HEADER1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(10),U),!,?7,"Female",?53,$$C($P(BDMCUML(10),U,3)),?65,$$P($P(BDMCUML(10),U,2),$P(BDMCUML(10),U,3))
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !,?7,"Male",?53,$$C($P(BDMCUML(10),U,4)),?65,$$P($P(BDMCUML(10),U,2),$P(BDMCUML(10),U,4))
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: !!,"Age"
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !?7,"<15 yrs",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: !?7,"15-44 yrs",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: !?7,"45-64 yrs",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: !?7,"65 yrs and older",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: !?7,"Type 1",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: TYPE+4
Function Call: WRITE
  • Prompt: !?7,"Type 2",?53,$$C($P(V,U,4)),?65,$$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: !?7,"Less than 1 year",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: DMDUR+3
Function Call: WRITE
  • Prompt: !?7,"Less than 10 years",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: DMDUR+4
Function Call: WRITE
  • Prompt: !?7,"10 years or more",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: DMDUR+5
Function Call: WRITE
  • Prompt: !?7,"Diagnosis date not recorded",?53,$$C($P(V,U,5)),?65,$$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: !?7,"Normal (BMI<25.0)",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: WTCNTL+3
Function Call: WRITE
  • Prompt: !?7,"Overweight (BMI 25.0-29.9)",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: WTCNTL+4
Function Call: WRITE
  • Prompt: !?7,"Obese (BMI 30.0 or above)",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: WTCNTL+5
Function Call: WRITE
  • Prompt: !?7,"Height or Weight missing",?53,$$C($P(V,U,5)),?65,$$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: !?7,"HbA1c <7.0",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: BSC+3
Function Call: WRITE
  • Prompt: !?7,"HbA1c 7.0-7.9",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: BSC+4
Function Call: WRITE
  • Prompt: !?7,"HbA1c 8.0-8.9",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: BSC+5
Function Call: WRITE
  • Prompt: !?7,"HbA1c 9.0-9.9",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: BSC+6
Function Call: WRITE
  • Prompt: !?7,"HbA1c 10.0-10.9",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: BSC+7
Function Call: WRITE
  • Prompt: !?7,"HbA1c 11.0 or higher",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: BSC+8
Function Call: WRITE
  • Prompt: !?7,"Undocumented",?53,$$C($P(V,U,9)),?65,$$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: !?7,"<120/<70",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: BPC+3
Function Call: WRITE
  • Prompt: !?7,"120/70 - <130/<80",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: BPC+4
Function Call: WRITE
  • Prompt: !?7,"---------------------------"
  • Line Location: BPC+5
Function Call: WRITE
  • Prompt: !?7,"130/80 - <140/<90",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: BPC+6
Function Call: WRITE
  • Prompt: !?7,"140/90 - <160/<95",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: BPC+7
Function Call: WRITE
  • Prompt: !?7,"160/95 or higher",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: BPC+8
Function Call: WRITE
  • Prompt: !?7,"BP category Undetermined",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: BPC+9
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: TOB+2
Function Call: WRITE
  • Prompt: !?7,"Current Tobacco User",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: TOB+3
Function Call: WRITE
  • Prompt: !?9,"Counseled - Yes",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,3),$P(V,U,4))
  • Line Location: TOB+4
Function Call: WRITE
  • Prompt: !?9,"Counseled - No",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,3),$P(V,U,5))
  • Line Location: TOB+5
Function Call: WRITE
  • Prompt: !?9,"Counseled - Refused",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,3),$P(V,U,6))
  • Line Location: TOB+6
Function Call: WRITE
  • Prompt: !?7,"Not a current tobacco user",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: TOB+7
Function Call: WRITE
  • Prompt: !?7,"Tobacco use not documented",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: TOB+8
Function Call: WRITE
  • Prompt: !!,$P(V,U)
  • Line Location: TX+2
Function Call: WRITE
  • Prompt: !?7,"Diet and Exercise Alone",?53,$$C($P(V,U,3)),?65,$$P($P(V,U,2),$P(V,U,3))
  • Line Location: TX+3
Function Call: WRITE
  • Prompt: !?7,"Insulin",?53,$$C($P(V,U,4)),?65,$$P($P(V,U,2),$P(V,U,4))
  • Line Location: TX+4
Function Call: WRITE
  • Prompt: !?7,"Sulfonylurea",?53,$$C($P(V,U,5)),?65,$$P($P(V,U,2),$P(V,U,5))
  • Line Location: TX+5
Function Call: WRITE
  • Prompt: !?7,"Sulfonylurea-like (Prandin, Starlix)",?53,$$C($P(V,U,6)),?65,$$P($P(V,U,2),$P(V,U,6))
  • Line Location: TX+6
Function Call: WRITE
  • Prompt: !?7,"Metformin",?53,$$C($P(V,U,7)),?65,$$P($P(V,U,2),$P(V,U,7))
  • Line Location: TX+7
Function Call: WRITE
  • Prompt: !?7,"Acarbose/Miglitol",?53,$$C($P(V,U,8)),?65,$$P($P(V,U,2),$P(V,U,8))
  • Line Location: TX+8
Function Call: WRITE
  • Prompt: !?7,"Glitizone",?53,$$C($P(V,U,9)),?65,$$P($P(V,U,2),$P(V,U,9))
  • Line Location: TX+9
Function Call: WRITE
  • Prompt: !?7,"Incretin mimetics (Byetta)",?53,$$C($P(V,U,10)),?65,$$P($P(V,U,2),$P(V,U,10))
  • Line Location: TX+10
Function Call: WRITE
  • Prompt: !?7,"DPP4 inhibitors (Januvia, Onglyza)",?53,$$C($P(V,U,11)),?65,$$P($P(V,U,2),$P(V,U,11))
  • Line Location: TX+11
Function Call: WRITE
  • Prompt: !?7,"Amylin analogues (Symlin)",?53,$$C($P(V,U,12)),?65,$$P($P(V,U,2),$P(V,U,12))
  • Line Location: TX+12
Function Call: WRITE
  • Prompt: !?7,"GLP-1 analog (Victoza)",?53,$$C($P(V,U,13)),?65,$$P($P(V,U,2),$P(V,U,13))
  • Line Location: TX+13
Function Call: WRITE
  • Prompt: !?7,"Bromocriptine (Cycloset)",?53,$$C($P(V,U,14)),?65,$$P($P(V,U,2),$P(V,U,14))
  • Line Location: TX+14
Function Call: WRITE
  • Prompt: !?7,"Colesevelam (Welchol)",?53,$$C($P(V,U,15)),?65,$$P($P(V,U,2),$P(V,U,15))
  • Line Location: TX+15
Function Call: WRITE
  • Prompt: !!?7,"Any Oral med combination",?53,$$C($P(V,U,17)),?65,$$P($P(V,U,2),$P(V,U,17))
  • Line Location: TX+16
Function Call: WRITE
  • Prompt: !?7,"Any Insulin + other med combination",?53,$$C($P(V,U,18)),?65,$$P($P(V,U,2),$P(V,U,18))
  • Line Location: TX+17
Function Call: WRITE
  • Prompt: !!?7,"Refused or Undetermined",?53,$$C($P(V,U,16)),?65,$$P($P(V,U,2),$P(V,U,16))
  • Line Location: TX+18
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/RPMS CARE & OUTCOMES AUDIT 2012 ***",80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR("FOR "_$P(^DIC(4,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U)),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(10),U,2)," patients were audited"
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: ?55," n",?63,"Percent"
  • Line Location: HEADER1+10
Routine Call
  • DIR
  • Line Location:
    • EXIT+1
    • HEADER+3
    • EOP+5

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$C PRINT1+3, PRINT1+4, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+10, 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+3, BPC+4, BPC+6, BPC+7, BPC+8, BPC+9, TOB+3
, TOB+4, TOB+5, TOB+6, TOB+7, TOB+8, TX+3, TX+4, 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+17
, TX+18
$$CTR HEADER1+5, HEADER1+6, HEADER1+7
$$P PRINT1+3, PRINT1+4, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+10, 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+3, BPC+4, BPC+6, BPC+7, BPC+8, BPC+9, TOB+3
, TOB+4, TOB+5, TOB+6, TOB+7, TOB+8, TX+3, TX+4, 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+17
, TX+18
EXIT PRINT+5
HEADER PRINT+3, PRINT1+5, TYPE+1, DMDUR+1, WTCNTL+1, BSC+1, BPC+1, TOB+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+9
>> BDMCUML(20 PRINT1+6
>> 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
>> BDMDUZ2 HEADER1+6
>> BDMGUI HEADER1+2, HEADER1+3
>> BDMIOSL PRINT1+5, 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+5, 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+6, 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
U PRINT1+3, PRINT1+4, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+10, 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+6, BPC+7, BPC+8, BPC+9, TOB+2, TOB+3, TOB+4, TOB+5, TOB+6, TOB+7
, TOB+8, TX+2, TX+3, TX+4, 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+17, TX+18, HEADER1+4, HEADER1+6
, HEADER1+9, USR+1, LOC+1
>> V PRINT1+6*, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+10, 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+6, BPC+7, BPC+8, BPC+9, TOB+2*, TOB+3, TOB+4, TOB+5, TOB+6, TOB+7
, TOB+8, TX+2*, TX+3, TX+4, 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+17, TX+18
X CALC+5~, CALC+6*, CALC+7*, P+3~*, P+4, C~, C+4, HEADER1+7*, 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