RCDPEWLP ;ALBANY/KML - EDI LOCKBOX ERA and EEOB WORKLIST procedures ; 4/28/22 7:39am
Source file <RCDPEWLP.m>
| 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) | ; EP from RCDPEWL4, RCDPEAA3
; 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 | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| 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 |
