Routine: SROCMPL

Information

SROCMPL ;B'HAM ISC/MAM - ENTER NON-OPERATIVE OCCURRENCES; [ 01/08/98 9:54 AM ]

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	4	^%DT ^DIC FILE^DICN ^DIE
Surgery	2	^SROCMPD ^SRSKILL

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: 1

Package	Total	Caller Graph
Surgery	1	SROCOMP

Entry Points

Name	Comments	DBIA/ICR reference
OPT
ENTER
LIST	; list case
HELP	; help text
KEY
END
PROMPT	;
NEW	; enter new occurrence
COMP	; enter occurrence information

External References

Name	Field # of Occurrence
^%DT	NEW+1
^DIC	SROCMPL+4
FILE^DICN	NEW+4
^DIE	NEW+5, COMP+1
^SROCMPD	ENTER+2
^SRSKILL	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"NOTE: You are about to enter an occurrence for a patient that has not had an",!,"operation during this admission. If this patient has a surgical procedure" Line Location: SROCMPL+2
Function Call: WRITE	Prompt: !,"during the current admission, use the option to enter or edit intraoperative",!,"and postoperative occurrences.",!! Line Location: SROCMPL+3
Function Call: WRITE	Prompt: !! Line Location: SROCMPL+4
Function Call: WRITE	Prompt: @IOF,!,?3,SRNM,! Line Location: SROCMPL+5
Function Call: WRITE	Prompt: !!,CNT_".",?14,"ENTER A NEW NON-OPERATIVE OCCURRENCE" Line Location: SROCMPL+7
Function Call: READ	Formatting: !!!! Prompt: "Select Number: " Variable: OPT Timeout: DTIME Line Location: OPT+0
Function Call: WRITE	Prompt: !!,"Enter the number of the desired occurrence, or '"_CNT_"' to enter a new occurrence." Line Location: OPT+1
Function Call: READ	Formatting: !!! Prompt: "Enter or Delete Data ? E// " Variable: Z Timeout: DTIME Line Location: ENTER+0
Function Call: WRITE	Prompt: @IOF Line Location: ENTER+3
Function Call: WRITE	Prompt: !,CNT_". "_$E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3),?14,"OCCURRENCE IN WHICH THERE WAS NO SURGICAL PROCEDURE",!,?14,"DURING THE CURRENT ADMISSION" Line Location: LIST+1
Function Call: WRITE	Prompt: !!,"Enter RETURN to select an option used to enter or edit information for this",!,"case. If you would like a two screen overview of this operation, enter" Line Location: HELP+1
Function Call: WRITE	Prompt: !,"'Review'. To delete this surgical case from your records, Enter 'Delete'.",!,"Please note that choosing to delete a case will remove EVERYTHING pertaining",!,"to this operative procedure.",! Line Location: HELP+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: KEY+0
Function Call: WRITE	Prompt: !!,"You do not have the access necessary to delete a case from the file.",!!,"Press RETURN to continue " Line Location: KEY+0
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !!,"By deleting this case, all information stored for this operative procedure",!,"will be removed from the computer." Line Location: PROMPT+1
Function Call: WRITE	Prompt: @IOF,! Line Location: NEW+1
Function Call: WRITE	Prompt: !!,"When entering a new non-operative occurrence, a date MUST be entered.",!! Line Location: NEW+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: COMP+1
Routine Call	DIC Line Location: SROCMPL+4
Routine Call	DIE Line Location: NEW+5 COMP+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROCMPL+6, ENTER+3, NEW+5*
^SRF("ANON"	SROCMPL+6
^XUSEC("SROEDIT"	KEY

Label References

Name	Line Occurrences
COMP	ENTER+3
END	SROCMPL+4, OPT, ENTER, ENTER+2, ENTER+4, NEW+2, COMP+2
ENTER	ENTER+1
HELP	ENTER+1
KEY	PROMPT+1
LIST	SROCMPL+6
NEW	OPT+2
OPT	OPT+1
SROCMPL	NEW+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	NEW+1*
>> %DT("A"	NEW+1*
>> CNT	SROCMPL+6, SROCMPL+7, OPT+1, OPT+2, LIST+1
DA	NEW+4!, NEW+5, COMP+1
DD	NEW+4!
>> DFN	SROCMPL+4*, SROCMPL+6, NEW+4
DIC	SROCMPL+4!, NEW+4!
DIC(0	SROCMPL+4, NEW+4
DIE	NEW+5!, COMP+1!
DINUM	NEW+4!
DLAYGO	NEW+4*!
DO	NEW+4!
DR	NEW+5!, COMP+1!
DTIME	OPT, ENTER, KEY, COMP+1
DUZ	KEY
>> I	SROCMPL+6*
IOF	SROCMPL+2, SROCMPL+5, ENTER+3, END, NEW+1
>> NOKEY	KEY*, PROMPT+1
>> OPT	OPT*, OPT+1, OPT+2, ENTER
>> SRCASE(	SROCMPL+7, OPT+1, ENTER, LIST+1
>> SRNM	SROCMPL+4*, SROCMPL+5
>> SROP	SROCMPL+6*, LIST+1
>> SRPRIN	NEW+3*, NEW+5
>> SRSDATE	SROCMPL+6, ENTER+3, LIST+1, NEW+2*, NEW+5
SRTN	OPT!, ENTER, ENTER+3, END!, NEW+4!, NEW+5, COMP+1
>> X	KEY, NEW+4, COMP+1*
Y	SROCMPL+4!, NEW+1, NEW+2, NEW+4
>> Z	ENTER*, ENTER+1, ENTER+2

Customize PDF page

Package: Surgery