Routine: SROCNR

Information

SROCNR ;B'HAM ISC/MAM - CIRC NURSE REPORT ; [ 09/22/98 11:32 AM ]

Source file <SROCNR.m>

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

Package	Total	Caller Graph
Surgery	1	SROCNR

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 Circulating 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: !!,"This report is designed to use a 132 column format.",! Line Location: DATE+1
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Routine Call	DIC Line Location: ALL+4
Routine Call	%ZIS Line Location: DATE+1

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

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