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

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Integrated Billing 5 (BILL,BILLITEM)^IBCRBC  $$SELITEMS^IBCRBEI  $$DATE^IBCRU1  ($$CSBR,RT)^IBCRU3  CMAEDALL^IBCU9  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Integrated Billing 1 IBCSCE  

Entry Points

Name Comments DBIA/ICR reference
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
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
NONE(IBBN,RT,BT,EVDT) ; write message indicating no rate schedules defined for this 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
HELP(IBIFN) ; display rs/cs for the bill - used as help text
SELCTQ
DISPRS(RT,BT,IBSRTARR) ; display available rate schedules and charge sets for a bill
EDITQ
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
DISPQ
WAIT

External References

Name Field # of Occurrence
^DIR SELCT+23, WAIT
BILL^IBCRBC EDIT+10
BILLITEM^IBCRBC EDIT+12
$$SELITEMS^IBCRBEI EDIT+12
$$DATE^IBCRU1 NONE+2
$$CSBR^IBCRU3 SORTBRS+9
RT^IBCRU3 DISPLAY+6
CMAEDALL^IBCU9 SELCT+21

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
Routine Call
  • DIR
  • Line Location:
    • SELCT+23
    • WAIT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] DISPLAY+4, DISPLAY+5
^DGCR(399.3 - [#399.3] DISPRS+1, NONE+1
^IBE(363 - [#363] SORTBRS+8
^IBE(363.1 - [#363.1] SORTBRS+8, SORTBRS+9

Label References

Name Line Occurrences
$$DISPLAY EDIT+6, HELP+1
$$SELCT EDIT+8
DISPQ DISPLAY+4, DISPLAY+5, DISPLAY+8
DISPRS DISPLAY+10
EDITQ EDIT+4, EDIT+6, EDIT+8
NONE DISPLAY+8
SELCTQ SELCT+5, SELCT+6, SELCT+23
SORTBRS DISPLAY+10
WAIT DISPLAY+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRX SORTBRS+5~
ARRX( SORTBRS+11*, SORTBRS+13, SORTBRS+14, SORTBRS+15
BT DISPRS~, DISPRS+1*, DISPRS+2, NONE~, NONE+1*, NONE+4
DIR SELCT+5~, SELCT+23!, WAIT~!
DIR("?" SELCT+8*, SELCT+9*, SELCT+10*, SELCT+11*, SELCT+12*, SELCT+13*, SELCT+14*, SELCT+15*, SELCT+16*
DIR("??" SELCT+17*
DIR("A" SELCT+18*, WAIT*
DIR("B" SELCT+18*
DIR(0 SELCT+23*, WAIT*
DIRUT SELCT+5~, SELCT+23, WAIT~
DTOUT SELCT+5~, WAIT~
DUOUT SELCT+5~, WAIT~
EVDT NONE~, NONE+1*, NONE+2, NONE+4
IB0 DISPLAY+2~, DISPLAY+4*, DISPLAY+6, DISPLAY+8, DISPLAY+10
IBAA SORTBRS+5~, SORTBRS+8*, SORTBRS+10, SORTBRS+11
IBACNT SORTBRS+5~, SORTBRS+13*, SORTBRS+15*, SORTBRS+17
IBBCT SORTBRS~, SORTBRS+5*, SORTBRS+10
IBBN NONE~, NONE+5
IBC DISPLAY+2~*, DISPLAY+4*, DISPLAY+5*, DISPLAY+8*, DISPQ
IBCHGARR EDIT+4~, EDIT+8, EDIT+10, EDIT+12, SELCT~, SELCT+5!
IBCHGARR( SELCT+27*
IBCHGARR(0 EDIT+10, EDIT+12
IBCHNG SELCT+5~*, SELCT+27*, SELCTQ
IBCNT DISPRS+1~, DISPRS+5*, DISPRS+6, DISPRS+7
IBCS SORTBRS+5~, SORTBRS+7*, SORTBRS+8, SORTBRS+9, SORTBRS+11
IBCSN SORTBRS+5~, SORTBRS+8*, SORTBRS+11, SORTBRS+14*, SORTBRS+15
IBCT SORTBRS+5~, SORTBRS+9*, SORTBRS+10, SORTBRS+11
IBI SELCT+5~, SELCT+26*
IBIFN EDIT~, EDIT+4, EDIT+6, EDIT+8, EDIT+10, EDIT+12, DISPLAY~, DISPLAY+4, DISPLAY+5, SELCT~
, SELCT+5, SELCT+17, SELCT+21, HELP~, HELP+1
IBLAST DISPRS+1~, DISPRS+6*
IBLN SORTBRS+5~, SORTBRS+15*, SORTBRS+16, DISPRS+1~, DISPRS+6*, DISPRS+7, SELCT+5~, SELCT+27*
IBRS SORTBRS+5~, SORTBRS+6*, SORTBRS+7, SORTBRS+8, SORTBRS+11
IBRSARR DISPLAY+2~, DISPLAY+6, DISPLAY+8, DISPLAY+10, SORTBRS~
IBRSARR( SORTBRS+6, SORTBRS+7, SORTBRS+8
IBRSN SORTBRS+5~, SORTBRS+8*, SORTBRS+11, SORTBRS+13*, SORTBRS+14, SORTBRS+15
IBRTN NONE+1~*, NONE+4
IBS SORTBRS+5~, SORTBRS+10*, SORTBRS+11, SELCT+5~, SELCT+26*, SELCT+27
IBSEL SELCT+5~, SELCT+26*
IBSRTARR EDIT+4~, EDIT+6, EDIT+8, DISPLAY~, DISPLAY+2!, DISPLAY+10, SORTBRS~, SORTBRS+5!, SORTBRS+17*, DISPRS~
, SELCT~, SELCT+8, SELCT+18, SELCT+23
IBSRTARR( SORTBRS+16*, DISPRS+5, DISPRS+6, SELCT+27
IBSRTARR(0 SELCT+6
IBTCNT SORTBRS+5~, SORTBRS+13*, SORTBRS+15*, SORTBRS+16, SORTBRS+17
IBU DISPLAY+2~, DISPLAY+5*, DISPLAY+6
IBUA SORTBRS+5~, SORTBRS+9*, SORTBRS+11
IBUCHGAR EDIT+4~, EDIT+12
IBX SELCT+5~, SELCT+25*, SELCT+26, HELP+1~*
IOF DISPRS+2
RT DISPRS~, DISPRS+1, NONE~, NONE+1
RTN DISPRS+1~*, DISPRS+2
U DISPLAY+6, DISPLAY+8, DISPLAY+10, SORTBRS+8, SORTBRS+9, SORTBRS+11, SORTBRS+17, DISPRS+1, DISPRS+6, DISPRS+7
, SELCT+8, SELCT+23, SELCT+27, NONE+1
X SELCT+5~, WAIT~
Y SELCT+5~, SELCT+23, WAIT~
Y( SELCT+25, SELCT+26
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All