Routine: SROQIDP

Package	Total	Call Graph
Surgery	4	(,PRESS)^SROQIDP0 (DATE,INOUT,SPEC)^SROUTL ($$INST,$$MANDIV)^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
DRG Grouper	1	$$CPT^ICPTCOD
Registration	1	IN5^VADPT

Package	Total	Caller Graph
Surgery	3	SROQ0A SROQIDP SROQIDP0

Entry Points

Name	Comments	DBIA/ICR reference
CASE	; determine if case is invasive procedure
AC
EN
END
SHOW	; display list of invasive diagnostic procedures
IDP	; get CPT codes for procedures performed
ADD	; increment counters in ^TMP
IO
QTR	; entry from quarterly report
SEL
PROC	; HQ list of invasive diagnostic procedures
CHECK	; compare procedure performed with HQ list

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?20,"List of Invasive Diagnostic Procedures",!!,"This report displays the completed surgical cases that meet the selection",!,"criteria and that have a principal CPT code on the list below defined by" Line Location: SROQIDP+6
Function Call: WRITE	Prompt: !,"Surgical Service at VHA Headquarters as invasive diagnostic procedures.",!!,?3,"Procedure Group",?30,"CPT Code(s)",!,?3,"---------------",?30,"-----------" Line Location: SROQIDP+7
Function Call: WRITE	Prompt: @IOF Line Location: SEL+0
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format.",! Line Location: IO+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !,?3,SRPROC,?30,$E(SRCODES,1,48) Line Location: SHOW+1
Function Call: WRITE	Prompt: !,?30,$E(SRCODES,49,96) Line Location: SHOW+1
Routine Call	%ZIS Line Location: IO+1

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	AC, CASE+1, CASE+2
^SRF("AC"	AC
^SRO(136 - [#136]	IDP+1, IDP+2
^TMP("SR"	END+2!, CASE+5*
^TMP("SRIDP"	ADD+1, ADD+2, ADD+3*

Name	Field # of Occurrence
%ZIS	IO+1!*
%ZIS("A"	IO+1*
%ZIS("B"	IO+1*
>> EDATE	SEL
>> I	SHOW+1*
IO("Q"	IO+1!, IO+2!
IOF	SROQIDP+6, SEL, END, END+2
IOP	IO+1!
IOST	END, END+1
>> J	CHECK+1*
>> K	CHECK+1*
POP	IO+1!
>> SDATE	SEL
>> SR(0	CASE+2*, CASE+3, CASE+5, ADD+2
>> SRB	SEL*
SRCODES	IDP+1~, CHECK+1, SHOW+1
SRCPT	IDP+1~, CHECK+1*
>> SRED	AC
SRFRTO	END+2!
SRIDP	END+2!, CASE+5, QTR+1, IDP+1, IDP+2*
SRIDPT	END+2!, CASE+5*
>> SRINST	SEL+1*
SRINSTP	SEL+1~*, AC
SRIO	SEL*, END+2!, CASE+4
SRIOSTAT	END+2!, CASE+3*, CASE+4, CASE+5
SRIOT	END+2!
SRIOT(	CASE+5*
SRMATCH	IDP+1~, IDP+2, CHECK+1*
SROP	QTR+1~, IDP+1, IDP+2, CHECK+1
SROPER	QTR+1~, IDP+2*
>> SRPROC	SHOW+1*
SRRPT	SEL*, END+2!
>> SRSD	AC*, CASE+3, CASE+5
>> SRSOUT	SROQIDP+6, SROQIDP+7, SEL, IO+1, IO+2*, END+1, AC
>> SRSPEC	SEL*, CASE+2
>> SRSS	CASE+2*, CASE+5
SRTN	END+2!, AC*, CASE+1, CASE+2, CASE+5, IDP+1, IDP+2
VAIP	CASE+3!
VAIP("D"	CASE+3*
VAIP(13	CASE+3
>> X	SHOW+1*
>> ZTDESC	IO+2*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	IO+2*
>> ZTSAVE("EDATE"	IO+2*
>> ZTSAVE("SDATE"	IO+2*
>> ZTSAVE("SRINSTP"	IO+2*
>> ZTSAVE("SRIO"	IO+2*
>> ZTSAVE("SRSPEC*"	IO+2*
>> ZTSTOP	END

Name	Field # of Occurrence
$T(PROC+I	SHOW+1
$T(PROC+J	CHECK+1