Routine: IBECUSM

Name	Comments	DBIA/ICR reference
REV	; Reverse a claim already submitted to the Fiscal Intermediary.
REVA
OKAYC	; - okay to cancel?
REVQ
RESUB	; Resubmit a claim to the Fiscal Intermediary.
RESUBA
IBPSR	;Ask for the Product Selection Reason
OKAYB	; - okay to bill?
RESUBQ
DREJ	; Delete an entry from the Reject (#351.52) file.
DREJA
OKAYD	; - okay to delete the reject?
DREJQ

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please note that your TRICARE Pharmacy billing interface is not running!",! Line Location: REV+1
Function Call: WRITE	Prompt: ! Line Location: REVA+1
Function Call: WRITE	Prompt: !!,"Prescription: ",$P(Y,"^",2),!," Patient: ",$$FILE^IBRXUTL(+Y,2,"E") Line Location: REVA+3
Function Call: WRITE	Prompt: !!,"This prescription has not yet been billed." Line Location: REVA+8
Function Call: WRITE	Prompt: !!,$S($P(IBKEY,";",2):"Refill #"_$P(IBKEY,";",2),1:"The original fill")," for this prescription can be cancelled." Line Location: REVA+15
Function Call: WRITE	Prompt: !!,"More than one fill for rx# ",$$FILE^IBRXUTL(IBRX,.01)," may be cancelled." Line Location: REVA+18
Function Call: WRITE	Prompt: !,"The claim reversal was NOT submitted." Line Location: OKAYC+3
Function Call: WRITE	Prompt: !,"The claim reversal has been submitted." Line Location: OKAYC+7
Function Call: WRITE	Prompt: !!,"Please note that your TRICARE Pharmacy billing interface is not running!",! Line Location: RESUB+1
Function Call: WRITE	Prompt: ! Line Location: RESUBA+1
Function Call: WRITE	Prompt: !!,"Prescription: ",$$FILE^IBRXUTL(IBRX,.01),!," Patient: ",$P($G(^DPT(DFN,0)),"^") Line Location: RESUBA+4
Function Call: WRITE	Prompt: !!,$S($P(IBKEY,";",2):"Refill #"_$P(IBKEY,";",2),1:"The original fill")," for this prescription can be billed." Line Location: RESUBA+11
Function Call: WRITE	Prompt: !!,"More than one fill for rx# ",$$FILE^IBRXUTL(IBRX,.01)," may be billed." Line Location: RESUBA+14
Function Call: WRITE	Prompt: !,"The prescription was NOT submitted for billing." Line Location: IBPSR+3
Function Call: WRITE	Prompt: !,"The prescription was NOT submitted for billing." Line Location: OKAYB+3
Function Call: WRITE	Prompt: !!,*7,"The label printer is not defined!",!,"The prescription has NOT been submitted for billing." Line Location: OKAYB+6
Function Call: WRITE	Prompt: !,"The prescription has been submitted for billing." Line Location: OKAYB+8
Function Call: WRITE	Prompt: !!,"Please note that your TRICARE Pharmacy billing interface is not running!",! Line Location: DREJ+1
Function Call: WRITE	Prompt: ! Line Location: DREJA+1
Function Call: WRITE	Prompt: !!,"Prescription: ",$P(Y,"^",2),!," Patient: ",$$FILE^IBRXUTL(+Y,2,"E") Line Location: DREJA+3
Function Call: WRITE	Prompt: !!,"There is no reject entry for this prescription." Line Location: DREJA+8
Function Call: WRITE	Prompt: !!,$S($P(IBKEY,";",2):"Refill #"_$P(IBKEY,";",2),1:"The original fill")," for this prescription has been rejected." Line Location: DREJA+12
Function Call: WRITE	Prompt: !!,"More than one fill for rx# ",$$FILE^IBRXUTL(IBRX,.01)," has a reject entry." Line Location: DREJA+15
Function Call: WRITE	Prompt: !!,"Sorry, can't find a reject for this prescription!" Line Location: OKAYD+1
Function Call: WRITE	Prompt: !,"The reject entry was NOT deleted." Line Location: OKAYD+4
Function Call: WRITE	Prompt: !,"The reject entry has been deleted." Line Location: OKAYD+8

FileNo	Call Tags
^IBA(351.5 - [#351.5]	Classic Fileman Calls
^IBA(351.52 - [#351.52]	Classic Fileman Calls

Customize PDF page

Package: Integrated Billing

Routine: IBECUSM

Information

Source Information

Entry Points

Interaction Calls

FileMan Files Accessed Via FileMan Db Call