Routine: IBECUSMU

Information

IBECUSMU ;ALB/CPM - PHARMACY BILLING OPTION UTILITIES ; 12-DEC-96

Name	Comments	DBIA/ICR reference
FINDC(IBIN,IBW,IBOUT)	; Find transactions which can be cancelled. ; Input: IBIN -- Array of transactions, passed by reference ; IBW -- 1 => Write reject statements ; 2 => No writes ; Output: IBOUT -- Array of transactions which can be cancelled
FINDB(IBRX,IBW,IBOUT)	; Find prescriptions which can be billed. ; Input: IBRX -- Pointer to the prescription in file #52 ; IBW -- 1 => Write reject statements ; 2 => No writes ; Output: IBOUT -- Array of transactions which can be billed
SEL(IBARR)	; Select a fill for a prescription. ; Input: IBARR -- Array of prescriptions passed by reference. ; Output: IBNUM -- One of the fill numbers, or -1 (none selected)
SELQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !," The claim for ",$S($P(IBKEY,";",2):"refill #"_$P(IBKEY,";",2),1:"the original fill")," for this prescription was rejected." Line Location: FINDC+20
Function Call: WRITE	Prompt: !!," The previous cancellation for ",$S($P(IBKEY,";",2):"refill #"_$P(IBKEY,";",2),1:"the original fill")," was rejected." Line Location: FINDB+32