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

Package: Diabetes Registry

Routine: BDMDC1Q


Information

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

Source Information

Source file <BDMDC1Q.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 BDMDC1P  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
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.
P(D,N) ;return %
PRINT ;
USR() ;EP - Return name of current user from ^VA(200.
HEADER1 ;
EXIT ;
C(X,X2,X3) ;
CALC(N,O) ;ENTRY POINT
SDPI ;EP

External References

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

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)
  • 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),?49,$$C($P(BDMCUML(10,3),U,2)),?61,$$C($P(BDMCUML(10,3),U,3)),?73,$$P($P(BDMCUML(10,3),U,3),$P(BDMCUML(10,3),U,2))
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(10,4),U)
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(10,5),U),?49,$$C($P(BDMCUML(10,5),U,2)),?61,$$C($P(BDMCUML(10,5),U,3)),?73,$$P($P(BDMCUML(10,5),U,3),$P(BDMCUML(10,5),U,2))
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(20),U)
  • Line Location: PRINT1+10
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+11
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(20,2),U),?49,$$C($P(BDMCUML(20,2),U,2)),?61,$$C($P(BDMCUML(20,2),U,3)),?73,$$P($P(BDMCUML(20,2),U,3),$P(BDMCUML(20,2),U,2))
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(20,3),U),?49,$$C($P(BDMCUML(20,3),U,2)),?61,$$C($P(BDMCUML(20,3),U,3)),?73,$$P($P(BDMCUML(20,3),U,3),$P(BDMCUML(20,3),U,2))
  • Line Location: PRINT1+13
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(30),U)
  • Line Location: PRINT1+15
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(30,1),U)
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(30,2),U),?49,$$C($P(BDMCUML(30,2),U,2)),?61,$$C($P(BDMCUML(30,2),U,3)),?73,$$P($P(BDMCUML(30,2),U,3),$P(BDMCUML(30,2),U,2))
  • Line Location: PRINT1+17
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(40),U)
  • Line Location: PRINT1+19
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+20
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(50),U)
  • Line Location: PRINT1+22
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+23
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),?49,$$C($P(BDMCUML(60,2),U,2)),?61,$$C($P(BDMCUML(60,2),U,3)),?73,$$P($P(BDMCUML(60,2),U,3),$P(BDMCUML(60,2),U,2))
  • Line Location: PRINT1+27
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(70),U)
  • Line Location: PRINT1+29
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+30
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(80),U)
  • Line Location: PRINT1+32
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(80,1),U)
  • Line Location: PRINT1+33
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(80,2),U),?49,$$C($P(BDMCUML(80,2),U,2)),?61,$$C($P(BDMCUML(80,2),U,3)),?73,$$P($P(BDMCUML(80,2),U,3),$P(BDMCUML(80,2),U,2))
  • Line Location: PRINT1+34
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(80,3),U),?49,$$C($P(BDMCUML(80,3),U,2)),?61,$$C($P(BDMCUML(80,3),U,3)),?73,$$P($P(BDMCUML(80,3),U,3),$P(BDMCUML(80,3),U,2))
  • Line Location: PRINT1+35
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(80,4),U)
  • Line Location: PRINT1+36
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(80,5),U),?49,$$C($P(BDMCUML(80,5),U,2)),?61,$$C($P(BDMCUML(80,5),U,3)),?73,$$P($P(BDMCUML(80,5),U,3),$P(BDMCUML(80,5),U,2))
  • Line Location: PRINT1+37
Function Call: WRITE
  • Prompt: !!,$P(BDMCUML(90),U)
  • Line Location: PRINT1+39
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+40
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(90,2),U),?49,$$C($P(BDMCUML(90,2),U,2)),?61,$$C($P(BDMCUML(90,2),U,3)),?73,$$P($P(BDMCUML(90,2),U,3),$P(BDMCUML(90,2),U,2))
  • Line Location: PRINT1+41
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(90,3),U),?49,$$C($P(BDMCUML(90,3),U,2)),?61,$$C($P(BDMCUML(90,3),U,3)),?73,$$P($P(BDMCUML(90,3),U,3),$P(BDMCUML(90,3),U,2))
  • Line Location: PRINT1+42
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(90,4),U),?49,$$C($P(BDMCUML(90,4),U,2)),?61,$$C($P(BDMCUML(90,4),U,3)),?73,$$P($P(BDMCUML(90,4),U,3),$P(BDMCUML(90,4),U,2))
  • Line Location: PRINT1+43
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(90,5),U)
  • Line Location: PRINT1+44
