Routine: BDMD91P

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT ($$REPEAT,$$STRIP)^XLFSTR
Diabetes Registry	1	CUML^BDMD914
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
CUML	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PAGE	;
ACPCOQ()	;-- return none if no UACR, UPCR, Quant
DONE	;
QUANCHK()	;--check quantitative
I(I)	;
ACPCRES()	;-- return result from UACR UPCR

External References

Name	Field # of Occurrence
CUML^BDMD914	CUML+1
^DIR	BDMD91P+155, PAGE+1
$$VAL^XBDIQ1	BDMD91P+101
$$FMTE^XLFDT	BDMD91P+11, BDMD91P+12, BDMD91P+95, BDMD91P+101, PAGE+4, PAGE+5
$$REPEAT^XLFSTR	PAGE+8
$$STRIP^XLFSTR	BDMD91P+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ZZZZZZZ",! Line Location: BDMD91P+8
Function Call: WRITE	Prompt: $$CTR("ASSESSMENT OF DIABETES CARE, 2009 DATE AUDIT RUN: "_$$FMTE^XLFDT(DT)_" Page: "_BDMPG,80) Line Location: BDMD91P+11
Function Call: WRITE	Prompt: !,"Does your community receive SDPI grant funds? "_$S(BDMSDPI=1:"Yes",BDMSDPI=2:"No",BDMSDPI=3:"Don't know",1:"") Line Location: BDMD91P+15
Function Call: WRITE	Prompt: " ",BDMSDPG Line Location: BDMD91P+16
Function Call: WRITE	Prompt: !,$$I(26.5),!,$$I(26.6) Line Location: BDMD91P+25
Function Call: WRITE	Prompt: !?4,$$I(28) Line Location: BDMD91P+34
Function Call: WRITE	Prompt: " ",$P($$I(57),U,2) Line Location: BDMD91P+75
Function Call: WRITE	Prompt: ?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19) Line Location: BDMD91P+124
Function Call: WRITE	Prompt: !?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19) Line Location: BDMD91P+128
Function Call: WRITE	Prompt: !?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19) Line Location: BDMD91P+132
Function Call: WRITE	Prompt: !?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19) Line Location: BDMD91P+136
Function Call: WRITE	Prompt: !?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19) Line Location: BDMD91P+140
Function Call: WRITE	Prompt: !?28,$P($$I(92),U,2),?43,$P($$I(92),U,3),?60,$E($P($$I(92),U,4),1,19) Line Location: BDMD91P+144
Function Call: WRITE	Prompt: !! Line Location: BDMD91P+155
Function Call: WRITE	Prompt: ! Line Location: PAGE+1
Function Call: WRITE	Prompt: $$CTR("ASSESSMENT OF DIABETES CARE, 2009 DATE AUDIT RUN: "_$$FMTE^XLFDT(DT)_" Page: "_BDMPG,80) Line Location: PAGE+4
Function Call: WRITE	Prompt: !,"Audit Period Ending Date: ",$$FMTE^XLFDT(BDMRED) Line Location: PAGE+5
Function Call: WRITE	Prompt: !,$S($G(BDMPPN):"NAME: "_$P($G(^DPT(BDMPD,0)),U),1:"") Line Location: PAGE+6
Function Call: WRITE	Prompt: ?J,"CHART #: ",$$I(16)," DOB: ",$$I(18)," SEX: ",$$I(20) Line Location: PAGE+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: PAGE+8
Routine Call	DIR Line Location: BDMD91P+155 PAGE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	BDMD91P+13
^DPT - [#2]	BDMD91P+19, PAGE+6
^TMP($J	DONE+1!
^XTMP("BDMDM91"	BDMD91P+7, DONE+2!, I+1

Label References

Name	Line Occurrences
$$CTR	BDMD91P+11, PAGE+4
$$I	BDMD91P+13, BDMD91P+14, BDMD91P+17, BDMD91P+18, BDMD91P+20, BDMD91P+21, BDMD91P+23, BDMD91P+25, BDMD91P+27, BDMD91P+29 , BDMD91P+31, BDMD91P+34, BDMD91P+36, BDMD91P+38, BDMD91P+39, BDMD91P+41, BDMD91P+43, BDMD91P+45, BDMD91P+47, BDMD91P+51 , BDMD91P+53, BDMD91P+55, BDMD91P+59, BDMD91P+61, BDMD91P+63, BDMD91P+66, BDMD91P+67, BDMD91P+68, BDMD91P+69, BDMD91P+70 , BDMD91P+71, BDMD91P+72, BDMD91P+73, BDMD91P+74, BDMD91P+75, BDMD91P+77, BDMD91P+79, BDMD91P+81, BDMD91P+85, BDMD91P+87 , BDMD91P+89, BDMD91P+91, BDMD91P+93, BDMD91P+95, BDMD91P+97, BDMD91P+101, BDMD91P+103, BDMD91P+105, BDMD91P+106, BDMD91P+107 , BDMD91P+109, BDMD91P+111, BDMD91P+113, BDMD91P+117, BDMD91P+121, BDMD91P+124, BDMD91P+128, BDMD91P+132, BDMD91P+136, BDMD91P+140 , BDMD91P+144, BDMD91P+149, BDMD91P+152, PAGE+7, ACPCOQ+1, ACPCOQ+2, ACPCOQ+3, ACPCRES+1, ACPCRES+2, QUANCHK+1 , QUANCHK+2, QUANCHK+3
CUML	BDMD91P+5
PAGE	BDMD91P+24, BDMD91P+26, BDMD91P+28, BDMD91P+30, BDMD91P+32, BDMD91P+35, BDMD91P+37, BDMD91P+40, BDMD91P+42, BDMD91P+44 , BDMD91P+46, BDMD91P+48, BDMD91P+50, BDMD91P+52, BDMD91P+54, BDMD91P+56, BDMD91P+58, BDMD91P+60, BDMD91P+62, BDMD91P+64 , BDMD91P+76, BDMD91P+78, BDMD91P+80, BDMD91P+82, BDMD91P+84, BDMD91P+86, BDMD91P+88, BDMD91P+90, BDMD91P+92, BDMD91P+94 , BDMD91P+96, BDMD91P+98, BDMD91P+100, BDMD91P+102, BDMD91P+104, BDMD91P+108, BDMD91P+110, BDMD91P+112, BDMD91P+114, BDMD91P+116 , BDMD91P+118, BDMD91P+120, BDMD91P+123, BDMD91P+125, BDMD91P+127, BDMD91P+129, BDMD91P+131, BDMD91P+133, BDMD91P+135, BDMD91P+137 , BDMD91P+139, BDMD91P+141, BDMD91P+143, BDMD91P+145, BDMD91P+147, BDMD91P+150, BDMD91P+153

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMD91P+38*, BDMD91P+39
BDMBTH	BDMD91P+7, DONE+2!, I+1
>> BDMDUZ2	BDMD91P+13
>> BDMGUI	BDMD91P+4, BDMD91P+8
>> BDMGUIC	BDMD91P+7, BDMD91P+8, BDMD91P+9
>> BDMIOSL	BDMD91P+4*, BDMD91P+24, BDMD91P+26, BDMD91P+28, BDMD91P+30, BDMD91P+32, BDMD91P+35, BDMD91P+37, BDMD91P+40, BDMD91P+42 , BDMD91P+44, BDMD91P+46, BDMD91P+48, BDMD91P+50, BDMD91P+52, BDMD91P+54, BDMD91P+56, BDMD91P+58, BDMD91P+60, BDMD91P+62 , BDMD91P+64, BDMD91P+76, BDMD91P+78, BDMD91P+80, BDMD91P+82, BDMD91P+84, BDMD91P+86, BDMD91P+88, BDMD91P+90, BDMD91P+92 , BDMD91P+94, BDMD91P+96, BDMD91P+98, BDMD91P+100, BDMD91P+102, BDMD91P+104, BDMD91P+108, BDMD91P+110, BDMD91P+112, BDMD91P+114 , BDMD91P+116, BDMD91P+118, BDMD91P+120, BDMD91P+123, BDMD91P+125, BDMD91P+127, BDMD91P+129, BDMD91P+131, BDMD91P+133, BDMD91P+135 , BDMD91P+137, BDMD91P+139, BDMD91P+141, BDMD91P+143, BDMD91P+145, BDMD91P+147, BDMD91P+150, BDMD91P+153
BDMJOB	BDMD91P+7, DONE+2!, I+1
>> BDMPD	BDMD91P+7*, BDMD91P+19, I+1, PAGE+6
>> BDMPG	BDMD91P+4, BDMD91P+11, PAGE+3*, PAGE+4
>> BDMPPN	BDMD91P+19, PAGE+6
>> BDMPREP	BDMD91P+5, CUML+1
>> BDMQUIT	BDMD91P+4, BDMD91P+7, BDMD91P+24, BDMD91P+26, BDMD91P+28, BDMD91P+30, BDMD91P+32, BDMD91P+35, BDMD91P+37, BDMD91P+40 , BDMD91P+42, BDMD91P+44, BDMD91P+46, BDMD91P+48, BDMD91P+50, BDMD91P+52, BDMD91P+54, BDMD91P+56, BDMD91P+58, BDMD91P+60 , BDMD91P+62, BDMD91P+64, BDMD91P+76, BDMD91P+78, BDMD91P+80, BDMD91P+82, BDMD91P+84, BDMD91P+86, BDMD91P+88, BDMD91P+90 , BDMD91P+92, BDMD91P+94, BDMD91P+96, BDMD91P+98, BDMD91P+100, BDMD91P+102, BDMD91P+104, BDMD91P+108, BDMD91P+110, BDMD91P+112 , BDMD91P+114, BDMD91P+116, BDMD91P+118, BDMD91P+120, BDMD91P+123, BDMD91P+125, BDMD91P+127, BDMD91P+129, BDMD91P+131, BDMD91P+133 , BDMD91P+135, BDMD91P+137, BDMD91P+139, BDMD91P+141, BDMD91P+143, BDMD91P+145, BDMD91P+147, BDMD91P+150, BDMD91P+153, PAGE+1
>> BDMRED	BDMD91P+12, PAGE+5
>> BDMSDPG	BDMD91P+16
>> BDMSDPI	BDMD91P+15, BDMD91P+16
>> BDMUTT	BDMD91P+121*, BDMD91P+122, BDMD91P+124, BDMD91P+126, BDMD91P+128, BDMD91P+130, BDMD91P+132, BDMD91P+134, BDMD91P+136, BDMD91P+138 , BDMD91P+140, BDMD91P+142, BDMD91P+144
DIR	BDMD91P+155!, PAGE+1!
DIR(0	BDMD91P+155, PAGE+1
DT	BDMD91P+11, PAGE+4
>> DTOUT	PAGE+1
DUZ(2	BDMD91P+13
I	I~, I+1
IO	PAGE+1
IO(0	PAGE+1
IOF	BDMD91P+10, PAGE+2
IOM	CTR+1
IOSL	BDMD91P+4
IOST	BDMD91P+155, PAGE+1
>> J	BDMD91P+19, BDMD91P+20, PAGE+6, PAGE+7
U	BDMD91P+13, BDMD91P+18, BDMD91P+19, BDMD91P+74, BDMD91P+75, BDMD91P+93, BDMD91P+101, BDMD91P+103, BDMD91P+105, BDMD91P+106 , BDMD91P+107, BDMD91P+109, BDMD91P+111, BDMD91P+113, BDMD91P+117, BDMD91P+121, BDMD91P+124, BDMD91P+128, BDMD91P+132, BDMD91P+136 , BDMD91P+140, BDMD91P+144, PAGE+6, ACPCOQ+1, ACPCOQ+2, ACPCOQ+3, ACPCRES+1, ACPCRES+2, QUANCHK+1, QUANCHK+2
X	CTR~, CTR+1
Y	PAGE+1, CTR~, CTR+1

Customize PDF page

Package: Diabetes Registry

Routine: BDMD91P

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: