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

Package: Accounts Receivable

Routine: RCDPENR2


Information

RCDPENR2 ;ALB/SAB - EPay National Reports - ERA/EFT Trending Report ; 7/1/19 2:02pm

Source Information

Source file <RCDPENR2.m>

Entry Points

Name Comments DBIA/ICR reference
EFTERA()
AUTO(RCDISP,RCBGDT,RCENDDT,RCPYRLST,RCRQDIV,RCRPT,RCEXCEL,RCRATE,RCDIV,RCAUTO,RCPUZ) ;
; Inputs: RCAUTO (Optional) - A - Auto-Post, N-Non-Auto-Post, B-Both (Defaults to B)
; RCDISP - Display results to screen or archive file flag
; RCBGDT - begin date of the report
; RCENDDT - End date of the report
; RCPYRLST - Payers to report on (All, range, or single payer)
; RCRQDIV - Division to report on - (A)ll or a single division
; RCRPT - (M)ain, (S)ummary or (G)rand Total Report
; RCEXCEL - Flag to indicate output in "^" delimited format
; RCRATE - Billing Rate Type flag
; RCDIV - Divisions to report on.
; RCPAY - Payers to report on (All, range, or single payer)
; RCTYPE - Types of payers to include (M - Medical, P - Pharmacy, T - Tricare C - CHAMPVA)
; RCWHICH - select payers by name or TIN (1 - Name, 2 - TIN)
; RCPUZ - P: Payment EEOBs, U: Unmatched EEOBs, Z: Zero Payment EEOBs, A: All ;PRCA*4.5*446
REPORT
PRINT(RCSUMFLG,RCPUZ) ;Print the results
HEADER ;Print the results
MAIN(RCPUZ) ;
; ***** IMPORTANT ***** If this section needs to be modified, also check MAINAMT^RCDPENR5
SUMMARY(RCPUZ) ;Print the Payer Summary portion of the report
GRAND(RCPUZ) ;
; PRCA*4.5*446 - Moved to RCDPENR5 for size
PRINTINS(RCINS) ; Print the insurance header line
; Input: RCINS - Payer Name/TIN to be displayed
; RCLINE - line of dashes used for separation
; Returns 1 - User quit out of report, 0 otherwise
PRINTHDR(RCTITLE,RCLL) ;
; PRCA*4.5*446 - Moved to RCDPENR5 for size
GETDIV(RCDIV) ; Retrieve the Division
; PRCA*4.5*349 - Moved to RCDPENR4 for size
GETRPT(RCMNFLG) ;
; PRCA*4.5*446 - Moved to RCDPENR5 for size
GETARPYR(RCTIN,RCPAY) ; Retrieve the Payer IEN from the RCDPE AUTO-PAY EXCLUSION file (#344.6)
; Input: RCTIN - Payer ID
; RCPAY - Payer Name (optional)
; Return: Payer IEN (#344.6)
INSCHK(RCINS) ;
DIV(RCDIV) ; build the list of divisions to report on.
; PRCA*4.5*349 - Moved to RCDPENR4 for size
TINTXT() ;
COLHEAD ;
REPRINT(RCIEN) ;
RPTHDR(RCIEN,PAGE) ; Reprint the header
GETSDATE() ;PRCA*4.5*446 moved subroutine to RCDPENR4
GETEDATE() ;PRCA*4.5*446 moved subroutine to RCDPENR4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 132 columns.",!!
  • Line Location: EFTERA+62
Function Call: WRITE
  • Prompt: !
  • Line Location: AUTO+17
Function Call: WRITE
  • Prompt: !!,"Task number "_ZTSK_" has been queued."
  • Line Location: AUTO+32
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: AUTO+33
Function Call: WRITE
  • Prompt: !!,"There was no data available for the requested report. Please try again."
  • Line Location: REPORT+19
Function Call: WRITE
  • Prompt: !,$$ENDORPRT^RCDPEARL
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+54
Function Call: WRITE
  • Prompt: @IOF,"EFT/ERA TRENDING REPORT"
  • Line Location: HEADER+24
Function Call: WRITE
  • Prompt: ?122,"PAGE ",$J(RCPAGE,5),!
  • Line Location: HEADER+26
Function Call: WRITE
  • Prompt: " "_$E(RCDIVTXT,1,23),?25,$E(RCPYRTXT,1,20),?46,$E(RCTYPTXT,1,43)
  • Line Location: HEADER+27
Function Call: WRITE
  • Prompt: ?90,RCAUTOT,?118,RCCLMTXT,!
  • Line Location: HEADER+28
Function Call: WRITE
  • Prompt: ?5,"DATE RANGE: ",$$FMTE^XLFDT(RCBGDT,2)," - ",$$FMTE^XLFDT(RCENDDT,2)
  • Line Location: HEADER+29
Function Call: WRITE
  • Prompt: ?51,"RUN DATE: ",RCRUNDT,?90,RCPUZT,!
  • Line Location: HEADER+30
Function Call: WRITE
  • Prompt: RCLINE,!
  • Line Location: HEADER+32
Function Call: WRITE
  • Prompt: "^PAGE ",$J(RCPAGE,5)
  • Line Location: HEADER+34
Function Call: WRITE
  • Prompt: "^",RCDIVTXT,"^",RCPYRTXT,"^",RCTYPTXT
  • Line Location: HEADER+35
Function Call: WRITE
  • Prompt: "^","DATE RANGE: ",$$FMTE^XLFDT(RCBGDT,2)," - ",$$FMTE^XLFDT(RCENDDT,2)
  • Line Location: HEADER+36
Function Call: WRITE
  • Prompt: "^","RUN DATE: ",RCRUNDT
  • Line Location: HEADER+37
Function Call: WRITE
  • Prompt: "^",RCAUTOT,"^",RCCLMTXT,!
  • Line Location: HEADER+38
Function Call: WRITE
  • Prompt: "No data captured for this section during the specified time period.",!
  • Line Location: MAIN+47
Function Call: WRITE
  • Prompt: !,"No data captured for this section during the specified time period.",!
  • Line Location: MAIN+54
Function Call: WRITE
  • Prompt: RCTMP,!
  • Line Location: MAIN+71
Function Call: WRITE
  • Prompt: RCBILL,?21,$$FMTE^XLFDT($P(RCDATA,U,5),2),?30,$J($P(RCDATA,U,6),10,2),?41,$J($P(RCDATA,U,7),10,2),?52,$$FMTE^XLFDT($P(RCDATA,U,8),2)
  • Line Location: MAIN+73
Function Call: WRITE
  • Prompt: ?61,$$FMTE^XLFDT($P(RCDATA,U,9),2),?75,$$FMTE^XLFDT($P(RCDATA,U,10),2),?89,$$FMTE^XLFDT($P(RCDATA,U,11),2),?98,$P(RCDATA,U,12),?109,$P(RCDATA,U,13),!
  • Line Location: MAIN+74
Function Call: WRITE
  • Prompt: ?5,$P(RCDATA,U,14),?17,$P(RCDATA,U,2),?28,$J($P(RCDATA,U,15),6),?39,$P(RCDATA,U,3),?50,$J(RCBEDY,8)
  • Line Location: MAIN+75
Function Call: WRITE
  • Prompt: ?67,$J(RCEEDY,8),?83,$J(RCEPDY,8),?106,$J(RCBPDY,8),!
  • Line Location: MAIN+76
Function Call: WRITE
  • Prompt: RCLINE,!
  • Line Location: MAIN+77
Function Call: WRITE
  • Prompt: !
  • Condition for execution: (RCPAGE>1)
  • Line Location: PRINTINS+13
Function Call: WRITE
  • Prompt: RCLINE,!
  • Line Location: PRINTINS+13
Function Call: WRITE
  • Prompt: " ",$$PAYTIN^RCDPRU2(RCINS,78),!
  • Line Location: PRINTINS+14
Function Call: WRITE
  • Prompt: RCLINE,!
  • Line Location: PRINTINS+15
Function Call: WRITE
  • Prompt: RCTMP,!
  • Line Location: COLHEAD+9
Function Call: WRITE
  • Prompt: "CLAIM#",?21,"DOS",?30,"AMT BILLED",?41,"AMT PAID",?52,"BILLED",?61,"ERA/EOB REC'D",?75,"EFT/PMT REC'D",?89,"POSTED",?98,"TRACE #",?109,"AUTOPOST/MANUAL",!
  • Line Location: COLHEAD+11
Function Call: WRITE
  • Prompt: ?5,"ETRANS TYPE",?17,"ERA#",?28,"#EEOBS",?39,"EFT#",?50,"#DAYS:(BILL/ERA)",?67,"#DAYS:(ERA/EFT)",?83,"#DAYS:(ERA+EFT/POSTED)",?106,"TOTAL #DAYS(BILL/POSTED)",!
  • Line Location: COLHEAD+12
Function Call: WRITE
  • Prompt: RCLINE,!
  • Line Location: COLHEAD+14
Function Call: WRITE
  • Prompt: $P(RCDATA,U)
  • Line Location: REPRINT+18
Function Call: WRITE
  • Prompt: ?65,$P(RCDATA,U,2)
  • Line Location: REPRINT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: REPRINT+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPTHDR+4
Function Call: WRITE
  • Prompt: ?15,$P(RCDATA,U),?70,PAGE,!
  • Line Location: RPTHDR+9
Function Call: WRITE
  • Prompt: ?5,$P(RCDATA,U,2),!
  • Line Location: RPTHDR+10
Function Call: WRITE
  • Prompt: ?5,$P(RCDATA,U,2),?45,$P(RCDATA,U,3),!
  • Line Location: RPTHDR+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.6 - [#344.6] GET1^DIQ
^DGCR(399 - [#399] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call