Routine: SROADX2

Package	Total	Call Graph
VA Fileman	3	^DIK $$GET1^DIQ ^DIR
Surgery	1	(SRCMSG,SRCWRT)^SROADX1

Package	Total	Caller Graph
Surgery	2	SROADX SROADX1

Entry Points

External References

Name	Field # of Occurrence
^DIK	KPADX+4, KOADX+4
$$GET1^DIQ	PDXCHK+13, OTHCHK+9
^DIR	PDXCHK+14, PDXCHK+18, OTHCHK+10, DELASOC+8, EDITWARN+7, EDITWARN+10
SRCMSG^SROADX1	MSG+2
SRCWRT^SROADX1	MSG+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PDXCHK+22
Function Call: WRITE	Prompt: ! Line Location: OTHCHK+3
Function Call: WRITE	Prompt: !! Line Location: OTHCHK+10
Function Call: WRITE	Prompt: !! Line Location: EDITWARN+14
Routine Call	DIR Line Location: PDXCHK+14 PDXCHK+18 OTHCHK+10 DELASOC+8 EDITWARN+7 EDITWARN+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
130.18	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	OTHCHK+13, OTHCHK+15, OTHCHK+16, PRLOOP+1, PRLOOP+2, OTLOOP+1, OTLOOP+3, OTLOOP+4, PCPTASO+1, OCPTASO+1 , KPADX+3, KOADX+3, ADXCHK+3, ADXCHK+4, ADXCHK+5, ADXCHK+6, ADXCHK+7, ADXCHK+8, ADXCHK+9, ADXCHK+10 , ADXCHK+11, ADXCHK+12, ADXCHK+13, ADXCHK+14
^TMP($J	PDXCHK+4*, DELASOC+3!, PRINASOD+1!

Label References

Name	Line Occurrences
$$EDITWARN	PCPTASO+2, OCPTASO+2
$$OTLOOP	PDXCHK+16, OTHCHK+4, DELASOC+5, DELASOC+9
$$PRLOOP	PDXCHK+10, PDXCHK+16, PDXCHK+20, DELASOC+5, DELASOC+9
DELASOC	PRINASOD+2
KOADX	OTHCHK+17, OTLOOP+5, OCPTASO+2, ADXCHK+8, ADXCHK+9
KPADX	PRLOOP+3, PCPTASO+2, ADXCHK+13, ADXCHK+14
OTHCHK	PDXCHK+24
PDXCHK	PRINASO+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D0	PDXCHK+1, PDXCHK+2, PDXCHK+3, PDXCHK+13, OTHCHK+9, OTHCHK+16, PRLOOP+2, OTLOOP+4, DELASOC+4, PRINASO+1~* , PRINASOD+2~*, PCPTASO+1, OCPTASO+1
DA	PDXCHK~, OTHCHK~, OTHCHK+12~, OTHCHK+14, OTHCHK+15, OTHCHK+16, PRLOOP+2, OTLOOP+4, DELASOC+2, OCPTASO , OCPTASO+1, OCPTASO+2, EDITWARN+1, EDITWARN+13, KPADX+1~, KPADX+4, KOADX+1~, KOADX+4*
DA(1	DELASOC+1, DELASOC+2, KPADX+2, KPADX+3, KPADX+4, KOADX+4*
DA(2	KOADX+2, KOADX+3, KOADX+4
DIK	KPADX+1~, KPADX+4, KOADX+1~, KOADX+4
DIR	PDXCHK~, PDXCHK+23!, PDXCHK+25!, OTHCHK~, DELASOC~, EDITWARN~
DIR("A"	PDXCHK+8, PDXCHK+11, PDXCHK+12, PDXCHK+17, OTHCHK+5, OTHCHK+7, OTHCHK+8, DELASOC+7, EDITWARN+3, EDITWARN+5 , EDITWARN+6, EDITWARN+9
DIR("B"	PDXCHK+12, PDXCHK+13, PDXCHK+17, OTHCHK+8, OTHCHK+9, EDITWARN+2
DIR(0	PDXCHK+7, OTHCHK+5, DELASOC+7, EDITWARN+2
>> EMILY	MSG+1
OTH	OTHCHK~, OTHCHK+12, OTHCHK+13, OTHCHK+15, OTHCHK+16, OTHCHK+17, OTLOOP~, OTLOOP+1, OTLOOP+3, OTLOOP+4
SRCHK	PRLOOP~, PRLOOP+3, OTLOOP~, OTLOOP+5
SRCN	KPADX~, KPADX+2, KPADX+4, KOADX~, KOADX+2, KOADX+4
SRCODE	PDXCHK~, PDXCHK+9, PDXCHK+15, PDXCHK+24, OTHCHK~, OTHCHK+6, PRINASO~, PRINASO+1!, PCPTASO~, PCPTASO+1 , PCPTASO+2, PCPTASO+3!, OCPTASO~, OCPTASO+1, OCPTASO+2, OCPTASO+3!, EDITWARN~, EDITWARN+4, EDITWARN+8
SRDA	OTLOOP~, OTLOOP+2, OTLOOP+3, OTLOOP+4, OTLOOP+5
>> SRDABAK	EDITWARN+1*, EDITWARN+13
SRDX	PRLOOP~, PRLOOP+1, PRLOOP+2, ADXCHK+1~, ADXCHK+2, ADXCHK+7, ADXCHK+8, ADXCHK+9, ADXCHK+12*, ADXCHK+13
>> SRFLG	MSG
>> SRI	PRLOOP+1*
SRKALL	PDXCHK+7, PDXCHK+19, PDXCHK+25!, OTHCHK+3, OTHCHK+11
SRMATCH	PDXCHK+25!, PRLOOP~, PRLOOP+2, PRLOOP+3, PRLOOP+4, OTLOOP~, OTLOOP+6, OTLOOP+7
SROT	DELASOC~, DELASOC+5, DELASOC+6, DELASOC+9
SRPR	DELASOC~, DELASOC+5, DELASOC+6, DELASOC+9
SRQUIT	PDXCHK~, PDXCHK+7, PDXCHK+18, PDXCHK+22, OTHCHK~, OTHCHK+2, EDITWARN+2
SRREC	KOADX~, KOADX+3, KOADX+4
SRTEMP	PDXCHK~, PDXCHK+20*
SRTN	PDXCHK+2~, PDXCHK+3, PDXCHK+4, PDXCHK+13, OTHCHK+9, OTHCHK+13, OTHCHK+15, OTHCHK+16, OTHCHK+17, PRLOOP+1 , PRLOOP+2, PRLOOP+3, OTLOOP+1, OTLOOP+3, OTLOOP+4, OTLOOP+5, DELASOC+1, DELASOC+2*, DELASOC+3, PRINASO , PRINASOD, PRINASOD+1, PCPTASO, PCPTASO+1, PCPTASO+2, OCPTASO, OCPTASO+1, OCPTASO+2, ADXCHK+3, ADXCHK+4 , ADXCHK+5, ADXCHK+6, ADXCHK+7, ADXCHK+8, ADXCHK+9, ADXCHK+10, ADXCHK+11, ADXCHK+12, ADXCHK+13, ADXCHK+14
SRX	ADXCHK+1~, ADXCHK+3, ADXCHK+4, ADXCHK+5, ADXCHK+6, ADXCHK+7, ADXCHK+8, ADXCHK+9, ADXCHK+10, ADXCHK+11 , ADXCHK+12
SRX1	KPADX+1~, KPADX+2, KPADX+3, KPADX+4, KOADX+1~, KOADX+2, KOADX+3, KOADX+4
SRXBAK	PDXCHK~, PDXCHK+7, PDXCHK+18, PDXCHK+21, OTHCHK~, OTHCHK+2, OTHCHK+18, DELASOC~, DELASOC+5, DELASOC+10 , EDITWARN~, EDITWARN+2, EDITWARN+11, EDITWARN+12, KPADX+1~, KPADX+2, KPADX+5, KOADX+1~, KOADX+2, KOADX+5
SRY	OTHCHK~, EDITWARN~, EDITWARN+12, EDITWARN+15, ADXCHK+1~, ADXCHK+5, ADXCHK+6*, ADXCHK+7
SRYBAK	PDXCHK~, PDXCHK+5, PDXCHK+6, PDXCHK+18, PDXCHK+21, OTHCHK~, OTHCHK+1, OTHCHK+18, EDITWARN~, EDITWARN+1 , EDITWARN+11, EDITWARN+13
SRZ	ADXCHK+1~
U	PDXCHK+11, OTHCHK+7, EDITWARN+5, ADXCHK+9, ADXCHK+14
>> X	PDXCHK+7, PDXCHK+21, OTHCHK+2, OTHCHK+18, DELASOC+5, DELASOC+10, PRINASO, PRINASOD, PCPTASO, PCPTASO+1 , OCPTASO, OCPTASO+1, EDITWARN+2, EDITWARN+12, KPADX+2, KPADX+5, KOADX+2, KOADX+5
>> XQY0	PDXCHK+11, OTHCHK+7, EDITWARN+5
Y	PDXCHK+5, PDXCHK+7, PDXCHK+18, PDXCHK+19, PDXCHK+20, PDXCHK+21, OTHCHK+1, OTHCHK+11, OTHCHK+18, DELASOC~ , EDITWARN+1, EDITWARN+11, EDITWARN+12, EDITWARN+13, KPADX+1~, KOADX+1~

Name	Comments	DBIA/ICR reference
PRINASO(SRCODE)
ADXCHK	; check the validity of associations and remove if diagnosis missing
PRLOOP(SRCHK)
KPADX(SRCN)	; kill all the principal cpt associated diagnosis codes
PRINASOD
EDITWARN(SRCODE)
PDXCHK(SRCODE)
OTLOOP(SRCHK)
DELASOC
OCPTASO(SRCODE)
OTHCHK(SRCODE)
MSG
KOADX(SRCN,SRREC)	; kill other cpt associated diagnosis codes
PCPTASO(SRCODE)

Customize PDF page

Package: Surgery

Routine: SROADX2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: