Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 $$EXTERNAL^DILFD  ^DIR  
List Manager 1 FULL^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Accounts Receivable 2 RCDPEWL8  RCDPEWLB  

Entry Points

Name Comments DBIA/ICR reference
ASK(RCSTOP) ; Ask to continue
; If passed by reference ,RCSTOP is returned as 1 if print is aborted
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
RPTOUT(RCERA) ; Queued job entrypoint
SUMRPT(RCERA) ; Produce batch summary report from the ERA worklist for
; ERA worklist entry RCERA
SUMRPTQ
NOTSET ;

External References

Name Field # of Occurrence
^%ZIS SUMRPT+6
HOME^%ZIS SUMRPT+11
^%ZISC RPTOUT+17
^%ZTLOAD SUMRPT+9
$$S^%ZTLOAD HDR+5
$$EXTERNAL^DILFD RPTOUT+9
^DIR NOTSET+2, ASK+4
FULL^VALM1 SUMRPT+3
$$FMTE^XLFDT HDR+10, HDR+12

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
Routine Call
  • %ZIS
  • Line Location:
    • SUMRPT+11
Routine Call
  • DIR
  • Line Location:
    • NOTSET+2
    • ASK+4
Routine Call
  • %ZIS
  • Line Location:
    • SUMRPT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
344.493 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.4 - [#344.4] HDR+6
^RCY(344.49 - [#344.49] SUMRPT+4, RPTOUT+3, RPTOUT+7
^VA(200 - [#200] RPTOUT+8

Label References

Name Line Occurrences
ASK RPTOUT+15, HDR+7
HDR RPTOUT+4, RPTOUT+14
NOTSET SUMRPT+4
RPTOUT SUMRPT+13
SUMRPTQ SUMRPT+6, SUMRPT+7

Naked Globals

Name Field # of Occurrence
^( RPTOUT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SUMRPT+2~, SUMRPT+6*
DIR NOTSET+1~, NOTSET+2!, ASK+3~
DIR("A" NOTSET+2*
DIR(0 NOTSET+2*, ASK+4*
DIROUT ASK+3~
DIRUT ASK+3~, ASK+5
DT HDR+10
DTOUT ASK+3~
DUOUT ASK+3~, ASK+5
IO SUMRPT+12
IO("Q" SUMRPT+7, SUMRPT+11!
IOF HDR+8
IOM HDR+14
IOSL RPTOUT+4
IOST HDR+7, ASK+2
POP SUMRPT+2~, SUMRPT+6
Q RPTOUT+1~, RPTOUT+7*
RCERA SUMRPT~, SUMRPT+4, SUMRPT+8, SUMRPT+13, RPTOUT~, RPTOUT+3, RPTOUT+4, RPTOUT+7, RPTOUT+14
RCHAS RPTOUT+1~, RPTOUT+2*, RPTOUT+6*, RPTOUT+14
RCPG RPTOUT+1~, RPTOUT+2*, RPTOUT+4, RPTOUT+14, RPTOUT+15, HDR~, HDR+5, HDR+7, HDR+9*, HDR+10
RCSCR HDR~, HDR+6, HDR+11
RCSTOP RPTOUT+1~, RPTOUT+2*, RPTOUT+3, RPTOUT+4, RPTOUT+5, RPTOUT+14, RPTOUT+15, HDR~, HDR+5*, HDR+7
, ASK~, ASK+5*
RCT RPTOUT+1~, RPTOUT+6*, RPTOUT+7*, RPTOUT+9
RCZ0 HDR+4~, HDR+6*, HDR+11, HDR+12
U RPTOUT+8, RPTOUT+9, RPTOUT+10, RPTOUT+11, RPTOUT+12, HDR+11, HDR+12
>> VALMBCK NOTSET+3*
X NOTSET+1~
Y NOTSET+1~
Z RPTOUT+1~, RPTOUT+3*
Z0 RPTOUT+1~, RPTOUT+3*, RPTOUT+7, RPTOUT+8, RPTOUT+9, RPTOUT+10, RPTOUT+11, RPTOUT+12
ZTDESC SUMRPT+2~, SUMRPT+8*
ZTQUEUED SUMRPT+2~, RPTOUT+15, RPTOUT+16, RPTOUT+17, HDR+5
ZTREQ RPTOUT+16*, HDR+5!
ZTRTN SUMRPT+2~, SUMRPT+8*
ZTSK SUMRPT+10, SUMRPT+11!
>> ZTSTOP HDR+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All