Routine: BHSDM1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

BHSDM1 ;IHS/CIA/MGH - Health Summary for Diabetic Supplement ;12-Jul-2016 17:25;DU

Source Information

Source file <BHSDM1.m>

Call Graph

Call Graph Total: 21

Package	Total	Call Graph
Diabetes Registry	4	($$CVD,$$DEPSCR)^BDMDA12 ($$DENTAL,$$DFE,$$EYE)^BDMDA17 $$TOBACCO^BDMDA1T ($$ACE,$$ASPREF,$$CMSFDX,$$MAMREF,$$PAP,$$PLDMDOO)^BDMS9B4
Health Summary Components	3	MORE^BHSDM2 $$REF^BHSMU $$AICD^BHSUTL
Patient Care Component Reports	3	$$LASTMAM^APCLAPI1 $$START1^APCLDF $$CLINIC^APCLV
DRG Grouper	2	($$CODEN,$$ICDDX)^ICDCODE ($$CODEN,$$ICDDX)^ICDEX
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR
Taxonomy	2	$$ICD^ATXAPI $$ICD^ATXCHK
Health Summary	1	CKP^GMTSUP
IHS Designated Provider	1	ALLDP^BDPAPI
IHS Patient	1	($$AGE,$$DOB,$$DOD,$$HRN,$$SEX)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	^%DT

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;
S1	;
DMPN(P)	;return problem number of lowest DM code
EP2(BHSDFN)	;PEP - PASS DFN get back array of patient care summary
DPCP(P)	;EP
SETARRAY	;set up array containing dm care summary
BPX	;
LASTWC	;
GETHWB(P)	;get last height, height date, weight, weight date and BMI for patient P, return in BHSX("HT"),BHSX("HTD"),BHSX("WT"),BHSX("WTD"),BHSX("BMI")
LASTHT	;
BMI	;
LASTWT	;
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
DOO(P)	;get earliest date of onset
W	;write out array
EP	;EP - called from component
HTNX	;
DEPPL(P,BDATE,EDATE)	;EP
BP(P)	;last 3 BPs
BHSCR	;
M12	;
HTN(P)	;
ASPIRIN(P,D)	;

External References

Name	Field # of Occurrence
^%DT	DEPPL+37, DEPPL+38
$$LASTMAM^APCLAPI1	M12+9
$$START1^APCLDF	HTN+12, LASTHT+4, LASTWT+1, LASTWC+1, BMI+5, DEPPL+34
$$CLINIC^APCLV	BP+12
$$ICD^ATXAPI	HTN+8, DMPN+10, DEPPL+9
$$ICD^ATXCHK	DEPPL+25
$$AGE^AUPNPAT	SETARRAY+7, M12+8, BMI+1
$$DOB^AUPNPAT	SETARRAY+8, SETARRAY+19, M12+17
$$DOD^AUPNPAT	SETARRAY+6
$$HRN^AUPNPAT	SETARRAY+5, M12+17
$$SEX^AUPNPAT	SETARRAY+7
$$CVD^BDMDA12	SETARRAY+24
$$DEPSCR^BDMDA12	SETARRAY+34
$$DENTAL^BDMDA17	M12+6
$$DFE^BDMDA17	M12+4
$$EYE^BDMDA17	M12+5
$$TOBACCO^BDMDA1T	SETARRAY+19
$$ACE^BDMS9B4	SETARRAY+26
$$ASPREF^BDMS9B4	SETARRAY+32
$$CMSFDX^BDMS9B4	DOO+2
$$MAMREF^BDMS9B4	M12+10
$$PAP^BDMS9B4	M12+13
$$PLDMDOO^BDMS9B4	DOO+4
ALLDP^BDPAPI	DPCP+2
MORE^BHSDM2	M12+16
$$REF^BHSMU	BHSCR+18
$$AICD^BHSUTL	DMPN+11, DEPPL+11, DEPPL+22, DEPPL+27
CKP^GMTSUP	EP+2, W+3
$$CODEN^ICDCODE	DEPPL+23
$$ICDDX^ICDCODE	DMPN+12, DEPPL+12, DEPPL+28
$$CODEN^ICDEX	DEPPL+22
$$ICDDX^ICDEX	DMPN+11, DEPPL+11, DEPPL+27
$$VAL^XBDIQ1	ASPIRIN+14, ASPIRIN+15, BHSCR+3
$$FMADD^XLFDT	SETARRAY+25, SETARRAY+29, SETARRAY+33, SETARRAY+34, M12+2
$$FMTE^XLFDT	SETARRAY+4, SETARRAY+6, SETARRAY+8, SETARRAY+37, SETARRAY+40, SETARRAY+43, LASTHT+4, LASTWT+1, LASTWC+1, BMI+5 , ASPIRIN+14, ASPIRIN+15, DOO+7, BHSCR+2, BHSCR+3, BHSCR+7, BHSCR+14
$$UP^XLFSTR	NOTREG+4

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

