Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls