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
Print Page as PDF
Routine: IBCRBC3

Package: Integrated Billing

Routine: IBCRBC3


Information

IBCRBC3 ;ALB/ARH - RATES: BILL CALCULATION SORT/STORE ;22-MAY-1996

Source Information

Source file <IBCRBC3.m>

Entry Points

Name Comments DBIA/ICR reference
SORTCI ; process charge array - create new array sorted by bedsection and revenue code
; if bs, rv cd, unit charge, cpt, div, item type, item ptr and component all match then charge is combined
; Input: TMP($J,"IBCRCC",X) = ... (from IBCRBC2)
; Output: TMP($J,"IBCRCS",BS,RV CD,Y) =
; RV CD PTR ^ BS PTR ^ UNIT $ ^ UNITS ^ CPT ^ DIV ^ ITEM TYPE ^ ITEM PTR ^ CHARGE COMPONENT
ADDBCHGS(IBIFN) ; store all auto calculated charges: add charges to bill: sets RC multiple
; Input: TMP($J,"IBCRCS",BS,RV CD,X) = ... (from SORTCI)
CLEANRX(IBIFN) ; Clean up any procedures left over from deleted Rx entries
DSPDL ;
DSPHDR ;
DSPLN(LN) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Removing old Revenue Codes and Rate Schedules..."
  • Line Location: DSPDL+2
Function Call: WRITE
  • Prompt: !,"Updating Revenue Codes and Charges"
  • Line Location: DSPHDR+2
Function Call: WRITE
  • Prompt: !,?9,"Rev Code",?19,"Units",?31,"Charge",?41,"Bedsection"
  • Line Location: DSPHDR+3
Function Call: WRITE
  • Prompt: !,"Adding",?11,RVCD,?19,$J($P(LN,U,3),3),?28,"$",$J($P(LN,U,2),8,2),?41,$E(BS,U,26),?69,$E(ITM,1,11)
  • Line Location: DSPLN+5
Info |  Source |  Entry Points |  Interaction Calls