©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
BAREDPZ1 ; IHS/SD/LSL - AHCCCS IMPORT ROUTINE ;
Source file <BAREDPZ1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | (,DD)^%DT ^DIC FILE^DICN ^DIE |
| IHS Accounts Receivable | 1 | CLMCODE^BAREDP02 |
| IHS VA Utilities | 1 | $$DIC^XBDIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ECHECK | ;
|
|
| FILE | ;
|
|
| DT | ;EP Conversion of date to readable format
|
|
| SET | ;
|
|
| SEP | ;EP Set seperators
|
|
| PN | ;
|
|
| ADJREA | ;EP Process reason and amount into claim impda,clmda
|
|
| LOAD | ;EP Scan all AHCCCS imports loaded for new reason codes and stuff them
; into the Claim Level Reason Codes table for mapping. |
|
| EN | ;
|
|
| END | ;
|
|
| CHKNUM | ;EP Enter Check mumber into Import
|
|
| AHCCCS | ;EP enter new table entries for AHCCCS
|
|
| REASON | ;
|
|
| MAP | ;EP repoint the distributed tabled reason pointers to the new ones installed
|
|
| PAYAMT | ;Load Claim data
|
|
| SET1ADJ | ; set one adjustment X|reason, AMT
|
|
| 1007 | ;;MISSING FIELD^4^NONPAY
|
|
| 1008 | ;;DOCUMENTATION REQUIRED^4^NONPAY
|
|
| PUT | ; FILE NEW INTO CLAIM LEVEL MULTIPLE
|
|
| 1006 | ;;INCORRECT PROVIDER TYPE^4^NONPAY
|
|
| 1005 | ;;MISSING DATA^4^NONPAY
|
|
| 1004 | ;;OTHER TPL^4^NONPAY
|
|
| 1003 | ;;RX PROCESSING FEE^3^WO^123
|
|
| 1002 | ;;CODING ERROR^4^NONPAY
|
|
| 1001 | ;;BAD DEBT/COLLECTION AGENCY^3^WO
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BAREDI("1T" - [#90056.01] | PN+3 |
| ^BAREDI("I" | EN+2, FILE+1, REASON+1 |
| ^PWTMP("AHC" | PN+5*, PUT+2, SET+3 |
| Name | Line Occurrences |
|---|---|
| FILE | EN+2 |
| PN | REASON+3 |
| REASON | FILE+4 |
| SET | PUT+2 |
| SET1ADJ | ADJREA+7, ADJREA+14, ADJREA+19 |
| Name | Field # of Occurrence |
|---|---|
| ^( | REASON+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | DT+2* |
| >> ADJDA | PAYAMT+26*, SET1ADJ+1*, SET1ADJ+5 |
| >> CLMDA | PAYAMT+16*, SET1ADJ+4 |
| >> CODE | PN+1*, PN+3, PN+4, PN+5, PUT+1*, PUT+2*, SET+2, SET+3, SET+5 |
| >> COUNT | PAYAMT+1, PAYAMT+2, PAYAMT+3* |
| D0 | PAYAMT+14! |
| DA | PAYAMT+4!, PAYAMT+17*, SET1ADJ+2!, CHKNUM+1!, CHKNUM+3*, SET+1! |
| DA(1 | PAYAMT+13*, SET1ADJ+4*, SET+4* |
| DA(2 | SET1ADJ+3* |
| DD | PAYAMT+14! |
| DIC | PAYAMT+4!, PAYAMT+5*, PAYAMT+18, PAYAMT+19!, SET1ADJ+2!, SET1ADJ+6*, SET+1! |
| DIC("DR" | SET1ADJ+9* |
| DIC("P" | PAYAMT+7*, SET1ADJ+7* |
| DIC(0 | PAYAMT+6*, SET1ADJ+8* |
| DIE | PAYAMT+4!, PAYAMT+18*, SET1ADJ+2!, CHKNUM+1!, CHKNUM+2* |
| DO | PAYAMT+14! |
| DR | PAYAMT+4!, PAYAMT+20!, PAYAMT+21*, PAYAMT+24*, SET1ADJ+2!, CHKNUM+1!, CHKNUM+4*, SET+1! |
| >> E | SEP+1* |
| >> FDA | EN+1*, EN+2*, FILE+1, REASON+1 |
| >> FDA0 | FILE+1*, FILE+2, FILE+3 |
| >> I | ADJREA+15*, ADJREA+16 |
| >> IMPDA | PAYAMT+13, SET1ADJ+3, CHKNUM+3 |
| >> L | REASON+1*, REASON+2 |
| >> PAT | PAYAMT+23* |
| >> REA | PN+2*, PN+4, PN+5, SET+3*, SET+5 |
| >> S | SEP+1* |
| >> SE | SEP+1*, ADJREA+6, ADJREA+10, ADJREA+15 |
| U | FILE+2 |
| >> VADJAMT | ADJREA+1*, ADJREA+16* |
| >> VADJCAT | ADJREA+3*, ADJREA+4, ADJREA+5, ADJREA+6 |
| >> VADJREA | ADJREA+2, ADJREA+6*, ADJREA+9, ADJREA+13*, ADJREA+18* |
| >> VBILAMT | ADJREA+1 |
| >> VBILNM | PAYAMT+8, PAYAMT+9 |
| >> VPATFN | PAYAMT+23 |
| >> VPATLN | PAYAMT+23 |
| >> VPATMN | PAYAMT+23 |
| >> VPAYAMT | ADJREA+1 |
| X | DT+1*, DT+4*, PAYAMT+8*, PAYAMT+9, PAYAMT+10, PAYAMT+12*, ADJREA+11*, ADJREA+13, ADJREA+15*, ADJREA+18 , SET1ADJ+2!, SET1ADJ+5*, REASON+1*, REASON+3, PN+1, PN+2, SET+2* |
| >> XXX | ADJREA+9*, ADJREA+10, ADJREA+11, ADJREA+15 |
| >> Y | DT+4, PAYAMT+16, PAYAMT+17 |