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 |  Local Variables |  All
Print Page as PDF
Routine: RCDPEWLP

Package: Accounts Receivable

Routine: RCDPEWLP


Information

RCDPEWLP ;ALBANY/KML - EDI LOCKBOX ERA and EEOB WORKLIST procedures ;10 Oct 2018 11:49:24

Source Information

Source file <RCDPEWLP.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Accounts Receivable 7 $$BN1^PRCAFN  $$ISTYPE^RCDPEU1  CHECK^RCDPEUPO  (HDR,SEL)^RCDPEWL  PARAMS^RCDPEWL0  (HDR,INIT)^RCDPEWL7  EN^RCDPEX1  
List Manager 2 EN^VALM  ($$SETFLD,FULL)^VALM1  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  
Outpatient Pharmacy 1 EN^PSOORDER  

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

Package Total Caller Graph
Accounts Receivable 14 RCDPE AUTO EOB RECEIPT PREVIEW  RCDPE ERA WORKLIST CHANGE VIEW  RCDPEAA2  RCDPEAA3  RCDPEAR1  RCDPEFTL  RCDPENR1  RCDPEUPO  
RCDPEWL0  RCDPEWL1  RCDPEWL4  RCDPEWL6  RCDPEWL7  RCDPTAR  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
AGEDEFTS(ERADA,TYPE) ;function, Search medical or pharmacy aged EFTs that have not been posted
; ENTRY point for the Select ERA action on the ERA Worklist screen
; Input: ERADA - IEN in file 344.4
; TYPE - Medical, Pharmacy or Tricare (M,P, T)
; Returns:
; "1P" Error for aged, unposted pharmacy EFTs
; "2P" Warning for aged,unposted pharmacy EFTs
; "3P" Override exists for aged, unposted pharmacy EFTs
; "1M" Error for aged, unposted medical EFTs
; "2M" Warning for aged, unposted medical EFTs
; "3M" Override exists for aged, unposted medical EFTs
; "1T" Error for aged, unposted Tricare EFTs
; "2T" Warning for aged, unposted Tricare EFTs
; "3T" Override exists for aged, unposted Tricare EFTs
; 0 No error or warning conditions
; NOTE: may be more than one - "1P" or "2P" or "3P" or "3P^2M" or "3P^3M", etc.
AEFTSQ ; single exit for function
GETEFTS(TYPE,OPTION) ;function, EP from RCDPEUPO for Unposted EFT Override option
; Set up search criteria for unposted EFTs. If aged, unposted EFTs create warning/prevention messages
; TYPE: "M" (Medical ERA-EFT), "P" (Phamacy ERA-EFT), "T" (Tricare ERA-EFT), "A" (Medical, Pharmacy & Tricare)
CUTOFF() ; Returns EFT Cutoff date
; date is 2 months prior to install date of patch 298, ignore aged EFTS older than that
EFTDET(RECVDT,TYPE,DAYSLIMT,TRARRY) ; Gather EFT data, Only EFTs that are aged and unposted
CHKEFT(RECVDT,EFTDA,TYPE,DAYSLIMT,TRARRY) ; Check EFT for warnings/errors
PROC(EFTDA) ; Check if TR Receipt for an EFT linked to Paper EOB is processed
; Input: EFTDA - IEN for file 344.31
; Returns: 1 if TR receipt exists and is OPEN, 0 otherwise
FTRACE(TRARRY,STR) ; both args. passed by ref.
; TRARRY - trace numbers of aged, unposted EFTs
; returns: STR - array of trace numbers separated by commas for warning or error message
WARNMSG(TYPE,STR) ; warning message when aged, unposted EFTs exist
; Input: TYPE - "M" - Medical, "P" - Pharmacy or "T" - Tricare
; STR - Array, subscripts are strings in "trace#, trace#," format
PREVMSG(TYPE,DAYS,STR) ; Display Error message when aged, unposted EFTs exist
EXCDENY ; PRCA*4.5*298
; access denied message for ERAs selected off ERA Worklist with exceptions
; PRCA*4.5*304 - undeclared parameters (from WL^RCDPEWL7): RCERA and RCEXC
EXCWARN(ERADA) ; prca*4.5*298 warning msg. if exception
; Input: ERADA - IEN in file 344.4
; Output: WARNING MESSAGE if exception exists on ERA
;
XCEPT(ERADA) ; prca*4.5*298, return ERA exception state
; Input: ERADA - IEN in file 344.4
; Returns: "x" or null, "x": Exception for a claim in the ERA
PHARM(X1) ; prca*4.5*298, function, Pharmacy, or Medical ERA?
; X1 - IEN file 344.4
; Returns: 1: Pharmacy ERA, 0: Non-pharmacy ERA
GETPHARM(PRCAIEN,RCARRY) ;prca*4.5*298 return pharmacy data to show on EEOB items in scratchpad
; Input: PRCAIEN - IEN file 430
; Output: RCARRY - holds pharmacy data
; IA 6033 - read access file 362.4
; ICR 1878 - EN^PSOORDER call
CV ; Change View action for ERA Worklist
NOEDIT ; no edit allowed, ERA designated for auto-posting
VR(ERADA) ; handle auto-posted ERAs, Look at Receipt protocol for standard Worklist
; Input: ERADA - IEN from file 344.49 (and 344.4)
NOVIEW ; selected EEOB cannot be viewed if no receipt number
INIT(ERADA,EEOBREC) ; List Template - RCDPE AUTO EOB RECEIPT PREVIEW entry point
; Display EEOBs that have been posted (receipt exists)
; Input:
; ERADA - IEN file 344.49 (and 344.4)
; EEOBREC - Selected EEOBs receipt
; Output: ^TMP("RCDPE_AP_EOB_PREVIEW",$J)
SET(X) ;
HDR ;
FNL ;

