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

Package: Event Capture

Routine: ECBEP2A


Information

ECBEP2A ;BIR/MAM,JPW-Batch Enter by Procedure (cont'd) ;1 May 96

Source Information

Source file <ECBEP2A.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 and variables
ASK ; ask ord sect & vol
O ; ord sect
V ; vol
DIAG ;diagnosis, in/outpatient, visit
NODE ;set node
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+9
Function Call: WRITE
  • Prompt: !!,"WARNING ",VADM(7),!!
  • Line Location: PATS+13
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: !,"Category: ",ECCN
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?1,"Modifier: "," - ",MOD," ",$E($P(ECMOD(ECCPT,MOD),U),1,55)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"Procedure Date: ",ECDATE
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+11
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: !!,"DSS Unit: "_ECDN,?50,"Category: "_ECCN,!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: "Procedure: "_$S(ECCPT="":"",1:ECPTCD_" ")_$E(ECPN,1,50)
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: ?1,"Modifier: "," - ",MOD," ",$E($P(ECMOD(ECCPT,MOD),U),1,55),!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: "Patient: ",$P(ECPT(CNT),"^",2),!
  • Line Location: ASK+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: V+2
Function Call: WRITE
  • Prompt: !!,"Enter a whole number between 1 and 99."
  • Line Location: V+4
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