Routine: IB20P580

Package	Total	Call Graph
Kernel	1	MES^XPDUTL
VA FileMan	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
POST	;
UPDTCI(IBEFFDT)	; Update Charge Items (363.2) needs Charge Sets, pass in the effective date of the 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(IBRVCD)	; returns IFN if revenue code is valid and active
MSG(IBA)	;
CIF	; 4 Charge Items (363.2): Bedsection ^ Charge Set ^Effective Date ^ Revenue Code ^ Charge
TORT	;; Cost Based (Tortiously Liable) for outpatient care
IA	;; Interagency for outpatient care

Name	Field # of Occurrence
^DIE	SETCI+14
MES^XPDUTL	MSG+1

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(363.2 - [#363.2]	SETCI+11
^IBE(363.1 - [#363.1]	SETCI+2

Name	Line Occurrences
$$MCCRUTL	SETCI+3
$$RVCD	SETCI+5
CIQ	UPDTCI+5
MSG	POST+2, POST+5, UPDTCI+3, UPDTCI+5, CIQ, CIQ+1, SETCI+2, SETCI+3, SETCI+13, SETCI+16
SETCI	UPDTCI+7
UPDTCI	POST+4

Name	Field # of Occurrence
DA	UPDTCI+1~, SETCI+14*!
DIE	UPDTCI+1~, SETCI+14*!
DR	UPDTCI+1~, SETCI+14*!
IBA	POST+1~, MSG~, MSG+1
IBC	UPDTCI+1~, MCCRUTL~, MCCRUTL+2
IBCHG	UPDTCI+1~, SETCI+6*, SETCI+13, SETCI+14
IBCI	UPDTCI+1~, SETCI+3*, SETCI+11
IBCNT	UPDTCI+1~, UPDTCI+4, CIQ, SETCI+15
IBCNT1	UPDTCI+1~, SETCI+9, SETCI+12, SETCI+16
IBCS	UPDTCI+1~, SETCI+2*, SETCI+7
IBDFLTDT	UPDTCI+1~, UPDTCI+4*, UPDTCI+5, SETCI+4
IBDT	UPDTCI+1~, SETCI+4*, SETCI+11
IBEFFDT	POST+1~, POST+3*, POST+4, UPDTCI~, UPDTCI+4
IBI	UPDTCI+1~, UPDTCI+7*
IBLN	UPDTCI+1~, UPDTCI+7*, SETCI+2, SETCI+3, SETCI+4, SETCI+5, SETCI+6, SETCI+13, SETCI+16
IBPE	UPDTCI+1~, MCCRUTL~, MCCRUTL+2
IBRVCD	UPDTCI+1~, SETCI+5*, SETCI+11, RVCD~, RVCD+2
IBX	UPDTCI+1~, SETCI+11, SETCI+14, MCCRUTL+1~, MCCRUTL+2, RVCD+1~, RVCD+2*
IBXRF	UPDTCI+1~, SETCI+7*, SETCI+11
IBY	MCCRUTL+1~, MCCRUTL+2, MCCRUTL+3, RVCD+1~, RVCD+2, RVCD+3
IBZ	UPDTCI+1~, SETCI+11*, SETCI+13
U	POST+1~*, SETCI+2, SETCI+3, SETCI+4, SETCI+5, SETCI+6, SETCI+11, SETCI+13, SETCI+16, MCCRUTL+2 , RVCD+2
X	UPDTCI+1~, SETCI+14!
Y	UPDTCI+1~, SETCI+14!

Name	Field # of Occurrence
$T(CIF+IBI	UPDTCI+7