Routine: SROCOM

Information

SROCOM ;B'HAM ISC/MAM - ENTER COMMENTS ; [ 01/30/01 10:02 AM ]

Package	Total	Call Graph
Surgery	3	^SROP1 ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	2	^DIC ^DIE

Package	Total	Caller Graph
Surgery	1	SROMEN-COM

Name	Comments	DBIA/ICR reference
CASE	; get case number
END
LOOK
OPS
LIST	; list cases
OTHER	; other operations
ASK
LOOP	; break procedure if greater than 60 characters

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: CASE+1
Function Call: WRITE	Prompt: ! Line Location: LOOK+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: LOOK+1
Function Call: WRITE	Prompt: !!,"There are no cases entered for "_SRNAME_".",!! Line Location: LOOK+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: LOOK+1
Function Call: READ	Prompt: "Select Number: " Formatting: !! Timeout: DTIME Variable: SRNUM Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter the number which corresponds to the case that you want to enter comments." Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"You have entered an invalid number, please select again. " Line Location: ASK+2
Function Call: WRITE	Prompt: !! Line Location: ASK+3
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !,CNT_". "_SRSDATE,?15,SROPS(1) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: OPS+2
Routine Call	DIE Line Location: ASK+3
Routine Call	DIC Line Location: CASE+1

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	OTHER+1, OTHER+2, LIST+1, OPS
^SRF("B"	LOOK

Name	Field # of Occurrence
>> CNT	LOOK*, OPS+2
>> DA	ASK+3*
>> DFN	CASE+1*, LOOK
DIC	CASE+1!*
DIC("A"	CASE+1*
DIC(0	CASE+1*
>> DIE	ASK+3*
DR	ASK+3*!
DTIME	LOOK+1, ASK
>> I	LOOK, OPS
IOF	CASE+1, END
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OTHER+1, OTHER+2, OPS
>> SRLONG	OTHER+1*, OTHER+2
>> SRNAME	CASE+1*, LOOK+1
>> SRNUM	ASK*, ASK+1, ASK+2, ASK+3
>> SROP	OPS+1*
>> SROP1(	LOOK*, ASK+2, ASK+3
>> SROP1(1	LOOK+1
>> SROPER	OTHER+1, OTHER+3, OPS, OPS+1, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	OPS+1!
SROPS(	LOOP+1*
SROPS(1	OPS+1*, OPS+2
SROPS(2	OPS+2
SROPS(3	OPS+2
SROPS(4	OPS+2
>> SRSDATE	LIST+1*, OPS+2
SRTN	LOOK, ASK+3, END!, OTHER+1, OTHER+2, LIST+1, OPS, OPS+1
>> X	LOOK+1*
>> Y	CASE+1
>> Y(0	CASE+1