Routine: SRONOR

Information

SRONOR ;B'HAM ISC/MAM - REPORT OF NON-O.R. PROCEDURES ; [ 09/22/98 11:35 AM ]

Package	Total	Call Graph
Surgery	6	^SRONOR1 ^SRONOR4 ^SRONOR5 ^SRONOR6 DATE^SROUTL ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Surgery	2	SRONOR SRONOR-CODERS

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Report of Non-OR Procedures",! Line Location: SRONOR+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: SORT+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SORT+1
Function Call: WRITE	Prompt: !!,"Enter '1' to sort this report by specialty, '2' to list ",!,"procedures sorted by provider, or '3' to list procedures sorted by location.",!!,"Press RETURN to continue " Line Location: SORT+1
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ALL+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ALL+3
Function Call: WRITE	Prompt: !!,"Enter RETURN to print the report for all providers, or 'NO'",!,"to select a specific provider.",!!,"Press RETURN to continue " Line Location: ALL+3
Function Call: WRITE	Prompt: !! Line Location: ALL+4
Function Call: WRITE	Prompt: ! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format.",! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Routine Call	DIC Line Location: ALL+4
Routine Call	%ZIS Line Location: DEVICE

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+1
^TMP("SR"	END!

Name	Line Occurrences
ALL	ALL+3
DEVICE	ALL+2
END	DATE, SORT, ALL, ALL+4, DEVICE, DEVICE+1, EN+3
SORT	SORT+1

Name	Field # of Occurrence
%ZIS	DEVICE!*
%ZIS("A"	DEVICE*
DIC	ALL+4!*
DIC("A"	ALL+4*
DIC(0	ALL+4*
DTIME	SORT, SORT+1, ALL, ALL+3, END+1
IO	EN+1
IO("Q"	DEVICE!, DEVICE+1!
IOF	SRONOR+3, SORT, ALL, END, END+2
IOP	DEVICE!
IOST	END, END+1
POP	DEVICE!
>> SRED	DATE, EN+1, EN+2*
SRFRTO	EN+1~*
>> SRINST	SRONOR+2*
>> SRSD	DATE, EN+1, EN+2*
>> SRSITE("SITE"	SRONOR+2
>> SRSOUT	SRONOR+2, DATE, SORT, ALL, ALL+4, DEVICE*, END+1
>> SRSUR	ALL+2, ALL+5, EN+3
>> SRSURG	ALL+5*
>> SRYN	ALL, ALL+1, ALL+2, ALL+3
>> X	SORT, SORT+1, SORT+2, SORT+3, ALL+3, END+1
>> Y	ALL+4, ALL+5, EN+1*
>> Y(0	ALL+5
>> ZTDESC	DEVICE+1*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	DEVICE+1*
>> ZTSAVE("SRED"	DEVICE+1*
>> ZTSAVE("SRINST"	DEVICE+1*
>> ZTSAVE("SRSD"	DEVICE+1*
>> ZTSAVE("SRSITE*"	DEVICE+1*
>> ZTSAVE("SRSUR*"	DEVICE+1*
>> ZTSTOP	END