Routine: SROWRQ1

Information

SROWRQ1 ;B'HAM ISC/MAM - REQUESTS BY WARD (CONT) ;5 Oct 1988 10:01 AM

Package	Total	Caller Graph
Surgery	1	SROWRQ

Name	Comments	DBIA/ICR reference
ALL	; all wards
SET	; set and print data
END
OPS
UTL
ASK
OTHER	; other operations
BLOOD	; requested blood component information
PRINT	; print results
LOOP	; break procedure if greater than 63 characters
MORE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SROWRQ1+4
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !," Patient: "_SRNM_" ("_VA("PID")_")",?58,"Case Number: "_SRTN,!," Date of Operation: "_SRSDATE1,?40,"Case Order: "_SRORD,!," Requested Anesthesia: "_SRANES Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"Requested Blood Component: " Line Location: PRINT+2
Function Call: WRITE	Prompt: ?28,SRB(SRB),! Line Location: PRINT+2
Function Call: WRITE	Prompt: !," Operation(s): "_SROPS(1) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?15,SROPS(2) Line Location: PRINT+3
Function Call: WRITE	Prompt: !," "_^SRF(SRTN,5,COMMENT,0) Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,?4,SRSCC1 Line Location: PRINT+5
Function Call: WRITE	Prompt: ! Line Location: PRINT+6
Function Call: WRITE	Prompt: "-" Line Location: PRINT+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	SET+5, SET+6
^DPT - [#2]	SROWRQ1+3, UTL
^SRF - [#130]	OTHER+1, OTHER+2, SET+5, SET+6, SET+7, OPS, OPS+2, PRINT+4
^SRF("AR"	SROWRQ1+3, ALL+1, MORE+1
^TMP("SRWREQ"	SROWRQ1+2!, ALL+2, END+1!, UTL+1*

Name	Field # of Occurrence
%DT	SROWRQ1+2!
>> C	SET+5, SET+6
>> COMMENT	PRINT+4*
>> DFN	SROWRQ1+3, ALL+1, ALL+2*, UTL, UTL+1, MORE+1
DTIME	END, ASK
>> I	OPS*
IO	SROWRQ1+2
IOF	ALL+3, END+2
IOSL	SET+1
IOST	ALL+3, END, ASK
>> LINE	PRINT+6*
>> LOOP	LOOP+1*
>> M	LOOP+1, OPS+1*
MM	LOOP+1*, OPS+1!
MMM	LOOP+1*, OPS+1!
>> OPER	OTHER+1, OTHER+2, OPS
SRANES	SET+3!, SET+6*, PRINT+1
>> SRASK	SROWRQ1+2, ASK, ASK+1
SRB	SET+3!, SET+7, PRINT+2, BLOOD+1, BLOOD+2
SRB(	PRINT+2, BLOOD+1, BLOOD+2
SRBLOOD	SET+3!, SET+7*, BLOOD+1
SRBT	SET+3!, SET+7, BLOOD+1, BLOOD+2
SRBU	SET+3!, SET+7*, BLOOD+1
SRCPT	SET+3!
SRDISP	SET+3!, SET+5*
>> SRLONG	OTHER+1*, OTHER+2
>> SRN(0	PRINT+2
>> SRNM	SET+4*, PRINT+1
SROP	SET+3!
SROPER	OTHER+1, OTHER+3, LOOP+1, SET+3!, OPS, OPS+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	OPS+1!
SROPS(	LOOP+1*
SROPS(1	OPS+1*, PRINT+3
SROPS(2	PRINT+3
SROPS(3	PRINT+3
SROPS(4	PRINT+3
SROPS(5	PRINT+3
SROPS(6	PRINT+3
SRORD	SET+3!, SET+5*, PRINT+1
>> SRQ	SROWRQ1+2, SROWRQ1+3, ALL+1, ALL+2, END, MORE+1, SET+1, ASK
SRSCC	OPS+2!*, PRINT+5
SRSCC1	OPS+2!*, PRINT+5
>> SRSDATE	SROWRQ1+2, SROWRQ1+3, ALL+1, ALL+2, UTL+1, MORE+1, SET+2
>> SRSDATE1	SET+2*, PRINT+1
>> SRSSN	SET+4*
SRTN	SROWRQ1+3, ALL+1, ALL+2, END+2!, OTHER+1, OTHER+2, UTL+1, MORE+1, SET+5, SET+6 , SET+7, OPS, OPS+2, PRINT+1, PRINT+4
SRWARD	SROWRQ1+2, SROWRQ1+3, ALL+1!, ALL+2, UTL!, UTL+1*, ASK+1
>> VA("PID"	SET+4, PRINT+1
>> VADM(1	SET+4
>> X	SROWRQ1+2, END, ASK*
>> Y	SROWRQ1+2, SET+5, SET+6
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTSTOP	END+1