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: ECBEN1B

Package: Event Capture

Routine: ECBEN1B


Information

ECBEN1B ;BIR/MAM,JPW-Batch Enter Procedures (cont'd) ;1 May 96

Source Information

Source file <ECBEN1B.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry pt
PATS ; get patients
LIST ; list patients
ADD
DEL ; delete patients from list
HDR ;
NOBODY ;No patients selected
ADCAT ;add category/procedures for patients
KILL ;kill arrays
DIAG ;ask dx, etc. questions
SETDX ;set dx, etc. in pat array
DELPT(CNT) ;deselect patient due to missing required data

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PATS+1
Function Call: WRITE
  • Prompt: !!,"Patient already selected. Please select another patient.",!
  • Line Location: PATS+10
Function Call: WRITE
  • Prompt: !!,"WARNING "_"[PATIENT DIED ON "_$P(VADM(6),U,2)_"] ",!!
  • Line Location: PATS+15
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I#2
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: ?40
  • Condition for execution: I#2=0
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: I_". "_$P(ECPT(I),"^",2)
  • Line Location: LIST+2
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: LIST+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !!,"Enter <RET> if this list is complete, or NO to add or delete",!,"patients on the list.",!!,"Press <RET> to continue "
  • Line Location: LIST+4
Function Call: READ
  • Variable: ECADD
  • Timeout: DTIME
  • Line Location: ADD+0
Function Call: WRITE
  • Prompt: !!,"Enter <RET> to make additions to the list, or ""D"" to delete a ",!,"patient from the list."
  • Line Location: ADD+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the patient that you would like",!,"to remove from the list.",!!,"Press <RET> to continue "
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !!,"Patient deleted.",!!,"Press <RET> to continue "
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: @IOF,!,"Location: "_ECLN
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"DSS Unit: "_ECDN
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Ordering Section: ",ECON
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Procedure Date: ",ECDATE,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"You cannot delete patients when your patient list is empty."
  • Line Location: NOBODY+1
Function Call: WRITE
  • Prompt: !!,"You have selected no patients."
  • Line Location: NOBODY+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to quit? Y//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: NOBODY+3
Function Call: WRITE
  • Prompt: !,"Answer N to continue selection, or enter return to quit",!
  • Line Location: NOBODY+5
Function Call: WRITE
  • Prompt: !,"Required data missing.",!,"Patient deselected...",!
  • Line Location: DELPT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DELPT+7
Info |  Source |  Entry Points |  Interaction Calls