Routine: RCDPEAD2

Information

RCDPEAD2 ;AITC/CJE - AUTO-DECREASE REPORT ;Nov 23, 2014@12:48:50

Name	Comments	DBIA/ICR reference
EXCEL(DATA,A1,A2,A3)	; Format EXCEL line ; Input: DATA - ERA line adjustment total ; A1,A2,A3 - ^TMP("RCDPEAP") subscripts
LINE(DIV)	; List selected stations ; Input: DIV() - Array of selected divisions ; Returns: Comma delimited list of selected divisions
CLAIM(EOBIEN)	; Gets the claim number from AR ; Input: EOBIEN - Internal IEN for file 361.1 ; Returns: External Claim Number
ACTCARC(CODE,RCZERO,WHICH)	; EP from RCDPEAD - Is this CARC an active code for auto-decrease ; PRCA4.5345 - Added WHICH ; Input: CODE - CARC code being checked ; RCZERO - 0 = Claim line with payment, 1 = Claim line with no payment ; WHICH - 1 Medical Claim CARCs, 2 - RX Claim CARCs, 3 TRICARE Claim CARCS ; Returns: '0^NOT ACTIVE' if not active ; '1^{amount}' if active and the second piece is the decrease amount
GETCARCS(RCEOB,RCCODES,FROMADP)	; EP from RCDPEAD - Extract the CARCs from an EOB at claim and line levels ; Input: RCEOB - Internal IEN for the explanation of benefits field (361.1) ; FROMADP - 1 if being called from COMPILE^RCDPEAD1, 0 otherwise ; Optional, default to 0 ; Output: RCCODES - ^ delimitted string of CARC code information from the ; claim and claim ine levels for the specified EOB ; ^A1;A2;A3;A4^A1;A2;A3;A4^... Where ; A1 - CARC code ; A2 - Auto Decrease Amount ; A3 - Quantity (only returned if FROMADP=1) ; A4 - REASON (only returned if FROMADP=1)

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(DATA,U,1,5)_U_CARCAMT_U_$P(DATA,U,7)_U_DATA1 Line Location: EXCEL+8