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

Package: Integrated Billing

Routine: IBCRU5


Information

IBCRU5 ;ALB/ARH - RATES: UTILITIES (DISPLAYS) ; 16-MAY-1996

Source Information

Source file <IBCRU5.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Integrated Billing 2 ($$DATE,$$EMUTL,$$EXPAND)^IBCRU1  $$RGEXT^IBCRU4  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBCREE1  IBCRETP  

Entry Points

Name Comments DBIA/ICR reference
DISPCI(IBCSFN,IBCISI) ; display all Charge Items for a single billable event for a Charge Set
; input IBCISI = pointer to the items source file (not the CI FN)
DISPCIL(IBDA,IBCNT) ; print a single Charge Item line (input: IBDA = CI IFN, IBCNT = reference #)
DISPCS(IBCSFN) ; display charge set data
DISPCSL(IBCSFN) ; display one line of charge set data

External References

Name Field # of Occurrence
$$DATE^IBCRU1 DISPCIL+3, DISPCIL+4
$$EMUTL^IBCRU1 DISPCS+6, DISPCS+9
$$EXPAND^IBCRU1 DISPCS+5, DISPCS+13, DISPCIL+8
$$RGEXT^IBCRU4 DISPCS+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?4,"Charge Set: ",?19,$E($P(IBCS0,U,1),1,30)
  • Line Location: DISPCS+4
Function Call: WRITE
  • Prompt: ?49,"Charge Type: ",?65,$$EXPAND^IBCRU1(363.1,.04,+$P(IBCS0,U,4))
  • Line Location: DISPCS+5
Function Call: WRITE
  • Prompt: !,?4,"Billing Event: ",?19,$E($$EMUTL^IBCRU1($P(IBCS0,U,3),1),1,28)
  • Line Location: DISPCS+6
Function Call: WRITE
  • Prompt: ?49,"Default Rev Cd: ",?65,$P(IBRVCD,U,1)
  • Line Location: DISPCS+7
Function Call: WRITE
  • Prompt: !,?4,"Billing Rate: ",?19,$E($P(IBBR0,U,1),1,28)
  • Line Location: DISPCS+8
Function Call: WRITE
  • Prompt: ?49,"Default Bed: ",?65,$E($$EMUTL^IBCRU1(+$P(IBCS0,U,6),2),1,15)
  • Line Location: DISPCS+9
Function Call: WRITE
  • Prompt: !,?4,"Region: ",?19,$P(IBX,U,1)
  • Line Location: DISPCS+10
Function Call: WRITE
  • Prompt: !,?17
  • Condition for execution: ($L($P(IBX,U,2))>40)
  • Line Location: DISPCS+10
Function Call: WRITE
  • Prompt: " (",$P(IBX,U,2),")"
  • Line Location: DISPCS+10
Function Call: WRITE
  • Prompt: !!,?4,"All Charge Items will use Rev Code ",$P(IBRVCD,U,1)," if one is not specified for the Item."
  • Line Location: DISPCS+11
Function Call: WRITE
  • Prompt: !!,?4,"A Default Rev Code is not specified, one will be required for each Item."
  • Line Location: DISPCS+12
Function Call: WRITE
  • Prompt: !,?4,"All items billable to the ",$P(IBBR0,U,2)," Billing Rate must be ",$$EXPAND^IBCRU1(363.3,.04,+$P(IBBR0,U,4)),"s.",!!
  • Line Location: DISPCS+13
Function Call: WRITE
  • Prompt: !,?4,"The ",$P(IBBR0,U,2)," Billing Rate charges are calculated, there are no Charge Items.",!!
  • Line Location: DISPCS+14
Function Call: WRITE
  • Prompt: !!,?4,"Set: ",$E($P(IBCS0,U,1),1,30),?55,"Default Rev Cd: ",$P(IBRVCD,U,1)
  • Line Location: DISPCSL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPCI+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPCI+7
Function Call: WRITE
  • Prompt: !,?5,$G(IBCNT)
  • Line Location: DISPCIL+2
Function Call: WRITE
  • Prompt: ?10,$$DATE^IBCRU1($P(IBCI0,U,3))
  • Line Location: DISPCIL+3
Function Call: WRITE
  • Prompt: ?19,"- ",$$DATE^IBCRU1($P(IBCI0,U,4))
  • Line Location: DISPCIL+4
Function Call: WRITE
  • Prompt: ?30,$J($P(IBCI0,U,5),10,2)
  • Line Location: DISPCIL+5
Function Call: WRITE
  • Prompt: ?45,$P(IBRVCD,U,1),?50,$E($P(IBRVCD,U,2),1,28)
  • Line Location: DISPCIL+7
Function Call: WRITE
  • Prompt: ?70,$$EXPAND^IBCRU1(363.2,.07,+$P(IBCI0,U,7))
  • Line Location: DISPCIL+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399.2 - [#399.2] DISPCS+2, DISPCSL+2, DISPCIL+6
^IBA(363.2 - [#363.2] DISPCI+4, DISPCI+5, DISPCIL+1
^IBE(363.1 - [#363.1] DISPCS+2, DISPCSL+2
^IBE(363.3 - [#363.3] DISPCS+2

Label References

Name Line Occurrences
DISPCIL DISPCI+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
IBBR0 DISPCS+1~, DISPCS+2*, DISPCS+8, DISPCS+13, DISPCS+14
IBCI0 DISPCI+2~, DISPCIL+1~*, DISPCIL+3, DISPCIL+4, DISPCIL+5, DISPCIL+6, DISPCIL+8
IBCISI DISPCI~, DISPCI+3*, DISPCI+4, DISPCI+5
IBCNT DISPCIL~, DISPCIL+2
IBCS0 DISPCS+1~, DISPCS+2*, DISPCS+4, DISPCS+5, DISPCS+6, DISPCS+9, DISPCS+10, DISPCS+11, DISPCS+12, DISPCSL+1~
, DISPCSL+2*, DISPCSL+3
IBCSFN DISPCS~, DISPCS+1*, DISPCS+2, DISPCSL~, DISPCSL+1, DISPCSL+2, DISPCI~, DISPCI+3*
IBDA DISPCI+2~, DISPCI+5*, DISPCI+6, DISPCIL~, DISPCIL+1
IBEFDT DISPCI+2~, DISPCI+4*, DISPCI+5
IBRVCD DISPCS+1~, DISPCS+2*, DISPCS+7, DISPCS+11, DISPCSL+1~, DISPCSL+2*, DISPCSL+3, DISPCIL+1~, DISPCIL+6*, DISPCIL+7
IBX DISPCS+1~, DISPCS+10*
U DISPCS+2, DISPCS+4, DISPCS+5, DISPCS+6, DISPCS+7, DISPCS+8, DISPCS+9, DISPCS+10, DISPCS+11, DISPCS+12
, DISPCS+13, DISPCS+14, DISPCSL+2, DISPCSL+3, DISPCIL+3, DISPCIL+4, DISPCIL+5, DISPCIL+6, DISPCIL+7, DISPCIL+8
XREF DISPCI+2~, DISPCI+3*, DISPCI+4, DISPCI+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All