Routine: SROCDX2

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

SROCDX2 ;BIR/ADM - ASSOCIATED DIAGNOSIS CODING UTILITIES ;07/27/05

Source Information

Source file <SROCDX2.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	4	EN^DDIOL FILE^DIE ^DIK ^DIR
Surgery	1	(FILE,UPDATE)^SROCDX1

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Surgery	3	SROCD0 SROCDX SROCDX1

Entry Points

Name	Comments	DBIA/ICR reference
SADXP	; ADXP x-ref set logic
PRLOOP(SRCHK)
KOADX(SRCN,SRREC,SRPDA)	; kill other cpt associated diagnosis codes
KPADX(SRCN,SRPDA)	; kill all the principal cpt associated diagnosis codes
PRINASOD
KADXP	; ADXP x-ref kill logic
OTLOOP(SRCHK)
DELASOC
AT2	; delete principal associated diagnoses
KADXO	; ADXO x-ref kill logic
SCOND(X1,X2)	; set condition for ADXP x-ref
DELWRN
SADXO	; ADXO x-ref set logic
KCOND(X1,X2)	; kill condition for ADXP x-ref

Name	Field # of Occurrence
EN^DDIOL	DELWRN+3
FILE^DIE	AT2+3, KADXO+3
^DIK	KPADX+4, KPADX+6, KOADX+4, KOADX+6
^DIR	SADXP+4, SADXO+4
FILE^SROCDX1	KADXP+3
UPDATE^SROCDX1	KADXP+3

Name	Line Occurrences (* Changed, ! Killed)
^SRO(136 - [#136]	PRLOOP+1, PRLOOP+2, PRLOOP+4, OTLOOP+1, OTLOOP+2, OTLOOP+3, OTLOOP+5, SADXP+2, KADXP+2, KADXP+3 , AT2+2, SADXO+2, KADXO+2, KPADX+3, KOADX+3

Name	Line Occurrences
$$OTLOOP	DELASOC+3, DELASOC+5
$$PRLOOP	DELASOC+3, DELASOC+5
AT2	KADXP+2
DELASOC	PRINASOD+1
KADXO	SADXO+5
KADXP	SADXP+5
KOADX	OTLOOP+4
KPADX	PRLOOP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D0	PRINASOD+1~*
DA	DELASOC+2, SADXP+2, KADXP+2, AT2+2, SADXO+2, KADXO+2, KPADX+1~, KPADX+4, KPADX+6, KOADX+1~ , KOADX+4, KOADX+6
DA(1	DELASOC+2, SADXO+2, KADXO+2, KPADX+2, KPADX+3, KPADX+4, KPADX+6, KOADX+4, KOADX+6*
DA(2	KOADX+2, KOADX+3, KOADX+4, KOADX+6*
DIK	KPADX+1~, KPADX+4, KPADX+6, KOADX+1~, KOADX+4, KOADX+6
DIR	DELASOC~, SADXP+1~, SADXO+1~
DIR("A"	SADXP+3, SADXO+3
DIR("B"	SADXP+4, SADXO+4
DIR(0	SADXP+4, SADXO+4
>> DTOUT	SADXP+4, SADXO+4
>> DUOUT	SADXP+4, SADXO+4
OTH	OTLOOP~, OTLOOP+1, OTLOOP+2, OTLOOP+3, OTLOOP+4, OTLOOP+5
SRASSD	KADXP+1~, KADXP+3*
SRC	DELWRN~, DELWRN+3
SRC(1	DELWRN+1*
SRC(2	DELWRN+2*
SRCHK	PRLOOP~, PRLOOP+3, OTLOOP~, OTLOOP+4
SRCN	KPADX~, KPADX+2, KPADX+4, KPADX+6, KOADX~, KOADX+2, KOADX+4, KOADX+6
SRDA	OTLOOP~, OTLOOP+2, OTLOOP+3, OTLOOP+4, OTLOOP+5, AT2+1~, AT2+2, AT2+3, KADXO+1~, KADXO+2* , KADXO+3
SRDA(1	KADXO+2*, KADXO+3
SRDO	SCOND+1~, SCOND+2, SCOND+3, KCOND+1~, KCOND+2, KCOND+3
SRDX	PRLOOP~, PRLOOP+1, PRLOOP+2, PRLOOP+3, PRLOOP+4
SRFDA	KADXP+1~, KADXP+3*
>> SRI	PRLOOP+1*
SRIENF	KADXP+1~, KADXP+3*
SRIENU	KADXP+1~, KADXP+3*
SRJ	AT2+1~, AT2+2, AT2+3, KADXO+1~, KADXO+2, KADXO+3
SRMATCH	PRLOOP~, PRLOOP+5, PRLOOP+6, OTLOOP~, OTLOOP+6, OTLOOP+7
>> SRNEW	PRLOOP+4, OTLOOP+5
SROT	DELASOC~, DELASOC+3, DELASOC+4, DELASOC+5
SRPDA	KPADX~, KPADX+3, KPADX+5, KPADX+6, KOADX~, KOADX+3, KOADX+5, KOADX+6
SRPR	DELASOC~, DELASOC+3, DELASOC+4, DELASOC+5
SRREC	KOADX~, KOADX+3, KOADX+4, KOADX+6
SRTN	PRLOOP+1, PRLOOP+2, PRLOOP+3, PRLOOP+4, OTLOOP+1, OTLOOP+2, OTLOOP+3, OTLOOP+4, OTLOOP+5, DELASOC+2* , PRINASOD, KADXP+1~, KADXP+2*, KADXP+3
SRX1	KPADX+1~, KPADX+2, KPADX+3, KPADX+4, KOADX+1~, KOADX+2, KOADX+3, KOADX+4
SRXBAK	DELASOC~, DELASOC+1*, DELASOC+5
SRXX	PRLOOP~, PRLOOP+3, OTLOOP~, OTLOOP+4
SRY	AT2+1~, KADXO+1~
SRY(	AT2+3, KADXO+3
U	KADXP+2, KADXP+3
>> X	PRLOOP, PRLOOP+2, PRLOOP+3, OTLOOP, OTLOOP+3, OTLOOP+4, DELASOC+1, DELASOC+5*, PRINASOD
X1	SCOND~, KCOND~
X1(1	SCOND+2
X2	SCOND~, KCOND~
X2(1	SCOND+2, KCOND+2
Y	DELASOC~, SADXP+1~, SADXP+4, SADXP+5, SADXO+1~, SADXO+4, SADXO+5, KPADX+1~, KOADX+1~

Customize PDF page

Package: Surgery

Routine: SROCDX2

Call Graph Total: 5

Caller Graph Total: 3