Routine: SROPS1

Package

Total

Call Graph

^DIC ^DIR

DEM^VADPT

Package	Total	Caller Graph
Surgery	6	SRCODING EDIT SRCODING NURSE REPORT SRCODING OP REPORT SRCODING UPDATE/VERIFY MENU SROCD SROVER2

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SROPS1+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: ADT+2
Function Call: WRITE	Prompt: !!,"There are no cases entered for "_VADM(1)_".",!!,"Press RETURN to continue " Line Location: ADT+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: OPT+0
Function Call: WRITE	Prompt: !!,"Enter the number of the desired operation." Line Location: OPT+1
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !,CNT_". " Line Location: LIST+6
Function Call: WRITE	Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3) Line Location: CASE+0
Function Call: WRITE	Prompt: ?14,SROPS(1) Line Location: CASE+4
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+4
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+4
Function Call: WRITE	Prompt: !,?14,SROPS(4) Condition for execution: $D(SROPS(4)) Line Location: CASE+4
Function Call: WRITE	Prompt: ! Line Location: CASE+5
Function Call: WRITE	Prompt: ! Line Location: SEL+1
Function Call: WRITE	Prompt: ! Line Location: SEL+3
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID") Line Location: HDR+1
Function Call: WRITE	Prompt: " * DIED "_$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)_" *" Condition for execution: X Line Location: HDR+1
Function Call: WRITE	Prompt: ! Line Location: HDR+1
Routine Call	DIC Line Location: SROPS1+6
Routine Call	DIR Line Location: SEL+1 SEL+4

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	LIST+1, LIST+2, LIST+3, LIST+4, LIST+6, CASE+1, LOCK+1, OTHER+1, OTHER+2
^SRF("ADT"	ADT

Name	Field # of Occurrence
^(37	LIST+4

Name	Field # of Occurrence
>> CNT	ADT, LIST+6, CASE+5
>> DFN	SROPS1+7*, ADT
DIC	SROPS1+6!*
DIC("A"	SROPS1+6*
DIC(0	SROPS1+6*
DIR	SEL+1!, SEL+4!
DIR("A"	SEL+1, SEL+3, SEL+4*
DIR(0	SEL+1*
DTIME	ADT+2, OPT
>> DTOUT	SEL+1, SEL+4
>> DUOUT	SEL+1, SEL+4
>> I	CASE+1*
IOF	END, HDR+1
IOSL	LIST+5
>> LOOP	LOOP+1*
>> M	CASE+3*, LOOP+1
MM	CASE+3!, LOOP+1*
MMM	CASE+3!, LOOP+1*
>> SRBACK	ADT, ADT+1, LIST+5, SEL+4*
>> SRCASE(	OPT+1, OPT+2, CASE+5*, SEL+3, SEL+4, SEL+5
>> SRCASE(1	ADT+2
>> SRDT	ADT*, CASE+5
>> SRLONG	OTHER+1*, OTHER+2
>> SRNON	LIST+1*, LIST+2, LIST+3, CASE+2, CASE+3
>> SROP	ADT*, LIST+1, LIST+2, LIST+3, LIST+4, LIST+6, CASE+1, CASE+5, OTHER+1, OTHER+2
>> SROPER	CASE+1, CASE+2, CASE+3, LOCK+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	CASE+3!
SROPS(	LOOP+1*
SROPS(1	CASE+3*, CASE+4
SROPS(2	CASE+4
SROPS(3	CASE+4
SROPS(4	CASE+4
>> SROTHER	CASE+1, OTHER+1, OTHER+2
>> SRSDATE	LIST+6*, CASE
>> SRSOUT	SROPS1+6, ADT, OPT, LIST+5, SEL+1, SEL+4
SRTN	ADT, ADT+1, OPT+2, END!, LIST+5, SEL+5, LOCK+1
>> VA("PID"	HDR+1
>> VADM(1	ADT+2, HDR+1
>> VADM(6	HDR+1
>> X	ADT+2, OPT, OPT+1, OPT+2, SEL+2, SEL+3, SEL+4, SEL+5, HDR+1*
>> Y	SROPS1+6, SROPS1+7

Information