IBNCPNB ;OAK/ELZ - UTILITIES FOR NCPCP ;5/22/08 15:23
Source file <IBNCPNB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NONBR(DFN,IBRX,IBFIL,IBADT,IBCR,IBPAP,IBRC,IBCC,IBUSER) | ; Set non-billable reason to CT
; input: ; DFN - Patient ; IBRX - Rx IEN ; IBFIL - fill# ; IBADT - Date of Service ; IBCR - Close Claim Reason (#356.8) ; IBPAP - Autobillable flag (billable (1) / non-billable (0) flag) ; IBRC - Release Copay (entered by OPECC) ; IBCC - Close Reason Comment (entered by OPECC) ; IBUSER - DUZ of user triggering the billing event |
|
| NONBRQ | ;
|
|
| RELCOPAY(DFN,IBRX,IBFIL,IBRETRY,IBADT,IBIFN) | ; Release copay charges on hold
; Input: ; DFN - Patient IEN ; IBRX - Rx IEN ; IBFIL - fill/refill # ; IBRETRY - retry flag ; IBADT - Date of Service ; IBIFN - 3rd party bill IEN ; output: ; -2 == there is no any copay ; -1^error code if unsuccessful == if ^IBR error ; 0 == charge was not found (and depends on IBRETRY another attempt can be scheduled) ; >0 == charge was released from HOLD ; this procedure will be called if the Payer agreed to pay 0.00 ; or the claim was closed as non-billable by the OPECC. ; if patient exempt from RX copay then there is nothing to release from HOLD - quit |
|
| RELCRG | ;
|
|
| RCTASK(DFN,IBRX,IBFIL,IBRETRY,IBADT,IBIFN) | ;
|
|
| MOREINS(DFN,IBADT) | ;
; DFN - ptr to the patient ; IBADT - the effective date |
|
| NDC(X) | ; Massage the NDC as it is stored in Pharmacy
; Input: X -- The NDC as it is stored in Pharmacy ; Output: X -- The NDC in the format 5N 1"-" 4N 1"-" 2N |
|
| NDCQ | ||
| ERMSG(IBSTL) | ; Inactive status reason
|
|
| PAPERBIL(IBTRKRN) | ; 'paper' bill in CT?
|
| FileNo | Call Tags |
|---|---|
| ^IBT(356 - [#356] | Classic Fileman Calls, GET1^DIQ |
