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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ECUTL0

Package: Event Capture

Routine: ECUTL0


Information

ECUTL0 ;ALB/ESD - Event Capture Eligibility and In/Outpat Utilities ;2/9/18 16:51

Source Information

Source file <ECUTL0.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Event Capture 1 ELIGERR^ECUTL0  
List Manager 1 $$UPPER^VALM1  
Registration 1 ELIG^VADPT  
Scheduling 1 $$INP^SDAM2  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Event Capture 10 ECBEN1B  ECBEP2A  ECED1  ECED3  ECEDF  ECMLMN  ECMUTL1  ECUERPC1  
ECUTL0  ECV4RPC  

Entry Points

Name Comments DBIA/ICR reference
CHKDSS(DSSU,INOUT) ; Determine if DSS Unit is sending data to PCE
ELGLST() ; Display list of patient eligibilities and allow user to
; select eligibility, given ELIG^VADPT has been previously called.
ELIG
CHOOSE
PRIMELG
ELGLSTQ
MULTELG(DFN) ; Determine if patient has multiple eligibilites (calls
; ELIG^VADPT).
ASKIF(ELIGNM) ; Ask user whether to edit the eligibility during the edit
; of an existing EC Patient file (#721) record
ELIGERR ; If user uparrows or times out while choosing eligibility, display
; primary eligibility msg to screen
INOUTPT(DFN,PROCDT) ; Determine inpatient/outpatient status
DSPSTAT(ECSTAT) ; Display inpatient/outpatient status
INOUTERR ; Display inpat/outpat status error msg to screen and set exit
; variable

External References

Name Field # of Occurrence
^DIR ASKIF+19
ELIGERR^ECUTL0 PRIMELG
$$INP^SDAM2 INOUTPT+15
ELIG^VADPT MULTELG+9
$$UPPER^VALM1 CHOOSE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"THIS PATIENT HAS OTHER ENTITLED ELIGIBILITIES:"
  • Line Location: ELIG+2
Function Call: WRITE
  • Prompt: !?5,$P(VAEL(1,ECELIEN),"^",2)
  • Line Location: ELIG+6
Function Call: WRITE
  • Prompt: !!,"ENTER THE ELIGIBILITY FOR THIS APPOINTMENT: "_ECPRIMEL_"// "
  • Line Location: CHOOSE+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CHOOSE+3
Function Call: WRITE
  • Prompt: $P($P(ECALLEL,"^"_X,2),"^")
  • Line Location: CHOOSE+5
Function Call: WRITE
  • Prompt: !!,"The eligibility previously filed for this patient's procedure is:",!?5,ELIGNM,!!
  • Line Location: ASKIF+14
Function Call: WRITE
  • Prompt: !!?5,"No eligibility entered. The primary eligibility of the patient"
  • Line Location: ELIGERR+9
Function Call: WRITE
  • Prompt: !?5,"will be sent to PCE for workload reporting (if the patient's"
  • Line Location: ELIGERR+10
Function Call: WRITE
  • Prompt: !?5,"procedure data is complete).",!
  • Line Location: ELIGERR+11
Function Call: WRITE
  • Prompt: !!,ECTXT_$S(ECSTAT="I":"Inpatient",1:"Outpatient"),!
  • Line Location: DSPSTAT+10
Function Call: WRITE
  • Prompt: !,"Patient record data or procedure date/time data is missing. No action taken."
  • Line Location: INOUTERR+9
Routine Call
  • DIR
  • Line Location:
    • ASKIF+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECD - [#724] CHKDSS+18

Label References

Name Line Occurrences
CHOOSE CHOOSE+3
ELGLSTQ ELGLST+13, CHOOSE+8
ELIG CHOOSE+3
PRIMELG CHOOSE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN MULTELG~, INOUTPT~, INOUTPT+11, INOUTPT+15
DIR ASKIF+11~
DIR("A" ASKIF+17*
DIR("B" ASKIF+18*
DIR(0 ASKIF+16*
>> DIRUT ASKIF+20
DSSU CHKDSS~, CHKDSS+15, CHKDSS+18
DTIME CHOOSE+3
ECALLEL ELGLST+9~, ELIG*, ELIG+7*, CHOOSE+3, CHOOSE+4, CHOOSE+5
ECDSS CHKDSS+11~, CHKDSS+15*, CHKDSS+19*, CHKDSS+20*, CHKDSS+21
ECELIEN ELGLST+9~, ELGLST+10*, ELIG+5*, ELIG+6, ELIG+7, CHOOSE+8*
ECELIG ELGLST+9~, ELGLST+10*, CHOOSE+8*, PRIMELG+1*, ELGLSTQ
>> ECOUT INOUTERR+10*
ECPRIMEL ELGLST+9~, ELIG+1*, CHOOSE, CHOOSE+4*, CHOOSE+8, PRIMELG+1
ECPTSTAT INOUTPT+9~, INOUTPT+10*, INOUTPT+11*, INOUTPT+14, INOUTPT+15*, INOUTPT+16*, INOUTPT+20
ECSEND CHKDSS+11~, CHKDSS+18*, CHKDSS+19
ECSTAT DSPSTAT~, DSPSTAT+10
ECTXT DSPSTAT+8~, DSPSTAT+9*, DSPSTAT+10
ELIGNM ASKIF~, ASKIF+12, ASKIF+14
INOUT CHKDSS~, CHKDSS+15
PROCDT INOUTPT~, INOUTPT+11, INOUTPT+15
>> VAEL ELGLST+13
>> VAEL(1 ELGLST+13, ELIG+1, ELIG+5, ELIG+6, ELIG+7, CHOOSE+8, PRIMELG+1, MULTELG+10
>> X CHOOSE+3*, CHOOSE+4, CHOOSE+5, PRIMELG, PRIMELG+1
>> Y ASKIF+20
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All