Routine: BDMS9B1

Information

BDMS9B1 ; IHS/CMI/LAB - DIABETIC CARE SUMMARY SUPPLEMENT 12 Jan 2011 12:27 PM ; [ 12 Jan 2011 12:27 PM ]

Source Information

Source file <BDMS9B1.m>

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
Diabetes Registry	10	$$AGE^BDMAPIU $$CESS^BDMDG11 ($$CVD,$$DEPDX,$$DEPSCR)^BDMDG12 ($$STATIN,$$TYPE)^BDMDG16 ($$DENTAL,$$DFE,$$EYE)^BDMDG17 $$TOBACCO^BDMDG1T ($$LE,MORE)^BDMS9B2 ($$ACE,$$ASPREF,$$CMSFDX,$$CMSFDXR,$$PLDMDOO)^BDMS9B4 $$LASTHF^BDMSMU ($$CODEN,$$ICD,$$ICDDX,$$SNOMED)^BDMUTL
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBNEW
Kernel	2	$$FMADD^XLFDT ($$STRIP,$$UP)^XLFSTR
Patient Care Component Reports	2	$$START1^APCLDF $$CLINIC^APCLV
VA Fileman	2	^%DT ^DIR
IHS Designated Provider	1	ALLDP^BDPAPI
IHS Patient	1	($$AGE,$$DOB,$$DOD,$$HRN)^AUPNPAT

Caller Graph

Caller Graph Total: 92

Package	Total	Caller Graph
Diabetes Registry	89	BDMAPIU BDMD112 BDMD117 BDMD412 BDMD417 BDMDA12 BDMDA17 BDMDB12 BDMDB14 BDMDB17 BDMDC12 BDMDC13 BDMDC14 BDMDC16 BDMDC17 BDMDC1B BDMDC1Q BDMDD11 BDMDD12 BDMDD13 BDMDD14 BDMDD16 BDMDD17 BDMDD18 BDMDD1B BDMDD1C BDMDD1H BDMDD1P BDMDD1Q BDMDD1T BDMDD1U BDMDE12 BDMDE13 BDMDE14 BDMDE16 BDMDE17 BDMDE18 BDMDE1B BDMDE1C BDMDE1D BDMDE1H BDMDE1P BDMDE1Q BDMDE1T BDMDE1U BDMDF12 BDMDF13 BDMDF14 BDMDF16 BDMDF17 BDMDF18 BDMDF1B BDMDF1C BDMDF1D BDMDF1H BDMDF1P BDMDF1Q BDMDF1T BDMDF1U BDMDF1V BDMDG12 BDMDG13 BDMDG14 BDMDG16 BDMDG17 BDMDG18 BDMDG1B BDMDG1C BDMDG1D BDMDG1H BDMDG1P BDMDG1T BDMDG1U BDMDG1V BDMDMSP BDMDR5 BDMDR6 BDMPA17 BDMPB17 BDMPC17 BDMPD17 BDMPE17 BDMPF17 BDMPG17 BDMS9B2 BDMS9B3 BDMS9B4 BDMS9D2 BDMSMU
Health Summary Components	1	BHSDM2
Patient Care Component	1	APCHS9B1
iCare	1	BQIRGDMS

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;
S1	;
DMPN(P)	;return problem number of firt encountered DM problem
DPCP(P)	;EP
DATE1(D)	;
SETARRAY	;set up array containing dm care summary
BPX	;
EP2(BDMSDFN)	;PEP - PASS DFN get back array of patient care summary
LASTWC	;
GETHWB(P)
LASTHT	;
BMI	;
LASTWT	;
EP21	;
NOTREG(P)	;is patient on any Diabetes register 1 if on reg, "" if not
DATE(D)	;EP
S(Y,F,C,T)	;set up array
HEADER	;
DOO(P)	;get earliest date of onset
W	;write out array
EP	;EP - called from xbnew
DEPPL(P,BDATE,EDATE)	;EP
HTNX	;
HEAD1	;
BP(P)	;last 3 BPs
M12	;
HTN(P)	;
ASPIRIN(P,D)	;

External References

