Routine: SRONEW

Package	Total	Call Graph
Surgery	14	^SRCUSS RISK^SROAUTL3 ^SROBLOD ^SROERR ^SROP ^SROPCE1 ^SROPROC ($$LOCK,UNLOCK)^SROUTL EN2^SROVAR KEY^SROXPR ^SROXRET $$CHKS^SRSCOR ^SRSKILL CC^SRSREQ
VA Fileman	6	^%DT ^DIC FILE^DICN (,WP)^DIE ^DIK ^DIR
Kernel	1	T0^%ZOSV

Package	Total	Caller Graph
Surgery	2	SROALNO SROP

Entry Points

Name	Comments	DBIA/ICR reference
CASE	; create case in SURGERY file
RT	;start RT logging
END
DOC
UPDATE	; update case in SURGERY file
DEAD
OPD	; Principal Preoperative Diagnosis
DEL
ASURG	; attending surgeon
DIE
DATE
CONT	; continue new entry ?
CON	; check for concurrent case
SPEC
OP

External References

Name	Field # of Occurrence
^%DT	DATE
T0^%ZOSV	RT+1
^DIC	DOC, SPEC
FILE^DICN	CASE+1
^DIE	CASE+3, UPDATE+1, UPDATE+4, UPDATE+5, DIE, DIE+1, DIE+7, DIE+8
WP^DIE	UPDATE+2
^DIK	DEL
^DIR	DEAD+3, OPD+1, ASURG+1
^SRCUSS	DIE+3
RISK^SROAUTL3	DIE+3
^SROBLOD	DIE
^SROERR	DIE+9
^SROP	DEAD
^SROPCE1	DIE+3
^SROPROC	OP
$$LOCK^SROUTL	CASE+1
UNLOCK^SROUTL	DIE+9
EN2^SROVAR	DIE+1
KEY^SROXPR	DOC+3
^SROXRET	UPDATE+6
$$CHKS^SRSCOR	DIE+2, DIE+4
^SRSKILL	DEAD, END
CC^SRSREQ	CON+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")_" * Died "_SRDEATH_" *" Line Location: DEAD+1
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"When entering a new surgery case, a date MUST be entered. If you do not",!,"know the date of operation, enter this patient on the Waiting List." Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"A Principal Preoperative Diagnosis must be entered",!,"when creating a new case. Enter '^' to exit.",! Line Location: OPD+2
Function Call: WRITE	Prompt: !,"The Principal Preoperative Diagnosis cannot contain a semicolon (;).",!,"Please re-enter the Diagnosis, using commas in place of the semicolons." Line Location: OPD+3
Function Call: WRITE	Prompt: !!,"The information entered into the Principal Preoperative Diagnosis field",!,"has been transferred into the Indications for Operation field.",!,"The Indications for Operation field can be updated later if necessary.",! Line Location: OPD+5
Function Call: WRITE	Prompt: ! Line Location: DOC+0
Function Call: WRITE	Prompt: !!,"A Surgeon must be entered when creating a case. Enter '^' to exit.",! Line Location: DOC+1
Function Call: WRITE	Prompt: !!,"The person you selected does not have the appropriate keys necessary to be",!,"entered as a surgeon. Please make another selection.",! Line Location: DOC+3
Function Call: WRITE	Prompt: !!,"An Attending Surgeon must be entered when creating a case. Enter '^' to exit.",! Line Location: ASURG+2
Function Call: WRITE	Prompt: ! Line Location: SPEC+0
Function Call: WRITE	Prompt: !!,"To create a surgical case, a Surgical Specialty MUST be selected. Enter '^'",!,"to exit.",! Line Location: SPEC+1
Function Call: WRITE	Prompt: ! Line Location: UPDATE+4
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: CONT+1
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to re-enter a date and continue creating a new",!,"case, or 'NO' to leave this option." Line Location: CONT+2
Routine Call	DIE Line Location: CASE+3 UPDATE+1 UPDATE+4 UPDATE+5 DIE DIE+1 DIE+7 DIE+8
Routine Call	DIC Line Location: DOC SPEC
Routine Call	DIR Line Location: DEAD+3 OPD+1 ASURG+1
Routine Call	DIE Line Location: UPDATE+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	CASE+2, UPDATE+6, DIE+6, CON+2
^SRF("AC"	CON+1
^TMP("CSLSUR1"	DIE+4*

Label References

Name	Line Occurrences
ASURG	ASURG+2
CON	DATE+3
CONT	DATE+1, CONT+2
DATE	DATE+1
DEL	CASE+1, ASURG+1, SPEC
DOC	DOC+1, DOC+3
END	DATE+1, DATE+2, DATE+3, OP, OPD+1, DOC
OPD	OPD+2, OPD+3
RT	DIE+1
SPEC	SPEC+1

Naked Globals

Name	Field # of Occurrence
^(	CON+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE!*
%DT("A"	DATE*
>> BLOOD	DIE
>> CROSSM	DIE
DA	DOC+2, DOC+3!, CASE+1!, CASE+3, UPDATE+1, UPDATE+4, UPDATE+5!, DIE!, DIE+1, DIE+3 , DIE+7, DIE+8, DEL*
DD	CASE+1!
>> DFN	DATE+3, CASE+1
DIC	DOC, DOC+3!, CASE+1!, SPEC!*
DIC("A"	DOC!, SPEC
DIC("S"	SPEC*
DIC(0	DOC, CASE+1, SPEC*
DIE	CASE+3!, UPDATE+1, UPDATE+4, UPDATE+5, DIE!, DIE+1, DIE+3, DIE+7, DIE+8*
>> DIK	DEL*
DINUM	CASE+1!
DIR	DEAD+2!, DEAD+3!, OPD+1!, ASURG+1!
DIR("A"	DEAD+2, DEAD+3, OPD+1, ASURG+1
DIR("B"	DEAD+3*
DIR(0	DEAD+3, OPD+1, ASURG+1*
DO	CASE+1!
DR	CASE+3!, UPDATE+1!, UPDATE+4!, UPDATE+5!, DIE!, DIE+1, DIE+3!, DIE+7, DIE+8*
DTIME	CONT+1
>> DTOUT	DEAD+4, OPD+1, DOC, ASURG+1, SPEC
>> DUOUT	DEAD+4
IOF	DEAD+1, DEAD+4
>> RESTRICT	DOC+3*
>> SPD	DIE+2*, DIE+4
>> SRATTND	ASURG+3*, UPDATE+1
SRCTN	DATE+3!, DIE+5, DIE+6, DIE+7, DIE+8, CON+3
SRCTN(	DIE+6*, DIE+7
SRCTN(10	DIE+6*, DIE+7
SRCTN(11	DIE+6*, DIE+7
>> SRDEATH	DEAD+1*, DEAD+2
>> SRDT	CON+1*
SROK	DOC+3!
>> SRPRIN	OP+1*, CASE+3
>> SRSC1	DATE+3*
>> SRSCC	DATE+3, CON+1, CON+2
>> SRSCON	CON+1, CON+2, CON+3*
>> SRSDATE	DATE+2*, CASE+3, CON+1
SRSDOC	DOC, DOC+2, DOC+3!, CASE+3
>> SRSDPT	DATE+3*, CON+2
>> SRSITE("DIV"	CASE+2, UPDATE+6
>> SRSOP	OP+1
>> SRSOPD	OPD+4*, UPDATE+1, UPDATE+2
>> SRSOPD(1	UPDATE+2*
>> SRSOUT	DEAD, DEAD+4, OP, OPD+1, DOC, ASURG+1, SPEC
>> SRSS	SPEC+2*, UPDATE+1
SRTN	CASE+1!*, CASE+2, CASE+3, UPDATE+1, UPDATE+2, UPDATE+4, UPDATE+5, UPDATE+6, DIE, DIE+1 , DIE+2, DIE+3, DIE+4, DIE+7, DIE+8, DIE+9, DEL, END!
>> SRYN	DATE+1, CONT+1, CONT+2
>> ST	DIE+1*
>> VA("PID"	DEAD+1
>> VADM(1	DEAD+1, DEAD+5
>> VADM(6	DEAD
>> X	DEAD, DEAD+1, OPD+1, OPD+2, OPD+3, DOC, DOC+1, CASE+1, ASURG+1, ASURG+2 , SPEC, SPEC+1
>> XRTL	RT+1
>> XRTN	RT+1*
>> Y	DEAD+4, DATE, DATE+1, DATE+2, OPD+2, OPD+4, DOC+1, DOC+2, DOC+3*, CASE+1 , ASURG+2, ASURG+3, SPEC+1, SPEC+2

Customize PDF page

Package: Surgery

Routine: SRONEW

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: