Routine: SRONON

Information

SRONON ;B'HAM ISC/ADM - NON-O.R. PROCEDURE REPORT ; [ 02/18/04 9:55 AM ]

Package	Total	Call Graph
Surgery	5	PRNT^SROESPR $$STATUS^SROESUTL SEL^SROPER ^SROVAR ^SRSKILL
VA Fileman	3	^DIC D^DIQ ^DIR
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	2	SR NON-OR REPORT SROVER2

Name	Comments	DBIA/ICR reference
NON
CODE	; entry point from coding menu
END
LIST	; list case
LAST
SEL
LOOP	; break procedure if greater than 55 characters
DISPLY

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," * * A Procedure Report (Non-OR) will not be created for this procedure. * *" Line Location: DISPLY+2
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: @IOF,!,"Non-O.R. Procedures for "_SRNM_" ("_VA("PID")_")" Line Location: NON+2
Function Call: WRITE	Prompt: !," (DIED ON "_Y_")" Line Location: NON+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: !!,"Enter the number corresponding to the procedure for which you want to print",!,"a report." Line Location: SEL+1
Function Call: WRITE	Prompt: @IOF,!,?1,"NON-O.R. PROCEDURES FOR "_VADM(1)_" ("_VA("PID")_")",! Line Location: LIST+1
Function Call: WRITE	Prompt: !,CNT_".",?4,SRSDATE,?25,SROPS(1) Line Location: LIST+5
Function Call: WRITE	Prompt: !,?25,SROPS(2) Line Location: LIST+5
Function Call: WRITE	Prompt: !,?25,SROPS(2) Line Location: LIST+5
Function Call: WRITE	Prompt: !,?25,SROPS(2) Line Location: LIST+5
Function Call: WRITE	Prompt: ! Line Location: LIST+6
Function Call: WRITE	Prompt: ! Line Location: LAST+0
Routine Call	DIC Line Location: NON
Routine Call	DIR Line Location: LAST

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	NON+2
^SRF - [#130]	SRONON+11, DISPLY, DISPLY+1, LIST+2, CODE+3
^SRF("ANOR"	NON+3

Name	Line Occurrences
DISPLY	SRONON+13, CODE+5
END	SRONON+7, SRONON+8, SRONON+13, NON, SEL, CODE+5
LAST	DISPLY+1
LIST	NON+3
LOOP	LIST+3
NON	SRONON+8
SEL	SEL+1

Name	Field # of Occurrence
^(	NON+2

Name	Field # of Occurrence
>> CNT	NON+3, LIST+1, LIST+2*, LIST+5
>> DFN	NON+1*, NON+2, NON+3
DIC	NON!*
DIC("A"	NON*
DIC(0	NON*
DIR	LAST!
DIR(0	LAST*
DTIME	SEL
>> I	NON+3*
IOF	END, NON+2, LIST+1
IOSL	LIST+1
>> LOOP	LOOP+1*
>> M	LIST+3*, LOOP+1
MM	LIST+3!, LOOP+1*
MMM	LIST+3!, LOOP+1*
>> SRBACK	LIST+1*
>> SRCASE(	SEL+1, SEL+2, LIST+2*
>> SRCASE(1	LIST+1
>> SRDT	LIST+1*
SRDTITL	SRONON+9~, SRONON+10, DISPLY, CODE+1~, CODE+2
SREXP	SRONON+9~, DISPLY+1*, DISPLY+2, CODE+1~
>> SRNM	NON+1*, NON+2
>> SROP	NON+3, LIST+1, LIST+2
>> SROPER	LIST+2, LIST+3, LOOP+1*
SROPS	LIST+3!
SROPS(	LOOP+1*
SROPS(1	LIST+3*, LIST+5
SROPS(2	LIST+5
SROPS(3	LIST+5
SROPS(4	LIST+5
>> SRSDATE	LIST+2, LIST+4, LIST+5
SRSINED	SRONON+9~, SRONON+11, SRONON+12, DISPLY, DISPLY+1, CODE+1~, CODE+3, CODE+4
SRSITE	SRONON+7, END+1!
SRSITE("KILL"	SRONON+7*, END+1
>> SRSOUT	NON*, LIST+1
SRSTAT	SRONON+9~, SRONON+12, CODE+1~, CODE+4
SRTIU	SRONON+9~, SRONON+11, SRONON+12, DISPLY, CODE+1~, CODE+3*, CODE+4
SRTN	SRONON+8, SRONON+11, DISPLY, DISPLY+1, END+2!, SEL+2*, LIST+1, CODE+3
SRTN("KILL"	SRONON+8*, END+2
>> VA("PID"	NON+2, LIST+1
>> VADM(1	NON+1, LIST+1
VAIN	END+1!
VAINDT	END+1!
>> X	SEL*, SEL+1, SEL+2
>> Y	NON, NON+1, NON+2, LIST+4
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTSTOP	END