Routine: SRONEW

Package	Total	Call Graph
Surgery	17	^SRCUSS RISK^SROAUTL3 ^SROBLOD ^SROERR $$ICDSTR^SROICD ^SROP ^SROPCE1 ^SROPROC ($$LOCK,UNLOCK)^SROUTL EN2^SROVAR KEY^SROXPR ^SROXRET $$CHKS^SRSCOR $$DSMP^SRSDT ^SRSKILL CC^SRSREQ $$SPIN^SRTOVRF
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
DEAD
DATE
ODP
OP
OPD	; Principal Preoperative Diagnosis
DOC
CASE	; create case in SURGERY file
ASURG	; attending surgeon
SPEC
PCPT	; Planned Principal Procedure Code (CPT)
UPDATE	; update case in SURGERY file
DIE
DEL
END
CONT	; continue new entry ?
RT	;start RT logging
CON	; check for concurrent case
SPIN	; spinal level free-text

External References

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

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: !!,"The Desired Procedure Date MUST be entered and should be greater than or equal to date of operation. Enter '^' to exit.",! Line Location: ODP+2
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: !!,"To make an operation request, Planned Principal Procedure Code field MUST be entered. Enter '^' to exit.",! Line Location: PCPT+2
Function Call: WRITE	Prompt: ! Line Location: UPDATE+5
Function Call: READ	Variable: SRYN Timeout: DTIME 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	DIC Line Location: DOC SPEC
Routine Call	DIE Line Location: CASE+4 UPDATE+1 UPDATE+5 UPDATE+6 DIE DIE+2 DIE+8 DIE+9
Routine Call	DIE Line Location: UPDATE+3
Routine Call	DIR Line Location: DEAD+3 ODP+1 OPD+1 ASURG+1 PCPT+1 SPIN+3

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, CASE+3, UPDATE+7, DIE+7, CON+2, SPIN+5
^SRF("AC"	CON+1
^TMP("CSLSUR1"	DIE+5*

Label References

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

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+4, UPDATE+1, UPDATE+5, UPDATE+6!, DIE!, DIE+2, DIE+4 , DIE+8, DIE+9, DEL*
DD	CASE+1!
>> DFN	ODP+4, CASE+1
DIC	DOC, DOC+3!, CASE+1!, SPEC!*
DIC("A"	DOC!, SPEC!
DIC("S"	SPEC*
DIC(0	DOC, CASE+1, SPEC*
DIE	CASE+4!, UPDATE+1, UPDATE+5, UPDATE+6, DIE!, DIE+2, DIE+4, DIE+8, DIE+9*
>> DIK	DEL*
DINUM	CASE+1!
DIR	DEAD+2!, DEAD+3!, ODP+1!, OPD+1!, ASURG+1!, PCPT+1!, SPIN+3!
DIR("A"	DEAD+2, DEAD+3, ODP+1, OPD+1, ASURG+1, PCPT+1, SPIN+3*
DIR("B"	DEAD+3*
DIR(0	DEAD+3, ODP+1, OPD+1, ASURG+1, PCPT+1, SPIN+3
DO	CASE+1!
DR	CASE+4!, UPDATE+1!, UPDATE+5!, UPDATE+6!, DIE!, DIE+2, DIE+4!, DIE+8, DIE+9*
DTIME	CONT+1
>> DTOUT	DEAD+4, ODP+1, OPD+1, DOC, ASURG+1, SPEC, PCPT+1, SPIN+4
>> DUOUT	DEAD+4, SPIN+4
IOF	DEAD+1, DEAD+4
>> RESTRICT	DOC+3*
SL	SPIN+2~, SPIN+4*, SPIN+5
>> SPD	DIE+3*, DIE+5
>> SRATTND	ASURG+3*, UPDATE+1
>> SRCPT	PCPT+3*, UPDATE+1, SPIN+1
SRCTN	ODP+4!, DIE+6, DIE+7, DIE+8, DIE+9, CON+3
SRCTN(	DIE+7*, DIE+8
SRCTN(10	DIE+7*, DIE+8
SRCTN(11	DIE+7*, DIE+8
>> SRDEATH	DEAD+1*, DEAD+2
>> SRDT	CON+1*
SRICDV	DIE+1~*
SROK	DOC+3!
>> SRPRIN	OP+1*, CASE+4
>> SRSC1	ODP+4*
>> SRSCC	ODP+4, CON+1, CON+2
>> SRSCON	CON+1, CON+2, CON+3*
>> SRSDATE	DATE+2*, ODP+2, CASE+4, CON+1
SRSDOC	DOC, DOC+2, DOC+3!, CASE+4
>> SRSDPT	ODP+4*, CON+2
>> SRSITE("DIV"	CASE+2, UPDATE+7
SRSODP	ODP~, ODP+3*, CASE+4
>> SRSOP	OP+1
>> SRSOPD	OPD+4*, UPDATE+1, UPDATE+3
>> SRSOPD(1	UPDATE+3*
>> SRSOUT	DEAD, DEAD+4, ODP+1, OP, OPD+1, DOC, ASURG+1, SPEC, PCPT+1
>> SRSS	SPEC+2*, UPDATE+1
SRTN	CASE+1!*, CASE+2, CASE+3, CASE+4, UPDATE+1, UPDATE+3, UPDATE+5, UPDATE+6, UPDATE+7, DIE , DIE+1, DIE+2, DIE+3, DIE+4, DIE+5, DIE+8, DIE+9, DIE+10, DEL, END! , SPIN+5
>> SRYN	DATE+1, CONT+1, CONT+2
>> ST	DIE+2*
>> VA("PID"	DEAD+1
>> VADM(1	DEAD+1, DEAD+5
>> VADM(6	DEAD
>> X	DEAD, DEAD+1, ODP+1, ODP+2, OPD+1, OPD+2, OPD+3, DOC, DOC+1, CASE+1 , ASURG+1, ASURG+2, SPEC, SPEC+1, PCPT+1, PCPT+2
>> XRTL	RT+1
>> XRTN	RT+1*
>> Y	DEAD+4, DATE, DATE+1, DATE+2, ODP+2, ODP+3, OPD+2, OPD+4, DOC+1, DOC+2 , DOC+3*, CASE+1, ASURG+2, ASURG+3, SPEC+1, SPEC+2, PCPT+2, PCPT+3, SPIN+4

Customize PDF page

Package: Surgery

Routine: SRONEW

Information

Source Information

Call Graph

Call Graph Total: 24

Caller Graph

Legends:

Package Component Superscript legend

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: