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

Package: Accounts Receivable

Routine: RCDPEFTL


Information

RCDPEFTL ;EDE/FA - LIST LOCKED EFT REPORT ;18 July 2018 11:19:25

Source Information

Source file <RCDPEFTL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry from RCDPE EFT OVERRIDE REPORT option
REPORT(RCINPT) ; entry point from TaskMan and above
RPTCOMP(RCINPT) ; Full EFT scan to compile report
; Input:
; RCINPT("DateRange")= Report start date:Report end date
; Output:
; ^TMP("RCDPE_EFTL",$J) - compilation of report data
RPTOUT(RCINPT) ; Output the report to paper/screen or excel
; Input: RCINPT
; Output: OUTPUT
RPRT1EFT(DATA,RCRPRT) ; boolean function, Output one EFT record
; Input:
; DATA - EFT to write, See REPORT for a complete description
; RCRPRT("ExcelFrmt?"): zero - formatted Output to Screen /printer
; 1 - Output in Excel format
; RCRPRT("LineCount") - Line Count
; RCRPRT("Page") - Page Count
; Output:
; RCRPRT("LineCount") - Updated Line Count
; RCRPRT("Page") - Updated Page Count
; Returns:
; 1 if user indicates to quit, 0 otherwise
RPTHDR(RCRPRT) ; report header, line 1 is dynamic
RPTTOT ; Display report totals
PGEND() ; boolean function, end-of-page, Ask to continue
; Input: IOST - Device Type
; Returns: 1 - User wants to quit, 0 otherwise
DEVICE(EXCEL) ; boolean function to Select output device
; Input: EXCEL - 1 - Ouput in Excel format, 0 otherwise
; Output: IO,IOST arrays in symbol table
; Returns:
; 0 - No device selected, 1 otherwise
ASKXCEL() ; Ask user to export to Excel
; Input: None
; Returns: -1 - User up-arrowed or timed out
; zero - Output to selected device
; 1 - Output to Excel
GETFRST(LIMIT,END) ; scan for first EFT
; Input:
; LIMIT - Maximum days before aged UNPOSTED EFT lock the ERA worklist
; END - Today's date less LIMIT
; Output
; RET - Date of first 'lock' EFT or zero if none found
VALID(EFTDA) ; Check if EFT is a valid candidate
; Ignore zero payment amts
PAD(A,N) ; pad A with spaces to length N

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Medical Override "_$S($P(RCVAL("OverRide"),".")=DT:"",1:"not ")_"active for today's date"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Aged EFT days before Medical posting prevented = "_RCVAL("EFTPostLimit"),!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Task number "_ZTSK_" was queued.",1:"Unable to queue this task.")
  • Line Location: EN+43
Function Call: WRITE
  • Prompt: !,"EFT^Match Status^Aged Days^ERA #^Date Received^Amount^Trace #"
  • Line Location: RPTOUT+16
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: RPRT1EFT+15
Function Call: WRITE
  • Prompt: !,$$PAD($P(DATA,U),9)_$P(DATA,U,7)
  • Line Location: RPRT1EFT+24
Function Call: WRITE
  • Prompt: !,$$PAD(" "_$P(DATA,U,4),10)_$$PAD($P(DATA,U,2),20)_$$PAD($$FMTE^XLFDT($P(DATA,U,5)),15)_$$PAD($P(DATA,U,3),10)_"$"_$FN($P(DATA,U,6),",",2),!
  • Line Location: RPRT1EFT+26
Function Call: WRITE
  • Prompt: !,A,!,RCRPRT("HeaderLine",2),!,RCRPRT("HeaderLine",3),!,RCRPRT("HeaderLine",4)
  • Line Location: RPTHDR+3
Function Call: WRITE
  • Prompt: !!,"EFT Trace#",!," ERA Match Status EFT Received Aged Amount"
  • Line Location: RPTHDR+4
Function Call: WRITE
  • Prompt: !,RCRPRT("HeaderBorder")
  • Line Location: RPTHDR+5
Function Call: WRITE
  • Prompt: !,"Total Number of Unposted EFTs: "_$G(^TMP("RCDPE_EFTL",$J,"EFT count"))
  • Line Location: RPTTOT+1
Function Call: WRITE
  • Prompt: !,"Total Amount of Unposted EFTs: $"_$FN($G(^TMP("RCDPE_EFTL",$J,"Total Amt")),",",2)
  • Line Location: RPTTOT+2
Function Call: WRITE
  • Prompt: !,RCRPRT("HeaderBorder")
  • Line Location: RPTTOT+3

FileMan Files Accessed Via FileMan Db Call

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