Routine: IBYPPL

Information

IBYPPL ;ALB/ARH - IB*2*307 POST INIT: CMAC 2005, INACTIVATE OLD CHARGES ; 06-JUN-2005

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

Name	Comments	DBIA/ICR reference
POST	;
CHGINA(BRATE,NEXT)	; inactivate charges for a particular Billing Rate ; For procedure charges of requested Billing Rate, inactivate all charges effective before the date passed in. ; - For each charge the inactive date used is one day before the procedures next charge effective date. ; - If no date is passed in then the last charge is left active. ; - If a date is passed in it is used as the default in case no 'next' date is found. ; BRATE - Billing Rate, any charges whose billing rate contain BRATE will be inactivated ; NEXT - if set, beginning effective date of charges that should not be inactivated
MCCRUTL(X,P)	; returns IFN of item in 399.1 if Name is found and piece P is true
MSG(X)	;

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

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	MCCRUTL+2
^IBA(363.2 - [#363.2]	CHGINA+20, CHGINA+21, CHGINA+23, CHGINA+24, CHGINA+29
^IBE(363.1 - [#363.1]	CHGINA+13, CHGINA+14
^IBE(363.3 - [#363.3]	CHGINA+15

Name	Line Occurrences
CHGINA	POST+3

Name	Field # of Occurrence
BRATE	CHGINA~, CHGINA+9, CHGINA+11, CHGINA+17
DA	CHGINA+9~, CHGINA+36*!
DD	CHGINA+9~
DIC	CHGINA+9~, CHGINA+36!
DIE	CHGINA+9~, CHGINA+36*!
DLAYGO	CHGINA+9~
DO	CHGINA+9~
DR	CHGINA+9~, CHGINA+36*!
IBA	POST+1~!, POST+5!, CHGINA+8~, CHGINA+11!, CHGINA+38!
IBA(	MSG+2*
IBA(1	POST+1, POST+5, CHGINA+11, CHGINA+38
IBA(2	POST+1, POST+5
IBA(3	POST+1, POST+5
IBA(999999	MSG+1
IBBR0	CHGINA+8~, CHGINA+15*, CHGINA+17
IBCI	CHGINA+8~, CHGINA+23*, CHGINA+24, CHGINA+36
IBCI0	CHGINA+8~, CHGINA+24*, CHGINA+25
IBCIEF	CHGINA+8~, CHGINA+25*, CHGINA+27, CHGINA+29
IBCIIA	CHGINA+8~, CHGINA+25*, CHGINA+32
IBCNT	CHGINA+9~, CHGINA+36, CHGINA+38
IBCS	CHGINA+8~, CHGINA+13*, CHGINA+14, CHGINA+19
IBCS0	CHGINA+8~, CHGINA+14*, CHGINA+15
IBI	CHGINA+8~
IBITM	CHGINA+8~, CHGINA+20*, CHGINA+21, CHGINA+23, CHGINA+29
IBNEF	CHGINA+8~, CHGINA+21*, CHGINA+23
IBNEWIA	CHGINA+8~, CHGINA+25, CHGINA+29, CHGINA+31, CHGINA+32, CHGINA+34*, CHGINA+36
IBX	CHGINA+8~, MCCRUTL+1~, MCCRUTL+2, MSG+1~, MSG+2
IBXRF	CHGINA+8~, CHGINA+19*, CHGINA+20, CHGINA+21, CHGINA+23, CHGINA+29
IBY	MCCRUTL+1~, MCCRUTL+2, MCCRUTL+3
NEXT	CHGINA~, CHGINA+9*, CHGINA+27, CHGINA+29
P	MCCRUTL~, MCCRUTL+2
U	CHGINA+15, CHGINA+17, CHGINA+25, MCCRUTL+2
X	CHGINA+9~, CHGINA+36!, MCCRUTL~, MCCRUTL+2, MSG~, MSG+2
Y	CHGINA+9~, CHGINA+36!