Routine: BDMDG1P

Package	Total	Call Graph
Diabetes Registry	5	($$LOCN,$$LOCT)^BDMDG10 CUML^BDMDG14 SDPI16^BDMDG1U QUALCHK^BDMDG1V $$DATE^BDMS9B1
IHS Patient	1	($$AGE,$$DOB)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$REPEAT,$$STRIP)^XLFSTR
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
N1
I(I)	;
ACPCRES()	;-- return result from UACR UPCR

External References

Name	Field # of Occurrence
$$AGE^AUPNPAT	BDMDG1P+172, BDMDG1P+175
$$DOB^AUPNPAT	BDMDG1P+17
$$LOCN^BDMDG10	N1
$$LOCT^BDMDG10	N1+2
CUML^BDMDG14	CUML+1
SDPI16^BDMDG1U	CUML+2
QUALCHK^BDMDG1V	CUML+3
$$DATE^BDMS9B1	BDMDG1P+12, BDMDG1P+13, BDMDG1P+17, BDMDG1P+124, BDMDG1P+150, PAGE+7, PAGE+8
^DIR	N1+3, PAGE+2
$$VAL^XBDIQ1	BDMDG1P+150
$$REPEAT^XLFSTR	PAGE+11
$$STRIP^XLFSTR	BDMDG1P+45

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ZZZZZZZ",! Line Location: BDMDG1P+9
Function Call: WRITE	Prompt: !! Condition for execution: $G(BDMGUI) Line Location: BDMDG1P+12
Function Call: WRITE	Prompt: $$CTR("Individual Diabetes Audit, 2019 DATE AUDIT RUN: "_$$DATE^BDMS9B1(DT)_" Page: "_BDMPG,80) Line Location: BDMDG1P+12
Function Call: WRITE	Prompt: !,$$I(26.5),!,$$I(26.6) Line Location: BDMDG1P+22
Function Call: WRITE	Prompt: $S($P(%,U,1)=3:"2 No",1:"1 Yes") Line Location: BDMDG1P+30
Function Call: WRITE	Prompt: $$I(28) Line Location: BDMDG1P+34
Function Call: WRITE	Prompt: !?10 Condition for execution: $E(Y)=1 Line Location: BDMDG1P+37
Function Call: WRITE	Prompt: Y," ",$S(Y=1:"Yes",1:"No")," ",$P($$I(31),U,3) Line Location: BDMDG1P+37
Function Call: WRITE	Prompt: $S(Y=1:"1 Current user",Y=2:"2 Not a current user",Y=3:"3 Not Documented",1:"")," ",$P($$I(33),U,3) Line Location: BDMDG1P+39
Function Call: WRITE	Prompt: ?38,$$I(40) Line Location: BDMDG1P+60
Function Call: WRITE	Prompt: !?10 Condition for execution: $E($$I(210))=1 Line Location: BDMDG1P+68
Function Call: WRITE	Prompt: $$I(210) Line Location: BDMDG1P+68
Function Call: WRITE	Prompt: !?10,$P($$I(44),U,2) Line Location: BDMDG1P+72
Function Call: WRITE	Prompt: !?10 Condition for execution: $E($$I(60),1)=1 Line Location: BDMDG1P+94
Function Call: WRITE	Prompt: $$I(60) Line Location: BDMDG1P+94
Function Call: WRITE	Prompt: !?10 Condition for execution: $E($$I(300))=1 Line Location: BDMDG1P+112
Function Call: WRITE	Prompt: $$I(300) Line Location: BDMDG1P+112
Function Call: WRITE	Prompt: !?4,"If 'No', screened for HCV at least once (ever): " Line Location: BDMDG1P+128
Function Call: WRITE	Prompt: !?10 Condition for execution: $E($$I(223))=1 Line Location: BDMDG1P+128
Function Call: WRITE	Prompt: $$I(223) Line Location: BDMDG1P+128
Function Call: WRITE	Prompt: ?28,$P($$I(92),U,2)_" "_$P($$I(92),U,12),?43,$P($$I(92),U,3),?55,$E($P($$I(92),U,4),1,19) Line Location: BDMDG1P+169
Function Call: WRITE	Prompt: !?5,"This is only calculated for patients 40 years of age and older without,",!,"a statin allegry or intolerance." Line Location: BDMDG1P+172
Function Call: WRITE	Prompt: !?5,$P($$I(118),U,1) Line Location: BDMDG1P+173
Function Call: WRITE	Prompt: !! Line Location: N1+3
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Function Call: WRITE	Prompt: !,"ZZZZZZZ",! Line Location: PAGE+4
Function Call: WRITE	Prompt: !! Line Location: PAGE+5
Function Call: WRITE	Prompt: $$CTR("ASSESSMENT OF DIABETES CARE, 2019 DATE AUDIT RUN: "_$$DATE^BDMS9B1(DT)_" Page: "_BDMPG,80) Line Location: PAGE+7
Function Call: WRITE	Prompt: !,"Audit Period Ending Date: ",$$DATE^BDMS9B1(BDMRED) Line Location: PAGE+8
Function Call: WRITE	Prompt: !,$S($G(BDMPPN):"NAME: "_$P($G(^DPT(BDMPD,0)),U),1:"") Line Location: PAGE+9
Function Call: WRITE	Prompt: ?J,"CHART #: ",$$I(16)," DOB: ",$$I(18)," SEX: ",$$I(20) Line Location: PAGE+10
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: PAGE+11
Routine Call	DIR Line Location: N1+3 PAGE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	BDMDG1P+13
^DPT - [#2]	BDMDG1P+16, PAGE+9
^TMP($J	DONE+1!
^XTMP("BDMDM19"	BDMDG1P+8, BDMDG1P+172, DONE+3!, I+1
^XTMP("BDMTAX"	DONE+2!

Label References

Name	Line Occurrences
$$CTR	BDMDG1P+12, PAGE+7
$$I	BDMDG1P+14, BDMDG1P+15, BDMDG1P+17, BDMDG1P+18, BDMDG1P+20, BDMDG1P+22, BDMDG1P+24, BDMDG1P+26, BDMDG1P+30, BDMDG1P+32 , BDMDG1P+34, BDMDG1P+37, BDMDG1P+39, BDMDG1P+42, BDMDG1P+45, BDMDG1P+46, BDMDG1P+48, BDMDG1P+50, BDMDG1P+52, BDMDG1P+54 , BDMDG1P+58, BDMDG1P+60, BDMDG1P+62, BDMDG1P+66, BDMDG1P+68, BDMDG1P+72, BDMDG1P+74, BDMDG1P+76, BDMDG1P+80, BDMDG1P+81 , BDMDG1P+82, BDMDG1P+83, BDMDG1P+84, BDMDG1P+85, BDMDG1P+86, BDMDG1P+87, BDMDG1P+88, BDMDG1P+89, BDMDG1P+90, BDMDG1P+91 , BDMDG1P+92, BDMDG1P+94, BDMDG1P+103, BDMDG1P+112, BDMDG1P+114, BDMDG1P+118, BDMDG1P+120, BDMDG1P+122, BDMDG1P+124, BDMDG1P+127 , BDMDG1P+128, BDMDG1P+131, BDMDG1P+134, BDMDG1P+138, BDMDG1P+140, BDMDG1P+142, BDMDG1P+144, BDMDG1P+146, BDMDG1P+150, BDMDG1P+151 , BDMDG1P+153, BDMDG1P+155, BDMDG1P+159, BDMDG1P+161, BDMDG1P+163, BDMDG1P+166, BDMDG1P+169, BDMDG1P+173, BDMDG1P+176, PAGE+10 , ACPCOQ+1, ACPCOQ+2, ACPCOQ+3, ACPCRES+1, ACPCRES+2, QUANCHK+1, QUANCHK+2, QUANCHK+3
CUML	BDMDG1P+5, BDMDG1P+6
N1	BDMDG1P+175
PAGE	BDMDG1P+21, BDMDG1P+23, BDMDG1P+25, BDMDG1P+27, BDMDG1P+29, BDMDG1P+31, BDMDG1P+33, BDMDG1P+35, BDMDG1P+38, BDMDG1P+40 , BDMDG1P+44, BDMDG1P+47, BDMDG1P+49, BDMDG1P+51, BDMDG1P+53, BDMDG1P+55, BDMDG1P+57, BDMDG1P+59, BDMDG1P+61, BDMDG1P+63 , BDMDG1P+65, BDMDG1P+67, BDMDG1P+69, BDMDG1P+71, BDMDG1P+73, BDMDG1P+75, BDMDG1P+77, BDMDG1P+93, BDMDG1P+95, BDMDG1P+101 , BDMDG1P+104, BDMDG1P+110, BDMDG1P+115, BDMDG1P+117, BDMDG1P+119, BDMDG1P+121, BDMDG1P+123, BDMDG1P+125, BDMDG1P+129, BDMDG1P+132 , BDMDG1P+135, BDMDG1P+137, BDMDG1P+139, BDMDG1P+141, BDMDG1P+143, BDMDG1P+145, BDMDG1P+147, BDMDG1P+149, BDMDG1P+152, BDMDG1P+154 , BDMDG1P+158, BDMDG1P+160, BDMDG1P+162, BDMDG1P+168, BDMDG1P+170, BDMDG1P+174, BDMDG1P+177

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMDG1P+30, BDMDG1P+45, BDMDG1P+46
>> BDMADAT	BDMDG1P+172, BDMDG1P+175
BDMBTH	BDMDG1P+8, BDMDG1P+172, DONE+2, DONE+3!, I+1
>> BDMDMRG	N1, N1+2
>> BDMDSP	PAGE+1, PAGE+4
>> BDMDUZ2	BDMDG1P+13
>> BDMGUI	BDMDG1P+4, BDMDG1P+9, BDMDG1P+12, BDMDG1P+177, PAGE+4, PAGE+5
>> BDMGUIC	BDMDG1P+8, BDMDG1P+9, BDMDG1P+10, BDMDG1P+11, PAGE+4
>> BDMIOSL	BDMDG1P+4*, BDMDG1P+21, BDMDG1P+23, BDMDG1P+25, BDMDG1P+27, BDMDG1P+29, BDMDG1P+31, BDMDG1P+33, BDMDG1P+35, BDMDG1P+38 , BDMDG1P+40, BDMDG1P+44, BDMDG1P+47, BDMDG1P+49, BDMDG1P+51, BDMDG1P+53, BDMDG1P+55, BDMDG1P+57, BDMDG1P+59, BDMDG1P+61 , BDMDG1P+63, BDMDG1P+65, BDMDG1P+67, BDMDG1P+69, BDMDG1P+71, BDMDG1P+73, BDMDG1P+75, BDMDG1P+77, BDMDG1P+93, BDMDG1P+101 , BDMDG1P+110, BDMDG1P+115, BDMDG1P+117, BDMDG1P+119, BDMDG1P+121, BDMDG1P+123, BDMDG1P+125, BDMDG1P+129, BDMDG1P+132, BDMDG1P+135 , BDMDG1P+137, BDMDG1P+139, BDMDG1P+141, BDMDG1P+143, BDMDG1P+145, BDMDG1P+147, BDMDG1P+149, BDMDG1P+152, BDMDG1P+154, BDMDG1P+158 , BDMDG1P+160, BDMDG1P+162, BDMDG1P+168, BDMDG1P+170, BDMDG1P+174, BDMDG1P+177
BDMJOB	BDMDG1P+8, BDMDG1P+172, DONE+2, DONE+3!, I+1
>> BDMPD	BDMDG1P+8*, BDMDG1P+16, BDMDG1P+17, BDMDG1P+172, BDMDG1P+175, N1, N1+2, I+1, PAGE+9
>> BDMPG	BDMDG1P+4, BDMDG1P+12, PAGE+3, PAGE+6*, PAGE+7
>> BDMPPN	BDMDG1P+16, PAGE+9
>> BDMPREP	BDMDG1P+5, BDMDG1P+6, CUML+1, CUML+2, CUML+3
>> BDMQUIT	BDMDG1P+4, BDMDG1P+8, BDMDG1P+21, BDMDG1P+23, BDMDG1P+25, BDMDG1P+27, BDMDG1P+29, BDMDG1P+31, BDMDG1P+33, BDMDG1P+35 , BDMDG1P+38, BDMDG1P+40, BDMDG1P+44, BDMDG1P+47, BDMDG1P+49, BDMDG1P+51, BDMDG1P+53, BDMDG1P+55, BDMDG1P+57, BDMDG1P+59 , BDMDG1P+61, BDMDG1P+63, BDMDG1P+65, BDMDG1P+67, BDMDG1P+69, BDMDG1P+71, BDMDG1P+73, BDMDG1P+75, BDMDG1P+77, BDMDG1P+93 , BDMDG1P+95, BDMDG1P+101, BDMDG1P+104, BDMDG1P+110, BDMDG1P+115, BDMDG1P+117, BDMDG1P+119, BDMDG1P+121, BDMDG1P+123, BDMDG1P+125 , BDMDG1P+129, BDMDG1P+132, BDMDG1P+135, BDMDG1P+137, BDMDG1P+139, BDMDG1P+141, BDMDG1P+143, BDMDG1P+145, BDMDG1P+147, BDMDG1P+149 , BDMDG1P+152, BDMDG1P+154, BDMDG1P+158, BDMDG1P+160, BDMDG1P+162, BDMDG1P+168, BDMDG1P+170, BDMDG1P+174, BDMDG1P+177, PAGE+2
>> BDMRED	BDMDG1P+13, PAGE+8
>> BDMUTT	BDMDG1P+166*, BDMDG1P+169
DIR	N1+3!, PAGE+2!
DIR(0	N1+3, PAGE+2
DT	BDMDG1P+12, PAGE+7
>> DTOUT	PAGE+2
DUZ(2	BDMDG1P+13
I	I~, I+1
IO	PAGE+2
IO(0	PAGE+2
IOF	BDMDG1P+10, PAGE+3
IOM	CTR+1
IOSL	BDMDG1P+4, BDMDG1P+95, BDMDG1P+104
IOST	N1+3, PAGE+2
>> J	BDMDG1P+16, BDMDG1P+17, PAGE+9, PAGE+10
U	BDMDG1P+13, BDMDG1P+15, BDMDG1P+16, BDMDG1P+30, BDMDG1P+32, BDMDG1P+37, BDMDG1P+39, BDMDG1P+72, BDMDG1P+86, BDMDG1P+90 , BDMDG1P+91, BDMDG1P+92, BDMDG1P+122, BDMDG1P+150, BDMDG1P+151, BDMDG1P+153, BDMDG1P+155, BDMDG1P+159, BDMDG1P+161, BDMDG1P+163 , BDMDG1P+166, BDMDG1P+169, BDMDG1P+173, BDMDG1P+176, PAGE+9, ACPCOQ+1, ACPCOQ+2, ACPCOQ+3, ACPCRES+1, ACPCRES+2 , QUANCHK+1, QUANCHK+2
X	BDMDG1P+42*, BDMDG1P+43, CTR~, CTR+1
Y	BDMDG1P+37, BDMDG1P+39, PAGE+2, CTR~, CTR+1

Customize PDF page

Package: Diabetes Registry

Routine: BDMDG1P

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: