Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls