Routine: SROSTAFF

Information

SROSTAFF ;B'HAM ISC/MAM - UPDATE STAFF SURGEON INFO ; 2 APR 1992 1:00 pm

Name	Comments	DBIA/ICR reference
ASK
END
K7	; update key if KERNEL 7 or greater
PREK7	; update key if KERNEL 6.5 or lower
EXISTS
KILLK7	; remove key if KERNEL 7 or greater

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: SROSTAFF+3
Function Call: READ	Variable: SRYN Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' if this person is a Staff Surgeon, or 'NO' to quit this option." Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !!,SRDOC_" is now designated as a staff surgeon." Line Location: K7+3
Function Call: WRITE	Prompt: !!,SRDOC_" is now designated as a staff surgeon." Line Location: PREK7+3
Function Call: READ	Variable: SRYN Timeout: DTIME Line Location: EXISTS+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' to remove the key used to designate this person as a staff",!,"surgeon, or 'NO' to leave this designation unchanged." Line Location: EXISTS+1
Function Call: WRITE	Prompt: !!,"Removing key designating "_SRDOC_" as a staff surgeon..." Line Location: EXISTS+5
Function Call: WRITE	Prompt: !!,"Removing key designating "_SRDOC_" as a staff surgeon..." Line Location: KILLK7+1