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: IBECEA35

Package: Integrated Billing

Routine: IBECEA35


Information

IBECEA35 ;ALB/CPM - Cancel/Edit/Add... TRICARE Support ; 09-AUG-96

Source Information

Source file <IBECEA35.m>

Entry Points

Name Comments DBIA/ICR reference
CUS ; Process all TRICARE copayment charges.
GO ; - bill the charge
CUSQ
DISP(DFN,INS) ; Display TRICARE beneficiary insurance information.
; Input: DFN -- Pointer to the patient in file #2
; INS -- Pointer to the patient policy in file #2.312
DISPQ
BFCHK(DFN,SDATE,EDATE,IBRES) ; check for duplicates IB*2.0*715
DISPDUP(IBARY) ; Display list of duplicates and ask if the user wishes to continue. IB*2.0*715

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Billing the TRICARE patient copayment charge..."
  • Line Location: GO+15
Function Call: WRITE
  • Prompt: "completed."
  • Line Location: GO+18
Function Call: WRITE
  • Prompt: *7,!!,"Please note that this patient does not have active TRICARE coverage!",!
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !!," TRICARE coverage for ",$P($G(^DPT(DFN,0)),"^"),":"
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !!," Insured Person: ",$E($P(IBINS,"^",17),1,20)
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: ?42,"Company: ",$P($G(^DIC(36,+IBINS,0)),"^")
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !," Effective Date: ",$$DAT1^IBOUTL($P(IBINS,"^",8))
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: ?40,"Plan Name: ",$P(IBPLAN,"^",3)
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !,"Expiration Date: ",$$DAT1^IBOUTL($P(IBINS,"^",4))
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: ?38,"Plan Number: ",$P(IBPLAN,"^",4),!
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: " Service Branch: ",$P($G(^DIC(23,+$P(IBINS3,"^",2),0)),"^")
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: ?37,"Service Rank: ",$P(IBINS3,"^",3)
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: !,"BILL",?10,"BILL",?45,"BILL",!,"FROM",?10," TO",?21,"CHARGE TYPE",?45,"NUMBER",?70,"CHARGE",!
  • Line Location: DISPDUP+9
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISPDUP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPDUP+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call