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

Package: Integrated Billing

Routine: IBCRBE


Information

IBCRBE ;ALB/ARH - RATES: BILL ENTER/EDIT (RS/CS) SCREEN ; 22-MAY-1996

Source Information

Source file <IBCRBE.m>

Entry Points

Name Comments DBIA/ICR reference
EDIT(IBIFN) ; ENTRY POINT from Enter/Edit a Bill option:
; display available Schedules/Sets for a bill, allow the user to choose the ones to use,
; then recalculate the bills charges
EDITQ
DISPLAY(IBIFN,IBSRTARR) ; get list of all RS/CS combinations available for use on the bill
; sort them in name order then display the results to the screen, returns 1 if some found
DISPQ
SORTBRS(IBRSARR,IBSRTARR,IBBCT) ; return array in rs name, cs name sorted order with external form of data
; input: IBRSARR(rate sched IFN,charge set IFN) = true if auto add
; output: IBSRTARR = CNT of RS/CS to be auto added ^ total CNT
; IBSRTARR(CNT) = rs IFN ^ cs IFN ^ rs name ^ cs name ^ auto add ^ unassoc event ^ chg type ^ disp set
DISPRS(RT,BT,IBSRTARR) ; display available rate schedules and charge sets for a bill
SELCT(IBIFN,IBSRTARR,IBCHGARR) ; get the user selection of rs/cs charges to add to the bill
; input: IBSRTARR = CNT of RS/CS to be auto added ^ total CNT
; IBSRTARR(CNT) = rs IFN ^ cs IFN ^ rs name ^ cs name ^ Auto Add ^ unassoc event ^ chg type ^ disp set
; output: IBCHGARR(rate sched IFN,charge set IFN) = 1 - add charges for rs/cs
SELCTQ
NONE(IBBN,RT,BT,EVDT) ; write message indicating no rate schedules defined for this bill
WAIT
HELP(IBIFN) ; display rs/cs for the bill - used as help text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?5,"Rate Schedules available for an "_$S(BT>2:"Outpatient ",BT>0:"Inpatient ",1:"")_$E(RTN,1,27)_" bill"
  • Line Location: DISPRS+2
Function Call: WRITE
  • Prompt: !,"------------------------------------------------------------------------------"
  • Line Location: DISPRS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPRS+6
Function Call: WRITE
  • Prompt: !,?7
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !,?7,"On ",$$DATE^IBCRU1(+EVDT),", there are "
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: "No Rate Schedules with charges defined "
  • Line Location: NONE+3
Function Call: WRITE
  • Prompt: !,?20
  • Condition for execution: +EVDT
  • Line Location: NONE+4
Function Call: WRITE
  • Prompt: "for ",$S(BT>2:"Outpatient ",BT>0:"Inpatient ",1:""),IBRTN
  • Line Location: NONE+4
Function Call: WRITE
  • Prompt: !!,?7,"Therefore, charges can not be calculated for this bill (",IBBN,") "
  • Line Location: NONE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NONE+6
Info |  Source |  Entry Points |  Interaction Calls