Routine: SRSCONR

Package	Total	Call Graph
Surgery	7	DEL^SROERR ($$LOCK,UNLOCK)^SROUTL ^SRSKILL LATE^SRSREQ LFTOVR^SRSREQUT CON^SRSRQST ^SRSRQST1
VA Fileman	5	^%DT ^DIC ^DIK D^DIQ ^DIR
Registration	1	DEM^VADPT

Package

Total

Call Graph

Surgery

DEL^SROERR ($$LOCK,UNLOCK)^SROUTL ^SRSKILL LATE^SRSREQ LFTOVR^SRSREQUT CON^SRSRQST ^SRSRQST1

VA Fileman

^%DT ^DIC ^DIK D^DIQ ^DIR

Registration

DEM^VADPT

Package	Total	Caller Graph
Surgery	3	SROERR SRSMREQ SRSREQCC

Package

Total

Caller Graph

Surgery

SROERR SRSMREQ SRSREQCC

External References

Name	Field # of Occurrence
^%DT	DATE
^DIC	SRSCONR+3
^DIK	ASK+5
D^DIQ	DEAD+1, DATE+2
^DIR	REQ+1, END
DEL^SROERR	OERR+1
$$LOCK^SROUTL	DISP+3, REQ+3
UNLOCK^SROUTL	DISP+3, REQ+3
^SRSKILL	END+1
LATE^SRSREQ	DATE+3
LFTOVR^SRSREQUT	DEAD+2
CON^SRSRQST	DATE+4
^SRSRQST1	DISP+3, REQ+3
DEM^VADPT	DEAD

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: SRSCONR+3
Function Call: WRITE	Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",!! Line Location: DEAD+1
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"Requests cannot be made for past dates. Please enter a different date.",! Line Location: DATE+1
Function Call: WRITE	Prompt: @IOF,!,"The following requests have been entered." Line Location: DISP+0
Function Call: WRITE	Prompt: !!!!,"1. Enter Request Information for Case #"_SRSCON(1),!,"2. Enter Request Information for Case #"_SRSCON(2),! Line Location: DISP+4
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !!,SRSCON_". ",?4,"Case # "_SRSCON(SRSCON),?40,SRSDT,!,?4,"Surgeon: "_SRSCON(SRSCON,"DOC"),?40,SRSCON(SRSCON,"SS"),!,?4,"Procedure: ",?16,SROPS(1) Line Location: LIST+2
Function Call: WRITE	Prompt: !,?16,SROPS(2) Line Location: LIST+2
Function Call: WRITE	Prompt: !,?16,SROPS(2) Line Location: LIST+2
Function Call: WRITE	Prompt: !!,"Since you were unable to complete the information for the concurrent case, you",!,"may want to delete the first request and re-enter both at another time." Line Location: DEL+1
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to delete Case "_SRSCON(1)_", or 'NO' to continue entering information",!,"for this request." Line Location: ASK+2
Function Call: WRITE	Prompt: !!," Deleting Case "_SRSCON(1)_" ..." Line Location: ASK+5
Routine Call	DIC Line Location: SRSCONR+3
Routine Call	DIR Line Location: REQ+1 END

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

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DEAD+1

Name	Line Occurrences
ASK	ASK+2
DATE	DATE+1, DATE+3
DEAD	SRSCONR+2
DEL	R2
DISP	REQ+2
END	SRSCONR+3, DEAD+1, DEAD+2, DATE, DATE+5, R2, DISP+2, REQ+1
LIST	DISP+1
LOOP	LIST+1
OERR	ASK+4

Name	Field # of Occurrence
^(	DEAD+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE!*
%DT("A"	DATE*
>> DA	REQ+2, ASK+5
>> DFN	SRSCONR+2, SRSCONR+4
DIC	SRSCONR+3!*
DIC("A"	SRSCONR+3*
DIC(0	SRSCONR+3*
>> DIK	ASK+5*
DIR	REQ!, END!
DIR("?"	REQ*
DIR("A"	REQ+1, END
DIR(0	REQ+1, END
DT	DATE+1
DTIME	ASK
>> DUOUT	REQ+1
>> I	DISP+1*
IOF	SRSCONR+3, DISP, END+1
>> LOOP	LOOP+1*
>> M	LIST+1*, LOOP+1
MM	LIST+1!, LOOP+1*
MMM	LIST+1!, LOOP+1*
>> OPT	DATE*
>> ORVP	SRSCONR+2
POP	DISP!
>> SRCC	SRSCONR+2*
SRDUOUT	DATE!
>> SREQDT	DATE+2*
SRLATE	DATE+3!
>> SRNM	DEAD*, DEAD+1
>> SROPER	LIST+1, LOOP+1
SROPS	LIST+1!
SROPS(	LOOP+1*
SROPS(1	LIST+1*, LIST+2
SROPS(2	LIST+2
SROPS(3	LIST+2
>> SRSCON	DATE, DATE+4, DATE+5, R2, DISP+1, DISP+2, REQ+2*, LIST+1, LIST+2
>> SRSCON(	DISP+1, REQ+2, LIST+1, LIST+2
>> SRSCON(1	DISP+2, DISP+4, ASK, ASK+2, ASK+5, OERR+1
>> SRSCON(2	R2!, DISP+2, DISP+4
>> SRSDATE	DATE+2*
>> SRSDAY	DATE+2*
>> SRSDPT	SRSCONR+2, SRSCONR+4, DEAD+1
>> SRSDT	DATE+2*, LIST+2
>> SRSOP	DATE+2*
>> SRSOTH	DEAD+2*
>> SRSOUT	SRSCONR+2, SRSCONR+3, DEAD+2, DATE, DATE+4, DATE+5, R2, REQ+1, END, ASK+3* , ASK+5*
>> SRSSN	DEAD*
>> SRSST	DATE+2*
SRTN	DATE+4!, DISP+2, DISP+3, REQ+2, REQ+3, END+1!, ASK+2, ASK+5!, OERR+1~*
>> SRWL	SRSCONR+2*
>> SRYN	ASK, ASK+1, ASK+2, ASK+3
>> ST	DATE+2*
>> VA("PID"	DEAD
>> VADM(1	DEAD
>> Y	SRSCONR+3, SRSCONR+4, DEAD+1*, DATE, DATE+1, DATE+2, REQ+1, REQ+2

Customize PDF page

Package: Surgery

Routine: SRSCONR

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DISP
END
R2
OERR	; delete from ORDER file (100)
REQ
LIST	; list stub info
DEAD
ASK
DEL	; delete first request ?
DATE
LOOP	; break procedure if greater than 60 characters