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

Package: Integrated Billing

Routine: IBCRBEI


Information

IBCRBEI ;ALB/ARH - RATES: BILL ENTER/EDIT (RS/CS) SCREEN - BI ; 10-OCT-1998

Source Information

Source file <IBCRBEI.m>

Entry Points

Name Comments DBIA/ICR reference
SELITEMS(IBIFN,IBURSARR,IBUCHGAR) ; ask user to select items to bill, only Charges Sets with Billable Item of UNASSOCIATED allowed
; Output: IBUCHGAR(RS,CS,x) = item ptr+ ^ date ^ units ^ division ^ rev code
; returns count of unassociated items selected
DISPLAY(IBUCHGAR) ; prints items selected then ask if user wants to add these charges to the bill, return true if yes
DISPQ
ITEM(IBIFN,IBRS,IBCS) ; ask user for one item to charge from the Charge Set
; returns: item ptr+ ^ date ^ units ^ division ^ rev code, -1 if no item or null if data missing
ITEMQ
UNITS() ; ask user for number of units, return number of units or 0
DIV(IBCSRG,IBBDIV) ; ask user for division, return Division IFN or 0, only divisions within the CS region allowed
RVCD(IBCS,IBITEM,IBEFDT) ; ask user for a specific revenue code, return Rev Code IFN or 0

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"Select items from "_$P(IBCS0,U,1)_" to add to the bill's charges:"
  • Line Location: SELITEMS+11
Function Call: WRITE
  • Prompt: !,"------------------------------------------------------------------------------"
  • Line Location: SELITEMS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SELITEMS+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: @IOF,!,"The following items have been selected to add to the bill's charges:"
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !!!,?5,"Item",?35,"Date",?48,"Units",?60,"Division"
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------"
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,?3,$$EXPAND^IBCRU1(363.2,.01,$P(IBLINE,U,1)),?35,$$DATE^IBCRU1(+$P(IBLINE,U,2)),?48,$J($P(IBLINE,U,3),4),?60,$P($G(^DG(40.8,+$P(IBLINE,U,4),0)),U,2)
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: !,"Charge: ",$J(IBCOST,10,2)
  • Line Location: ITEM+19
Function Call: WRITE
  • Prompt: !,"Total: ",$J((IBUNITS*IBCOST),10,2)
  • Line Location: ITEM+21
Info |  Source |  Entry Points |  Interaction Calls