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

Package: Event Capture

Routine: ECLOC


Information

ECLOC ;BIR/MAM,RHK,JPW-Flag Current Locations ;1 May 96

Source Information

Source file <ECLOC.m>

Entry Points

Name Comments DBIA/ICR reference
START
FLAG ; entry to flag current locations
UN ; unflag location
ASK
INAC
QUE ;que job to batch inactivate
END
DEQ ;queued batch job to inactivate all screens for location ECLOC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Create/Remove current locations for Event Capture use.",!
  • Line Location: START+1
Function Call: READ
  • Variable: ECACC
  • Timeout: DTIME
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"Enter <RET> to flag a location to be used in the Event Capture software, or",!,"REMOVE to delete access to a location."
  • Line Location: START+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,ECLN_" has been flagged for use in the Event Capture software."
  • Line Location: FLAG+5
Function Call: WRITE
  • Prompt: !!,ECLN_" has not been flagged as a current location."
  • Line Location: UN+3
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"If this location should no longer be used for the Event Capture software,",!,"enter YES. Enter <RET> to leave this location flagged for use."
  • Line Location: ASK+1
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: INAC+0
Function Call: WRITE
  • Prompt: !!,"Enter Y to inactivate all screens for this location",!," N or return to leave them active."
  • Line Location: INAC+1
Function Call: WRITE
  • Prompt: !,"Please wait a few moments"
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Info |  Source |  Entry Points |  Interaction Calls