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

Package: Accounts Receivable

Routine: RCDPEWL2


Information

RCDPEWL2 ;ALB/TMK/KML - ELECTRONIC EOB WORKLIST ACTIONS ;7/7/10 6:43pm

Source Information

Source file <RCDPEWL2.m>

Entry Points

Name Comments DBIA/ICR reference
VP(RCSCR,RCDAZ) ; View/Print EOB Detail data from file 361.1
; RCSCR = ien of entry in file 344.4
; RCDAZ = array subscripted by a sequential # and
; RCDAZ(n) = one of 3 formats
; ERA level adjustments
; ADJ^the ien of the adj in 344.42
; EOB exists in file 361.1:
; ien of line in 344.41^ien of 361.1
; EOB doesn't exist in 361.1:
; ien of line in 344.41^-1
VPOUT ; Entrypoint for queued job
VPQ
TPJI ; Jump to Third Party Joint Inquiry for the claim
TPJIQ
FAP ; Jump to Full Account Profile
FAPQ
RELHOLD ; Jump to Release Hold function
RELHQ
CMRPT ; Jump to claims matching report
CMQ
CHGMNT ; Jump to charge maintenance
CHMQ
LSTHLD ; Jump to list current/on hold charges
LHQ
REEST ;EP - Protocol action - RCDPE EOB WORKLIST REESTABLISH
; Jump to re-establish bill
REESTQ
BILLCOM ; Jump to bill comment log
BILLCOMQ
ASK(RCSTOP) ;
RHDR(RCSCR,RCDT,RCPG) ;Prints EOB detail report heading
RET ; Pause before returning to list
NOWAY ; Msg for unidentified bill
NOWAY1 ; Msg for ERA level Adjustment
SET1(RCIBY,RCDA,RCDA1,RC3444,RCREF) ; Set up variables for receipt/ERA
CHKFILE ; If the user leaves the split line screen without filing - double check
; that they didn't want to file it.
EDITSP ; Action that edits the split lines
; RCLINE,RCSCR must already exist
EDITQ
PREOB ; Print/View EOB detail
PREOBQ
RESEARCH ; Invoke the research menu
RQ
SEL(RCEDIT) ;
EXIT ; Exits back to ERA menu actions from research
WL(RCRCPT) ; Entrypoint to the ERA Worklist from Receipt Processing
WLQ
NOTAV ; Display not available msg
GOECME ; Select an EEOB and then jump to the [IBJT ECME RESP INFO SCREEN]
GOEBQ

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+18
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: VPOUT+36
Function Call: WRITE
  • Prompt: !!,$G(^TMP("PRCA_EOB1",$J,RC3611,1))
  • Line Location: VPOUT+40
Function Call: WRITE
  • Prompt: !,$G(^TMP("PRCA_EOB",$J,RC3611,Z0))
  • Line Location: VPOUT+41
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGMNT+11
Function Call: WRITE
  • Prompt: !!,"This action can only be taken by users that have the RCDPEAR security key.",!
  • Line Location: REEST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: RHDR+3
Function Call: WRITE
  • Prompt: !,?15,"EDI LOCKBOX EEOB DETAIL FROM WORKLIST",?55,$$FMTE^XLFDT(RCDT,2),?70,"Page: ",RCPG
  • Line Location: RHDR+5
Function Call: WRITE
  • Prompt: !!,$E(" ERA NUMBER: "_RCSCR_$J("",25),1,25)_"ERA DATE: "_$$FMTE^XLFDT($P(Z,U,4)),!,"INS COMPANY: "_$P(Z,U,6)_"/"_$P(Z,U,3)
  • Line Location: RHDR+7
Function Call: WRITE
  • Prompt: !,"ERA TRACE #: "_$P(Z,U,2)
  • Line Location: RHDR+8
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: RHDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: RET+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NOWAY+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NOWAY1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHKFILE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WL+10
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTAV+3
Function Call: WRITE
  • Prompt: !!,"Problem with Bill IEN: "_IBIFN_", ERA: "_RCERA_" Please report this issue."
  • Line Location: GOECME+11
Function Call: WRITE
  • Prompt: !!,"Not available. This is not a Pharmacy Claim."
  • Line Location: GOECME+14
Function Call: WRITE
  • Prompt: !!,"Not available. This is a Pharmacy Claim, but not an ECME Claim."
  • Line Location: GOECME+15
Info |  Source |  Entry Points |  Interaction Calls