Routine: BHSMU

Information

BHSMU ;IHS/CIA/MGH - Health Summary Utilities ;30-Nov-2015 10:26;DU

Source Information

Source file <BHSMU.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
DRG Grouper	2	$$CODEN^ICDCODE $$CODEN^ICDEX
Kernel	2	$$FMTE^XLFDT $$VERSION^XPDUTL
Patient Care Component	2	^APCHSMU1 ($$CPT,$$WH)^APCHSMU2
Patient Care Component Reports	2	$$START1^APCLDF $$PRIMPROV^APCLV
Health Summary Components	1	$$AICD^BHSUTL
IHS Patient	1	($$DOB,$$SEX)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Taxonomy	1	$$ICD^ATXAPI
Women's Health	1	$$WHAPI^BWVPAT1

Caller Graph

Caller Graph Total: 12

Package	Total	Caller Graph
Health Summary Components	12	BHSCPT BHSCPT1 BHSDM1 BHSDM3 BHSDM4 BHSDM5 BHSDMPRE BHSEDASS BHSFAM1 BHSFH BHSFH1 BHSMEA

Entry Points

Name	Comments	DBIA/ICR reference
FRSTITEM(P,V,T,F)	;EP - return last item V
OVR(P,I)	;EP - return date^prov^comments
LASTSIG(P)	;EP
D1(D)	;EP - DATE WITH 4 YR
TYPEREF(N)	;EP
LASTHEAR(P)	;EP
PLTAX(P,A,S)	;EP - is DM on problem list 1 or 0
LASTITEM(P,V,T,F)	;EP - return last item V
PLCODE(P,A,F)	;EP
DAYS(V)	;
LASTHF(P,C,F)	;EP - get last factor in category C for patient P
LASTFLU(P,C)	;EP - return last flu shot date
LASTLAB(P,APCHI,APCHT,APCHL,APCHLT,F)	;EP P is patient, APCHI is ien of lab test, APCHT is IEN of lab taxonomy, APCHL is ien of loinc code, APCHLT is ien o f loinc taxonmy
REF(P,F,I,D,T)	;EP - dm item refused?
LOINC(A,LT,LI)	;
LASTBE(P)	;EP
LASTPAP(P)	;EP - return last pap date
LASTVISI(P)	;EP - get last vision exam (exam,measurments)
LASTCOLO(P)	;EP
DATE(D)	;EP - convert to slashed date

External References

