Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCHS8A

Package: Patient Care Component

Routine: APCHS8A


Information

APCHS8A ; IHS/CMI/LAB - PART 8A OF APCHS -- SUMMARY PRODUCTION COMPONENTS ;

Source Information

Source file <APCHS8A.m>

Call Graph

Call Graph Total: 4

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All