Routine: SROAOTH

Information

SROAOTH ;BIR/MAM - PRINT OTHER PROCEDURES ;04/11/06

Source file <SROAOTH.m>

Package	Total	Call Graph
Surgery	2	SSOTH^SROCPT (SSOTH,SSPRIN)^SROCPT0
DRG Grouper	1	$$CPT^ICPTCOD

Package	Total	Caller Graph
Surgery	1	SROAPRT3

Name	Comments	DBIA/ICR reference
LIST
LOOP	; break procedures
CON	; get CPT modifiers for concurrent procedure

Name	Field # of Occurrence
$$CPT^ICPTCOD	SROAOTH+4, SROAOTH+6, SROAOTH+12, LIST
SSOTH^SROCPT	LIST
SSOTH^SROCPT0	SROAOTH+6
SSPRIN^SROCPT0	SROAOTH+4, CON+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$J("Procedure CPT Codes: ",39)_CPTT Line Location: SROAOTH+7
Function Call: WRITE	Prompt: !!,$J("Concurrent Procedure: ",39)_$S(SROPS(1)="":"N/A",1:SROPS(1)) Line Location: SROAOTH+14
Function Call: WRITE	Prompt: !,?39,SROPS(2) Line Location: SROAOTH+14
Function Call: WRITE	Prompt: !,?39,SROPS(2) Line Location: SROAOTH+14
Function Call: WRITE	Prompt: !,$J("CPT Code: ",39)_$S(CPT="":"N/A",1:CPT) Line Location: SROAOTH+15
Function Call: WRITE	Prompt: !,$J("Other Procedure ("_CNT_"): ",39)_OPER Line Location: LIST+2

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROAOTH+3, SROAOTH+9, SROAOTH+10
^SRO(136 - [#136]	SROAOTH+4, SROAOTH+5, SROAOTH+10

Name	Field # of Occurrence
CNT	SROAOTH+3*, SROAOTH+8!, LIST+2
>> CON	SROAOTH+9*, SROAOTH+10, CON+1
CPT	SROAOTH+3, SROAOTH+5, SROAOTH+6, SROAOTH+8!, SROAOTH+9, SROAOTH+10, SROAOTH+12, SROAOTH+13, SROAOTH+15, CON+1* , LIST, LIST+1
CPTT	SROAOTH+2~, SROAOTH+3, SROAOTH+4, SROAOTH+6*, SROAOTH+7
>> LOOP	LOOP+1*
>> M	SROAOTH+11*, LOOP+1
MM	SROAOTH+11!, LOOP+1*
MMM	SROAOTH+11!, LOOP+1*
OPER	SROAOTH+3, SROAOTH+5, SROAOTH+8!, LIST+2
OTH	SROAOTH+3, SROAOTH+5, SROAOTH+6, SROAOTH+8!, LIST
>> SRDA	SROAOTH+6, LIST
>> SROPER	SROAOTH+10, SROAOTH+11, LOOP+1*
SROPS	SROAOTH+8!, SROAOTH+11!
SROPS(	LOOP+1*
SROPS(1	SROAOTH+8, SROAOTH+11, SROAOTH+14
SROPS(2	SROAOTH+14
SROPS(3	SROAOTH+14
SRTN	SROAOTH+3, SROAOTH+4, SROAOTH+5, SROAOTH+9, CON+1~*
>> X	SROAOTH+4*
>> Y	SROAOTH+4, SROAOTH+6, SROAOTH+12, CON+1, LIST