Routine: SROADX1

Package	Total	Call Graph
VA Fileman	4	EN^DDIOL YN^DICN (FILE,UPDATE)^DIE ^DIR
DRG Grouper	3	$$ICDDX^ICDCODE ($$CPT,$$CPTD)^ICPTCOD $$MOD^ICPTMOD
Surgery	2	(ADXCHK,KOADX,KPADX)^SROADX2 (,SSOTH)^SROCPT

Package	Total	Caller Graph
Surgery	6	SROADX SROADX2 SROVER SROVER1 SROVER2 SROVER3

Entry Points

External References

Name	Field # of Occurrence
EN^DDIOL	SRCWRT
YN^DICN	PDELALL+2, PDEL1+11, ODEL1+10
FILE^DIE	FILE+2
UPDATE^DIE	UPDATE+2
^DIR	CONT+3
$$ICDDX^ICDCODE	ICDSTR+1
$$CPT^ICPTCOD	COTHBLD+5, CPTDISP+1
$$CPTD^ICPTCOD	OTHCPTD+5
$$MOD^ICPTMOD	OTHCPTD+11, CPTDISP+9
ADXCHK^SROADX2	PADXD+2
KOADX^SROADX2	OADDALL, OADD1+3
KPADX^SROADX2	PADDALL+1, PADD1+3, PDELALL+3
^SROCPT	CPTDISP+3
SSOTH^SROCPT	COTHBLD+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,SRMSG,! Line Location: OTHADX+9
Function Call: WRITE	Prompt: !,?5,SRMSG Line Location: ASDX+10
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: ! Line Location: ADXDISP+8
Function Call: WRITE	Prompt: !,?3,"Other Procedures:",!!,OTHCNT,"." Line Location: OTHCPTD+2
Function Call: WRITE	Prompt: ?3,$P(SRSEL(SRDA),U,2),!,?2,"Other ",$P(SRSEL(SRDA),U,3) Line Location: OTHCPTD+4
Function Call: WRITE	Prompt: !,?4,SRDES(I) Line Location: OTHCPTD+5
Function Call: WRITE	Prompt: !,?3,"Modifiers: " Line Location: OTHCPTD+6
Function Call: WRITE	Prompt: ! Line Location: CPTDISP+0
Function Call: WRITE	Prompt: " CPT Code: "_Y_" ",Z,!," Description:" Line Location: CPTDISP+3
Function Call: WRITE	Prompt: ! Line Location: CPTDISP+3
Function Call: WRITE	Prompt: ! Line Location: CPTDISP+3
Function Call: WRITE	Prompt: !,?3,"Principal CPT Code: "_Y_" ",!,?3,"Description:",Z,!,?3,"Modifiers: " Line Location: CPTDISP+4
Function Call: WRITE	Prompt: !,"Are you sure you want to DELETE ALL Associated Diagnoses ? (Y/N) " Line Location: PDELALL+0
Routine Call	DIE Line Location: UPDATE+2
Routine Call	DIE Line Location: FILE+2
Routine Call	DIR Line Location: CONT+3

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$ICDSTR	AASDX+3, PASSDIAG+3, ASSDIAG+4
$$SRDIAGS	ASSDIAG+8, ASSDIAG+11
AASDX	OTHADX+5, ASDX+7
ADXDISP	OTHADX+8, ASDX+9
ASDX	PADXD+5
ASSDIAG	OTHADX+11, ASDX+12
CONT	SRCWRT+1
COTHBLD	OTHCPTD+3
FILE	PADXD+4, PADDALL+5, PADDALL+7, PADD1+4, PADD1+9, PDEL1+12, ODEL1+11, OADDALL+4, OADD1+10, OADD1+16
OTHADX	OTHADXD+3
PASSDIAG	OTHADX+10, ASDX+11
SRCWRT	PDEL1+8
UPDATE	PADXD+4, PADDALL+5, PADDALL+7, PADD1+4, PADD1+9, OADDALL+4, OADD1+10, OADD1+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PDELALL+2, PDELALL+3, PDEL1+11, PDEL1+12, ODEL1+10*, ODEL1+11
ADCNT	PASSDIAG~, ASSDIAG+1, ASSDIAG+2, ASSDIAG+3, ASSDIAG+5, ASSDIAG+6, ASSDIAG+8, SRODIR+2, SRODIR+3, SRODIR+5 , ADXKILL!
CPT	COTHBLD~, COTHBLD+4, COTHBLD+5, COTHBLD+6
CPT1	COTHBLD~, COTHBLD+4, COTHBLD+5, COTHBLD+6, OTHCPTD+5*
>> D0	OASSDS+2, OASSDS+3
DA	PADDALL+1, PADDALL+2~, PADD1+1~, PDELALL+3
DIE	PADDALL+2~, PADD1+1~
>> DIK	PADDALL, PDELALL+3, OADDALL
DIR	CONT~
DIR("A"	SRODIR+1, SRODIR+4, SRODIR+5, SRODIR+6, CONT+2*
DIR(0	CONT+1*
DR	PADDALL+2~, PADD1+1~
>> DTOUT	SRCWRT+2
>> I	SRDIAGS+3, ADXDISP+3, ADXDISP+5, ADXDISP+6, ADXDISP+7, ADXDISP+8, ADXDISP+9, ADXDISP+10, OTHCPTD+5, CPTDISP+3
IOST	PADDALL, PDELALL+3, OADDALL
OTH	OTHADX+3, OTHADX+4, OTHADX+9, COTHBLD~, COTHBLD+1, COTHBLD+2, COTHBLD+3, COTHBLD+4, COTHBLD+5, COTHBLD+6 , OTHADXD+1, OTHCPTD+5*, OTHCPTD+8, OTHCPTD+9, ODEL1+2, ODEL1+7, OADDALL, OADDALL+2, OADDALL+4, OADD1+2 , OADD1+3, OADD1+4, OADD1+5, OADD1+9, OADD1+10, OADD1+16
>> OTHCNT	OTHCPTD+2
>> OTHER	COTHBLD+3*, COTHBLD+6
PADX	PADDALL+2~, PADDALL+6, PADDALL+7, OADDALL+1~, OADDALL+3, OADDALL+4
REC	PADD1+1~, PDEL1~, ADXKILL+1!
REC(	PDEL1+2, PDEL1+7, PDEL1+9, ODEL1+2, ODEL1+7
SRADCNT	ASSDIAG~
SRADIAG	PASSDIAG+1!
SRADIAG(	ASSDIAG+6*, PADD1+4, PADD1+9, OADDALL+4, OADD1+8, OADD1+9, OADD1+10, OADD1+16
SRADIAG(1	PASSDIAG+3, PASSDIAG+4
SRADX	PASSDIAG+1!, ADXKILL+1!
SRADX(	ASSDIAG+4*
SRADX(1	PASSDIAG+3*
SRASDX	ADXKILL+1!
SRASSD	OTHADX+1!, OTHADX+4, ASDX~, ASDX+6, AASDX+1, AASDX+2, AASDX+5, AASDX+6, PASSDIAG~, ASSDIAG+1* , OTHADXD~, PADXD+4, PADDALL+2~, PADDALL+4, PADDALL+7, PADD1+1~, PADD1+4, PADD1+9, UPDATE+1, FILE+1 , PDEL1~, PDEL1+9, ODEL1~, ODEL1+7, OADDALL+4, OADD1~, OADD1+10, OADD1+16
SRASSDS	PASSDS~, PASSDS+1, PASSDS+5, PASSDS+6, OASSDS~, OASSDS+1, OASSDS+5, OASSDS+6
SRC	PADD1+1~, PDEL1~, PDEL1+8!, SRCWRT
SRC(1	PDEL1+8, SRCMSG+1
SRC(2	SRCMSG+2*
SRCNT	ASSDIAG+1, ASSDIAG+4, ASSDIAG+5, ASSDIAG+6, ASSDIAG+9, ASSDIAG+10, ASSDIAG+11, SRODIR~, SRODIR+2, SRODIR+5 , COTHBLD~, COTHBLD+1, COTHBLD+6, COTHBLD+7
SRCNTR	PASSDIAG~, SRODIR~, SRODIR+2, SRODIR+4, SRODIR+5, SRODIR+6, PADDALL+4, PADDALL+7, PADD1+4, PADD1+9 , OADD1~, OADD1+1, OADD1+2, OADD1+4, OADD1+10, OADD1+11, OADD1+16, OADD1+17*
SRCNTRN	PADDALL+2~
SRCOMMA	OTHADXD~, PADXD~, ADXKILL!
>> SRCPT	COTHBLD+5*
SRDA	COTHBLD~, COTHBLD+5*, OTHCPTD+4, OTHCPTD+5
SRDCNT	ASSDIAG~
SRDES	OTHCPTD+5!
SRDES(	OTHCPTD+5
SRDES(0	OTHCPTD+5
SRDGCNT	SRDIAGS~, SRDIAGS+1, SRDIAGS+3
SRDIAGS	SRDIAGS~, SRDIAGS+1, SRDIAGS+2, SRDIAGS+3*, SRDIAGS+4, ADXKILL!
SRDIRX	PASSDIAG+1!, ASSDIAG+10, ADXKILL+1!
SRDIRX(	ASSDIAG+4, ASSDIAG+5, ASSDIAG+9*, SRODIR+3, SRODIR+5, OADD1+6, OADD1+12
SRDIRX(1	PASSDIAG+3, PASSDIAG+4
>> SRDX	SRCMSG*, SRCWRT+3
>> SRDX1	ADXDISP+11, ADXDISP+12
>> SRDX2	ASSDIAG+7, ASSDIAG+10, ASSDIAG+11*, PADD1+6, OADD1+13
SRDXCNT	ADXDISP+2, ADXDISP+10, ADXDISP+11, ADXDISP+12, PDEL1+4, ODEL1+4, ADXKILL!
SRFDA	PADXD+4, PADDALL+3, PADD1+4, PADD1+9, UPDATE+1, FILE+1, PDEL1+3, ODEL1+3, OADDALL+1~, OADDALL+2* , OADD1+5*
SRFIRST	ASDX~, ASDX+2, OTHCPTD~, OTHCPTD+1, OTHCPTD+10, OTHCPTD+12, CPTDISP+8, CPTDISP+10
SRFLG	PASSDIAG~, SRODIR~, SRODIR+2, SRODIR+5, SRCWRT+4*
SRI	OTHADX+3, OTHADX+6, ASDX~, ASDX+2, ASDX+3, ASDX+5, ASDX+8, PASSDS+2, OASSDS+2, OTHCPTD~ , OTHCPTD+7, OTHCPTD+8, OTHCPTD+9
SRICD9	ASDX~, AASDX+1, AASDX+2, AASDX+3, AASDX+4, PASSDIAG~, PASSDIAG+2, PASSDIAG+3, PASSDIAG+4, ASSDIAG+3 , ASSDIAG+4, ASSDIAG+5, ICDSTR+1, OTHADXD~, PADXD~, PADDALL+2~, PADDALL+4, PADDALL+7, PDEL1~, OADDALL+1~ , ADXKILL!
SRICDSTR	ICDSTR~, ICDSTR+1*, ICDSTR+2
SRIENF	PADXD+4, PADDALL+2~, PADDALL+4, PADDALL+7, PADD1+4, PADD1+9, FILE+1, PDEL1+9, ODEL1+7, OADDALL+1~ , OADDALL+4, OADD1+10, OADD1+16
SRIENU	PADXD+4, PADDALL+2~, PADDALL+3, PADD1+4, PADD1+9, UPDATE+1, OADDALL+1~, OADDALL+2, OADD1+5
SRM	ASDX+3, OTHCPTD~, OTHCPTD+9, OTHCPTD+11
>> SRMO	CPTDISP+7*, CPTDISP+9
>> SRMOD	CPTDISP+5, CPTDISP+6, CPTDISP+7
SRMSG	OTHADX+9, ASDX+10, OTHADXD+1, ADXKILL+1!
SROADX	OTHADXD~
SROADX1	OTHADXD~
SROANS	ADXKILL+1!
SROCNTR	OTHADX+2, OTHADX+6, OTHADX+7, ASDX+4, ASDX+8, PADXD+1, ADXDISP~, ADXDISP+2, ADXDISP+3, ADXDISP+7 , ADXDISP+8, ADXDISP+9, ADXKILL!
SROCPT2	CPTDISP+1*, ADXKILL!
SRODIR	ADXKILL+1!
SRODIR("A"	SRODIR+6
SROFLG	ADXKILL!
SROICD	OTHADX+1!, OTHADX+6, ASDX+8, AASDX, AASDX+3, AASDX+5, AASDX+6
SROODX	OTHADXD~
SROPRIN	PADXD~
SRPADX	OTHADX+2, OTHADX+3, OTHADX+4, ASDX~, ASDX+4, ASDX+5, ASDX+6, PASSDS~, PASSDS+1, PASSDS+2 , PASSDS+3, OASSDS~, OASSDS+1, OASSDS+2, OASSDS+3, PADXD~, PADXD+1*, ADXKILL+1!
SRPDX	PADXD~
SRPDX1	PADXD~
SRPRIN	ASDX~
SRPX	PASSDS~, PASSDS+3, PASSDS+4, PASSDS+5, OASSDS~, OASSDS+3, OASSDS+4, OASSDS+5
SRQ	ASSDIAG~
>> SRSDATE	ICDSTR+1
SRSEL	COTHBLD!
SRSEL(	COTHBLD+6*, OTHCPTD+4, OTHCPTD+5
>> SRSHT	COTHBLD+5*
SRSUB	OTHADXD~, OTHADXD+2, PADXD~, PADXD+1, ADXDISP+4, ADXDISP+9
SRTMP	OTHADX+1!, ASDX+1!, ADXKILL!
SRTMP(	OTHADX+6, ASDX+8, ADXDISP+3, ADXDISP+7, ADXDISP+8, ADXDISP+9, PDEL1+10, ODEL1+8, ODEL1+9
>> SRTN	OTHADX+3, OTHADX+4, OTHADX+9, ASDX+3, ASDX+5, ASDX+6, ASDX+10, AASDX+1, AASDX+2, AASDX+5 , AASDX+6, PASSDIAG+2, PASSDIAG+4, ASSDIAG+2, ASSDIAG+3, ASSDIAG+5, SRDIAGS+2, SRDIAGS+3, PASSDS+2, PASSDS+3 , OASSDS+2, OASSDS+3, COTHBLD+2, COTHBLD+3, COTHBLD+4, OTHADXD+1, PADXD+3, PADXD+4, OTHCPTD+8, OTHCPTD+9 , CPTDISP, CPTDISP+6, CPTDISP+7, PADDALL+3, PADDALL+4, PADDALL+7, PADD1+3, PADD1+4, PADD1+9, PDEL1+2 , PDEL1+8, PDEL1+9, ODEL1+2, ODEL1+7, OADDALL, OADDALL+2, OADDALL+4, OADD1+2, OADD1+3, OADD1+4 , OADD1+5, OADD1+9, OADD1+10, OADD1+16
SRY	CPTDISP+1, PADDALL+2~, PADD1+1~, PDEL1~, PDEL1+1, PDEL1+2, ODEL1~, ODEL1+1, ODEL1+2*, OADDALL+1~ , OADD1~
SRY(0	PADDALL+3, PADDALL+8, PADD1+2, PADD1+4, PADD1+5, PADD1+7, PADD1+10, PDELALL+1, PDELALL+4, PDEL1+3* , PDEL1+5, PDEL1+13, ODEL1+3, ODEL1+5, ODEL1+12, OADDALL+2, OADDALL+5, OADD1+1*, OADD1+14, OADD1+18
SRY0	PADD1+1~, PADD1+7, PADD1+8, PADD1+9, PDEL1+1, PDEL1+2, PDEL1+5, PDEL1+6, PDEL1+7, PDEL1+8 , PDEL1+9, PDEL1+10, ODEL1~, ODEL1+1, ODEL1+2, ODEL1+5, ODEL1+6, ODEL1+7, ODEL1+8, ODEL1+9 , OADD1~, OADD1+7, OADD1+8, OADD1+9, OADD1+10, OADD1+14, OADD1+15, OADD1+16
SRY1	PADDALL+2~, PADDALL+5!, PADDALL+7!, PADD1+1~, FILE+3!, PDEL1~, ODEL1~, OADDALL+1~, OADDALL+4!, OADD1~ , OADD1+10!, OADD1+16!
SRY1(	UPDATE+1, FILE+1
SRY2	PADD1+1~, PADD1+6, PADD1+7, PDEL1~, PDEL1+4, PDEL1+5, ODEL1~, ODEL1+4, ODEL1+5, OADD1~ , OADD1+13, OADD1+14
U	ASDX+3, AASDX+1, AASDX+2, AASDX+5, AASDX+6, PASSDIAG+2, PASSDIAG+3, PASSDIAG+4, ASSDIAG+3, ASSDIAG+4 , ASSDIAG+5, SRDIAGS+2, ICDSTR+1, COTHBLD+3, COTHBLD+4, COTHBLD+5, COTHBLD+6, PADXD+3, OTHCPTD+4, OTHCPTD+5 , OTHCPTD+9, CPTDISP, CPTDISP+1, CPTDISP+7, PADDALL+4, PADDALL+7, PADD1+9, PDEL1+8, OADD1+2
X	COTHBLD~, COTHBLD+4, COTHBLD+5, OTHCPTD+5, CPTDISP, CPTDISP+1, SRCMSG, SRCWRT+3
>> Y	COTHBLD+5, CPTDISP+1, CPTDISP+2*, CPTDISP+3, CPTDISP+4, OADD1+6, OADD1+12
>> Y(0	PADDALL+3, PADDALL+8, PADD1+2, PADD1+10, PDELALL+1, PDELALL+4, PDEL1+3, PDEL1+13, ODEL1+3, ODEL1+12* , OADDALL+2, OADDALL+5, OADD1+1, OADD1+18
>> Z	CPTDISP+1, CPTDISP+2, CPTDISP+3, CPTDISP+4

Customize PDF page

Package: Surgery

Routine: SROADX1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ASSDIAG
CONT
PADXD
OTHADXD
OADDALL
ADXDISP
FILE	;
SRDIAGS()
PDELALL
OASSDS()
AASDX
PASSDS()
PADD1	;PRIN ADX
COTHBLD
ADXKILL
PASSDIAG
ASDX
ICDSTR()
UPDATE	;
PADDALL
ODEL1
SRCMSG
OTHCPTD
SRODIR
PDEL1
CPTDISP
OTHADX	;Display ASDX for OTHER PROCS
SRCWRT
OADD1