Routine: SRSUPRQ

Call Graph Total: 16

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

Package

Total

Call Graph

^SRCUSS RISK^SROAUTL3 ^SROCON1 ^SROERR0 ^SROPCE1 KILL^SROPDEL ($$LOCK,UNLOCK)^SROUTL EN2^SROVAR
SS^SRSCHUP $$CHKS^SRSCOR CHANGE^SRSDT ^SRSKILL AVG^SRSREQ

VA Fileman

^DIC ^DIE

Kernel

T0^%ZOSV

Package	Total	Caller Graph
Surgery	5	SROERR SRSCHD1 SRSREQ SRSREQUT SRSUPRQ

Package

Total

Caller Graph

Surgery

SROERR SRSCHD1 SRSREQ SRSREQUT SRSUPRQ

Entry Points

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

External References

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

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	Timeout: DTIME Variable: Z 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	Timeout: DTIME Variable: SREQ 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	Timeout: DTIME Variable: X 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	Timeout: DTIME Variable: SRBOTH 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 case 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	DIE Line Location: DEL+3 CON CC+4
Routine Call	DIC Line Location: ASK

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

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	ASK+1, ASK+4, OPS, SETUP+1*
DA	DEL+3!, CON!, CC+4, UPDATE+3
>> DFN	OPALSO+2*
DIC	ASK!*
DIC("A"	ASK*
DIC(0	ASK*
DIE	DEL+3!, CON!, CC+4, UPDATE+3
DR	DEL+3!, CON!, CC+4, UPDATE+2!, UPDATE+3, UPDATE+4!
DTIME	SEL, END+1, MANY+1, DEL+1, CC+1
>> 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+3!
>> SPD	UPDATE+3*
>> SRBOTH	DEL+1, DEL+4, OPALSO+2, CON, CC+1, CC+2, CC+3, CC+5
>> 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+4, CC+5!
>> SRDFN	ASK*, ASK+1, OPALSO+2
>> SREQ	OPT, OPT+1, MANY+1, MANY+2
>> SRLATE	END*, END+1
SRLCK	UPDATE+1~*, UPDATE+6
SRLNTH	UPDATE+2!
SRLNTH1	UPDATE+2!
>> SRNM	ASK*, ASK+2, ASK+3
>> SRODR	UPDATE+4
>> SROERR	CC+4, UPDATE+5
>> 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+4, UPDATE+1, UPDATE+3, UPDATE+5, UPDATE+6
SRTN1	END+2!, OPALSO+2
SRTNX	END+2!, OPALSO+2*
SRTX	UPDATE+5!
>> ST	UPDATE+3*
X	END+1, DEL+1, DEL+2*, UPDATE+2!
>> XRTL	RT+1
>> XRTN	RT+1*
Y	ASK, UPDATE+3!
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: 16

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: