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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 25

Package Total Call Graph
Accounts Receivable 10 EN^PRCAAPR  ^PRCACM  ^PRCAWREA  GETERR^RCDPEDS  ($$BILLREF,DISP)^RCDPESR0  (DISP,SEL)^RCDPEWL  (EDIT,INIT)^RCDPEWL3  RESTMP^RCDPEWL6  
FILESP^RCDPEWL8  ^RCDPRTP  
Integrated Billing 7 GETEOB^IBCECSA6  $$ISRX^IBCEF1  EN1AR^IBECEA  OPTION^IBJTLA  MAIN^IBOHPT1  ^IBRREL  $$ECME^IBTRE  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$FMTE^XLFDT  
List Manager 3 EN^VALM  (FULL,PAUSE)^VALM1  EN^VALM2  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Accounts Receivable 5 RCDPEAA3  RCDPEWL4  RCDPEWL5  RCDPEWL6  RCDPRPL3  

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

External References

Name Field # of Occurrence
^%ZIS VP+13
HOME^%ZIS VP+19
^%ZISC VPOUT+45
^%ZTLOAD VP+17
$$S^%ZTLOAD VPOUT+36
^DIR CHGMNT+11, ASK+3, RET+2, NOWAY+2, NOWAY1+2, CHKFILE+5, WL+7, WL+10, NOTAV+3
GETEOB^IBCECSA6 VPOUT+29
$$ISRX^IBCEF1 GOECME+14
EN1AR^IBECEA CHGMNT+8
OPTION^IBJTLA TPJI+4
MAIN^IBOHPT1 LSTHLD+7
^IBRREL RELHOLD+7
$$ECME^IBTRE GOECME+15
EN^PRCAAPR FAP+6
^PRCACM BILLCOM+6
^PRCAWREA REEST+12
GETERR^RCDPEDS VPOUT+30
$$BILLREF^RCDPESR0 VPOUT+23, VPOUT+28
DISP^RCDPESR0 VPOUT+22
DISP^RCDPEWL WL+12
SEL^RCDPEWL PREOB+3, GOECME+6
EDIT^RCDPEWL3 EDITSP+11
INIT^RCDPEWL3 EDITSP+13
RESTMP^RCDPEWL6 TPJI+5, FAP+7, RELHOLD+8, CMRPT+8, CHGMNT+9, LSTHLD+8, REEST+13, BILLCOM+8
FILESP^RCDPEWL8 CHKFILE+6
^RCDPRTP CMRPT+7
EN^VALM RESEARCH+7, GOECME+16
FULL^VALM1 TPJI+1, FAP+1, RELHOLD+2, CMRPT+2, CHGMNT+2, LSTHLD+2, REEST+3, BILLCOM+1, CHKFILE+3, EDITSP+3
PREOB+2, RESEARCH+4, WL+3, GOECME+5
PAUSE^VALM1 REEST+6, GOECME+11, GOECME+14, GOECME+15
EN^VALM2 SEL+2
$$FMTE^XLFDT RHDR+5, RHDR+7

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
Routine Call
  • %ZIS
  • Line Location:
    • VP+13
Routine Call
  • %ZIS
  • Line Location:
    • VP+19
Routine Call
  • DIR
  • Line Location:
    • CHGMNT+11
    • ASK+3
    • RET+2
    • NOWAY+2
    • NOWAY1+2
    • CHKFILE+5
    • WL+7
    • WL+10
    • NOTAV+3
Routine Call
  • VALM
  • Line Location:
    • RESEARCH+7
    • GOECME+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] GOECME+12
