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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBCRU1

Package: Integrated Billing

Routine: IBCRU1


Information

IBCRU1 ;ALB/ARH - RATES: UTILITIES ; 22-MAY-1996

Source Information

Source file <IBCRU1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIC  Y^DIQ  ^DIR  
Integrated Billing 1 $$BIFILE^IBCRU2  

Caller Graph

Caller Graph Total: 39

Package Total Caller Graph
Integrated Billing 39 IBATEI  IBAUTL2  IBCRBC  IBCRBC2  IBCRBC3  IBCRBE  IBCRBEI  IBCRBH1  
IBCRBH2  IBCRED  IBCREE1  IBCREE2  IBCREQ  IBCRETP  IBCRHBA  IBCRHD  
IBCRHU1  IBCRLA1  IBCRLC  IBCRLI  IBCRLL  IBCRLM  IBCRLN  IBCRLR  
IBCRLS  IBCRLT  IBCROE  IBCROI  IBCROI1  IBCROIP  IBCRU2  IBCRU3  
IBCRU5  IBCRU7  IBCRU8  IBECEAU5  IBJDB21  IBOBL  IBTOSUM1  

Entry Points

Name Comments DBIA/ICR reference
GETDRG(COL,ALL) ; ask and return DRG (80.2): (-1 if ^, 0 if none) IFN^.01
; ALL: Default is 1 (disable screening)
GETMISC(COL,CS) ; ask and return MISCELLANEOUS item (363.21): (-1 if ^, 0 if none) IFN^.01
; if CS is passed in then only billing items with charges in that set are selectable
GETNDC(COL) ; ask and return NDC #'s (363.21): (-1 if ^, 0 if none) IFN^.01
GIQ
GETITEM(IBCSFN,COL,ALL) ; returns user selected item for a specific charge set:
; IFN ^ .01 ^ source file reference ^ source file (-1 if ^, 0 if none)
DATE(X) ; date in external format
GETBED(COL) ; ask and return billable bedsection (399.1): (-1 if ^, 0 if none) IFN^.01
GETBR(BI) ; ask and return a billing rate (363.3): (-1 if ^, 0 if none) IFN^.01
; if BI passed in then only allow selection of billing rates with that type of billable item
GETDT(DEFAULT,PROMPT,MIN,MAX) ; user select effective date (-1 if ^, 0 if none) DT1
MCCRUTL(N,P) ; returns IFN of MCCR Utility entry (399.1) if Name N is found and piece P is true
GETCS() ; ask and return a charge set (363.2): (-1 if ^, 0 if none) IFN^.01
GETSG(TYPE,BR) ; ask and return a special group (363.32): (-1 if ^, 0 if none) IFN^.01
; if TYPE is passed in then only groups of that type may be selected
; if BR is passed in then only groups assigned that billing rate may be selected
EXPAND(FILE,FIELD,VALUE) ; return expanded external form of a data element
EMUTL(X,LNG) ; returns external form of an MCCR Utility entry (399.1), full or abbrev.
GETCPT(COL,ALL) ; ask and return CPT (81): (-1 if ^, 0 if none) IFN^.01

External References

