Routine: SRSUPRQ

Package	Total	Call Graph
Surgery	15	^SRCUSS RISK^SROAUTL3 ^SROCON1 ^SROERR0 $$ICDSTR^SROICD ^SROPCE1 KILL^SROPDEL ($$LOCK,UNLOCK)^SROUTL EN2^SROVAR SS^SRSCHUP $$CHKS^SRSCOR CHANGE^SRSDT ^SRSKILL AVG^SRSREQ $$SPIN^SRTOVRF
VA FileMan	2	^DIC ^DIE
Kernel	1	T0^%ZOSV

Package	Total	Caller Graph
Surgery	5	SROERR SRSCHD1 SRSREQ SRSREQUT SRSUPRQ

Entry Points

Name	Comments	DBIA/ICR reference
ASK
OPT
SEL
END
OPS
LOOP	; break procedure if greater than 60 characters
MANY	; select requested case if more than one
SETUP	; set SRCASE array to list requested cases for this patient
DEL	; delete request
OPALSO	; delete from file 130
CON
CC	; check to see if concurrent case should be deleted
UPDATE	; update requested operation
RT	; start RT logging
MSG

External References

Name	Field # of Occurrence
T0^%ZOSV	RT+1
^DIC	ASK
^DIE	DEL+3, CON, CC+8, CC+11
^SRCUSS	UPDATE+8
RISK^SROAUTL3	UPDATE+11
^SROCON1	UPDATE+10
^SROERR0	CC+8, CC+11, UPDATE+13
$$ICDSTR^SROICD	UPDATE+4
^SROPCE1	UPDATE+12
KILL^SROPDEL	OPALSO+2
$$LOCK^SROUTL	DEL+2, UPDATE+1
UNLOCK^SROUTL	OPALSO+2, UPDATE+14
EN2^SROVAR	UPDATE+6
SS^SRSCHUP	OPT+1
$$CHKS^SRSCOR	UPDATE+7, UPDATE+9
CHANGE^SRSDT	SEL+5
^SRSKILL	END+2
AVG^SRSREQ	UPDATE+2
$$SPIN^SRTOVRF	UPDATE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no requested cases for "_SRNM_"." Line Location: ASK+2
Function Call: WRITE	Prompt: @IOF,!,"The following "_GRAMMER_" requested for "_SRNM_":",! Line Location: ASK+3
Function Call: WRITE	Prompt: !,$P(SRCASE(CNT),"^",2),?15,SROPS(1) Line Location: ASK+4
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: ASK+4
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"1. Delete",!,"2. Update Request Information",!,"3. Change the Request Date" Line Location: OPT+2
Function Call: READ	Variable: Z Timeout: DTIME Line Location: SEL+0
Function Call: WRITE	Prompt: !!,"If you want to delete this request, enter '1'. Enter '2' if you only want",!,"to update the general information about this case, or '3' to change the date",!,"that this case is requested for." Line Location: SEL+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: READ	Variable: SREQ Timeout: DTIME Line Location: MANY+1
Function Call: WRITE	Prompt: !!,"Select Operation Request: " Line Location: MANY+1
Function Call: WRITE	Prompt: !!,"Enter the number corresponding to the request that will be updated or deleted. " Line Location: MANY+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: DEL+1
Function Call: WRITE	Prompt: !!,"Enter RETURN if this request is to be deleted, or NO to quit. " Line Location: DEL+1
Function Call: READ	Variable: SRBOTH Timeout: DTIME Line Location: CC+1
Function Call: WRITE	Prompt: !!,"Enter 'Y' if you want to delete "_SRC_" concurrent case." Line Location: CC+1
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want these cases to remain concurrent." Line Location: CC+2
Function Call: WRITE	Prompt: !!,"This case is currently being edited.",!,"Please try again later...",!! Line Location: MSG+0
Routine Call	DIC Line Location: ASK
Routine Call	DIE Line Location: DEL+3 CON CC+8 CC+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	OPT+1, SETUP+1, DEL+3, DEL+4, CON, CC+5
^SRF("AR"	ASK+1
^TMP("CSLSUR1"	UPDATE+9*
^XTMP("SRLOCK-"	SEL+2

Label References

Name	Line Occurrences
CC	CON, CC+1, CC+2
CON	DEL+4
DEL	SEL+3, DEL+1
END	ASK+2, OPT+1, OPT+2, SEL, SEL+2, SEL+3, SEL+4, DEL+4, OPALSO+2
LOOP	OPS
MANY	OPT, MANY+1
MSG	SEL+2
OPS	ASK+4
RT	UPDATE+2
SEL	SEL+1
SETUP	ASK+1
UPDATE	SEL+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	ASK+1, ASK+4, OPS, SETUP+1*
DA	DEL+3!, CON!, CC+8, CC+11, UPDATE+5*
>> DFN	OPALSO+2*
DIC	ASK!*
DIC("A"	ASK*
DIC(0	ASK*
DIE	DEL+3!, CON!, CC+8, CC+11, UPDATE+5*
DR	DEL+3!, CON!, CC+8, CC+11, UPDATE+2!, UPDATE+5*, UPDATE+10!
DTIME	SEL, END+1, MANY+1, DEL+1, CC+1, CC+10
>> GRAMMER	ASK+3*
IOF	ASK+3, END+2
>> LOOP	LOOP+1*
>> M	OPS*, LOOP+1
MM	OPS!, LOOP+1*
MMM	OPS!, LOOP+1*
>> Q3("VIEW"	UPDATE+6!
>> SPD	UPDATE+7*, UPDATE+9
>> SRBOTH	DEL+1, DEL+4, OPALSO+2, CON, CC+1, CC+2, CC+3, CC+4, CC+6*, CC+12
>> SRC	OPALSO+2, CON, CC+1
SRCASE	ASK!
SRCASE(	ASK+4, OPS, MANY+1, MANY+2, SETUP+1*
SRCASE(1	ASK+2, OPT+1
SRCASE(2	ASK+3, OPT, OPT+1
>> SRCC	OPALSO+2*
SRCON	DEL+4, OPALSO+2, CON, CC+5, CC+6, CC+8, CC+9!, CC+11, CC+12!
>> SRDFN	ASK*, ASK+1, OPALSO+2
>> SREQ	OPT, OPT+1, MANY+1, MANY+2
SRICDV	UPDATE+4~*
>> SRLATE	END*, END+1
SRLCK	UPDATE+1~*, UPDATE+14
SRLNTH	UPDATE+2!
SRLNTH1	UPDATE+2!
>> SRNM	ASK*, ASK+2, ASK+3
>> SRODR	UPDATE+10
>> SROERR	CC+8, CC+11, UPDATE+13*
>> SROPCOM	OPALSO+1*
>> SROPER	OPS, LOOP+1
SROPS	OPS!
SROPS(	LOOP+1*
SROPS(1	ASK+4, OPS*
SROPS(2	ASK+4
SROPS(3	ASK+4
SRSCHED	SRSUPRQ+5!, OPT+2
>> SRSDATE	ASK+1, OPT+1, DEL+3, CON
>> SRSDOC	DEL+3*
>> SRSDOCC	CON*
>> SRSDT	SETUP+1*
>> SRSOUT	ASK, OPT+1, SEL, SEL+4*, END+1
SRTN	ASK+1, OPT+1!, OPT+2, SEL+2, END+2!, MANY+2, SETUP+1, DEL+2, DEL+3, DEL+4 , OPALSO+2, CON, CC+8, CC+11, UPDATE+1, UPDATE+4, UPDATE+5, UPDATE+7, UPDATE+9, UPDATE+13 , UPDATE+14
SRTN1	END+2!, OPALSO+2
SRTNX	END+2!, OPALSO+2*
SRTX	UPDATE+13!
>> ST	UPDATE+5*
U	CC+5
X	END+1, DEL+1, DEL+2, CC+10, UPDATE+2!
>> XRTL	RT+1
>> XRTN	RT+1*
Y	ASK, UPDATE+6!
Y(0	ASK
>> Z	SEL*, SEL+1, SEL+3, SEL+4, SEL+5

Customize PDF page

Package: Surgery

Routine: SRSUPRQ

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: