Routine: SRSUP1

Package	Total	Call Graph
Surgery	17	^SRCUSS RISK^SROAUTL3 ^SROCON1 ^SROERR0 ^SROPCE1 ^SRORESV ($$LOCK,UNLOCK)^SROUTL EN2^SROVAR ^SROXRET ^SRSCG ^SRSCHCA EN2^SRSCHD2 $$CHKS^SRSCOR ^SRSDISP ^SRSKILL ^SRSTCH ^SRSTIME
VA Fileman	5	^%DT (,C,H,NOW)^%DTC ^DIC ^DIE EN^DIQ1
Kernel	1	T0^%ZOSV

Package	Total	Caller Graph
Surgery	1	SRSCHUP

Entry Points

Name	Comments	DBIA/ICR reference
RT	; start RT logging
SCHED
EDIT
DIE
OERR	; update status in ORDER file (100)
NODATE	; new date not entered
SRDYN
DATE
END	;
CON
CHECK
CHANGE
DIS

External References

Name	Field # of Occurrence
^%DT	DATE+1
^%DTC	DIS+2
C^%DTC	CHANGE+1
H^%DTC	CHECK
NOW^%DTC	CHANGE+1
T0^%ZOSV	RT+1
^DIC	DIS+1, CHECK+2
^DIE	DIS+4, SCHED
EN^DIQ1	CHECK+3
^SRCUSS	EDIT+1, DIE
RISK^SROAUTL3	EDIT+1
^SROCON1	EDIT+1
^SROERR0	OERR+1
^SROPCE1	EDIT+1
^SRORESV	EDIT+3
$$LOCK^SROUTL	EDIT
UNLOCK^SROUTL	SCHED+5
EN2^SROVAR	EDIT+1, DIE
^SROXRET	SCHED+4
^SRSCG	EDIT+3
^SRSCHCA	CON+3
EN2^SRSCHD2	SCHED+3
$$CHKS^SRSCOR	EDIT+1, SRDYN
^SRSDISP	DIS
^SRSKILL	END+1
^SRSTCH	EDIT+2
^SRSTIME	DIS+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: CON+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' if you need to add a case to be performed concurrently with this",!,"case. Press RETURN to update other information related to this case." Line Location: CON+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: CHANGE+2
Function Call: WRITE	Prompt: !!,"Enter 'YES' if you need to change the ",$S(SRC:"date, ",1:""),"time or operating room for this",!,"case. Enter RETURN to update other information related to this case." Line Location: CHANGE+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue... " Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: DIS+1
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !!,"Since no date has been entered, I must assume that you want to re-schedule",!,"this case for the same date. If you have made a mistake and want to",!,"leave this case scheduled for the same operating room at the same times," Line Location: NODATE+1
Function Call: WRITE	Prompt: !,"enter RETURN when prompted to select an operating room." Line Location: NODATE+2
Function Call: READ	Prompt: "Press RETURN to continue " Formatting: !! Timeout: DTIME Variable: X Line Location: NODATE+3
Function Call: WRITE	Prompt: !!,"Scheduling not allowed for "_$S(SRDAY=1:"SUNDAY",SRDAY=2:"MONDAY",SRDAY=3:"TUESDAY",SRDAY=4:"WEDNESDAY",SRDAY=5:"THURSDAY",SRDAY=6:"FRIDAY",1:"SATURDAY")_" !!",! Line Location: CHECK+1
Routine Call	DIE Line Location: DIS+4 SCHED
Routine Call	DIC Line Location: DIS+1 CHECK+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRS - [#131.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SRSUP1+5, CHANGE, CHANGE+1, SCHED
^SRO(133 - [#133]	CHANGE, CHECK, CHECK+2
^TMP("CSLSUR1"	SRDYN*

Label References

Name	Line Occurrences
CHANGE	SRSUP1+5, CHANGE+4
CHECK	DATE+2
CON	CON+2
DATE	DATE+2
DIS	DATE
EDIT	CHANGE+1
END	CON, CHANGE+2, EDIT, EDIT+1, EDIT+2
NODATE	DATE+3
OERR	EDIT+1, SCHED+4
RT	EDIT+1
SCHED	DATE+3, DIS, DIS+1, DIS+3, SCHED+3
SRDYN	EDIT+1, DIE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CHANGE+1
%DT	DATE+1*!
%DT("A"	DATE+1*
>> %Y	CHECK
>> COUNT	SCHED+2*
DA	EDIT+1!, DIS+4!, SCHED!, DIE!, CHECK+3*!
DIC	DIS+1!, CHECK+2!, CHECK+3*!
DIC("A"	DIS+1*
DIC("S"	DIS+1*
DIC(0	DIS+1, CHECK+2
DIE	EDIT+1!, DIS+4!, SCHED!, DIE!
DIQ	CHECK+3*!
DIQ(0	CHECK+3*
DR	EDIT+1!, DIS+4!, SCHED!, DIE!, CHECK+3*!
DT	CHANGE+1
DTIME	CON, CHANGE+2, DATE, NODATE+3
IOF	END+1
>> MM	SCHED+2*
NODATE	DATE!, DATE+1*, DATE+2, DATE+3
>> OLDATE	DATE*, DATE+1, DIS+4, SCHED+1, SCHED+4
>> Q3("VIEW"	EDIT+1!, DIE!
>> S(0	SCHED*
>> SPD	EDIT+1*, SRDYN
>> SRC	CHANGE, CHANGE+1, CHANGE+2, CHANGE+4, DATE
>> SRDAY	CHECK*, CHECK+1
>> SRDL	CHECK*, CHECK+1
SRGRPH	SCHED+2!
SRHOL	CHECK~, CHECK+2, CHECK+3, CHECK+4
>> SRI	CHANGE*
>> SRNOK	DATE+2, CHECK, CHECK+1, CHECK+2*
>> SRNOREQ	DIS+4*
>> SRODR	EDIT+1
>> SROERR	OERR+1*
>> SRS	CHANGE*
SRSCC	CHANGE+2!
>> SRSDATE	DATE, DATE+1, DIS+2, DIS+4, SCHED+1*, SCHED+4, CHECK, CHECK+2
>> SRSDAY	DIS+2*
>> SRSDT1	EDIT+3, EDIT+4, SCHED+1*, SCHED+2
>> SRSDT2	EDIT+3, EDIT+4, SCHED+1*, SCHED+2
SRSDT3	SCHED+2!*
>> SRSEDT	EDIT+3*
>> SRSERV	SCHED*
>> SRSET1	SCHED+1*
>> SRSITE	CHECK, CHECK+2
SRSLAP	SCHED+3!
>> SRSOR	EDIT+3, DIS+2, SCHED+1
>> SRSOUT	EDIT+2, DATE+3, DIS, DIS+1, DIS+3, SCHED+1, SCHED+3, NODATE+3*
>> SRSTIME	SCHED+1, SCHED+2
>> SRSTIME1	EDIT+4*, SCHED+1
>> SRSUPDT	CHANGE+2*
>> SRT	EDIT+4
>> SRTIME	CHANGE, CHANGE+1
SRTN	SRSUP1+5, CHANGE, CHANGE+1, EDIT, EDIT+1, DIS+4, SCHED, SCHED+5, END+1!, DIE , OERR+1, SRDYN
SRTN("END"	EDIT+3*, EDIT+4
SRTN("OR"	EDIT+3*, SCHED+1
SRTN("SRT"	EDIT+4*, SCHED+1
SRTN("START"	EDIT+3*, EDIT+4, DATE
>> SRY(	CHECK+4
>> SRYN	CON, CON+1, CON+2, CON+3, CHANGE+1, CHANGE+2, CHANGE+3*, CHANGE+4, EDIT+1
ST	EDIT+1!, DIE!
>> X	CHANGE+1, DATE, DIS+2, NODATE+3, CHECK, CHECK+2
X0	SCHED+3!
X1	CHANGE+1, DIS+2, SCHED+3!
>> X2	CHANGE+1, DIS+2
>> XRTL	RT+1
>> XRTN	RT+1*
>> XX	SCHED+2*
>> Y	DATE+1, DIS+1, DIS+2, CHECK+2

Customize PDF page

Package: Surgery

Routine: SRSUP1

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: