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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ECSCRN

Package: Event Capture

Routine: ECSCRN


Information

ECSCRN ;BIR/MAM,JPW,RKH,TTH-Enter Event Code Screens ;1 May 96

Source Information

Source file <ECSCRN.m>

Entry Points

Name Comments DBIA/ICR reference
UNIT
PRO
RESEL
STUFF ; stuff entries
MORE
END ;Kill variables.
END1
END2
BRO ; check for category use in data entry
INACT ; check to determine if inactive
ASK ;Ask user to verify update.
CLIN ;check for active associated clinic

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ECSCRN+2
Function Call: WRITE
  • Prompt: !!,"You have no locations flagged for event capture.",!,"See your program coordinator.",!!
  • Line Location: ECSCRN+2
Function Call: WRITE
  • Prompt: "Press <RET> to continue "
  • Line Location: ECSCRN+2
Function Call: WRITE
  • Prompt: @IOF,!,"Event Code Screens (Create)",!
  • Line Location: ECSCRN+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ECSCRN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: UNIT+0
Function Call: WRITE
  • Prompt: !,"Selected procedure is inactive at this time.",!
  • Line Location: PRO+5
Function Call: WRITE
  • Prompt: !,"Selected procedure is inactive at this time.",!
  • Line Location: PRO+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO+9
Function Call: WRITE
  • Prompt: !!,"Entering screen for "_ECLN_" with procedure ",$$NAM^ECSCR,"..."
  • Line Location: STUFF+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: @IOF,!,"Event Code Screen Information:"
  • Line Location: MORE+2
Function Call: WRITE
  • Prompt: !,"----------------------------",!
  • Line Location: MORE+3
Function Call: WRITE
  • Prompt: !,"DSS Unit: "_ECDN,!,"Category: "_ECCN,!!
  • Line Location: MORE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"Category: "_ECCN,!!
  • Line Location: BRO+1
Function Call: WRITE
  • Prompt: !!,"This screen has already been created for "_ECLN_"."
  • Line Location: INACT+1
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: INACT+3
Function Call: WRITE
  • Prompt: !!,"Enter YES if this code should be reactivated for event code",!,"procedures, or <RET> to continue with another procedure."
  • Line Location: INACT+4
Function Call: WRITE
  • Prompt: !!,"Reactivating Event Code Screen... "
  • Line Location: INACT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls
^ECJ - [#720.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call