Routine: IBNCPDP1

Information

IBNCPDP1 ;OAK/ELZ - IB BILLING DETERMINATION PROCESSING FOR NEW RX REQUESTS ;5/22/08

Name	Comments	DBIA/ICR reference
RX(DFN,IBD)	; pharmacy package call, passing in IBD by ref ; this is called by PSO for all prescriptions issued, return is ; a response to bill ECME or not with array for billing data elements
GETINS	; -- examine the insurance data for a patient
RATEPRIC	; determine rates/prices to use
RXQ	; final processing ; set the 3rd piece of IBRES (default Vet)
CT	; files in claims tracking
SETINSUR(IBADT,IBRT,IBELIG,IBINS,IBD,IBRES)	; build insurance data array ; Input variables: ; IBADT - date of service/identify insurance as of this date ; IBRT - rate type variable - [1] rate type ien, [2] type (A/C/T), [3] eligibility (V/T/C) ; IBELIG - eligibility request flag (1/0) ; IBINS - insurance array as returned by RXINS^IBNCPDPU ; IBD - input/output - array entries passed in and certain array entries returned ; Output variable: ; IBRES - only returned if insurance errors
SETINX	;
RXPCT(IBD,BWHERE)	; Penny drug cost calculation ; Input-IBD array, BWHERE ; Output-return quotient of drug true value with 4 decimal places, or 0
RXPCTQ	;
EXEMPT	; exemption reasons ; variable from SD call ^ variable from PSO ^ reason not billable