IBNCPDPU ;OAK/ELZ - UTILITIES FOR NCPDP ;Jun 06, 2014@19:13:12
Source file <IBNCPDPU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CT(DFN,IBRXN,IBFIL,IBADT,IBRMARK) | ; files in claims tracking
; Input: ; DFN - Patient IEN ; IBRXN - Rx IEN ; IBFIL - Fill# ; IBADT - Date of Service ; IBRMARK - Non-billable Reason (.01 from 356.8) |
|
| FILL(X,LEN) | ; Zero-fill, right justified.
|
|
| PLANN(DFN,IBX,IBADT) | ; returns the ien in the insurance multiple for the given plan/patient provided
; Output: insurance co ien^2.312 subfile ien |
|
| PLANEPS(IBPL) | ; returns the ePharmacy payer sheets for a group plan
; IBPL = IEN to GROUP INSURANCE PLAN file #355.3 ; Returns: Payer Sheets. (B1,B2,B3,E1) (comma separated string) ; Successful: 1^B1,B2,B3,E1 ; Unsuccessful: 0 |
|
| RT(DFN,IBDT,IBINS,IBPTYP) | ; returns rate type to use for bill
; Input: ; DFN - patient ien ; IBDT - date of service ; IBINS - insurance array (pass by reference) |
|
| BS() | ; returns the mccr utility to use
|
|
| RXBIL(IBINP,IBERR) | ; Matching NCPDP payments
; Find IB Bill by the 7 or 12 digit ECME number and the Rx fill date ; This function is called by AR routine $$BILL^RCDPESR1 (DBIA 4435). |
|
| RXBILND(IBECME) | ;Match the bill with no date
|
|
| TXMATCH(IBTXT1,IBTXT2,IBMAX) | ;
|
|
| ECMEBIL(DFN,IBADT) | ; Is the pat ECME Billable (pharmacy coverage only)
; DFN - ptr to the patient ; IBADT - the date ; IBINS - insurance array returned by ALL^IBCNS1 |
|
| SUBMIT(IBRX,IBFIL,IBDELAY) | ; Submit the Rx claim through ECME
; IBDELAY - Delay Reason Code, passed as the 18th parameter - IB*2.0*435 ; IBRX - RX ien in file #52 ; IBFIL - Fill No (0 for orig fill) |
|
| REASON(IBX,EXACT) | ; Close Claim Reasons
|
|
| NABP(IBIFN) | ;NABP Number
|
|
| BILL(IBRX,IBFIL) | ;
|
|
| REJECT(IBECME,IBDATE) | ; Is the e-claim rejected?
|
|
| RXINS(DFN,IBADT,IBINS) | ; Return an array of pharmacy insurance policies by COB order
; Input: ; DFN - Patient ien (required) ; IBADT - Date of Service (fileman format, optional defaults to today) ; Output: ; IBINS - Name of destination array (pass by reference) |
|
| RXINSX | ;
|
|
| ECMEMTCH(IBECME,IBDAT,IBPNAME,IBERR) | ; Attempt ECME# look up with either 7 digit or 12 digit number (IB*2*435)
|
|
| ACDUTY(DFN) | ;
; Check active duty status for the patient ; Input: ; DFN: Patient (#2) IEN ; Output: ; 0: Does not have an Active Duty Status ; 1: Has an active Duty Status ; |
| FileNo | Call Tags |
|---|---|
| ^IBT(356 - [#356] | Classic Fileman Calls |
