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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SROADX2

Package: Surgery

Routine: SROADX2


Information

SROADX2 ;BIR/RJS - ASSOCIATED DIAGNOSIS FOR CODER AND VERIFY SCREENS ;09/12/05 12:01pm

Source Information

Source file <SROADX2.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROADX  SROADX1  

Entry Points

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)

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