Routine: BHSPMH3

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
Naked Globals
Local Variables

Information

BHSPMH3 ;IHS/MSC/MGH - Health Summary for Patient wellness handout ;30-Nov-2015 10:27;DU

Source Information

Source file <BHSPMH3.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Health Summary Components	2	MEDBLD^BHSPMH1A $$LAB^BHSPMH2
Kernel	2	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT $$LOW^XLFSTR
Patient Care Component Reports	2	$$START1^APCLDF $$PRIMPROV^APCLV
IHS Patient	1	($$AGE,$$HRN,$$SEX)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Immunization Tracking	1	IMMFORC^BIRPC
Patient Care Component	1	(EN,PROBA)^APCHPALG
Taxonomy	1	$$ICD^ATXCHK
VA Fileman	1	^DIWP

Entry Points

Name	Comments	DBIA/ICR reference
GETHWBBP(P)	;get last height, height date, weight, weight date, BMI and BP for patient P, return in BHSX("HT"),BHSX("HTD"),BHSX("WT"),BHSX("WTD"),BHSX("BMI")
ALLERG	;
MEAS	;
IMMUN	;
BMI	;
RXSTAT	; EP gets status of rx ... TAKEN FROM PSOFUNC ROUTINE
CKD	;Does patient have chronic kidney disease (CKD)?
LASTWC	;
S1	;
LASTWT	;
S(Y,F,C,T)	;set up array
LASTBP	;
MEDS	;
CKDP	;
SETARRAY	;set up array containing dm care summary
DMX	;
DMDX(P)	;
HOLD	;Now get meds in Pharmacy yet to be completed
LASTHT	;
EP(BHSDFN)	;PEP - PASS DFN get back array of patient care summary
DATE(D)	;EP - convert to slashed date

External References

