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

Package: Accounts Receivable

Routine: RCDPEWLC


Information

RCDPEWLC ;ALB/TMK - EEOB WORKLIST BATCH PROCESSING ;18-FEB-2004

Source Information

Source file <RCDPEWLC.m>

Entry Points

Name Comments DBIA/ICR reference
SUMRPT(RCERA) ; Produce batch summary report from the ERA worklist for
; ERA worklist entry RCERA
SUMRPTQ
RPTOUT(RCERA) ; Queued job entrypoint
NOTSET ;
HDR(RCPG,RCSCR,RCSTOP) ;Print report hdr
; RCPG = last page #
; RCSCR = the entry # in file 344.49
; RCSTOP = returned as 1 if abort is detected
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: SUMRPT+10
Function Call: WRITE
  • Prompt: !,$J(+Z0,7)_" "_$E($P(Z0,U,2)_$J("",30),1,30)_" "_$P("NO ^YES",U,$P(Z0,U,3)+1)_$J("",13)_$P($G(^VA(200,+$P(Z0,U,4),0)),U)
  • Line Location: RPTOUT+8
Function Call: WRITE
  • Prompt: !,$J("",9)_"# RECORDS: "_RCT_" CRITERIA: "_$$EXTERNAL^DILFD(344.493,.06,"",$P(Z0,U,6))
  • Line Location: RPTOUT+9
Function Call: WRITE
  • Prompt: " FROM: "_$P(Z0,U,7)_" TO: "_$P(Z0,U,8)
  • Line Location: RPTOUT+10
Function Call: WRITE
  • Prompt: " "_$P("PARTIAL^FULL^NO",U,+Z0)_" PAYMENT"
  • Line Location: RPTOUT+11
Function Call: WRITE
  • Prompt: " "_$P("CO-PAY^NO CO-PAY",U,+Z0)
  • Line Location: RPTOUT+12
Function Call: WRITE
  • Prompt: !,"THERE ARE NO BATCHES DEFINED FOR THIS ERA"
  • Line Location: RPTOUT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTSET+2
Function Call: WRITE
  • Prompt: !,@IOF,*13
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"EDI LBOX WORKLIST - BATCH SUMMARY REPORT",?59,$$FMTE^XLFDT(DT,2),?70,"Page: ",RCPG,!
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"ERA #: ",$E(RCSCR_$J("",29),1,29)_" TRACE #: "_$P(RCZ0,U,2)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"PAYER: "_$E($P(RCZ0,U,6)_$J("",30),1,30)_" ERA DT: "_$$FMTE^XLFDT($P(RCZ0,U,4),"2D")
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !!,"BATCH # NAME"_$J("",28)_"READY TO POST? STATUS SET BY"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
344.493 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call