Routine: BHSDM1

Information

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

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

Global Variables Directly Accessed

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

Information

Source Information

Call Graph

Call Graph Total: 21

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: