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

Package: Accounts Receivable

Routine: RCDPENR5


Information

RCDPENR5 ;ALB/CNF - EPay National Reports - ERA/EFT Report Utilities ;12/14/15

Source Information

Source file <RCDPENR5.m>

Entry Points

Name Comments DBIA/ICR reference
GETRPT(RCMNFLG) ;
; PRCA*4.5*446 - Moved from RCDPENR2 for size
GRAND(RCPUZ) ; PRCA*4.5*446 - Moved from RCDPENR2 for size
; Input RCPUZ - P: Payment EEOBs, U: Unmatched EEOBs, Z: Zero Payment EEOBs, A: All ;PRCA*4.5*446
PRINTGT(RCTITLE,RCDATA,RCDISP,RCERAFLG,RCEXCEL,RCPUZ) ;PRCA*4.5*332 - added comments below, 20 August 2018
; Print the Grand Total/Summary data for the EFT/ERA Trending Report
; Input: RCTITLE - Name of the report
; RCDATA - Array of compiled data being processed. RCDATA("A") autoposted, RCDATA("M") manually posted
; RCDISP - 1 - Display to screen, 0 otherwise
; RCERAFLG - 1 if we're in the ERA matched to an EFT section
; 0 otherwise
; RCEXCEL - 1 output to excel, 0 otherwise
; RCPUZ - P: Payment EEOBs, U: Unmatched EEOBs, Z: Zero Payment EEOBs, A: All ;PRCA*4.5*446
; RCSTOP - Initialized to 0
; Output: RCSTOP - User stopped the display of the report
GDTXT ; Moved from ^RCDPENR3 because of routine size PRCA*4.5*446
PRINTHDR(RCTITLE,RCLL,RCNOLINE) ;
; PRCA*4.5*446 - Moved from RCDPENR2 for size, add RCLL as parameter for line length, add RCNOLINE to suppress line
ASKSORT() ; EP from RCDPENR2 - added for PRCA*4.5*446
; Input: N/A
; Returns: -1 - User ^ or timed out
; P - Sort by Payer
; A - Sort by Amount of payment
MAINAMT(RCPUZ,RCAUTO,RCEXCEL) ;
; ***** IMPORTANT ***** If this section needs to be modified, also check MAIN^RCDPENR2
; New subroutine for PRCA*4.5*446, copied from MAIN^RCDPENR2 and modified for sort by amount

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"GRAND TOTALS ALL PAYERS",!!
  • Line Location: GRAND+12
Function Call: WRITE
  • Prompt: RCLINE,!
  • Line Location: GRAND+13
Function Call: WRITE
  • Prompt: RCSTRNG,!
  • Line Location: PRINTGT+81
Function Call: WRITE
  • Prompt: RCDTXT,?65,$J($P(RCSCDATA,U,I),13,2),!
  • Line Location: PRINTGT+84
Function Call: WRITE
  • Prompt: RCDTXT,?65,$J($P($P(RCSCDATA,U,I),"."),12),"%",!
  • Line Location: PRINTGT+86
Function Call: WRITE
  • Prompt: RCDTXT,?65,$J($P(RCSCDATA,U,I),13),!
  • Line Location: PRINTGT+90
Function Call: WRITE
  • Prompt: RCLINE,!
  • Line Location: PRINTGT+92
Function Call: WRITE
  • Prompt: RCBORDER,PAD1,RCTITLE,PAD2,RCBORDER,!
  • Line Location: PRINTHDR+30
Function Call: WRITE
  • Prompt: "No data captured for this section during the specified time period.",!
  • Line Location: MAINAMT+22
Function Call: WRITE
  • Prompt: RCTMP,!
  • Line Location: MAINAMT+57
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: MAINAMT+59
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: MAINAMT+60
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: MAINAMT+61
Function Call: WRITE
  • Prompt: ?67,$J(RCEEDY,8),?83,$J(RCEPDY,8),?106,$J(RCBPDY,8),!
  • Line Location: MAINAMT+62
Function Call: WRITE
  • Prompt: ?10,$P(RCDATA,U,17),!
  • Line Location: MAINAMT+63
Function Call: WRITE
  • Prompt: RCLINE,!
  • Line Location: MAINAMT+64

FileMan Files Accessed Via FileMan Db Call

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