Name Field # of Occurrence
^DIC GETBR+4, GETCS+2, GETSG+6, GETBED+3, GETCPT+3, GETNDC+3, GETDRG+4, GETMISC+5
Y^DIQ EXPAND+2
^DIR GETDT+3
$$BIFILE^IBCRU2 GETITEM+8, GETITEM+9, GETITEM+10, GETITEM+11, GETITEM+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(363.1 - [#363.1] Classic Fileman Calls
^IBA(363.21 - [#363.21] Classic Fileman Calls
^IBE(363.3 - [#363.3] Classic Fileman Calls
^IBE(363.32 - [#363.32] Classic Fileman Calls
^DGCR(399.1 - [#399.1] Classic Fileman Calls
^ICD - [#80.2] Classic Fileman Calls
^ICPT - [#81] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( EXPAND+2
^DGCR(399.1 - [#399.1] EMUTL+1, MCCRUTL+2
^IBE(363.1 - [#363.1] GETITEM+5
^IBE(363.3 - [#363.3] GETITEM+6

Label References

Name Line Occurrences
$$DATE GETDT+1
$$GETBED GETITEM+8
$$GETCPT GETITEM+9
$$GETCS GETITEM+3
$$GETDRG GETITEM+11
$$GETMISC GETITEM+12
$$GETNDC GETITEM+10
GIQ GETITEM+3, GETITEM+8, GETITEM+9, GETITEM+10, GETITEM+11, GETITEM+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALL GETCPT~, GETCPT+2, GETDRG~, GETDRG+3, GETITEM~, GETITEM+2*, GETITEM+9, GETITEM+12
BI GETBR~, GETBR+3
BR GETSG~, GETSG+4, GETSG+5
C EXPAND+1~, EXPAND+2*
COL GETBED~, GETBED+2, GETCPT~, GETCPT+2, GETNDC~, GETNDC+2, GETDRG~, GETDRG+3, GETMISC~, GETMISC+3
, GETITEM~, GETITEM+2*, GETITEM+8, GETITEM+9, GETITEM+10, GETITEM+11, GETITEM+12
CS GETMISC~, GETMISC+4
DA GETBR+2~, GETCS+1~, GETSG+3~, GETBED+1~, GETCPT+1~, GETNDC+1~, GETDRG+2~, GETMISC+2~
DEFAULT GETDT~, GETDT+1
DIC GETBR+2~, GETBR+4*!, GETCS+1~, GETCS+2*!, GETSG+3~, GETSG+6*!, GETBED+1~, GETBED+3*!, GETCPT+1~, GETCPT+3*!
, GETNDC+1~, GETNDC+3*!, GETDRG+2~, GETDRG+4*!, GETMISC+2~, GETMISC+5*!
DIC("A" GETBED+2*, GETCPT+2*, GETNDC+2*, GETDRG+3*, GETMISC+3*
DIC("S" GETBR+3*, GETSG+4*, GETSG+5*, GETBED+3*, GETCPT+2*, GETNDC+3*, GETDRG+3*, GETMISC+4*
DIC(0 GETBR+4*, GETCS+2*, GETSG+6*, GETBED+3*, GETCPT+3*, GETNDC+3*, GETDRG+4*, GETMISC+5*
DIE GETBR+2~, GETCS+1~, GETSG+3~, GETBED+1~, GETCPT+1~, GETNDC+1~, GETDRG+2~, GETMISC+2~
DIR GETDT+1~, GETDT+3!
DIR("A" GETDT+2*
DIR("B" GETDT+1*
DIR(0 GETDT+3*
DIRUT GETDT+1~
DR GETBR+2~, GETCS+1~, GETSG+3~, GETBED+1~, GETCPT+1~, GETNDC+1~, GETDRG+2~, GETMISC+2~
DTOUT GETDT+1~, GETDT+4, GETBR+2~, GETBR+5, GETCS+1~, GETCS+3, GETSG+3~, GETSG+7, GETBED+1~, GETBED+4
, GETCPT+1~, GETCPT+4, GETNDC+1~, GETNDC+4, GETDRG+2~, GETDRG+5, GETMISC+2~, GETMISC+6
DUOUT GETDT+1~, GETDT+4, GETBR+2~, GETBR+5, GETCS+1~, GETCS+3, GETSG+3~, GETSG+7, GETBED+1~, GETBED+4
, GETCPT+1~, GETCPT+4, GETNDC+1~, GETNDC+4, GETDRG+2~, GETDRG+5, GETMISC+2~, GETMISC+6
FIELD EXPAND~, EXPAND+2
FILE EXPAND~, EXPAND+2
I MCCRUTL+1~, MCCRUTL+2*
IBBR0 GETITEM+2~, GETITEM+6*
IBBRBI GETITEM+2~, GETITEM+6*, GETITEM+8, GETITEM+9, GETITEM+10, GETITEM+11, GETITEM+12
IBBRFN GETITEM+2~, GETITEM+5*, GETITEM+6
IBCS0 GETITEM+2~, GETITEM+5*
IBCSFN GETITEM~, GETITEM+3*, GETITEM+5, GETITEM+12
IBITEM GETITEM+2~*, GETITEM+8*, GETITEM+9*, GETITEM+10*, GETITEM+11*, GETITEM+12*, GIQ
IBX GETDT+1~*, GETDT+3*, GETDT+4*, GETDT+5, GETBR+2~*, GETBR+5*, GETBR+6*, GETBR+7, GETCS+1~*, GETCS+3*
, GETCS+4*, GETCS+5, GETSG+3~*, GETSG+7*, GETSG+8*, GETSG+9, GETBED+1~*, GETBED+4*, GETBED+5*, GETBED+6
, GETCPT+1~*, GETCPT+4*, GETCPT+5*, GETCPT+6, GETNDC+1~*, GETNDC+4*, GETNDC+5*, GETNDC+6, GETDRG+2~*, GETDRG+5*
, GETDRG+6*, GETDRG+7, GETMISC+2~*, GETMISC+6*, GETMISC+7*, GETMISC+8
LNG EMUTL~, EMUTL+1*, EMUTL+2
MAX GETDT~, GETDT+3
MIN GETDT~, GETDT+3
N MCCRUTL~, MCCRUTL+2
P MCCRUTL~, MCCRUTL+2
PROMPT GETDT~, GETDT+2
TYPE GETSG~, GETSG+4
U EMUTL+2, MCCRUTL+2, GETITEM+5, GETITEM+6, GETITEM+8, GETITEM+9, GETITEM+10, GETITEM+11, GETITEM+12
VALUE EXPAND~, EXPAND+1
X EMUTL~, EMUTL+1*, EMUTL+2*, EMUTL+3, MCCRUTL+1~*, MCCRUTL+2*, MCCRUTL+3, DATE~, DATE+1, GETDT+1~
, GETBR+2~, GETCS+1~, GETSG+3~, GETBED+1~, GETCPT+1~, GETNDC+1~, GETDRG+2~, GETMISC+2~
Y MCCRUTL+1~, MCCRUTL+2*, EXPAND+1~*, EXPAND+2, EXPAND+3, DATE+1~*, DATE+2, GETDT+1~, GETDT+3, GETBR+2~
, GETBR+6, GETCS+1~, GETCS+4, GETSG+3~, GETSG+8, GETBED+1~, GETBED+5, GETCPT+1~, GETCPT+5, GETNDC+1~
, GETNDC+5, GETDRG+2~, GETDRG+6, GETMISC+2~, GETMISC+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All