IBNCPEB ;WOIFO/AAT - BULLETINS FOR NCPDP ;05-NOV-04
Source file <IBNCPEB.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BULL(DFN,IBD,IBERR,IBIFN) | ;Process NCPDP Error Messages.
|
|
ZXMD | ;
|
|
T(IBTXT) | ; Add text to the message
|
|
RELBUL(DFN,IBRX,IBFIL,IBADT,IBACT,IBCR,IBCC,IBIFN,IBRETR) | ;
; Input: ; DFN - Patient ; IBRX - Rx IEN ; IBFIL - Refill# ; IBADT - Date of Service ; IBACT ; -1 if ^IBR error - when the charge was sent to AR ; 0 == charge was not found ; IBCR - Close Reason code (.01 of BPS CLOSE REASON) ; IBCC - Close Reason Comment ; IBIFN - 3rd party bill IEN ; IBRETR - attempt # after which a bulletion was sent |
|
CHRG | ; gets charge data and sets up charge lines
|
|
PR(STR,LEN) | ; pad right
|
|
MCDIV(IBRX,IBFIL) | ; Get MC DIVISION name from the Rx/Fill
|