Routine: SROSTAFF

Package	Total	Call Graph
VA Fileman	3	^DIC FILE^DICN ^DIK
Surgery	1	^SRSKILL

Package	Total	Caller Graph
Surgery	1	SROSTAFF

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: SROSTAFF+3
Function Call: READ	Timeout: DTIME Variable: SRYN 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	Timeout: DTIME Variable: SRYN 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
Routine Call	DIC Line Location: SROSTAFF+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(19.1	PREK7+1
^DD(19.12	SROSTAFF+5
^DD(200	K7+1
^DIC(19.1 - [#19.1]	SROSTAFF+2, PREK7+1*, EXISTS+4
^VA(200 - [#200]	K7+1*
^XUSEC("SR STAFF SURGEON"	SROSTAFF+6

Name	Field # of Occurrence
DA	K7+1!, PREK7+1!, EXISTS+5, KILLK7+1!
DA(1	K7+2, PREK7+2, EXISTS+5, KILLK7+1
DIC	SROSTAFF+3!, K7+1!, K7+2, PREK7+1!, PREK7+2*
DIC("A"	SROSTAFF+3*
DIC("S"	SROSTAFF+3*
DIC(0	SROSTAFF+3, K7+2, PREK7+2*
DIK	EXISTS+5!, KILLK7+1!
>> DINUM	K7+2*
>> DLAYGO	K7+2, PREK7+2
DTIME	ASK, END, EXISTS
IOF	SROSTAFF+3, END+1
>> KEY	SROSTAFF+2*, K7+2, PREK7+1, PREK7+2, EXISTS+4, EXISTS+5, KILLK7+1
>> SRDD	SROSTAFF+5*, ASK+3, EXISTS+3
>> SRDOC	SROSTAFF+4*, K7+3, PREK7+3, EXISTS+5, KILLK7+1
SRENTRY	EXISTS+4!*, EXISTS+5
>> SRSDOC	SROSTAFF+4*, SROSTAFF+6, K7+1, K7+2, PREK7+2, EXISTS+4, KILLK7+1
>> SRSOUT	SROSTAFF+3, ASK, ASK+2, END, EXISTS, EXISTS+2*
>> SRYN	ASK, ASK+1, ASK+2, EXISTS, EXISTS+1, EXISTS+2
>> X	END, K7+2, PREK7+2, EXISTS+4
>> Y	SROSTAFF+3, SROSTAFF+4
>> Y(0	SROSTAFF+4