Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^DIE  ^DIK  ^DIR  
Integrated Billing 2 ($$SEL,FINDB,FINDC)^IBECUSMU  $$FILE^IBRXUTL  
Outpatient Pharmacy 2 DIC^PSODI  ^PSOLSET  

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

External References

Name Field # of Occurrence
^DIE IBPSR+4
^DIK OKAYD+7
^DIR OKAYC+2, IBPSR+3, OKAYB+2, OKAYD+3
$$SEL^IBECUSMU REVA+19, RESUBA+15, DREJA+16
FINDB^IBECUSMU RESUBA+7
FINDC^IBECUSMU REVA+11
$$FILE^IBRXUTL REVA+3, REVA+18, RESUBA+3, RESUBA+4, RESUBA+14, DREJA+3, DREJA+15
DIC^PSODI REVA+1, RESUBA+1, DREJA+1
^PSOLSET OKAYB+5

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
Routine Call
  • DIE
  • Line Location:
    • IBPSR+4
Routine Call
  • DIR
  • Line Location:
    • OKAYC+2
    • IBPSR+3
    • OKAYB+2
    • OKAYD+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] RESUBA+4
^IBA(351.5 - [#351.5] REVA+7, OKAYC+6*, IBPSR+2, OKAYB+7*
^IBA(351.52 - [#351.52] DREJA+7, OKAYD+1!
^IBA(351.53 - [#351.53] IBPSR+2
^IBE(350.9 - [#350.9] REV+1, RESUB+1, DREJ+1

Label References

Name Line Occurrences
DREJA DREJA+8, DREJA+11
DREJQ DREJA+2, DREJA+17, OKAYD+1, OKAYD+4
IBPSR RESUBA+11
OKAYC REVA+15
OKAYD DREJA+12
RESUBA RESUBA+8
RESUBQ RESUBA+2, RESUBA+16, IBPSR+3, OKAYB+3, OKAYB+6
REVA REVA+8, REVA+12
REVQ REVA+2, REVA+20, OKAYC+3

Naked Globals

Name Field # of Occurrence
^( REVA+7, DREJA+7
^(0 IBPSR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA IBPSR+1~, IBPSR+4*, OKAYD+7*!
DFN RESUBA+3*, RESUBA+4, RESUBQ!
DIC REVA!*, REVA+1!, RESUBA!*, RESUBA+1!, DREJA!*, DREJA+1!
DIC("A" REVA*, RESUBA*, DREJA*
DIC(0 REVA*, RESUBA*, DREJA*
DIE IBPSR+1~, IBPSR+4*
DIK OKAYD+7*!
DIR OKAYC+2!, IBPSR+1~, IBPSR+5!, OKAYD+3!
DIR("A" OKAYC+1*, OKAYB+1*, OKAYD+2*
DIR("B" IBPSR+2*
DIR(0 OKAYC+2*, IBPSR+3*, OKAYB+2*, OKAYD+3*
DIROUT REVQ!, RESUBQ!, DREJQ!
DIRUT REVA+2, OKAYC+3, REVQ!, RESUBA+2, OKAYB+3, RESUBQ!, DREJA+2, OKAYD+4, DREJQ!
DR IBPSR+1~, IBPSR+4*
DTOUR REVQ!, RESUBQ!, DREJQ!
DUOUT REVA+2, OKAYC+3, REVQ!, RESUBA+2, OKAYB+3, RESUBQ!, DREJA+2, OKAYD+4, DREJQ!
DUZ OKAYC+6, OKAYB+7
IBARR REVA+6!, REVA+8, REVA+11, REVQ!, DREJA+6!, DREJA+8, DREJA+16, DREJQ!
IBARR( REVA+7*, DREJA+7*, DREJA+12, DREJA+19
IBARR("" DREJA+11
IBBIL RESUBA+7!, RESUBA+15, RESUBQ!
IBBIL( RESUBA+11, IBPSR+2, IBPSR+4, OKAYB+7
IBBIL("" RESUBA+8
IBCAN REVA+6!, REVA+11, REVA+19, REVQ!
IBCAN( REVA+15, REVA+22
IBCAN("" REVA+12
IBCHREF DREJA+12*, DREJA+19*, OKAYD+1, OKAYD+7, DREJQ!
IBCHTRN REVA+15*, REVA+22*, OKAYC+6, REVQ!
IBKEY REVA+6*, REVA+7*, REVA+12*, REVA+15, REVA+22*, OKAYC+6, REVQ!, RESUBA+8*, RESUBA+11, RESUBA+18*
IBPSR+2, IBPSR+4, OKAYB+7, RESUBQ!, DREJA+6*, DREJA+7*, DREJA+11*, DREJA+12, DREJA+19*, OKAYD+1
, DREJQ!
IBKEYS REVA+6*, REVA+7, REVQ!, DREJA+6*, DREJA+7, DREJQ!
IBREF REVA+19*, REVA+20, REVA+22, REVQ!, RESUBA+15*, RESUBA+16, RESUBA+18, RESUBQ!, DREJA+16*, DREJA+17
DREJA+19, DREJQ!
IBRX REVA+1*, REVA+6, REVA+18, REVA+22, REVQ!, RESUBA+1*, RESUBA+4, RESUBA+7, RESUBA+14, RESUBA+18
, RESUBQ!, DREJA+1*, DREJA+6, DREJA+15, DREJA+19, DREJQ!
PSOBAR0 RESUBQ+1!
PSOBAR1 RESUBQ+1!
PSOBARS RESUBQ+1!
PSOCLC RESUBQ+1!
PSOCNT RESUBQ+1!
PSODIV RESUBQ+1!
PSODTCUT RESUBQ+1!
PSOLAP OKAYB+6, OKAYB+7, RESUBQ+2!
PSOPAR OKAYB+5, RESUBQ+2!
PSOPAR7 RESUBQ+2!
PSOPRPAS RESUBQ+2!
PSOSITE OKAYB+7, RESUBQ+2!
X REVA~, RESUBA~, IBPSR+1~, DREJA~
Y REVA+1, REVA+2, REVA+3, OKAYC+3, RESUBA+1, RESUBA+2, RESUBA+3, IBPSR+1~, IBPSR+3, IBPSR+4
OKAYB+3, DREJA+1, DREJA+2, DREJA+3, OKAYD+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All