Routine: SRSCAN

Information

SRSCAN ;B'HAM ISC/MAM - CANCEL SCHEDULED OPERATION;[JAN 30,2001@14:16]

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Surgery	5	^SROP1 ^SRSCAN0 ^SRSCAN1 $$LOCK^SRSCHD1 ^SRSKILL
Registration	1	DEM^VADPT
VA FileMan	1	^DIC

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
Surgery	1	SRSCAN

Entry Points

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

External References

Name	Field # of Occurrence
^DIC	SRSCAN+2
^SROP1	OPS+1
^SRSCAN0	OK+4
^SRSCAN1	ASK+6
$$LOCK^SRSCHD1	OK+4
^SRSKILL	END
DEM^VADPT	SRSCAN+3, LOOK+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SRSCAN+2
Function Call: WRITE	Prompt: @IOF,!,SRNAME,! Line Location: SRSCAN+3
Function Call: WRITE	Prompt: ! Line Location: LOOK+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: LOOK+1
Function Call: WRITE	Prompt: !!,"There are no procedures scheduled for "_VADM(1)_".",!! Line Location: LOOK+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: LOOK+1
Function Call: READ	Formatting: !! Prompt: "Select Number: " Variable: SRNUM Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter the number which corresponds to the case that you want to cancel." Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"You have entered an invalid number, please select again. " Line Location: ASK+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+4
Function Call: WRITE	Prompt: !!,$C(7),"This operation already has a start time and cannot be cancelled.",!!,"Press RETURN to continue " Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"This operation is not scheduled." Line Location: ASK+5
Function Call: READ	Formatting: !! Prompt: "Is this the correct operation ? YES// " Variable: SRYN Timeout: DTIME Line Location: OK+0
Function Call: WRITE	Prompt: !!,"Enter RETURN if this is the scheduled procedure that you want",!,"to cancel, or 'NO' to quit this option." Line Location: OK+1
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !,CNT_". "_SRSDATE,?15,SROPS(1) Line Location: OPS+4
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: OPS+4
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: OPS+4
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: OPS+4
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: OPS+4
Routine Call	DIC Line Location: SRSCAN+2

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
ASK	ASK+1, ASK+2
END	SRSCAN+2, LOOK+1, ASK, ASK+4, ASK+5, OK, OK+2
LIST	LOOK
LOOP	OPS+3
OK	OK+1
OTHER	OPS

Naked Globals

Name	Field # of Occurrence
^(	ASK+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	LOOK, OPS+2, OPS+4
>> DFN	SRSCAN+3*, LOOK
DIC	SRSCAN+2!*
DIC("A"	SRSCAN+2*
DIC(0	SRSCAN+2*
DTIME	LOOK+1, ASK, ASK+4, OK
>> I	LOOK, OPS
IOF	SRSCAN+3, END
>> LOOP	LOOP+1*
>> M	LOOP+1, OPS+3*
MM	LOOP+1*, OPS+3!
MMM	LOOP+1*, OPS+3!
>> OPER	OTHER+1, OTHER+2, OPS
>> SRLONG	OTHER+1*, OTHER+2
>> SRNAME	SRSCAN+3*
>> SRNUM	ASK*, ASK+1, ASK+2, ASK+3
>> SROP	OPS+1*
>> SROP1(	LOOK*, ASK+2, ASK+3, OPS+2!
>> SROP1(1	LOOK+1
>> SROPER	OTHER+1, OTHER+3, LOOP+1, OPS, OPS+2, OPS+3
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	OPS+3!
SROPS(	LOOP+1*
SROPS(1	OPS+3*, OPS+4
SROPS(2	OPS+4
SROPS(3	OPS+4
SROPS(4	OPS+4
SROPS(5	OPS+4
>> SRSDATE	LIST+1*, OPS+4
>> SRSOUT	SRSCAN+2*
SRTN	LOOK, ASK+3, ASK+4, ASK+5, OK+4, END!, OTHER+1, OTHER+2, LIST+1, OPS , OPS+1
>> SRTOLD	ASK+3*
>> SRYN	OK, OK+1, OK+2
>> VA("PID"	SRSCAN+3
>> VADM(1	SRSCAN+3, LOOK+1
>> X	LOOK+1, ASK+4
>> Y	SRSCAN+2, SRSCAN+3

Customize PDF page

Package: Surgery