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 |  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: RCDPEX32

Package: Accounts Receivable

Routine: RCDPEX32


Information

RCDPEX32 ;ALB/TMK - ELECTRONIC EOB EXCEPTION PROCESSING - FILE 344.4 ;Aug 14, 2014@16:27:32

Source Information

Source file <RCDPEX32.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Accounts Receivable 5 (AUDITLOG,SETSTA)^RCDPEAP  $$AUTOCHK2^RCDPEAP1  BLD^RCDPEX2  SEL^RCDPEX3  ($$LOCK,STORACT)^RCDPEX31  
VA FileMan 4 ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Integrated Billing 1 ($$ADD3611,$$DUP,ERRUPD,UPD3611)^IBCEOB  
Kernel 1 $$FMTE^XLFDT  
List Manager 1 (FULL,WAIT)^VALM1  
Outpatient Pharmacy 1 $$RXRLDT^PSOBPSUT  

Entry Points

Name Comments DBIA/ICR reference
EDITNUM ; Edit invalid claim # to valid, refile EOB
EDITNQ
CHGED(DA,RCEOB,RCSAVE,RCBILL) ; Update Invalid Bill # for EOB
; DA = DA and DA(1) to use for DIE call
; RCEOB = the ien of the entry in file 361.1
; RCSAVE = the free text of the original bill #
; RCBILL = Array containing Bill Information
EDITRXC ; Edit pharmacy comment - PRCA*4.5*298

External References

Name Field # of Occurrence
^DIC EDITNUM+35
^DIE EDITNUM+88, EDITNUM+89, CHGED+7, EDITRXC+22
$$GET1^DIQ EDITRXC+10, EDITRXC+20
^DIR EDITNUM+9, EDITNUM+12, EDITNUM+14, EDITNUM+34, EDITNUM+39, EDITNUM+49, EDITNUM+65, EDITNUM+73, EDITNUM+103
$$ADD3611^IBCEOB EDITNUM+68
$$DUP^IBCEOB EDITNUM+58
ERRUPD^IBCEOB EDITNUM+81
UPD3611^IBCEOB EDITNUM+78
$$RXRLDT^PSOBPSUT EDITRXC+14
AUDITLOG^RCDPEAP EDITNUM+98
SETSTA^RCDPEAP EDITNUM+95
$$AUTOCHK2^RCDPEAP1 EDITNUM+93
BLD^RCDPEX2 EDITNQEDITRXC+23
SEL^RCDPEX3 EDITNUM+3, EDITRXC+4, EDITRXC+5
$$LOCK^RCDPEX31 EDITNUM+8
STORACT^RCDPEX31 EDITNUM+62, EDITNUM+72, EDITNUM+85
FULL^VALM1 EDITNUM+2, EDITRXC+2
WAIT^VALM1 EDITRXC+11, EDITRXC+17, EDITRXC+23
$$FMTE^XLFDT EDITRXC+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITNUM+14
Function Call: WRITE
  • Prompt: !,"You should refresh the worklist entry to include the new claim #",!," before creating the receipt",!
  • Line Location: EDITNUM+20
Function Call: WRITE
  • Prompt: !,"Since the receipt for this EEOB ("_$P($G(^RCY(344,+$P($G(^RCY(344.4,RCXDA1,0)),U,8),0)),U)_") already exists"
  • Line Location: EDITNUM+22
Function Call: WRITE
  • Prompt: !," and is closed, you will need to use link payment to apply the payment",!," to the correct account",!
  • Line Location: EDITNUM+23
Function Call: WRITE
  • Prompt: !," you should edit the receipt and change the claim # so it posts to the",!," correct account",!
  • Line Location: EDITNUM+24
Function Call: WRITE
  • Prompt: !,"Selection #: "_RC_$J("",5)_$P(RC0,U,5)
  • Line Location: EDITNUM+27
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITNUM+35
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITNUM+39
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITNUM+49
Function Call: WRITE
  • Prompt: !!,"EEOB Filed. "_$S(RCBILL>0:"Its detail may be viewed using Third Party Joint Inquiry.",1:"")
  • Line Location: EDITNUM+90
Function Call: WRITE
  • Prompt: !,"ERA has been successfully Marked as an Auto-Post CANDIDATE"
  • Line Location: EDITNUM+96
Function Call: WRITE
  • Prompt: !,"ERA was NOT Marked as an Auto-Post CANDIDATE - ",$P(AUTOPOST,U,2)
  • Line Location: EDITNUM+99
Routine Call
  • DIC
  • Line Location:
    • EDITNUM+35
