Routine: ECDSSCRN

Package	Total	Call Graph
VA FileMan	2	^DIC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
START	; Check for location
UNIT	; Select unit
CAT	; Check if unit uses categories
PROC	; Set procedures ; Find highest entry number
STOP	; Stop loop and check for another category
END	;
CHECK	; Check to see if active unit

Name	Field # of Occurrence
^DIC	UNIT+1, CAT+6
^DIR	PROC+5, CHECK+2

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: START+1
Function Call: WRITE	Prompt: !,"You have no locations flagged for event cature.",!! Line Location: START+2
Function Call: WRITE	Prompt: @IOF Line Location: CAT+1
Function Call: WRITE	Prompt: !!,"This DSS Unit has not been activated for use in Event",!,"Capture software.",!! Line Location: CHECK+2
Routine Call	DIC Line Location: UNIT+1 CAT+6
Routine Call	DIR Line Location: PROC+5 CHECK+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PROC+12
^DIC(4 - [#4]	START+2
^ECD - [#724]	CAT+1, PROC+2, PROC+8, PROC+10, PROC+11, PROC+12, PROC+15, PROC+16, PROC+18, PROC+19 , CHECK+1

Name	Field # of Occurrence
^(	PROC+2
^(0	PROC+11

Name	Field # of Occurrence
DA	PROC+20!, END+1!
DIC	UNIT+1!, CAT+2, CAT+6!
DIC("A"	UNIT+1, CAT+5
DIC("S"	UNIT+1, CAT+4
DIC(0	UNIT+1, CAT+3
DIE	END+1!
DIK	END+1!
DIR	PROC+5!, CHECK+2!
DIR("A"	PROC+5*
DIR(0	PROC+5, CHECK+2
DR	END+1!
DT	PROC+11
>> DTOUT	UNIT+3
>> DUOUT	UNIT+3, CAT+1, CAT+6
ECNOPE	UNIT+1, UNIT+4, END+1!, CHECK+1, CHECK+2
ECU	UNIT+2*, CAT+1, PROC+2, PROC+8, PROC+10, PROC+11, PROC+12, PROC+15, PROC+16, PROC+18 , PROC+19, END+1!, CHECK+1
ECUCAT	CAT+8, PROC+4, PROC+8, PROC+10, PROC+15, PROC+19, END+1!
ECUDIR	CAT+1*, END+1!
ECUERR	CAT+1, CAT+7*, END+1!
ECUN	UNIT+2*, END+1!
ECUP	PROC+2, PROC+3, PROC+14!, PROC+15, PROC+18, PROC+19, PROC+20!, END+1!
ECUPRO	PROC+7*, PROC+8, PROC+10, END+1!
ECUPROP	PROC+10*, PROC+11, PROC+12, END+1!
IOF	START+1, CAT+1
U	UNIT+2, CAT+1, PROC+11, PROC+12, CHECK+1
X	PROC+20!, END+1!
Y	UNIT+1, UNIT+2, CAT+7, CAT+8, PROC+6, PROC+7, PROC+12*, PROC+13, PROC+15, PROC+18 , PROC+20!, END+1!