Routine: SRSCAN0

Information

SRSCAN0 ;BIR/MAM - CANCEL SCHEDULED OPERATIONS (CONT);[AUG 10,2011@14:19]

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Surgery	6	^SROERR0 ^SRSCAN2 ^SRSCG UNLOCK^SRSCHD1 ^SRSKILL CANCC^SRSUTL2
VA FileMan	3	(C,NOW)^%DTC (,FILE)^DIE ^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: 2

Package	Total	Caller Graph
Surgery	2	SROMENU SRSCAN

Entry Points

Name	Comments	DBIA/ICR reference
CUT
REQ
PRESS
ASK
NOCC	; no longer concurrent cases
SWAP	; move data into a new entry and set up the cancel date in the old
SWAP2
CON
END
CON1
OERR	; update ORDER file (100)
ABORT	; abort surgery case

External References

Name	Field # of Occurrence
C^%DTC	CUT
NOW^%DTC	CUT+2, SWAP2, CON1+2
^DIE	REQ+3, NOCC+2, SWAP+3, CON+1, CON1+1, ABORT+12
FILE^DIE	REQ+7
^DIR	PRESS, SWAP+1, SWAP+2, ABORT+7, ABORT+9, ABORT+10, ABORT+11
^SROERR0	NOCC+2, CON+1, CON+2, OERR+1
^SRSCAN2	SWAP2+3
^SRSCG	REQ, SWAP+5
UNLOCK^SRSCHD1	NOCC+2, END
^SRSKILL	END
CANCC^SRSUTL2	CON

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Case schedule type is STANDBY. " Line Location: CUT+1
Function Call: WRITE	Prompt: !!,"Case #"_SRTN_" has been removed from the schedule and changed to a request." Line Location: REQ+8
Function Call: WRITE	Prompt: ! Line Location: PRESS+0
Function Call: READ	Variable: SRYN Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"If you want to remove both cases from the schedule, enter 'YES'. If you",!,"answer 'NO', the cases will no longer be associated with each other." Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: SWAP+1
Function Call: WRITE	Prompt: !!,"Case NOT cancelled." Line Location: SWAP+1
Function Call: WRITE	Prompt: !!,"Case NOT cancelled." Line Location: SWAP+2
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: @IOF,!," "_VADM(1)_" ("_VA("PID")_") Case #"_SRTN_" - "_SRDT Line Location: ABORT+3
Function Call: WRITE	Prompt: !! Line Location: ABORT+4
Function Call: WRITE	Prompt: "-" Line Location: ABORT+4
Function Call: WRITE	Prompt: !!,"Case has been cancelled/Aborted. No action taken." Line Location: ABORT+5
Function Call: WRITE	Prompt: ! Line Location: ABORT+7
Function Call: WRITE	Prompt: !!,"Case NOT cancelled/aborted." Line Location: ABORT+7
Function Call: WRITE	Prompt: !!," TIME PAT OUT OR and TIME PAT OUT OR must be entered to ABORT the case. Please enter these times first" Line Location: ABORT+8
Function Call: WRITE	Prompt: !!,"Case NOT cancelled/aborted." Line Location: ABORT+11
Function Call: WRITE	Prompt: !!!,$S(SRTF=1:"Cancelling",1:"Aborting")_" Surgery case #",SRTN Line Location: ABORT+14
Routine Call	DIE Line Location: REQ+3 NOCC+2 SWAP+3 CON+1 CON1+1 ABORT+12
Routine Call	DIE Line Location: REQ+7
Routine Call	DIR Line Location: PRESS SWAP+1 SWAP+2 ABORT+7 ABORT+9 ABORT+10 ABORT+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ABORT+2
^SRF - [#130]	CUT+1, CUT+3, REQ+1, REQ+2, REQ+4, ASK+3, NOCC+2, SWAP+4, SWAP+5, SWAP+6 , SWAP+7, SWAP2, SWAP2+1, CON, CON+2, CON1+2, ABORT+2, ABORT+5, ABORT+6, ABORT+9* , ABORT+13*
^SRF("AMM"	REQ+1!, SWAP2!
^SRF("AR"	REQ+2*
^SRO(133 - [#133]	CUT
^SRO(135 - [#135]	SWAP2+2, CON1+1
^TMP("SRPFSS"	REQ+2*

Label References

Name	Line Occurrences
ASK	REQ+9, ASK+2
CON	SWAP2+2
CON1	CON
END	SWAP+1, SWAP+2
OERR	REQ+3, NOCC+2, SWAP2+1
PRESS	SWAP+1, SWAP+2, ABORT+5, ABORT+7, ABORT+8, ABORT+11, ABORT+14
REQ	ASK+3
SWAP	SRSCAN0+3, CUT+2
SWAP2	CON1

Naked Globals

Name	Field # of Occurrence
^("CON"	CON
^(30	SWAP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CUT+2, SWAP2, CON1+2
>> AVOID	SWAP+4*, CON1+1
>> DA	REQ+3, NOCC+2, SWAP+3, CON+1, CON1+1, ABORT+9, ABORT+10, ABORT+12
>> DFN	REQ+2
>> DIE	REQ+3, NOCC+2, SWAP+3, CON+1, CON1+1, ABORT+12
DIR	PRESS!, SWAP+1!, SWAP+2!, ABORT+7!, ABORT+9!, ABORT+10!, ABORT+11!
DIR("A"	SWAP+1, SWAP+2, ABORT+7, ABORT+9, ABORT+10, ABORT+11
DIR("B"	ABORT+7*
DIR(0	PRESS, SWAP+1, SWAP+2, ABORT+7, ABORT+9, ABORT+10, ABORT+11*
>> DIRUT	SWAP+1, SWAP+2, ABORT+7, ABORT+11
DR	REQ+3!, NOCC+2, SWAP+3!, CON+1!, CON1+1!, ABORT+12!
DTIME	ASK
>> DTOUT	SWAP+3, ABORT+8, ABORT+12
>> DUOUT	SWAP+3, ABORT+8, ABORT+12
DUZ	REQ+6, SWAP+3, CON1+1, ABORT+12
>> I	ABORT+4*
IOF	END, ABORT+3
>> SRBOTH	CUT+3, REQ, REQ+9, ASK, CON, CON+2
>> SRCON	SWAP+3, CON+1, ABORT+12
>> SRDEAD	CON+2, CON1
SRDT	ABORT+1~, ABORT+2*, ABORT+3
SREQ	REQ+5~
SREQ(130	REQ+6*
SRIN	ABORT+1~, ABORT+6, ABORT+8, ABORT+9, ABORT+12
>> SRN	CUT+2*, REQ+6
>> SROERR	NOCC+2, CON+1, CON+2, OERR+1, ABORT+15*
SROUT	ABORT+1~, ABORT+6, ABORT+8, ABORT+10, ABORT+12
>> SRSCAN	SWAP+2, SWAP+3, SWAP2+2, CON1+1, ABORT+11
>> SRSCC	CON, CON+2
>> SRSCHST	REQ+1, SWAP+4, SWAP2
>> SRSDATE	CUT, REQ+2
>> SRSDPT	SWAP+6*
>> SRSDT	CUT*
>> SRSITE	CUT
>> SRSOP	SWAP+6*
>> SRSOR	REQ+1, SWAP2
>> SRSOUT	SWAP+3, SWAP2+3, CON, ABORT+12
>> SRSSET	SWAP+7*
>> SRTF	SWAP+1, SWAP+3, CON1+1, ABORT+7, ABORT+8, ABORT+13, ABORT+14
>> SRTIME	CUT*, CUT+2
SRTN	CUT+1, CUT+3, REQ+1, REQ+2, REQ+3, REQ+4, REQ+6, REQ+8, ASK+3*, NOCC+2 , SWAP+3, SWAP+4, SWAP+5, SWAP+6, SWAP+7, SWAP2, SWAP2+1, CON, CON+2, END! , CON1+1, CON1+2, OERR+1, ABORT+2, ABORT+3, ABORT+5, ABORT+6, ABORT+9, ABORT+10, ABORT+12 , ABORT+13, ABORT+14, ABORT+15
>> SRTNEW	CON+1
SRTX	OERR+1!
>> SRTYPE	CUT+1*, CUT+2
>> SRYN	ASK, ASK+1, ASK+2, ASK+3
>> VA("PID"	ABORT+3
>> VADM(1	ABORT+3
>> X	CUT*
>> X1	CUT*
>> X2	CUT*
>> Y	SWAP+1, SWAP+2, ABORT+2*, ABORT+7, ABORT+8, ABORT+9, ABORT+10, ABORT+11

Customize PDF page

Package: Surgery