Routine: LROSPLG

Information

LROSPLG ;B'HAM ISC/ADM - MOVE SP DATA FROM SURGICAL RECORD ;4/12/94 08:54

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checking surgical record for this patient...",! Line Location: LROSPLG+5
Function Call: WRITE	Prompt: !,"No operations on record in the past 7 days for this patient.",! Line Location: LROSPLG+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: LROSPLG+8 OPT+2

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

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