Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SROADX1

Package: Surgery

Routine: SROADX1


Information

SROADX1 ;BIR/RJS - CONTINUED FROM SROADX ASSOCIATED DIAGNOSIS FOR CODER AND VERIFY SCREENS ;09/12/05 12:01pm

Source Information

Source file <SROADX1.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 6

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

Entry Points

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

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All