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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCRETP

Package: Integrated Billing

Routine: IBCRETP


Information

IBCRETP ;LL/ELZ - RATES: TRANSFER PRICING CM FAST ENTER/EDIT ; 24-AUG-1999

Source Information

Source file <IBCRETP.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 6 $$ADDCI^IBCREF  $$RQCI^IBCREU1  ($$EXPAND,$$GETCS,$$GETDT,$$GETITEM)^IBCRU1  $$ITFILE^IBCRU2  (DISPCI,DISPCIL)^IBCRU5  ($$TPCS,DISPCS,DISPCSL)^IBCRU7  
VA FileMan 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
Kernel 1 $$NNT^XUAF4  

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 IBCR ENTER TP NEG RATES  

Entry Points

Name Comments DBIA/ICR reference
ENTER ; OPTION: Transfer Pricing rates fast enter - this requires billing
; rate names are not changed. Will set up charge sets if not defined.
FAC(TYPE) ; ask facility, create charge sets and billing region if not defined, return chargeset
RG(INST) ; add a new Billing Region for Transfer pricing (363.31)
; input institution 0 by ref and institution pointer
; returns billing region IFN ^ name
ACS(RATE,RG,FAC) ; find or add charge set
; returns IFN of new charge set, 0 otherwise, input is in internal^external format
ACSQ
MCCRUTL(X,P) ; returns IFN of item in 399.1 if Name is found and piece P is true
MSG(X) ; add message to end of message list, reserves IBA(1) for primary message
MSGP ; print error messages in IBA
EDITCI(IBCSFN,IBDT) ; Enter/Edit Charge Items
CS
CI
EF
DIE
BITM(X) ; return external form of billable item
FINDCI(IBCSFN,IBITEM,IBDT) ; find item to edit returns CIIFN or 0 (new) or -1 (error)
FCQ
DR01(FILE) ; return DR string for editing the .01 field of charge item
SCRNDSPL ; if this edit is called from the screen return the items and dates edited so screen can be
; redisplayed with the new/edited items

External References

Name Field # of Occurrence
^DIC FAC+3
FILE^DICN RG+11, RG+14, ACS+15
^DIE ACS+19, DIE
^DIR ENTER+6, FINDCI+7, FINDCI+8
$$ADDCI^IBCREF EF+9
$$RQCI^IBCREU1 DIE+2
$$EXPAND^IBCRU1 BITM+1
$$GETCS^IBCRU1 CS
$$GETDT^IBCRU1 ENTER+9
$$GETITEM^IBCRU1 CI
$$ITFILE^IBCRU2 CI+1
DISPCI^IBCRU5 EF
DISPCIL^IBCRU5 FINDCI+6
$$TPCS^IBCRU7 FAC+5
DISPCS^IBCRU7 CS+1
DISPCSL^IBCRU7 DIE+3
$$NNT^XUAF4 RG+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENTER+4
Function Call: WRITE
  • Prompt: !!,?10,"Fast Enter of Transfer Pricing Rates",!!
  • Line Location: ENTER+4
Function Call: WRITE
  • Prompt: !,IBA(IBX)
  • Line Location: MSGP+1
Function Call: WRITE
  • Prompt: !!,"Enter/edit a billable item (",$$BITM(IBBRBI),") for Charge Set ",$P(IBCS0,U,1)
  • Line Location: CS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CI+0
Function Call: WRITE
  • Prompt: !!,$$BITM(IBBRBI)," ",$P(IBITEM,U,2)," CURRENTLY INACTIVE",!
  • Line Location: CI+1
Function Call: WRITE
  • Prompt: " ... no change"
  • Line Location: EF+1
Function Call: WRITE
  • Prompt: !,?50,"Editing Charge Item!"
  • Line Location: EF+6
Function Call: WRITE
  • Prompt: !!,"A charge can not be added for this item!",!
  • Line Location: EF+8
Function Call: WRITE
  • Prompt: !,?50,"Adding a new Charge Item!"
  • Line Location: EF+9
Routine Call
  • DIC
  • Line Location:
    • FAC+3
Routine Call
  • DIE
  • Line Location:
    • ACS+19
    • DIE
