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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIC  FILE^DICN  ^DIE  
Integrated Billing 1 ($$VERSDT,$$VERSEDT,$$VERSION)^IBCRHBRV  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IBCRHBC3  IBCRHBR5  IBCRHBR6  IBCRHBS6  

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

External References

Name Field # of Occurrence
^DIC RG+19, RS+36, RSBR+19
FILE^DICN RG+16, CS+18
^DIE CS+24, GETDIV+3
$$VERSDT^IBCRHBRV RS+10
$$VERSEDT^IBCRHBRV RS+10
$$VERSION^IBCRHBRV RS+10

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
Routine Call
  • DIC
  • Line Location:
    • RG+19
    • RS+36
    • RSBR+19
Routine Call
  • DIE
  • Line Location:
    • CS+24
    • GETDIV+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIV+3, DIV+4
^DGCR(399.1 - [#399.1] MCCRUTL+2
^DGCR(399.2 - [#399.2] RVCD+3
^IBE(363 - [#363] RS+28, RS+29, RS+34, RSBR+7, RSBR+11, RSBR+12, RSBR+13, RSBR+15, RSBR+20
^IBE(363.1 - [#363.1] CS+5, CS+16, USECS+2, RS+8, RS+9, RS+18, RSBR+6, RSBR+9, RSBR+16
^IBE(363.3 - [#363.3] CS+7, RS+9
^IBE(363.31 - [#363.31] RG+9, CS+9, GETDIV+1

Label References

Name Line Occurrences
$$DIV RG+12
$$MCCRUTL CS+8, CS+13
$$RVCD CS+12
CSQ CS+3, CS+5, CS+11
MSG RG+12, CS+7, CS+8, CS+10, CS+12, CS+13
MSGP RGQ, CSQ+2
RGQ RG+4, RG+10
RS CSQ

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUTO RSBR~, RSBR+18
BS CS~, CS+3*, CS+13
CSFN RSBR~, RSBR+5*, RSBR+6, RSBR+7, RSBR+9, RSBR+12
CSN USECS~, USECS+2, USECS+4, RS~, RS+6, RS+7, RS+8, RS+11, RS+14, RS+15
, RS+16, RS+17, RS+18, RS+21, RS+22, RS+23, RS+24, RS+36
CT CS~, CS+3*, CS+14
DA RG+3~, CS+2~, CS+24*!, RS+4~, GETDIV+1~, GETDIV+3*, RSBR+3~
DA(1 RG+19*, RS+36*, RSBR+19*
DD RG+3~, RG+16!, CS+2~, CS+18!, RS+4~, RSBR+3~
DIC RG+3~, RG+16*!, RG+19*!, CS+2~, CS+18*!, RS+4~, RS+36*!, GETDIV+1~, RSBR+3~, RSBR+19*!
DIC("DR" RG+14*, RG+15*, RS+35*, RSBR+18*
DIC("P" RG+19*, RS+36*, RSBR+19*
DIC(0 RG+16*, RG+19*, CS+18*, RS+36*, RSBR+19*
DIDEL GETDIV+1~, GETDIV+3*!
DIE RG+3~, RG+19!, CS+2~, CS+24*!, RS+4~, RS+36!, GETDIV+1~, GETDIV+3*!, RSBR+3~, RSBR+19!
DINUM CS+2~, CS+16*, CS+18!, RS+4~, RSBR+3~
DIV RG~, RG+3*, RG+12, DIV~, DIV+3*, DIV+4
DLAYGO RG+3~, RG+16*, RG+19*!, CS+2~, CS+18*!, RS+4~, RS+36*, GETDIV+1~, GETDIV+3*!, RSBR+3~*
DO RG+3~, RG+16!, CS+2~, CS+18!, RS+4~, RSBR+3~
DR RG+3~, CS+2~, CS+21*, CS+22*, CS+23*, CS+24!, RS+4~, GETDIV+1~, GETDIV+3*!, RSBR+3~
EFFDT RSBR~, RSBR+13
EVENT CS~, CS+3*, CS+8
IBA RG+3~, RGQ, CS+2~
IBA( MSG+2*, MSGP+1
IBA(1 RGQ*, CSQ+2*
IBA(999999 MSG+1
IBAUTO RS+4~, RS+9*, RS+35
IBBE CS+2~, CS+8*, CS+21
IBBR CS+2~, CS+7*, CS+21
IBBRFN RSBR+3~, RSBR+9*, RSBR+16
IBBS CS+2~, CS+13*, CS+23
IBCS USECS+1~*, USECS+2*, USECS+3, USECS+4, USECS+5
IBCS0 RSBR+3~, RSBR+9*
IBCSE RSBR+3~, RSBR+15*, RSBR+16
IBCSFN RS+4~, RS+8*, RS+9, RS+34
IBCSN CS+2~, CS+5*, CS+19*, CSQ, RSBR+3~, RSBR+9*, RSBR+19, RSBR+22
IBCT CS+2~, CS+14*, CS+21
IBDV RG+3~*, RG+12*, RG+19, RGQ
IBFN RG+3~*, RG+9*, RG+10*, RG+17*, RG+19, RGQ, RGQ+1, CS+2~, CS+5*, CS+16*
, CS+19*, CS+24, CSQ, CSQ+2, CSQ+3
IBFND CS+2~, CS+5*, CSQ+2, RS+4~, RS+10*, RS+28, RS+30*, RS+31*, RS+32*, RS+33*
, RS+34*, RSBR+3~, RSBR+11*, RSBR+15, RSBR+16*
IBI RS+4~, RS+11*, RS+27*
IBJ CS+2~, CS+16*
IBNEW RG+3~*, RG+10*, RG+17*, RGQ, RSBR+3~*, RSBR+16*, RSBR+22
IBOK CS+2~*, CS+7*, CS+8*, CS+10*, CS+11
IBRG CS+2~, CS+9*, CS+10, CS+21
IBRS RS+4~, RS+28*, RS+29, RS+34, RS+36, RSBR+3~, RSBR+11*, RSBR+12, RSBR+13, RSBR+15
, RSBR+19, RSBR+20
IBRS0 RS+4~, RS+29*, RS+30, RS+31, RS+32, RS+33
IBRSIA RSBR+3~, RSBR+13*
IBRSLST RS+4~, RS+14*, RS+15*, RS+16*, RS+17*, RS+18*, RS+21*, RS+22*, RS+23*, RS+24*
, RS+25, RS+27
IBRSN RS+4~, RS+27*, RS+28, RS+30, RS+31
IBRV CS+2~, CS+12*, CS+22
IBSITE RS+4~, RS+11*, RS+18
IBVBEG RS+4~, RS+10*, RS+32
IBVEND RS+4~, RS+10*, RS+33
IBVERS RS+4~, RS+10*, RS+13, RS+20
IBX RG+3~, RG+9*, RG+10, MCCRUTL+1~, MCCRUTL+2*, RVCD+2~, RVCD+3*, DIV+2~*, DIV+4*, DIV+5
, MSG+1~*, MSG+2, MSGP+1~*, GETDIV+1~*, GETDIV+2
IBY MCCRUTL+1~*, MCCRUTL+2*, MCCRUTL+3, RVCD+2~*, RVCD+3*, RVCD+4, DIV+2~, DIV+4*
ID RG~, RG+14
NAME RG~, RG+4, RG+5*, RG+6*, RG+7*, RG+9, RG+16, RGQ, CS~, CS+3*
, CS+5, CS+18, CSQ+2
P MCCRUTL~, MCCRUTL+2
RATE CS~, CS+3*, CS+7
RG CS~, CS+3*, CS+9, CS+10
RGFN GETDIV~, GETDIV+1, GETDIV+3
RV CS~, CS+3*, CS+12
RVCD RVCD~, RVCD+3
TY RG~, RG+15
U RG+10, RGQ, CS+19, MCCRUTL+2, RVCD+3, DIV+4, RS+9, RS+30, RS+31, RS+32
, RS+33, GETDIV+2, RSBR+9, RSBR+13, RSBR+20
X RG+3~, RG+16*!, RG+19*, CS+2~, CS+18*!, CS+24!, MCCRUTL~, MCCRUTL+2, MSG~, MSG+2
, RS+4~, RS+36*, GETDIV+1~, GETDIV+3!, RSBR+3~, RSBR+19*
Y RG+3~, RG+16!, RG+17, CS+2~, CS+18!, CS+19, CS+24!, RS+4~, GETDIV+1~, GETDIV+3!
, RSBR+3~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All