Routine: SRSAVL1

Package	Total	Caller Graph
Surgery	1	SRSAVL

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; print heading
REQUEST	; list requests
UTIL	; set ^TMP("SR",$J)
PRINT	; print info
ASK
LOOP	; break procedure if greater than 60 characters

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: SRX Line Location: REQUEST+1
Function Call: WRITE	Prompt: SR10 Line Location: REQUEST+2
Function Call: READ	Timeout: DTIME Variable: SRX Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF,!,"There are no requests entered for "_SRDT_"." Line Location: ASK+1
Function Call: WRITE	Prompt: !,CNT_".",?5,"Patient: "_SRPAT,?40,"Case Number: "_SRTN,!,?5,"Surgeon: "_SRSUR,?40,"Case Order: "_SRORD Line Location: PRINT+6
Function Call: WRITE	Prompt: !,?5,SROPS(1) Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?19,SROPS(2) Line Location: PRINT+7
Function Call: WRITE	Prompt: ! Line Location: PRINT+8
Function Call: WRITE	Prompt: ! Line Location: PRINT+9
Function Call: WRITE	Prompt: !!,?8,"Concurrent Case Number: "_CON Line Location: PRINT+10
Function Call: WRITE	Prompt: !,?8,SROPS(1) Line Location: PRINT+12
Function Call: WRITE	Prompt: !,?19,SROPS(2) Line Location: PRINT+12
Function Call: WRITE	Prompt: ! Line Location: PRINT+13
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+1
Function Call: WRITE	Prompt: @IOF,!,?17,"Requested Operative Procedures for "_SRDT,!,?(80-$L("Surgical Specialty: "_SERV)\2),"Surgical Specialty: "_SERV,! Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+3
Routine Call	%ZIS Line Location: REQUEST+2

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	UTIL+1, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+8, PRINT+9, PRINT+11
^SRF("AR"	ASK+1, ASK+2
^SRO(137.45 - [#137.45]	UTIL+1
^TMP("SR"	ASK+2!, ASK+3, UTIL+2*
^VA(200 - [#200]	PRINT+3

Name	Field # of Occurrence
>> %ZIS	REQUEST+2*
>> CNT	ASK+3, PRINT+6
>> CON	PRINT+9*, PRINT+10, PRINT+11
>> DFN	ASK+2, PRINT+2
DTIME	REQUEST+1, ASK, HDR+1
IO	REQUEST+2
IOF	ASK+1, HDR+3
>> IOP	REQUEST+2*
IOSL	PRINT+1
>> LINE	HDR+3*
>> LOOP	LOOP+1*
>> M	PRINT+4, PRINT+11, LOOP+1
MM	PRINT+4!, PRINT+11!, LOOP+1*
MMM	PRINT+4!, PRINT+11!, LOOP+1*
>> SERV	ASK+3, UTIL+1, UTIL+2, HDR+3
>> SR(	PRINT+3*
>> SR(0	UTIL+1, PRINT+2, PRINT+5
>> SR10	REQUEST+2
>> SRDT	ASK+1*, HDR+3
>> SRHDR	ASK+1, HDR+1, HDR+2
>> SRHRS	PRINT+5*
>> SROPER	PRINT+4, PRINT+11, LOOP+1*
SROPS	PRINT+4!, PRINT+11!
SROPS(	LOOP+1*
SROPS(1	PRINT+4, PRINT+7, PRINT+11, PRINT+12
SROPS(2	PRINT+7, PRINT+12
>> SRORD	PRINT+5*, PRINT+6
>> SRPAT	PRINT+2*, PRINT+6
>> SRSDATE	ASK+1, ASK+2
>> SRSOUT	REQUEST+1, ASK, ASK+3, PRINT+1, HDR+1*
>> SRSUR	PRINT+3*, PRINT+6
>> SRTN	ASK+2, ASK+3, UTIL+1, UTIL+2, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+8 , PRINT+9
>> SRX	REQUEST+1, ASK
>> VADM(1	PRINT+2
>> X	HDR+1*
>> Y	ASK+1*