Routine: SROUNV

Information

SROUNV ;B'HAM ISC/MAM - UNVERIFIED CASES ; [ 09/22/98 11:36 AM ]

Source file <SROUNV.m>

Package	Total	Call Graph
Surgery	5	^SROUNV1 ^SROUNV2 DATE^SROUTL $$INST^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Surgery	1	SROUNV

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SPEC+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SPEC+2
Function Call: WRITE	Prompt: !!,"Enter RETURN if you would like to list the unverified cases for",!,"all Surgical Specialties, or 'NO' to select a specific specialty.",!!,"Press RETURN to continue " Line Location: SPEC+2
Function Call: WRITE	Prompt: ! Line Location: SPEC+3
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Routine Call	DIC Line Location: SPEC+3
Routine Call	%ZIS Line Location: DATE+2

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

Name	Line Occurrences
END	SPEC, SPEC+3, DATE, DATE+1, DATE+2, DATE+3, EN
SPEC	SPEC+2

Name	Field # of Occurrence
%ZIS	DATE+2!*
%ZIS("A"	DATE+2*
DIC	SPEC+3!*
DIC("A"	SPEC+3*
DIC("S"	SPEC+3*
DIC(0	SPEC+3*
DTIME	SPEC, SPEC+2, END
>> EDATE	DATE
IO("Q"	DATE+2!, DATE+3!
IOF	SPEC, END+1, END+2
IOP	DATE+2!
IOST	END, END+1
POP	DATE+2!
>> SDATE	DATE
>> SRINST	DATE+1*
SRINSTP	DATE+1~*
>> SRSOUT	SROUNV+2, SPEC, SPEC+3, DATE, DATE+2, DATE+3*, END
>> SRSPEC	SPEC+3*, EN
>> SRSPECN	SPEC+3*
SRTN	END+2!
>> SRYN	SPEC, SPEC+1, SPEC+2, SPEC+3
U	DATE+1
>> X	SPEC+2, END
>> Y	SPEC+3
>> Y(0	SPEC+3
>> ZTDESC	DATE+3*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	DATE+3*
>> ZTSAVE("EDATE"	DATE+3*
>> ZTSAVE("SDATE"	DATE+3*
>> ZTSAVE("SRINST"	DATE+3*
>> ZTSAVE("SRINSTP"	DATE+3*
>> ZTSAVE("SRSPEC*"	DATE+3*
>> ZTSTOP	END+1