Modify Proc_CalPaymentCost