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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCRHU2

Package: Integrated Billing

Routine: IBCRHU2


Information

IBCRHU2 ;ALB/ARH - RATES: UPLOAD UTILITIES (ADD CM ELEMENTS) ; 10-OCT-1998

Source Information

Source file <IBCRHU2.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," *** Warning: No Charge Set found for these charges"
  • Line Location: USECS+3
Function Call: WRITE
  • Prompt: !," >> "_$E(CSN,1,30)_" Charge Set used"
  • Line Location: USECS+4
Function Call: WRITE
  • Prompt: !,IBA(IBX)
  • Line Location: MSGP+1
Function Call: WRITE
  • Prompt: !!,"Enter the Divisions associated with these charges: ",$P(IBX,U,1)
  • Line Location: GETDIV+2
Function Call: WRITE
  • Prompt: !," Charge Set added to Rate Schedule ",$P($G(^IBE(363,+IBRS,0)),U,1)
  • Line Location: RSBR+20
Function Call: WRITE
  • Prompt: !," *** Warning: ",IBCSN," not added to any Rate Schedule,",!," set manually using Enter/Edit Charge Master option."
  • Line Location: RSBR+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(363.1 - [#363.1] Classic Fileman Calls
^IBE(363.31 - [#363.31] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call