IBCEF73A ;ALB/KJH - FORMATTER AND EXTRACTOR SPECIFIC (NPI) BILL FUNCTIONS ;30 Aug 2006 10:38 AM
Source file <IBCEF73A.m>
| 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
|
| FileNo | Call Tags |
|---|---|
| ^DGCR(399 - [#399] | GET1^DIQ |
| ^USC(8932.1 - [#8932.1] | GET1^DIQ |
