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

Package: Accounts Receivable

Routine: RCDPEV


Information

RCDPEV ;ALB/TMK - EDI LOCKBOX WORKLIST VERIFY PAYMENTS ;Sep 15, 2014@14:36:22

Source Information

Source file <RCDPEV.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  
VA FileMan 2 ^DIE  ^DIR  
Accounts Receivable 1 $$TOPLINE^RCDPEWL1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Accounts Receivable 4 RCDPEAA3  RCDPEV0  RCDPEWL8  RCDPEWLA  

Entry Points

Name Comments DBIA/ICR reference
AUTOVER(RCSCR) ; Entrypoint to auto-verify an ERA worklist
; RCSCR = ien of the ERA worklist entry in file 344.49
VER(RCSCR,RCBILL,RCREF,F1) ; Run verif for WL entry RCSCR in file 344.49
; RCBILL = ien of claim in file 430
; RCREF = the entry referenced in subfile file 344.41
; F1 = flag if set = 1 will return all data, regardless of if it
; matches or not. If flag is set to 1 and data doesn't match,
; an asterisk (*) will preceed the actual data value in the
; corresponding piece
; Function returns the following data:
; '^' piece 1: 1 if verfied OK 0 if not
; '^' piece 2: patient name from VistA if mismatch
; '^' piece 3: patient name from EEOB if mismatch
; '^' piece 4: amt billed from VistA if mismatch
; '^' piece 5: amt billed from EEOB if mismatch
; '^' piece 6: date of service 'from' from VistA if mismatch
; '^' piece 7: date of service 'from' from EEOB if mismatch
; '^' piece 8: date of service 'to' from VistA if mismatch
; '^' piece 9: date of service 'to' from EEOB if mismatch
; '^' piece 10: patient SSN from VistA
VERQ
MVER(RCERA) ; Manually mark an EEOB as verified

External References

Name Field # of Occurrence
^DIE AUTOVER+4, MVER+51
^DIR MVER+13, MVER+20, MVER+26, MVER+49
$$TOPLINE^RCDPEWL1 MVER+52
$$FMTE^XLFDT MVER+41, MVER+42, MVER+45, MVER+46
$$UP^XLFSTR VER+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MVER+13
Function Call: WRITE
  • Prompt: !
  • Line Location: MVER+20
Function Call: WRITE
  • Prompt: !,"THIS LINE DOES NOT EXIST FOR THIS ERA"
  • Line Location: MVER+22
Function Call: WRITE
  • Prompt: !
  • Line Location: MVER+22
Function Call: WRITE
  • Prompt: !
  • Line Location: MVER+26
Function Call: WRITE
  • Prompt: !!,"THIS LINE DOES NOT REFERENCE A VALID BILL"
  • Line Location: MVER+29
Function Call: WRITE
  • Prompt: !!!,Z
  • Line Location: MVER+38
Function Call: WRITE
  • Prompt: !,?13,"PATIENT NAME"_$J("",18)_" SUBMITTED AMT SVC DATE(S)"
  • Line Location: MVER+39
Function Call: WRITE
  • Prompt: !,?13,"------------------------------ --------------- -----------------"
  • Line Location: MVER+40
Function Call: WRITE
  • Prompt: !," ERA DATA: ",$E($P(RESULT,U,3)_$J("",30),1,30)," ",$E($J($P(RESULT,U,5),"",2)_$J("",15),1,15)_" "_DT1_DT2
  • Line Location: MVER+43
Function Call: WRITE
  • Prompt: !,?15,$P($G(^RCY(344,RCERA,0)),U,6)
  • Line Location: MVER+44
Function Call: WRITE
  • Prompt: !," BILL DATA: "_$E($P(RESULT,U,2)_$J("",30),1,30)_" "_$E($J($P(RESULT,U,4),"",2)_$J("",15),1,15)_" "_DT1_DT2
  • Line Location: MVER+47
Function Call: WRITE
  • Prompt: !,?15,$P($G(^DIC(36,+$P(RCZ0,U,4),0)),U),!
  • Line Location: MVER+48
Function Call: WRITE
  • Prompt: !
  • Line Location: MVER+49
Routine Call
  • DIE
  • Line Location:
    • AUTOVER+4
    • MVER+51
