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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCDPEAP1

Package: Accounts Receivable

Routine: RCDPEAP1


Information

RCDPEAP1 ;ALB/KML - AUTO POST MATCHING EFT ERA PAIR - CONT. ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEAP1.m>

Entry Points

Name Comments DBIA/ICR reference
AUTOCHK(RCERA) ;Verify if ERA can be auto-posted - PRE-CHECK USED IN RCDPEM0
; Input: RCERA - IEN for file 344.4
; Returns: 1 - Auto-Post candidate, 0 - Not an Auto-Post candidate
; Many checks done by this are also done AUTOCHK2 below so if these are changed,
; may also need to be changed
AUTOCHK2(RCERA,RCTYP) ; RCTYP added PRCA*4.5*321
; Check if this entry is an auto-post candidate
; This has the same/similar checks as MATCH^RCDPEM0 and AUTOCHK above. If those procedures are
; changed, this may need to updated as well.
; ; Input: RCERA - IEN for file 344.4
; RCTYP - 0 - Called from Worklist/Mark for autopost
; 1 - Called from Manual match
; Returns: 1 - Auto-Post candidate
; 0^Reason - Not an auto-post candidate and reason
; Validate Parameter
EXCLUDE(RCERA) ; Verify if auto-posting is allowed for this Payer - PRECHECK USED IN RCDPEM0
; Not allowed if medical auto-posting is switched off
; Input: RCERA - IEN for file 344.4
; Returns: 1 - Exclude ERA becaus Payer is in exclusion table, 0 otherwise
; PRCA*4.5*345 - changed to $$GET1^DIQ calls below
PHARM(RCERA) ;Check if ERA is for Pharmacy only (ECME number on first line) - CALLED FROM RCDPEM0
ERADET(RCERA,RCRCPTDA,RCLINES) ; called on subsequent attempts of auto-post for a given ERA (DAY 2, DAY 3, ex.)
; update ERA with receipt or if not posted then update the AUTO-POST REJECTION REASON (#5)
ZEROBAL(RCSCR) ;
; per requirements, only positive/negative payment pairs where payment
; calculates to zero are allowed for auto-post
; if payment ends up less than zero or greater than zero then ERA cannot
; be autoposted.
; ERA gets sent to the standard worklist for manual receipt processing
; note: a payment pair represents 2 EEOB sequences with the same claim
; RCSCR - 344.49 ien
; X - returns 1 or 0
;
EXCLDRX(RCERA) ; Verify if auto-posting is allowed for Pharmacy claims
; and for the Payer - PRECHECK USED IN RCDPEM0. Not allowed if pharmacy
; auto-posting is switched off
; Input: RCERA - IEN for file 344.4
; Returns: 1 - ERA is excluded from Auto-Posting, 0 otherwise
EXCLDTR(RCERA) ; Verify if auto-posting is allowed for TRICARE claims
; and for the Payer - PRECHECK USED IN RCDPEM0. Not allowed if TRICARE
; auto-posting is switched off
; PRCA*4.5*349 - Added function
; Input: RCERA - IEN for file 344.4
; Returns: 1 - ERA is excluded from Auto-Posting, 0 otherwise
VALID(RCERA,RCLINES) ;
UNBAL(RCERA) ; PRCA*4.5*318 added method
; Determine if the ERA total matches the EFT total for the selected ERA
; Input: RCERA - Internal IEN of the selected ERA
; Returns: 1 - ERA is unbalanced, 0 otherwise
MATCHED(IEN) ; Check if ERA is matched
; Input IEN - Internal entry number of ERA #344.4
; Returns 1 if ERA is matched, otherwise 0
ISZERO(IEN) ; Check is ERA is zero balance (EP)
; Input IEN - Internal entry number of ERA #344.4
; Returns 1 if ERA is zero balance, otherwise 0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] Classic Fileman Calls,  GET1^DIQ
344.41 GET1^DIQ
344.42 GET1^DIQ
^RCY(344.6 - [#344.6] GET1^DIQ
^RCY(344.61 - [#344.61] GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call