Routine: IBCRU1

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

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
EMUTL(X,LNG)	; returns external form of an MCCR Utility entry (399.1), full or abbrev.
MCCRUTL(N,P)	; returns IFN of MCCR Utility entry (399.1) if Name N is found and piece P is true
EXPAND(FILE,FIELD,VALUE)	; return expanded external form of a data element
DATE(X)	; date in external format
GETDT(DEFAULT,PROMPT,MIN,MAX)	; user select effective date (-1 if ^, 0 if none) DT1
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
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
GETBED(COL)	; ask and return billable bedsection (399.1): (-1 if ^, 0 if none) IFN^.01
GETCPT(COL,ALL)	; ask and return CPT (81): (-1 if ^, 0 if none) IFN^.01
GETNDC(COL)	; ask and return NDC #'s (363.21): (-1 if ^, 0 if none) IFN^.01
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
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)
GIQ

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

Customize PDF page

Package: Integrated Billing

Routine: IBCRU1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 39

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: