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

Package: Accounts Receivable

Routine: RCDPEREC


Information

RCDPEREC ;ALB/TMK/KML/PJH - RECONCILIATION REPORT FOR EDI LOCKBOX FMS DOCS ; 8/2/10 4:17pm

Source Information

Source file <RCDPEREC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entrypoint for producing the report
ENQUE ; Queued entrypoint for the report
; RCDDT = starting EFT deposit date
; RCSEL = 'A' if all deposits included ... 'N' if only those not fully
; transferred out of 8NZZ
EFTDEP(RCD,RCSTOP,RCPG) ;
; RCD = deposit date (FM) concatenated with the deposit #
TOT(RCD,RCSTOP,RCPG) ; Output the total lines for the deposit
NEWPG(RCPG) ; Check for new page needed, output header
; Function returns 1 if user chooses to stop output
SELECT() ; Select first deposit #
; Function returns values selected for first deposit #
HDR1(RCPG) ;Print report hdr
; RCPG = last page #^0/1 for top of page indicator
ASK(RCSTOP) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number"_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,?3,$J("",6)," UNMATCHED ",$E($P(Z,U,2)_$J("",30),1,30)_" "_$E($P(Z,U,3)_$J("",20),1,20)
  • Line Location: ENQUE+43
Function Call: WRITE
  • Prompt: !,?13,$P(Z,U,4)
  • Line Location: ENQUE+44
Function Call: WRITE
  • Prompt: !,?3,"ERROR IN EFT DETAIL LINE #: ",RCTRANS
  • Line Location: ENQUE+46
Function Call: WRITE
  • Prompt: !,?3,$E(+RC00_$J("",6),1,6)_" "_$E($P(RC00,U,3)_$J("",10),1,10)_" "_$E($P(Z,U,2)_$J("",30),1,30)_" "_$E($P(Z,U,3)_$J("",20),1,20)
  • Line Location: ENQUE+49
Function Call: WRITE
  • Prompt: !,?13,$E($P(Z,U,4)_$J("",50),1,50)
  • Line Location: ENQUE+51
Function Call: WRITE
  • Prompt: !,?43,$E($P(RC00,U,5)_$J("",10),1,10),!,?15,$E($P(RC00,U,2)_$J("",10),1,10)_" "_$E($P(RC00,U,4)_$J("",15),1,15)
  • Line Location: ENQUE+52
Function Call: WRITE
  • Prompt: !,"TASK STOPPED BY USER"
  • Line Location: ENQUE+57
Function Call: WRITE
  • Prompt: !!
  • Line Location: EFTDEP+6
Function Call: WRITE
  • Prompt: !,$E($$FMTE^XLFDT($P(Z,U,2),"2D")_$J("",8),1,8)," ",$E(+$G(^TMP($J,"RCDEP",RCD,"EFT"))_$J("",6),1,6)," ",$E($P(Z,U)_$J("",9),1,9)," ",$J($P(Z,U,3),13,2)," ",$E($S($P(Z,U,6):$$FMTE^XLFDT($P(Z,U,6),"2D"),1:"UNPOSTED")_$J("",8),1,8)
  • Line Location: EFTDEP+9
Function Call: WRITE
  • Prompt: !,?5,$E($P(Z0,U)_$J("",20),1,20)," ",$P(Z0,U,2)
  • Line Location: EFTDEP+10
Function Call: WRITE
  • Prompt: !,$J("",26),"TOTAL AMOUNT SENT VIA 'TR' DOCUMENTS: ",$J($G(^TMP($J,"RCDEP",RCD,"TOT")),15,2)
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !,$J("",26),"TOTAL AMOUNT STILL TO BE TRANSFERRED: ",$J($P($G(^TMP($J,"RCDEP",RCD,"TOT")),U,2)-$G(^TMP($J,"RCD",RCD,"TOT")),15,2)
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,"EDI LOCKBOX FUND 5287.4/8NZZ RECONCILIATION REPORT",?55,$$FMTE^XLFDT(DT,2),?70,"Page: ",+RCPG
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !!,"DEP DATE ENTRY# DEP # TOTAL DEP AMT POST DT RECEIPT #",!,?5,"CR DOCUMENT CR DOC STATUS"
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !,?3,"EFT # MATCHED TO PAYER NAME PAYER ID ",!,?13,"TRACE #"
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: !,?20,"RECEIPT #"
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: !,?15,"TR DOCUMENT TR DOC STATUS"
  • Line Location: HDR1+11
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+3
Info |  Source |  Entry Points |  Interaction Calls