IBCRBH1 ;ALB/ARH - RATES: BILL HELP DISPLAYS - CHARGES ; 10-OCT-1998
Source file <IBCRBH1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DISPCHG(IBIFN) | ; display a bills items and their charges, display only, does not change the charges on the bill
|
|
BILL(IBIFN,IBAA,IBRSARR) | ; given a bill number calculate charges using schedules that match the auto add flag
; if IBRSARR is defined it will be used to create charges rather than the standard set for the bills Rate Type ; Output: ^TMP($J,"IBCRCC" - same as would be calculated if the charges were being added to bill |
|
END | ||
SORTCI(IBIFN) | ; process charge array - create new array in sorted order with items combined, if possible
; if bs, rv cd, charge, cpt, div, item type, item ptr and component all match then charge is combined ; Input: TMP($J,"IBCRCC",X) = ... (from IBCRBC2) ; Output: TMP($J,"IBCRCSX",X) = ; RV CD ^ BS ^ CHG ^ UNITS ^ CPT ^ DIV ^ ITM TYPE ^ ITM PTR ^ CHRG CMPNT ^ CHRG SET ^ EVNT DT ^ ITM NAME ; TMP($J,"IBCRCSX",X,"CC",Y) = charge adjustment messages ; TMP($J,"IBCRCSXR",BS,RV CD,X) = "" ; TMP($J,"IBCRCSXN",DATE,ITEM NAME,X) = "" |
|
DSPCHRG(AA) | ; display charges
; Input: TMP($J,"IBCRCSx",...) = ... (from SORTCI) |
|
DSPHDR(AA) | ;
|
|
DSPLN(LN) | ;
|
|
DISPLNC(LN) | ; display charge adjustment commenmts
|
|
DATE(X) | ;
|
|
PAUSE(CNT) | ;
|
|
ITMNM(IBIFN,IBBS,IBIT,IBIP,IBCPT) | ; return external form of the item name
|
|
CPTNM(IBIFN,TYPE,ITEM) | ; retrurn external name of the charge item if it is a CPT item (type=399,42,.1)
|
|
NOTES(IBIFN,PAUSE) | ; compile and print charge notes for a bill
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|