Routine: SRSCHCA

Information

SRSCHCA ;B'HAM ISC/ADM - ADD CONCURRENT CASE TO ALREADY SCHEDULED CASE ; 26 MAY 1992 4:20 PM

Source file <SRSCHCA.m>

Package	Total	Call Graph
Surgery	5	($$LOCK,UNLOCK)^SROUTL CON^SRSCHUN (,SS)^SRSCHUN1 ^SRSKILL ^SRSTCH
VA Fileman	2	D^DIQ ^DIR

Package	Total	Caller Graph
Surgery	1	SRSUP1

Name	Comments	DBIA/ICR reference
DISP
LIST	; list stub info
REQ
END
LOOP	; break procedure if greater than 60 characters

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No concurrent case has been added.",! Line Location: SRSCHCA+2
Function Call: WRITE	Prompt: !!,"No concurrent case has been added.",! Line Location: SRSCHCA+6
Function Call: WRITE	Prompt: @IOF,!,"The following cases have been entered." Line Location: DISP+0
Function Call: WRITE	Prompt: !!!!,"1. Enter Information for Case #"_SRSCON(1),!,"2. Enter Information for Case #"_SRSCON(2),! Line Location: DISP+2
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !!,CON_". ",?4,"Case # "_SRSCON(CON),?40,SRSDT,!,?4,"Surgeon: "_SRSCON(CON,"DOC"),?40,SRSCON(CON,"SS"),!,?4,"Procedure: ",?16,SROPS(1) Line Location: LIST+2
Function Call: WRITE	Prompt: !,?16,SROPS(2) Line Location: LIST+2
Function Call: WRITE	Prompt: !,?16,SROPS(2) Line Location: LIST+2
Routine Call	DIR Line Location: REQ+1 END

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SRSCHCA+3, SRSCHCA+5, LIST+1
^SRO(137.45 - [#137.45]	SRSCHCA+5
^VA(200 - [#200]	SRSCHCA+5

Name	Field # of Occurrence
^(31	SRSCHCA+3

Name	Field # of Occurrence
>> CON	DISP+1*, LIST+1, LIST+2
>> DA	REQ+2*
DIR	REQ!, END!
DIR("?"	REQ*
DIR("A"	REQ+1, END
DIR(0	REQ+1, END
>> DUOUT	REQ+1
IOF	DISP, END+1
>> LOOP	LOOP+1*
>> M	LIST+1*, LOOP+1
MM	LIST+1!, LOOP+1*
MMM	LIST+1!, LOOP+1*
>> SRCC	SRSCHCA+3*
>> SREQDT	SRSCHCA+4*
>> SROPER	LIST+1, LOOP+1
SROPS	LIST+1!
SROPS(	LOOP+1*
SROPS(1	LIST+1*, LIST+2
SROPS(2	LIST+2
SROPS(3	LIST+2
>> SRSCON	SRSCHCA+3, REQ+2
>> SRSCON(	DISP+1, REQ+2, LIST+1, LIST+2
>> SRSCON(1	SRSCHCA+5*, DISP+2
>> SRSCON(2	DISP+2
>> SRSDATE	SRSCHCA+3*, SRSCHCA+4
>> SRSDT	SRSCHCA+4*, LIST+2
>> SRSDT1	SRSCHCA+3*
>> SRSDT2	SRSCHCA+3*
>> SRSOR	SRSCHCA+3*
>> SRSOUT	SRSCHCA+2, SRSCHCA+6, REQ+1*, END
SRTN	SRSCHCA+3, SRSCHCA+5, SRSCHCA+7, REQ+2*, END+1!
>> Y	SRSCHCA+4*, REQ+1, REQ+2