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

Package: Event Capture

Routine: ECSCR


Information

ECSCR ;BIR/MAM,TTH,JPW-Retrieve Event Capture Location ;1 May 96

Source Information

Source file <ECSCR.m>

Entry Points

Name Comments DBIA/ICR reference
END ;Exit routine
LL ; select location
LOC
ASK
ASK2 ;Display selection to the user.
NAM() ;Display procedure name.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"Choose Event Capture Location for this event code screen.",!
  • Line Location: ECSCR+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LL+2
Function Call: WRITE
  • Prompt: !!,"Enter <RET> if this procedure will be "_$P(ECWORD,"^",2)_" from all locations,",!,"or ""NO"" to "_$P(ECWORD,"^",3)_" location.",!!
  • Line Location: LL+4
Function Call: WRITE
  • Prompt: @IOF,!,"Event Capture Locations: ",!
  • Line Location: LL+5
Function Call: WRITE
  • Prompt: !,CNT_". "_$P(LOC(CNT),"^")
  • Line Location: LOC+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Select Location: "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the location you want to select.",!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"This location has already been selected."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: " "_$P(LOC(X),"^")
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"Event Code Screen Information:"
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !,"----------------------------",!
  • Line Location: ASK2+2
Function Call: WRITE
  • Prompt: !,"DSS Unit : "_ECDN,!,"Category : "_ECCN,!,"Procedure: "_$$NAM^ECSCR
  • Line Location: ASK2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK2+5
Info |  Source |  Entry Points |  Interaction Calls