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 |