BAREDP02 ; IHS/SD/LSL - PARSE SEGMENTS INTO ELEMENTS AND CONVERT ; 11 Jul 2011 2:50 PM
Source file <BAREDP02.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | (,DD)^%DT ^DIC FILE^DICN $$GET1^DIQ |
| IHS VA Utilities | 1 | ($$DIC,$$VAL,ENP,ENPM)^XBDIQ1 |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Accounts Receivable | 2 | BAREDP00 BAREDPZ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STNDTBL | ; EP - Pull value from A/R EDI TABLES File
|
|
| CONVERT | ;
; Convert incoming data according to data type(s) |
|
| PLB | ; EP
|
|
| EN(TRDA,IMPDA) | ||
| LQCD | ; EP
; This line tag called by .03 field in A/R EDI TABLES File ; Processing routine for Remark or NCPDP Reject Payment Codes. ; Whichever is passed in on LQ02 |
|
| CLMADJCD | ; EP
; .03 (processing routine) for this data type of this element ; Find standard claim level adjustment code |
|
| CLMCODE | ; EP
; .03 (processing routine) for this data type of this element ; find claim reason code |
|
| RMKCODE | ;
; find remark code |
|
| FIND(FILE,PATH,X) | ||
| TABLE | ;
; perform lookup on table ; ELM(.07) contains path to table |
|
| DT | ;
; Convert date to readable format for HIPAA 835 ; ISA09 comes as YYMMDD all other elements are YYYYMMDD |
|
| LOADTR | ;
; load element parsing specifications |
|
| HRMKCD | ; EP
; This line tag called by .03 field in A/R EDI TABLES File ; Processing routine for Remark Code elements to look up in RPMS File |
|
| CHKS(IMPDA) | ;
|
|
| PLVCODE | ;
; find provider level reason code ; Not called for HIPAA - regular table entry. |
| Name | Field # of Occurrence |
|---|---|
| ^%DT | DT+5 |
| DD^%DT | DT+5 |
| ^DIC | STNDTBL+8, CLMCODE+8, CLMADJCD+10, HRMKCD+8, LQCD+16, PLVCODE+8, FIND+9 |
| FILE^DICN | CHKS+42 |
| $$GET1^DIQ | EN+1, EN+9, TABLE+3, STNDTBL+1, CLMADJCD+13, HRMKCD+11, LQCD+19 |
| $$DIC^XBDIQ1 | CLMCODE+5, PLVCODE+5, FIND+5 |
| $$VAL^XBDIQ1 | CLMCODE+11, PLVCODE+10 |
| ENP^XBDIQ1 | EN+31, LOADTR+10 |
| ENPM^XBDIQ1 | EN+5, EN+21, LOADTR+6 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ABSPF(9002313.93 - [#9002313.93] | Classic Fileman Calls, GET1^DIQ |
| ^BAREDI("1T" - [#90056.01] | GET1^DIQ |
| 90056.0105 | GET1^DIQ |
| ^BARETBL - [#90056.04] | GET1^DIQ |
| ^BAREDT - [#90056.05] | GET1^DIQ |
| ^BARADJ - [#90056.06] | Classic Fileman Calls, GET1^DIQ |
| ^BARMKCD - [#90056.23] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BAREDI("I" | LOADTR+17!, LOADTR+19*, LOADTR+20*, CHKS+4, CHKS+5, CHKS+9, CHKS+10, CHKS+11, CHKS+17, CHKS+20 , CHKS+22, PLB+4, PLB+6 |
| ^BAREDT - [#90056.05] | EN+8 |
| ^DD(90056.02 | CHKS+31 |
| ^TMP($J | EN+19!, LOADTR+3!, LOADTR+8 |
| Name | Line Occurrences |
|---|---|
| $$FIND | TABLE+6 |
| CONVERT | LOADTR+13 |
| HRMKCD | LQCD+9 |
| LOADTR | EN+33 |
| PLB | CHKS+26 |
| STNDTBL | CONVERT+3 |
| TABLE | CONVERT+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | DT+4* |
| ARRAY | LOADTR+3! |
| ARRAY( | LOADTR+15*, LOADTR+20 |
| ARRAY("" | LOADTR+18 |
| >> BAR15 | PLB+6*, PLB+7, PLB+8, PLB+13, PLB+14, PLB+15, PLB+16, PLB+17, PLB+18 |
| >> BARCCNT | CHKS+2*, CHKS+7, CHKS+9, CHKS+10, CHKS+11, CHKS+20, CHKS+22, CHKS+23, CHKS+24*, CHKS+25* , CHKS+27*, CHKS+33, CHKS+34, CHKS+35, CHKS+36, CHKS+37, CHKS+38, CHKS+39, CHKS+40, PLB+10* , PLB+11*, PLB+12, PLB+13, PLB+14, PLB+15, PLB+16, PLB+17, PLB+18 |
| BARCDA | PLB+1~, PLB+2*, PLB+4*, PLB+6 |
| BARCTMP | CHKS+1~ |
| BARCTMP( | CHKS+7*, CHKS+9*, CHKS+10*, CHKS+11*, CHKS+20*, CHKS+22*, CHKS+23*, CHKS+27, CHKS+33, CHKS+34 , CHKS+35, CHKS+36, CHKS+37, CHKS+38, CHKS+39, CHKS+40, PLB+11, PLB+12, PLB+13*, PLB+14* , PLB+15*, PLB+16*, PLB+17*, PLB+18* |
| >> BARCTYP | LQCD+8*, LQCD+9, LQCD+10 |
| BARI | EN+7*, EN+8*, EN+9, EN+10! |
| BARJ | EN+9*, EN+10! |
| >> BARQ | CHKS+15*, CHKS+16, CHKS+18* |
| BARSCK | PLB+1~, PLB+3* |
| BARSEG | PLB+1~, PLB+7*, PLB+8, PLB+9 |
| BARVCK | PLB+1~, PLB+3*, PLB+8*, PLB+12 |
| >> C | FIND+8* |
| CNT | PLB+1~, PLB+4*, PLB+5 |
| >> COUNT | EN+24*, EN+27, EN+28, EN+29*, EN+34 |
| DA | CLMCODE+4!, CLMADJCD+5!, HRMKCD+4!, LQCD+12!, PLVCODE+4!, FIND+2!, CHKS+28! |
| DA( | FIND+8* |
| DA(1 | STNDTBL+5*, STNDTBL+6, CLMCODE+6*, PLVCODE+6*, CHKS+29*, CHKS+30 |
| DAT | EN+4!, EN+6 |
| DAT( | EN+9*, EN+14, EN+16*, CONVERT+4 |
| DAT("ID" | EN+11! |
| >> DATDA | EN+13*, EN+14*, EN+16 |
| >> DAZ( | FIND+7*, FIND+8 |
| DD | CLMADJCD+9!, HRMKCD+7!, LQCD+15!, CHKS+41! |
| DIC | STNDTBL+6*, CLMCODE+4!, CLMCODE+5*, CLMADJCD+5!, CLMADJCD+7*, HRMKCD+4!, HRMKCD+5*, LQCD+12!, LQCD+13*, PLVCODE+4! , PLVCODE+5*, FIND+2!, FIND+5*, CHKS+28!, CHKS+30* |
| DIC("DR" | CHKS+34*, CHKS+35*, CHKS+36*, CHKS+37*, CHKS+38*, CHKS+39*, CHKS+40* |
| DIC("P" | CHKS+31* |
| DIC(0 | STNDTBL+7*, CLMCODE+7*, CLMADJCD+8*, HRMKCD+6*, LQCD+14*, PLVCODE+7*, FIND+6*, CHKS+32* |
| DIE | CHKS+28! |
| DIR | CHKS+28! |
| DO | CLMADJCD+9!, HRMKCD+7!, LQCD+15!, CHKS+41! |
| DT | LOADTR+19 |
| DUZ(2 | LOADTR+17, LOADTR+19, LOADTR+20, CHKS+4, CHKS+5, CHKS+9, CHKS+10, CHKS+11, CHKS+17, CHKS+20 , CHKS+22, CHKS+30, PLB+4, PLB+6 |
| >> E | LOADTR+2*, LOADTR+12, LQCD+8, CHKS+6, CHKS+7, CHKS+9, CHKS+10, CHKS+11, CHKS+17, CHKS+20 , CHKS+22, PLB+7, PLB+8, PLB+13, PLB+14, PLB+15, PLB+16, PLB+17, PLB+18 |
| ELM | LOADTR+9! |
| ELM( | LOADTR+11, CONVERT+2, CONVERT+3, CONVERT+4, TABLE+3, TABLE+6, STNDTBL+1, STNDTBL+5 |
| >> ELMDA | LOADTR+7*, LOADTR+8*, LOADTR+20* |
| FILE | FIND~, FIND+5 |
| >> I | LOADTR+18*, LOADTR+19, LOADTR+20, FIND+7*, FIND+8, CHKS+2*, CHKS+4*, CHKS+5, CHKS+8*, CHKS+9 , CHKS+10, CHKS+11, CHKS+12*, CHKS+17*, CHKS+20, CHKS+21*, CHKS+22 |
| IMPDA | EN~, LOADTR+17, LOADTR+19, LOADTR+20, CHKS~, CHKS+4, CHKS+5, CHKS+9, CHKS+10, CHKS+11 , CHKS+17, CHKS+20, CHKS+22, CHKS+29, PLB+4, PLB+6 |
| >> IREC | CHKS+5*, CHKS+6, CHKS+7 |
| >> MCODE | TABLE+3*, TABLE+4*, TABLE+5, STNDTBL+1*, STNDTBL+2*, STNDTBL+3 |
| PATH | FIND~, FIND+7 |
| >> PATHS | EN+32*, LOADTR+4 |
| REC | EN+30! |
| REC( | EN+32, LOADTR+12, LQCD+8 |
| >> RECDA | EN+25*, EN+26*, LOADTR+17, LOADTR+19, LOADTR+20 |
| >> RECM | EN+22*, EN+26 |
| >> SEGXDA | LOADTR+4* |
| >> SEQ | LOADTR+11*, LOADTR+12, LOADTR+15 |
| >> TABID | EN+1* |
| TRDA | EN~, EN+1, CLMCODE+6, PLVCODE+6 |
| U | STNDTBL+10, FIND+11, CHKS+7, CHKS+9, CHKS+10, CHKS+11, CHKS+20, CHKS+22, CHKS+23, CHKS+31 , CHKS+33, CHKS+34, CHKS+35, CHKS+36, CHKS+37, CHKS+38, CHKS+39, CHKS+40, PLB+12, PLB+13 , PLB+14, PLB+15, PLB+16, PLB+17, PLB+18 |
| X | LOADTR+12*, LOADTR+15, CONVERT+5*, TABLE+6*, STNDTBL+9*, STNDTBL+10*, DT+3*, DT+6*, CLMCODE+3, CLMCODE+9* , CLMCODE+11*, CLMADJCD+3*, CLMADJCD+4, CLMADJCD+6*, CLMADJCD+11*, CLMADJCD+13*, RMKCODE+2, RMKCODE+3*, HRMKCD+3, HRMKCD+9* , HRMKCD+11*, LQCD+7, LQCD+11*, LQCD+17*, LQCD+19*, PLVCODE+3, PLVCODE+9*, PLVCODE+10*, FIND~, FIND+3 , FIND+10*, FIND+11*, FIND+12, CHKS+28!, CHKS+33* |
| >> XDA | CLMCODE+10*, CLMADJCD+12*, CLMADJCD+13, HRMKCD+10*, HRMKCD+11, LQCD+18*, LQCD+19, PLVCODE+10* |
| >> XX | CONVERT+4* |
| Y | STNDTBL+9, DT+6, CLMCODE+9, CLMCODE+10, CLMADJCD+11, CLMADJCD+12, HRMKCD+9, HRMKCD+10, LQCD+17, LQCD+18 , PLVCODE+9, PLVCODE+10, FIND+10, CHKS+28! |
| Y(0 | STNDTBL+10, FIND+11 |