^IBM(361.1 - [#361.1] VPOUT+30, GOECME+10
^RCY(344.4 - [#344.4] VPOUT+12, VPOUT+23, VPOUT+28, RHDR+2, PREOB+12, PREOB+14, WL+5, GOECME+10
^RCY(344.49 - [#344.49] PREOB+6, WL+9, GOECME+9
^TMP("PRCA_EOB" VPOUT+3!, VPOUT+13*, VPOUT+14*, VPOUT+15*, VPOUT+16*, VPOUT+17*, VPOUT+25*, VPOUT+30, VPOUT+31*, VPOUT+33
VPOUT+35, VPOUT+41, VPQ!
^TMP("PRCA_EOB1" VPOUT+3!, VPOUT+8!, VPOUT+23*, VPOUT+27!, VPOUT+28*, VPOUT+40, VPQ!
^TMP("RCDPE_EOB_SPLIT_OK" CHKFILE+4
^TMP("RC_SAVE_TMP" TPJI+3*, FAP+5*, RELHOLD+6*, CMRPT+6*, CHGMNT+7*, LSTHLD+6*, REEST+11*, BILLCOM+5*
^TMP($J VPOUT+21!, VPOUT+24!, TPJI+3, FAP+5, RELHOLD+6, CMRPT+6, CHGMNT+7, LSTHLD+6, REEST+11, BILLCOM+5
CHKFILE+7!, RESEARCH+2!, RESEARCH+3*, RQ!
^XUSEC("PRCA EDI LOCKBOX CHARGES" CHGMNT+6
^XUSEC("RCDPEAR" REEST+4

Label References

Name Line Occurrences
ASK VPOUT+38, VPOUT+42
BILLCOMQ BILLCOM+3
CHMQ CHGMNT+4
CMQ CMRPT+4
EDITQ EDITSP+5, EDITSP+8
FAPQ FAP+3
GOEBQ GOECME+4, GOECME+8, GOECME+11, GOECME+14, GOECME+15
LHQ LSTHLD+4
NOTAV TPJI+2, FAP+3, RELHOLD+4, CMRPT+4, CHGMNT+4, LSTHLD+4, REEST+9, BILLCOM+3, EDITSP+5, RESEARCH+5
PREOBQ PREOB+5
REESTQ REEST+9
RELHQ RELHOLD+4
RET FAP+6, RELHOLD+7, CMRPT+7, LSTHLD+7, REEST+14, BILLCOM+7
RHDR VPOUT+39
RQ RESEARCH+5
SEL EDITSP+7
TPJIQ TPJI+2
VP PREOB+17
VPQ VP+13, VP+14, VPOUT+5
WLQ WL+6, WL+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS VP+11~, VP+13*
DA EDITSP+2~
DFN GOECME+1~, GOECME+12*
DIR RELHOLD+1~, CMRPT+1~, CHGMNT+1~, CHGMNT+11!, LSTHLD+1~, ASK+2~, RET+1~, RET+2!, NOWAY+1~, NOWAY+2!
NOWAY1+1~, NOWAY1+2!, CHKFILE+2~, CHKFILE+5!, WL+2~, WL+7!, WL+10!, NOTAV+1~, NOTAV+3!
DIR("A" CHGMNT+11*, RET+2*, NOWAY+2*, NOWAY1+2*, CHKFILE+5*, WL+7*, WL+10*, NOTAV+3*
DIR("B" CHKFILE+5*
DIR(0 CHGMNT+11*, ASK+3*, RET+2*, NOWAY+2*, NOWAY1+2*, CHKFILE+5*, WL+7*, WL+10*, NOTAV+3*
DIROUT ASK+2~
DIRUT ASK+2~, ASK+4
DT VPOUT+4
DTOUT FAP+6!, REEST+12!, BILLCOM+6!, ASK+2~
DUOUT ASK+2~, ASK+4
DUZ CHGMNT+6, REEST+4
IBIFN GOECME+1~, GOECME+10*, GOECME+11, GOECME+13*, GOECME+14, GOECME+15
IO VP+20
IO("Q" VP+14, VP+19!
IOF RHDR+3
IOM RHDR+9
IOSL VPOUT+37
IOST ASK+1, RHDR+3
POP VP+11~, VP+13
PRC REEST+2~
RC1 VPOUT+1~, VPOUT+34*, VPOUT+40*
RC3444 VPOUT+1~, VPOUT+4*, SET1~, SET1+1*
RC3611 VPOUT+1~, VPOUT+7*, VPOUT+8, VPOUT+12, VPOUT+13, VPOUT+23, VPOUT+27, VPOUT+28, VPOUT+29, VPOUT+30
VPOUT+33*, VPOUT+35, VPOUT+40, VPOUT+41
RCAPAR GOECME+1~, GOECME+2*, GOECME+3*, GOECME+13, GOEBQ+1
RCDA VP+11~, RELHOLD+1~, SET1~, SET1+1*, PREOB+1~, PREOB+3, PREOB+4*, PREOB+5, PREOB+6*, PREOB+7
GOECME+1~, GOECME+6, GOECME+7*, GOECME+8, GOECME+9*, GOECME+10
RCDA( PREOB+4, GOECME+7
RCDA(0 PREOB+4, GOECME+7
RCDA1 SET1~, SET1+1*
RCDASH VPOUT+1~, VPOUT+4*, VPOUT+17, VPOUT+25, VPOUT+31
RCDAZ VP~, PREOB+1~, PREOB+7*, PREOB+17, GOECME+1~
RCDAZ( VPOUT+6, VPOUT+7, VPOUT+19, VPOUT+22, VPOUT+23, VPOUT+28, PREOB+7*, PREOB+8, PREOB+10, PREOB+12*
PREOB+15*
RCDAZ(0 VPOUT+5
RCDEF EDITSP+2~, EDITSP+10*, EDITSP+11
RCDG GOECME+1~, GOECME+10*, GOECME+11, GOECME+12, GOECME+13
RCDIR EDITSP+10, EDITSP+11, EDITSP+12!*
RCDONE EDITSP+2~, EDITSP+9*, EDITSP+11
RCDT VPOUT+1~, VPOUT+4*, VPOUT+39, RHDR~, RHDR+5
RCEDIT EDITSP+2~, EDITSP+7, EDITSP+8, EDITSP+10, SEL~, SEL+3*
RCERA GOECME+3*, GOECME+4, GOECME+10, GOECME+11, GOEBQ+1!
RCIBY CMRPT+1~, LSTHLD+1~, SET1~
RCIBY("IBEOB" SET1+1
>> RCIENS GOECME+3
>> RCLINE EDITSP+11
RCPG VPOUT+1~, VPOUT+4*, VPOUT+36, VPOUT+37, VPOUT+38, VPOUT+39, VPOUT+42, RHDR~, RHDR+3, RHDR+4*
, RHDR+5
RCRCPT WL~, WL+5
RCREF VPOUT+1~, VPOUT+7*, VPOUT+10, SET1~, SET1+1*
RCSAVE EDITSP+2~, EDITSP+10*, EDITSP+12
RCSAVE1 EDITSP+2~, EDITSP+10*, EDITSP+12
RCSCR VP~, VPOUT+4, VPOUT+12, VPOUT+22, VPOUT+23, VPOUT+28, VPOUT+39, RELHOLD+1~, CHGMNT+1~, RHDR~
, RHDR+2, RHDR+7, EDITSP+11, PREOB+6, PREOB+12, PREOB+14, PREOB+17, GOECME+3*, GOECME+4, GOECME+9
GOEBQ+1!
RCSCR("NOEDIT" TPJI+2, FAP+3, RELHOLD+4, CMRPT+4, CHGMNT+4, LSTHLD+4, REEST+9, BILLCOM+3, EDITSP+5, RESEARCH+5
RCSPLIT EDITSP+10*, EDITSP+11, EDITSP+12!*
RCSPLIT( EDITSP+10, EDITSP+12
RCSPLIT(0 CHKFILE+4
RCSTOP VPOUT+1~, VPOUT+4*, VPOUT+33, VPOUT+35, VPOUT+36*, VPOUT+37, VPOUT+38, VPOUT+42, ASK~, ASK+4*
RCZ VPOUT+1~, VPOUT+6*, VPOUT+7, VPOUT+19, VPOUT+22, VPOUT+23, VPOUT+28
RCZ0 VPOUT+1~, VPOUT+12*, VPOUT+14, VPOUT+15, VPOUT+16
U VPOUT+7, VPOUT+14, VPOUT+15, VPOUT+16, VPOUT+19, VPOUT+23, VPOUT+28, RHDR+7, RHDR+8, SET1+1
PREOB+6, PREOB+15, GOECME+3, GOECME+9, GOECME+10, GOECME+12
>> VALMBCK VPQ+1*, TPJIQ*, FAPQ*, RELHQ*, CMQ*, CHGMNT+13*, LSTHLD+10*, REEST+7*, REESTQ*, BILLCOMQ*
, EDITQ*, PREOBQ*, EXIT+1*, WLQ*, NOTAV+4*, GOEBQ*
>> VALMBG RESEARCH+3
VALMY SEL+1~
VALMY(0 SEL+3
X RELHOLD+1~, CMRPT+1~, CHGMNT+1~, LSTHLD+1~, RET+1~, NOWAY+1~, NOWAY1+1~, CHKFILE+2~, WL+2~, NOTAV+1~
>> XQORNOD(0 SEL+2
Y RELHOLD+1~, CMRPT+1~, CHGMNT+1~, LSTHLD+1~, RET+1~, NOWAY+1~, NOWAY1+1~, CHKFILE+2~, CHKFILE+6, WL+2~
NOTAV+1~
Z VPOUT+1~, RHDR+1~, RHDR+2*, RHDR+7, RHDR+8, PREOB+1~, PREOB+8*, PREOB+10, PREOB+12, PREOB+15
, WL+2~, WL+5*, WL+6, WL+9, WL+12, GOECME+1~
Z0 VPOUT+1~, VPOUT+35*, VPOUT+41, PREOB+1~, PREOB+10*, PREOB+11, PREOB+12, PREOB+14*, PREOB+15, GOECME+1~
ZTDESC VP+11~, VP+15*
>> ZTQUEUED VPOUT+36, VPOUT+44, VPOUT+45
ZTREQ VPOUT+36!, VPOUT+44*
ZTRTN VP+11~, VP+15*
ZTSAVE VP+11~
ZTSAVE("RC*" VP+16*
ZTSK VP+18, VP+19!
>> ZTSTOP VPOUT+36*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All