Routine: ECTPSRV

Information

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

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	4	^DIC ^DIE EN1^DIP ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Interim Management Support	1	ECTP LOCAL SERVICES

Entry Points

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

External References

Name	Field # of Occurrence
^DIC	LOOP, DIC
^DIE	LOOP, DIC
EN1^DIP	DIP+1
^DIR	OPC+1, ASK+3

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
Routine Call	DIC Line Location: LOOP DIC
Routine Call	DIE Line Location: LOOP DIC
Routine Call	DIR Line Location: OPC+1 ASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ECC(730 - [#730]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ECC(730 - [#730]	LOC+1, ASK+1, ASK+5, ASK+6*

Label References

Name	Line Occurrences
ASK	ASK, ASK+1, ASK+4, ASK+7
CHS	CHS+2
DIC	CHS+5
DIP	CHS+4
EXIT	CHS+2, CHS+4, CHS+5, CHS+6
LOOP	LOC+1
OPC	CHS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!
%Y	EXIT!
BY	EXIT!, DIP*
CHS	CHS+2*, CHS+4, CHS+5, CHS+6, EXIT!, DIP
D	EXIT!
D0	EXIT!
DA	EXIT!, LOOP, DIC
DHD	EXIT!, DIP*
DIC	EXIT!, DIP, LOOP!, DIC*
DIC("A"	DIC*
DIC(0	LOOP, DIC
DIE	EXIT!, LOOP!, DIC!
DIR	EXIT!
DIR("?"	OPC+1, ASK+3
DIR("A"	OPC+1, ASK+3
DIR("B"	OPC+1, ASK+3
DIR(0	OPC+1, ASK+3
DR	EXIT!, LOOP, DIC
DTIME	CHS+2, ASK
DTOUT	EXIT!, OPC+2, ASK+4
DUOUT	EXIT!, OPC+2, ASK+4
FLDS	EXIT!, DIP*
FR	EXIT!, DIP*
I	EXIT!, ASK+5*, ASK+6
L	EXIT!, DIP*
OPC	EXIT!, ASK!*, ASK+1, ASK+2, ASK+6, ASK+7
P	EXIT!
RESP	LOC+1, EXIT!, LOOP
SRDA	LOC+1*, EXIT!
SRNM	LOC+1*, EXIT!, LOOP
TO	EXIT!, DIP*
X	EXIT!, LOOP*
Y	EXIT!, LOOP, DIC, OPC+2, ASK+4

Customize PDF page

Package: Interim Management Support