Routine: SROAPRE

Package	Total	Call Graph
Surgery	7	^SROAPR1A ^SROAPR2 (,NO2ALL)^SROAPRE1 ^SROAPS1 (,DUP,HDR)^SROAUTL ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	3	^DIE EN^DIQ1 ^DIR

Package

Total

Call Graph

Surgery

^SROAPR1A ^SROAPR2 (,NO2ALL)^SROAPRE1 ^SROAPS1 (,DUP,HDR)^SROAUTL ($$LOCK,UNLOCK)^SROUTL ^SRSKILL

VA Fileman

^DIE EN^DIQ1 ^DIR

Package	Total	Caller Graph
Surgery	3	SROA PREOP DATA SROAPR2 SROAUTL3

Package

Total

Caller Graph

Surgery

SROA PREOP DATA SROAPR2 SROAUTL3

External References

Name	Field # of Occurrence
^DIE	ASK+17, FUNCTH+2, FUNCTH+3, CONCC+5
EN^DIQ1	CONCC+4
^DIR	ASK+9, FUNCTH
^SROAPR1A	ASK+14, RANGE+2
^SROAPR2	ASK+4
^SROAPRE1	ASK+14, RANGE+2
NO2ALL^SROAPRE1	ASK+10
^SROAPS1	START
^SROAUTL	SROAPRE+3
DUP^SROAUTL	SROAPRE+3
HDR^SROAUTL	ASK+11
$$LOCK^SROUTL	ASK+14, ASK+15, RANGE+1, CONCC+5
UNLOCK^SROUTL	ASK+14, ASK+15, RANGE+1, CONCC+5
^SRSKILL	END

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROAPRE+2
Function Call: WRITE	Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SROAPRE+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: ASK+14
Function Call: WRITE	Prompt: ! Line Location: ASK+17
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: @IOF,!!!!,"Enter the number, number/letter combination, 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 information.",!!,"2. Enter 'N' to set all fields on this page to NO." Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"3. Enter a number (1-6) to update the information in that group. (For",!," example, enter '5' to update all cardiac information)" Line Location: HELP+2
Function Call: WRITE	Prompt: !!,"4. Enter a number/letter combination to update a specific occurrence. (To ",!," update Current Pneumonia, enter '2C'.)" Line Location: HELP+3
Function Call: WRITE	Prompt: !!,"5. Enter a range of numbers (1-6) separated by a ':' to enter a range of",!," occurrences. (For example, enter '2:4' to enter all pulmonary,",!," hepatobiliary, and gastrointestinal information)" Line Location: HELP+4
Function Call: WRITE	Prompt: !!,"6. Press <RET> to continue to page 2 of this option." Line Location: HELP+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: HELP+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: RET+0
Routine Call	DIE Line Location: ASK+17 FUNCTH+2 FUNCTH+3 CONCC+5
Routine Call	DIR Line Location: ASK+9 FUNCTH

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

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	CONCC+1, CONCC+2

Name	Line Occurrences
CONCC	ASK, ASK+4
END	SROAPRE+2, SROAPRE+3, START, ASK, ASK+3, ASK+6, ASK+7
FUNCTH	ASK+16
HELP	ASK+3, ASK+6
RANGE	ASK+12
RET	START
START	ASK+3, ASK+4, ASK+6, ASK+7, ASK+12, ASK+13, ASK+18

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CURLEY	RANGE+2*
DA	ASK+17, FUNCTH!, FUNCTH+2!, FUNCTH+3!, CONCC+3!, CONCC+4, CONCC+5!
DIC	CONCC+3!, CONCC+4*
DIE	ASK+17!, FUNCTH+2!, FUNCTH+3!, CONCC+5!
DIQ	CONCC+3!, CONCC+4*
DIQ(0	CONCC+4*
DIR	ASK+8!, FUNCTH!
DIR("A"	ASK+8, FUNCTH
DIR("B"	ASK+8*
DIR(0	ASK+8, FUNCTH
DR	ASK+17!, FUNCTH+2!, FUNCTH+3!, CONCC+3!, CONCC+4, CONCC+5!*
DTIME	SROAPRE+2, ASK, HELP+6, RET
>> DTOUT	ASK+9, FUNCTH+1
>> DUOUT	ASK+9, FUNCTH+1
>> EMILY	ASK+13, ASK+14, RANGE+2
IOF	END, HELP
>> SHEMP	RANGE+2*
SRA	START!
>> SRACLR	SROAPRE+3, START
SRAO	START!
SRAO(	ASK+2, ASK+3, ASK+13, ASK+15, ASK+17, CONCC+3
>> SRCON	CONCC+1*, CONCC+2, CONCC+5
>> SREQST	END
>> SRI	CONCC+3*
>> SRPAGE	ASK+11*
>> SRSOUT	SROAPRE+3, START, ASK+3, ASK+6, ASK+7, ASK+9, HELP+6, RANGE+2, RET
>> SRSUPCPT	SROAPRE+3*
>> SRTN	SROAPRE+2, ASK+14, ASK+15, ASK+17, FUNCTH, RANGE+1, CONCC+1, CONCC+4, CONCC+5
>> SRX	ASK+17, CONCC+4, CONCC+5
SRY	CONCC+3!
SRY(130	CONCC+4
>> SRZ	CONCC+3*, CONCC+4, CONCC+5
X	SROAPRE+2, ASK, ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, ASK+7, ASK+12 , ASK+13, ASK+15, ASK+16, ASK+17, FUNCTH~, FUNCTH+2, HELP+6, RANGE+2, RET*
>> Y	ASK+6*, ASK+10, FUNCTH+3
>> Z	ASK+2, ASK+6

Customize PDF page

Package: Surgery

Routine: SROAPRE

Information

Source Information

Call Graph

Call Graph Total: 10

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:

Name	Comments	DBIA/ICR reference
CONCC	; check for concurrent case and update if one exists
END
HELP
FUNCTH
RET
START
RANGE	; range of numbers
ASK