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

Package: Integrated Billing

Routine: IBCRBH1


Information

IBCRBH1 ;ALB/ARH - RATES: BILL HELP DISPLAYS - CHARGES ; 10-OCT-1998

Source Information

Source file <IBCRBH1.m>

Entry Points

Name Comments DBIA/ICR reference
DISPCHG(IBIFN) ; display a bills items and their charges, display only, does not change the charges on the bill
BILL(IBIFN,IBAA,IBRSARR) ; given a bill number calculate charges using schedules that match the auto add flag
; if IBRSARR is defined it will be used to create charges rather than the standard set for the bills Rate Type
; Output: ^TMP($J,"IBCRCC" - same as would be calculated if the charges were being added to bill
END
SORTCI(IBIFN) ; process charge array - create new array in sorted order with items combined, if possible
; if bs, rv cd, 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,"IBCRCSX",X) =
; RV CD ^ BS ^ CHG ^ UNITS ^ CPT ^ DIV ^ ITM TYPE ^ ITM PTR ^ CHRG CMPNT ^ CHRG SET ^ EVNT DT ^ ITM NAME
; TMP($J,"IBCRCSX",X,"CC",Y) = charge adjustment messages
; TMP($J,"IBCRCSXR",BS,RV CD,X) = ""
; TMP($J,"IBCRCSXN",DATE,ITEM NAME,X) = ""
DSPCHRG(AA) ; display charges
; Input: TMP($J,"IBCRCSx",...) = ... (from SORTCI)
DSPHDR(AA) ;
DSPLN(LN) ;
DISPLNC(LN) ; display charge adjustment commenmts
DATE(X) ;
PAUSE(CNT) ;
ITMNM(IBIFN,IBBS,IBIT,IBIP,IBCPT) ; return external form of the item name
CPTNM(IBIFN,TYPE,ITEM) ; retrurn external name of the charge item if it is a CPT item (type=399,42,.1)
NOTES(IBIFN,PAUSE) ; compile and print charge notes for a bill

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?72,"--------",!,?70,$J(IBTOTAL,10,2)
  • Line Location: DSPCHRG+25
Function Call: WRITE
  • Prompt: !,"Item",?18,"Date",?28,"Charge Set",?40,"Div",?47,"Type",?52,"RvCd",?57,"Units",?64,"Charge",?75,"Total"
  • Line Location: DSPHDR+2
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: DSPHDR+3
Function Call: WRITE
  • Prompt: !,$E(ITM,1,15),?18,$$DATE($P(LN,U,6)),?28,$E(CS,1,7),?40,DIV,?47,CMP,?52,RVCD,?57,$J(UNIT,3),?62,$J(CHG,8,2),?71,$J((UNIT*CHG),9,2)
  • Line Location: DSPLN+7
Function Call: WRITE
  • Prompt: !,?18,$G(LN)
  • Line Location: DISPLNC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+34
Function Call: WRITE
  • Prompt: !,IBMSG(IBX)
  • Line Location: NOTES+34
Info |  Source |  Entry Points |  Interaction Calls