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

Package: Interim Management Support

Routine: ECTPSRV


Information

ECTPSRV ;B'ham ISC/PTD-Identify Local Services from National File ;01/29/91 08:00

Source Information

Source file <ECTPSRV.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;1.05;INTERIM MANAGEMENT SUPPORT;**3**;
CHS
LOC
EXIT
DIP
LOOP
DIC
OPC
ASK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"At this time, you may:",!!,"1. Enter/Edit Station's Services",!,"2. List 'National' Services",!,"3. List Identified Local Services",!,"4. Edit a Single Service"
  • Line Location: CHS+0
Function Call: WRITE
  • Prompt: !,"5. Add OPC to National Service File",!!,"Select a number (1 - 5): "
  • Line Location: CHS+1
Function Call: READ
  • Variable: CHS
  • Timeout: DTIME
  • Line Location: CHS+2
Function Call: WRITE
  • Prompt: !!,*7,"You MUST answer with a number between 1 and 5."
  • Line Location: CHS+2
Function Call: WRITE
  • Prompt: !!,"If your station has the following SERVICE,",!,"respond with a ""Y"". If you DO NOT HAVE the service,",!,"respond with a ""N"" or press <RETURN>.",!!
  • Line Location: LOC+0
Function Call: WRITE
  • Prompt: !!,SRNM
  • Line Location: LOOP+0
Function Call: WRITE
  • Prompt: *7,!!?30,"* * W A R N I N G * *",!?20,"Use this functionality with caution!",!?20,"Add the Outpatient Clinic names for which",!?20,"you wish to track management data."
  • Line Location: OPC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: OPC+1
Function Call: WRITE
  • Prompt: !!,"Name must be 3-35 characters in length,",!,"must not begin with punctuation,",!,"and must be all upper case."
  • Line Location: OPC+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter OUTPATIENT CLINIC name: "
  • Variable: OPC
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: *7,!,"Answer must be 3-35 upper case characters; not beginning with punctuation."
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: *7,!!,OPC," is already in the file!"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"This is the ONLY opportunity you will be given to verify the name.",!,"Please check for correct spelling and accuracy.",!!,"OUTPATIENT CLINIC name: ",OPC,!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: *7,!!,OPC," has been ADDED to National Service File!",!!
  • Line Location: ASK+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECC(730 - [#730] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call