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

Package: Integrated Billing

Routine: IBCCCB0


Information

IBCCCB0 ;ALB/ARH - COPY BILL FOR COB (OVERFLOW) ;06-19-97

Source Information

Source file <IBCCCB0.m>

Entry Points

Name Comments DBIA/ICR reference
DSPRB(IBIFN) ; display related bills
CTCOPY(IBIFN,IBMRA) ; based on the type of bill, copy it without cancelling
; IBMRA = 1 if an MRA bill and copy for prof components is desired
CTCOPY1(IBIFN) ; Copy a Reasonable Charges inst bill to create a prof bill:
; - Billing Rate must be Reasonable Charges
; - Bill being copied must be an inst bill
; - Prof bill must not already exist for the event date
; - If the bill is outpt at least one CPT must have prof charges
; - Procedure codes are copied only if the care is outpt
CTCOPY2(IBIFN) ; Copy a Reasonable Charges prof bill to create another prof bill if user wants another:
; - Billing Rate must be Reasonable Charges
; - Bill being copied must be a prof bill
; - Procedures are not copied
FINALEOB(IBIFN) ; Returns 1 if user indicates final EOB has been received
; from prior payer
FEOBQ
COBOK(IBIFN) ; Returns 1 if user indicates the COB process should proceed
; even though the prior payer's bill is still in ENTERED/NOT REVIEWED
; or REQUEST MRA status (1,2)
COBOKQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?13,"Payer Responsible",?33,"Bill #",?41,"Status",?49,"Original",?59,"Collected",?72,"Balance",!,?13,IBDS
  • Line Location: DSPRB+5
Function Call: WRITE
  • Prompt: ?33,$P($G(^DGCR(399,+IBK,0)),U)
  • Line Location: DSPRB+13
Function Call: WRITE
  • Prompt: ?43,$P($$STNO^RCJIBFN2(+$P(IBAR,U,2)),U,2)
  • Line Location: DSPRB+14
Function Call: WRITE
  • Prompt: ?47,$J($P(IBAR,U),10,2)
  • Line Location: DSPRB+15
Function Call: WRITE
  • Prompt: ?58,$J($P(IBAR,U,4),10,2)
  • Line Location: DSPRB+16
Function Call: WRITE
  • Prompt: ?69,$J($P(IBAR,U,3),10,2)
  • Line Location: DSPRB+17
Function Call: WRITE
  • Prompt: !!,?8,"* There are patient bills on Hold for the date range of this bill."
  • Line Location: DSPRB+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: DSPRB+19
Function Call: WRITE
  • Prompt: !!!,"There are no Reasonable Charges Outpatient Professional charges for this bill,",!,"second bill not created.",!!
  • Line Location: CTCOPY1+22
Function Call: WRITE
  • Prompt: !!!,"This ",IBBTYPE," ",IBBCTOD," bill may have corresponding ",IBBCTND," charges."
  • Line Location: CTCOPY1+24
Function Call: WRITE
  • Prompt: !!,"The current bill has no charges defined, no second bill created."
  • Line Location: CTCOPY1+26
Function Call: WRITE
  • Prompt: !!,"There is an existing ",IBBTYPE," ",IBBCTND," bill (",$P($G(^DGCR(399,+IBX,0)),U,1),") that appears",!,"to correspond to this ",IBBCTOD," bill, second bill not created.",!!
  • Line Location: CTCOPY1+28
Function Call: WRITE
  • Prompt: !,"Creating an ",IBBTYPE," ",IBBCTND," bill.",!!
  • Line Location: CTCOPY1+30
Function Call: WRITE
  • Prompt: !,"Creating an ",IBBTYPE,$S($$FT^IBCEF(IBIFN)=7:" Dental",1:" Professional")," bill.",!!
  • Line Location: CTCOPY2+25
Function Call: WRITE
  • Prompt: !!," Only one MRA has been received for this claim. The MRA on file indicates"
  • Line Location: FINALEOB+16
Function Call: WRITE
  • Prompt: !," that it is a 'split MRA' meaning that additional MRA's are needed."
  • Line Location: FINALEOB+17
Function Call: WRITE
  • Prompt: !," Processing cannot continue until all MRA's have been received for this claim."
  • Line Location: FINALEOB+18
Function Call: WRITE
  • Prompt: !
  • Line Location: FINALEOB+19
Function Call: WRITE
  • Prompt: !!," At least 2 MRA's have been received for this claim."
  • Line Location: FINALEOB+24
Function Call: WRITE
  • Prompt: !!,$$SPLTMRA^IBCEMU1(IBIFN)," MRA's have been received for this claim."
  • Line Location: FINALEOB+25
Function Call: WRITE
  • Prompt: !,"Please verify that all possible MRA's have been received for",!,"this claim before processing.",!
  • Line Location: FINALEOB+26
Function Call: WRITE
  • Prompt: !
  • Line Location: FINALEOB+29
Function Call: WRITE
  • Prompt: !
  • Line Location: COBOK+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call