Name	Field # of Occurrence
^%DT	DATE1+2, DEPPL+37, DEPPL+38
$$START1^APCLDF	HTN+13, LASTHT+4, LASTWT+1, BMI+5, DEPPL+34
$$CLINIC^APCLV	BP+10
$$AGE^AUPNPAT	BMI+1
$$DOB^AUPNPAT	SETARRAY+9, SETARRAY+17, SETARRAY+30, M12+15
$$DOD^AUPNPAT	SETARRAY+8
$$HRN^AUPNPAT	HEAD1+4, SETARRAY+7, M12+15
$$AGE^BDMAPIU	SETARRAY+9
$$CESS^BDMDG11	SETARRAY+26
$$CVD^BDMDG12	SETARRAY+35
$$DEPDX^BDMDG12	M12+8
$$DEPSCR^BDMDG12	M12+10
$$STATIN^BDMDG16	SETARRAY+55
$$TYPE^BDMDG16	SETARRAY+12
$$DENTAL^BDMDG17	M12+6
$$DFE^BDMDG17	M12+4
$$EYE^BDMDG17	M12+5
$$TOBACCO^BDMDG1T	SETARRAY+17
$$LE^BDMS9B2	HTN+9, DMPN+8, DEPPL+12
MORE^BDMS9B2	M12+14
$$ACE^BDMS9B4	SETARRAY+41
$$ASPREF^BDMS9B4	SETARRAY+51
$$CMSFDX^BDMS9B4	DOO+2
$$CMSFDXR^BDMS9B4	DOO+3
$$PLDMDOO^BDMS9B4	DOO+4
$$LASTHF^BDMSMU	SETARRAY+30
$$CODEN^BDMUTL	DEPPL+24
$$ICD^BDMUTL	HTN+8, DMPN+7, DEPPL+8, DEPPL+26
$$ICDDX^BDMUTL	DEPPL+11, DEPPL+29
$$SNOMED^BDMUTL	HTN+9, DMPN+8, DEPPL+12
ALLDP^BDPAPI	DPCP+2
^DIR	HEADER+1
$$VAL^XBDIQ1	SETARRAY+9, SETARRAY+10, ASPIRIN+15, ASPIRIN+16
EN^XBNEW	BDMS9B1+6, EP2+4
$$FMADD^XLFDT	SETARRAY+26, SETARRAY+40, SETARRAY+46, SETARRAY+54, M12+2, M12+8, M12+10
$$STRIP^XLFSTR	SETARRAY+15, LASTHT+4
$$UP^XLFSTR	NOTREG+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: W+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Function Call: WRITE	Prompt: !,BDMSHDR,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,"Diabetes Patient Care Summary - continued" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"Patient: ",$P(^DPT(BDMSPAT,0),U)," HRN: ",$$HRN^AUPNPAT(BDMSPAT,DUZ(2)),! Line Location: HEAD1+4
Routine Call	DIR Line Location: HEADER+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	SETARRAY+5
^ACM(41 - [#9002241]	NOTREG+3
^ACM(41.1 - [#9002241.1]	NOTREG+4
^AMHPPROB - [#9002011.51]	DEPPL+19, DEPPL+27
^AMHPPROB("AC"	DEPPL+18
^AMHPROB - [#9002012.2]	DEPPL+21, DEPPL+45
^AMHREC - [#9002011]	DEPPL+41, DEPPL+42
^AMHREC("AE"	DEPPL+40
^AMHRPRO - [#9002011.01]	DEPPL+43
^AMHRPRO("AD"	DEPPL+43
^ATXAX - [#9002226]	ASPIRIN+11, ASPIRIN+12, ASPIRIN+13
^ATXAX("B"	HTN+2, DMPN+2, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, DEPPL+5, DEPPL+17
^AUPNPAT - [#9000001]	DPCP+4
^AUPNPROB - [#9000011]	HTN+5, HTN+6, HTN+7, HTN+8, HTN+9, DMPN+5, DMPN+6, DMPN+8, DMPN+11, DMPN+12 , DEPPL+7, DEPPL+9, DEPPL+10, DEPPL+12
^AUPNPROB("AC"	HTN+4, DMPN+4, DEPPL+6
^AUPNVMED - [#9000010.14]	ASPIRIN+10, ASPIRIN+15, ASPIRIN+16
^AUPNVMED("AA"	ASPIRIN+9, ASPIRIN+10
^AUPNVMSR - [#9000010.01]	BP+8, BP+11, BP+12
^AUPNVMSR("AA"	BP+6, BP+7
^AUPNVMSR("AC"	LASTHT+2
^AUPNVSIT - [#9000010]	BP+9, ASPIRIN+15, ASPIRIN+16
^AUPNVSIT("AC"	LASTHT+1
^AUTTLOC - [#9999999.06]	DMPN+12
^AUTTMSR("B"	BP+5
^DPT - [#2]	HEAD1+4, SETARRAY+7, M12+15
^TMP("APCHS"	BDMS9B1+7!, W+4, W+6, W+9!, EP2+2!, EP2+3, S1+1, S1+2*
^VA(200 - [#200]	DPCP+3, DPCP+4

Label References

Name	Line Occurrences
$$ASPIRIN	SETARRAY+47
$$BP	SETARRAY+36
$$DATE	DATE1+4, SETARRAY+6, SETARRAY+8, SETARRAY+9, SETARRAY+19, SETARRAY+32, SETARRAY+37, SETARRAY+38, SETARRAY+39, LASTHT+4 , LASTWT+1, ASPIRIN+15, ASPIRIN+16, DOO+7
$$DATE1	DATE+2
$$DOO	SETARRAY+11
$$DPCP	SETARRAY+10
$$HTN	SETARRAY+34
$$NOTREG	SETARRAY+13
EOJ	W+10
EP2	EP+1
GETHWB	SETARRAY+14
HEADER	W+5
HTNX	HTN+13
S	SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+15, SETARRAY+16, SETARRAY+18 , SETARRAY+19, SETARRAY+20, SETARRAY+29, SETARRAY+31, SETARRAY+32, SETARRAY+33, SETARRAY+34, SETARRAY+35, SETARRAY+37, SETARRAY+38 , SETARRAY+39, SETARRAY+43, SETARRAY+44, SETARRAY+49, SETARRAY+50, SETARRAY+51, SETARRAY+57, SETARRAY+58, SETARRAY+59, M12+3 , M12+4, M12+5, M12+6, M12+12, M12+13, M12+15
S1	S+5, S+7, S+10
SETARRAY	EP21+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+2!, DATE1+1~, DATE1+2, SETARRAY+41, SETARRAY+43, SETARRAY+44, S+3~, S+8, S+9, S1+1* , S1+2, LASTHT+4, LASTWT+1, BMI+5, BMI+7, BMI+9, BMI+10, ASPIRIN+3~, ASPIRIN+4, ASPIRIN+9 , ASPIRIN+10, ASPIRIN+11, ASPIRIN+12, ASPIRIN+13, ASPIRIN+14, ASPIRIN+15, ASPIRIN+16*
%DT	DATE1+1~, DATE1+2, DEPPL+37, DEPPL+38*
>> APCHSHDR	BDMS9B1+5
>> APCHSPAT	BDMS9B1+3, BDMS9B1+4
>> APCHSQIT	W+8*
B	EOJ+2!, SETARRAY+36*
>> BD	DEPPL+37*
BDATE	DEPPL~, DEPPL+34, DEPPL+37, DEPPL+40
BDM	DEPPL+1~, DEPPL+2!, DEPPL+36, DEPPL+40, DEPPL+43, DEPPL+46, DEPPL+47, DEPPL+48, DEPPL+49, DEPPL+50 , DEPPL+51, DEPPL+52, DEPPL+53, DEPPL+54, DEPPL+55*, DEPPL+57
BDM(1	DEPPL+36
BDM(2	DEPPL+35
>> BDMBTH	SETARRAY+2*
BDMC	BP+2~, BP+4, BP+6, BP+7, BP+12, BPX+1!
BDMD	BP+2~, BP+4, BP+6, BP+7, BP+12, BPX+1!
>> BDMDEPP	M12+8, M12+9, M12+12, M12+13
>> BDMDEPS	M12+10, M12+11, M12+13
>> BDMJOB	SETARRAY+2*
>> BDMP	DEPPL+43, DEPPL+44, DEPPL+45, DEPPL+46, DEPPL+47, DEPPL+48, DEPPL+49, DEPPL+50, DEPPL+51, DEPPL+52 , DEPPL+53, DEPPL+54, DEPPL+55
BDMQUIT	W+2!, W+4, W+5, W+8, EOJ+1!, HEADER+1*
BDMSBEG	EOJ+1!, SETARRAY+40, SETARRAY+41, SETARRAY+46, SETARRAY+47, SETARRAY+54, SETARRAY+55, M12+2, M12+4, M12+5 , M12+6
>> BDMSCVD	SETARRAY+4*
BDMSDAT	M12+7!
BDMSDFN	EOJ+1!, EP2~, EP21+1, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+13 , SETARRAY+14, SETARRAY+17, SETARRAY+26, SETARRAY+30, SETARRAY+34, SETARRAY+35, SETARRAY+36, SETARRAY+41, SETARRAY+47, SETARRAY+51 , SETARRAY+55, M12+4, M12+5, M12+6, M12+8, M12+10, M12+15
BDMSED	EOJ+1!
>> BDMSHDR	BDMS9B1+5*, HEAD1+2
BDMSPAT	BDMS9B1+4, BDMS9B1+8!, EP+1, HEAD1+4, EP21+1
BDMSTEX	EOJ+1!, M12+7!
BDMSTOB	EOJ+1!
BDMSUPI	EOJ+1!
BDMSX	SETARRAY+45!, SETARRAY+47*, SETARRAY+49, SETARRAY+50, SETARRAY+51
BDMTOB	EOJ+1!
>> BDMTOBC	SETARRAY+17*
BDMTOBN	EOJ+1!
>> BDMTOBS	SETARRAY+17*, SETARRAY+19, SETARRAY+20, SETARRAY+25
>> BDMV	DEPPL+36*, DEPPL+42
BDMWV	GETHWB+2~, LASTWT+1*
BDMX	W+4, W+6, EOJ+1!, M12+7!, HTN+11~, HTN+12, HTN+13, HTN+14, HTNX+1, BP+3! , BP+4*, BPX+2, GETHWB+1!
BDMX(	BP+12*
BDMX("BMI"	SETARRAY+15, GETHWB+3, BMI+10
BDMX("HT"	SETARRAY+15, GETHWB+3, LASTHT+4, BMI+2, BMI+9
BDMX("HTD"	SETARRAY+15, GETHWB+3, LASTHT+4, BMI+1
BDMX("WC"	GETHWB+3*
BDMX("WCD"	GETHWB+3*
BDMX("WT"	SETARRAY+16, GETHWB+3, LASTWT+1, BMI+2, BMI+9
BDMX("WTD"	SETARRAY+16, GETHWB+3, LASTWT+1, BMI+1, BMI+5
BDMX(1	SETARRAY+37, BP+15*
BDMX(2	SETARRAY+38
BDMX(3	SETARRAY+39, HTN+13
BDMY	EOJ+1!, LASTHT+3~, LASTWT+1!, BMI+5!
BDMY(1	LASTHT+4, LASTWT+1, BMI+6
C	EOJ+2!, S~, S+7
D	DATE~, DATE+1, DATE+2, DATE+3, DATE1~, DATE1+2, DMPN+4~, DMPN+7, DMPN+8, DMPN+9 , DMPN+10, ASPIRIN~, ASPIRIN+2, ASPIRIN+9, DEPPL+40*
DIR	HEADER+1!
DIR(0	HEADER+1*
DOO	DOO+1~, DOO+4*
DOO(	DOO+3, DOO+5, DOO+7
DOO(0	DOO+6, DOO+7
DT	SETARRAY+6, SETARRAY+9, SETARRAY+12, SETARRAY+17, SETARRAY+26, SETARRAY+30, SETARRAY+35, SETARRAY+40, SETARRAY+46, SETARRAY+54 , SETARRAY+55, M12+2, M12+4, M12+5, M12+6, M12+8, M12+10
>> DTOUT	HEADER+1
DUZ(2	HEAD1+4, SETARRAY+7, M12+15
E	EOJ+2!, HTN+13, LASTHT+4, LASTWT+1, BMI+5, DEPPL+34, DEPPL+40
>> ED	DEPPL+38*
EDATE	DEPPL~, DEPPL+34, DEPPL+38, DEPPL+40
F	EOJ+2!, S~, S+1, S+5
>> G	ASPIRIN+10, ASPIRIN+11, ASPIRIN+12, ASPIRIN+13, DEPPL+3, DEPPL+6, DEPPL+11, DEPPL+12, DEPPL+14, DEPPL+15* , DEPPL+18, DEPPL+29*, DEPPL+31
H	EOJ+2!, BMI+9*
I	HTN+4~, HTN+8, HTN+9, HTN+10, DMPN+4~, DMPN+5, DMPN+7, ASPIRIN+3~, ASPIRIN+9, ASPIRIN+10 , DEPPL+3, DEPPL+7, DEPPL+8, DEPPL+11, DEPPL+15, DEPPL+19, DEPPL+20, DEPPL+21, DEPPL+22, DEPPL+24* , DEPPL+25, DEPPL+26, DEPPL+29
IO	HEADER+1
IO(0	HEADER+1
IOF	W+1, HEAD1+1
IOSL	W+5
IOST	HEADER+1
L	EOJ+2!, S+3~, S+7, DMPN+11~, DMPN+12
>> M	BP+7*, BP+8, BP+11, BP+12
N	EOJ+2!, NOTREG+4*, NOTREG+5, NOTREG+6, NOTREG+7, NOTREG+8
P	EOJ+2!, DPCP~, DPCP+2, DPCP+4, HTN~, HTN+4, HTN+13, DMPN~, DMPN+1, DMPN+4 , BP~, BP+6, BP+7, GETHWB~, LASTHT+1, LASTHT+2, LASTHT+4, LASTWT+1, BMI+1, BMI+5 , ASPIRIN~, ASPIRIN+1, ASPIRIN+9, ASPIRIN+10, DOO~, DOO+2, DOO+3, DOO+4, NOTREG~, NOTREG+1 , NOTREG+3, DEPPL~, DEPPL+6, DEPPL+18, DEPPL+34, DEPPL+40
R	DPCP+1~, DPCP+2, DPCP+4, DPCP+5, DPCP+6
R("DESIGNATED	PRIMARY PROVIDER" , DPCP+3
T	EOJ+2!, S~, S+2, S+7, S+8, S+9, HTN+2~, HTN+3, DMPN+2~, DMPN+3 , BP+5, BP+6, BP+7, ASPIRIN+5~, ASPIRIN+8, ASPIRIN+11, DEPPL+5, DEPPL+17, DEPPL+26
T1	ASPIRIN+5~, ASPIRIN+6*, ASPIRIN+13
T2	ASPIRIN+5~, ASPIRIN+7*, ASPIRIN+12
U	HEAD1+4, SETARRAY+7, SETARRAY+19, SETARRAY+20, SETARRAY+32, SETARRAY+33, SETARRAY+37, SETARRAY+38, SETARRAY+39, M12+15 , DPCP+3, DPCP+4, S1+1, HTN+6, HTN+7, HTN+8, HTN+9, DMPN+5, DMPN+6, DMPN+8 , DMPN+11, DMPN+12, BP+8, BP+11, BP+12, LASTHT+4, LASTWT+1, ASPIRIN+10, ASPIRIN+15, ASPIRIN+16 , NOTREG+4, DEPPL+7, DEPPL+9, DEPPL+10, DEPPL+11, DEPPL+12, DEPPL+19, DEPPL+21, DEPPL+27, DEPPL+29 , DEPPL+36, DEPPL+42, DEPPL+43, DEPPL+45
V	BP+8, BP+9, BP+10, ASPIRIN+3~, ASPIRIN+10, ASPIRIN+11, ASPIRIN+12, ASPIRIN+13, DEPPL+40*, DEPPL+41 , DEPPL+42, DEPPL+43
W	EOJ+2!, BMI+9*
X	EOJ+2!, DATE1+1~, DATE1+2, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11 , SETARRAY+12, SETARRAY+13, SETARRAY+15, SETARRAY+16, SETARRAY+19, SETARRAY+20, SETARRAY+24, SETARRAY+25, SETARRAY+27, SETARRAY+28 , SETARRAY+29, SETARRAY+30, SETARRAY+32, SETARRAY+33, SETARRAY+34, SETARRAY+35, SETARRAY+37, SETARRAY+38, SETARRAY+39, SETARRAY+42* , SETARRAY+43, SETARRAY+44, SETARRAY+48, SETARRAY+49, SETARRAY+50, SETARRAY+51, SETARRAY+53, SETARRAY+56, SETARRAY+57, SETARRAY+58 , SETARRAY+59, M12+3, M12+4, M12+5, M12+6, M12+12, M12+13, M12+15, S+3~, S+5* , S+6, S+8, S+9, S1+2, HTN+4~, HTN+5, HTN+6, HTN+7, HTN+8, HTN+9 , HTN+13, DMPN+4~, DMPN+5, DMPN+6, DMPN+7, DMPN+8, DMPN+10, DMPN+11, DMPN+12, LASTHT+4~ , LASTWT+1~, BMI+5~, DOO+1~, DOO+2, DOO+3, DOO+4, DOO+5, DOO+7, NOTREG+2~, NOTREG+3* , NOTREG+4, DEPPL+1~, DEPPL+3, DEPPL+6, DEPPL+7, DEPPL+9, DEPPL+10, DEPPL+12, DEPPL+15, DEPPL+18 , DEPPL+19, DEPPL+27, DEPPL+34, DEPPL+37, DEPPL+38, DEPPL+43
Y	EOJ+2!, HEADER+1, DATE1+1~, DATE1+3, DATE1+4, SETARRAY+26, SETARRAY+27, SETARRAY+28, SETARRAY+32, SETARRAY+33* , SETARRAY+55, SETARRAY+57, SETARRAY+58, SETARRAY+59, S~, S+6, S+7, S+9, HTN+4~, HTN+8* , DMPN+12~, DMPN+13, NOTREG+2~, NOTREG+3, NOTREG+5, NOTREG+6, NOTREG+7, NOTREG+8, NOTREG+10, DEPPL+33* , DEPPL+34, DEPPL+37, DEPPL+38

Customize PDF page

Package: Diabetes Registry

Routine: BDMS9B1

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 92

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: