Routine: SRSUP1

Package	Total	Call Graph
Surgery	19	^SRCUSS RISK^SROAUTL3 ^SROCON1 ^SROERR0 $$ICDSTR^SROICD ^SROPCE1 ^SRORESV EN2^SROVAR ^SROXRET ^SRSCG ^SRSCHCA ($$LOCK,UNLOCK)^SRSCHD1 EN2^SRSCHD2 $$CHKS^SRSCOR ^SRSDISP ^SRSKILL ^SRSTCH ^SRSTIME $$SPIN^SRTOVRF
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
CON
CHANGE
EDIT
DATE
DIS
SCHED
END	;
NODATE	; new date not entered
PRC
DIE
RT	; start RT logging
CHECK
OERR	; update status in ORDER file (100)
SRDYN

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+3, DIE+1
RISK^SROAUTL3	EDIT+3
^SROCON1	EDIT+3
^SROERR0	OERR+1
$$ICDSTR^SROICD	EDIT+2, DIE
^SROPCE1	EDIT+3
^SRORESV	EDIT+5
EN2^SROVAR	EDIT+3, DIE+1
^SROXRET	SCHED+4
^SRSCG	EDIT+7
^SRSCHCA	CON+3
$$LOCK^SRSCHD1	EDIT
UNLOCK^SRSCHD1	SCHED+5
EN2^SRSCHD2	SCHED+3
$$CHKS^SRSCOR	EDIT+3, SRDYN
^SRSDISP	DIS
^SRSKILL	END+1
^SRSTCH	EDIT+4
^SRSTIME	DIS+3
$$SPIN^SRTOVRF	EDIT+3, DIE+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: SRYN Timeout: DTIME 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	Variable: SRYN Timeout: DTIME 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: WRITE	Prompt: !!,"Another user changed the schedule for this case ... please review." Line Location: EDIT+6
Function Call: READ	Variable: X Timeout: DTIME 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	Formatting: !! Prompt: "Press RETURN to continue " Variable: X Timeout: DTIME Line Location: PRC+0
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	DIC Line Location: DIS+1 CHECK+2
Routine Call	DIE Line Location: DIS+4 SCHED

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, SRSUP1+6, CHANGE, CHANGE+1, SCHED
^SRO(133 - [#133]	CHANGE, CHECK, CHECK+2
^TMP("CSLSUR1"	SRDYN*

Label References

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

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+3!, DIS+4!, SCHED!, DIE+1!, 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+3!, DIS+4!, SCHED!, DIE+1!
DIQ	CHECK+3*!
DIQ(0	CHECK+3*
DR	EDIT+3!, DIS+4!, SCHED!, DIE+1!, CHECK+3*!
DT	CHANGE+1
DTIME	CON, CHANGE+2, DATE, PRC
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+3!, DIE+1!
>> S(0	SCHED*
>> SPD	EDIT+3*, 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*
SRICDV	EDIT+2~, DIE
>> SRNOK	DATE+2, CHECK, CHECK+1, CHECK+2*
>> SRNOREQ	DIS+4*
>> SRODR	EDIT+3
>> SROERR	OERR+1*
SRORPRE	SRSUP1+5~*, EDIT+6, END+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+6, EDIT+7, EDIT+8, SCHED+1*, SCHED+2
>> SRSDT2	EDIT+6, EDIT+7, EDIT+8, SCHED+1*, SCHED+2
SRSDT3	SCHED+2!*
>> SRSEDT	EDIT+7*
>> SRSERV	SCHED*
>> SRSET1	SCHED+1*
>> SRSITE	CHECK, CHECK+2
SRSLAP	SCHED+3!
>> SRSOR	EDIT+6, EDIT+7, DIS+2, SCHED+1
>> SRSOUT	EDIT+4, DATE+3, DIS, DIS+1, DIS+3, SCHED+1, SCHED+3, PRC*
>> SRSTIME	SCHED+1, SCHED+2
>> SRSTIME1	EDIT+8*, SCHED+1
>> SRSUPDT	CHANGE+2*
>> SRT	EDIT+8
>> SRTIME	CHANGE, CHANGE+1
SRTN	SRSUP1+5, SRSUP1+6, CHANGE, CHANGE+1, EDIT, EDIT+2, EDIT+3, DIS+4, SCHED, SCHED+5 , END+1!, DIE, DIE+1, OERR+1, SRDYN
SRTN("END"	EDIT+7*, EDIT+8
SRTN("OR"	EDIT+7*, SCHED+1
SRTN("SRT"	EDIT+8*, SCHED+1
SRTN("START"	EDIT+7*, EDIT+8, DATE
>> SRY(	CHECK+4
>> SRYN	CON, CON+1, CON+2, CON+3, CHANGE+1, CHANGE+2, CHANGE+3*, CHANGE+4, EDIT+3
ST	EDIT+3!, DIE+1!
U	SRSUP1+5, EDIT+6
>> X	CHANGE+1, DATE, DIS+2, PRC, 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: 25

Caller Graph

Legends:

Package Component Superscript legend

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: