Routine: APCHS8A

Package	Total	Call Graph
Patient Care Component	2	$$DATE^APCHSMU GETSITEV^APCHSUTL
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
$$DATE^APCHSMU	EKG+18
GETSITEV^APCHSUTL	EYERX+6
$$VAL^XBDIQ1	GATHER+3, EKG+18
$$FMTE^XLFDT	DISPEM+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: APCHSDAT,?10,APCHSNSH,! Line Location: DSPLY+1
Function Call: WRITE	Prompt: " Sphere Cyl Axis Prism Add",! Line Location: DSPLY+3
Function Call: WRITE	Prompt: APCHSL,?44,APCHSL1,! Line Location: DSPLY+4
Function Call: WRITE	Prompt: APCHSL,?61,APCHSL2,! Line Location: DSPLY+6
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-APCHSX),"2D") Line Location: DISPEM+5
Function Call: WRITE	Prompt: ?$P(APCHSJ,";",APCHST),$P(APCHSMT(APCHSX),U,APCHST) Line Location: DISPEM+5
Function Call: WRITE	Prompt: APCHSDAT,?10,APCHSNSH,! Line Location: NPG+0
Function Call: WRITE	Prompt: " Sphere Cyl Axis Prism Add",! Line Location: NPG+1
Function Call: WRITE	Prompt: APCHSDS Line Location: EKGDSP+11
Function Call: WRITE	Prompt: ?12,APCHSDP,?30,"RESULT: ",APCHSVL,! Line Location: EKGDSP+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPREF("AA"	EKG+3, EKG+12, EKG+15, EKG+16
^AUPNVDXP - [#9000010.21]	EKGDSP+2
^AUPNVDXP("AA"	EKG+6, EKG+7, EKG+8
^AUPNVDXP("AC"	EKG+3
^AUPNVEYE - [#9000010.04]	EYERX+6, BLD+1
^AUPNVEYE("AA"	EYERX+2, EYERX+4, EYERX+5
^AUPNVMSR - [#9000010.01]	GATHER+2
^AUPNVMSR("AA"	GATHER+1
^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
BLDL	BLD+9, DSPLY+5
DISPEM	EYEMEAS+5
EKGDSP	EKG+8
GATHER	EYEMEAS+2, EYEMEAS+3, EYEMEAS+4
GETEKG	EKGDSP+4
NPG	DSPLY+4, DSPLY+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCHQ	EKG+7, EKG+8
>> APCHSBRK	EYERX+3, EKG+4
>> APCHSCKP	EYERX+3, DSPLY+1, DSPLY+2, DSPLY+4, DSPLY+6, DISPEM+1, DISPEM+3, DISPEM+5, EKG+4, EKG+13 , EKG+17, EKGDSP+10
APCHSCNT	EKG+5, EKGX+2!, EKGDSP+5
>> APCHSCVD	EYERX+7, EKGDSP+7
>> APCHSD	EKG+15*, EKG+16, EKG+18
APCHSDAT	EYERX+7, DSPLY+1, DSPLY+2, EYERXX!, NPG, EKG+6, EKG+7, EKG+8, EKGX+2!
APCHSDFN	EKG+8*, EKGX+2!, EKGDSP+2
>> APCHSDLM	EKG+7, EKG+15
APCHSDP	EKGX+2!, EKGDSP+3, EKGDSP+4, EKGDSP+11, GETEKG+1
APCHSDS	EKGX+2!, EKGDSP+6, EKGDSP+7, EKGDSP+11
APCHSDT	EYERX+4*, EYERX+5, EYERX+7, EYERXX!
APCHSEN	BLD+1*, EYERXX!, ADDTOL, BLDL
APCHSF	EYERXX!, ADDTOL, ADDTOL+1, BLDL, BLDL+1
APCHSI	BLD+4, BLD+6, BLD+9, DSPLY+5, EYERXX!, ADDTOL, ADDTOL+1, BLDL, EKG+16*, EKG+18
APCHSIVD	EKG+7*, EKG+8, EKGX+2!
APCHSJ	BLD+3, EYERXX!, DISPEM+5, ADDTOL
APCHSL	BLD+4, BLD+5, BLD+6, BLD+7, BLD+9, DSPLY+4, DSPLY+5, DSPLY+6, EYERXX!, ADDTOL+1* , BLDL+1*
APCHSL1	BLD+5*, DSPLY+4, EYERXX!
APCHSL2	BLD+7*, DSPLY+6, EYERXX!
APCHSM	EYEMEAS+2, EYEMEAS+3, EYEMEAS+4*, EYERXX!, GATHER+1
APCHSMT	EYEMEAS+1!, EYERXX!
APCHSMT(	GATHER+3*, DISPEM+5
APCHSN	EYERX+5, EYERX+6, BLD+1, EYERXX!, EKGX+2!, EKGDSP+2, EKGDSP+3, EKGDSP+7, EKGDSP+8
>> APCHSNPG	EYERX+3, DSPLY+2, DSPLY+4, DSPLY+6, EKG+4
APCHSNRQ	EKGX+2!
>> APCHSNSH	DSPLY+1, DSPLY+2, NPG
>> APCHSP	EYERX+6, EYEMEAS+2, EYEMEAS+3, EYEMEAS+4, GATHER+3
>> APCHSPAT	EYERX+2, EYERX+4, EYERX+5, GATHER+1, EKG+3, EKG+6, EKG+7, EKG+8, EKG+12, EKG+15 , EKG+16
>> APCHSQ	EKG+6*
>> APCHSQIT	EYERX+3, DSPLY+1, DSPLY+2, DSPLY+4, DSPLY+6, DISPEM+1, DISPEM+3, DISPEM+5, EKG+4, EKG+6 , EKG+7, EKG+8, EKG+13, EKG+15, EKG+16, EKG+17, EKGDSP+10
APCHST	BLD+2, BLD+8, EYERXX!, DISPEM+5*, ADDTOL+1
APCHSVDF	EYERX+6*, EYERXX!
APCHSVL	EKGX+2!, EKGDSP+8, EKGDSP+9, EKGDSP+11
APCHSVNM	EYERXX!
APCHSX	EYERXX!, DISPEM+5*
>> C	GATHER+1, GATHER+3
>> D	GATHER+1*, GATHER+3
>> N	GATHER+1*, GATHER+2, GATHER+3
U	EYERX+6, GATHER+2, GATHER+3, DISPEM+5, ADDTOL, ADDTOL+1, BLDL, EKGDSP+3, EKGDSP+7, EKGDSP+8 , GETEKG+1
Y	EYERX+7, EYERXX!, EKGX+2!, EKGDSP+7

Customize PDF page

Package: Patient Care Component

Routine: APCHS8A

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: