Routine: SRSCHDC

Information

SRSCHDC ;B'HAM ISC/MAM - SCHEDULE CONCURRENT CASES ; Feb 25, 2002@07:47

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Surgery	8	DEL^SROERR ($$LOCK,UNLOCK)^SROUTL ^SRSCG SURG^SRSCHD ^SRSCHOR CON^SRSCHUN ^SRSCHUN1 ^SRSKILL
VA FileMan	7	^%DT H^%DTC ^DIC ^DIK D^DIQ EN^DIQ1 ^DIR
Registration	1	DEM^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Surgery	2	SRSCHCC SRSCHDC

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	DATE
H^%DTC	DATE+2
^DIC	SRSCHDC+2
^DIK	ASK+6
D^DIQ	DEAD, DATE+6
EN^DIQ1	DATE+4
^DIR	REQ+1, END
DEL^SROERR	OERR+1
$$LOCK^SROUTL	DISP+2, REQ+2
UNLOCK^SROUTL	DISP+2, REQ+2
^SRSCG	OR+4, ASK+4
SURG^SRSCHD	OR+1
^SRSCHOR	OR+2
CON^SRSCHUN	OR+3
^SRSCHUN1	DISP+2, REQ+2
^SRSKILL	END+1
DEM^VADPT	SRSCHDC+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: SRSCHDC+2
Function Call: WRITE	Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",!! Line Location: DEAD+0
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"Cases cannot be scheduled for past dates. Please enter a different date.",! Line Location: DATE+1
Function Call: WRITE	Prompt: !!,"Scheduling not allowed for "_$S(SRDAY=1:"SUNDAY",SRDAY=2:"MONDAY",SRDAY=3:"TUESDAY",SRDAY=4:"WEDNESDAY",SRDAY=5:"THURSDAY",SRDAY=6:"FRIDAY",1:"SATURDAY")_" !!",!! Line Location: DATE+3
Function Call: WRITE	Prompt: !!,"Scheduling not allowed for "_$G(SRY(40.5,SRSDATE,2,"E"))_" !!",!! Line Location: DATE+5
Function Call: WRITE	Prompt: !!,"No surgical case has been scheduled.",! Line Location: OR+2
Function Call: WRITE	Prompt: !!,"No surgical case has been scheduled.",! Line Location: OR+4
Function Call: WRITE	Prompt: @IOF,!,"The following cases have been entered." Line Location: DISP+0
Function Call: WRITE	Prompt: !!!!,"1. Enter Information for Case #"_SRSCON(1),!,"2. Enter Information for Case #"_SRSCON(2),! Line Location: DISP+3
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !!,CON_". ",?4,"Case # "_SRSCON(CON),?40,SRSDT,!,?4,"Surgeon: "_SRSCON(CON,"DOC"),?40,SRSCON(CON,"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 case and re-enter both at another time." Line Location: DEL+1
Function Call: READ	Variable: SRYN Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to delete Case "_SRSCON(1)_", or 'NO' to continue entering information",!,"for this case." Line Location: ASK+2
Function Call: WRITE	Prompt: !!," Deleting Case "_SRSCON(1)_" ..." Line Location: ASK+6
Routine Call	DIC Line Location: SRSCHDC+2
Routine Call	DIR Line Location: REQ+1 END

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DEAD
^SRO(133 - [#133]	DATE+2, DATE+5

Label References

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

Naked Globals

Name	Field # of Occurrence
^(	DEAD

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE!*
%DT("A"	DATE*
>> %Y	DATE+2
>> CON	DISP+1*, LIST+1, LIST+2
DA	DATE+4!, REQ+2, ASK+6*
>> DFN	SRSCHDC+3*
DIC	SRSCHDC+2!, DATE+4!
DIC("A"	SRSCHDC+2*
DIC(0	SRSCHDC+2*
>> DIK	ASK+6*
DIQ	DATE+4*!
DIQ(0	DATE+4*
DIR	REQ!, END!
DIR("?"	REQ*
DIR("A"	REQ+1, END
DIR(0	REQ+1, END
DR	DATE+4*!
DT	DATE+1
DTIME	ASK
>> DUOUT	REQ+1
>> I	DISP+1*
IOF	SRSCHDC+2, DISP, END+1
>> LOOP	LOOP+1*
>> M	LIST+1*, LOOP+1
MM	LIST+1!, LOOP+1*
MMM	LIST+1!, LOOP+1*
>> SRCC	SRSCHDC+2*
>> SRDAY	DATE+2*, DATE+3
>> SRDL	DATE+2*, DATE+3
SRDUOUT	DATE!
>> SREQDT	DATE+6*
SRLCK	DISP+2~, REQ+2~
>> SRLOCK	DISP+2
>> SRNM	SRSCHDC+3*, DEAD
>> 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	OR+3, OR+4, OR+5, DISP+2, REQ+2*
>> SRSCON(	DISP+1, REQ+2, LIST+1, LIST+2
>> SRSCON(1	DISP+2, DISP+3, ASK, ASK+2, ASK+4, ASK+6, OERR+1
>> SRSCON(2	OR+5!, DISP+2, DISP+3
SRSDATE	DATE!, DATE+2*, DATE+4, DATE+5, DATE+6
>> SRSDPT	SRSCHDC+3*, DEAD
>> SRSDT	DATE+6*, LIST+2
>> SRSDT1	OR+4, ASK+4
>> SRSDT2	OR+4, ASK+4
>> SRSEDT	OR+4, ASK+4
>> SRSITE	DATE+2, DATE+5
>> SRSOR	OR+4, ASK+4
>> SRSOUT	SRSCHDC+2, DATE, OR+1, OR+2, OR+3, OR+4, OR+5, REQ+1, END, ASK+3*
>> SRSSN	SRSCHDC+3*
SRTN	OR+3!, DISP+2, REQ+2, END+1!, ASK+2, ASK+4, ASK+6!, OERR+1~*
SRTN("END"	OR+4, ASK+4
SRTN("OR"	OR+4, ASK+4
SRTN("START"	OR+4, ASK+4
SRY	DATE+4!
SRY(	DATE+5
>> SRYN	ASK, ASK+1, ASK+2, ASK+3
>> ST	DATE+6*
>> VA("PID"	SRSCHDC+3
>> VADM(1	SRSCHDC+3
>> X	DATE+2*
>> Y	SRSCHDC+2, SRSCHDC+3, DEAD, DATE, DATE+1, DATE+2, DATE+6, REQ+1, REQ+2

Customize PDF page

Package: Surgery