Routine: BHSEYEKG

Package	Total	Call Graph
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
Health Summary Components	1	GETSITEV^BHSUTL
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
EKGDSP	;display EKG(S) ; <DISPLAY>
ADDTOL
BLDL
EYEMEAS	;display eye care measurements
GETEKG	;get EKG
EYERX	; *************** EYE GLASS PRESCRIPTIONS * 9000010.04 ******* ; <SETUP>
NPG
GATHER	;gather up last 5 of measurement in array by inverse date
EKGX	; exit EKG
DISPEM	;display eye measurements
EKG	; ***** EKG SUMMARY * 9000010.21 (V DIAGNOSTIC PROCEDURE RESULT) *****
EYERXX
BLD	; <BUILD>
DSPLY	;<DISPLAY>

External References

Name	Field # of Occurrence
GETSITEV^BHSUTL	EYERX+10
REGDT4^GMTSU	EYERX+11, EKGDSP+7
CKP^GMTSUP	EYERX+6, DSPLY+1, DSPLY+2, DSPLY+4, DSPLY+6, DSPLY+8, DISPEM+1, DISPEM+3, DISPEM+5, EKG+5 , EKGDSP+10
$$VAL^XBDIQ1	GATHER+2
$$FMTE^XLFDT	DISPEM+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BHSDAT,?12,BHSNSH,! Line Location: DSPLY+1
Function Call: WRITE	Prompt: " Sphere Cyl Axis Prism H Prism V Add",! Line Location: DSPLY+3
Function Call: WRITE	Prompt: !,BHSL,! Line Location: DSPLY+4
Function Call: WRITE	Prompt: BHSL,! Line Location: DSPLY+6
Function Call: WRITE	Prompt: !,BHSL1,!! Line Location: DSPLY+8
Function Call: WRITE	Prompt: !?29,"Eye Care Measurements" Line Location: DISPEM+2
Function Call: WRITE	Prompt: !?15,"VU",?34,"VC",?48,"TONOMETRY" Line Location: DISPEM+4
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT((9999999-BHSX),"2D") Line Location: DISPEM+5
Function Call: WRITE	Prompt: ?$P(BHSJ,";",BHST),$P(BHSMT(BHSX),U,BHST) Line Location: DISPEM+5
Function Call: WRITE	Prompt: BHSDAT,?10,BHSNSH,! Line Location: NPG+0
Function Call: WRITE	Prompt: " Sphere Cyl Axis Prism H Prism V Add",! Line Location: NPG+1
Function Call: WRITE	Prompt: BHSDS Line Location: EKGDSP+11
Function Call: WRITE	Prompt: ?12,BHSDP,?30,"RESULT: ",BHSVL,! Line Location: EKGDSP+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVDXP - [#9000010.21]	EKGDSP+2
^AUPNVDXP("AA"	EKG+7, EKG+8, EKG+9
^AUPNVDXP("AC"	EKG+4
^AUPNVEYE - [#9000010.04]	EYERX+10, BLD+1
^AUPNVEYE("AA"	EYERX+5, EYERX+7, EYERX+9
^AUPNVMSR("AA"	GATHER+2
^AUPNVSIT - [#9000010]	EKGDSP+7
^AUTTDXPR - [#9999999.68]	GETEKG+1
^AUTTMSR("C"	EYEMEAS+2, EYEMEAS+3, EYEMEAS+4

Label References

Name	Line Occurrences
ADDTOL	BLD+4, BLD+6
BLD	EYERX+12
BLDL	BLD+9, DSPLY+5
DISPEM	EYEMEAS+5
EKGDSP	EKG+9
EYEMEAS	EYERX+4
EYERXX	EYERX+13
GATHER	EYEMEAS+2, EYEMEAS+3, EYEMEAS+4
GETEKG	EKGDSP+4
NPG	DSPLY+4, DSPLY+6, DSPLY+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCHQ	EKG+2~, EKG+8, EKG+9
BHSCNT	EKG+6, EKGX+2!, EKGDSP+5
BHSDAT	EYERX+11, DSPLY+1, DSPLY+2, EYERXX!, NPG, EKG+7, EKG+8, EKG+9, EKGX+2!
BHSDFN	EKG+9*, EKGX+2!, EKGDSP+2
BHSDP	EKGX+2!, EKGDSP+3, EKGDSP+4, EKGDSP+11, GETEKG+1
BHSDS	EKGX+2!, EKGDSP+6, EKGDSP+7, EKGDSP+11
BHSDT	EYERX+7*, EYERX+9, EYERX+11, EYERXX!
BHSEN	BLD+1*, EYERXX!, ADDTOL, BLDL
BHSF	EYERXX!, ADDTOL, ADDTOL+1, BLDL, BLDL+1
BHSI	BLD+4, BLD+6, BLD+9, DSPLY+5, EYERXX!, ADDTOL, ADDTOL+1, BLDL
BHSIVD	EKG+8*, EKG+9, EKGX+2!
BHSJ	BLD+3, EYERXX!, DISPEM+5, ADDTOL
BHSL	BLD+4, BLD+5, BLD+6, BLD+7, BLD+9, DSPLY+4, DSPLY+5, DSPLY+6, EYERXX!, ADDTOL+1* , BLDL+1*
BHSL1	BLD+5, DSPLY+7, DSPLY+8, EYERXX!
BHSL2	BLD+7*, DSPLY+7, EYERXX!
BHSM	EYEMEAS+2, EYEMEAS+3, EYEMEAS+4*, EYERXX!, GATHER+2
BHSMT	EYEMEAS+1!, EYERXX!
BHSMT(	GATHER+2*, DISPEM+5
BHSN	EYERX+9, EYERX+10, BLD+1, EYERXX!, EKGX+2!, EKGDSP+2, EKGDSP+3, EKGDSP+7, EKGDSP+8
BHSNRQ	EKGX+2!
BHSNSH	EYERX+2~, DSPLY+1, DSPLY+2, NPG
BHSP	EYERX+2~, EYERX+10, EYEMEAS+2, EYEMEAS+3, EYEMEAS+4, GATHER+2
BHSPAT	EYERX+2~, EYERX+3, EYERX+5, EYERX+7, EYERX+9, GATHER+2, EKG+2~, EKG+3, EKG+4, EKG+7 , EKG+8, EKG+9
BHSQ	EKG+2~, EKG+7*
BHST	BLD+2, BLD+8, EYERXX!, DISPEM+5*, ADDTOL+1
BHSVDF	EYERX+10*, EYERXX!
BHSVL	EKGX+2!, EKGDSP+8, EKGDSP+9, EKGDSP+11
BHSVNM	EYERXX!
BHSX	EYERXX!, DISPEM+5*
C	GATHER+1~, GATHER+2*
D	GATHER+1~, GATHER+2*
>> DFN	EYERX+3, EKG+3
>> GMTSDLM	EKG+8
>> GMTSNPG	DSPLY+2, DSPLY+4, DSPLY+6, DSPLY+8
>> GMTSQIT	EYERX+6, DSPLY+1, DSPLY+2, DSPLY+4, DSPLY+6, DSPLY+8, DISPEM+1, DISPEM+3, DISPEM+5, EKG+5 , EKG+7, EKG+8, EKG+9, EKGDSP+10
N	GATHER+1~, GATHER+2*
U	EYERX+10, GATHER+2, DISPEM+5, ADDTOL, ADDTOL+1, BLDL, EKGDSP+3, EKGDSP+7, EKGDSP+8, GETEKG+1
X	EYERX+2~, EYERX+11, EKGDSP+7
Y	EYERXX!, EKGX+2!, EKGDSP+7*

Customize PDF page

Package: Health Summary Components

Routine: BHSEYEKG

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: