Routine: SROPS

Information

SROPS ;B'HAM ISC/MAM - SELECT CASE ; [ 07/8/03 12:10 PM ]

Package	Total	Caller Graph
Surgery	30	SR BLOOD PRODUCT VERIFICATION SROABRT SROACOD SROANES SROANES MED SROANES-D SROANR SROARET SROARPT SROCMPS SROCOMP SROMEN-ANES SROMEN-ANES TECH SROMEN-OP SROMEN-OPINFO SROMEN-OUT SROMEN-PACU SROMEN-POST SROMEN-REFER SROMEN-REST SROMEN-STAFF SROMEN-START SROMEN-VERF SROMENU SRONIN SRONRPT SROP SROPRPT SROTRPT SROVER
IFCAP	1	PRCPCSOR
Kernel	1	^DIC(19

Name	Comments	DBIA/ICR reference
STL
ADT
OPT
FUTURE	; is this a future case? if so, OK to proceed?
LIST	; list cases
CASE
LOCK	; case locked?
OTHER	; other operations
LOOP	; break procedure
END
HDR	; print heading

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SROPS+2
Function Call: READ	Variable: X Timeout: DTIME 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: WRITE	Prompt: !,CNT,". ENTER NEW SURGICAL CASE" Line Location: ADT+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: OPT+0
Function Call: WRITE	Prompt: !,?1 Line Location: FUTURE+3
Function Call: WRITE	Prompt: !,$C(7) Line Location: FUTURE+3
Function Call: WRITE	Prompt: !,CNT_". " Line Location: LIST+7
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
Function Call: WRITE	Prompt: ! Line Location: CASE+4
Function Call: WRITE	Prompt: @IOF Line Location: END+0
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: SROPS+2
Routine Call	DIR Line Location: FUTURE+4

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

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