Routine: SROREQ4

Package	Total	Caller Graph
Surgery	1	SROPREQ

Entry Points

Name	Comments	DBIA/ICR reference
SET	; set ^TMP(
END
HDR	; print heading
BEG	; entry when queued
PRINT	; print from ^TMP("SR",$J)
PAGE
LOOP	; break procedure if greater than 63 characters
MORE	; continue looping

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !!,CNT_".",?5,"Case Number: "_SRTN,?40,"Operation Date: "_SRD,!,?5,"Patient: ",?14,SRNAME,?40,"Ward: ",SRWARD,!,?5,"ID#: ",?14,VA("PID"),?40,"Surgeon: "_SRSUR,!,?5,"Procedure: "_SROPS(1) Line Location: PRINT+9
Function Call: WRITE	Prompt: !,?16,SROPS(2) Line Location: PRINT+10
Function Call: WRITE	Prompt: !,?16,SROPS(3) Line Location: PRINT+10
Function Call: WRITE	Prompt: !,?16,SROPS(3) Line Location: PRINT+10
Function Call: WRITE	Prompt: !,?5,"Estimated Case Length: "_SRHRS Line Location: PRINT+11
Function Call: WRITE	Prompt: !,?5,"Requested Anesthesia: "_SRANES Condition for execution: SRSORD'="" !,?5,"Case Schedule Order: "_SRSORD W:SRANES'="" Line Location: PRINT+11
Function Call: WRITE	Prompt: !,"Concurrent Case # "_SRSCON,!,SROPS(1) Line Location: PRINT+13
Function Call: WRITE	Prompt: !,SROPS(2) Line Location: PRINT+13
Function Call: WRITE	Prompt: !,SROPS(2) Line Location: PRINT+13
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue, or '^' to quit: " Line Location: PAGE+0
Function Call: WRITE	Prompt: !! Line Location: HDR+3
Function Call: WRITE	Prompt: "=" Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+4

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	PRINT+6
^DPT - [#2]	PRINT+7
^SRF - [#130]	BEG+3, SET+1, SET+2, PRINT+2, PRINT+4, PRINT+5, PRINT+6, PRINT+12
^SRF("AR"	BEG+3
^SRO(137.45 - [#137.45]	SET+1
^TMP("SR"	BEG+1!, BEG+4, END!, MORE+1, SET+3*
^VA(200 - [#200]	PRINT+4

Name	Field # of Occurrence
^(	PRINT+7
^("CON"	PRINT+12

Name	Field # of Occurrence
A	PRINT+12!
>> C	PRINT+6*
>> CNT	BEG+1, BEG+4, PRINT+3*, PRINT+9
>> DFN	BEG+1, BEG+3, PRINT+3*, PRINT+7
DTIME	END+1, PAGE
IO	BEG+1
IOF	BEG+4, END, END+2, PAGE+1
IOSL	PRINT+1, HDR+2
IOST	END, END+1, PAGE
>> LINE	HDR+3, HDR+4
>> LOOP	LOOP+1*
>> M	PRINT+8, PRINT+12, LOOP+1
MM	PRINT+8!, PRINT+12, LOOP+1*
MMM	PRINT+8!, LOOP+1*
>> S(0	PRINT+2*, PRINT+3, PRINT+6, PRINT+7
>> SRANES	PRINT+6*, PRINT+11
>> SRD	PRINT+5*, PRINT+9
>> SRDT	BEG+2*, HDR+4
>> SREQDT	BEG+4, MORE+1, SET+2, SET+3
>> SRHALT	HDR+1
>> SRHRS	PRINT+5, PRINT+6, PRINT+11
>> SRNAME	PRINT+4*, PRINT+9
>> SROPER	PRINT+4, PRINT+8, PRINT+12, LOOP+1
SROPS	PRINT+8!
SROPS(	LOOP+1*
SROPS(1	PRINT+8, PRINT+9, PRINT+12, PRINT+13
SROPS(2	PRINT+10, PRINT+13
SROPS(3	PRINT+10, PRINT+13
SROPS(4	PRINT+10
SRSCON	PRINT+12!*, PRINT+13
>> SRSDATE	BEG+2, BEG+3, PRINT+5
>> SRSDT	BEG+2*
>> SRSNM	BEG+4, MORE+1, SET+1, SET+3, HDR+4
>> SRSORD	PRINT+7*, PRINT+11
>> SRSOUT	BEG+1, BEG+4, END+1, MORE+1, PRINT+1, PAGE, HDR+1
>> SRSS	SET+1*
>> SRSUR	PRINT+4*, PRINT+9
SRTN	BEG+3, END+2!, MORE+1, SET+1, SET+2, SET+3, PRINT+2, PRINT+4, PRINT+5, PRINT+6 , PRINT+9, PRINT+12
>> SRTYPE	PRINT+6, PRINT+7, PRINT+8
>> SRWARD	PRINT+7*, PRINT+9
>> SSN	PRINT+7*
>> VA("PID"	PRINT+7, PRINT+9
>> VADM(1	PRINT+4
>> X	END+1, PAGE
>> Y	BEG+2, PRINT+6
>> ZTQUEUED	END, HDR+1
>> ZTREQ	END*
>> ZTSTOP	END