Name	Field # of Occurrence
EN^APCHPALG	ALLERG+7
PROBA^APCHPALG	ALLERG+30
$$START1^APCLDF	LASTHT+4, LASTWT+1, LASTBP+1, LASTWC+1, DMDX+10
$$PRIMPROV^APCLV	SETARRAY+5
$$ICD^ATXCHK	DMDX+6
$$AGE^AUPNPAT	MEAS+28, MEAS+29, MEAS+31, MEAS+32, BMI+1
$$HRN^AUPNPAT	SETARRAY+4
$$SEX^AUPNPAT	SETARRAY+9, CKD+5, CKD+6
MEDBLD^BHSPMH1A	MEDS+15
$$LAB^BHSPMH2	CKD+4, CKD+8, CKD+11, CKD+14
IMMFORC^BIRPC	IMMUN+4
^DIWP	MEDS+21
$$VAL^XBDIQ1	SETARRAY+6, SETARRAY+7, SETARRAY+8
$$FMADD^XLFDT	MEDS+14
$$FMDIFF^XLFDT	MEAS+11, MEAS+28, MEAS+29
$$FMTE^XLFDT	MEAS+10, MEAS+17, MEAS+27
$$LOW^XLFSTR	SETARRAY+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	SETARRAY+2
^APCCCTRL - [#9001000]	SETARRAY+4, SETARRAY+10
^ATXAX("B"	DMDX+3
^ATXLAB("B"	CKD+4, CKD+8, CKD+11, CKD+14
^AUPNPROB - [#9000011]	DMDX+6
^AUPNPROB("AC"	DMDX+5
^AUPNVMED("AA"	MEDS+15
^AUPNVMSR("AC"	LASTHT+2
^AUPNVSIT("AC"	SETARRAY+5, LASTHT+1
^AUTTLOC - [#9999999.06]	SETARRAY+7
^DIC(4 - [#4]	SETARRAY+4, SETARRAY+10
^DPT - [#2]	SETARRAY+4, SETARRAY+9
^PS(52.5 - [#52.5]	RXSTAT+4
^PS(55 - [#55]	HOLD+4, HOLD+5
^PSDRUG - [#50]	HOLD+7
^PSRX - [#52]	RXSTAT+1, HOLD+6, HOLD+7
^TMP("BHSPHS"	EP+2!, EP+3, S1+1, S1+2*
^UTILITY($J	MEDS+21!, MEDS+22, MEDS+23, MEDS+24!

Label References

Name	Line Occurrences
$$DMDX	CKDP+6
CKD	CKDP+2
DMX	DMDX+10
GETHWBBP	MEAS+3
HOLD	MEDS+26
S	SETARRAY+3, SETARRAY+4, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11, IMMUN+2, IMMUN+3 , IMMUN+5, IMMUN+14, IMMUN+15, MEAS+2, MEAS+6, MEAS+8, MEAS+9, MEAS+10, MEAS+11, MEAS+13 , MEAS+14, MEAS+17, MEAS+19, MEAS+21, MEAS+22, MEAS+23, MEAS+26, MEAS+27, MEAS+28, MEAS+29 , MEAS+31, MEAS+32, CKDP+8, CKDP+10, CKDP+11, CKDP+12, CKDP+13, ALLERG+1, ALLERG+2, ALLERG+3 , ALLERG+4, ALLERG+9, ALLERG+14, ALLERG+20, ALLERG+26, ALLERG+31, ALLERG+36, ALLERG+38, MEDS+3, MEDS+4 , MEDS+5, MEDS+6, MEDS+7, MEDS+8, MEDS+9, MEDS+10, MEDS+11, MEDS+16, MEDS+19, MEDS+22 , MEDS+23, MEDS+28, MEDS+29, MEDS+32
S1	S+5, S+7, S+10
SETARRAY	EP+5

Name	Field # of Occurrence
^("P"	RXSTAT+4
^(0	RXSTAT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	S+3~, S+8, S+9, S1+1, S1+2, LASTHT+4, LASTWT+1, LASTBP+1, LASTWC+1, BMI+3 , BMI+4*, BMI+5
APCHALG	ALLERG+5~
APCHCKD	CKDP+7, CKD+1~, CKD+2, CKD+5, CKD+6, CKD+8, CKD+9, CKD+11, CKD+12, CKD+14 , CKD+15
APCHDBP	MEAS+1~, MEAS+26*, MEAS+27, CKDP+4, CKDP+5, CKDP+6, CKDP+7
APCHENT	ALLERG+5~, ALLERG+9
APCHENT("A"	ALLERG+10, ALLERG+12, ALLERG+14, ALLERG+26
APCHENT("P"	ALLERG+16, ALLERG+18, ALLERG+20
APCHENT("U"	ALLERG+22, ALLERG+24
APCHFEET	MEAS+1~, MEAS+5*, MEAS+6
APCHHBP	MEAS+1~, CKDP+3, CKDP+5, CKDP+6, CKDP+7, CKDP+8, CKDP+9
APCHHM	MEDS+2~, MEDS+27
APCHHM(	MEDS+31, HOLD+8*
APCHHMED	MEDS+2~, MEDS+30, MEDS+31, MEDS+32, HOLD+7*, HOLD+8
APCHI	IMMUN+1~, IMMUN+10
APCHI(	IMMUN+8*, IMMUN+11, IMMUN+12, IMMUN+15
APCHICTR	IMMUN+1~, IMMUN+10, IMMUN+11, IMMUN+12, IMMUN+13
APCHIMDU	IMMUN+1~, IMMUN+13*, IMMUN+14, IMMUN+15
APCHIMM	IMMUN+1~, IMMUN+4, IMMUN+5, IMMUN+6
APCHIMMN	IMMUN+1~, IMMUN+6*, IMMUN+8
APCHIMMT	IMMUN+1~, IMMUN+6, IMMUN+7, IMMUN+8
APCHINCH	MEAS+1~, MEAS+5*, MEAS+6
APCHLACD	CKD+1~, CKD+11*
APCHLACV	CKD+1~, CKD+11*, CKD+12
APCHLCRD	CKD+1~, CKD+4*
APCHLCRV	CKD+1~, CKD+4*, CKD+5, CKD+6
APCHLEGD	CKD+1~, CKD+14*
APCHLEGV	CKD+1~, CKD+14*, CKD+15
APCHLUPD	MEDS+2~, CKD+8*
APCHLUPV	CKD+1~, CKD+8*, CKD+9
APCHMFX	MEDS+2~
APCHNMED	HOLD+2~, HOLD+5*, HOLD+6, HOLD+7, HOLD+8
APCHSALD	ALLERG+5~, ALLERG+6, ALLERG+10, ALLERG+11, ALLERG+12, ALLERG+14, ALLERG+16, ALLERG+17, ALLERG+18, ALLERG+20 , ALLERG+22, ALLERG+23, ALLERG+24, ALLERG+26, ALLERG+29, ALLERG+32
APCHSALG	ALLERG+5~, ALLERG+6, ALLERG+13, ALLERG+19, ALLERG+25, ALLERG+38
APCHSALP	ALLERG+5~, ALLERG+6, ALLERG+12, ALLERG+14, ALLERG+18, ALLERG+20, ALLERG+24, ALLERG+26, ALLERG+29, ALLERG+33 , ALLERG+34, ALLERG+36
APCHSAPR	ALLERG+5~, ALLERG+29, ALLERG+35, ALLERG+38
APCHSBP	MEAS+1~, MEAS+26*, MEAS+27, CKDP+4, CKDP+5, CKDP+6, CKDP+7
APCHSDLM	MEDS+1~, MEDS+14*, MEDS+15
APCHSDT	HOLD+2~, HOLD+3, HOLD+4, HOLD+5
APCHSIG	MEDS+1~, MEDS+21*
APCHSIVD	MEDS+1~, MEDS+15*
APCHSM	MEDS+1~
APCHSM(	MEDS+18, MEDS+21
APCHSMCT	MEDS+1~, MEDS+15*, MEDS+16
APCHSMED	MEDS+1~, MEDS+17, MEDS+18, MEDS+19, MEDS+21
APCHSMFX	MEDS+2~
APCHSMX	MEDS+1~, MEDS+15*
APCHSP	ALLERG+5~
APCHSPT	ALLERG+5~, ALLERG+31, ALLERG+32
APCHSPT(	ALLERG+32, ALLERG+33, ALLERG+36
APCHSQ	MEDS+1~, MEDS+15*
>> APCHSRXP	RXSTAT+1, RXSTAT+2, RXSTAT+3
APCHSSGY	MEDS+1~
BHSDFN	EP~, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, IMMUN+4, MEAS+3, MEAS+28 , MEAS+29, MEAS+31, MEAS+32, CKDP+6, MEDS+15, CKD+4, CKD+5, CKD+6, CKD+8, CKD+11 , CKD+14, HOLD+1, HOLD+4, HOLD+5
BHSPROV	EP+4~, SETARRAY+5*, SETARRAY+6
BHSVSIT	EP+4~, SETARRAY+5
BHSX	MEAS+1~, GETHWBBP+1!, DMDX+8~, DMDX+9, DMDX+10, DMDX+11*, DMX+1
BHSX("BMI"	MEAS+12, MEAS+13, MEAS+16, MEAS+17, MEAS+19, MEAS+20, GETHWBBP+2, BMI+5
BHSX("BP"	MEAS+26, MEAS+27, MEAS+31, MEAS+32, CKDP+3, LASTBP+1*
BHSX("BPD"	MEAS+27, MEAS+28, MEAS+29, LASTBP+1*
BHSX("HT"	MEAS+5, MEAS+6, MEAS+9, GETHWBBP+2, LASTHT+4, LASTHT+5*, BMI+2, BMI+4
BHSX("HTD"	GETHWBBP+2, LASTHT+4, BMI+1
BHSX("WC"	GETHWBBP+2, LASTWC+1
BHSX("WCD"	GETHWBBP+2, LASTWC+1
BHSX("WT"	MEAS+8, MEAS+10, MEAS+11, GETHWBBP+2, LASTWT+1, BMI+2, BMI+4
BHSX("WTD"	MEAS+10, MEAS+11, MEAS+12, MEAS+16, MEAS+17, GETHWBBP+2, LASTWT+1, BMI+1
BHSX(3	DMDX+10
BHSY	LASTHT+3~, LASTWT+1!, LASTBP+1!, LASTWC+1!
BHSY(1	LASTHT+4, LASTWT+1, LASTBP+1, LASTWC+1
C	S~, S+7
D	DATE~, DATE+1, DATE+2
>> DIWL	MEDS+21*
>> DIWR	MEDS+21*
DT	MEAS+11, MEAS+12, MEAS+16, MEAS+28, MEAS+29, MEDS+14, RXSTAT+5, HOLD+3
DUZ(2	SETARRAY+4, SETARRAY+7, SETARRAY+10
E	MEAS+1~, LASTHT+4, LASTWT+1, LASTBP+1, LASTWC+1, DMDX+10*
F	S~, S+1, S+5
>> GMTSDTM	SETARRAY+3
H	MEAS+1~, BMI+4*
I	IMMUN+15, MEDS+23, DMDX+5~, DMDX+6, DMDX+7
J	MEDS+2~, RXSTAT+3*, RXSTAT+4
L	S+3~, S+7*
P	GETHWBBP~, LASTHT+1, LASTHT+2, LASTHT+4, LASTWT+1, LASTBP+1, LASTWC+1, BMI+1, DMDX~, DMDX+5 , DMDX+10
>> RX0	RXSTAT+4, RXSTAT+6*
>> RX2	RXSTAT+5
>> ST	RXSTAT+6*
>> ST0	RXSTAT+4, RXSTAT+5, RXSTAT+6
T	CKD+4, CKD+8, CKD+11, CKD+14, S~, S+2, S+7, S+8, S+9, DMDX+2~ , DMDX+3*, DMDX+4, DMDX+6
U	SETARRAY+4, SETARRAY+7, SETARRAY+9, SETARRAY+10, IMMUN+6, MEDS+21, HOLD+7, S1+1, LASTHT+4, LASTWT+1 , LASTBP+1, LASTWC+1, DMDX+6
W	MEAS+1~, BMI+4*
X	EP+4~, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11* , IMMUN+1~, IMMUN+2, IMMUN+3, IMMUN+5, IMMUN+14, IMMUN+15, MEAS+1~, MEAS+2, MEAS+6, MEAS+8 , MEAS+9, MEAS+10, MEAS+11, MEAS+13, MEAS+14, MEAS+17, MEAS+19, MEAS+21, MEAS+22, MEAS+23 , MEAS+26, MEAS+27, MEAS+28, MEAS+29, MEAS+31, MEAS+32, CKDP+8, CKDP+10, CKDP+11, CKDP+12 , CKDP+13, ALLERG+1, ALLERG+2, ALLERG+3, ALLERG+4, ALLERG+9, ALLERG+14, ALLERG+20, ALLERG+26, ALLERG+31 , ALLERG+36, ALLERG+38, MEDS+1~, MEDS+3, MEDS+4, MEDS+5, MEDS+6, MEDS+7, MEDS+8, MEDS+9* , MEDS+10, MEDS+11, MEDS+16, MEDS+19, MEDS+21, MEDS+22, MEDS+23, MEDS+28, MEDS+29, MEDS+32 , S+3~, S+5, S+6, S+8, S+9, S1+2, LASTHT+4~, LASTWT+1~, LASTBP+1~, LASTWC+1~ , DMDX+5~, DMDX+6, DMDX+10
Y	EP+4~, SETARRAY+7, S~, S+6, S+7, S+9, DMDX+5~, DMDX+6*

Customize PDF page

Package: Health Summary Components

Routine: BHSPMH3

Call Graph Total: 12