External References

Name Field # of Occurrence
$$GET1^DIQ GETEFTS+11, GETEFTS+12, GETEFTS+13, GETEFTS+15, CHKEFT+10, CHKEFT+13, CHKEFT+14, CHKEFT+15, CHKEFT+18, CHKEFT+19
, CHKEFT+21, PROC+6
^DIR WARNMSG+14, PREVMSG+18, EXCDENY+13, EXCWARN+14, NOEDIT+4, NOVIEW+5
$$BN1^PRCAFN INIT+32
EN^PSOORDER GETPHARM+14
$$ISTYPE^RCDPEU1 CHKEFT+25, CHKEFT+34
CHECK^RCDPEUPO GETEFTS+23
HDR^RCDPEWL HDR+1
SEL^RCDPEWL VR+3
PARAMS^RCDPEWL0 CV+2
HDR^RCDPEWL7 CV+3
INIT^RCDPEWL7 CV+3
EN^RCDPEX1 EXCDENY+17
EN^VALM VR+9
$$SETFLD^VALM1 INIT+31, INIT+32, INIT+33
FULL^VALM1 CV+1
$$FMADD^XLFDT CUTOFF+4
$$FMDIFF^XLFDT AGEDEFTS+55, AGEDEFTS+59, AGEDEFTS+63, CHKEFT+20
$$FMTE^XLFDT GETPHARM+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: WARNMSG+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PREVMSG+17
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCDENY+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCWARN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: NOEDIT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NOEDIT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NOVIEW+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NOVIEW+5
Routine Call
  • DIR
  • Line Location:
    • WARNMSG+14
    • PREVMSG+18
    • EXCDENY+13
    • EXCWARN+14
    • NOEDIT+4
    • NOVIEW+5
