Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBECUSM

Package: Integrated Billing

Routine: IBECUSM


Information

IBECUSM ;DVAMC/RLM - TRICARE PHARMACY BILLING OPTIONS; 20-AUG-96

Source Information

Source file <IBECUSM.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(351.5 - [#351.5] Classic Fileman Calls
^IBA(351.52 - [#351.52] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call