IBCRED ;ALB/ARH - RATES: CM DELETE CHARGE ITEMS OPTION ; 22-MAY-1996
Source file <IBCRED.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENTER | ; OPTION ENTRY POINT: delete charge items for a specific charge set, may be inactive by a date or all
|
|
DELETE(CS,INDT,SAVE) | ; delete all charge items in a set inactive before a certain date
; Input: CS - set to delete charges from, ; INDT - charges not active on this date will be deleted, if ALL- all charges will be deleted from set ; SAVE - if true, charge items that would be deleted are entered into TMP array for printing instead ; Output: returns the count of the charge items deleted |
|
DELCI(CI,SUB2) | ; either save in TMP arry to print or delete
|
|
DATE(X) | ;
|
|
TMPHDR(CS,INDT) | ; set up array header for printed report
|
|
DEV | ; get device for printed report
|
|
RPT | ; print report - entry point for tasked jobs
|
|
CSDELETE(IBCS) | ; delete a Charge Set, including all pointers to it, also delete region if not assigned to another set
|
|
CSDELQ | ||
CSEMPTY(BR) | ; delete Charge Sets that have no associated Charges (except VA Cost)
; Input: BR may be passed to limit the check for empty Charge Sets to specific Billing Rates ; only CS's of the passed Billing Rate will be checked and deleted if it has no charges ; - pointer to the Billing Rate (363.3) to check ; - first two characters of the Billing Rate Name (363.3,.01) to check ; - if no BR passed then all Charge Sets/Billing Rates are checked ; Returns: count of Charge Sets deleted |
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |