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

Package: Diabetes Registry

Routine: BDMDE1U


Information

BDMDE1U ; IHS/CMI/LAB -IHS -CUMULATIVE REPORT 22 Feb 2014 3:43 PM ;

Source Information

Source file <BDMDE1U.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 COMMA^%DTC  ^DIR  
Diabetes Registry 1 $$DATE^BDMS9B1  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Diabetes Registry 1 BDMDE1P  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
LIPID ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HEADER ;EP
CTR(X,Y) ;EP - Center X in a field Y wide.
EOP ;EP - End of page.
IMM ;
NUTR ;
P(D,N) ;return %
TOB ;
PHY ;
HEADER1 ;
EXIT ;
C(X,X2,X3) ;
CALC(N,O) ;ENTRY POINT
PRINT ;
TB ;
USR() ;EP - Return name of current user from ^VA(200.
SDPI16 ;EP

External References

Name Field # of Occurrence
COMMA^%DTC CALC+6, CALC+7, C+3
$$DATE^BDMS9B1 HEADER1+8
^DIR EXIT+1, HEADER+3, EOP+5
$$FMTE^XLFDT HEADER1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(10),U,1)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(10,1),U),?49,$$C($P(BDMCUML(10,1),U,2)),?61,$$C($P(BDMCUML(10,1),U,3)),?73,$$P($P(BDMCUML(10,1),U,3),$P(BDMCUML(10,1),U,2))
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(10,2),U)
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(10,3),U)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(20),U)
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(20,1),U),?49,$$C($P(BDMCUML(20,1),U,2)),?61,$$C($P(BDMCUML(20,1),U,3)),?73,$$P($P(BDMCUML(20,1),U,3),$P(BDMCUML(20,1),U,2))
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(20,2),U)
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(30),U)
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(30,1),U),?49,$$C($P(BDMCUML(30,1),U,2)),?61,$$C($P(BDMCUML(30,1),U,3)),?73,$$P($P(BDMCUML(30,1),U,3),$P(BDMCUML(30,1),U,2))
  • Line Location: PRINT1+13
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(40),U)
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(40,1),U),?49,$$C($P(BDMCUML(40,1),U,2)),?61,$$C($P(BDMCUML(40,1),U,3)),?73,$$P($P(BDMCUML(40,1),U,3),$P(BDMCUML(40,1),U,2))
  • Line Location: PRINT1+17
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(50),U)
  • Line Location: PRINT1+20
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(50,1),U),?49,$$C($P(BDMCUML(50,1),U,2)),?61,$$C($P(BDMCUML(50,1),U,3)),?73,$$P($P(BDMCUML(50,1),U,3),$P(BDMCUML(50,1),U,2))
  • Line Location: PRINT1+21