Name	Field # of Occurrence
^APCHSMU1	LASTFLU+15, LASTBE+5, LASTSIG+9
$$CPT^APCHSMU2	LASTPAP+50, LASTCOLO+21
$$WH^APCHSMU2	LASTPAP+15
$$START1^APCLDF	LASTITEM+2, LASTPAP+2, LASTPAP+4, LASTPAP+19, LASTPAP+24, LASTPAP+29, LASTPAP+34, LASTPAP+40, LASTPAP+45, LASTFLU+1 , LASTFLU+3, LASTFLU+7, LASTFLU+11, LASTBE+3, LASTCOLO+3, LASTCOLO+5, LASTCOLO+9, LASTCOLO+13, LASTSIG+3, LASTSIG+5 , FRSTITEM+2
$$PRIMPROV^APCLV	LASTPAP+21, LASTPAP+26, LASTPAP+31, LASTPAP+36, LASTPAP+42
$$ICD^ATXAPI	PLTAX+9, PLCODE+8
$$DOB^AUPNPAT	LASTPAP+15
$$SEX^AUPNPAT	LASTPAP+1
$$AICD^BHSUTL	PLCODE+5
$$WHAPI^BWVPAT1	LASTPAP+9
$$CODEN^ICDCODE	PLCODE+6
$$CODEN^ICDEX	PLCODE+5
$$VAL^XBDIQ1	OVR+6, REF+10, REF+13, TYPEREF+6, LASTHF+15, LASTHF+17
$$FMTE^XLFDT	REF+10, REF+13, LASTHF+17
$$VERSION^XPDUTL	LASTPAP+8, LASTPAP+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	LOINC+5, LOINC+7
^ATXAX("B"	PLTAX+5, LASTPAP+49, LASTCOLO+20
^ATXLAB - [#9002228]	LASTLAB+10
^AUPNHMRO - [#9000025]	OVR+5, OVR+6
^AUPNHMRO("AA"	OVR+3, OVR+4
^AUPNPREF - [#9000022]	TYPEREF+1
^AUPNPREF("AA"	REF+6, REF+8
^AUPNPROB - [#9000011]	PLTAX+7, PLTAX+8, PLCODE+8
^AUPNPROB("AC"	PLTAX+7, PLCODE+8
^AUPNVCPT("AA"	LASTFLU+15, LASTBE+5, LASTSIG+9
^AUPNVHF - [#9000010.23]	LASTHF+16
^AUPNVHF("AA"	LASTHF+8, LASTHF+9, LASTHF+11
^AUPNVLAB - [#9000010.09]	LASTLAB+8, LASTLAB+10, LASTLAB+11
^AUPNVLAB("AE"	LASTLAB+5, LASTLAB+6, LASTLAB+7
^AUPNVRAD - [#9000010.22]	LASTBE+9, LASTBE+10
^AUPNVRAD("AC"	LASTBE+8
^AUPNVSIT - [#9000010]	LASTBE+9
^AUTTHF("AC"	LASTHF+7
^AUTTHF("B"	LASTHF+4
^BWPN("B"	LASTPAP+14
^BWVPDT("B"	LASTPAP+9
^DIC(7 - [#7]	LASTPAP+21, LASTPAP+26, LASTPAP+31, LASTPAP+36, LASTPAP+42
^DPT - [#2]	LASTPAP+50, LASTCOLO+21
^ICPT("B"	LASTFLU+15, LASTBE+5, LASTSIG+9
^LAB(95.3 - [#95.3]	LOINC+4, LOINC+6
^RAMIS(71 - [#71]	LASTBE+10

Label References

Name	Line Occurrences
$$LASTITEM	LASTVISI+3, LASTVISI+4, LASTVISI+6, LASTHEAR+3, LASTHEAR+4, LASTHEAR+6, LASTHEAR+8, LASTHEAR+10
$$LOINC	LASTLAB+12
$$TYPEREF	REF+10, REF+13

Local Variables

Name	Field # of Occurrence
%	LOINC+3~, LOINC+4, LOINC+5, LOINC+6, LOINC+7, LASTITEM+2~, OVR+4~, OVR+5, OVR+6, TYPEREF+1~* , TYPEREF+2, TYPEREF+3, TYPEREF+4, TYPEREF+5, LASTPAP+2~, LASTPAP+4, LASTPAP+19, LASTPAP+24, LASTPAP+29, LASTPAP+34 , LASTPAP+40, LASTPAP+45, LASTFLU+1~, LASTFLU+3, LASTFLU+7, LASTFLU+11, LASTFLU+15~, LASTBE+2~, LASTBE+3, LASTBE+5~* , LASTCOLO+2~, LASTCOLO+3, LASTCOLO+5, LASTCOLO+9, LASTCOLO+13, LASTSIG+2~, LASTSIG+3, LASTSIG+5, LASTSIG+9~, LASTVISI+2~ , LASTVISI+4, LASTVISI+5, LASTVISI+6, LASTVISI+7, LASTHEAR+2~, LASTHEAR+4, LASTHEAR+5, LASTHEAR+6, LASTHEAR+7, LASTHEAR+8 , LASTHEAR+9, LASTHEAR+10, LASTHEAR+11, FRSTITEM+2~
A	LOINC~, LOINC+2, LOINC+4, LOINC+6, PLTAX~, PLTAX+2, PLTAX+5, PLCODE~, PLCODE+2, PLCODE+5 , PLCODE+6
>> APCHC	LASTLAB+4, LASTLAB+5, LASTLAB+6, LASTLAB+7, LASTLAB+9, LASTLAB+10, LASTLAB+13, LASTLAB+15, LASTPAP+39*, LASTPAP+40
APCHI	LASTLAB~, LASTLAB+9
APCHL	LASTLAB~, LASTLAB+12
APCHLT	LASTLAB~, LASTLAB+12
APCHT	LASTLAB~, LASTLAB+10
APCHY	LASTPAP+29!, LASTPAP+34!, LASTPAP+40!
APCHY(1	LASTPAP+30, LASTPAP+31, LASTPAP+32, LASTPAP+33, LASTPAP+35, LASTPAP+36, LASTPAP+37, LASTPAP+38, LASTPAP+41, LASTPAP+42 , LASTPAP+43, LASTPAP+44
BHSY	LASTITEM+2~!, LASTPAP+2~, LASTPAP+4!, LASTPAP+19!, LASTPAP+24!, LASTPAP+45!, LASTFLU+1~, LASTFLU+3!, LASTFLU+7!, LASTFLU+11! , LASTFLU+15!, LASTBE+2~, LASTBE+3!, LASTBE+5!, LASTCOLO+2~, LASTCOLO+3!, LASTCOLO+5!, LASTCOLO+9!, LASTCOLO+13!, LASTSIG+2~ , LASTSIG+3!, LASTSIG+5!, LASTSIG+6, LASTSIG+9!, FRSTITEM+2~!
BHSY(1	LASTITEM+3, LASTPAP+3, LASTPAP+5, LASTPAP+6, LASTPAP+7, LASTPAP+20, LASTPAP+21, LASTPAP+22, LASTPAP+23, LASTPAP+25 , LASTPAP+26, LASTPAP+27, LASTPAP+28, LASTPAP+46, LASTPAP+47, LASTPAP+48, LASTFLU+2, LASTFLU+4, LASTFLU+5, LASTFLU+6 , LASTFLU+8, LASTFLU+9, LASTFLU+10, LASTFLU+12, LASTFLU+13, LASTFLU+14, LASTFLU+15, LASTFLU+16, LASTFLU+17, LASTBE+4 , LASTBE+5, LASTBE+6, LASTBE+7, LASTCOLO+4, LASTCOLO+6, LASTCOLO+7, LASTCOLO+8, LASTCOLO+10, LASTCOLO+11, LASTCOLO+12 , LASTCOLO+14, LASTCOLO+15, LASTCOLO+16, LASTSIG+4, LASTSIG+7, LASTSIG+8, LASTSIG+9*, LASTSIG+10, LASTSIG+11, FRSTITEM+3
C	LASTFLU~, LASTFLU+1, LASTHF~, LASTHF+2, LASTHF+4*, LASTHF+5, LASTHF+7
D	D1~, D1+1, D1+2, DATE~, DATE+1, DATE+2, LASTLAB+5, LASTLAB+6, LASTLAB+7, LASTLAB+9 , LASTLAB+10, LASTLAB+13, REF~, REF+4, REF+10, REF+11, LASTVISI+2~, LASTVISI+3, LASTVISI+5, LASTVISI+7* , LASTVISI+8, LASTHEAR+2~, LASTHEAR+3, LASTHEAR+5, LASTHEAR+7, LASTHEAR+9, LASTHEAR+11, LASTHEAR+12, LASTHF+6~, LASTHF+9 , LASTHF+10, LASTHF+11, LASTHF+13*, LASTHF+14, LASTHF+15, LASTHF+16, LASTHF+17, LASTHF+18
DT	LASTPAP+15, LASTPAP+50, LASTCOLO+21
E	LASTITEM+2~, LASTPAP+2, LASTPAP+4, LASTPAP+19, LASTPAP+24, LASTPAP+29, LASTPAP+34, LASTPAP+40, LASTPAP+45, LASTFLU+1~ , LASTFLU+3, LASTFLU+7, LASTFLU+11, LASTBE+2~, LASTBE+3, LASTCOLO+2~, LASTCOLO+3, LASTCOLO+5, LASTCOLO+9, LASTCOLO+13 , LASTSIG+2~, LASTSIG+3, LASTSIG+5, FRSTITEM+2~*
F	LASTLAB~, LASTLAB+3, LASTITEM~, LASTITEM+1, LASTITEM+3, PLCODE~, PLCODE+3, PLCODE+9, PLCODE+10, REF~ , REF+2, REF+6, REF+8, REF+10, REF+13, LASTHF~, LASTHF+3, LASTHF+15, LASTHF+16, LASTHF+17 , FRSTITEM~, FRSTITEM+1*, FRSTITEM+3
H	LASTHF+6~, LASTHF+7, LASTHF+8, LASTHF+9, LASTHF+11
I	OVR~, OVR+2, OVR+3, OVR+4, PLTAX+7~, PLTAX+10, PLTAX+11, PLCODE+8~*, PLCODE+9, REF~ , REF+3, REF+6, REF+8, REF+10, REF+13
J	LASTLAB+2~, LASTLAB+11*, LASTLAB+12
L	LASTLAB+2~, LASTLAB+6*, LASTLAB+7, LASTLAB+9
LBE	LASTBE+2~, LASTBE+4, LASTBE+6, LASTBE+7, LASTBE+11, LASTBE+12, LASTBE+13, LASTBE+14
LCOLO	LASTCOLO+2~, LASTCOLO+4, LASTCOLO+7, LASTCOLO+8, LASTCOLO+11, LASTCOLO+12, LASTCOLO+15, LASTCOLO+16, LASTCOLO+23, LASTCOLO+24
LFLU	LASTFLU+1~, LASTFLU+2, LASTFLU+5, LASTFLU+6, LASTFLU+9, LASTFLU+10, LASTFLU+13, LASTFLU+14, LASTFLU+16, LASTFLU+17 , LASTFLU+18
LI	LOINC~, LOINC+1, LOINC+2
LPAP	LASTPAP+2~, LASTPAP+3, LASTPAP+6, LASTPAP+7, LASTPAP+11, LASTPAP+12, LASTPAP+17, LASTPAP+18, LASTPAP+22, LASTPAP+23 , LASTPAP+27, LASTPAP+28, LASTPAP+32, LASTPAP+33, LASTPAP+37, LASTPAP+38, LASTPAP+43, LASTPAP+44, LASTPAP+47, LASTPAP+48* , LASTPAP+52, LASTPAP+53*, LASTPAP+54
LSIG	LASTSIG+2~, LASTSIG+4, LASTSIG+7, LASTSIG+8, LASTSIG+10, LASTSIG+11, LASTSIG+12
LT	LOINC~, LOINC+1, LOINC+5, LOINC+7
N	REF+6~, REF+8*, REF+10, REF+13, TYPEREF~, TYPEREF+1, TYPEREF+6
O	LASTHF+6~!
O(	LASTHF+11*, LASTHF+15, LASTHF+16, LASTHF+17
O(0	LASTHF+13
P	LASTLAB~, LASTLAB+5, LASTLAB+6, LASTLAB+7, LASTITEM~, LASTITEM+2, OVR~, OVR+1, OVR+3, OVR+4 , PLTAX~, PLTAX+1, PLTAX+7, PLCODE~, PLCODE+1, PLCODE+8, REF~, REF+1, REF+6, REF+8 , LASTPAP~, LASTPAP+1, LASTPAP+2, LASTPAP+4, LASTPAP+9, LASTPAP+15, LASTPAP+19, LASTPAP+24, LASTPAP+29, LASTPAP+34 , LASTPAP+40, LASTPAP+45, LASTPAP+50, LASTFLU~, LASTFLU+1, LASTFLU+3, LASTFLU+7, LASTFLU+11, LASTFLU+15, LASTBE~ , LASTBE+1, LASTBE+3, LASTBE+5, LASTBE+8, LASTCOLO~, LASTCOLO+1, LASTCOLO+3, LASTCOLO+5, LASTCOLO+9, LASTCOLO+13 , LASTCOLO+21, LASTSIG~, LASTSIG+1, LASTSIG+3, LASTSIG+5, LASTSIG+9, LASTVISI~, LASTVISI+1, LASTVISI+3, LASTVISI+4 , LASTVISI+6, LASTHEAR~, LASTHEAR+1, LASTHEAR+3, LASTHEAR+4, LASTHEAR+6, LASTHEAR+8, LASTHEAR+10, LASTHF~, LASTHF+1 , LASTHF+8, LASTHF+9, LASTHF+11, FRSTITEM~, FRSTITEM+2
S	PLTAX~, PLTAX+3*
T	LASTITEM~, LASTITEM+2, PLTAX+4~, PLTAX+5, PLTAX+6, PLTAX+9, PLCODE+4~, PLCODE+5, PLCODE+6, PLCODE+7 , PLCODE+8, REF~, REF+5, REF+10, REF+12, LASTPAP+2~, LASTPAP+14, LASTPAP+15, LASTPAP+49, LASTPAP+50 , LASTFLU+1~, LASTFLU+15, LASTBE+2~, LASTBE+5, LASTCOLO+2~, LASTCOLO+20, LASTCOLO+21, LASTSIG+2~, LASTSIG+9, FRSTITEM~ , FRSTITEM+2
TAXARR	PLTAX+4~
U	LASTLAB+10, LASTLAB+11, LOINC+4, LOINC+6, OVR+6, PLTAX+8, PLCODE+8, TYPEREF+1, LASTPAP+3, LASTPAP+6 , LASTPAP+7, LASTPAP+9, LASTPAP+21, LASTPAP+22, LASTPAP+23, LASTPAP+26, LASTPAP+27, LASTPAP+28, LASTPAP+31, LASTPAP+32 , LASTPAP+33, LASTPAP+36, LASTPAP+37, LASTPAP+38, LASTPAP+42, LASTPAP+43, LASTPAP+44, LASTPAP+47, LASTPAP+48, LASTPAP+50 , LASTFLU+2, LASTFLU+5, LASTFLU+6, LASTFLU+9, LASTFLU+10, LASTFLU+13, LASTFLU+14, LASTFLU+16, LASTFLU+17, LASTBE+4 , LASTBE+6, LASTBE+7, LASTBE+9, LASTBE+10, LASTCOLO+4, LASTCOLO+7, LASTCOLO+8, LASTCOLO+11, LASTCOLO+12, LASTCOLO+15 , LASTCOLO+16, LASTCOLO+21, LASTSIG+4, LASTSIG+7, LASTSIG+8, LASTSIG+10, LASTSIG+11, LASTHF+16
V	LASTITEM~, LASTITEM+2, DAYS~, DAYS+1, DAYS+2, DAYS+3, LASTPAP+21, LASTPAP+26, LASTPAP+31, LASTPAP+36 , LASTPAP+42, LASTBE+2~, LASTBE+8, LASTBE+9*, LASTBE+11, LASTBE+12, LASTBE+13, FRSTITEM~, FRSTITEM+2
X	LASTLAB+7, LASTLAB+8, LASTLAB+10, LASTLAB+11, PLTAX+7~, PLTAX+8, PLCODE+8~, PLCODE+10, REF+6~, REF+7 , REF+8, REF+9, LASTPAP+9, LASTPAP+10, LASTPAP+11, LASTPAP+12, LASTPAP+14, LASTPAP+15, LASTPAP+16, LASTPAP+17 , LASTPAP+18, LASTPAP+50, LASTPAP+51, LASTPAP+52, LASTPAP+53, LASTBE+2~, LASTBE+8, LASTBE+9, LASTBE+10, LASTCOLO+21 , LASTCOLO+22, LASTCOLO+23
Y	LASTITEM+2~, PLTAX+7~, PLTAX+8, PLTAX+9, PLCODE+8~, REF+9~, REF+10, REF+11, REF+12, REF+13 , LASTBE+2~, LASTBE+8, LASTBE+10, LASTBE+11, LASTBE+12, LASTBE+13, FRSTITEM+2~

Marked Items

Name	Field # of Occurrence
$T(BECPTS+%^APCHSMU1	LASTBE+5
$T(FLUCPTS+%^APCHSMU1	LASTFLU+15
$T(SIGCPTS+%^APCHSMU1	LASTSIG+9

Customize PDF page

Package: Health Summary Components

Routine: BHSMU

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed