Routine: SROLOCK

Package	Total	Caller Graph
Surgery	8	SRO-UNLOCK SROANIN SROARPT SROMED SROMENU SRONIN SRONOP SROREST

Entry Points

Name	Comments	DBIA/ICR reference
ALL	; lock all eligible cases in entire file
END
LOCK	; queued to run nightly, locks cases that are passed the specified ; number of days for editing
LIST
UNLOCK	; unlock a case for editing
SRTN
ASK
SEL	; select patient and case
CHECK	; check to determine if a case is locked
LOOP	; break procedure if greater than 55 characters

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This case has been verified and locked. It cannot be updated unless",!,"unlocked by your chief, or someone appointed by your chief.",!!,"Press RETURN to continue " Line Location: CHECK+2
Function Call: WRITE	Prompt: !!,"This case is not locked." Line Location: UNLOCK+2
Function Call: WRITE	Prompt: !!,"Case #"_SRTN_" is now unlocked." Line Location: UNLOCK+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: END+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !!,"No cases have been scheduled for the patient chosen.",!! Line Location: SEL+2
Function Call: WRITE	Prompt: ! Line Location: SEL+3
Function Call: WRITE	Prompt: !!,"There are no locked cases for this patient." Line Location: SEL+4
Function Call: WRITE	Prompt: !,?5,SRCNT_". "_$E(DATE,4,5)_"-"_$E(DATE,6,7)_"-"_$E(DATE,2,3) Line Location: LIST+0
Function Call: WRITE	Prompt: ?22,SROPS(1) Line Location: LIST+3
Function Call: WRITE	Prompt: !,?22,SROPS(2) Condition for execution: $D(SROPS(2)) Line Location: LIST+3
Function Call: WRITE	Prompt: !,?22,SROPS(3) Condition for execution: $D(SROPS(3)) Line Location: LIST+3
Function Call: READ	Prompt: "Select Number: " Formatting: !! Timeout: DTIME Variable: Z Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter the number of the desired procedure, or '^' to quit." Line Location: ASK+1
Routine Call	DIC Line Location: SEL+1

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	CHECK+1, UNLOCK+2, UNLOCK+3, LOCK+5, SRTN, SEL+3, LIST+1, ALL+3, ALL+4
^SRF("AC"	LOCK+4, SRTN
^SRF("ADT"	SEL+2, SEL+3
^SRF("AL"	UNLOCK+3*, LOCK+5!
^SRO(133 - [#133]	LOCK+2, ALL+1, ALL+2
^XTMP(	LOCK+7!

Name	Field # of Occurrence
^("LOCK"	CHECK+1

Name	Field # of Occurrence
C	END+1!
CASE	END+1!
CNT	END+1!, SEL+1, LIST+1, LIST+3
CPT	END+1!, LIST+1*
CPT(	LIST+3*, ASK+2
DATE	END+1!, LOCK+4, SRTN, SEL+3, LIST, ALL+4*, ALL+5!
DAYS	LOCK+2, LOCK+3, ALL+2, ALL+5!
DFN	END+1!, SEL+1*, SEL+2, SEL+3
DIC	SEL+1*!
DIC(0	SEL+1*
DT	LOCK+3, ALL+2
DTIME	CHECK+2, END, ASK
>> END	LOCK+3*, LOCK+4
I	END+1!
IOF	END, SEL+1
>> L	LOCK+5, SEL+3
LOOP	END+1!, LOOP+1*
M	END+1!, LIST+2*, LOOP+1
MM	LIST+2!, LOOP+1*
MMM	LIST+2!, LOOP+1*
>> MOE	LOCK+3*
SITE	LOCK+2, ALL+2, ALL+4*, ALL+5!
SR	LOCK+2, ALL+3, ALL+4, ALL+5!
>> SRCASE	LOCK+7*
>> SRCNT	SEL+1, SEL+3, SEL+4, LIST
SRDIV	ALL+5!
SRDIV(	ALL+2*, ALL+4
>> SRI	SEL+3*
>> SRNOW	LOCK+7*
>> SRNOW1	LOCK+7*
SROLOCK	CHECK+1!, CHECK+2, CHECK+3
SROPER	END+1!, LIST+1, LIST+2, LOOP+1*
SROPS	END+1!, LIST+2!
SROPS(	LOOP+1*
SROPS(1	LIST+2*, LIST+3
SROPS(2	LIST+3
SROPS(3	LIST+3
>> SRSITE("DIV"	LOCK+2*
SRTN	CHECK+1, UNLOCK+1, UNLOCK+2, UNLOCK+3, END+1!, SRTN, SEL+3, SEL+4!, LIST+1, LIST+3 , ASK!, ASK+2!, ALL+3, ALL+4, ALL+5!
>> START	LOCK+3*, LOCK+4
X	CHECK+2, END, END+1!, LOCK+3, ALL+2, ALL+5!
X1	LOCK+3, ALL+2, ALL+5!
X2	LOCK+3, ALL+2, ALL+5!
Y	END+1!, SEL+1
Z	UNLOCK+1, END+1!, ASK, ASK+1, ASK+2