Function Call: WRITE
  • Prompt: !?5,BDMCUML(50,2)
  • Line Location: PRINT1+22
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(60),U)
  • Line Location: PRINT1+25
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(60,1),U),?49,$$C($P(BDMCUML(60,1),U,2)),?61,$$C($P(BDMCUML(60,1),U,3)),?73,$$P($P(BDMCUML(60,1),U,3),$P(BDMCUML(60,1),U,2))
  • Line Location: PRINT1+26
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(60,2),U)
  • Line Location: PRINT1+27
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(70),U)
  • Line Location: PRINT1+30
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(70,1),U),?49,$$C($P(BDMCUML(70,1),U,2)),?61,$$C($P(BDMCUML(70,1),U,3)),?73,$$P($P(BDMCUML(70,1),U,3),$P(BDMCUML(70,1),U,2))
  • Line Location: PRINT1+31
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(80),U)
  • Line Location: PRINT1+34
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(80,1),U),?49,$$C($P(BDMCUML(80,1),U,2)),?61,$$C($P(BDMCUML(80,1),U,3)),?73,$$P($P(BDMCUML(80,1),U,3),$P(BDMCUML(80,1),U,2))
  • Line Location: PRINT1+35
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(90),U)
  • Line Location: PRINT1+38
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(90,1),U),?49,$$C($P(BDMCUML(90,1),U,2)),?61,$$C($P(BDMCUML(90,1),U,3)),?73,$$P($P(BDMCUML(90,1),U,3),$P(BDMCUML(90,1),U,2))
  • Line Location: PRINT1+39
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(100),U)
  • Line Location: IMM+3
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(100,1),U),?49,$$C($P(BDMCUML(100,1),U,2)),?61,$$C($P(BDMCUML(100,1),U,3)),?73,$$P($P(BDMCUML(100,1),U,3),$P(BDMCUML(100,1),U,2))
  • Line Location: IMM+4
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(110),U)
  • Line Location: IMM+7
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(110,1),U),?49,$$C($P(BDMCUML(110,1),U,2)),?61,$$C($P(BDMCUML(110,1),U,3)),?73,$$P($P(BDMCUML(110,1),U,3),$P(BDMCUML(110,1),U,2))
  • Line Location: IMM+8
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(120),U)
  • Line Location: IMM+11
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(120,1),U),?49,$$C($P(BDMCUML(120,1),U,2)),?61,$$C($P(BDMCUML(120,1),U,3)),?73,$$P($P(BDMCUML(120,1),U,3),$P(BDMCUML(120,1),U,2))
  • Line Location: IMM+12
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(130),U)
  • Line Location: IMM+15
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(130,1),U),?49,$$C($P(BDMCUML(130,1),U,2)),?61,$$C($P(BDMCUML(130,1),U,3)),?73,$$P($P(BDMCUML(130,1),U,3),$P(BDMCUML(130,1),U,2))
  • Line Location: IMM+16
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(140),U)
  • Line Location: LIPID+2
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(140,1),U),?49,$$C($P(BDMCUML(140,1),U,2)),?61,$$C($P(BDMCUML(140,1),U,3)),?73,$$P($P(BDMCUML(140,1),U,3),$P(BDMCUML(140,1),U,2))
  • Line Location: LIPID+3
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(140,2),U)
  • Line Location: LIPID+4
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(150),U)
  • Line Location: NUTR+2
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(150,1),U),?49,$$C($P(BDMCUML(150,1),U,2)),?61,$$C($P(BDMCUML(150,1),U,3)),?73,$$P($P(BDMCUML(150,1),U,3),$P(BDMCUML(150,1),U,2))
  • Line Location: NUTR+3
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(160),U)
  • Line Location: PHY+2
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(160,1),U),?49,$$C($P(BDMCUML(160,1),U,2)),?61,$$C($P(BDMCUML(160,1),U,3)),?73,$$P($P(BDMCUML(160,1),U,3),$P(BDMCUML(160,1),U,2))
  • Line Location: PHY+3
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(170),U)
  • Line Location: TOB+2
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(170,1),U),?49,$$C($P(BDMCUML(170,1),U,2)),?61,$$C($P(BDMCUML(170,1),U,3)),?73,$$P($P(BDMCUML(170,1),U,3),$P(BDMCUML(170,1),U,2))
  • Line Location: TOB+3
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(170,2),U)
  • Line Location: TOB+4
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(180),U)
  • Line Location: TB+2
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(180,1),U),?49,$$C($P(BDMCUML(180,1),U,2)),?61,$$C($P(BDMCUML(180,1),U,3)),?73,$$P($P(BDMCUML(180,1),U,3),$P(BDMCUML(180,1),U,2))
  • Line Location: TB+3
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+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BDMPG,!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,$$CTR("IHS DIABETES CARE AND OUTCOMES AUDIT REPORT - RPMS AUDIT",80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: $$CTR(BDMDHDR,80),!
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+11
Function Call: WRITE
  • Prompt: !,$$CTR(X,80),!
  • Line Location: HEADER1+12
Function Call: WRITE
  • Prompt: !,$$CTR(X),!
  • Line Location: HEADER1+13
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-"),!
  • Line Location: HEADER1+14
Function Call: WRITE
  • Prompt: ?45,"# of ",?57,"#",?70,"Percent",!
  • Line Location: HEADER1+15
Function Call: WRITE
  • Prompt: ?45,"Patients",?57,"Considered",!
  • Line Location: HEADER1+16
Function Call: WRITE
  • Prompt: ?45,"(Numerator)",?57,"(Denominator)",!
  • Line Location: HEADER1+17
Routine Call
  • DIR
  • Line Location:
    • EXIT+1
    • HEADER+3
    • EOP+5

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$C PRINT1+4, PRINT1+9, PRINT1+13, PRINT1+17, PRINT1+21, PRINT1+26, PRINT1+31, PRINT1+35, PRINT1+39, IMM+4
, IMM+8, IMM+12, IMM+16, LIPID+3, NUTR+3, PHY+3, TOB+3, TB+3
$$CTR HEADER1+6, HEADER1+9, HEADER1+11, HEADER1+13
$$P PRINT1+4, PRINT1+9, PRINT1+13, PRINT1+17, PRINT1+21, PRINT1+26, PRINT1+31, PRINT1+35, PRINT1+39, IMM+4
, IMM+8, IMM+12, IMM+16, LIPID+3, NUTR+3, PHY+3, TOB+3, TB+3
EXIT PRINT+5
HEADER PRINT+3, PRINT1+7, PRINT1+11, PRINT1+15, PRINT1+19, PRINT1+24, PRINT1+29, PRINT1+33, PRINT1+37, IMM+2
, IMM+6, IMM+10, IMM+14, LIPID+1, NUTR+1, PHY+1, TOB+1, TB+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+8
>> BDMBDAT HEADER1+8
>> BDMCUML(10 PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+6
>> BDMCUML(100 IMM+3, IMM+4
>> BDMCUML(110 IMM+7, IMM+8
>> BDMCUML(120 IMM+11, IMM+12
>> BDMCUML(130 IMM+15, IMM+16
>> BDMCUML(140 LIPID+2, LIPID+3, LIPID+4
>> BDMCUML(150 NUTR+2, NUTR+3
>> BDMCUML(160 PHY+2, PHY+3
>> BDMCUML(170 TOB+2, TOB+3, TOB+4
>> BDMCUML(180 TB+2, TB+3
>> BDMCUML(20 PRINT1+8, PRINT1+9, PRINT1+10, HEADER1+13
>> BDMCUML(30 PRINT1+12, PRINT1+13
>> BDMCUML(40 PRINT1+16, PRINT1+17
>> BDMCUML(50 PRINT1+20, PRINT1+21, PRINT1+22
>> BDMCUML(60 PRINT1+25, PRINT1+26, PRINT1+27
>> BDMCUML(70 PRINT1+30, PRINT1+31
>> BDMCUML(80 PRINT1+34, PRINT1+35
>> BDMCUML(90 PRINT1+38, PRINT1+39
BDMDHDR HEADER1+7~, HEADER1+8*, HEADER1+9
>> BDMDUZ2 HEADER1+11
>> BDMGUI HEADER1+3, HEADER1+4
>> BDMIOSL PRINT1+7, PRINT1+11, PRINT1+15, PRINT1+19, PRINT1+24, PRINT1+29, PRINT1+33, PRINT1+37, IMM+2, IMM+6
, IMM+10, IMM+14, LIPID+1, NUTR+1, PHY+1, TOB+1, TB+1
>> BDMNOGO PRINT1+1, PRINT1+2
>> BDMPG HEADER+1, HEADER1+1, HEADER1+2*, HEADER1+3, HEADER1+5
>> BDMQUIT PRINT+2*, PRINT1+7, PRINT1+11, PRINT1+15, PRINT1+19, PRINT1+24, PRINT1+29, PRINT1+33, PRINT1+37, IMM+2
, IMM+6, IMM+10, IMM+14, LIPID+1, NUTR+1, PHY+1, TOB+1, TB+1, HEADER+3*
D P~, P+1, P+3
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+5
DTOUT HEADER+3, EOP+4!
DUOUT EXIT+1, EOP+4!
DUZ HEADER1+5, USR+1
DUZ(2 HEADER1+11, LOC+1
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
U PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+12, PRINT1+13, PRINT1+16
, PRINT1+17, PRINT1+20, PRINT1+21, PRINT1+25, PRINT1+26, PRINT1+27, PRINT1+30, PRINT1+31, PRINT1+34, PRINT1+35
, PRINT1+38, PRINT1+39, IMM+3, IMM+4, IMM+7, IMM+8, IMM+11, IMM+12, IMM+15, IMM+16
, LIPID+2, LIPID+3, LIPID+4, NUTR+2, NUTR+3, PHY+2, PHY+3, TOB+2, TOB+3, TOB+4
, TB+2, TB+3, HEADER1+5, HEADER1+11, HEADER1+13, USR+1, LOC+1
X CALC+5~, CALC+6*, CALC+7*, P+3~*, P+4, C~, C+4, HEADER1+11*, HEADER1+13*, 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