IBCBB14 ;ALB/WCJ - CONTINUATION OF EDIT CHECK ROUTINE FOR EPHARM ;15 Mar 2018 9:50 PM
Source file <IBCBB14.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 |
|---|---|---|
| VALNDC(IBIFN,IBDFN) | ; IB*2*363 - validate NDC# between PRESCRIPTION file (#52)
; and IB BILL/CLAIMS PRESCRIPTION REFILL file (#362.4) ; input - IBIFN = internal entry number of the billing record in the BILL/CLAIMS file (#399) ; IBDFN = internal entry number of patient record in the PATIENT file (#2) |
|
| RXNPI(IBIFN) | ; check for multiple pharmacy npi's on the same bill
|
|
| ROICHK(IBIFN,IBDFN,IBINS) | ; ROI Check
; Verify that an ROI is on file if the drug is flagged as sensitive. ; No ROI is required if the Date of Service is on or after the ; Mission Act Implementation Date (1/28/2019). ; input - IBIFN = IEN of the Bill/Claims file (#399) ; IBDFN = IEN of the patient ; IBINS = IEN of the payer insurance company (#36) ; OUTPUT - 0 = no error ; 1 = a prescription is sensitive and there is no ROI on file |
|
| ROICHKQ | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA(362.4 - [#362.4] | ROICHK+12, ROICHK+13 |
| ^TMP($J | ROICHKQ+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| IBDFN | VALNDC~, VALNDC+6, ROICHK~, ROICHK+19 |
| IBDRUG | ROICHK+10~, ROICHK+14*, ROICHK+15, ROICHK+16, ROICHK+19 |
| IBDT | ROICHK+10~, ROICHK+14*, ROICHK+18, ROICHK+19 |
| IBIFN | VALNDC~, VALNDC+6, RXNPI~, RXNPI+2, ROICHK~, ROICHK+12 |
| IBINS | ROICHK~, ROICHK+19 |
| IBORG | RXNPI+1~, RXNPI+2* |
| IBORG( | RXNPI+3 |
| IBRXCOL | VALNDC+4~, VALNDC+6, VALNDC+7 |
| IBRXCOL( | VALNDC+9 |
| IBRXIEN | ROICHK+10~, ROICHK+13*, ROICHK+20 |
| IBRXNPI | RXNPI+1~ |
| IBRXNPI( | RXNPI+3*, RXNPI+4 |
| IBX | VALNDC+4~, VALNDC+9*, RXNPI+1~, RXNPI+3*, RXNPI+4*, ROICHK+10~, ROICHK+12*, ROICHK+13 |
| IBY | RXNPI+1~, RXNPI+3*, RXNPI+4*, RXNPI+5 |
| IBY0 | ROICHK+10~, ROICHK+13*, ROICHK+14 |
| ROIQ | ROICHK+10~, ROICHK+11*, ROICHK+21*, ROICHKQ+2 |
| U | ROICHK+13, ROICHK+14 |