Routine: SROSPLG

Package

Total

Call Graph

(C,NOW)^%DTC ^DIR

DEM^VADPT

Package	Total	Caller Graph
Lab Service	2	LRAPLG LRAPLG1

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checking surgical record for this patient...",! Line Location: SROSPLG+5
Function Call: WRITE	Prompt: !,"No operations on record in the past 7 days for this patient.",! Line Location: SROSPLG+7
Function Call: WRITE	Prompt: ! Line Location: OPT+1
Function Call: WRITE	Prompt: !!,"No operation selected.",! Line Location: NOOP+0
Function Call: WRITE	Prompt: !,CNT_". " Line Location: LIST+5
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+3
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?14,SROPS(4) Condition for execution: $D(SROPS(4)) Line Location: CASE+3
Routine Call	DIR Line Location: SROSPLG+8 OPT+2

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

Name	Field # of Occurrence
%	SROSPLG+4, END!
CNT	SROSPLG+6, SROSPLG+7, SROSPLG+8, SROSPLG+9, OPT+1, OPT+3, END!, LIST+5*, CASE+4
>> DFN	SROSPLG+3*, SROSPLG+6
DIR	SROSPLG+8!, OPT!, END!
DIR("?"	OPT*
DIR("A"	SROSPLG+8, OPT+1
DIR(0	SROSPLG+8, OPT+1
DR	END!
DT	SROSPLG+4
>> DTOUT	SROSPLG+8, OPT+2
>> DUOUT	SROSPLG+8, OPT+2
I	END!, CASE+1*
J	END!
K	END!
LOOP	END!, LOOP+1*
>> LRDFN	SROSPLG+2, SROSPLG+3
M	END!, CASE+2*, LOOP+1
MM	END!, CASE+2!, LOOP+1*
MMM	END!, CASE+2!, LOOP+1*
>> PNM	SROSPLG+3*
SR	END!
SRABORT	END!
SRCASE	END!
SRCASE(	OPT+3, CASE+4*
SRCASE(1	SROSPLG+9
SRD	END!
SRDOC	DOC*, END!
SRDT	SROSPLG+4, SROSPLG+6, END!, CASE+4
SREND	SROSPLG+4*, SROSPLG+6, END!
SRJ	END!
SRK	END!
SRLONG	END!, OTHER+1*, OTHER+2
SRN	END!
SROP	SROSPLG+6, DISP, END!, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, CASE+1, CASE+2 , CASE+4, OTHER+1, OTHER+2
SROPER	END!, CASE+1, CASE+2, OTHER+1, OTHER+3, LOOP+1
SROPERS	END!, OTHER+1, OTHER+2, OTHER+3
SROPS	END!, CASE+2!
SROPS(	LOOP+1*
SROPS(1	CASE+2*, CASE+3
SROPS(2	CASE+3
SROPS(3	CASE+3
SROPS(4	CASE+3
SROTHER	END!, CASE+1, OTHER+1, OTHER+2
SRSCAN	END!, LIST+1*!, LIST+2, LIST+3
SRSDATE	DISP, END!, LIST+5, CASE
SRSTAT	END!
SRSTATUS	END!
SRTN	SROSPLG+6, SROSPLG+9, OPT+3, NOOP, DOC, DISP, END!
>> SSN	SROSPLG+3*
VA	END!
VA("PID"	SROSPLG+3
VADM	END!
VADM(1	SROSPLG+3
VAERR	END!
X	SROSPLG+4, END!
>> X1	SROSPLG+4*
>> X2	SROSPLG+4*
>> Y	SROSPLG+8, SROSPLG+9, OPT+3

Information

Name	Comments	DBIA/ICR reference
OPT
DISP		ICR #893 Status: Active Usage: Private
END
DOC
LIST	; list cases
CASE
OTHER	; other operations
NOOP
LOOP	; break procedures