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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROACOD

Package: Surgery

Routine: SROACOD


Information

SROACOD ;BIR/SJA - ALERT CODERS OF POTENTIAL CODING ISSUES ;04/18/06

Source Information

Source file <SROACOD.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA Fileman 6 DD^%DT  NOW^%DTC  EN^DDIOL  $$GET1^DIQ  ^DIR  EN^DIWE  
Surgery 5 (,HDR)^SROAUTL  SSPRIN^SROCPT0  ^SROPS  OTH^SROUTLN  ^SRSKILL  
DRG Grouper 2 $$ICDDX^ICDCODE  $$CPT^ICPTCOD  
MailMan 1 ^XMD  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROA CODE ISSUE  

Entry Points

Name Comments DBIA/ICR reference
END
ERR ;The Coding Issue Alert cannot be created at this time
ED
ASK
START
MSG

External References

Name Field # of Occurrence
DD^%DT MSG+3
NOW^%DTC MSG+16
EN^DDIOL ERR+1, ERR+2, ERR+3, ERR+4, ERR+5, ERR+6
$$GET1^DIQ MSG+15
^DIR ED+4, ASK, ERR+7
EN^DIWE ED
$$ICDDX^ICDCODE START+8
$$CPT^ICPTCOD START+3
^SROAUTL SROACOD+4
HDR^SROAUTL START+1
SSPRIN^SROCPT0 START+3
^SROPS SROACOD+2
OTH^SROUTLN START+6
^SRSKILL END
DEM^VADPT MSG+6
^XMD MSG+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The following ""final"" codes have been entered for the case.",!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: "Principal CPT Code: ",$S($L(X):X,1:"NOT ENTERED")
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"Other CPT Codes: "_$S(SRPROC(1)="":" NOT ENTERED",1:"")
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,"If you believe that the information coded is not correct and would like to",!,"alert the coders of the potential issue, enter a brief description of your",!,"concern below.",!
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: !,"NOTE: You have exited the field without entering comments. ",!
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+2
Function Call: WRITE
  • Prompt: !!,"Transmitting message..."
  • Line Location: MSG+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ERR+7
Routine Call
  • DIR
  • Line Location:
    • ED+4
    • ASK
    • ERR+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XMB(3.8 - [#3.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" MSG+16
^SRF - [#130] START+8, MSG+1
^SRO(133 - [#133] MSG, MSG+15
^SRO(136 - [#136] START+3, START+8, MSG, MSG+13
^TMP($J START+12!, ED+1, MSG+12, MSG+17!

Label References

Name Line Occurrences
ASK START+11
ED ED+5
END SROACOD+2, START, START+11, ED+4, MSG
ERR MSG

Naked Globals

Name Field # of Occurrence
^( MSG+12, MSG+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MSG+16
>> DFN MSG+6*
>> DIC ED*
DIR ED+2!, ED+4!, ASK!, ERR+7!
DIR("?" ED+3*, ED+4*
DIR("A" ED+2*, ASK*, ERR+7*
DIR("B" ED+3*, ASK*
DIR(0 ED+3*, ASK*, ERR+7*
>> DIWESUB ED*
>> DTOUT ED+4
>> DUOUT ED+4
DUZ MSG+14
I SROACOD+3~, START+7*, MSG+9*, MSG+12*, MSG+13*
IOF END
J SROACOD+3~
K START+5~, START+6*
SR MSG+1!
SR( MSG+9*, MSG+10*, MSG+11*, MSG+12*
SR(1 MSG+2*
SR(2 MSG+3*
SR(3 MSG+4*
SR(4 MSG+5*
SR(5 MSG+7*
SR(6 MSG+8*
SRAOTH START!
SRCPTP SROACOD+3~, START+4*, MSG+8
SRL START+5~, START+6*
SRLN SROACOD+3~, MSG+9*, MSG+10*, MSG+11*, MSG+12*
SRNEWOP SROACOD+2!
SRNODE0 SROACOD+3~, MSG+1*, MSG+3, MSG+6
SRPOST SROACOD+3~, START+9*, MSG+10
SRPROC START+5~
SRPROC( START+7, MSG+9
SRPROC(1 START+6*
>> SRSITE MSG, MSG+15
SRSOUT SROACOD+3~, SROACOD+4*, START, START+11, ASK*
SRSUPCPT SROACOD+3~, SROACOD+4*
SRTN SROACOD+2, START+3, START+8, MSG, MSG+1, MSG+2, MSG+13, END!
SRTN("KILL" SROACOD+2*, END
SRTXT SROACOD+3~
>> VADM(1 MSG+2
X SROACOD+3~, START+3*, START+4, START+8*, START+9, MSG+15*
XMSUB MSG+16*, MSG+17!
XMTEXT MSG+17*!
XMY MSG+1!, MSG+17!
XMY( MSG+13*, MSG+14*
XMY("G." MSG+15*
XX SROACOD+3~, MSG+13*
Y SROACOD+3~, START+3*, ED+5, MSG+3*, MSG+16*, ASK
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 |  Naked Globals |  Local Variables |  All