Routine: BHSEXAM

Information

BHSEXAM ;IHS/CIA/MGH - Health Summary for V EXAM file ;10-Dec-2010 17:44;MGH

Source Information

Source file <BHSEXAM.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
Patient Care Component	2	$$DATE^APCHSMU ($$CPT,$$LASTCPTI,$$LASTDXI,$$LASTPRCI)^APCHSMU2
Patient Care Component Reports	2	($$LASTPELV,$$LASTRECT)^APCLAPI2 $$LASTBRST^APCLAPI3
IHS VA Utilities	1	$$VAL^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
EBLDNEW	;new exam section that looks at dx, procedures,cpts in addition to exams
LASTEX07(P,BD,ED)	;
VXAM(P,BD,ED,E)	;
LASTEX21(P,BD,ED)	;
LASTEX11(P,BD,ED)	;
LASTEX19(P,BD,ED)	;
DISPREF	;EP added in patch 2
LASTEX01(P,BD,ED)	;
LASTEXAM(P,C,B,E)	;
LASTEX06(P,BD,ED)	;
LASTEX04(P,BD,ED)	;
LASTEX14(P,BD,ED)	;
SEXAM	;
LASTEX23(P,BD,ED)	;
LASTEX02(P,BD,ED)	;
MREX
MRE	; ******************** EP MOST RECENT EXAMINATION * 9000010.13 *******
LASTEX08(P,BD,ED)	;
LASTEX16(P,BD,ED)	;
EPRTNEW	;<PRINT>
LASTEX12(P,BD,ED)	;
LASTEX15(P,BD,ED)	;
LASTEX17(P,BD,ED)	;

External References