Routine Call
  • DIR
  • Line Location:
    • ENTER+6
    • FINDCI+7
    • FINDCI+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(363.1 - [#363.1] Classic Fileman Calls
^IBA(363.2 - [#363.2] Classic Fileman Calls
^IBE(363.31 - [#363.31] Classic Fileman Calls
^DIC(4 - [#4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399.1 - [#399.1] MCCRUTL+2
^DIC(4 - [#4] RG+6
^DIC(5 - [#5] RG+8
^IBA(363.2 - [#363.2] FINDCI+3, FINDCI+5
^IBE(363.1 - [#363.1] ACS+7, ACS+13, CS+3
^IBE(363.3 - [#363.3] ACS+8, ACS+10, CS+4
^IBE(363.31 - [#363.31] RG+9

Label References

Name Line Occurrences
$$ACS FAC+9
$$BITM CS+5, CI+1
$$DR01 EF+11
$$FAC ENTER+11
$$FINDCI EF+4
$$MCCRUTL ACS+9
$$RG FAC+8
ACSQ ACS+3, ACS+11
CI EF+1, DIE+4
EDITCI ENTER+12
EF EF+4
FCQ FINDCI+3
MSG RG+12, RG+15, ACS+7, ACS+8, ACS+9, ACS+10
MSGP RG+17, ACSQ
SCRNDSPL EF+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 RG+3~, RG+11!
DA RG+3~, RG+14!, ACS+2~, ACS+19*!, EDITCI+1~, DIE*, DIE+2
DA(1 RG+14*
DD ACS+2~, ACS+15!
DIC FAC+1~, FAC+3*, RG+3~, RG+11*, RG+14*, ACS+2~, ACS+15*!
DIC(0 FAC+3*, RG+11*, RG+14*, ACS+15*
DIDEL DIE*!
DIE ACS+2~, ACS+19*!, EDITCI+1~, DIE*!
DINUM ACS+2~, ACS+13*, ACS+15!
DIR ENTER+3~, ENTER+6!, FINDCI+2~
DIR("A" ENTER+6*, FINDCI+8*
DIR("B" FINDCI+8*
DIR(0 ENTER+6*, FINDCI+7*, FINDCI+8*
DIRUT ENTER+3~
DLAYDO ACS+2~
DLAYGO RG+3~, RG+11*, ACS+15*!
DO ACS+2~, ACS+15!
DR ACS+2~, ACS+18*, ACS+19!, EDITCI+1~, EF+11*, EF+13*, DIE!
DTOUT ENTER+3~, FAC+1~, RG+3~, FINDCI+8
DUOUT ENTER+3~, FAC+1~, RG+3~, FINDCI+8
FAC ACS~, ACS+3*, ACS+5
FILE DR01~, DR01+2
IBA ENTER+3~, ACS+2~
IBA( MSG+2*, MSGP+1
IBA(1 ACS+20*
IBA(999999 MSG+1
IBARR ENTER+3~, FINDCI+2~
IBARR( FINDCI+6*, FINDCI+7
IBBE ACS+2~, ACS+9*, ACS+18
IBBR ACS+2~, ACS+8*, ACS+18
IBBR0 EDITCI+1~, CS+4*
IBBRBI EDITCI+1~, CS+4*, CS+5, CI+1
IBBRFN EDITCI+1~, CS+3*, CS+4
IBCIFN EDITCI+1~, EF+4*, EF+6, EF+8, EF+9*, DIE, DIE+2
IBCNT FINDCI+2~, FINDCI+5*, FINDCI+6*, FINDCI+7
IBCS ENTER+3~, ENTER+11*, ENTER+12, FAC+1~, FAC+5*, FAC+9*, FAC+10
IBCS0 EDITCI+1~, CS+3*, CS+5
IBCSFN EDITCI~, CS*, CS+1, CS+3, CI, EF, EF+4, EF+9, DIE+3, FINDCI~
, FINDCI+3, FINDCI+5
IBCSN ACS+2~, ACS+16*
IBDT EDITCI~, EF+1*, EF+4, EF+9, FINDCI~, FINDCI+3, FINDCI+5, SCRNDSPL+3, SCRNDSPL+4
IBEFDT ENTER+3~, ENTER+9*, ENTER+12
IBEVENT ACS+2~, ACS+6*, ACS+9
IBFAC FAC+1~, FAC+3*, FAC+5, FAC+8, FAC+9
IBFN ACS+2~, ACS+7*, ACS+13*, ACS+16*, ACS+19, ACS+20, ACSQ+1
IBI FINDCI+2~, FINDCI+3*, FINDCI+5*, FINDCI+6
IBITEM EDITCI+1~, CI*, CI+1, EF, EF+4, EF+9, EF+11, EF+13, FINDCI~, FINDCI+3
, FINDCI+5, SCRNDSPL+2
IBJ ACS+2~, ACS+13*
IBNAME RG+3~, RG+7*, RG+8*, RG+9, RG+11, ACS+2~, ACS+5*, ACS+7, ACS+15, ACS+20
IBOK ACS+2~*, ACS+7*, ACS+8*, ACS+9*, ACS+10*, ACS+11
IBRATE ENTER+3~, ENTER+7*, ENTER+11
IBRG FAC+1~, FAC+8*, FAC+9, RG+3~, RG+9*, RG+12*, RG+14, RG+17
IBRVCD ENTER+3~
>> IBSRNBDT SCRNDSPL+3*
>> IBSRNEDT SCRNDSPL+4*
>> IBSRNITM SCRNDSPL+2*
IBX MCCRUTL+1~, MCCRUTL+2*, MSG+1~*, MSG+2, MSGP+1~*, EDITCI+1~, DIE+2*, DR01+1~*, DR01+2*, DR01+3
IBY MCCRUTL+1~*, MCCRUTL+2*, MCCRUTL+3, FINDCI+2~*, FINDCI+3*, FINDCI+7*, FINDCI+8*, FCQ
INST RG~, RG+4, RG+6, RG+7, RG+14
INST( RG+6*
INST(0 RG+8, RG+15
INST(1 RG+8
INST(99 RG+8
IOF ENTER+4
MSG RG+3~, ACS+2~
P MCCRUTL~, MCCRUTL+2
RATE ACS~, ACS+3*, ACS+5, ACS+6, ACS+8
RG ACS~, ACS+3*, ACS+10, ACS+18
TYPE FAC~, FAC+5, FAC+9
U ACS+16, MCCRUTL+2, CS+3, CS+4, CS+5, CI+1, EF+11, EF+13
X ENTER+3~, FAC+1~, RG+3~, RG+6*, RG+11*, RG+14*, ACS+2~, ACS+15*!, ACS+19!, MCCRUTL~
, MCCRUTL+2, MSG~, MSG+2, EDITCI+1~, DIE!, BITM~, BITM+1*, BITM+2, FINDCI+2~
Y ENTER+3~, ENTER+7, FAC+1~, FAC+3, RG+3~, RG+11, RG+12, RG+15, ACS+2~, ACS+15!
, ACS+16, ACS+19!, EDITCI+1~, DIE+2, FINDCI+2~, FINDCI+7, FINDCI+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All