Label References

Name	Line Occurrences
$$ASPIRIN	SETARRAY+30
$$BP	SETARRAY+36
$$DATE	M12+11, M12+14
$$DEPPL	SETARRAY+33
$$DMPN	SETARRAY+8
$$DOO	SETARRAY+7
$$DPCP	SETARRAY+10
$$HTN	SETARRAY+23
$$NOTREG	SETARRAY+9
EOJ	W+7
EP2	EP+3
GETHWB	SETARRAY+11
HTNX	HTN+12
S	SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+10, SETARRAY+12, SETARRAY+13, SETARRAY+14, SETARRAY+15 , SETARRAY+20, SETARRAY+21, SETARRAY+22, SETARRAY+23, SETARRAY+24, SETARRAY+27, SETARRAY+31, SETARRAY+32, SETARRAY+39, SETARRAY+42 , SETARRAY+45, SETARRAY+47, M12+3, M12+4, M12+5, M12+6, M12+11, M12+12, M12+14, M12+15 , M12+17
S1	S+4, S+6, S+9
SETARRAY	EP2+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+3!, SETARRAY+26, SETARRAY+27, S+7, S+8, S1+1, S1+2, LASTHT+4, LASTWT+1, LASTWC+1* , BMI+3, BMI+5, ASPIRIN+3~, ASPIRIN+4, ASPIRIN+9, ASPIRIN+11, ASPIRIN+12, ASPIRIN+13, ASPIRIN+14, ASPIRIN+15*
%DT	DEPPL+32~, DEPPL+37, DEPPL+38
APCHC	EOJ+3!, BP+2~, BP+4, BP+7, BP+8, BP+13, BPX+1!
APCHD	EOJ+3!, BP+2~, BP+4, BP+7, BP+8, BP+13, BPX+1!
APCHDEPP	EOJ+3!, SETARRAY+33*, SETARRAY+41, SETARRAY+44, SETARRAY+46
APCHDEPS	EOJ+3!, SETARRAY+34, SETARRAY+35, SETARRAY+46
APCHIEN	EOJ+1!
APCHP	EOJ+1!, DEPPL+45*
APCHV	EOJ+1!, DEPPL+36*, DEPPL+42
APCHX	EOJ+3!
B	EOJ+3!, SETARRAY+36*
BD	EOJ+3!, DEPPL+37*
BDATE	DEPPL~, DEPPL+34, DEPPL+37, DEPPL+40, BHSCR+1
BDMD	EOJ+2!
BDMMAM	EOJ+2!, M12+9*, M12+11
BDMMAMR	EOJ+2!, M12+10*, M12+12
BDMP	EOJ+2!
BDMSBEG	EOJ+2!
BDMSDAT	EOJ+2!, M12+9*, M12+10
BDMSDFN	SETARRAY+17~, SETARRAY+18*
BDMSPAT	EOJ+1!, SETARRAY+3*
BDMTOBC	SETARRAY+17~, SETARRAY+22
BDMTOBS	SETARRAY+17~, SETARRAY+19*, SETARRAY+20, SETARRAY+21
BDMX	EOJ+2!, M12+13*, M12+14, M12+15
BHDTOB	EOJ+1!
BHS	EOJ+1!, 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
BHS(1	DEPPL+36
BHS(2	DEPPL+35
BHSBEG	EOJ+1!, SETARRAY+25, SETARRAY+26, SETARRAY+29, SETARRAY+30, M12+2*, M12+4, M12+5, M12+6
BHSC	EOJ+1!, BHSCR+1, BHSCR+4, BHSCR+18, BHSCR+19
BHSDAT	M12+7!
BHSDFN	EOJ+1!, EP2~, SETARRAY+3, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11 , SETARRAY+18, SETARRAY+19, SETARRAY+23, SETARRAY+24, SETARRAY+26, SETARRAY+30, SETARRAY+32, SETARRAY+33, SETARRAY+34, SETARRAY+36 , M12+4, M12+5, M12+6, M12+8, M12+9, M12+10, M12+13, M12+17
BHSED	EOJ+1!
BHSEKG	EOJ+1!
BHSEX	EOJ+1!
BHSLAST	EOJ+1!, BHSCR+2, BHSCR+7, BHSCR+14*, BHSCR+16
BHSP	EOJ+1!, 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, BHSCR+4, BHSCR+5, BHSCR+6*, BHSCR+7
>> BHSPAT	EP+1, EP+3
BHSQUIT	W+1!, W+6, EOJ+1!
BHSRF	EOJ+1!, BHSCR+1, BHSCR+2, BHSCR+3*, BHSCR+20
BHSSX	SETARRAY+28!, SETARRAY+30*, SETARRAY+31, SETARRAY+32
BHSTEX	EOJ+1!, M12+7!
BHSTOB	EOJ+1!
BHSTOP	EOJ+1!
BHSTOPN	EOJ+1!
BHSUPI	EOJ+1!
BHSX	W+2, W+4, EOJ+1!, M12+7!, HTN+10~, HTN+11, HTN+12, HTN+13, HTNX+1, BP+3! , BP+4*, BPX+2, GETHWB+1!
BHSX(	BP+13*
BHSX("BMD"	BMI+5*
BHSX("BMI"	SETARRAY+13, GETHWB+2, BMI+5
BHSX("HT"	SETARRAY+12, GETHWB+2, LASTHT+4, LASTHT+5*, BMI+2
BHSX("HTD"	SETARRAY+12, GETHWB+2, LASTHT+4, BMI+1
BHSX("WC"	SETARRAY+14, SETARRAY+15, GETHWB+2, LASTWC+1
BHSX("WCD"	SETARRAY+14, GETHWB+2, LASTWC+1
BHSX("WT"	SETARRAY+13, GETHWB+2, LASTWT+1, BMI+2
BHSX("WTD"	SETARRAY+13, GETHWB+2, LASTWT+1, BMI+1
BHSX(1	SETARRAY+37, BP+16*
BHSX(2	SETARRAY+40
BHSX(3	SETARRAY+43, HTN+12
BHSY	EOJ+1!, LASTHT+3~, LASTWT+1!, LASTWC+1!, BMI+5!
BHSY(1	LASTHT+4, LASTWT+1, LASTWC+1, BMI+5
C	EOJ+3!, S~, S+6
D	DMPN+8~, DMPN+14, DMPN+15, DMPN+16, ASPIRIN~, ASPIRIN+2, ASPIRIN+9, DEPPL+40, BHSCR+1*, BHSCR+2 , BHSCR+3, BHSCR+7, BHSCR+14, DATE~, DATE+1, DATE+2
D(	DMPN+11, DMPN+12, DMPN+16
D(""	DMPN+14
DOO	DOO+1~, DOO+4*
DOO(	DOO+3, DOO+5, DOO+7
DOO(0	DOO+6, DOO+7
DT	SETARRAY+4, SETARRAY+19, SETARRAY+24, SETARRAY+25, SETARRAY+29, SETARRAY+33, SETARRAY+34, M12+2
DUZ(2	SETARRAY+5, M12+17
E	EOJ+3!, HTN+12, LASTHT+4, LASTWT+1, LASTWC+1, BMI+5, DEPPL+34, DEPPL+40, BHSCR+1
ED	EOJ+3!, DEPPL+38*
EDATE	DEPPL~, DEPPL+34, DEPPL+38, DEPPL+40, BHSCR+1
F	EOJ+3!, S~, S+1, S+4
G	ASPIRIN+3~, ASPIRIN+10, ASPIRIN+11, ASPIRIN+12, DEPPL+3, DEPPL+7, DEPPL+11, DEPPL+12, DEPPL+14, DEPPL+15* , DEPPL+18, DEPPL+27, DEPPL+28, DEPPL+30
>> GMTSQIT	EP+2, W+2, W+3, W+6*
H	EOJ+3!
I	HTN+7~, HTN+8, HTN+9, DMPN+8~, DMPN+9, DMPN+10, DMPN+11, DMPN+12, ASPIRIN+3~, ASPIRIN+9 , ASPIRIN+10, DEPPL+3, DEPPL+8, DEPPL+9, DEPPL+11, DEPPL+12, DEPPL+15, DEPPL+19, DEPPL+20, DEPPL+21 , DEPPL+22, DEPPL+23*, DEPPL+24, DEPPL+25, DEPPL+27, DEPPL+28
L	EOJ+3!, S+6, DMPN+17~, DMPN+18
M	BP+2~, BP+8*, BP+9, BP+11, BP+13
N	EOJ+3!, NOTREG+4*, NOTREG+5, NOTREG+6, NOTREG+7, NOTREG+8
P	EOJ+3!, DPCP~, DPCP+2, DPCP+4, HTN~, HTN+7, HTN+12, DMPN~, DMPN+2, DMPN+8 , BP~, BP+7, BP+8, GETHWB~, LASTHT+1, LASTHT+2, LASTHT+4, LASTWT+1, LASTWC+1, BMI+1 , BMI+5, ASPIRIN~, ASPIRIN+1, ASPIRIN+9, ASPIRIN+10, DOO~, DOO+2, DOO+4, NOTREG~, NOTREG+1 , NOTREG+3, DEPPL~, DEPPL+7, DEPPL+18, DEPPL+34, DEPPL+40, BHSCR+1, BHSCR+18
R	DPCP+1~, DPCP+2, DPCP+4, DPCP+5, DPCP+6
R("DESIGNATED	PRIMARY PROVIDER" , DPCP+3
T	EOJ+3!, S~, S+2, S+6, S+7, S+8, HTN+2~, HTN+5, HTN+6, HTN+8 , DMPN+4~, DMPN+6, DMPN+7, DMPN+10, BP+2~, BP+6, BP+7, BP+8, ASPIRIN+5~, ASPIRIN+6 , ASPIRIN+8, ASPIRIN+11, DEPPL+1~, DEPPL+6, DEPPL+9, DEPPL+17, DEPPL+25, BHSCR+10, BHSCR+11, BHSCR+12 , BHSCR+13, BHSCR+14
T1	ASPIRIN+5~, ASPIRIN+7*, ASPIRIN+12
TAXARR	HTN+2~, HTN+4, DMPN+1~, DMPN+4~, DMPN+5, DEPPL+4*
U	SETARRAY+5, SETARRAY+21, SETARRAY+22, SETARRAY+37, SETARRAY+40, SETARRAY+43, M12+8, M12+9, M12+11, M12+12 , M12+14, M12+15, M12+17, DPCP+3, DPCP+4, S1+1, HTN+7, DMPN+9, DMPN+11, DMPN+12 , DMPN+17, DMPN+18, BP+9, BP+11, BP+13, LASTHT+4, LASTWT+1, LASTWC+1, BMI+5, ASPIRIN+10 , ASPIRIN+14, ASPIRIN+15, NOTREG+4, DEPPL+8, DEPPL+11, DEPPL+12, DEPPL+19, DEPPL+20, DEPPL+27, DEPPL+28 , DEPPL+36, DEPPL+42, DEPPL+43, DEPPL+45, BHSCR+2, BHSCR+4, BHSCR+6, BHSCR+7, BHSCR+10, BHSCR+13 , BHSCR+14, BHSCR+16
V	BP+2~, BP+9, BP+10, BP+12, ASPIRIN+3~, ASPIRIN+10, ASPIRIN+11, ASPIRIN+12, DEPPL+40, DEPPL+41 , DEPPL+42, DEPPL+43, BHSCR+1, BHSCR+2, BHSCR+3, BHSCR+4, BHSCR+8, BHSCR+9
W	EOJ+3!
X	EOJ+3!, SETARRAY+2, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+12* , SETARRAY+13, SETARRAY+14, SETARRAY+15, SETARRAY+20, SETARRAY+21, SETARRAY+22, SETARRAY+23, SETARRAY+24, SETARRAY+27, SETARRAY+31 , SETARRAY+32, SETARRAY+37, SETARRAY+38, SETARRAY+39, SETARRAY+40, SETARRAY+41, SETARRAY+42, SETARRAY+43, SETARRAY+44, SETARRAY+45 , SETARRAY+46, SETARRAY+47, M12+3, M12+4, M12+5, M12+6, M12+11, M12+12, M12+14, M12+15 , M12+17, S+4, S+5, S+7, S+8, S1+2, HTN+7~, HTN+12, DMPN+8~, DMPN+9 , DMPN+11, DMPN+12, DMPN+16, DMPN+17, DMPN+18, LASTHT+4~, LASTWT+1~, LASTWC+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+7, DEPPL+8, DEPPL+15, DEPPL+18, DEPPL+19, DEPPL+34, DEPPL+37, DEPPL+38, DEPPL+43, BHSCR+4 , BHSCR+19*
Y	EOJ+3!, SETARRAY+8, S~, S+5, S+6, S+8, HTN+7~, HTN+8, DMPN+18~, DMPN+19 , NOTREG+2~, NOTREG+3, NOTREG+5, NOTREG+6, NOTREG+7, NOTREG+8, NOTREG+10, DEPPL+1~, DEPPL+33, DEPPL+34 , DEPPL+37, DEPPL+38, BHSCR+9, BHSCR+10
Z	EOJ+3!

Customize PDF page

Package: Health Summary Components

Routine: BHSDM1

Call Graph Total: 21