Routine: SROSNR

Information

SROSNR ;B'HAM ISC/MAM - SCRUB NURSE REPORT ; [ 09/22/98 11:36 AM ]

Source file <SROSNR.m>

Package	Total	Call Graph
Surgery	4	BEG^SROSNR1 BEG^SROSNR2 DATE^SROUTL ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Surgery	1	SROSNR

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ALL+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ALL+2
Function Call: WRITE	Prompt: !!,"Enter RETURN to print the Scrub Nurse Staffing Report for all nurses, or 'NO'",!,"to select a specific person.",!!,"Press RETURN to continue " Line Location: ALL+2
Function Call: WRITE	Prompt: ! Line Location: ALL+4
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format.",! Line Location: DATE+3
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+4
Routine Call	DIC Line Location: ALL+4
Routine Call	%ZIS Line Location: DATE+3

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

Name	Field # of Occurrence
%ZIS	DATE+3!*
%ZIS("A"	DATE+3*
DIC	ALL+4!*
DIC("A"	ALL+4*
DIC(0	ALL+4*
DT	BEG
DTIME	ALL, ALL+2, END+2
IO("Q"	DATE+3!, DATE+4!
IOF	ALL, END+1, END+4
IOP	DATE+3!
IOST	END+1
>> NURSE	ALL+3, ALL+5
>> NURSE("NAME"	ALL+5*
POP	DATE+3!
>> SRALL	ALL+3*, BEG+1
>> SRED	DATE, DATE+2, BEG
>> SRED1	DATE+2*
SRFRTO	BEG~*
>> SRINST	SROSNR+2*
>> SRPRINT	BEG*
>> SRSD	DATE, DATE+1, BEG
>> SRSD1	DATE+1*
>> SRSITE("SITE"	SROSNR+2
>> SRSOUT	SROSNR+2, ALL, ALL+4, DATE, DATE+3, END+1*, END+2
SRTN	END+4!
>> SRYN	ALL, ALL+1, ALL+2, ALL+3
>> X	ALL+2, END+2
>> Y	ALL+4, ALL+5, BEG*
>> Y(0	ALL+5
>> ZTDESC	DATE+4*
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
>> ZTRTN	DATE+4*
>> ZTSAVE("NURSE*"	DATE+4*
>> ZTSAVE("SRALL"	DATE+4*
>> ZTSAVE("SRED*"	DATE+4*
>> ZTSAVE("SRINST"	DATE+4*
>> ZTSAVE("SRSD*"	DATE+4*
>> ZTSAVE("SRSITE*"	DATE+4*
>> ZTSTOP	END+3