©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BARADJR0 ;IHS/SD/POT - CREATE ENTRY IN A/R EDI STND CLAIM ADJ REASON ;
Source file <BARADJR0.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^DIC FILE^DICN ^DIE |
| IHS Accounts Receivable | 1 | ^BARVKL0 |
| Kernel | 1 | (BMES,MES)^XPDUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RPMSREA | ;
; Create new Adjustment Reasons in A/R TABLE ENTRY |
|
| EN | ; EP
|
|
| CLAIM | ;
; Populate A/R EDI CLAIM STATUS CODES to accomodate new codes added ; between 6/02 and 9/03. Inactivate necessary codes. |
|
| RPMSREA2 | ;
|
|
| STND2 | ;
|
|
| STND3 | ;
|
|
| MODIFY | ; EP
; Change PENDING to NON PAYMENT |
|
| 3 | ;; - A/R EDI Claim Status Codes file - Adds DIC="^BARECSC("
|
|
| 1 | ;; A/R Table Entry file - Adds (S DIC="^BARTBL(")
|
|
| MODIFY2 | ;
|
|
| CHNGREA2 | ;
|
|
| 2 | ;;DIC="^BARADJ("
|
|
| 4 | ;;A/R Table Entry file - Edits DIE="^BARTBL("
|
|
| CLAIM2 | ;
|
|
| CLAIM3 | ;
|
|
| STND | ;
; Create entries in A/R EDI STND CLAIM ADJ REASONS to accomodate ; Standard codes added between 6/02 and 9/03. |
|
| CHNGREA | ; EP
; Change category of these reasons to Non-Payment |
| FileNo | Call Tags |
|---|---|
| ^BARTBL - [#90052.02] | Classic Fileman Calls |
| ^BARADJ - [#90056.06] | Classic Fileman Calls |
| ^BARECSC - [#90056.1] | Classic Fileman Calls |
| Name | Line Occurrences |
|---|---|
| CHNGREA2 | CHNGREA+4 |
| CLAIM | EN+3 |
| CLAIM2 | CLAIM+4 |
| CLAIM3 | CLAIM+6 |
| MODIFY2 | MODIFY+4 |
| RPMSREA | EN+1 |
| RPMSREA2 | RPMSREA+5 |
| STND | EN+2 |
| STND2 | STND+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BARCNT | RPMSREA+3*, RPMSREA2+1*, CHNGREA+3*, CHNGREA2+1*, STND+4*, STND2+1*, CLAIM+3*, CLAIM+5*, CLAIM2+1*, MODIFY+3* , MODIFY2+1* |
| >> BARD | RPMSREA+2*, RPMSREA2+2, RPMSREA2+7, RPMSREA2+8, RPMSREA2+11, CHNGREA+2*, CHNGREA2+2, STND+3*, STND2+2, STND3+5 , STND3+8, STND3+21, STND3+27, CLAIM2+2, CLAIM2+7, MODIFY+2*, MODIFY2+2, MODIFY2+7 |
| >> BARVALUE | RPMSREA+5, RPMSREA2+2*, RPMSREA2+3, RPMSREA2+7, RPMSREA2+8, RPMSREA2+11, CHNGREA+4, CHNGREA2+2*, CHNGREA2+3, CHNGREA2+6 , STND+6, STND2+2*, STND2+3, STND3+5, STND3+8, STND3+21, STND3+27, CLAIM+4, CLAIM+6*, CLAIM2+2* , CLAIM2+3, CLAIM2+7, CLAIM3+4, MODIFY+4, MODIFY2+2*, MODIFY2+3, MODIFY2+7 |
| DA | RPMSREA2+4!, CHNGREA2+4!, CHNGREA2+6*, STND3+2!, STND3+11*, STND3+18!, CLAIM2+4!, CLAIM3+1!, CLAIM3+8!, CLAIM3+9* , MODIFY2+4!, MODIFY2+13* |
| DD | RPMSREA2+10!, STND3+26!, CLAIM2+9!, CLAIM3+5!, MODIFY2+8! |
| DIC | RPMSREA2+4!, RPMSREA2+5*, CHNGREA2+4!, STND3+2!, STND3+3*, STND3+9!, STND3+18!, STND3+19*, CLAIM2+4!, CLAIM2+5* , CLAIM3+1!, CLAIM3+2*, CLAIM3+10, MODIFY2+4!, MODIFY2+5*, MODIFY2+12 |
| DIC("DR" | RPMSREA2+9*, STND3+22*, STND3+23*, STND3+24*, STND3+25*, CLAIM2+8* |
| DIC(0 | RPMSREA2+6*, STND3+4*, STND3+20*, CLAIM2+6*, CLAIM3+3*, MODIFY2+6* |
| DIE | CHNGREA2+4!, CHNGREA2+5*, STND3+9!, STND3+10*, CLAIM3+8!, CLAIM3+10*, MODIFY2+12* |
| >> DINUM | RPMSREA2+7* |
| DO | RPMSREA2+10!, STND3+26!, CLAIM2+9!, CLAIM3+5!, MODIFY2+8! |
| DR | CHNGREA2+7*, STND3+12*, STND3+13*, STND3+14*, STND3+15*, CLAIM3+8!, CLAIM3+11*, MODIFY2+4!, MODIFY2+14* |
| X | RPMSREA2+4!, RPMSREA2+8*, CHNGREA2+4!, STND3+2!, STND3+5*, STND3+18!, STND3+21*, CLAIM2+4!, CLAIM2+7*, CLAIM3+1! , CLAIM3+4*, MODIFY2+4!, MODIFY2+7* |
| Y | RPMSREA2+4!, CHNGREA2+4!, STND3+2!, STND3+7, STND3+11, STND3+18!, CLAIM2+4!, CLAIM3+1!, CLAIM3+7, CLAIM3+9 , MODIFY2+4!, MODIFY2+10, MODIFY2+13 |
| Name | Field # of Occurrence |
|---|---|
| $T(@1+BARCNT | RPMSREA2+2 |
| $T(@2+BARCNT | STND2+2 |
| $T(@3+BARCNT | CLAIM2+2 |
| $T(@4+BARCNT | CHNGREA2+2, MODIFY2+2 |