Routine Call
  • DIR
  • Line Location:
    • MVER+13
    • MVER+20
    • MVER+26
    • MVER+49

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] VER+22, VER+39, VER+40
^DIC(36 - [#36] MVER+48
^DPT - [#2] VER+26, VER+27
^IBM(361.1 - [#361.1] VER+24, VER+41, VER+42, MVER+31
^PRCA(430 - [#430] VER+21
^RCY(344 - [#344] MVER+44
^RCY(344.4 - [#344.4] VER+23, MVER+27
^RCY(344.49 - [#344.49] AUTOVER+3, MVER+3, MVER+8, MVER+9, MVER+24, MVER+33, MVER+37, MVER+52
^TMP("RCBATCH_SELECTED" MVER+13, MVER+15
^TMP("RCDPE-EOB_WL" MVER+6, MVER+53*
^TMP("RCDPE-EOB_WLDX" MVER+3, MVER+18, MVER+22, MVER+23

Label References

Name Line Occurrences
$$VER AUTOVER+4, MVER+31

Naked Globals

Name Field # of Occurrence
^( AUTOVER+3, MVER+23
^(0 AUTOVER+3
^(13 VER+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A MVER+1~, MVER+52*, MVER+53
CT MVER+1~, MVER+2*, MVER+3, MVER+4*, MVER+6*, MVER+9
DA AUTOVER+2~, AUTOVER+4*, MVER+1~, MVER+51*
DA(1 AUTOVER+4*, MVER+51*
DIE AUTOVER+2~, AUTOVER+4*, MVER+1~, MVER+51*
DIR MVER+1~, MVER+13!, MVER+20!, MVER+26!, MVER+49!
DIR("?" MVER+6*, MVER+9*, MVER+10!, MVER+15*, MVER+16*, MVER+17*
DIR("A" MVER+13*, MVER+18*, MVER+26*, MVER+49*
DIR("B" MVER+19*, MVER+49*
DIR(0 MVER+13*, MVER+18*, MVER+26*, MVER+49*
DR AUTOVER+2~, AUTOVER+4*, MVER+1~, MVER+51*
DT1 MVER+1~, MVER+41*, MVER+43, MVER+45*, MVER+47
DT2 MVER+1~, MVER+42*, MVER+43, MVER+46*, MVER+47
DTOK VER+19~, VER+45*, VER+47*, VER+48*, VER+49*, VER+50, VER+51
DTOUT MVER+1~, MVER+21
DUOUT MVER+1~, MVER+21
F1 VER~, VER+20, VER+30, VER+35, VER+51
NM VER+19~, VER+26*, VER+30, VER+31
NM1 VER+19~, VER+28*, VER+30, VER+31
Q MVER+1~, MVER+7*, MVER+8, MVER+9, MVER+32*, MVER+37*
Q0 MVER+1~, MVER+37*
RC3444 AUTOVER+2~, VER+19~, VER+23*, VER+24, VER+28, VER+41, VER+42
RC36112 AUTOVER+2~, VER+19~, VER+24*, VER+34
RC399 AUTOVER+2~, VER+19~, VER+22*, VER+26, VER+27
RC430 AUTOVER+2~, VER+19~, VER+21*, VER+33
RC43013 VER+19~, VER+21*, VER+33
RCBILL VER~, VER+21, VER+22, VER+39, VER+40
RCERA MVER~, MVER+3, MVER+8, MVER+9, MVER+24, MVER+27, MVER+31, MVER+33, MVER+37, MVER+44
, MVER+51, MVER+52
RCLINE MVER+1~, MVER+23*, MVER+53
RCREF VER~, VER+23
RCSCR AUTOVER~, AUTOVER+4, VER~, VER+23
RCT MVER+1~, MVER+2*, MVER+3*, MVER+5, MVER+12, MVER+15, MVER+16, MVER+19
RCT(1 MVER+5*, MVER+19
RCY MVER+1~, MVER+23*, MVER+24, MVER+51, MVER+52
RCY0 MVER+1~, MVER+24*, MVER+25, MVER+27, MVER+31, MVER+33, MVER+35, MVER+37
RCYNUM MVER+1~, MVER+23*, MVER+52
RCZ0 MVER+1~, MVER+27*, MVER+28, MVER+31, MVER+48
RESULT VER+19~, VER+20*, VER+30*, VER+31*, VER+35*, VER+37*, VER+50*, VER+51*, VER+52*, VERQ
, MVER+1~, MVER+31*, MVER+32*, MVER+41, MVER+42, MVER+43, MVER+45, MVER+46, MVER+47
SETF1 VER+19~, VER+20*, VER+31, VER+37, VER+50
SPLIT MVER+1~, MVER+33*, MVER+34, MVER+35, MVER+36
SSN VER+19~, VER+27*, VER+52
U AUTOVER+3, AUTOVER+4, VER+24, VER+26, VER+27, VER+28, VER+30, VER+31, VER+33, VER+34
, VER+35, VER+37, VER+39, VER+40, VER+41, VER+42, VER+50, VER+51, VER+52, MVER+3
, MVER+6, MVER+23, MVER+25, MVER+27, MVER+28, MVER+31, MVER+32, MVER+35, MVER+37, MVER+41
, MVER+42, MVER+43, MVER+44, MVER+45, MVER+46, MVER+47, MVER+48
X AUTOVER+2~, VER+19~, VER+26*, VER+29*, VER+30, VER+31, VER+33*, VER+35, VER+37, VER+39*
, VER+47, VER+48, VER+49, VER+50, VER+51, MVER+1~
X1 AUTOVER+2~, VER+19~, VER+28*, VER+29*, VER+30, VER+31, VER+34*, VER+35, VER+37, VER+41*
, VER+46, VER+47, VER+48, VER+49, VER+50, VER+51
X12 AUTOVER+2~, VER+19~, VER+42*, VER+49, VER+50, VER+51
X2 AUTOVER+2~, VER+19~, VER+40*, VER+48, VER+50, VER+51
Y MVER+1~, MVER+21, MVER+22, MVER+23, MVER+50
Z AUTOVER+2~, AUTOVER+3*, MVER+1~, MVER+3*, MVER+6, MVER+32*, MVER+34*, MVER+35*, MVER+37*, MVER+38
Z0 AUTOVER+2~, AUTOVER+3*, AUTOVER+4, MVER+1~, MVER+3*, MVER+6, MVER+7
Z00 AUTOVER+2~, AUTOVER+3*, AUTOVER+4
Z1 MVER+1~, MVER+3*, MVER+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All