Routine: SRTPASS

Information

SRTPASS ;BIR/SJA - SELECT ASSESSMENT ;02/28/08

Source file <SRTPASS.m>

Package	Total	Call Graph
Surgery	1	$$TR^SRTPUTL

Package	Total	Caller Graph
Surgery	2	SRTPSS SRTPTRAN

Name	Field # of Occurrence
$$TR^SRTPUTL	DISP

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SRTPASS+2
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),! Line Location: LIST+1
Function Call: WRITE	Prompt: CNT_". " Line Location: DISP+4
Function Call: WRITE	Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3),?14,SROPER Line Location: CASE+0
Function Call: WRITE	Prompt: !! Line Location: CASE+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+1
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!! Line Location: SEL+2
Function Call: WRITE	Prompt: !!,"Please enter the number corresponding to the Transplant Assessment you want",!,"to edit. If the assessment desired does not appear, enter <RET> to continue",!,"listing additional assessments." Line Location: SEL+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+4

Name	Line Occurrences (* Changed, ! Killed)
^SRT - [#139.5]	LIST+2, DISP, DISP+1
^SRT("ADT"	SRTPASS+2

Name	Line Occurrences
LIST	SRTPASS+2
SEL	LIST+1

Name	Field # of Occurrence
>> CNT	SRTPASS+2, LIST+1, LIST+2*, DISP+4, CASE+2
>> DFN	SRTPASS+2
DTIME	SEL+1, SEL+4
>> I	SRTPASS+2*
IOF	LIST+1, SEL+2
IOSL	LIST+1
>> SR("RA"	DISP+1*, DISP+2
>> SRASS	SRTPASS+2, LIST+1, LIST+2, DISP, DISP+1, CASE+2
>> SRBACK	LIST+1, SEL+4
>> SRCASE(	CASE+2*, SEL+3, SEL+4, SEL+5
>> SRCASE(1	LIST+1
>> SRDT	SRTPASS+2, LIST+1, CASE+2
>> SROPER	DISP, DISP+2, DISP+3*, CASE
>> SRSDATE	LIST+2*, CASE
>> SRSOUT	SRTPASS+2, LIST+1, SEL+1, SEL+4
>> SRTPP	SRTPASS+2, LIST+1, DISP+4, CASE+1, SEL+5*
>> STATUS	DISP+1*, DISP+3
>> VA("PID"	LIST+1, SEL+2
>> VADM(1	LIST+1, SEL+2
>> X	SEL+1, SEL+2, SEL+3, SEL+4, SEL+5
>> Z	DISP+1*