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

Package: Accounts Receivable

Routine: RCDPEX3


Information

RCDPEX3 ;ALB/TMK/PJH - ELECTRONIC EOB EXCEPTION PROCESSING - FILE 344.4 ; 3/30/11 7:19pm

Source Information

Source file <RCDPEX3.m>

Entry Points

Name Comments DBIA/ICR reference
VP ; View/Print ERA Msgs - File 344.4
VPOUT ; Entrypoint queued job
; RCDA, RCALL must be defined
VPQ
WRTSEP(RCDOT,RCPG) ; Separating lines if more records to print
PRT(RCTDA,RCTDA1,RCPG,RCSTOP) ; Print data from file 344.4 and 344.41
; RCTDA = ien file 344.4
; RCTDA1 = ien file 344.41
; RCPG = last page extracted
; RCSTOP = returned 1 if passed by ref and process stopped
XFR ; Transfer EOB(s) to other site
XFRQ
SEL(RCDA,ONE) ; Select entry(s) from list
; RCDA = array returned if selections made
; RCDA(n)=ien of bill selected file 344.4
; ONE = if set to 1, only one selection can be made at a time
HDR(RCPG) ;Print report hdr
; RCPG = last page #
ASK(RCSTOP) ;
UPD ; Try to update the IB EOB file from exception in 344.41

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: VP+19
Function Call: WRITE
  • Prompt: !,RCDOT,!,RCDOT
  • Line Location: WRTSEP+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRTSEP+3
Function Call: WRITE
  • Prompt: !!,"***TASK STOPPED BY USER***"
  • Line Location: PRT+27
Function Call: WRITE
  • Prompt: !,$G(^TMP($J,"RC_SUMOUT",Z))
  • Line Location: PRT+31
Function Call: WRITE
  • Prompt: !
  • Line Location: XFR+12
Function Call: WRITE
  • Prompt: !
  • Line Location: XFR+20
Function Call: WRITE
  • Prompt: !
  • Line Location: XFR+52
Function Call: WRITE
  • Prompt: !
  • Line Location: XFR+58
Function Call: WRITE
  • Prompt: !!,"TRANSFER OF EEOB TO "_$P($G(^DIC(4,RCXTO,0)),U)_" RESULTS: ",!
  • Line Location: XFR+95
Function Call: WRITE
  • Prompt: !," ",RCER(RCECT)
  • Line Location: XFR+96
Function Call: WRITE
  • Prompt: !
  • Line Location: XFR+97
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?5,"EDI LOCKBOX EEOB DATA EXCEPTIONS - EEOB DETAIL",?55,$$FMTE^XLFDT(DT,2),?70,"Page: ",RCPG,!,$TR($J("",IOM)," ","=")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] GETS^DIQ
344.41 GETS^DIQ
344.42 GETS^DIQ
^DIC(4 - [#4] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call