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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call