Routine: SROREST

Information

SROREST ;B'HAM ISC/MAM - STUFF RESTRAINTS; [ 01/30/01 1:13 AM ]

Package	Total	Call Graph
Surgery	4	^SROIRR ^SROLOCK ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
Surgery	1	SROMEN-REST

Name	Comments	DBIA/ICR reference
END
LIST	;
RET
STUFF	; stuff restraints in Surgery file
ASK
SEL
PAGE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"A surgical case has not been entered. " Line Location: SROREST+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"Type '1' to enter irrigation solutions, or '2' to enter restraints",!,"or positioning aids.",!!,"Press RETURN to continue " Line Location: ASK+2
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: @IOF,!,?20,"Restraints and Positioning Aids",?(79-$L(SRNUM)),SRNUM,! Line Location: PAGE+0
Function Call: WRITE	Prompt: "=" Line Location: PAGE+0
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Function Call: WRITE	Prompt: "-" Line Location: PAGE+2
Function Call: WRITE	Prompt: ! Line Location: SEL+0
Function Call: WRITE	Prompt: !!,SRI_" is an invalid entry. Please try again." Line Location: SEL+4
Function Call: WRITE	Prompt: !!,"Entering "_SREST1_" ..." Line Location: STUFF+1
Function Call: WRITE	Prompt: ! Line Location: RET+0
Routine Call	DIE Line Location: STUFF+1
Routine Call	DIR Line Location: SEL+1 RET

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SEL+3*
^SRO(132.05 - [#132.05]	LIST+1

Name	Field # of Occurrence
>> CNT	LIST+1, LIST+2, LIST+3, PAGE+1*
>> DA	STUFF+1*
>> DIE	STUFF+1*
DIR	SEL!, SEL+1!, RET!
DIR("?"	SEL*
DIR("A"	SEL+1, RET
DIR(0	SEL+1, RET
DR	STUFF+1!*
DR(2	STUFF+1*
DTIME	ASK, ASK+2
>> DTOUT	SEL+1, SEL+5, SEL+7
>> DUOUT	SEL+1, SEL+5, SEL+7
>> I	PAGE*
>> INACT	LIST+1*
IOF	ASK, END, PAGE
>> LINE	PAGE+2*
>> S	PAGE+1*
>> SRCNT	SEL+4, SEL+6
SRD	LIST+2~*, LIST+3
SREST	LIST+1!, STUFF+1
SREST(	LIST+1*, PAGE+1, SEL+4, STUFF+1
>> SREST1	STUFF+1*
SRFIRST	LIST+2~, LIST+3*, PAGE+1
SRI	LIST+2~, SEL+4, SEL+6, STUFF+1
SRJ	LIST+2~
SRLAST	LIST+2~, LIST+3*, PAGE+1
SRLCK	SROREST+2~, ASK+3*, END
>> SRNUM	LIST+3*, PAGE
>> SROLOCK	SROREST+3
SRP	LIST+2~*, LIST+3
SRP1	LIST+2~*
>> SRPAGE	LIST+3*
SRQ	LIST+2~, SEL+4*, SEL+5
>> SRSOUT	SROREST+2, SROREST+3, ASK, LIST+3, PAGE, SEL+1, SEL+5, SEL+7
>> SRTN	SROREST+2, ASK+3, END, SEL+3, STUFF+1
SRTOT	LIST+2~*, LIST+3
>> SRX	SEL+2*, SEL+4, SEL+6
>> X	ASK, ASK+1, ASK+2*, ASK+4
>> Y	SEL+2