Routine: SRSCHUP

Information

SRSCHUP ;B'HAM ISC/MAM - UPDATE SCHEDULED OPERATION ; 6 Jan 1989 10:56 AM

Package	Total	Caller Graph
Surgery	3	SROP SRSCHUP SRSUPRQ

Name	Comments	DBIA/ICR reference
END
LOOK
OPS
SS	; enter missing specialty
LIST	; list cases
OTHER	; other operations
ASK
LOOP	; break procedure if greater than 60 characters

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SRSCHUP+2
Function Call: WRITE	Prompt: @IOF,!,SRNAME,!! Line Location: LOOK+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: LOOK+1
Function Call: WRITE	Prompt: !!,"There are no procedures scheduled for "_VADM(1)_".",!! Line Location: LOOK+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: LOOK+1
Function Call: READ	Prompt: "Select Number: " Formatting: !! Timeout: DTIME Variable: SRNUM Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter the number which corresponds to the case that you want to update." Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"You have entered an invalid number, please select again. " Line Location: ASK+2
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !,CNT_". "_SRSDATE,?15,SROPS(1) Line Location: OPS+4
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: OPS+4
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: OPS+4
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: OPS+4
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: OPS+4
Function Call: WRITE	Prompt: !!,"To continue, a Surgical Specialty MUST be defined for this case.",! Line Location: SS+1
Routine Call	DIE Line Location: SS+1
Routine Call	DIC Line Location: SRSCHUP+2

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	ASK+3, OTHER+1, OTHER+2, LIST+1, OPS
^SRF("B"	LOOK

Name	Field # of Occurrence
>> CNT	LOOK, OPS+2, OPS+4
DA	SS+1!*
>> DFN	SRSCHUP+3*, LOOK
DIC	SRSCHUP+2!*
DIC("A"	SRSCHUP+2*
DIC(0	SRSCHUP+2*
DIE	SS+1!*
DR	SS+1!*
DTIME	LOOK+1, ASK
>> DTOUT	SS+1
>> I	LOOK, OPS
IOF	LOOK, END+1
>> LOOP	LOOP+1*
>> M	OPS+3*, LOOP+1
MM	OPS+3!, LOOP+1*
MMM	OPS+3!, LOOP+1*
>> OPER	OTHER+1, OTHER+2, OPS
>> SRLONG	OTHER+1*, OTHER+2
>> SRNAME	SRSCHUP+3*, LOOK
>> SRNM	SRSCHUP+3*
>> SRNUM	ASK*, ASK+1, ASK+2, ASK+3
>> SROP	OPS+1*
>> SROP1(	LOOK*, ASK+2, ASK+3, OPS+2!
>> SROP1(1	LOOK+1
>> SROPER	OTHER+1, OTHER+3, OPS, OPS+2, OPS+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	OPS+3!
SROPS(	LOOP+1*
SROPS(1	OPS+3*, OPS+4
SROPS(2	OPS+4
SROPS(3	OPS+4
SROPS(4	OPS+4
SROPS(5	OPS+4
>> SRSDATE	LIST+1*, OPS+4
>> SRSDPT	SRSCHUP+3*
>> SRSOUT	SRSCHUP+2, ASK+3, SS+1
>> SRSSN	SRSCHUP+3*
SRTN	LOOK, ASK+3, END!, OTHER+1, OTHER+2, LIST+1, OPS, OPS+1, SS+1
>> VA("PID"	SRSCHUP+3
>> VADM(1	SRSCHUP+3, LOOK+1
>> X	LOOK+1*
Y	SRSCHUP+2, SRSCHUP+3!, SS+1