RCDPEAD3 ;ALB/PJH - AUTO DECREASE ; 6/27/19 2:43pm
Source file <RCDPEAD3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(RCDAY) | ; EP - EN^RCDPEM. Auto Decrease - applies to auto-posted claims only
|
|
| EN2(RCERA,RCARRAY,RCLINE) | ; Auto-decrease selected lines
; Input: RCERA - ERA number ; RCARRAY - Array of ERA Scratchpad lines ; RCLINE - ERA line sequence |
|
| PROCESS(IEN350,RCBILL,RCPAID,RCBAL3RD) | ; Process this charge for attempted auto-decrease
; Inputs: IEN350 - Internal entry number for charge in file #350 ; RCBILL - Internal entry number for third party bill from file #399 ; RCPAID - Amount paid on ERA line for this third party bill ; RCBAL3RD - Remaining balance on third party bill not yet used for auto-decrease of a copay ; Returns: 1 - quit loop after processing this record ; 0 - don't quit |
|
| AMT(RCBAL,RCPAID,RCOPAY) | ; Calculate Decrease Amount
; ; INPUT ; RCBAL - 1st Party Balance ; RCPAID - Amount Paid on 3rd Party claim ; RCOPAY - Copay amount ; OUTPUT ; Amount to decrease |
|
| SHOWTYP() | ; EP - Display list of IB ACTION TYPE enabled for 1st party auto-decrease
; Input - None ; Output - To screen |
|
| TRAN1(IEN350,IEN399,IEN430,AMT,RCPAID) | ; File auto-decrease comment on first party AR
; Input: IEN350 - Internal entry number to IB Action (File #350) ; IEN399 - Internal entry number to Third Party Bill (Files #399 and #430) ; IEN430 - Internal entry number of First Party Bill (File #430) ; AMT - Amount of auto-decease ; RCPAID - Amount paid on third party bill |
|
| TRAN3(IEN350,IEN399,IEN430,AMT,COPAY) | ; File auto-decrease comment on third party AR
; Input: IEN350 - Internal entry number to IB Action (File #350) ; IEN399 - Internal entry number to Third Party Bill (Files #399 and #430) ; IEN430 - Internal entry number of First Party Bill (File #430) ; AMT - Amount of auto-decease ; COPAY - Copay amount being decreased |
|
| COMM1(COMMENT,IEN350,IEN399,AMT,RCPAID) | ; Build comment text for first party bill
; Input: IEN350 - Internal entry number to IB Action (File #350) ; IEN399 - Internal entry number to Third Party Bill (Files #399 and #430) ; AMT - Amount of auto-decease ; RCPAID - Amount paid on third party bill ; Output: COMMENT - Array passed by reference |
|
| DOS(IEN350) | ; Get Date of Service for charge
; Input: IEN350 - Intenal entry number of IB Action (file #350) |
|
| RXMT(IEN350) | ; Return Rx # or "MT" for transaction comment line
; Input: IEN350 - Internal entry number of IB Action (file #350) |
|
| PREPAY(IEN350) | ; Check for open pre-pay
; Input: IEN350 - Internal entry number of charge from IB ACTION file #350 ; Returns: 1 - Patient has an open pre-payment ; 0 - No open pre-payment ; -1 - Error |
|
| QUEUE(IEN350,IEN399,IENS41) | ; Place the charge in a queue from processing at a later date
; Input: IEN350 - Internal entry number of charge from IB ACTION file #350 ; IEN399 - Internal entry number of third party bill from file 399 or 430 ; IENS41 - Internal entry numbers of subfile 344.41 in format nnn,nnnnnnn, ; Output: New entry in file #344.74 |
|
| DEL74(IEN74) | ; Delete FIRST PARTY CHARGE QUEUE entry
; Input: IEN74 - Internal entry number of file 344.74 ; Output: None |
|
| DECAMT(IEN430) | ; Return amount that bill has been previously auto-decreased.
; Input: IEN430 - Internal Entry number of file #430 ; Returns: Total amount of previous auto-decreases |
|
| FLAG(RCERA,RCLINE) | ; Flag ERA detail line as having been checked or processed for 1st party auto-decrease
; Input: RCERA - Internal entry number of file 344.4 ; RCLINE - Internal entry number of subfile 344.41 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^RCD(340 - [#340] | GET1^DIQ |
| ^RC(342 - [#342] | GET1^DIQ |
| 342.014 | GET1^DIQ |
| 344.41 | GET1^DIQ |
| ^RCY(344.74 - [#344.74] | GET1^DIQ |
| ^IB - [#350] | GET1^DIQ |
| ^DGCR(399 - [#399] | GET1^DIQ |
| ^PRCA(430 - [#430] | GET1^DIQ |
| ^PRCA(433 - [#433] | GET1^DIQ, WP^DIE |
