Routine: SROAOP

Package	Total	Call Graph
Surgery	8	^SROAOP1 ^SROAOP2 (,HDR)^SROAUTL (CPTS,DISP)^SROAUTL0 ^SROERR0 ^SROTHER ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	3	FILE^DICN ^DIE ^DIR

Package	Total	Caller Graph
Surgery	1	SROA OPERATION DATA

Entry Points

External References

Name	Field # of Occurrence
FILE^DICN	ANES+3
^DIE	ONE+6, ANES+5, ANES+6
^DIR	PRESS, ANES+2
^SROAOP1	START
^SROAOP2	END
^SROAUTL	SROAOP+3, ONE+7
HDR^SROAUTL	ASK+5, ONE+5, CONCUR+3
CPTS^SROAUTL0	CC+2
DISP^SROAUTL0	ONE+1
^SROERR0	END+1
^SROTHER	ONE+3
$$LOCK^SROUTL	ASK+9, RANGE+1
UNLOCK^SROUTL	ASK+9, RANGE+1
^SRSKILL	END+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROAOP+2
Function Call: WRITE	Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SROAOP+2
Function Call: READ	Timeout: DTIME Variable: SRASEL Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: @IOF,!!!!,"Enter the number or range of numbers you want to edit. Examples of proper" Line Location: HELP+0
Function Call: WRITE	Prompt: !,"responses are listed below.",!!,"1. Enter 'A' to update all information." Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"2. Enter a number (1-"_SRN_") to update the information in that field. (For" Line Location: HELP+2
Function Call: WRITE	Prompt: !," example, enter '2' to update Principal Operation.)" Line Location: HELP+3
Function Call: WRITE	Prompt: !!,"3. Enter a range of numbers (1-"_SRN_") separated by a ':' to enter a range of" Line Location: HELP+4
Function Call: WRITE	Prompt: !," information. (For example, enter '6:8' to update PGY of Primary Surgeon," Line Location: HELP+5
Function Call: WRITE	Prompt: !," Surgical Priority and Wound Classification.)",! Line Location: HELP+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: RET+0
Function Call: WRITE	Prompt: !,"Concurrent case information cannot be updated using the Risk Assessment" Line Location: CONCUR+4
Function Call: WRITE	Prompt: !,"Module. To update the CPT code of a concurrent case, please use an option" Line Location: CONCUR+5
Function Call: WRITE	Prompt: !,"contained within the CPT/ICD9 Coding Menu." Line Location: CONCUR+6
Function Call: WRITE	Prompt: !!,"Concurrent Procedure: ",?22,SROPS(1) Line Location: CONCUR+7
Function Call: WRITE	Prompt: !,?22,SROPS(2) Line Location: CONCUR+7
Function Call: WRITE	Prompt: !,?22,SROPS(2) Line Location: CONCUR+7
Function Call: WRITE	Prompt: !,?22,SROPS(2) Line Location: CONCUR+7
Function Call: WRITE	Prompt: !!,?22,SRCSTAT Line Location: CONCUR+8
Function Call: WRITE	Prompt: !!,"Press ENTER to continue " Line Location: CONCUR+9
Routine Call	DIE Line Location: ONE+6 ANES+5 ANES+6
Routine Call	DIR Line Location: PRESS ANES+2

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	CONCUR+2, CC+4, ANES+1
^SRO(136 - [#136]	CC+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CON	CONCUR+2*, CONCUR+7, CC+1, CC+2, CC+4
>> CURLEY	RANGE+2*
DA	ONE+6, ANES+5!, ANES+6!*
DA(1	ANES+5*
DD	ANES+3!
DIC	ANES+3*!
DIC(0	ANES+3*
DIE	ONE+6!, ANES+5!, ANES+6!*
DIR	PRESS!, ANES+2!
DIR("A"	ANES+2*
DIR(0	PRESS, ANES+2
DO	ANES+3!
DR	ONE+6!, ANES+5!, ANES+6!*
DR(2	ANES+6*
DTIME	SROAOP+2, ASK, RET, CONCUR+9
>> DTOUT	PRESS, ANES+2
>> DUOUT	PRESS, ANES+2
>> EMILY	ASK+8, RANGE+2, ONE+1, ONE+2, ONE+3, ONE+4, ONE+5, ONE+6, ONE+7
>> I	CONCUR+1, CC+4
IOF	END+2, HELP
>> LOOP	LOOP+1*
>> M	CC+7*, LOOP+1
MM	ASK+5, CC+6!, LOOP+1
MMM	CC+6!, CC+7, LOOP+1*
>> SHEMP	RANGE+2*
SRACON	START!
SRANE	ANES~, ANES+2*, ANES+3
>> SRAO(	ASK+2, ASK+7, ONE+6
>> SRAO(10	ANES+1
SRAOTH	START!
>> SRASEL	ASK, ASK+1, ASK+2, ASK+3*, ASK+4, ASK+5, ASK+6, ASK+7, ASK+8, RANGE+2 , ONE+5
SRCSTAT	CONCUR+1~, CONCUR+8, CC+1*, CC+3!
>> SRDOC	ASK+5, ONE+5
>> SRHDR(	ASK+5, ONE+5
SRL	CC+1~, CC+2*
>> SRLINE	CONCUR+1*
>> SRN	ASK+2*, ASK+3, ASK+4, HELP+2, HELP+4
SRNEW	ANES~, ANES+4*, ANES+5
>> SROERR	END+1*
>> SROPER	CC+4, CC+5, CC+6, CC+7, LOOP+1
SROPS	CC+6!
SROPS(	LOOP+1*
SROPS(1	CONCUR+7, CC+6*
SROPS(2	CONCUR+7
SROPS(3	CONCUR+7
SROPS(4	CONCUR+7
>> SRPAGE	ONE+5, CONCUR+3
SRPROC	CONCUR+1~
SRPROC(	CC+4
SRPROC(1	CC+3*
>> SRSOUT	SROAOP+3, START, ASK, ASK+2, ASK+4, END, PRESS, RANGE+2, ONE+6, RET*
>> SRSUPCPT	SROAOP+3*
SRTN	SROAOP+2, ASK+9, END+1, RANGE+1, ONE+6, CONCUR+2, CC+1~, CC+2*, ANES+1, ANES+5 , ANES+6
SRZ	CC+1~
>> X	SROAOP+2, RET, CONCUR+9, ANES+3
>> Y	ASK+4*, ONE+6, ANES+2, ANES+3, ANES+4
>> Z	ASK+4*

Customize PDF page

Package: Surgery

Routine: SROAOP

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

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
END
HELP
ANES
CC	; list concurrent procedure
PRESS
RET
ONE	; edit one item
START
RANGE	; range of numbers
ASK
CONCUR	; concurrent case information
LOOP	; break procedures

Name	Line Occurrences
ANES	ONE+2
CC	CONCUR+7
CONCUR	ONE+4
END	SROAOP+2, START, ASK, ASK+1, ASK+2, ASK+4
HELP	ASK+2, ASK+4
LOOP	CC+7
ONE	ASK+9, RANGE+2
RANGE	ASK+6
START	ASK+2, ASK+4, ASK+6, ASK+8