Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 3 $$ITCOST^IBCRCI  ($$DATE,$$EMUTL,$$EXPAND,$$GETDT,$$GETITEM)^IBCRU1  ($$FNDCI,$$RGEXT)^IBCRU4  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCRBE  

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

External References

Name Field # of Occurrence
^DIR DISPLAY+3, DISPLAY+13, UNITS+7, DIV+14, RVCD+13
$$ITCOST^IBCRCI ITEM+19
$$DATE^IBCRU1 DISPLAY+11
$$EMUTL^IBCRU1 SELITEMS+6
$$EXPAND^IBCRU1 DISPLAY+11
$$GETDT^IBCRU1 ITEM+11
$$GETITEM^IBCRU1 ITEM+8
$$FNDCI^IBCRU4 RVCD+3
$$RGEXT^IBCRU4 DIV+9

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
Routine Call
  • DIR
  • Line Location:
    • DISPLAY+3
    • DISPLAY+13
    • UNITS+7
    • DIV+14
    • RVCD+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DISPLAY+11, DIV+2, DIV+3
^DGCR(399 - [#399] ITEM+4, ITEM+5
^DGCR(399.2 - [#399.2] RVCD+4, RVCD+5
^IBE(363.1 - [#363.1] SELITEMS+6, ITEM+6, RVCD+5
^IBE(363.31 - [#363.31] DIV+2

Label References

Name Line Occurrences
$$DISPLAY SELITEMS+16
$$DIV ITEM+15
$$ITEM SELITEMS+13
$$RVCD ITEM+17
$$UNITS ITEM+13
DISPQ DISPLAY+3
ITEMQ ITEM+8, ITEM+11, ITEM+13, ITEM+15, ITEM+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR DISPLAY+1~, DISPLAY+13!, UNITS+1~, DIV+1~, DIV+14!, RVCD+1~, RVCD+13!
DIR("?" UNITS+2*, UNITS+3*, UNITS+4*, UNITS+5*, DIV+5*, DIV+6*, DIV+7*, DIV+8*, DIV+9*, DIV+10*
, DIV+11*, RVCD+7*, RVCD+8*, RVCD+9*, RVCD+10*
DIR("A" DISPLAY+3*, DISPLAY+13*, UNITS+7*, DIV+14*, RVCD+13*
DIR("B" UNITS+7*, DIV+13*, RVCD+12*
DIR("S" DIV+13*, RVCD+12*
DIR(0 DISPLAY+3*, DISPLAY+13*, UNITS+7*, DIV+14*, RVCD+13*
DIRUT DISPLAY+1~, DISPLAY+13, UNITS+1~, UNITS+7, DIV+1~, DIV+14, RVCD+1~, RVCD+13
DTOUT DISPLAY+1~, UNITS+1~, DIV+1~, RVCD+1~
DUOUT DISPLAY+1~, UNITS+1~, DIV+1~, RVCD+1~
IBBDIV ITEM+2~, ITEM+4*, ITEM+15, DIV~, DIV+1*, DIV+3*, DIV+11
IBBEG ITEM+2~, ITEM+5*, ITEM+11
IBBEVNT SELITEMS+3~, SELITEMS+6*, SELITEMS+8
IBC RVCD+1~*, RVCD+8*, RVCD+9*, RVCD+10*
IBCI RVCD+1~, RVCD+3*, RVCD+4
IBCI( RVCD+4
IBCI(0 RVCD+3
IBCNT SELITEMS+3~*, SELITEMS+14*, SELITEMS+16*, SELITEMS+17
IBCOST ITEM+2~, ITEM+19*, ITEM+21
IBCS SELITEMS+3~, SELITEMS+5*, SELITEMS+6, SELITEMS+13, SELITEMS+14, ITEM~, ITEM+6, ITEM+8, ITEM+17, ITEM+19
, RVCD~, RVCD+3, RVCD+5
IBCS0 SELITEMS+3~, SELITEMS+6*, SELITEMS+11, ITEM+2~, ITEM+6*, ITEM+15
IBCSRG DIV~, DIV+1*, DIV+2, DIV+9, DIV+13
IBDDV DIV+1~, DIV+2*, DIV+13
IBDT ITEM+2~, ITEM+11*, ITEM+17, ITEM+19, ITEM+23
IBDV ITEM+2~, ITEM+15*, ITEM+19, ITEM+23, DIV+1~*, DIV+14*, DIV+15
IBEFDT RVCD~, RVCD+3
IBEND ITEM+2~, ITEM+5*, ITEM+11
IBEVDT ITEM+2~, ITEM+4*, ITEM+5*, ITEM+11
IBFND SELITEMS+3~*, SELITEMS+9*, SELITEMS+16
IBI DISPLAY+1~, DISPLAY+9*, DISPLAY+10
IBIDRV RVCD+1~*, RVCD+4*, RVCD+9, RVCD+12
IBIFN SELITEMS~, SELITEMS+13, ITEM~, ITEM+4, ITEM+5
IBITCHG SELITEMS+3~, SELITEMS+13*, SELITEMS+14
IBITEM ITEM+2~, ITEM+8*, ITEM+9*, ITEM+17, ITEM+19, ITEM+23, RVCD~, RVCD+3
IBJ DISPLAY+1~, DISPLAY+9*, DISPLAY+10
IBK DISPLAY+1~, DISPLAY+10*
IBLINE DISPLAY+1~, DISPLAY+10*, DISPLAY+11, ITEM+2~*, ITEM+8*, ITEM+23*, ITEMQ
IBRS SELITEMS+3~, SELITEMS+5*, SELITEMS+13, SELITEMS+14, ITEM~, ITEM+19
IBRVCD ITEM+2~, ITEM+17*, ITEM+23, RVCD+1~*, RVCD+13*, RVCD+14
IBS DISPLAY+1~*, DISPLAY+13*, DISPQ
IBSDRV RVCD+1~*, RVCD+5*, RVCD+8, RVCD+12
IBUCHGAR SELITEMS~, SELITEMS+3!, SELITEMS+14*, SELITEMS+16!, DISPLAY~, DISPLAY+3
IBUCHGAR( SELITEMS+14*, DISPLAY+9, DISPLAY+10
IBUNIT UNITS+1~*, UNITS+7*, UNITS+8
IBUNITS ITEM+2~, ITEM+13*, ITEM+21, ITEM+23
IBURSARR SELITEMS~
IBURSARR( SELITEMS+5
IOF SELITEMS+11, DISPLAY+3, DISPLAY+5
U SELITEMS+6, SELITEMS+11, DISPLAY+11, ITEM+4, ITEM+5, ITEM+9, ITEM+15, ITEM+23, DIV+9, DIV+11
, DIV+13, RVCD+4, RVCD+5, RVCD+8, RVCD+9, RVCD+12
X DISPLAY+1~, UNITS+1~, DIV+1~, RVCD+1~
Y DISPLAY+1~, DISPLAY+13, UNITS+1~, UNITS+7, DIV+1~, DIV+14, RVCD+1~, RVCD+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All