Routine Call
  • VALM
  • Line Location:
    • VR+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344 - [#344] GET1^DIQ
^RCY(344.31 - [#344.31] GET1^DIQ
^RCY(344.4 - [#344.4] GET1^DIQ
^RCY(344.61 - [#344.61] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(362.4 - [#362.4] GETPHARM+9, GETPHARM+10
^PRCA(430 - [#430] GETPHARM+8
^RCY(344 - [#344] PROC+5
^RCY(344.31 - [#344.31] AGEDEFTS+43, AGEDEFTS+44, EFTDET+9, EFTDET+10, CHKEFT+9
^RCY(344.4 - [#344.4] AGEDEFTS+41, XCEPT+4, PHARM+3, VR+7, INIT+12
^RCY(344.49 - [#344.49] VR+6, INIT+9, INIT+10, INIT+19, INIT+20
^RCY(344.61 - [#344.61] CUTOFF+2
^TMP("PSOR" GETPHARM+15, GETPHARM+17, GETPHARM+19
^TMP("RCDPE_AP_EOB_PREVIEW" INIT+7!, SET+1*, FNL+1!

Label References

Name Line Occurrences
$$CUTOFF GETEFTS+16
$$GETEFTS AGEDEFTS+56, AGEDEFTS+60, AGEDEFTS+64
$$PHARM CHKEFT+28, CHKEFT+40, EXCWARN+4
$$PROC CHKEFT+18
$$XCEPT EXCWARN+5
AEFTSQ AGEDEFTS+42, AGEDEFTS+45, AGEDEFTS+48, AGEDEFTS+54, AGEDEFTS+58, AGEDEFTS+62
CHKEFT EFTDET+11
EFTDET GETEFTS+17
FTRACE GETEFTS+31, GETEFTS+40
NOVIEW VR+8
PREVMSG GETEFTS+31
SET INIT+26, INIT+27, INIT+28, INIT+34, INIT+36, INIT+37
WARNMSG GETEFTS+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGED CHKEFT+8~, CHKEFT+20*, CHKEFT+30, CHKEFT+32, CHKEFT+36, CHKEFT+38, CHKEFT+41, CHKEFT+43
ARRAY GETEFTS+8~, GETEFTS+30*, GETEFTS+31, GETEFTS+32!, GETEFTS+39*, GETEFTS+40, GETEFTS+41!
CTR FTRACE+3~, FTRACE+4*, FTRACE+6, FTRACE+7*, FTRACE+8
DATE AGEDEFTS+39~
DAYS PREVMSG~
DAYS( PREVMSG+9
DAYSLIMT GETEFTS+8~, GETEFTS+17, GETEFTS+31, EFTDET~, EFTDET+11, CHKEFT~
DAYSLIMT( GETEFTS+15*
DAYSLIMT("M" GETEFTS+11*, CHKEFT+41
DAYSLIMT("P" GETEFTS+12*, CHKEFT+30
DAYSLIMT("T" GETEFTS+13*, CHKEFT+36
DIR WARNMSG+3~, PREVMSG+6~, EXCDENY+3~, EXCWARN+6~, NOEDIT+1~, NOVIEW+1~
DIR("A" WARNMSG+5*, WARNMSG+6*, WARNMSG+7*, WARNMSG+8*, WARNMSG+9*, WARNMSG+10*, WARNMSG+11*, WARNMSG+12*, PREVMSG+8*, PREVMSG+9*
, PREVMSG+10*, PREVMSG+11*, PREVMSG+12*, PREVMSG+13*, PREVMSG+14*, PREVMSG+15*, PREVMSG+16*, EXCDENY+5*, EXCDENY+6*, EXCDENY+7*
, EXCDENY+8*, EXCDENY+9*, EXCDENY+11*, EXCWARN+8*, EXCWARN+9*, EXCWARN+10*, EXCWARN+11*, EXCWARN+12*, NOEDIT+2*, NOEDIT+3*
, NOVIEW+3*, NOVIEW+4*
DIR("B" EXCDENY+12*
DIR(0 WARNMSG+4*, PREVMSG+7*, EXCDENY+4*, EXCWARN+7*, NOEDIT+2*, NOVIEW+2*
DIROUT EXCDENY+3~
DIRUT EXCDENY+3~
DT AGEDEFTS+55, AGEDEFTS+59, AGEDEFTS+63, CUTOFF+3, CHKEFT+20
DTARRY GETEFTS+8~
DTOUT EXCDENY+3~
DUOUT EXCDENY+3~
EEOBREC VR+2~, VR+7*, VR+8, INIT~, INIT+13
EFT0 AGEDEFTS+39~
EFTDA AGEDEFTS+39~, AGEDEFTS+43*, AGEDEFTS+44, AGEDEFTS+45, AGEDEFTS+48, AGEDEFTS+52, EFTDET+8~, EFTDET+10*, EFTDET+11, CHKEFT~
, CHKEFT+9, CHKEFT+10, CHKEFT+13, CHKEFT+14, CHKEFT+18, CHKEFT+19, CHKEFT+21, CHKEFT+25, CHKEFT+34, PROC~
, PROC+5
EFTTYPE CHKEFT+8~, CHKEFT+25*, CHKEFT+26
ERADA AGEDEFTS~, AGEDEFTS+41, AGEDEFTS+43, EXCWARN~, EXCWARN+4, EXCWARN+5, XCEPT~, XCEPT+4, VR~, VR+6
, VR+7, INIT~, INIT+9, INIT+10, INIT+12, INIT+19, INIT+20
ERAREC CHKEFT+8~, CHKEFT+14*, CHKEFT+15, CHKEFT+18, CHKEFT+24, CHKEFT+28, CHKEFT+30, CHKEFT+32, CHKEFT+36, CHKEFT+38
, CHKEFT+40, CHKEFT+41, CHKEFT+43
IEN344 PROC+3~, PROC+5*, PROC+6
LEN FTRACE+3~
LN WARNMSG+3~, WARNMSG+10*, WARNMSG+11*, PREVMSG+6~, PREVMSG+14*, PREVMSG+15*
MSTATUS CHKEFT+8~, CHKEFT+19*, CHKEFT+26, CHKEFT+30, CHKEFT+32, CHKEFT+36, CHKEFT+38, CHKEFT+41, CHKEFT+43
OPTION GETEFTS~, GETEFTS+9*, GETEFTS+28, GETEFTS+37
OUTCOME GETEFTS+8~, GETEFTS+24*, GETEFTS+25*, GETEFTS+36*, GETEFTS+43*, GETEFTS+45
OVERRIDE GETEFTS+8~, GETEFTS+23, GETEFTS+24, GETEFTS+28
PRCAIEN GETPHARM~, GETPHARM+7, GETPHARM+8, GETPHARM+9
RC0 GETPHARM+5~, GETPHARM+9*, GETPHARM+10
RC34431 AGEDEFTS+39~, AGEDEFTS+44*, AGEDEFTS+52
RC3444 AGEDEFTS+39~, AGEDEFTS+41*, AGEDEFTS+42, AGEDEFTS+45, AGEDEFTS+48, AGEDEFTS+52
RCARRY GETPHARM~, GETPHARM+6!
RCARRY("DOS" GETPHARM+11*
RCARRY("FILL" GETPHARM+12*, GETPHARM+16, GETPHARM+18, GETPHARM+19
RCARRY("RELEA SED STATUS" , GETPHARM+17*, GETPHARM+19*
RCARRY("RX" GETPHARM+15*
RCDA VR+2~, VR+3
RCDA( VR+4
RCDA(0 VR+4
RCDFN GETPHARM+5~, GETPHARM+8*, GETPHARM+14
RCDWLIEN EXCDENY+3~, EXCDENY+16, EXCDENY+17*
>> RCERA EXCDENY+16*, EXCDENY+17
>> RCEXC EXCDENY+16*
RCMBG EXCDENY+16!, EXCDENY+17*
RCPT INIT+6~, INIT+12*, INIT+18!
RCPT( INIT+12*, INIT+13
RCX CUTOFF+2~*, CUTOFF+3*, CUTOFF+4
RCZ VR+2~, VR+4*, VR+5, VR+6, INIT+6~, INIT+16*, INIT+17, INIT+22, INIT+23, INIT+25*
, INIT+26, INIT+27, INIT+28, INIT+29, INIT+30, INIT+32, INIT+35, INIT+36, INIT+37
RCZ( INIT+17*, INIT+22*, INIT+23*, INIT+25, INIT+29, INIT+30, INIT+35, INIT+36, INIT+37
RCZ0 VR+2~, VR+6*, VR+7
RECVDT EFTDET~, EFTDET+9*, EFTDET+10, EFTDET+11, CHKEFT~, CHKEFT+20
RES XCEPT+3~, XCEPT+4*, XCEPT+5
RET PROC+3~*, PROC+6*, PROC+7
RXDATA GETPHARM+5~, GETPHARM+10*, GETPHARM+11, GETPHARM+12, GETPHARM+13
RXFILL GETPHARM+5~
RXIEN GETPHARM+5~, GETPHARM+13*, GETPHARM+14, GETPHARM+15, GETPHARM+17, GETPHARM+19
SELERADT AGEDEFTS+39~, AGEDEFTS+52*, AGEDEFTS+55, AGEDEFTS+59, AGEDEFTS+63
SEQ INIT+6~
SEQ( INIT+9*, INIT+10*, INIT+11, INIT+12, INIT+13, INIT+14*, INIT+16, INIT+17, INIT+19*, INIT+20*
, INIT+21, INIT+22, INIT+23
SEQ("claim#" INIT+11*, INIT+14
STARTDT GETEFTS+8~, GETEFTS+16*, GETEFTS+17
STR GETEFTS+8~, GETEFTS+31, GETEFTS+40, FTRACE~, FTRACE+4!, WARNMSG~, PREVMSG~
STR( FTRACE+6*, FTRACE+7*, FTRACE+8*, WARNMSG+10, PREVMSG+14
TRACE CHKEFT+8~, CHKEFT+21*, CHKEFT+22*, CHKEFT+26, CHKEFT+30, CHKEFT+32, CHKEFT+36, CHKEFT+38, CHKEFT+41, CHKEFT+43
, FTRACE+3~, FTRACE+4*, FTRACE+5*, FTRACE+7, FTRACE+8
TRARRY GETEFTS+8~, GETEFTS+17, EFTDET~, EFTDET+11, CHKEFT~, FTRACE~
TRARRY( FTRACE+5
TRARRY("ERROR" GETEFTS+22, GETEFTS+30, CHKEFT+30*, CHKEFT+32, CHKEFT+36*, CHKEFT+38, CHKEFT+41*, CHKEFT+43
TRARRY("WARNING" GETEFTS+27!, GETEFTS+35, GETEFTS+39, CHKEFT+26*, CHKEFT+32*, CHKEFT+38*, CHKEFT+43*
TYPE AGEDEFTS~, AGEDEFTS+54, AGEDEFTS+56, AGEDEFTS+58, AGEDEFTS+60, AGEDEFTS+62, AGEDEFTS+64, GETEFTS~, GETEFTS+10, GETEFTS+15
, GETEFTS+17, GETEFTS+29, GETEFTS+38, EFTDET~, EFTDET+11, CHKEFT~, CHKEFT+28, CHKEFT+34, CHKEFT+40, WARNMSG~
, WARNMSG+5, WARNMSG+6, PREVMSG~, PREVMSG+8, PREVMSG+9
U AGEDEFTS+42, AGEDEFTS+45, AGEDEFTS+48, AGEDEFTS+52, GETEFTS+24, GETEFTS+25, GETEFTS+36, CUTOFF+2, CHKEFT+26, CHKEFT+30
, CHKEFT+32, CHKEFT+36, CHKEFT+38, CHKEFT+41, CHKEFT+43, GETPHARM+8, GETPHARM+11, GETPHARM+12, GETPHARM+13, GETPHARM+15
, GETPHARM+17, GETPHARM+19, VR+7, INIT+11, INIT+12, INIT+13, INIT+14, INIT+16, INIT+21, INIT+22
, INIT+23, INIT+31, INIT+32, INIT+33
UNPOST AGEDEFTS+39~, AGEDEFTS+40*, AGEDEFTS+55*, AGEDEFTS+56*, AGEDEFTS+59*, AGEDEFTS+60*, AGEDEFTS+63*, AGEDEFTS+64*, AEFTSQ+1
>> VALMBCK CV+4*
>> VALMBG EXCDENY+16*, EXCDENY+17, CV+4*, INIT+8*
>> VALMCNT INIT+8*, INIT+27, INIT+28, SET+1*
X AGEDEFTS+39~, GETEFTS+8~, GETEFTS+21*, GETEFTS+22, GETEFTS+23, GETEFTS+24, GETEFTS+25, GETEFTS+27, GETEFTS+29, GETEFTS+30
, GETEFTS+31, GETEFTS+34*, GETEFTS+35, GETEFTS+36, GETEFTS+38, GETEFTS+39, GETEFTS+40, FTRACE+3~, WARNMSG+3~, WARNMSG+10*
, PREVMSG+6~, PREVMSG+14*, EXCDENY+3~, INIT+30*, INIT+31*, INIT+32*, INIT+33*, INIT+34, SET~, SET+1
X1 PHARM~, PHARM+3
Y WARNMSG+3~, PREVMSG+6~, EXCDENY+3~, EXCDENY+16
Z INIT+6~, INIT+29*, INIT+30, INIT+35, INIT+36, INIT+37
Z0 INIT+6~, INIT+30*, INIT+31, INIT+32, INIT+33
Z1 INIT+6~, INIT+35*, INIT+36, INIT+37
Z2 INIT+6~, INIT+37*
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 |  Local Variables |  All