IBCEF73A ;ALB/KJH - FORMATTER AND EXTRACTOR SPECIFIC (NPI) BILL FUNCTIONS ;30 Aug 2006 10:38 AM
Source file <IBCEF73A.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PROVNPI(IBIEN399,IBNONPI) | ;
|
|
| GETNPI(IBPTR) | ;look for NPI in #200 or #355.93
|
|
| SPECTAX(IBIEN399,IBNOSPEC) | ;
|
|
| PROVTAX(IBIEN399,IBNOTAX) | ;
|
|
| GETTAX(IBPTR,IBDTEV) | ;look for Taxonomy in #200 or #355.93
|
|
| ORGNPI(IBIEN399,IBNONPI) | ; Extract NPIs for organizations on this claim
; Input ; IBIEN399 - Claim IEN in file 399 ; IBNONPI - Variable to pass info on missing NPI back to calling routine. Pass by reference. ; Output - NPI codes for facilities ; Piece 1) Service Facility NPI code (with IB patch 400, a claim may not have a service facility) ; Piece 2) Non-VA Service Facility NPI code ; Piece 3) Billing Provider NPI code (IB patch 400 definition) |
|
| ORGTAX(IBIEN399,IBNOTAX) | ; Extract Taxonomies for organizations on this claim
; Input ; IBIEN399 - Claim IEN in file 399 ; IBNOTAX - Variable to pass info on missing taxonomies back to calling routine. Pass by reference. ; Output - Taxonomy X12 codes for facilities ; Piece 1) Service Facility Taxonomy X12 code (with IB patch 400, a claim may not have a service facility) ; Piece 2) Non-VA Service Facility Taxonomy X12 code ; Piece 3) Billing Provider Taxonomy X12 code (IB patch 400 definition) |
|
| RXSITE(IBIEN399,IBLIST) | ; returns prescription organization (file 4) pointer
; for the given bill. If IBLIST passed by reference, then a list of ; the possible organizations are returned for a bill, since a bill may ; have more than one prescription. If more than one rx on the bill, the ; $$ return is the pointer of the last prescription found. ; IBLIST(rx ien,fill date)=ORGINATION (file 4 pointer) |
|
| PSONPI(IB59IEN) | ; returns institution ien for a file 59 ien
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | SPECTAX+15, PROVTAX+15, GETTAX+8, ORGNPI+59, ORGTAX+14, ORGTAX+20, ORGTAX+21, ORGTAX+23, ORGTAX+26, ORGTAX+27 |
| $$FT^IBCEF | ORGTAX+29, ORGTAX+33 |
| $$PROVPTR^IBCEF7 | PROVNPI+11 |
| $$B^IBCEF79 | ORGNPI+13, ORGTAX+10 |
| $$NPIGET^IBCEP81 | GETNPI+9, ORGNPI+54, ORGNPI+61 |
| $$TAXGET^IBCEP81 | GETTAX+10 |
| RX^PSO52API | RXSITE+13 |
| PSS^PSO59 | PSONPI+3 |
| $$GET^XUA4A72 | GETTAX+8 |
| $$NPI^XUSNPI | GETNPI+7, ORGNPI+53, ORGNPI+65 |
| FileNo | Call Tags |
|---|---|
| ^DGCR(399 - [#399] | GET1^DIQ |
| ^USC(8932.1 - [#8932.1] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | SPECTAX+12, SPECTAX+14, PROVTAX+12, PROVTAX+14, RXSITE+9 |
| ^IBA(362.4 - [#362.4] | RXSITE+10, RXSITE+11 |
| ^TMP($J | RXSITE+8!, RXSITE+14, RXSITE+15, RXSITE+16!, PSONPI+2!, PSONPI+4, PSONPI+5! |
| Name | Line Occurrences |
|---|---|
| $$GETNPI | PROVNPI+12 |
| $$PSONPI | RXSITE+14, RXSITE+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BSZ | ORGNPI+9~, ORGNPI+13*, ORGNPI+52, ORGNPI+53, ORGNPI+54, ORGNPI+56, ORGNPI+64, ORGTAX+8~, ORGTAX+10*, ORGTAX+13 , ORGTAX+14, ORGTAX+17 |
| DFN | RXSITE+7~, RXSITE+9*, RXSITE+13, RXSITE+14, RXSITE+15 |
| DT | GETTAX+6 |
| IB4IEN | PSONPI+1~, PSONPI+4*, PSONPI+6 |
| IB59IEN | PSONPI~, PSONPI+3, PSONPI+4 |
| IBDATA | RXSITE+7~, RXSITE+11*, RXSITE+12 |
| IBDIV | ORGNPI+9~ |
| IBDT | RXSITE+7~, RXSITE+12*, RXSITE+14, RXSITE+15 |
| IBDTEV | GETTAX~, GETTAX+6*, GETTAX+8 |
| IBEVDT | ORGNPI+9~ |
| IBFT | PROVNPI+8~, PROVNPI+10*, PROVNPI+11, PROVNPI+12, GETNPI+10, SPECTAX+8~, SPECTAX+11*, SPECTAX+12, SPECTAX+16, SPECTAX+17 , PROVTAX+8~, PROVTAX+11*, PROVTAX+12, PROVTAX+16, PROVTAX+17 |
| IBIEN399 | PROVNPI~, PROVNPI+11, SPECTAX~, SPECTAX+10, SPECTAX+12, SPECTAX+14, PROVTAX~, PROVTAX+10, PROVTAX+12, PROVTAX+14 , ORGNPI~, ORGNPI+11, ORGNPI+13, ORGNPI+59, ORGTAX~, ORGTAX+10, ORGTAX+14, ORGTAX+20, ORGTAX+23, ORGTAX+26 , ORGTAX+29, ORGTAX+33, RXSITE~, RXSITE+9, RXSITE+10 |
| IBLIST | RXSITE~, RXSITE+9*, RXSITE+13 |
| IBLIST( | RXSITE+14*, RXSITE+15* |
| IBN | SPECTAX+8~, SPECTAX+12*, SPECTAX+13, SPECTAX+14, PROVTAX+8~, PROVTAX+12*, PROVTAX+13, PROVTAX+14 |
| IBNONPI | PROVNPI~, PROVNPI+9*, GETNPI+10*, ORGNPI~, ORGNPI+10*, ORGNPI+56*, ORGNPI+61*, ORGNPI+66* |
| IBNOSPEC | SPECTAX~, SPECTAX+9*, SPECTAX+17* |
| IBNOTAX | PROVTAX~, PROVTAX+9*, PROVTAX+17*, ORGTAX~, ORGTAX+17*, ORGTAX+23*, ORGTAX+31*, ORGTAX+33* |
| IBORG | ORGNPI+9~, ORGNPI+52*, ORGNPI+53, ORGNPI+54, ORGNPI+59*, ORGNPI+61, ORGNPI+64*, ORGNPI+65, RXSITE+7~, RXSITE+9* , RXSITE+14*, RXSITE+15*, RXSITE+17 |
| IBPTR | PROVNPI+8~, PROVNPI+11*, PROVNPI+12, GETNPI~, GETNPI+7, GETNPI+9, GETTAX~, GETTAX+8, GETTAX+10 |
| IBRETVAL | PROVNPI+8~, PROVNPI+9*, PROVNPI+12*, PROVNPI+13, SPECTAX+8~, SPECTAX+9*, SPECTAX+16*, SPECTAX+18, PROVTAX+8~, PROVTAX+9* , PROVTAX+16*, PROVTAX+18, ORGNPI+9~, ORGNPI+12*, ORGNPI+55*, ORGNPI+61*, ORGNPI+65*, ORGNPI+71, ORGTAX+8~, ORGTAX+15* , ORGTAX+22*, ORGTAX+30*, ORGTAX+34 |
| IBRX | RXSITE+7~, RXSITE+12*, RXSITE+13, RXSITE+14, RXSITE+15 |
| IBRXN | RXSITE+7~, RXSITE+10* |
| IBSPEC | SPECTAX+8~, SPECTAX+14*, SPECTAX+15 |
| IBTAX | PROVTAX+8~, PROVTAX+14*, PROVTAX+15, ORGTAX+8~, ORGTAX+13*, ORGTAX+14*, ORGTAX+20*, ORGTAX+21, ORGTAX+26*, ORGTAX+27 |
| IBX | RXSITE+7~, RXSITE+10*, RXSITE+11 |
| IBX12 | GETTAX+4~, GETTAX+5*, GETTAX+8* |
| IBY | RXSITE+7~, RXSITE+15* |
| NPI | GETNPI+4~, GETNPI+5*, GETNPI+7*, GETNPI+9*, GETNPI+10, GETNPI+11, ORGNPI+9~, ORGNPI+51*, ORGNPI+53*, ORGNPI+54* , ORGNPI+55, ORGNPI+56, ORGNPI+61*, ORGNPI+64*, ORGNPI+65*, ORGNPI+66 |
| SPEC | SPECTAX+8~, SPECTAX+15*, SPECTAX+16, SPECTAX+17 |
| TAX | PROVTAX+8~, PROVTAX+15*, PROVTAX+16, PROVTAX+17, GETTAX+4~, GETTAX+5*, GETTAX+8*, GETTAX+10*, GETTAX+11, ORGTAX+8~ , ORGTAX+13*, ORGTAX+14*, ORGTAX+15, ORGTAX+17, ORGTAX+21*, ORGTAX+22, ORGTAX+23, ORGTAX+27*, ORGTAX+29*, ORGTAX+30 , ORGTAX+31 |
| U | GETNPI+7, GETNPI+10, SPECTAX+17, PROVTAX+17, GETTAX+8, ORGNPI+52, ORGNPI+53, ORGNPI+54, ORGNPI+55, ORGNPI+56 , ORGNPI+61, ORGNPI+64, ORGNPI+65, ORGNPI+66, ORGTAX+13, ORGTAX+14, ORGTAX+15, ORGTAX+17, ORGTAX+22, ORGTAX+23 , ORGTAX+30, ORGTAX+31 |
