Routine: SROAOP2

Package	Total	Call Graph
VA Fileman	3	^DIE EN^DIQ1 ^DIR
Surgery	2	HDR^SROAUTL ($$LOCK,UNLOCK)^SROUTL

Package	Total	Caller Graph
Surgery	1	SROAOP

Entry Points

Name	Comments	DBIA/ICR reference
APAH	;;1.18^Discharge from PACU (DPACU)
HELP
GET
EDIT
TR
RANGE	; range of numbers
ONE	; edit one item
PBD	;;.24^Anesthesia Finish (AF)
EXT
PBA	;;.21^Anesthesia Start (AS)
PBJE	;;.205^Patient in Room (PIR)
PBC	;;.23^Procedure/Surgery Finish (PF)
PBB	;;.22^Procedure/Surgery Start Time (PST)
PRESS
PBCB	;;.232^Patient Out of Room (POR)
SEL

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EDIT+7
Function Call: WRITE	Prompt: "-" Line Location: EDIT+7
Function Call: WRITE	Prompt: ?39,SREXT Line Location: EXT+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: @IOF,!!!!,"Enter the number or range of numbers you want to edit. Examples of proper",!,"responses are listed below." Line Location: HELP+0
Function Call: WRITE	Prompt: !!,"1. Enter 'A' to update all items.",!!,"2. Enter a number (1-"_SRX_") to update an individual item. (For example,",!," enter '1' to update "_$P(SRX(1),"^")_")" Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"3. Enter a range of numbers (1-"_SRX_") separated by a ':' to enter a range",!," of items. (For example, enter '1:4' to update items 1, 2, 3 and 4.)",! Line Location: HELP+2
Function Call: WRITE	Prompt: !,"4. Enter 'N' or 'NO' to enter negative response for all items.",!!,"5. Enter '@' to delete information from all items.",! Line Location: HELP+3
Function Call: WRITE	Prompt: ! Line Location: PRESS+0
Function Call: WRITE	Prompt: ! Line Location: ONE+2
Routine Call	DIE Line Location: ONE+3
Routine Call	DIR Line Location: PRESS ONE+2

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

Name	Field # of Occurrence
>> CURLEY	RANGE+2*
DA	EDIT+2!, ONE+2!, ONE+3!*
DIC	EDIT+2!*
DIE	ONE+3!*
DIQ	EDIT+2!*
DIQ(0	EDIT+2*
DIR	PRESS!, ONE+2!
DIR("A"	PRESS, ONE+2
DIR(0	PRESS, ONE+2
DR	EDIT+1!, EDIT+2!, ONE+3!*
DTIME	SEL
>> DTOUT	PRESS, ONE+2
>> DUOUT	PRESS, ONE+2
>> EMILY	SEL+5, RANGE+2, ONE+2, ONE+3
>> I	EDIT+3*, TR
IOF	HELP
>> J	TR*
>> K	EDIT+7*
>> M	EDIT+3*
>> SHEMP	RANGE+2*
>> SRDOC	EDIT
>> SRDR	EDIT+1*, EDIT+2, EDIT+3
>> SREXT	EDIT+5, EXT, EXT+1
>> SRFLD	EDIT+5*
>> SRFLG	SEL+1, HELP+3
>> SRHDR(	EDIT*
>> SRPAGE	EDIT*
>> SRQ	EDIT+1*
>> SRSOUT	EDIT, SEL, PRESS, RANGE+2, ONE+2*
>> SRTN	EDIT+2, EDIT+5, SEL+6, RANGE+1, ONE+2, ONE+3
SRW	ONE+1~, ONE+3*
SRX	EDIT+3!, EDIT+5, EDIT+6, SEL+2, SEL+3, HELP+1, HELP+2
SRX(	EDIT+5*, SEL+1, SEL+5, ONE+2, ONE+3
SRX(1	HELP+1
SRY	EDIT+2!
SRY(130	EDIT+5
>> X	EDIT+5, EXT, SEL, SEL+1, SEL+2, SEL+3, SEL+4, SEL+5, RANGE+2, GET*
>> Y	EDIT+5, SEL+2, ONE+3
>> Z	EDIT+5, EDIT+6, SEL+2

Name	Field # of Occurrence
$T(@J	GET