Routine: BHSDMPRE

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

BHSDMPRE ;IHS/CIA/MGH - Health Summary for Pre-Diabetic Supplement ;30-Nov-2015 10:25;DU

Source Information

Source file <BHSDMPRE.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Diabetes Registry	3	EDUC^BDMS9B2 ($$DIETV,TOBACCO)^BDMS9B3 ($$ACE,$$ASPREF)^BDMS9B5
Health Summary Components	3	EDUCREF^BHSDM3 MORE^BHSDMPR1 ($$LASTITEM,$$PLCODE,$$PLTAX)^BHSMU
Patient Care Component Reports	2	$$START1^APCLDF $$CLINIC^APCLV
Health Summary	1	CKP^GMTSUP
IHS Patient	1	($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Taxonomy	1	$$ICD^ATXAPI

Entry Points

Name	Comments	DBIA/ICR reference
MS(P)	;
EOJ	;
S1	;
IGT(P)	;
EP2(BHSDFN)	;PEP - PASS DFN get back array of patient care summary
SETARRAY	;set up array containing dm care summary
BPX	;
LASTWC	;
LASTHT	;
BMI	;
CMSMAN(P,F)	;EP - return date/dx of dm in register
LASTWT	;
GETHWB(P,EDATE)	;get last height, height date, weight, weight date and BMI for patient P, return in APCHX("HT"),APCHX("HTD"),APCHX("WT"),APCHX("WTD"),APCHX("BMI")
S(Y,F,C,T)	;set up array
W	;write out array
EP	;EP - called from component
HTNX	;
BP(P)	;last 3 BPs - NON ER
IFG(P)	;
M12	;
HTN(P)	;
ASPIRIN(P,D)	;

External References

Name	Field # of Occurrence
$$START1^APCLDF	MS+6, IGT+6, IFG+6, HTN+10, LASTHT+4, LASTWT+1, LASTWC+1, BMI+1
$$CLINIC^APCLV	BP+10
$$ICD^ATXAPI	HTN+6
$$AGE^AUPNPAT	SETARRAY+5
$$DOB^AUPNPAT	SETARRAY+5, M12+3
$$HRN^AUPNPAT	SETARRAY+4, M12+3
$$SEX^AUPNPAT	SETARRAY+5
EDUC^BDMS9B2	SETARRAY+39
$$DIETV^BDMS9B3	SETARRAY+37
TOBACCO^BDMS9B3	SETARRAY+33
$$ACE^BDMS9B5	SETARRAY+47
$$ASPREF^BDMS9B5	SETARRAY+50
EDUCREF^BHSDM3	SETARRAY+42
MORE^BHSDMPR1	M12+2
$$LASTITEM^BHSMU	EP+5
$$PLCODE^BHSMU	MS+2, IGT+2, IFG+2
$$PLTAX^BHSMU	EP+4
CKP^GMTSUP	EP+7, W+4
$$VAL^XBDIQ1	SETARRAY+15, ASPIRIN+13, ASPIRIN+14
$$FMADD^XLFDT	EP+6, SETARRAY+38, SETARRAY+46, SETARRAY+49
$$FMTE^XLFDT	SETARRAY+3, SETARRAY+5, SETARRAY+7, SETARRAY+9, SETARRAY+11, SETARRAY+24, SETARRAY+26, SETARRAY+28, LASTHT+5, LASTHT+7 , LASTHT+9, LASTWT+2, LASTWT+3, LASTWT+4, LASTWC+2, LASTWC+3, LASTWC+4, BMI+2, BMI+3, BMI+4 , ASPIRIN+13, ASPIRIN+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	SETARRAY+2
^ACM(41 - [#9002241]	CMSMAN+4, CMSMAN+5
^ACM(41.1 - [#9002241.1]	CMSMAN+3
^ATXAX - [#9002226]	ASPIRIN+10, ASPIRIN+11
^ATXAX("B"	HTN+2, ASPIRIN+5, ASPIRIN+6
^AUPNPROB - [#9000011]	MS+3, MS+4, IGT+3, IGT+4, IFG+3, IFG+4, HTN+6
^AUPNPROB("AC"	HTN+4
^AUPNVMED - [#9000010.14]	ASPIRIN+9, ASPIRIN+13, ASPIRIN+14
^AUPNVMED("AA"	ASPIRIN+8, ASPIRIN+9
^AUPNVMSR - [#9000010.01]	BP+7, BP+9, BP+11
^AUPNVMSR("AA"	BP+5, BP+6
^AUPNVMSR("AC"	LASTHT+2
^AUPNVSIT - [#9000010]	BP+8, ASPIRIN+13, ASPIRIN+14
^AUPNVSIT("AC"	LASTHT+1
^AUTTMSR("B"	BP+4
^DPT - [#2]	SETARRAY+4, M12+3
^TMP("BHS"	W+3, W+5, EP2+2!, EP2+3, S1+1, S1+2*
^VA(200 - [#200]	CMSMAN+5

Label References

Name	Line Occurrences
$$ASPIRIN	SETARRAY+49
$$BP	SETARRAY+23
$$CMSMAN	SETARRAY+14
$$HTN	SETARRAY+45
$$IFG	SETARRAY+7
$$IGT	SETARRAY+9
$$MS	SETARRAY+11
EOJ	W+8
EP2	EP+8
GETHWB	SETARRAY+17
HTNX	HTN+10
S	SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+8, SETARRAY+10, SETARRAY+12, SETARRAY+13, SETARRAY+14, SETARRAY+15 , SETARRAY+16, SETARRAY+18, SETARRAY+19, SETARRAY+20, SETARRAY+21, SETARRAY+22, SETARRAY+25, SETARRAY+27, SETARRAY+29, SETARRAY+34 , SETARRAY+35, SETARRAY+36, SETARRAY+37, SETARRAY+40, SETARRAY+42, SETARRAY+43, SETARRAY+45, SETARRAY+48, SETARRAY+49, SETARRAY+50 , M12+3
S1	S+4, S+6, S+9
SETARRAY	EP2+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+2!, SETARRAY+40, SETARRAY+41!, SETARRAY+43, SETARRAY+44!, SETARRAY+47, SETARRAY+48, S+3~, S+7, S+8* , S1+1, S1+2, MS+1~, MS+6, IGT+1~, IGT+6, IFG+1~, IFG+6, LASTHT+4, LASTWT+1 , LASTWC+1, BMI+1, ASPIRIN+3~, ASPIRIN+4, ASPIRIN+8, ASPIRIN+9, ASPIRIN+10, ASPIRIN+11, ASPIRIN+12, ASPIRIN+13 , ASPIRIN+14*
APCHC	BP+1~, BP+3, BP+5, BP+6, BP+11, BPX+1!
APCHD	BP+1~, BP+3, BP+5, BP+6, BP+11, BPX+1!
APCHHT	EOJ+1!
APCHIEN	EOJ+1!
APCHQUIT	W+2!, W+3, W+7, EOJ+1!
APCHTOB	EOJ+1!
APCHTOBN	EOJ+1!
APCHX	W+3, W+5, EOJ+1!, SETARRAY+39!, SETARRAY+41!, SETARRAY+42, SETARRAY+44!, HTN+8~, HTN+9, HTN+10* , HTN+11, HTNX+1, BP+2!, BP+3, BPX+2, GETHWB+1!
APCHX(	SETARRAY+40, SETARRAY+43, BP+11, GETHWB+2
APCHX(1	SETARRAY+18, SETARRAY+19, SETARRAY+22, SETARRAY+24, BP+14, LASTHT+5, LASTHT+6, LASTWT+2, LASTWC+2, BMI+2
APCHX(2	SETARRAY+20, SETARRAY+26, LASTHT+7, LASTHT+8, LASTWT+3, LASTWC+3, BMI+3*
APCHX(3	SETARRAY+21, SETARRAY+28, HTN+10, LASTHT+9, LASTHT+10, LASTWT+4, LASTWC+4, BMI+4*
APCHY	EOJ+1!, SETARRAY+41!, SETARRAY+44!, MS+1~, MS+6!, IGT+1~, IGT+6!, IFG+1~, IFG+6!, LASTHT+3~ , LASTWT+1!, LASTWC+1!, BMI+1!
APCHY(1	MS+7, IGT+7, IFG+7, LASTHT+5, LASTWT+2, LASTWC+2, BMI+2
APCHY(2	LASTHT+7, LASTWT+3, LASTWC+3, BMI+3
APCHY(3	LASTHT+9, LASTWT+4, LASTWC+4, BMI+4
B	EOJ+2!, SETARRAY+23*
BDMSBEG	SETARRAY+31~, SETARRAY+38*
BDMSDFN	EOJ+1!, SETARRAY+31~, SETARRAY+32*
BDMTOBC	SETARRAY+31~, SETARRAY+35
BDMTOBS	SETARRAY+31~, SETARRAY+34
BHSBEG	EOJ+1!, SETARRAY+38, SETARRAY+46, SETARRAY+47, SETARRAY+49*
BHSDD	EOJ+1!
BHSDFN	EOJ+1!, EP2~, SETARRAY+4, SETARRAY+5, SETARRAY+7, SETARRAY+9, SETARRAY+11, SETARRAY+14, SETARRAY+15, SETARRAY+17 , SETARRAY+23, SETARRAY+32, SETARRAY+37, SETARRAY+45, SETARRAY+47, SETARRAY+49, SETARRAY+50, M12+3
BHSED	EOJ+1!
BHSINT	EOJ+1!
BHSPAT	EP+1~, EP+2*, EP+3, EP+4, EP+5, EP+8
BHSTEX	EOJ+1!
BHSTOB	EOJ+1!
BHSUPI	EOJ+1!
BHSWD	EOJ+1!
BHSX	SETARRAY+49!
BSMSBEG	EOJ+1!
C	EOJ+2!, S~, S+6
D	CMSMAN+3~, CMSMAN+4, CMSMAN+5, CMSMAN+6, MS+3, MS+4, MS+5, IGT+3, IGT+4, IGT+5 , IFG+3, IFG+4, IFG+5, ASPIRIN~, ASPIRIN+2, ASPIRIN+8
D1	CMSMAN+3~
>> DFN	EP+2
DT	EP+6, SETARRAY+3, SETARRAY+17, SETARRAY+38, SETARRAY+46, SETARRAY+49
DUZ(2	SETARRAY+4, M12+3
E	EOJ+2!, MS+6, IGT+6, IFG+6, HTN+10, LASTHT+4, LASTWT+1, LASTWC+1, BMI+1
EDATE	GETHWB~
F	EOJ+2!, S~, S+1, S+4, CMSMAN~, CMSMAN+1*
G	CMSMAN+3~, CMSMAN+4, ASPIRIN+9, ASPIRIN+10, ASPIRIN+11
>> GMTSQIT	EP+7, W+4, W+7*
H	EOJ+2!
I	MS+1~, IGT+1~, IFG+1~, HTN+4~, HTN+6, HTN+7, ASPIRIN+3~, ASPIRIN+8*, ASPIRIN+9
IOF	W+1
L	EOJ+2!, S+6*
M	EOJ+2!, BP+6*, BP+7, BP+9, BP+11
N	EOJ+2!, CMSMAN+3~*
P	EOJ+2!, CMSMAN~, CMSMAN+2, CMSMAN+4, MS~, MS+2, MS+6, IGT~, IGT+2, IGT+6 , IFG~, IFG+2, IFG+6, HTN~, HTN+4, HTN+10, BP~, BP+5, BP+6, GETHWB~ , LASTHT+1, LASTHT+2, LASTHT+4, LASTWT+1, LASTWC+1, BMI+1, ASPIRIN~, ASPIRIN+1, ASPIRIN+8, ASPIRIN+9
R	CMSMAN+3~*, CMSMAN+4
T	EOJ+2!, S~, S+2, S+6, S+7, S+8, HTN+1~, HTN+2, HTN+3, HTN+6 , BP+4, BP+5, BP+6, ASPIRIN+5~*, ASPIRIN+7, ASPIRIN+10
T1	ASPIRIN+5~, ASPIRIN+6*, ASPIRIN+11
U	SETARRAY+4, SETARRAY+7, SETARRAY+9, SETARRAY+11, SETARRAY+24, SETARRAY+26, SETARRAY+28, SETARRAY+34, SETARRAY+35, M12+3 , S1+1, CMSMAN+4, CMSMAN+5, MS+3, MS+4, MS+5, MS+7, IGT+3, IGT+4, IGT+5 , IGT+7, IFG+3, IFG+4, IFG+5, IFG+7, HTN+6, BP+7, BP+9, BP+11, LASTHT+5 , LASTHT+7, LASTHT+9, LASTWT+2, LASTWT+3, LASTWT+4, LASTWC+2, LASTWC+3, LASTWC+4, BMI+2, BMI+3 , BMI+4, ASPIRIN+9, ASPIRIN+13, ASPIRIN+14
V	BP+7, BP+8, BP+10, ASPIRIN+3~, ASPIRIN+9, ASPIRIN+10, ASPIRIN+11
W	EOJ+2!
X	EP+5, EP+6, EOJ+2!, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8 , SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+13, SETARRAY+14, SETARRAY+15, SETARRAY+16, SETARRAY+18, SETARRAY+19* , SETARRAY+20, SETARRAY+21, SETARRAY+22, SETARRAY+24, SETARRAY+25, SETARRAY+26, SETARRAY+27, SETARRAY+28, SETARRAY+29, SETARRAY+34* , SETARRAY+35, SETARRAY+36, SETARRAY+37, SETARRAY+40, SETARRAY+42, SETARRAY+43, SETARRAY+45, SETARRAY+48, SETARRAY+49, SETARRAY+50 , M12+3, S+3~, S+4, S+5, S+7, S+8, S1+2, CMSMAN+3~, CMSMAN+4, CMSMAN+5 , MS+1~, MS+2, MS+3, MS+4, IGT+1~, IGT+2, IGT+3, IGT+4, IFG+1~, IFG+2* , IFG+3, IFG+4, HTN+4~, HTN+6, HTN+10, GETHWB+2*, LASTHT+4~, LASTWT+1~, LASTWC+1~, BMI+1~
Y	EOJ+2!, SETARRAY+7, SETARRAY+9, SETARRAY+11, S~, S+5, S+6, S+8, CMSMAN+3~, CMSMAN+4 , MS+1~, MS+2, MS+3, MS+4, MS+5, IGT+1~, IGT+2, IGT+3, IGT+4, IGT+5 , IFG+1~, IFG+2, IFG+3, IFG+4, IFG+5, HTN+4~, HTN+6*

Customize PDF page

Package: Health Summary Components

Routine: BHSDMPRE

Call Graph Total: 13