Routine: SROQ0A

Information

SROQ0A ;BIR/ADM - QUARTERLY REPORT (CONTINUED) ;06/16/04 9:38 AM

Source file <SROQ0A.m>

Package	Total	Caller Graph
Surgery	12	SR62UTL SROATM2 SROATMNO SROQ SROQ0 SROQ1 SROQ1A SROQD0 SROQD1 SROQL SROQM1 SROQN

Name	Comments	DBIA/ICR reference
TMP	; store index procedure names in ^TMP
IXOUT	; get procedure name for output
IDP	; invasive diagnostic?
SUP	; look at resident supervision
RS	; surgical residents used?
P5	;;Fem-Pop Bypass;;35656,35556;;
P10	;;Laryngectomy;;31360,31365,31367,31368;;
P11	;;Craniotomy;;61304,61305,61312,61314,61510,61512,61518,61519,61700,61680;;
P12	;;Intraoccular Lens;;66983,66984;;
CHECK
P2	;;Cholecystectomy;;47600,47605,47610,47562,47563,47564;;
P3	;;Coronary Artery Bypass;;33510,33511,33512,33513,33514,33516,33517,33518,33519,33521,33522,33523,33533,33534,33535,33536;;
P1	;;Inguinal Hernia;;49505,49507,49520,49521,49525;;
P6	;;Pulmonary Lobectomy;;32480,32500,32440;;
P7	;;Hip Replacement, - Elective;;27125,27130,27132,27134,27137,27138;;
P4	;;Colon Resection (L & R);;44140,44141,44143,44144,44145,44146,44147,44160;;
SHOW	; display list of procedures with CPT codes
P8	;;Hip Replacement, - Acute Fracture;;27236;;
P9	;;TURP;;52601;;
DRPT	; from report of deaths within 30 days
ADD	; increment counters in ^TMP
IXDTH
ADM	; check for admission within 14 days of surgery
NDEX	; look at procedures performed
CK1
PROC	; index procedures

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?30,$E(SRCODES,49,96) Line Location: SHOW+3

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APTT1"	ADM+2
^SRF - [#130]	SUP+1, RS+1, RS+2, ADM+1, ADD+2, IXDTH
^SRO(133 - [#133]	RS+1
^SRO(136 - [#136]	NDEX+1, NDEX+2, DRPT+1, DRPT+2
^TMP("SRDEATH"	IXDTH, CK1+1
^TMP("SRIP"	TMP+1*
^TMP("SRNAT"	CK1+1*
^TMP("SRP"	IXDTH*
^TMP("SRPROC"	ADD+1, ADD+3*
^TMP("SRREL"	CK1+2*

Name	Field # of Occurrence
>> DFN	ADM+2, IXDTH, CK1+1, CK1+2
>> I	ADD+1, SHOW+1, SHOW+2
>> J	CHECK, ADD+1, ADD+3, IXDTH, TMP+1, CK1*, CK1+1, CK1+2
>> K	CHECK, CK1
>> SR14	ADM+1*, ADM+2
>> SRADMT	ADM+2*
>> SRATT	SUP+1, SUP+2, SUP+3, RS+2, RS+3, RS+4
>> SRATT(	SUP+2, SUP+3
>> SRATT("J"	SUP+2*
>> SRATT("N"	SUP+2*
>> SRCODES	CHECK, SHOW+1, SHOW+3, CK1*
>> SRCPT	CHECK, CK1
SRDIV	RS+1~*
>> SRFLAG	SROQ0A+8*, CHECK
>> SRIDP	IDP+1
>> SRINV(	IDP+1*
>> SRIOSTAT	IDP+1, IDP+2
SRK	RS+1~*
>> SRMATCH	SUP+3, CHECK, CK1, CK1+1
>> SRMM	SUP+3*
>> SROP	NDEX+1, NDEX+2, CHECK, IXOUT+1, DRPT+1, DRPT+2*, CK1
SRP	ADD+3!
SRP(	ADD+1*
SRP(1	ADD+2*, ADD+3
SRP(2	ADD+2*, ADD+3
>> SRPOC	IDP+2, ADD+2
>> SRPROC	SHOW+1, SHOW+2, SHOW+3
>> SRREL	IXDTH, CK1+2
>> SRSD	CK1+2
>> SRSDATE	ADM+1, ADM+2
SRSITE	RS+1~*
>> SRTN	SUP+1, NDEX+1, NDEX+2, RS+1, RS+2, ADM+1, ADD+2, IXDTH, DRPT+1, DRPT+2 , CK1+1, CK1+2
>> X	NDEX+1, NDEX+2, ADM+1, SHOW+1, DRPT+1, DRPT+2*
>> X1	ADM+1*
>> X2	ADM+1*
>> Y	NDEX+2, RS+1, DRPT+2*

Name	Field # of Occurrence
$T(PROC+I	SHOW+1
$T(PROC+J	CHECK, IXOUT+1, TMP+1, CK1