Routine: BDMDG1U

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

Package	Total	Caller Graph
Diabetes Registry	1	BDMDG1P

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

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(95),U) Line Location: IMM+3
Function Call: WRITE	Prompt: !?5,$P(BDMCUML(95,1),U),?49,$$C($P(BDMCUML(95,1),U,2)),?61,$$C($P(BDMCUML(95,1),U,3)),?73,$$P($P(BDMCUML(95,1),U,3),$P(BDMCUML(95,1),U,2)) Line Location: IMM+4
Function Call: WRITE	Prompt: !!,$P(BDMCUML(100),U) Line Location: IMM+7
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+8
Function Call: WRITE	Prompt: !!,$P(BDMCUML(110),U) Line Location: IMM+11
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+12
Function Call: WRITE	Prompt: !!,$P(BDMCUML(120),U) Line Location: IMM+15
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+16
Function Call: WRITE	Prompt: !!,$P(BDMCUML(130),U) Line Location: IMM+19
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+20
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)),!?5,$P(BDMCUML(150,2),U,1) 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 - RPMS ",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

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

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, IMM+20, LIPID+3, NUTR+3, PHY+3, TOB+3, TB+3
$$CTR	HEADER1+6, HEADER1+9, HEADER1+11, HEADER1+12, 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, IMM+20, 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, IMM+18, LIPID+1, NUTR+1, PHY+1, TOB+1, TB+1
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+8
>> BDMBDAT	HEADER1+8
>> BDMCUML(10	PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+6
>> BDMCUML(100	IMM+7, IMM+8
>> BDMCUML(110	IMM+11, IMM+12
>> BDMCUML(120	IMM+15, IMM+16
>> BDMCUML(130	IMM+19, IMM+20
>> 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
>> BDMCUML(95	IMM+3, IMM+4
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, IMM+18, 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, IMM+18, 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 , IMM+19, IMM+20, 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+12, 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

Customize PDF page

Package: Diabetes Registry

Routine: BDMDG1U

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: