Routine: SROPER

Package	Total	Call Graph
Surgery	10	^SRCUSS ^SROBLOD ^SROERR0 ^SROPROC ($$LOCK,UNLOCK)^SROUTL EN2^SROVAR ^SROXRET $$CHKS^SRSCOR ^SRSKILL CONCUR^SRSREQ
VA Fileman	3	^%DT FILE^DICN ^DIE
Kernel	1	T0^%ZOSV

Package

Total

Call Graph

^SRCUSS ^SROBLOD ^SROERR0 ^SROPROC ($$LOCK,UNLOCK)^SROUTL EN2^SROVAR ^SROXRET $$CHKS^SRSCOR
^SRSKILL CONCUR^SRSREQ

^%DT FILE^DICN ^DIE

T0^%ZOSV

Package	Total	Caller Graph
Surgery	6	SROALNO SROCANUP SRONON SRONPEN SROP SROPS

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"When entering a new surgery case, a date MUST be entered. If you do not",!,"know the date of operation, enter this patient on the Waiting List." Line Location: NEW+1
Function Call: WRITE	Prompt: !!! Line Location: NEW+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+1
Function Call: WRITE	Prompt: !!,"Please enter the number corresponding to the Surgical Case you want to edit.",!,"If the case desired does not appear, enter RETURN to continue listing",!,"additional cases." Line Location: SEL+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+4
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: CONT+1
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to re-enter a date and continue creating a new",!,"case, or 'NO' to leave this option." Line Location: CONT+2
Routine Call	DIE Line Location: OPER+5 OPER+6 OPER+8 OPER+9 OPER+10

FileNo	Call Tags
^SRF - [#130]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	OPER+7*
^TMP("CSLSUR1"	OPER+9*

Name	Field # of Occurrence
>> %DT	NEW+1*
>> %DT("A"	NEW+1*
>> BLOOD	OPER+8
>> CROSSM	OPER+8
DA	OPER+3!, OPER+5, OPER+6!, OPER+8!, OPER+9, OPER+10*
DD	OPER+3!
>> DFN	NEW+4, OPER+3
DIC	OPER+3!*
DIC(0	OPER+3*
DIE	OPER+5!, OPER+6, OPER+8!, OPER+9, OPER+10*
DINUM	OPER+3!
DLAYGO	OPER+3*!
DO	OPER+3!
DR	OPER+5!, OPER+6!, OPER+8!, OPER+9!, OPER+10*
DTIME	SEL+1, SEL+4, CONT+1
IOF	SEL+1
>> SPD	OPER+9*
>> SRBACK	SEL+4*
>> SRCASE(	SEL+3, SEL+4, SEL+5
SRCTN	NEW+4!, OPER+10
SRLCK	OPER+4~*
>> SROERR	OPER+10*
>> SRPRIN	OPER+1*, OPER+5
>> SRSC1	NEW+4*
>> SRSCC	NEW+4*
>> SRSDATE	NEW+3, OPER+2, OPER+5
>> SRSDPT	NEW+4*
>> SRSITE("DIV"	OPER+7
SRSOP	OPER+1!
>> SRSOUT	OPER, SEL+1, SEL+4
SRTN	OPER+3!, OPER+4, OPER+5, OPER+6, OPER+7, OPER+8, OPER+9, OPER+10, OPER+11, SEL+5
>> SRYN	NEW+2, CONT+1, CONT+2
>> ST	OPER+9*
>> X	OPER+3, SEL+1, SEL+2, SEL+3, SEL+4*, SEL+5
>> XRTL	RT+1
>> XRTN	RT+1*
>> Y	NEW+1, NEW+2, NEW+3, OPER+2, OPER+3

Information