Routine: SRSCHC1

Information

SRSCHC1 ;B'HAM ISC/MAM - SCHEDULE CONCURRENT CASES ; [ 04/26/97 3:03 PM ]

Package	Total	Call Graph
Surgery	4	^SROERR ^SROPROC ^SROXRET ^SRSIND
VA FileMan	3	^DIC FILE^DICN ^DIE

Name	Comments	DBIA/ICR reference
OPER
CPT
SPEC
DOC
IND
HELP	; surgical specialty help message
SP

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Enter information related to the "_$S(SRSCON=1:"first",1:"second")_" concurrent case.",! Line Location: SRSCHC1+2
Function Call: WRITE	Prompt: ! Line Location: CPT+0
Function Call: WRITE	Prompt: !!,"This is an inactive code. Please make another selection.",! Line Location: CPT+0
Function Call: WRITE	Prompt: ! Line Location: SPEC+0
Function Call: WRITE	Prompt: ! Line Location: DOC+0
Function Call: WRITE	Prompt: ! Line Location: IND+0
Function Call: WRITE	Prompt: ! Line Location: IND+1
Function Call: WRITE	Prompt: ! Line Location: IND+2
Function Call: WRITE	Prompt: !!,"Other Operative Procedures by the same Surgical Specialty: ",! Line Location: IND+2
Function Call: WRITE	Prompt: !!,"The Surgical Specialty must be entered when scheduling a surgery case." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"If you do not know the surgical specialty, this entry cannot be completed." Line Location: HELP+2
Function Call: WRITE	Prompt: !,"Without entering a specialty, this case cannot be scheduled." Line Location: HELP+3
Function Call: READ	Variable: SRYN Timeout: DTIME Line Location: SP+0
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to enter a specialty and continue entering information,",!,"or 'NO' to delete this case." Line Location: SP+2
Routine Call	DIC Line Location: CPT SPEC DOC
Routine Call	DIE Line Location: DOC+4 DOC+5 DOC+6 IND IND+1 IND+2 IND+3 IND+5

FileNo	Call Tags
^SRF - [#130]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ICPT - [#81]	CPT
^SRF - [#130]	IND, IND+4*

Name	Field # of Occurrence
DA	DOC+3!, DOC+4, DOC+5, DOC+6!, IND+1, IND+2, IND+3, IND+5*
DD	DOC+3!
DIC	CPT!, SPEC!, DOC!, DOC+3!, DOC+4!
DIC("A"	CPT, SPEC, DOC*
DIC("S"	SPEC*
DIC(0	CPT, SPEC, DOC, DOC+3
DIE	DOC+3!, DOC+4!, DOC+5, DOC+6, IND, IND+1, IND+2, IND+3, IND+5
DINUM	DOC+3!
DLAYGO	DOC+3*!
DO	DOC+3!
DR	DOC+4!, DOC+5!, DOC+6!, IND, IND+1!, IND+2!, IND+3!, IND+5!
DR(2	IND+2*
DTIME	SP
>> DUOUT	DOC
IOF	SRSCHC1+2
>> SRDUOUT	IND+2*
>> SRSAVG	IND+2*
>> SRSCON	SRSCHC1+2, OPER+1, SPEC+1, DOC+2, DOC+3, IND+5, HELP+2, HELP+3
>> SRSCON(	OPER+1, SPEC+1, DOC+2, DOC+3
>> SRSCON(1	IND+5
>> SRSCON(2	IND+5
SRSCPT	CPT!*, IND+3
>> SRSDATE	DOC+4
>> SRSDFN	DOC+3
>> SRSDOC	SPEC+1, DOC+2, DOC+4
>> SRSITE("DIV"	IND+4
>> SRSOP	OPER+1, DOC+5
>> SRSOUT	OPER, SPEC, DOC, DOC+1, IND, SP+3
>> SRSS	SPEC+1*, DOC+4
SRTN	DOC+3!*, DOC+4, DOC+5, DOC+6, IND, IND+1, IND+2, IND+3, IND+4, IND+5
>> SRYN	SP, SP+1, SP+2, SP+3
>> X	DOC+3*
Y	CPT, SPEC, SPEC+1, DOC+1, DOC+2, DOC+3, IND+2!
Y(0	SPEC+1, DOC+2