41: IS
42: BEGIN
43: if (p_msg_level >= G_MSG_LEVEL) then
44:
45: FND_LOG.STRING(p_msg_level, G_PKG_NAME, p_msg);
46: if FND_GLOBAL.Conc_Request_Id is not null then
47: fnd_file.put_line(FND_FILE.LOG, p_msg);
48: end if;
49:
50: end if;
51:
52: EXCEPTION
53: WHEN OTHERS THEN
54: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: ' || sqlerrm);
55: END;
56:
57:
58:
122: +-----------------------------------------------------------------------*/
123:
124: BEGIN
125:
126: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
127:
128: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
129: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID: ' || P_LOAN_ID);
130: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_DISBURSEMENT_DATE: ' || P_DISBURSEMENT_DATE);
124: BEGIN
125:
126: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
127:
128: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
129: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID: ' || P_LOAN_ID);
130: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_DISBURSEMENT_DATE: ' || P_DISBURSEMENT_DATE);
131: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_START_DATE: ' || P_ORIG_LOAN_START_DATE);
132: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_INT_START_DATE: ' || P_ORIG_INT_START_DATE);
125:
126: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
127:
128: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
129: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID: ' || P_LOAN_ID);
130: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_DISBURSEMENT_DATE: ' || P_DISBURSEMENT_DATE);
131: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_START_DATE: ' || P_ORIG_LOAN_START_DATE);
132: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_INT_START_DATE: ' || P_ORIG_INT_START_DATE);
133: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_PRIN_START_DATE: ' || P_ORIG_PRIN_START_DATE);
126: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
127:
128: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
129: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID: ' || P_LOAN_ID);
130: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_DISBURSEMENT_DATE: ' || P_DISBURSEMENT_DATE);
131: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_START_DATE: ' || P_ORIG_LOAN_START_DATE);
132: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_INT_START_DATE: ' || P_ORIG_INT_START_DATE);
133: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_PRIN_START_DATE: ' || P_ORIG_PRIN_START_DATE);
134: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_MATUR_DATE: ' || P_ORIG_LOAN_MATUR_DATE);
127:
128: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
129: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID: ' || P_LOAN_ID);
130: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_DISBURSEMENT_DATE: ' || P_DISBURSEMENT_DATE);
131: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_START_DATE: ' || P_ORIG_LOAN_START_DATE);
132: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_INT_START_DATE: ' || P_ORIG_INT_START_DATE);
133: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_PRIN_START_DATE: ' || P_ORIG_PRIN_START_DATE);
134: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_MATUR_DATE: ' || P_ORIG_LOAN_MATUR_DATE);
135: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_NEW_LOAN_START_DATE: ' || P_NEW_LOAN_START_DATE);
128: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
129: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID: ' || P_LOAN_ID);
130: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_DISBURSEMENT_DATE: ' || P_DISBURSEMENT_DATE);
131: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_START_DATE: ' || P_ORIG_LOAN_START_DATE);
132: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_INT_START_DATE: ' || P_ORIG_INT_START_DATE);
133: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_PRIN_START_DATE: ' || P_ORIG_PRIN_START_DATE);
134: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_MATUR_DATE: ' || P_ORIG_LOAN_MATUR_DATE);
135: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_NEW_LOAN_START_DATE: ' || P_NEW_LOAN_START_DATE);
136: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_NEW_LOAN_MATUR_DATE: ' || P_NEW_LOAN_MATUR_DATE);
129: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID: ' || P_LOAN_ID);
130: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_DISBURSEMENT_DATE: ' || P_DISBURSEMENT_DATE);
131: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_START_DATE: ' || P_ORIG_LOAN_START_DATE);
132: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_INT_START_DATE: ' || P_ORIG_INT_START_DATE);
133: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_PRIN_START_DATE: ' || P_ORIG_PRIN_START_DATE);
134: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_MATUR_DATE: ' || P_ORIG_LOAN_MATUR_DATE);
135: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_NEW_LOAN_START_DATE: ' || P_NEW_LOAN_START_DATE);
136: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_NEW_LOAN_MATUR_DATE: ' || P_NEW_LOAN_MATUR_DATE);
137:
130: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_DISBURSEMENT_DATE: ' || P_DISBURSEMENT_DATE);
131: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_START_DATE: ' || P_ORIG_LOAN_START_DATE);
132: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_INT_START_DATE: ' || P_ORIG_INT_START_DATE);
133: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_PRIN_START_DATE: ' || P_ORIG_PRIN_START_DATE);
134: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_MATUR_DATE: ' || P_ORIG_LOAN_MATUR_DATE);
135: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_NEW_LOAN_START_DATE: ' || P_NEW_LOAN_START_DATE);
136: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_NEW_LOAN_MATUR_DATE: ' || P_NEW_LOAN_MATUR_DATE);
137:
138: -- default new payment start dates
131: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_START_DATE: ' || P_ORIG_LOAN_START_DATE);
132: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_INT_START_DATE: ' || P_ORIG_INT_START_DATE);
133: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_PRIN_START_DATE: ' || P_ORIG_PRIN_START_DATE);
134: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_MATUR_DATE: ' || P_ORIG_LOAN_MATUR_DATE);
135: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_NEW_LOAN_START_DATE: ' || P_NEW_LOAN_START_DATE);
136: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_NEW_LOAN_MATUR_DATE: ' || P_NEW_LOAN_MATUR_DATE);
137:
138: -- default new payment start dates
139: X_NEW_INT_START_DATE := P_NEW_LOAN_START_DATE;
132: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_INT_START_DATE: ' || P_ORIG_INT_START_DATE);
133: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_PRIN_START_DATE: ' || P_ORIG_PRIN_START_DATE);
134: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_ORIG_LOAN_MATUR_DATE: ' || P_ORIG_LOAN_MATUR_DATE);
135: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_NEW_LOAN_START_DATE: ' || P_NEW_LOAN_START_DATE);
136: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_NEW_LOAN_MATUR_DATE: ' || P_NEW_LOAN_MATUR_DATE);
137:
138: -- default new payment start dates
139: X_NEW_INT_START_DATE := P_NEW_LOAN_START_DATE;
140: if P_ORIG_PRIN_START_DATE is not null then
142: end if;
143:
144: -- count the difference between the original loan start date and original interest payment start date
145: l_month_difference := floor(months_between(P_NEW_LOAN_START_DATE, P_ORIG_LOAN_START_DATE));
146: logMessage(FND_LOG.LEVEL_PROCEDURE, 'l_month_difference: ' || l_month_difference);
147:
148: X_NEW_INT_START_DATE := add_months(P_ORIG_INT_START_DATE, l_month_difference);
149: logMessage(FND_LOG.LEVEL_PROCEDURE, 'X_NEW_INT_START_DATE: ' || X_NEW_INT_START_DATE);
150:
145: l_month_difference := floor(months_between(P_NEW_LOAN_START_DATE, P_ORIG_LOAN_START_DATE));
146: logMessage(FND_LOG.LEVEL_PROCEDURE, 'l_month_difference: ' || l_month_difference);
147:
148: X_NEW_INT_START_DATE := add_months(P_ORIG_INT_START_DATE, l_month_difference);
149: logMessage(FND_LOG.LEVEL_PROCEDURE, 'X_NEW_INT_START_DATE: ' || X_NEW_INT_START_DATE);
150:
151: -- count the difference between the old start date and old principal first payment date (if its not null)
152: if P_ORIG_PRIN_START_DATE is not null then
153: X_NEW_PRIN_START_DATE := add_months(P_ORIG_PRIN_START_DATE, l_month_difference);
150:
151: -- count the difference between the old start date and old principal first payment date (if its not null)
152: if P_ORIG_PRIN_START_DATE is not null then
153: X_NEW_PRIN_START_DATE := add_months(P_ORIG_PRIN_START_DATE, l_month_difference);
154: logMessage(FND_LOG.LEVEL_PROCEDURE, 'X_NEW_PRIN_START_DATE: ' || X_NEW_PRIN_START_DATE);
155: end if;
156:
157: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
158:
153: X_NEW_PRIN_START_DATE := add_months(P_ORIG_PRIN_START_DATE, l_month_difference);
154: logMessage(FND_LOG.LEVEL_PROCEDURE, 'X_NEW_PRIN_START_DATE: ' || X_NEW_PRIN_START_DATE);
155: end if;
156:
157: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
158:
159: EXCEPTION
160: WHEN OTHERS THEN
161: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception');
157: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
158:
159: EXCEPTION
160: WHEN OTHERS THEN
161: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception');
162: END;
163:
164:
165:
235: where fee_id = p_fee_id;
236:
237: BEGIN
238:
239: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
240:
241: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
242: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID = ' || P_LOAN_ID);
243: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_FEE_ID = ' || P_FEE_ID);
237: BEGIN
238:
239: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
240:
241: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
242: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID = ' || P_LOAN_ID);
243: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_FEE_ID = ' || P_FEE_ID);
244: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_INSTALLMENT = ' || P_INSTALLMENT);
245:
238:
239: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
240:
241: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
242: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID = ' || P_LOAN_ID);
243: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_FEE_ID = ' || P_FEE_ID);
244: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_INSTALLMENT = ' || P_INSTALLMENT);
245:
246: if P_LOAN_ID is null then
239: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
240:
241: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
242: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID = ' || P_LOAN_ID);
243: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_FEE_ID = ' || P_FEE_ID);
244: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_INSTALLMENT = ' || P_INSTALLMENT);
245:
246: if P_LOAN_ID is null then
247: X_ERROR := 'P_LOAN_ID must be set';
240:
241: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
242: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_LOAN_ID = ' || P_LOAN_ID);
243: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_FEE_ID = ' || P_FEE_ID);
244: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_INSTALLMENT = ' || P_INSTALLMENT);
245:
246: if P_LOAN_ID is null then
247: X_ERROR := 'P_LOAN_ID must be set';
248: RAISE FND_API.G_EXC_ERROR;
270: ,l_number_grace_days
271: ,l_CUSTOM_PROCEDURE;
272: close c_fees;
273:
274: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Fee info:');
275: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_name = ' || l_fee_name);
276: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_FEE_DESCRIPTION = ' || l_FEE_DESCRIPTION);
277: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_category = ' || l_fee_category);
278: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_type = ' || l_fee_type);
271: ,l_CUSTOM_PROCEDURE;
272: close c_fees;
273:
274: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Fee info:');
275: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_name = ' || l_fee_name);
276: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_FEE_DESCRIPTION = ' || l_FEE_DESCRIPTION);
277: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_category = ' || l_fee_category);
278: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_type = ' || l_fee_type);
279: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee = ' || l_fee);
272: close c_fees;
273:
274: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Fee info:');
275: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_name = ' || l_fee_name);
276: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_FEE_DESCRIPTION = ' || l_FEE_DESCRIPTION);
277: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_category = ' || l_fee_category);
278: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_type = ' || l_fee_type);
279: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee = ' || l_fee);
280: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_basis = ' || l_fee_basis);
273:
274: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Fee info:');
275: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_name = ' || l_fee_name);
276: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_FEE_DESCRIPTION = ' || l_FEE_DESCRIPTION);
277: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_category = ' || l_fee_category);
278: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_type = ' || l_fee_type);
279: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee = ' || l_fee);
280: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_basis = ' || l_fee_basis);
281: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_rate_type = ' || l_rate_type);
274: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Fee info:');
275: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_name = ' || l_fee_name);
276: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_FEE_DESCRIPTION = ' || l_FEE_DESCRIPTION);
277: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_category = ' || l_fee_category);
278: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_type = ' || l_fee_type);
279: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee = ' || l_fee);
280: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_basis = ' || l_fee_basis);
281: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_rate_type = ' || l_rate_type);
282: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_billing_option = ' || l_billing_option);
275: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_name = ' || l_fee_name);
276: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_FEE_DESCRIPTION = ' || l_FEE_DESCRIPTION);
277: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_category = ' || l_fee_category);
278: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_type = ' || l_fee_type);
279: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee = ' || l_fee);
280: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_basis = ' || l_fee_basis);
281: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_rate_type = ' || l_rate_type);
282: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_billing_option = ' || l_billing_option);
283: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_number_grace_days = ' || l_number_grace_days);
276: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_FEE_DESCRIPTION = ' || l_FEE_DESCRIPTION);
277: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_category = ' || l_fee_category);
278: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_type = ' || l_fee_type);
279: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee = ' || l_fee);
280: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_basis = ' || l_fee_basis);
281: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_rate_type = ' || l_rate_type);
282: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_billing_option = ' || l_billing_option);
283: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_number_grace_days = ' || l_number_grace_days);
284: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CUSTOM_PROCEDURE = ' || l_CUSTOM_PROCEDURE);
277: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_category = ' || l_fee_category);
278: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_type = ' || l_fee_type);
279: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee = ' || l_fee);
280: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_basis = ' || l_fee_basis);
281: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_rate_type = ' || l_rate_type);
282: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_billing_option = ' || l_billing_option);
283: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_number_grace_days = ' || l_number_grace_days);
284: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CUSTOM_PROCEDURE = ' || l_CUSTOM_PROCEDURE);
285:
278: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_type = ' || l_fee_type);
279: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee = ' || l_fee);
280: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_basis = ' || l_fee_basis);
281: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_rate_type = ' || l_rate_type);
282: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_billing_option = ' || l_billing_option);
283: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_number_grace_days = ' || l_number_grace_days);
284: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CUSTOM_PROCEDURE = ' || l_CUSTOM_PROCEDURE);
285:
286: X_AMOUNT := 10*P_INSTALLMENT;
279: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee = ' || l_fee);
280: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_basis = ' || l_fee_basis);
281: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_rate_type = ' || l_rate_type);
282: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_billing_option = ' || l_billing_option);
283: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_number_grace_days = ' || l_number_grace_days);
284: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CUSTOM_PROCEDURE = ' || l_CUSTOM_PROCEDURE);
285:
286: X_AMOUNT := 10*P_INSTALLMENT;
287:
280: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_fee_basis = ' || l_fee_basis);
281: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_rate_type = ' || l_rate_type);
282: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_billing_option = ' || l_billing_option);
283: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_number_grace_days = ' || l_number_grace_days);
284: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CUSTOM_PROCEDURE = ' || l_CUSTOM_PROCEDURE);
285:
286: X_AMOUNT := 10*P_INSTALLMENT;
287:
288: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
284: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CUSTOM_PROCEDURE = ' || l_CUSTOM_PROCEDURE);
285:
286: X_AMOUNT := 10*P_INSTALLMENT;
287:
288: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
289:
290: EXCEPTION
291: WHEN OTHERS THEN
292: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception');
288: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
289:
290: EXCEPTION
291: WHEN OTHERS THEN
292: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception');
293: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'X_ERROR: ' || X_ERROR);
294: X_AMOUNT := 0;
295: return;
296: END;
289:
290: EXCEPTION
291: WHEN OTHERS THEN
292: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception');
293: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'X_ERROR: ' || X_ERROR);
294: X_AMOUNT := 0;
295: return;
296: END;
297:
299:
300:
301: BEGIN
302: G_LOG_ENABLED := 'N';
303: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
304:
305: /* getting msg logging info */
306: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
307: if (G_LOG_ENABLED = 'N') then
304:
305: /* getting msg logging info */
306: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
307: if (G_LOG_ENABLED = 'N') then
308: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
309: else
310: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
311: end if;
312:
306: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
307: if (G_LOG_ENABLED = 'N') then
308: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
309: else
310: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
311: end if;
312:
313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
309: else
310: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
311: end if;
312:
313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
315:
316: END;
310: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
311: end if;
312:
313: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
314: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
315:
316: END;