Routine: SROCDX1

Package	Total	Call Graph
VA Fileman	2	(FILE,UPDATE)^DIE ^DIR
DRG Grouper	1	$$ICDDX^ICDCODE
Surgery	1	(KOADX,KPADX)^SROCDX2

Package	Total	Caller Graph
Surgery	4	SROCD0 SROCD2 SROCDX SROCDX2

Entry Points

External References

Name	Field # of Occurrence
FILE^DIE	FILE+1
UPDATE^DIE	UPDATE+2
^DIR	CONT
$$ICDDX^ICDCODE	ICDSTR+1
KOADX^SROCDX2	OADD1+3
KPADX^SROCDX2	PADD1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "NOT ENTERED",! Line Location: OTHADX+7
Function Call: WRITE	Prompt: !,?5,SRMSG Line Location: ASDX+7
Function Call: WRITE	Prompt: !,?5,SRMSG Line Location: OTHADXD+1
Function Call: WRITE	Prompt: !,?5,"Assoc. DX: " Line Location: ADXDISP+1
Function Call: WRITE	Prompt: ?16 Condition for execution: I#2 Line Location: ADXDISP+5
Function Call: WRITE	Prompt: $E(SRTMP(SROCNTR),1,28) Line Location: ADXDISP+5
Function Call: WRITE	Prompt: ! Line Location: ADXDISP+6
Function Call: WRITE	Prompt: ?16,$E(SRTMP(SROCNTR),1,28) Line Location: ADXDISP+7
Routine Call	DIE Line Location: UPDATE+2
Routine Call	DIE Line Location: FILE+1
Routine Call	DIR Line Location: CONT

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD9 - [#80]	PASSDIAG+2, ASSDIAG+4
^SRF - [#130]	SRDIAGS+1, SRDIAGS+2
^SRO(136 - [#136]	OTHADX+2, OTHADX+3, OTHADX+7, ASDX+2, ASDX+3, ASDX+4, ASDX+7, AASDX+1, AASDX+2, PASSDIAG+1 , PASSDIAG+2, ASSDIAG+2, ASSDIAG+3, ASSDIAG+5, ASSDIAG+6, PASSDS+1, PASSDS+2, OASSDS+1, OASSDS+2, OTHADXD+1 , PADXD+2, PADXD+3, PADD1+9, OADD1+2, OADD1+4

Label References

Name	Line Occurrences
$$ICDSTR	OTHADX+4, ASDX+5, AASDX+3, PASSDIAG+2, ASSDIAG+4
ADXDISP	OTHADX+7, ASDX+7
ASDX	PADXD+4
ASSDIAG	OTHADX+8, ASDX+8
FILE	PADXD+3, PADD1+4, PADD1+9, OADD1+9
OTHADX	OTHADXD+2
PASSDIAG	OTHADX+8, ASDX+8
UPDATE	PADXD+3, PADD1+4, PADD1+9, OADD1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADCNT	PASSDIAG~, ASSDIAG+1, ASSDIAG+2, ASSDIAG+3, ASSDIAG+5, ASSDIAG+6
DA	PADD1+1~
DIE	PADD1+1~
DIR	CONT~
DIR("A"	CONT*
DIR(0	CONT*
DR	PADD1+1~
>> I	SRDIAGS+2, ADXDISP+3, ADXDISP+5, ADXDISP+6, ADXDISP+8
>> OTH	OTHADX+2, OTHADX+3, OTHADX+7, OTHADXD+1, OADD1+2, OADD1+3, OADD1+4, OADD1+5, OADD1+9
REC	PADD1+1~
SRADCNT	ASSDIAG~
SRADIAG	PASSDIAG+1!
SRADIAG(	ASSDIAG+6*, PASSDS+3, OASSDS+3, PADD1+4, PADD1+9, OADD1+9
SRADIAG(1	PASSDIAG+2, PASSDIAG+3
SRADX	PASSDIAG+1!
SRADX(	ASSDIAG+4*
SRADX(1	PASSDIAG+2*
SRASSD	OTHADX+1~, ASDX+1~, AASDX+1, AASDX+2, PASSDIAG~, ASSDIAG+1, OTHADXD~, PADXD+3, PADD1+1~, PADD1+4* , PADD1+9, OADD1~, OADD1+9, UPDATE+1, FILE+1
SRASSDS	PASSDS~, PASSDS+1, PASSDS+4, PASSDS+5, OASSDS~, OASSDS+1, OASSDS+4, OASSDS+5
SRC	PADD1+1~
>> SRCNT	ASSDIAG+1, ASSDIAG+4, ASSDIAG+5, ASSDIAG+6, ASSDIAG+8
SRCNTR	PASSDIAG~, PADD1+4, PADD1+9, OADD1~, OADD1+1, OADD1+2, OADD1+4, OADD1+9, OADD1+10
SRCOMMA	OTHADXD~, PADXD~
SRDCNT	ASSDIAG~
SRDGCNT	SRDIAGS~, SRDIAGS+1, SRDIAGS+2
SRDIAGS	SRDIAGS~, SRDIAGS+1, SRDIAGS+2, SRDIAGS+3
SRDIRX	PASSDIAG+1!, ASSDIAG+8
SRDIRX(	ASSDIAG+4, ASSDIAG+5
SRDIRX(1	PASSDIAG+2, PASSDIAG+3, ASSDIAG+1
SRDX	PASSDS~, PASSDS+2, PASSDS+3, OASSDS~, OASSDS+2, OASSDS+3
>> SRDX1	ADXDISP+8*
>> SRDX2	ASSDIAG+8*, PADD1+6, OADD1+6
>> SRDXCNT	ADXDISP+2, ADXDISP+8
>> SRFDA	PADXD+3, PADD1+4, PADD1+9, OADD1+5, UPDATE+1, FILE+1
SRFIRST	ASDX+1~, ASDX+2, ADXDISP+1~, ADXDISP+2, ADXDISP+7*
SRFLG	PASSDIAG~
SRI	OTHADX+2, OTHADX+5, ASDX+1~, ASDX+2, ASDX+3*, ASDX+6, PASSDS~, OASSDS~
SRICD9	OTHADX+3, OTHADX+4, ASDX+1~, ASDX+4, ASDX+5, AASDX+1, AASDX+2, AASDX+3, PASSDIAG~, PASSDIAG+1* , PASSDIAG+2, PASSDIAG+3, ASSDIAG+3*, ASSDIAG+4, ASSDIAG+5, ICDSTR+1, OTHADXD~, PADXD~
SRICDSTR	ICDSTR~, ICDSTR+1*, ICDSTR+2
>> SRIENF	PADXD+3, PADD1+4, PADD1+9, OADD1+9, FILE+1
>> SRIENU	PADXD+3, PADD1+4, PADD1+9, OADD1+5, UPDATE+1
SRJ	PASSDS~, PASSDS+3, OASSDS~, OASSDS+3
>> SRM	ASDX+2*
>> SRMSG	ASDX+7, OTHADXD+1
SROADX	OTHADXD~
SROADX1	OTHADXD~
SROCNTR	OTHADX+2, OTHADX+5, OTHADX+6, ASDX+3, ASDX+6, PADXD+1, ADXDISP~, ADXDISP+2, ADXDISP+3, ADXDISP+5 , ADXDISP+6, ADXDISP+7
SROICD	OTHADX+1~, OTHADX+4, OTHADX+5, ASDX+5, ASDX+6, AASDX, AASDX+3
SROODX	OTHADXD~
SROPRIN	PADXD~
SRPADX	OTHADX+2, OTHADX+3, ASDX+1~, ASDX+3, ASDX+4, PASSDS~, PASSDS+1, PASSDS+2, OASSDS~, OASSDS+1 , OASSDS+2, PADXD~, PADXD+1*
SRPDX	PADXD~
SRPDX1	PADXD~
>> SRPOTH	OASSDS+1, OASSDS+2
SRPRIN	ASDX+1~
SRPX	PASSDS~, PASSDS+3, PASSDS+4, OASSDS~, OASSDS+3, OASSDS+4
SRQ	ASSDIAG~
>> SRSDATE	ICDSTR+1
SRSUB	OTHADXD~, OTHADXD+2, PADXD~, PADXD+1, ADXDISP+4, ADXDISP+7
SRTMP	OTHADX+1~, ASDX+1!
SRTMP(	OTHADX+5, ASDX+6, ADXDISP+3, ADXDISP+5, ADXDISP+6, ADXDISP+7
>> SRTN	OTHADX+2, OTHADX+3, OTHADX+7, ASDX+2, ASDX+3, ASDX+4, ASDX+7, AASDX+1, AASDX+2, PASSDIAG+1 , PASSDIAG+2, ASSDIAG+2, ASSDIAG+3, ASSDIAG+5, ASSDIAG+6, SRDIAGS+1, SRDIAGS+2, PASSDS+1, PASSDS+2, OASSDS+1 , OASSDS+2, OTHADXD+1, PADXD+2, PADXD+3, PADD1+3, PADD1+4, PADD1+9, OADD1+2, OADD1+3, OADD1+4 , OADD1+5, OADD1+9
SRY	PADD1+1~, OADD1~
SRY(0	PADD1+2, PADD1+4, PADD1+5, PADD1+7, PADD1+10, OADD1+1*, OADD1+7, OADD1+11
SRY0	PADD1+1~, PADD1+7, PADD1+8, PADD1+9, OADD1~, OADD1+7, OADD1+8, OADD1+9
SRY1	PADD1+1~, OADD1~, OADD1+9!, FILE+1!
SRY1(	UPDATE+1, FILE+1
SRY2	PADD1+1~, PADD1+6, PADD1+7, OADD1~, OADD1+6, OADD1+7
U	ASDX+2, AASDX+1, AASDX+2, PASSDIAG+1, PASSDIAG+2, ASSDIAG+3, ASSDIAG+4, ASSDIAG+5, ASSDIAG+6, ICDSTR+1 , PADXD+2, PADXD+3, PADD1+9, OADD1+2
>> Y(0	PADD1+2, PADD1+10, OADD1+1, OADD1+11

Customize PDF page

Package: Surgery

Routine: SROCDX1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ASDX	;Display ASDX for PRIN Procs
ASSDIAG
OASSDS()
CONT
FILE	;
OTHADXD
OTHADX	;Display ASDX for OTHER PROCS
ICDSTR()
AASDX
PASSDS()
ADXDISP
UPDATE	;
PADXD
PADD1	;PRIN ADX
OADD1
SRDIAGS()
PASSDIAG