Routine: SROTHER

Information

SROTHER ;BIR/MAM - OTHER PROCEDURES ;05/14/99 12:14 PM

Package	Total	Call Graph
Surgery	3	(,HDR)^SROAUTL SSOTH^SROCPT ^SRSKILL
VA Fileman	3	FILE^DICN ^DIE ^DIR
DRG Grouper	1	$$CPT^ICPTCOD

Package	Total	Caller Graph
Surgery	2	SRO1L1 SROAOP

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROTHER+2
Function Call: WRITE	Prompt: @IOF,!!,"A surgical case must be selected prior to using this option.",!!,"Press RETURN to continue " Line Location: SROTHER+2
Function Call: WRITE	Prompt: !!,SRLINE Line Location: START+0
Function Call: WRITE	Prompt: !!,SRLINE Line Location: START+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: OPT+0
Function Call: WRITE	Prompt: !!,"Select the number corresponding to the procedure you want to edit, or 'NEW' to",!,"enter an additional operative procedure." Line Location: OPT+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+1
Function Call: WRITE	Prompt: !!,"Enter the number corresponding to the procedure you want to edit, or RETURN",!,"to continue listing procedures." Line Location: SEL+3
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' to add another operative procedure, or 'NO' to return to the",!,"previous screen." Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: NEW+0
Routine Call	DIE Line Location: EDIT+2 NEW+3
Routine Call	DIR Line Location: NEW

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROTHER+3, START, LIST+1, NEW+1*

Name	Field # of Occurrence
>> CNT	START, START+3, START+4, OPT, LIST+3, LIST+4, SEL+1, SEL+2
>> CPT	LIST+1, LIST+2, LIST+3
DA	EDIT+1, NEW!, NEW+2!, NEW+3
DA(1	EDIT+1, NEW+2, NEW+3*
DD	NEW+2!
DIC	NEW+2!*
DIC(0	NEW+2*
DIE	EDIT+1, EDIT+2!, NEW+3!
DINUM	NEW+2!
DIR	NEW!
DIR("A"	NEW*
DIR(0	NEW*
DO	NEW+2!
DR	EDIT+1, EDIT+2!, NEW+3!
DTIME	SROTHER+2, OPT, END, SEL+1, ASK
>> DTOUT	NEW
>> DUOUT	NEW
>> I	SROTHER+3*
IOF	SROTHER+2, END+1
>> OTH	START*, LIST+1, LIST+3
OTHER	SEL+2!
OTHER(	OPT+2, OPT+3, LIST+3*, LIST+4, SEL+3, SEL+4
>> SR(0	SROTHER+3*
>> SRDA	LIST+1*
>> SRDATE	SROTHER+3*
>> SRLINE	SROTHER+3*, START, START+3
SROTHER	START!, START+2, OPT+3, SEL+4, EDIT+1
>> SRPAGE	HDR+1*
>> SRSOUT	SROTHER+2, START, START+1, START+4, END, SEL+1, ASK+3
>> SRSUPCPT	LIST+4, EDIT+1, NEW+3
>> SRTN	SROTHER+2, SROTHER+3, START, LIST+1, EDIT+1, NEW+1, NEW+2, NEW+3
>> SRYN	ASK, ASK+1, ASK+2*, ASK+3
>> X	SROTHER+2, OPT, OPT+1, OPT+2, OPT+3, END, LIST+1, LIST+3, SEL+1, SEL+2 , SEL+3, SEL+4, NEW+2
>> Y	SROTHER+3, LIST+1, NEW, NEW+2, NEW+3