RCDPEAD2 ;AITC/CJE - AUTO-DECREASE REPORT ;Nov 23, 2014@12:48:50
Source file <RCDPEAD2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
; PRCA*4.5*345 - 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 |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.62 - [#344.62] | GET1^DIQ |
| ^IBM(361.1 - [#361.1] | GET1^DIQ |
| 361.111 | GET1^DIQ |
| 361.11511 | GET1^DIQ |
| ^PRCA(430 - [#430] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBM(361.1 - [#361.1] | GETCARCS+17, GETCARCS+21, GETCARCS+36, GETCARCS+40, GETCARCS+44 |
| ^RCY(344.62 - [#344.62] | ACTCARC+9 |
| ^TMP("RCDPEADP" | EXCEL+5, EXCEL+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A1 | EXCEL~, EXCEL+5, EXCEL+7 |
| A2 | EXCEL~, EXCEL+5, EXCEL+7 |
| A3 | EXCEL~, EXCEL+5, EXCEL+7 |
| ACTIVE | ACTCARC+7~, ACTCARC+16*, ACTCARC+18 |
| AIEN | ACTCARC+7~, ACTCARC+9*, ACTCARC+10, ACTCARC+16, ACTCARC+24 |
| CARCAMT | EXCEL+3~, EXCEL+7*, EXCEL+8 |
| CCTR | EXCEL+3~, EXCEL+4*, EXCEL+5*, EXCEL+7 |
| CLAIM | CLAIM+3~, CLAIM+7*, CLAIM+8, CLAIM+9 |
| CLAIMIEN | CLAIM+3~, CLAIM+5*, CLAIM+6, CLAIM+7 |
| CODE | ACTCARC~, ACTCARC+8, ACTCARC+9 |
| DATA | EXCEL~, EXCEL+8 |
| DATA1 | EXCEL+3~, EXCEL+7*, EXCEL+8 |
| DIV | LINE~ |
| DIV( | LINE+6, LINE+8 |
| EOBIEN | CLAIM~, CLAIM+4, CLAIM+5 |
| FIELD | ACTCARC+7~, ACTCARC+13*, ACTCARC+14*, ACTCARC+15*, ACTCARC+16, ACTCARC+20*, ACTCARC+21*, ACTCARC+22*, ACTCARC+24 |
| FROMADP | GETCARCS~, GETCARCS+12*, GETCARCS+27, GETCARCS+50 |
| IENS | GETCARCS+11~, GETCARCS+23*, GETCARCS+24, GETCARCS+26, GETCARCS+28, GETCARCS+29, GETCARCS+46*, GETCARCS+47, GETCARCS+49, GETCARCS+51 , GETCARCS+52 |
| LINE | LINE+3~, LINE+4*, LINE+8*, LINE+9 |
| P | LINE+3~, LINE+4*, LINE+8* |
| QUANT | GETCARCS+11~, GETCARCS+28*, GETCARCS+31, GETCARCS+51*, GETCARCS+54 |
| RCAMT | GETCARCS+11~, GETCARCS+26*, GETCARCS+27, GETCARCS+31, GETCARCS+49*, GETCARCS+50, GETCARCS+54 |
| RCCODE | GETCARCS+11~, GETCARCS+24*, GETCARCS+25, GETCARCS+27, GETCARCS+31, GETCARCS+47*, GETCARCS+48, GETCARCS+50, GETCARCS+54 |
| RCCODES | GETCARCS~, GETCARCS+13*, GETCARCS+27*, GETCARCS+31*, GETCARCS+50*, GETCARCS+54* |
| RCEOB | GETCARCS~, GETCARCS+17, GETCARCS+21, GETCARCS+23, GETCARCS+36, GETCARCS+40, GETCARCS+44, GETCARCS+46 |
| RCI | GETCARCS+11~, GETCARCS+13*, GETCARCS+16, GETCARCS+17*, GETCARCS+18, GETCARCS+21, GETCARCS+23, GETCARCS+38*, GETCARCS+39, GETCARCS+40* , GETCARCS+41, GETCARCS+44, GETCARCS+46 |
| RCJ | GETCARCS+11~, GETCARCS+19*, GETCARCS+20, GETCARCS+21*, GETCARCS+22, GETCARCS+23, GETCARCS+42*, GETCARCS+43, GETCARCS+44*, GETCARCS+45 , GETCARCS+46 |
| RCL | GETCARCS+11~, GETCARCS+34*, GETCARCS+35, GETCARCS+36*, GETCARCS+37, GETCARCS+40, GETCARCS+44, GETCARCS+46 |
| RCZERO | ACTCARC~, ACTCARC+13, ACTCARC+15, ACTCARC+20, ACTCARC+22 |
| REASON | GETCARCS+11~, GETCARCS+29*, GETCARCS+30*, GETCARCS+31, GETCARCS+52*, GETCARCS+53*, GETCARCS+54 |
| SUB | LINE+3~, LINE+4*, LINE+5, LINE+6*, LINE+7, LINE+8 |
| U | EXCEL+7, EXCEL+8 |
| WHICH | ACTCARC~, ACTCARC+13, ACTCARC+14, ACTCARC+20, ACTCARC+21 |
| XX | ACTCARC+7~ |