Name	Field # of Occurrence
$$DATE^APCHSMU	DISPREF+10
$$CPT^APCHSMU2	LASTEX01+12
$$LASTCPTI^APCHSMU2	LASTEX02+14, LASTEX08+12, LASTEX12+8, LASTEX19+12, LASTEX19+14, LASTEX21+14, LASTEX23+6
$$LASTDXI^APCHSMU2	LASTEX01+6, LASTEX01+8, LASTEX01+10, LASTEX02+6, LASTEX02+8, LASTEX02+10, LASTEX04+6, LASTEX07+6, LASTEX08+6, LASTEX08+8 , LASTEX08+10, LASTEX11+6, LASTEX16+6, LASTEX16+8, LASTEX17+6, LASTEX17+8, LASTEX19+6, LASTEX21+6, LASTEX21+8, LASTEX21+10
$$LASTPRCI^APCHSMU2	LASTEX02+12, LASTEX04+8, LASTEX11+8, LASTEX12+6, LASTEX19+8, LASTEX19+10, LASTEX21+12
$$LASTPELV^APCLAPI2	LASTEX15+2
$$LASTRECT^APCLAPI2	LASTEX14+2
$$LASTBRST^APCLAPI3	LASTEX06+2
REGDT4^GMTSU	EPRTNEW+6
CKP^GMTSUP	MRE+4, DISPREF+1, DISPREF+9, EPRTNEW+9
$$VAL^XBDIQ1	DISPREF+10, VXAM+7, LASTEXAM+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BHST," Refusals " Line Location: DISPREF+8
Function Call: WRITE	Prompt: ! Line Location: DISPREF+13
Function Call: WRITE	Prompt: "Exam",?32,"Date",?45,"Result",?65,"Provider",! Line Location: EPRTNEW+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	LASTEX01+12
^AUPNPREF("AA"	MRE+9, DISPREF+3, DISPREF+4, DISPREF+5
^AUPNVXAM("AA"	VXAM+3, VXAM+6, LASTEXAM+8, LASTEXAM+11
^AUTTEXAM - [#9999999.15]	EBLDNEW+2, EBLDNEW+3, EPRTNEW+4, VXAM+7
^AUTTEXAM("C"	LASTEXAM+6

Label References

Name	Line Occurrences
$$LASTEX01	EBLDNEW+6
$$LASTEX02	EBLDNEW+7
$$LASTEX04	EBLDNEW+8
$$LASTEX06	EBLDNEW+9
$$LASTEX07	EBLDNEW+10
$$LASTEX08	EBLDNEW+11
$$LASTEX11	EBLDNEW+12
$$LASTEX12	EBLDNEW+13
$$LASTEX14	EBLDNEW+14
$$LASTEX15	EBLDNEW+15
$$LASTEX16	EBLDNEW+16
$$LASTEX17	EBLDNEW+17
$$LASTEX19	EBLDNEW+18
$$LASTEX21	EBLDNEW+19
$$LASTEX23	EBLDNEW+20
$$LASTEXAM	LASTEX01+4, LASTEX02+4, LASTEX04+4, LASTEX07+4, LASTEX08+4, LASTEX11+4, LASTEX12+4, LASTEX16+4, LASTEX17+4, LASTEX19+4 , LASTEX21+4, LASTEX23+4
$$VXAM	EBLDNEW+4, EBLDNEW+21
DISPREF	MRE+11
EBLDNEW	MRE+7
EPRTNEW	MRE+7
SEXAM	EBLDNEW+4, EBLDNEW+6, EBLDNEW+7, EBLDNEW+8, EBLDNEW+9, EBLDNEW+10, EBLDNEW+11, EBLDNEW+12, EBLDNEW+13, EBLDNEW+14 , EBLDNEW+15, EBLDNEW+16, EBLDNEW+17, EBLDNEW+18, EBLDNEW+19, EBLDNEW+20, EBLDNEW+21

Local Variables

Name	Field # of Occurrence
%	MREX!, DISPREF+6
B	LASTEXAM~, LASTEXAM+3*, LASTEXAM+10
BD	VXAM~, VXAM+5, LASTEX01~, LASTEX01+4, LASTEX01+6, LASTEX01+12, LASTEX02~, LASTEX02+4, LASTEX02+6, LASTEX04~ , LASTEX04+4, LASTEX04+6, LASTEX06~, LASTEX06+3, LASTEX07~, LASTEX07+4, LASTEX07+6, LASTEX08~, LASTEX08+4, LASTEX08+6 , LASTEX11~, LASTEX11+4, LASTEX11+6, LASTEX12~, LASTEX12+4, LASTEX14~, LASTEX14+3, LASTEX15~, LASTEX15+3, LASTEX16~ , LASTEX16+4, LASTEX16+6, LASTEX16+8, LASTEX17~, LASTEX17+4, LASTEX17+6, LASTEX17+8, LASTEX19~, LASTEX19+4, LASTEX19+6 , LASTEX21~, LASTEX21+4, LASTEX21+6, LASTEX23~, LASTEX23+4
BHS	EPRTNEW+1~
BHSD	DISPREF+4, DISPREF+5, DISPREF+10, DISPREF+14!, EPRTNEW+1~, EPRTNEW+6, EPRTNEW+10
BHSDFN	MREX!
BHSECOD	MREX!, EBLDNEW+3*, EBLDNEW+4, EBLDNEW+6, EBLDNEW+7, EBLDNEW+8, EBLDNEW+9, EBLDNEW+10, EBLDNEW+11, EBLDNEW+12 , EBLDNEW+13, EBLDNEW+14, EBLDNEW+15, EBLDNEW+16, EBLDNEW+17, EBLDNEW+18, EBLDNEW+19, EBLDNEW+20
BHSEIEN	MREX!, EBLDNEW+2*, EBLDNEW+3, EBLDNEW+4, EBLDNEW+21, SEXAM+2
BHSER	MREX!, EPRTNEW+1~, EPRTNEW+7*, EPRTNEW+10
BHSERT	MREX!, EBLDNEW+1!
BHSERT(	EPRTNEW+3, EPRTNEW+5, EPRTNEW+6, EPRTNEW+7, EPRTNEW+8, SEXAM+2*
BHSET	MREX!
BHSETD	MREX!
BHSETX	MREX!
BHSEXT	EPRTNEW+1~, EPRTNEW+3*, EPRTNEW+4, EPRTNEW+5, EPRTNEW+6, EPRTNEW+7, EPRTNEW+8
BHSFN	MRE+10*, DISPREF+3, DISPREF+4, DISPREF+5, DISPREF+14!
BHSHP	EPRTNEW+1~, EPRTNEW+8*, EPRTNEW+10
BHSI	DISPREF+5*, DISPREF+10, DISPREF+14!
BHSICD	MRE+1~
BHSICL	MRE+1~
BHSIVD	MREX!
BHSMXL	MREX!, EBLDNEW+1*
BHSN	MREX!, EPRTNEW+1~, EPRTNEW+4, EPRTNEW+5, EPRTNEW+10
BHSNMX	MREX!
BHSPAT	MRE+1~, MRE+2*, MRE+9, DISPREF+3, DISPREF+4, DISPREF+5, EBLDNEW+4, EBLDNEW+6, EBLDNEW+7, EBLDNEW+8 , EBLDNEW+9, EBLDNEW+10, EBLDNEW+11, EBLDNEW+12, EBLDNEW+13, EBLDNEW+14, EBLDNEW+15, EBLDNEW+16, EBLDNEW+17, EBLDNEW+18 , EBLDNEW+19, EBLDNEW+20, EBLDNEW+21
BHSQ	MRE+1~
BHSRC	DISPREF+2, DISPREF+7, DISPREF+8, DISPREF+14!
BHSRL	MREX!
BHSRW	MREX!
BHSS	DISPREF+6, DISPREF+14!
BHST	MRE+10*, DISPREF+8, DISPREF+14!
BHSX	DISPREF+3*, DISPREF+4, DISPREF+5, DISPREF+14!
C	LASTEXAM~, LASTEXAM+2, LASTEXAM+6*, LASTEXAM+7, LASTEXAM+8, LASTEXAM+11
D	VXAM+2~, VXAM+3, VXAM+4, VXAM+5, VXAM+6, VXAM+7, LASTEX01+1~, LASTEX01+4, LASTEX01+5, LASTEX01+6* , LASTEX01+7, LASTEX01+8, LASTEX01+9, LASTEX01+10, LASTEX01+11, LASTEX01+12, LASTEX01+13, LASTEX01+15, LASTEX01+16, LASTEX02+1~ , LASTEX02+4, LASTEX02+5, LASTEX02+6, LASTEX02+7, LASTEX02+8, LASTEX02+9, LASTEX02+10, LASTEX02+11, LASTEX02+12, LASTEX02+13 , LASTEX02+14, LASTEX02+15, LASTEX02+17, LASTEX02+18, LASTEX04+1~, LASTEX04+4, LASTEX04+5, LASTEX04+6, LASTEX04+7, LASTEX04+8 , LASTEX04+9, LASTEX04+11, LASTEX04+12, LASTEX07+1~, LASTEX07+4, LASTEX07+5, LASTEX07+6, LASTEX07+7, LASTEX07+9, LASTEX07+10 , LASTEX08+1~, LASTEX08+4, LASTEX08+5, LASTEX08+6, LASTEX08+7, LASTEX08+8, LASTEX08+9, LASTEX08+10, LASTEX08+11, LASTEX08+12* , LASTEX08+13, LASTEX08+15, LASTEX08+16, LASTEX11+1~, LASTEX11+4, LASTEX11+5, LASTEX11+6, LASTEX11+7, LASTEX11+8, LASTEX11+9 , LASTEX11+11, LASTEX11+12, LASTEX12+1~, LASTEX12+4, LASTEX12+5, LASTEX12+6, LASTEX12+7, LASTEX12+8, LASTEX12+9, LASTEX12+11* , LASTEX12+12, LASTEX16+1~, LASTEX16+4, LASTEX16+5, LASTEX16+6, LASTEX16+7, LASTEX16+8, LASTEX16+9, LASTEX16+11, LASTEX16+12 , LASTEX17+1~, LASTEX17+4, LASTEX17+5, LASTEX17+6, LASTEX17+7, LASTEX17+8, LASTEX17+9, LASTEX17+11, LASTEX17+12, LASTEX19+1~ , LASTEX19+4, LASTEX19+5, LASTEX19+6, LASTEX19+7, LASTEX19+8, LASTEX19+9, LASTEX19+10, LASTEX19+11, LASTEX19+12, LASTEX19+13 , LASTEX19+14, LASTEX19+15, LASTEX19+17, LASTEX19+18, LASTEX21+1~, LASTEX21+4, LASTEX21+5, LASTEX21+6, LASTEX21+7, LASTEX21+8 , LASTEX21+9, LASTEX21+10, LASTEX21+11, LASTEX21+12, LASTEX21+13, LASTEX21+14, LASTEX21+15, LASTEX21+17, LASTEX21+18, LASTEX23+1~ , LASTEX23+4, LASTEX23+5, LASTEX23+6, LASTEX23+7, LASTEX23+9, LASTEX23+10, LASTEXAM+5~, LASTEXAM+8, LASTEXAM+9, LASTEXAM+10 , LASTEXAM+11, LASTEXAM+12
>> DFN	MRE+2
DT	EBLDNEW+4, EBLDNEW+6, EBLDNEW+7, EBLDNEW+8, EBLDNEW+9, EBLDNEW+10, EBLDNEW+11, EBLDNEW+12, EBLDNEW+13, EBLDNEW+14 , EBLDNEW+15, EBLDNEW+16, EBLDNEW+17, EBLDNEW+18, EBLDNEW+19, EBLDNEW+20, EBLDNEW+21, LASTEX01+6, LASTEX01+12, LASTEX02+6 , LASTEX04+6, LASTEX07+6, LASTEX08+6, LASTEX11+6, LASTEX16+6, LASTEX16+8, LASTEX17+6, LASTEX17+8, LASTEX19+6, LASTEX21+6
E	VXAM~, VXAM+3, VXAM+6, VXAM+7, LASTEXAM~, LASTEXAM+4*
ED	VXAM~, VXAM+1, LASTEX01~, LASTEX01+3, LASTEX01+4, LASTEX02~, LASTEX02+3, LASTEX02+4, LASTEX04~, LASTEX04+3 , LASTEX04+4, LASTEX06~, LASTEX07~, LASTEX07+3, LASTEX07+4, LASTEX08~, LASTEX08+3, LASTEX08+4, LASTEX11~, LASTEX11+3* , LASTEX11+4, LASTEX12~, LASTEX12+3, LASTEX12+4, LASTEX14~, LASTEX15~, LASTEX16~, LASTEX16+3, LASTEX16+4, LASTEX17~ , LASTEX17+3, LASTEX17+4, LASTEX19~, LASTEX19+3, LASTEX19+4, LASTEX21~, LASTEX21+3, LASTEX21+4, LASTEX23~, LASTEX23+3 , LASTEX23+4
>> GMTSDLM	DISPREF+4, EBLDNEW+4, EBLDNEW+6, EBLDNEW+7, EBLDNEW+8, EBLDNEW+9, EBLDNEW+10, EBLDNEW+11, EBLDNEW+12, EBLDNEW+13 , EBLDNEW+14, EBLDNEW+15, EBLDNEW+16, EBLDNEW+17, EBLDNEW+18, EBLDNEW+19, EBLDNEW+20, EBLDNEW+21
>> GMTSQIT	MRE+4, DISPREF+1, DISPREF+3, DISPREF+4, DISPREF+5, DISPREF+9, EPRTNEW+3, EPRTNEW+9
I	VXAM+2~, VXAM+6, VXAM+7, LASTEXAM+5~, LASTEXAM+11, LASTEXAM+12
LBE	LASTEX01+1~, LASTEX01+2!, LASTEX01+14, LASTEX02+1~, LASTEX02+2!, LASTEX02+16, LASTEX04+1~, LASTEX04+2!, LASTEX04+10, LASTEX07+1~ , LASTEX07+2!, LASTEX07+8, LASTEX08+1~, LASTEX08+2!, LASTEX08+14, LASTEX11+1~, LASTEX11+2!, LASTEX11+10, LASTEX12+1~, LASTEX12+2! , LASTEX12+10, LASTEX16+1~, LASTEX16+2!, LASTEX16+10, LASTEX17+1~, LASTEX17+2!, LASTEX17+10, LASTEX19+1~, LASTEX19+2!, LASTEX19+16 , LASTEX21+1~, LASTEX21+2!, LASTEX21+16, LASTEX23+1~, LASTEX23+2!, LASTEX23+8
LBE(	LASTEX01+16, LASTEX02+18, LASTEX04+12, LASTEX07+10, LASTEX08+16, LASTEX11+12, LASTEX12+12, LASTEX16+12, LASTEX17+12, LASTEX19+18 , LASTEX21+18, LASTEX23+10
LBE(0	LASTEX01+15, LASTEX02+17, LASTEX04+11, LASTEX07+9, LASTEX08+15, LASTEX11+11, LASTEX12+11, LASTEX16+11, LASTEX17+11, LASTEX19+17 , LASTEX21+17, LASTEX23+9
LBE(9999999	LASTEX01+5, LASTEX01+7, LASTEX01+9, LASTEX01+11, LASTEX01+13, LASTEX02+5, LASTEX02+7, LASTEX02+9, LASTEX02+11, LASTEX02+13 , LASTEX02+15, LASTEX04+5, LASTEX04+7, LASTEX04+9, LASTEX07+5, LASTEX07+7, LASTEX08+5, LASTEX08+7, LASTEX08+9, LASTEX08+11 , LASTEX08+13, LASTEX11+5, LASTEX11+7, LASTEX11+9, LASTEX12+5, LASTEX12+7, LASTEX12+9, LASTEX16+5, LASTEX16+7, LASTEX16+9 , LASTEX17+5, LASTEX17+7, LASTEX17+9, LASTEX19+5, LASTEX19+7, LASTEX19+9, LASTEX19+11, LASTEX19+13, LASTEX19+15, LASTEX21+5 , LASTEX21+7, LASTEX21+9, LASTEX21+11, LASTEX21+13, LASTEX21+15, LASTEX23+5, LASTEX23+7*
P	VXAM~, VXAM+3, VXAM+6, LASTEX01~, LASTEX01+4, LASTEX01+6, LASTEX01+8, LASTEX01+10, LASTEX01+12, LASTEX02~ , LASTEX02+4, LASTEX02+6, LASTEX02+8, LASTEX02+10, LASTEX02+12, LASTEX02+14, LASTEX04~, LASTEX04+4, LASTEX04+6, LASTEX04+8 , LASTEX06~, LASTEX06+2, LASTEX07~, LASTEX07+4, LASTEX07+6, LASTEX08~, LASTEX08+4, LASTEX08+6, LASTEX08+8, LASTEX08+10 , LASTEX08+12, LASTEX11~, LASTEX11+4, LASTEX11+6, LASTEX11+8, LASTEX12~, LASTEX12+4, LASTEX12+6, LASTEX12+8, LASTEX14~ , LASTEX14+2, LASTEX15~, LASTEX15+2, LASTEX16~, LASTEX16+4, LASTEX16+6, LASTEX16+8, LASTEX17~, LASTEX17+4, LASTEX17+6 , LASTEX17+8, LASTEX19~, LASTEX19+4, LASTEX19+6, LASTEX19+8, LASTEX19+10, LASTEX19+12, LASTEX19+14, LASTEX21~, LASTEX21+4 , LASTEX21+6, LASTEX21+8, LASTEX21+10, LASTEX21+12, LASTEX21+14, LASTEX23~, LASTEX23+4, LASTEX23+6, LASTEXAM~, LASTEXAM+1 , LASTEXAM+8, LASTEXAM+11
U	EBLDNEW+3, EPRTNEW+4, EPRTNEW+5, EPRTNEW+6, EPRTNEW+7, EPRTNEW+8, VXAM+7, LASTEX01+5, LASTEX01+7, LASTEX01+9 , LASTEX01+11, LASTEX01+13, LASTEX02+5, LASTEX02+7, LASTEX02+9, LASTEX02+11, LASTEX02+13, LASTEX02+15, LASTEX04+5, LASTEX04+7 , LASTEX04+9, LASTEX06+3, LASTEX07+5, LASTEX07+7, LASTEX08+5, LASTEX08+7, LASTEX08+9, LASTEX08+11, LASTEX08+13, LASTEX11+5 , LASTEX11+7, LASTEX11+9, LASTEX12+5, LASTEX12+7, LASTEX12+9, LASTEX14+3, LASTEX15+3, LASTEX16+5, LASTEX16+7, LASTEX16+9 , LASTEX17+5, LASTEX17+7, LASTEX17+9, LASTEX19+5, LASTEX19+7, LASTEX19+9, LASTEX19+11, LASTEX19+13, LASTEX19+15, LASTEX21+5 , LASTEX21+7, LASTEX21+9, LASTEX21+11, LASTEX21+13, LASTEX21+15, LASTEX23+5, LASTEX23+7
X	MRE+1~, EPRTNEW+6*
Y	MREX!, EBLDNEW+4, EBLDNEW+6, EBLDNEW+7, EBLDNEW+8, EBLDNEW+9, EBLDNEW+10, EBLDNEW+11, EBLDNEW+12, EBLDNEW+13* , EBLDNEW+14, EBLDNEW+15, EBLDNEW+16, EBLDNEW+17, EBLDNEW+18, EBLDNEW+19, EBLDNEW+20, EBLDNEW+21, SEXAM+1, SEXAM+2 , LASTEX06+1~, LASTEX06+2, LASTEX06+3, LASTEX06+4, LASTEX14+1~, LASTEX14+2, LASTEX14+3, LASTEX14+4, LASTEX15+1~, LASTEX15+2* , LASTEX15+3*, LASTEX15+4

Customize PDF page

Package: Health Summary Components

Routine: BHSEXAM

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed