IBCU7B ;ALB/DEM - LINE LEVEL PROVIDER USER INPUT ;27-SEP-2010
Source file <IBCU7B.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| END | ;
|
|
| DRARRY | ; Set of DR array for user input.
|
|
| NVAPRV | ; Start of user input into IB NON/OTHER VA BILLING PROVIDER File (#355.93).
|
|
| B41 | ;
; 355.93,.04 SPECIALTY. ; Branch to @45 if CREDENTIALS are not NULL. |
|
| B42 | ;
; 355.93,.05 STREET ADDRESS. ; 355.93,.06 CITY. ; 355.93,.07 STATE. ; Branch to @43 if there is an STREET ADDRESS, CITY, and STATE. |
|
| B43 | ;
; 355.93,.09 FACILITY DEFAULT ID NUMBER. ; Branch to @44 if there is a FACILITY DEFAULT ID NUMBER. |
|
| B44 | ;
; 355.93,.11 X12 TYPE OF FACILITY. ; Branch to @45 if there is a X12 TYPE OF FACILITY. |
|
| B45 | ;
; 355.93,41.01 NPI. ; Branch to @46 if there is an NPI. |
|
| B46 | ;
; 355.93,42 TAXONOMY CODE. ; Branch to @47 if there is TAXONOMY data. ; 355.93,42 TAXONOMY CODE is a multiple (Sub-File 355.9342). We want 'ALL' ; fields from TAXONOMY CODE Sub-File 355.9342. Thus, ; DR string S DR(4,355.9342)=".01:.03" below. |
|
| B47 | ;
; End of data entry for IB NON/OTHER VA BILLING PROVIDER File (#399.53). |
|
| B48 | ;
|
|
| LNPRV | ; User input into LINE PROVIDER Sub-File 399.0404.
|
|
| B482 | ;
; Branch to @405 if File #399 SECORDARY NODE is non numeric. |
|
| B483 | ;
; Branch to @405 if File #399 TERTIARY NODE is non numeric. |
|
| B491 | ;
; 399.0404,.12 LINE PRIM INS PROVIDER ID TYPE. ; 399.0404,.05 LINE PRIMARY INS CO ID NUMBER. ; Branch to @482. |
|
| B492 | ;
; 399.0404,.13 LINE SEC INS PROVIDER ID TYPE. ; 399.0404,.06 LINE SECONDARY INS CO ID NUMBER. ; Branch to @483. |
|
| B493 | ;
; 399.0404,.14 LINE TERT INS PROVIDER ID TYPE. ; 399.0404,.07 LINE TERTIARY INS CO ID NUMBER. ; Branch to @405. |
|
| B471 | ;
; 399.0404,.12 LINE PRIM INS PROVIDER ID TYPE. ; 399.0404,.05 LINE PRIMARY INS CO ID NUMBER. ; Branch to @482. |
|
| B472 | ;
; 399.0404,.13 LINE SEC INS PROVIDER ID TYPE. ; 399.0404,.06 LINE SECONDARY INS CO ID NUMBER. ; Branch to @483. |
|
| B473 | ;
; 399.0404,.14 LINE TERT INS PROVIDER ID TYPE. ; 399.0404,.07 LINE TERTIARY INS CO ID NUMBER. ; Branch to @405. |
|
| B405 | ;
|
|
| B499 | ;
; End of user input @499 and W @IOF. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
