Routine: SRSCAN

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

Package

Total

Call Graph

Surgery

^SROP1 $$LOCK^SROUTL ^SRSCAN0 ^SRSCAN1 ^SRSKILL

Registration

DEM^VADPT

VA Fileman

^DIC

Package	Total	Caller Graph
Surgery	1	SRSCAN

Package

Total

Caller Graph

Surgery

SRSCAN

Name	Field # of Occurrence
^DIC	SRSCAN+2
^SROP1	OPS+1
$$LOCK^SROUTL	OK+3
^SRSCAN0	OK+3
^SRSCAN1	ASK+6
^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	Timeout: DTIME Variable: X 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	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 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	Timeout: DTIME Variable: X 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	Prompt: "Is this the correct operation ? YES// " Formatting: !! Timeout: DTIME Variable: SRYN 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

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

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

Name	Field # of Occurrence
^(	ASK+4

Local Variables

>>	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+3, 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

Routine: SRSCAN

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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