Routine Call
  • DIE
  • Line Location:
    • EDITNUM+88
    • EDITNUM+89
    • CHGED+7
    • EDITRXC+22
Routine Call
  • DIR
  • Line Location:
    • EDITNUM+9
    • EDITNUM+12
    • EDITNUM+14
    • EDITNUM+34
    • EDITNUM+39
    • EDITNUM+49
    • EDITNUM+65
    • EDITNUM+73
    • EDITNUM+103

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
344.41 GET1^DIQ
^PRCA(430 - [#430] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] EDITNUM+42, EDITNUM+45
^PRCA(430.3 - [#430.3] EDITNUM+45
^RCY(344 - [#344] EDITNUM+18, EDITNUM+22, EDITNUM+23
^RCY(344.4 - [#344.4] EDITNUM+6, EDITNUM+10, EDITNUM+21, EDITNUM+22, EDITNUM+23, EDITNUM+44, EDITNUM+53, EDITNUM+68
^RCY(344.49 - [#344.49] EDITNUM+16, EDITNUM+18
^TMP("RCDPERR-EOB" EDITNUM+80, EDITNQ+1!, EDITRXC+25!
^TMP($J EDITNUM+52!, EDITNUM+54*, EDITNUM+56*, EDITNUM+57*, EDITNUM+59!, EDITNQ+1!, EDITRXC+25!

Label References

Name Line Occurrences
CHGED EDITNUM+63, EDITNUM+87
EDITNQ EDITNUM+4

Naked Globals

Name Field # of Occurrence
^( EDITNUM+53

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUTOPOST EDITNUM+92~, EDITNUM+93*, EDITNUM+94, EDITNUM+97, EDITNUM+98, EDITNUM+99
DA EDITNUM+1~, EDITNUM+63*, EDITNUM+86*, EDITNUM+87, CHGED~, EDITRXC+1~, EDITRXC+22*
DA(1 EDITNUM+63*, EDITNUM+86*, EDITNUM+88, CHGED+7, EDITRXC+22*
DIC EDITNUM+1~, EDITNUM+35*, EDITRXC+1~
DIC("S" EDITNUM+35*
DIC(0 EDITNUM+35*
DIE EDITNUM+1~, EDITNUM+88*, CHGED+5~, CHGED+7*, EDITRXC+1~, EDITRXC+22*
DIR EDITNUM+1~, EDITNUM+9!, EDITNUM+12!, EDITNUM+14!, EDITNUM+30!, EDITNUM+39!, EDITNUM+49!, EDITNUM+65!, EDITNUM+73!, EDITNUM+101!
EDITNUM+103!, EDITRXC+1~
DIR("?" EDITNUM+31*, EDITNUM+32*
DIR("A" EDITNUM+9*, EDITNUM+12*, EDITNUM+14*, EDITNUM+33*, EDITNUM+38*, EDITNUM+44*, EDITNUM+45*, EDITNUM+47*, EDITNUM+48*, EDITNUM+49*
EDITNUM+65*, EDITNUM+73*, EDITNUM+102*
DIR("B" EDITNUM+39*, EDITNUM+49*
DIR(0 EDITNUM+9*, EDITNUM+12*, EDITNUM+14*, EDITNUM+33*, EDITNUM+39*, EDITNUM+49*, EDITNUM+64*, EDITNUM+102*
DIRUT EDITNUM+1~, EDITNUM+34, EDITNUM+39
DR EDITNUM+1~, EDITNUM+88*, CHGED+5~, CHGED+7*, EDITRXC+1~, EDITRXC+22*
DTOUT EDITNUM+1~, EDITNUM+34, EDITNUM+39, EDITRXC+22
>> DUOUT EDITRXC+22
IENS EDITRXC+8~, EDITRXC+9*, EDITRXC+10, EDITRXC+20
INVBILL CHGED+5~, CHGED+6*, CHGED+7
Q EDITNUM+1~, EDITNUM+53*, EDITNUM+56, EDITRXC+1~
Q0 EDITNUM+1~, EDITNUM+53*, EDITNUM+54, EDITNUM+55*, EDITNUM+56, EDITRXC+1~
RC EDITNUM+1~, EDITNUM+6*, EDITNUM+7, EDITNUM+9, EDITNUM+12, EDITNUM+14, EDITNUM+27, EDITRXC+1~
RC0 EDITNUM+1~, EDITNUM+10*, EDITNUM+11, EDITNUM+13, EDITNUM+26, EDITNUM+27, EDITNUM+55, EDITRXC+1~
>> RCAPAR EDITRXC+4, EDITRXC+5
RCBILL EDITNUM+1~, EDITNUM+40*, EDITNUM+42*, EDITNUM+45, EDITNUM+58, EDITNUM+63, EDITNUM+68, EDITNUM+87, EDITNUM+90, CHGED~
, CHGED+6, EDITRXC+1~
RCBILL(1 EDITNUM+40*, EDITNUM+42*, EDITNUM+49, EDITNUM+55, EDITNUM+65, EDITNUM+73, CHGED+6
RCCHG EDITNUM+1~, EDITNUM+63*, EDITNUM+83*, EDITNQ
RCDA EDITNUM+1~, EDITNUM+3, EDITRXC+1~, EDITRXC+4, EDITRXC+5
RCDA( EDITNUM+6, EDITNUM+7, EDITRXC+9, EDITRXC+22
RCDA(0 EDITNUM+4, EDITRXC+7
RCDONE EDITNUM+1~, EDITNUM+28*, EDITNUM+29, EDITNUM+40*, EDITNUM+42*
RCDSEL EDITRXC+1~, EDITRXC+7*, EDITRXC+9, EDITRXC+20, EDITRXC+22
RCEOB EDITNUM+1~, EDITNUM+58*, EDITNUM+60, EDITNUM+63, EDITNUM+68*, EDITNUM+70, EDITNUM+77, EDITNUM+78, EDITNUM+81, EDITNUM+87
, CHGED~, CHGED+7, EDITRXC+1~
RCQUIT EDITNUM+1~, EDITNUM+28*, EDITNUM+29, EDITNUM+34*, EDITNUM+35*, EDITNUM+37, EDITNUM+39*, EDITNUM+43
RCRLSDT EDITRXC+8~, EDITRXC+14*, EDITRXC+15, EDITRXC+16
RCRXNO EDITRXC+8~, EDITRXC+10*, EDITRXC+14
RCSAVE EDITNUM+1~, EDITNUM+7*, EDITNUM+26*, EDITNUM+63, EDITNUM+87, CHGED~, CHGED+7, EDITRXC+1~
RCSUSP EDITNUM+1~, EDITNUM+36*, EDITNUM+40
RCWARN EDITNUM+1~, EDITNUM+40*, EDITNUM+42*, EDITNUM+44*, EDITNUM+45*, EDITNUM+46, EDITNUM+47, EDITNUM+48, EDITRXC+1~
RCWHY EDITNUM+61~, EDITNUM+62, EDITNUM+71~, EDITNUM+72, EDITNUM+84~, EDITNUM+85
RCWHY(1 EDITNUM+61*, EDITNUM+71*, EDITNUM+84*
RCXDA EDITNUM+1~, EDITNUM+6, EDITNUM+7*, EDITNUM+8, EDITNUM+10, EDITNUM+53, EDITNUM+62, EDITNUM+63, EDITNUM+72, EDITNUM+85
EDITNUM+86, EDITRXC+1~
RCXDA1 EDITNUM+1~, EDITNUM+6, EDITNUM+7*, EDITNUM+8, EDITNUM+10, EDITNUM+16, EDITNUM+18, EDITNUM+19, EDITNUM+21, EDITNUM+22
EDITNUM+23, EDITNUM+44, EDITNUM+53, EDITNUM+62, EDITNUM+63, EDITNUM+68, EDITNUM+72, EDITNUM+85, EDITNUM+86, EDITNUM+93
EDITNUM+95, EDITNUM+98, EDITRXC+1~
U EDITNUM+7, EDITNUM+11, EDITNUM+13, EDITNUM+18, EDITNUM+19, EDITNUM+21, EDITNUM+22, EDITNUM+23, EDITNUM+26, EDITNUM+27
EDITNUM+42, EDITNUM+44, EDITNUM+45, EDITNUM+54, EDITNUM+55, EDITNUM+68, EDITNUM+98, EDITNUM+99, EDITRXC+9, EDITRXC+22
>> VALMBCK EDITNQ+2*, EDITRXC+26*
>> VALMBG EDITNUM+104*
X EDITNUM+1~, EDITNUM+17~, EDITNUM+18*, EDITNUM+19, EDITNUM+20, EDITNUM+35, EDITNUM+36, CHGED+5~, EDITRXC+1~
Y EDITNUM+1~, EDITNUM+37, EDITNUM+40, EDITNUM+42, EDITNUM+46, CHGED+5~, EDITRXC+1~
Info |  Source |  Call 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