IBCRHU2 ;ALB/ARH - RATES: UPLOAD UTILITIES (ADD CM ELEMENTS) ; 10-OCT-1998
Source file <IBCRHU2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RG(NAME,DIV,ID,TY) | ; add a new Billing Region for Reasonable Charges (363.31), input region name, MC division site #
; returns IFN of billing region (new or existing) ^ region name, null otherwise ; the part of the name before a dash is used to attempt a match with existing regions |
|
RGQ | ||
CS(NAME,RATE,EVENT,RG,CT,RV,BS) | ; add Charge Set for Reasonable Charges (363.1), all input in external form
; returns IFN of new charge set, 0 otherwise |
|
CSQ | ||
USECS(CSN) | ; return an existing CS for a set of RC charges, given the name to look for, or write an error message
|
|
MCCRUTL(X,P) | ; returns IFN of item in 399.1 if Name is found and piece P is true
|
|
RVCD(RVCD) | ; check for valid revenue code (#399.2), input either revenue code or revenue code IFN
; returns IFN if revenue code is valid and active, null otherwise |
|
DIV(DIV) | ; check for valid medical center division (#40.8), input facility/site number
; returns 'IFN ^ name ^ #' of division if it exists in Medical Center Division file (40.8), 0 otherwise |
|
MSG(X) | ; add message to end of message list, reserves IBA(1) for primary message
|
|
MSGP | ; print error messages in IBA
|
|
RS(CSN) | ; add new Reasonable Charges Charge Sets to Rate Schedules, input Charge Set Name
; finds the RS to add the CS to based on the effective/inactive dates of the RS and version being loaded ; for RC 1.x only adds physician to inpt if there was also inpatient facility charges ; Tort Feasor began using Reasonable Charges on 01/07/04 |
|
GETDIV(RGFN) | ; ask the user for the divisions for a Billing Region
|
|
RSBR(CSFN,AUTO,EFFDT) | ; add the charge set to any Rate Schedule that already has charge sets of this Billing Rate assigned
; CSFN - IFN of Charge Set to add, AUTO - 1 if charges should be auto added, EFFDT - effective date of charges ; will add the Charge Set to any Rate Schedule that already has a Set of same Billing Rate and is not inactive |
Name | Line Occurrences |
---|---|
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 |
^IBE(363.31 - [#363.31] | Classic Fileman Calls |