Routine: SRSCHUN

Package	Total	Call Graph
VA Fileman	7	NOW^%DTC FILE^DICN FIELD^DID (,FILE,WP)^DIE ^DIK EN^DIQ1 ^DIR
Surgery	5	^SROERR ^SROERR0 ($$LOCK,UNLOCK)^SROUTL ^SROXRET ^SRSCG

Package	Total	Caller Graph
Surgery	3	SRSCHCA SRSCHD SRSCHDC

Entry Points

Name	Comments	DBIA/ICR reference
CASE	; create case in SURGERY file
SURG	; surgeon
END
UPDATE	; update case in SURGERY file
OPD	; Principal Preoperative Diagnosis
OTHER	; other required fields
DEL
ASURG	; attending surgeon
ASK
MUST
CON	; request concurrent case
SPEC	; surgical specialty
OTHDIR	; call to reader for site specific required fields
OP	; principal operative procedure

External References

Name	Field # of Occurrence
NOW^%DTC	CASE+3
FILE^DICN	CASE+1
FIELD^DID	OTHDIR+1
^DIE	CASE+4, ASURG+5, UPDATE+1, UPDATE+2, OTHER+6
FILE^DIE	OTHDIR+3
WP^DIE	OTHER+3
^DIK	DEL
EN^DIQ1	ASURG+1
^DIR	SURG+1, ASURG+3, SPEC+1, OP+1, OPD+1, OTHDIR+1, ASK+1
^SROERR	OTHER+5
^SROERR0	OTHER+6
$$LOCK^SROUTL	CASE+1
UNLOCK^SROUTL	OTHER+4, END
^SROXRET	UPDATE+3
^SRSCG	END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: MUST+1
Function Call: WRITE	Prompt: !,?29,$S(SRSCON=1:"FIRST",1:"SECOND")_" CONCURRENT CASE" Condition for execution: $D(SRCC) Line Location: MUST+1
Function Call: WRITE	Prompt: !,?14,"SCHEDULE UNREQUESTED OPERATION: REQUIRED INFORMATION",!!,SRNM_" ("_$G(SRSSN)_")",?65,SREQDT,!,SRLINE,! Line Location: MUST+1
Function Call: WRITE	Prompt: !!,"To create a surgical case, a surgeon MUST be selected. Enter '^' to exit.",! Line Location: SURG+2
Function Call: WRITE	Prompt: !,"Attending Surgeon: "_SRATTND,! Line Location: ASURG+2
Function Call: WRITE	Prompt: !!,"An Attending Surgeon must be entered when creating a case. Enter '^' to exit.",! Line Location: ASURG+4
Function Call: WRITE	Prompt: !!,"To create a surgical case, a surgical specialty MUST be selected. Enter '^'",!,"to exit.",! Line Location: SPEC+2
Function Call: WRITE	Prompt: !!,"Principal procedure must not contain an up-arrow (^).",! Line Location: OP+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: !!,"Press RETURN to continue " Line Location: OPD+6
Function Call: WRITE	Prompt: !!,"It is mandatory that you provide this information before proceeding with this",!,"option.",! Line Location: OTHDIR+2
Function Call: WRITE	Prompt: !!,"No surgical case has been scheduled.",! Line Location: END+1
Routine Call	DIE Line Location: CASE+4 ASURG+5 UPDATE+1 UPDATE+2 OTHER+6
Routine Call	DIE Line Location: OTHDIR+3
Routine Call	DIR Line Location: SURG+1 ASURG+3 SPEC+1 OP+1 OPD+1 OTHDIR+1 ASK+1
Routine Call	DIE Line Location: OTHER+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	CASE+2*, CON+1
^SRO(133 - [#133]	OTHER+1, OTHDIR+1
^SRO(137.45 - [#137.45]	CON+1
^VA(200 - [#200]	CON+1

Label References

Name	Line Occurrences
ASK	OTHDIR+2
ASURG	ASURG+4
DEL	ASURG+3, SPEC+1, OP+1, OPD+1, OTHER+2
END	SURG+1, DEL
MUST	CON+1
OP	OP+2, OP+3
OPD	OPD+2, OPD+3
OTHDIR	OTHER+1, OTHDIR+2
SPEC	ASURG+2, SPEC+2
SURG	SURG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CASE+3
DA	CASE+1!, CASE+4, ASURG+1!, ASURG+5!, UPDATE+1, UPDATE+2!, OTHER+6!, DEL*, CON+1!
DD	CASE+1!
DIC	CASE+1!, ASURG+1!
DIC(0	CASE+1*
DIE	CASE+3!, CASE+4, ASURG+5!, UPDATE+1, UPDATE+2, OTHER+6*
>> DIK	DEL*
DINUM	CASE+1!
DIQ	ASURG+1!*
DIQ(0	ASURG+1*
DIR	SURG+1!, ASURG+3!, SPEC+1!, OP+1!, OPD+1!, OTHDIR+1!, ASK!
DIR("?"	ASK+1*
DIR("A"	SURG+1, ASURG+3, SPEC+1, OP+1, OPD+1, OTHDIR+1, ASK*
DIR("B"	ASK*
DIR(0	SURG+1, ASURG+3, SPEC+1, OP+1, OPD+1, OTHDIR+1, ASK*
DLAYGO	CASE+1*!
DO	CASE+1!
DR	CASE+3!, CASE+4!, ASURG+1!, ASURG+5!, UPDATE+1, UPDATE+2!, OTHER+6!
DTIME	OPD+6
>> DTOUT	SURG+1, ASURG+3, SPEC+1, OP+1, OPD+1, OTHDIR+1
DUZ	CASE+4
>> FLD	OTHDIR+1*, OTHDIR+3
>> I	MUST*
IOF	MUST+1
>> SRATTND	ASURG+2, ASURG+5
>> SRCC	MUST+1, OTHER+6, END+1
>> SRDUOUT	OTHER+5
SREQ	OTHDIR+1!
SREQ(130	OTHDIR+3*
>> SREQDAY	CASE+3*, CASE+4
>> SREQDT	MUST+1
>> SRFLD	OTHER+1*, OTHDIR+1
>> SRLCK	CASE+1*, OTHER+4, END
>> SRLINE	MUST*, MUST+1
>> SRNM	MUST+1
SRNOCON	CASE+3*, UPDATE+3!
>> SROERR	OTHER+5, OTHER+6
>> SRSCON	MUST+1, OTHER+6, CON+1
>> SRSCON(	CON+1*
>> SRSCON(1	OTHER+6
>> SRSDATE	CASE+4
>> SRSDOC	SURG+3*, CASE+4, CON+1
>> SRSDPT	CASE+1
>> SRSDT1	CASE+4, END+1
>> SRSDT2	CASE+4, END+1
>> SRSEDT	END+1*
>> SRSITE	OTHER+1, OTHDIR+1
>> SRSITE("DIV"	CASE+2
>> SRSOP	OP+3*, UPDATE+1
>> SRSOPD	OPD+4*, UPDATE+1, OTHER+3
>> SRSOPD(1	OTHER+3*
>> SRSOR	CASE+4, END+1
>> SRSOUT	SURG+1, ASURG+3, SPEC+1, OP+1, OPD+1, OTHER+1, OTHER+2, OTHER+5, CON+1, OTHDIR+1* , OTHDIR+2, ASK+1*, END+1
>> SRSS	SPEC+3*, UPDATE+1, CON+1
>> SRSSN	MUST+1
SRTN	CASE+1!*, CASE+2, CASE+4, ASURG+1, ASURG+2, ASURG+5, UPDATE+1, UPDATE+2, OTHER+3, OTHER+4 , OTHER+5, OTHER+6, DEL, CON+1, OTHDIR+3, END
SRTN("END"	END+1*
SRTN("OR"	END+1*
SRTN("START"	END+1*
SRY	ASURG+1!, OTHDIR+1!
SRY("TITLE"	OTHDIR+1
SRY(130	ASURG+2
>> X	SURG+1, SURG+2, CASE+1, ASURG+3, ASURG+4, SPEC+1, SPEC+2, OP+1, OP+2, OPD+1 , OPD+2, OPD+3, OPD+6, OTHDIR+1, OTHDIR+2
>> Y	SURG+2, SURG+3, CASE+1, ASURG+4, ASURG+5, SPEC+2, SPEC+3, OP+3, OPD+2, OPD+4 , OTHDIR+2, OTHDIR+3, ASK+1

Customize PDF page

Package: Surgery

Routine: SRSCHUN

Information

Source Information

Call Graph

Call Graph Total: 12

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

Local Variables

Legend: