Routine: IBYPPM

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

Entry Points

Name	Comments	DBIA/ICR reference
POST	;
ADDCI(EFFDAT)	; Add 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(X,P)	; returns IFN of item in 399.1 if Name is found and piece P is true
RVCD(RVCD)	; returns IFN if revenue code is valid and active
MSG(X)	;
CIF	; Charge Items (363.2): Bedsection ^ Charge Set ^Effective Date ^ Revenue Code ^ Charge
TORT	;; 2005 Tortiously Liable All Inclusive
IA	;; 2005 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(363.2 - [#363.2]	SETCI+9
^IBE(363.1 - [#363.1]	SETCI+2

Name	Line Occurrences
$$MCCRUTL	SETCI+3
$$RVCD	SETCI+5
ADDCI	POST+4
CIQ	ADDCI+3
MSG	ADDCI+3, ADDCI+7, SETCI+2, SETCI+3, SETCI+10
SETCI	ADDCI+5

Name	Field # of Occurrence
DA	ADDCI+1~, SETCI+17*!
DD	ADDCI+1~, SETCI+13!
DIC	ADDCI+1~, SETCI+13*!
DIC(0	SETCI+13*
DIE	ADDCI+1~, SETCI+17*!
DLAYGO	ADDCI+1~, SETCI+13*
DO	ADDCI+1~, SETCI+13!
DR	ADDCI+1~, SETCI+16*, SETCI+17!
EFFDAT	ADDCI~, ADDCI+3
IBA	POST+1~, POST+2!, POST+6!, ADDCI+1~, CIQ!
IBA(	MSG+2*
IBA(1	POST+2, POST+6, CIQ*
IBA(2	POST+2, POST+6
IBA(3	POST+2, POST+6
IBA(999999	MSG+1
IBCHG	ADDCI+1~, SETCI+6*, SETCI+10, SETCI+16
IBCI	ADDCI+1~, SETCI+3, SETCI+9, SETCI+10, SETCI+11, SETCI+13
IBCNT	ADDCI+1~, CIQ, SETCI+14
IBCNT1	ADDCI+1~, ADDCI+7, SETCI+10
IBCS	ADDCI+1~, SETCI+2*, SETCI+7, SETCI+16
IBDFLTDT	ADDCI+1~, ADDCI+3*, SETCI+4
IBDT	ADDCI+1~, SETCI+4*, SETCI+9, SETCI+16
IBEFFDT	POST+1~, POST+3*, POST+4
IBFN	ADDCI+1~, SETCI+14*, SETCI+17
IBI	ADDCI+1~, ADDCI+5*
IBLN	ADDCI+1~, ADDCI+5*, SETCI+2, SETCI+3, SETCI+4, SETCI+5, SETCI+6, SETCI+10
IBRVCD	ADDCI+1~, SETCI+5*, SETCI+9, SETCI+16
IBX	ADDCI+1~, SETCI+9, MCCRUTL+1~, MCCRUTL+2, RVCD+1~, RVCD+2, MSG+1~, MSG+2
IBXRF	ADDCI+1~, SETCI+7*, SETCI+9
IBY	MCCRUTL+1~, MCCRUTL+2, MCCRUTL+3, RVCD+1~, RVCD+2, RVCD+3
IBZ	ADDCI+1~, SETCI+9*, SETCI+10
P	MCCRUTL~, MCCRUTL+2
RVCD	RVCD~, RVCD+2
U	SETCI+2, SETCI+3, SETCI+4, SETCI+5, SETCI+6, SETCI+9, SETCI+10, MCCRUTL+2, RVCD+2
X	ADDCI+1~, SETCI+13*!, SETCI+17!, MCCRUTL~, MCCRUTL+2, MSG~, MSG+2
Y	ADDCI+1~, SETCI+13!, SETCI+14, SETCI+17!

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