Routine: BPSPRRX5

Information

BPSPRRX5 ;ALB/SS - ePharmacy secondary billing ;12-DEC-08

Name	Comments	DBIA/ICR reference
SELREFIL(BPSARR,BPSPRMPT,BPSMESS)	;
FINDECLM(BPSRXIEN,BPSREF,BPCOBIND)	;
DISPECLM(BP59)	;
CLMINFO(BP59)	;
GETPL59(BP59)	;
GETRTP59(BP59)	;
GETBIL59(BP59)	;
SELCOB(BPSPRMPT,BPSMESS)	;
SECNOPRM(BPSRX,BPSRF,BPSDOS,BPSDFN,BPDISPPR)	;
GETOPPRA(BPSRESP,BPARR)	; get the Other Payer-Patient Responsibility Amount/Qualifier pairs from the Primary payer response ; BPS120 ; Input: BPSRESP - response file ien ; Output: array BPARR (pass by reference) ; BPARR = count of amount/qualifier pairs ; BPARR(#) = AMOUNT ^ QUALIFIER
GETPPX	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Drug name NDC DOS RX# FILL/ECME# TYPE STATUS" Line Location: DISPECLM+1
Function Call: WRITE	Prompt: !,"===============================================================================" Line Location: DISPECLM+2
Function Call: WRITE	Prompt: !,$$CLMINFO(BP59) Line Location: DISPECLM+3
Function Call: WRITE	Prompt: !!,"There is an existing rejected/reversed secondary e-claim(s) for the RX/refill." Line Location: SECNOPRM+36
Function Call: WRITE	Prompt: ! Line Location: SECNOPRM+56
Function Call: WRITE	Prompt: !!,"Unable to find a secondary insurance policy which is e-Pharmacy billable." Line Location: SECNOPRM+62
Function Call: WRITE	Prompt: !,"You must correct this in order to continue.",! Line Location: SECNOPRM+63
Function Call: WRITE	Prompt: ! Line Location: SECNOPRM+88
Function Call: WRITE	Prompt: !!,$P(BPSRET,U,2),! Line Location: SECNOPRM+102