Function Call: WRITE
  • Prompt: !?5,$P(BDMCUML(90,6),U),?49,$$C($P(BDMCUML(90,6),U,2)),?61,$$C($P(BDMCUML(90,6),U,3)),?73,$$P($P(BDMCUML(90,6),U,3),$P(BDMCUML(90,6),U,2))
  • Line Location: PRINT1+45
Function Call: WRITE
  • Prompt: !!,"* Selected patients could be people with or without diabetes, the target "
  • Line Location: PRINT1+47
Function Call: WRITE
  • Prompt: !,"group for SDPI activities, or whatever group of people is relevant for "
  • Line Location: PRINT1+48
Function Call: WRITE
  • Prompt: !,"reporting purposes."
  • Line Location: PRINT1+49
Function Call: WRITE
  • Prompt: !,"**This item is only reported for patients without an active diagnosis "
  • Line Location: PRINT1+50
Function Call: WRITE
  • Prompt: !,"of depression, not all selected patients.",!
  • Line Location: PRINT1+51
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,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

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+6, PRINT1+8, PRINT1+11, PRINT1+12, PRINT1+13, PRINT1+17, PRINT1+20, PRINT1+23, PRINT1+26, PRINT1+27
, PRINT1+30, PRINT1+34, PRINT1+35, PRINT1+37, PRINT1+40, PRINT1+41, PRINT1+42, PRINT1+43, PRINT1+45
$$CTR HEADER1+5, HEADER1+8, HEADER1+10, HEADER1+12
$$P PRINT1+6, PRINT1+8, PRINT1+11, PRINT1+12, PRINT1+13, PRINT1+17, PRINT1+20, PRINT1+23, PRINT1+26, PRINT1+27
, PRINT1+30, PRINT1+34, PRINT1+35, PRINT1+37, PRINT1+40, PRINT1+41, PRINT1+42, PRINT1+43, PRINT1+45
EXIT PRINT+5
HEADER PRINT+3, PRINT1+9, PRINT1+14, PRINT1+18, PRINT1+21, PRINT1+24, PRINT1+28, PRINT1+31, PRINT1+38, PRINT1+46
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(10 PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, HEADER1+12
>> BDMCUML(20 PRINT1+10, PRINT1+11, PRINT1+12, PRINT1+13
>> BDMCUML(30 PRINT1+15, PRINT1+16, PRINT1+17
>> BDMCUML(40 PRINT1+19, PRINT1+20
>> BDMCUML(50 PRINT1+22, PRINT1+23
>> BDMCUML(60 PRINT1+25, PRINT1+26, PRINT1+27
>> BDMCUML(70 PRINT1+29, PRINT1+30
>> BDMCUML(80 PRINT1+32, PRINT1+33, PRINT1+34, PRINT1+35, PRINT1+36, PRINT1+37
>> BDMCUML(90 PRINT1+39, PRINT1+40, PRINT1+41, PRINT1+42, PRINT1+43, PRINT1+44, PRINT1+45
BDMDHDR HEADER1+6~, HEADER1+7*, HEADER1+8
>> BDMDUZ2 HEADER1+10
>> BDMGUI HEADER1+2, HEADER1+3
>> BDMIOSL PRINT1+9, PRINT1+14, PRINT1+18, PRINT1+21, PRINT1+24, PRINT1+28, PRINT1+31, PRINT1+38, PRINT1+46
>> BDMNOGO PRINT1+1, PRINT1+2
>> BDMPG HEADER+1, HEADER1+1*, HEADER1+2, HEADER1+4
>> BDMQUIT PRINT+2*, PRINT1+9, PRINT1+14, PRINT1+18, PRINT1+21, PRINT1+24, PRINT1+28, PRINT1+31, PRINT1+38, PRINT1+46
, 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+4
DTOUT HEADER+3, EOP+4!
DUOUT EXIT+1, EOP+4!
DUZ HEADER1+4, USR+1
DUZ(2 HEADER1+10, 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+7, PRINT1+8, PRINT1+10, PRINT1+11, PRINT1+12, PRINT1+13
, PRINT1+15, PRINT1+16, PRINT1+17, PRINT1+19, PRINT1+20, PRINT1+22, PRINT1+23, PRINT1+25, PRINT1+26, PRINT1+27
, PRINT1+29, PRINT1+30, PRINT1+32, PRINT1+33, PRINT1+34, PRINT1+35, PRINT1+36, PRINT1+37, PRINT1+39, PRINT1+40
, PRINT1+41, PRINT1+42, PRINT1+43, PRINT1+44, PRINT1+45, HEADER1+4, HEADER1+10, HEADER1+12, USR+1, LOC+1
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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All