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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCDPEV0

Package: Accounts Receivable

Routine: RCDPEV0


Information

RCDPEV0 ;ALB/TMK - EDI LOCKBOX WORKLIST VERIFY PAYMENTS ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEV0.m>

Entry Points

Name Comments DBIA/ICR reference
RPT(RCSCR) ; Print/display discrepancy report
RPTQ
RPT1(RCSCR) ; Print/display discrepancy report - Auto-post ERA
RPT1Q
DISRPT(RCSCR,RCBATCH) ; Queued job entrypoint
; RCSCR = the ien of the entry in file 344.49
; RCBATCH = the # of the batch within the ERA. If all batches, this is null
DISRPT1(RCSCR,RCBATCH) ; Queued job entrypoint - Auto-post ERA
; RCSCR = the ien of the entry in file 344.49
; RCBATCH = the # of the batch within the ERA. If all batches, this is null
HDR(RCPG,RCSCR,RCBATCH,RCSTOP,RCTYP) ;Print header - RCTYP added - PRCA*4.5*326
; RCPG = last page #
; RCSCR = the entry # in file 344.49
; RCSTOP = returned as 1 if abort is detected
; RCTYP = 'A' for all verification discrepancies, 'U' for unverified discrepancies only
ASK(RCSTOP) ; Ask to continue
; If passed by reference ,RCSTOP is returned as 1 if print is aborted

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number"_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: RPT+7
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number"_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: RPT1+7
Function Call: WRITE
  • Prompt: !!,X
  • Line Location: DISRPT+25
Function Call: WRITE
  • Prompt: !,X
  • Line Location: DISRPT+29
Function Call: WRITE
  • Prompt: !,X
  • Line Location: DISRPT+31
Function Call: WRITE
  • Prompt: !,?9,"<<< THIS EEOB HAS BEEN SPLIT >>>"
  • Line Location: DISRPT+33
Function Call: WRITE
  • Prompt: !,?15,$S($P(Z0,U,7):"",1:"BILL NOT IN VISTA: "),$P(Z0,U,2)_" "_$J($P(Z0,U,5),"",2)
  • Line Location: DISRPT+38
Function Call: WRITE
  • Prompt: !
  • Line Location: DISRPT+39
Function Call: WRITE
  • Prompt: !,"THERE ARE NO UNVERIFIED LINES WITH DISCREPANCIES IN THIS ERA"_$S($G(RCBATCH):" BATCH",1:"")
  • Line Location: DISRPT+41
Function Call: WRITE
  • Prompt: " ("_$S(RCVER:"Verified",1:"Unverified")
  • Line Location: DISRPT1+37
Function Call: WRITE
  • Prompt: !!,X
  • Line Location: DISRPT1+39
Function Call: WRITE
  • Prompt: !,X
  • Line Location: DISRPT1+43
Function Call: WRITE
  • Prompt: !,X
  • Line Location: DISRPT1+45
Function Call: WRITE
  • Prompt: !,?9,"<<< THIS EEOB HAS BEEN SPLIT >>>"
  • Line Location: DISRPT1+47
Function Call: WRITE
  • Prompt: !,?15,$S($P(Z0,U,7):"",1:"BILL NOT IN VISTA: "),$P(Z0,U,2)_" "_$J($P(Z0,U,5),"",2)
  • Line Location: DISRPT1+52
Function Call: WRITE
  • Prompt: !
  • Line Location: DISRPT1+53
Function Call: WRITE
  • Prompt: !,@IOF,*13
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"EDI LBOX WORKLIST - UNVERIFIED LINES DISCREPANCIES REPORT",?59
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"EDI LBOX WORKLIST - AUTOPOST ERA LINES DISCREPANCIES REPORT",?61
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(DT,2),?70,"Page: ",RCPG,!
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,"ERA #: ",RCSCR,?20
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: $S($O(^RCY(344.49,RCSCR,3,0)):"BATCH: "_$E($S($G(RCBATCH):+RCBATCH,1:"ALL")_$J("",11),1,11),1:$J("",18))
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: "TRACE #: "_RCTRACE
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,"PAYER: "_$E(RCPAY_$J("",30),1,30)_" ERA DT: "_$$FMTE^XLFDT(RCDAT,"2D")
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !!,?7,"PATIENT NAME"_$J("",25)_"SUBMITTED AMT SVC DATE(S)"
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: !,"* preceding data = data has discrepancy"
  • Line Location: HDR+23
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] GET1^DIQ
344.41 GET1^DIQ
344.491 GET1^DIQ
^IBM(361.1 - [#361.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call