Routine: IB20P800

Package	Total	Call Graph
Kernel	2	$$FMADD^XLFDT MES^XPDUTL
VA FileMan	2	FILE^DICN ^DIE

Entry Points

Name	Comments	DBIA/ICR reference
POST	; ; Backup 363.2 Charge Item File
ADDCI(IBEFFDT)	; pass in the effective date to add charge items with new charges
CIQ
SETCI	; set Charge Item (duplicates based on item, CS, eff dt, rev cd)
MCCRUTL(IBC,IBPE)	; returns IEN in 399.1 if Name is found and piece P is true
RVCD(RVCD)	; returns IFN if revenue code is valid and active
MSG(IBA)	;
GLBBKUP
CIF	; 68 Charge Items (363.2): Bedsection ^ Charge Set ^Effective Date ^ Revenue Code ^ Charge
TORT	;; Cost Based (Tortiously Liable) - All Inclusive
IA	;; Interagency

FileNo	Call Tags
^IBA(363.2 - [#363.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	MCCRUTL+2
^DGCR(399.2 - [#399.2]	RVCD+2
^IBA(	GLBBKUP+3
^IBA(363.2 - [#363.2]	SETCI+10
^IBE(363.1 - [#363.1]	SETCI+3
^XTMP("IB20P800"	GLBBKUP+2, GLBBKUP+3

Name	Line Occurrences
$$MCCRUTL	SETCI+4
$$RVCD	SETCI+6
ADDCI	POST+14
CIQ	ADDCI+4
GLBBKUP	POST+8
MSG	POST+12, POST+15, ADDCI+2, ADDCI+4, ADDCI+8, CIQ, CIQ+1, SETCI+3, SETCI+4, SETCI+11 , SETCI+15
SETCI	ADDCI+6

Name	Field # of Occurrence
DA	SETCI+2~, SETCI+19*
DD	SETCI+2~
DIC	SETCI+2~, SETCI+14*
DIC(0	SETCI+14*
DIE	SETCI+2~, SETCI+19*
DLAYGO	SETCI+2~, SETCI+14*
DO	SETCI+2~
DR	SETCI+2~, SETCI+18*
DT	GLBBKUP+2
>> IB800FILE	POST+3, POST+7, GLBBKUP+3
IB800FILES	POST+2~, POST+4*, POST+6, POST+7
IBA	POST+11~, MSG~, MSG+1
>> IBBKUPNDE	GLBBKUP+1*, GLBBKUP+2
IBC	MCCRUTL~, MCCRUTL+2
IBCHG	SETCI+2~, SETCI+7*, SETCI+11, SETCI+15, SETCI+18
IBCI	SETCI+2~, SETCI+4, SETCI+10, SETCI+11, SETCI+12, SETCI+14
IBCNT	POST+5, POST+6, POST+7, ADDCI+1~, ADDCI+3, CIQ, SETCI+16
IBCNT1	ADDCI+1~, ADDCI+3, ADDCI+8, SETCI+11
IBCS	SETCI+2~, SETCI+3*, SETCI+8, SETCI+18
IBDFLTDT	ADDCI+1~, ADDCI+3*, ADDCI+4, SETCI+5
IBDT	SETCI+2~, SETCI+5*, SETCI+10, SETCI+18
IBEFFDT	POST+11~, POST+13*, POST+14, ADDCI~, ADDCI+3
IBFN	SETCI+2~, SETCI+16*, SETCI+19
IBI	ADDCI+1~, ADDCI+6*
IBLN	ADDCI+1~, ADDCI+6*, SETCI+3, SETCI+4, SETCI+5, SETCI+6, SETCI+7, SETCI+11, SETCI+15
IBPE	SETCI+2~, MCCRUTL~, MCCRUTL+2
IBRVCD	SETCI+2~, SETCI+6*, SETCI+10, SETCI+18
IBX	SETCI+2~, SETCI+10, MCCRUTL+1~, MCCRUTL+2, RVCD+1~, RVCD+2*
IBXRF	SETCI+2~, SETCI+8*, SETCI+10
IBY	MCCRUTL+1~, MCCRUTL+2, MCCRUTL+3, RVCD+1~, RVCD+2, RVCD+3
IBZ	SETCI+2~, SETCI+10*, SETCI+11
RVCD	RVCD~, RVCD+2
U	POST+11~*, SETCI+3, SETCI+4, SETCI+5, SETCI+6, SETCI+7, SETCI+10, SETCI+11, SETCI+15, MCCRUTL+2 , RVCD+2
X	SETCI+2~, SETCI+14*
Y	SETCI+2~, SETCI+15, SETCI+16

Name	Field # of Occurrence
$T(CIF+IBI	ADDCI+6