85:
86: EXCEPTION
87:
88: WHEN OTHERS then
89: FND_FILE.PUT_LINE(FND_FILE.LOG,
90: 'OZF_UTILITY_PVT.Convert_Currency(x_return_status,' ||
91: x_return_status);
92:
93: FND_FILE.PUT_LINE(FND_FILE.LOG,
89: FND_FILE.PUT_LINE(FND_FILE.LOG,
90: 'OZF_UTILITY_PVT.Convert_Currency(x_return_status,' ||
91: x_return_status);
92:
93: FND_FILE.PUT_LINE(FND_FILE.LOG,
94: 'Start exception block of GET_BATCH_CURRENCY_AMOUNT(p_UTILIZATION_ID number:-,' ||
95: p_UTILIZATION_ID || ' p_batch_currency VARCHAR2) ' ||
96: p_batch_currency || ' : x_to_amount :=' ||
97: x_to_amount || SQLERRM);
144:
145: EXCEPTION
146:
147: WHEN OTHERS then
148: FND_FILE.PUT_LINE(FND_FILE.LOG,
149: 'OZF_UTILITY_PVT.Convert_Currency(x_return_status,' ||
150: x_return_status);
151:
152: FND_FILE.PUT_LINE(FND_FILE.LOG,
148: FND_FILE.PUT_LINE(FND_FILE.LOG,
149: 'OZF_UTILITY_PVT.Convert_Currency(x_return_status,' ||
150: x_return_status);
151:
152: FND_FILE.PUT_LINE(FND_FILE.LOG,
153: 'Start exception block of CONV_DISC_TO_OFFER_CURR_AMOUNT(p_discount_val number:-,' ||
154: p_discount_val || ' p_offer_currency VARCHAR2) ' ||
155: p_offer_currency || ' : x_to_amount :=' ||
156: x_to_amount || SQLERRM);
268:
269: BEGIN
270: IF OZF_DEBUG_LOW_ON THEN
271:
272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_MAIN');
273: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
269: BEGIN
270: IF OZF_DEBUG_LOW_ON THEN
271:
272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_MAIN');
273: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
270: IF OZF_DEBUG_LOW_ON THEN
271:
272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_MAIN');
273: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
271:
272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_MAIN');
273: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
272: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_MAIN');
273: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
273: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
281: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
274: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
281: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
282: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
275: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
281: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
282: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
276: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
281: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
282: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
281: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
282: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
285: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
278: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
281: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
282: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
285: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
286: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
279: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
281: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
282: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
285: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
286: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
280: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
281: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
282: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
285: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
286: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
281: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
282: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
285: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
286: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
289: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
282: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
285: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
286: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
289: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
283: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
285: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
286: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
289: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
291: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
285: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
286: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
289: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
291: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
292: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
285: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
286: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
289: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
291: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
292: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
286: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
289: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
291: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
292: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
287: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
289: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
291: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
292: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
288: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
289: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
291: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
292: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
289: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
291: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
292: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
290: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
291: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
292: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
298: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
291: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
292: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
298: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
299: END IF;
292: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
298: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
299: END IF;
300: MO_GLOBAL.init('OZF');
293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
298: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
299: END IF;
300: MO_GLOBAL.init('OZF');
301:
294: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
295: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
298: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
299: END IF;
300: MO_GLOBAL.init('OZF');
301:
302: IF p_org_id IS NULL THEN
316: IF (l_org_id.COUNT > 0) THEN
317: FOR m IN l_org_id.FIRST .. l_org_id.LAST LOOP
318: BEGIN
319: IF OZF_DEBUG_LOW_ON THEN
320: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Fetch of Organization ids ---');
321: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_org_id ' || to_char(l_org_id(m)));
322: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Fetch of Organization ids ---');
323: END IF;
324:
317: FOR m IN l_org_id.FIRST .. l_org_id.LAST LOOP
318: BEGIN
319: IF OZF_DEBUG_LOW_ON THEN
320: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Fetch of Organization ids ---');
321: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_org_id ' || to_char(l_org_id(m)));
322: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Fetch of Organization ids ---');
323: END IF;
324:
325: MO_GLOBAL.set_policy_context('S', l_org_id(m));
318: BEGIN
319: IF OZF_DEBUG_LOW_ON THEN
320: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Fetch of Organization ids ---');
321: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_org_id ' || to_char(l_org_id(m)));
322: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Fetch of Organization ids ---');
323: END IF;
324:
325: MO_GLOBAL.set_policy_context('S', l_org_id(m));
326:
324:
325: MO_GLOBAL.set_policy_context('S', l_org_id(m));
326:
327: IF OZF_DEBUG_HIGH_ON THEN
328: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Processing for Operating Unit: ' ||
329: MO_GLOBAL.get_ou_name(l_org_id(m)));
330: END IF;
331:
332:
366: p_attribute15);
367: EXCEPTION
368: WHEN OTHERS THEN
369: IF OZF_DEBUG_HIGH_ON THEN
370: FND_FILE.PUT_LINE(FND_FILE.LOG,
371: 'Exception in CREATE_BATCH_MAIN : ' ||
372: SQLERRM);
373:
374: END IF;
372: SQLERRM);
373:
374: END IF;
375: --Code added for bug#6971836
376: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in CREATE_BATCH_MAIN : ' ||SQLERRM);
377:
378: errbuf := 'Error in CREATE_BATCH_MAIN ' || SQLERRM;
379: retcode := 2;
380: END;
494: org_id = c_org_id;
495:
496: BEGIN
497: IF OZF_DEBUG_LOW_ON THEN
498: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start create_batch_sub for org id : ' || p_org_id);
499: END IF;
500:
501: --Code added for bug#6867618
502: l_org_id := p_org_id;
514:
515: IF l_supplier_site_id IS NOT NULL THEN
516: --if site is an input parameter
517: IF OZF_DEBUG_LOW_ON THEN
518: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_site_id IS NOT NULL');
519: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Supplier Site =' || p_supplier_site_id);
520:
521: END IF;
522:
515: IF l_supplier_site_id IS NOT NULL THEN
516: --if site is an input parameter
517: IF OZF_DEBUG_LOW_ON THEN
518: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_site_id IS NOT NULL');
519: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Supplier Site =' || p_supplier_site_id);
520:
521: END IF;
522:
523: --Code added for output log supplier name
526: From ap_supplier_sites_all
527: Where vendor_site_id = l_supplier_site_id;
528:
529: --Code added for bug#6971836
530: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Supplier Name =' || l_supplier_name||'('||l_supplier_id||
531: ') Site Code '||l_sup_site_name||'('||l_supplier_site_id||')');
532:
533: OPEN trade_profile_values(p_supplier_site_id,l_org_id);
534: FETCH trade_profile_values
537:
538: g_currency := l_currency_code;
539:
540: IF OZF_DEBUG_LOW_ON THEN
541: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile Currency Code = ' ||
542: to_char(NVL(l_currency_code, 'Not Set')));
543:
544: END IF;
545:
543:
544: END IF;
545:
546: --Code added for bug#6971836
547: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Trade Profile Currency Code = ' ||
548: to_char(NVL(l_currency_code, 'Not Set.')));
549:
550: IF l_currency_code IS NULL then
551: --Code added for bug#6867618
558:
559: END IF;
560:
561: IF OZF_DEBUG_LOW_ON THEN
562: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Query Text ---');
563: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_query = ' || to_char(l_query));
564: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Query Text ---');
565: END IF;
566:
559: END IF;
560:
561: IF OZF_DEBUG_LOW_ON THEN
562: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Query Text ---');
563: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_query = ' || to_char(l_query));
564: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Query Text ---');
565: END IF;
566:
567: OPEN c_currency for l_query;
560:
561: IF OZF_DEBUG_LOW_ON THEN
562: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Query Text ---');
563: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_query = ' || to_char(l_query));
564: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Query Text ---');
565: END IF;
566:
567: OPEN c_currency for l_query;
568: LOOP
570:
571: EXIT WHEN c_currency%notfound;
572:
573: IF OZF_DEBUG_LOW_ON THEN
574: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Processing for Currency ---');
575: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_currency = ' || to_char(l_currency));
576: END IF;
577:
578: OPEN get_freq_and_date(l_supplier_site_id,l_org_id);
571: EXIT WHEN c_currency%notfound;
572:
573: IF OZF_DEBUG_LOW_ON THEN
574: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Processing for Currency ---');
575: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_currency = ' || to_char(l_currency));
576: END IF;
577:
578: OPEN get_freq_and_date(l_supplier_site_id,l_org_id);
579: FETCH get_freq_and_date
580: INTO l_freq, l_freq_unit, l_last_run_date;
581: CLOSE get_freq_and_date;
582:
583: IF OZF_DEBUG_LOW_ON THEN
584: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
585: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
586: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
587: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
588: END IF;
581: CLOSE get_freq_and_date;
582:
583: IF OZF_DEBUG_LOW_ON THEN
584: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
585: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
586: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
587: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
588: END IF;
589:
582:
583: IF OZF_DEBUG_LOW_ON THEN
584: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
585: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
586: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
587: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
588: END IF;
589:
590: IF l_freq_unit = 'DAYS' then
583: IF OZF_DEBUG_LOW_ON THEN
584: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
585: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
586: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
587: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
588: END IF;
589:
590: IF l_freq_unit = 'DAYS' then
591: l_last_run_date := l_last_run_date + l_freq;
599: FROM dual;
600: END IF;
601:
602: IF OZF_DEBUG_LOW_ON THEN
603: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_run_date :' || to_char(l_last_run_date));
604: END IF;
605:
606: IF sysdate >= nvl(l_last_run_date, trunc(sysdate)) THEN
607: IF OZF_DEBUG_HIGH_ON THEN
604: END IF;
605:
606: IF sysdate >= nvl(l_last_run_date, trunc(sysdate)) THEN
607: IF OZF_DEBUG_HIGH_ON THEN
608: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Frequency Threshold met');
609: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoking CREATE BATCH');
610: END IF;
611:
612: --Code added for Bug#6971836
605:
606: IF sysdate >= nvl(l_last_run_date, trunc(sysdate)) THEN
607: IF OZF_DEBUG_HIGH_ON THEN
608: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Frequency Threshold met');
609: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoking CREATE BATCH');
610: END IF;
611:
612: --Code added for Bug#6971836
613: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Frequency Threshold met.');
609: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoking CREATE BATCH');
610: END IF;
611:
612: --Code added for Bug#6971836
613: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Frequency Threshold met.');
614:
615: create_batch(l_empty_batch,
616: l_supplier_id,
617: l_supplier_site_id,
640: p_attribute14,
641: p_attribute15);
642:
643: ELSE
644: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Frequency Threshold not met');
645:
646: --Code added for Bug#6971836
647: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Frequency Threshold not met.');
648:
643: ELSE
644: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Frequency Threshold not met');
645:
646: --Code added for Bug#6971836
647: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Frequency Threshold not met.');
648:
649: END IF;
650:
651: END LOOP;
658: WHERE supplier_site_id = l_supplier_site_id;
659:
660: IF fnd_api.To_Boolean(p_commit) THEN
661: COMMIT;
662: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
663: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
664: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
665: END IF;
666:
659:
660: IF fnd_api.To_Boolean(p_commit) THEN
661: COMMIT;
662: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
663: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
664: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
665: END IF;
666:
667: ELSE
660: IF fnd_api.To_Boolean(p_commit) THEN
661: COMMIT;
662: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
663: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
664: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
665: END IF;
666:
667: ELSE
668: --if l_supplier_site is null
665: END IF;
666:
667: ELSE
668: --if l_supplier_site is null
669: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_site_id IS NULL');
670:
671: --Code added for bug#6971836
672: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Supplier Name =' || l_supplier_name||'('||l_supplier_id||
673: '), Supplier Site Not Provided. ');
668: --if l_supplier_site is null
669: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_site_id IS NULL');
670:
671: --Code added for bug#6971836
672: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Supplier Name =' || l_supplier_name||'('||l_supplier_id||
673: '), Supplier Site Not Provided. ');
674:
675: --if site is null then create a batch for each site
676:
675: --if site is null then create a batch for each site
676:
677: FOR site_rec IN get_sites(l_supplier_id,l_org_id) LOOP
678: IF OZF_DEBUG_HIGH_ON THEN
679: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Looping for Supplier Site ID = ' ||
680: site_rec.vendor_site_id);
681: END IF;
682:
683: --Code modified to get supplier site id
689: --Code added for bug#6867618
690: g_currency := l_currency_code;
691:
692: IF OZF_DEBUG_HIGH_ON THEN
693: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Currenty Code = ' ||l_currency_code);
694: END IF;
695:
696: --Code added for Bug#6971836
697: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Currenty Code = ' ||l_currency_code);
693: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Currenty Code = ' ||l_currency_code);
694: END IF;
695:
696: --Code added for Bug#6971836
697: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Currenty Code = ' ||l_currency_code);
698:
699: IF l_currency_code IS NULL then
700: --Code added for bug#6867618
701: l_query := 'SELECT distinct request_currency_code FROM OZF_SD_REQUEST_HEADERS_ALL_B ' ||
712: INTO l_currency;
713: EXIT WHEN c_currency%notfound;
714:
715: IF OZF_DEBUG_LOW_ON THEN
716: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Processing for Currency ---');
717: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_currency = ' || to_char(l_currency));
718: END IF;
719:
720: OPEN get_freq_and_date(site_rec.vendor_site_id,l_org_id);
713: EXIT WHEN c_currency%notfound;
714:
715: IF OZF_DEBUG_LOW_ON THEN
716: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Processing for Currency ---');
717: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_currency = ' || to_char(l_currency));
718: END IF;
719:
720: OPEN get_freq_and_date(site_rec.vendor_site_id,l_org_id);
721: FETCH get_freq_and_date
722: INTO l_freq, l_freq_unit, l_last_run_date;
723: CLOSE get_freq_and_date;
724:
725: IF OZF_DEBUG_LOW_ON THEN
726: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
727: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
728: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
729: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
730: END IF;
723: CLOSE get_freq_and_date;
724:
725: IF OZF_DEBUG_LOW_ON THEN
726: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
727: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
728: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
729: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
730: END IF;
731:
724:
725: IF OZF_DEBUG_LOW_ON THEN
726: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
727: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
728: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
729: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
730: END IF;
731:
732: IF l_freq_unit = 'DAYS' then
725: IF OZF_DEBUG_LOW_ON THEN
726: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
727: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
728: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
729: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
730: END IF;
731:
732: IF l_freq_unit = 'DAYS' then
733: l_last_run_date := l_last_run_date + l_freq;
740: INTO l_last_run_date
741: FROM dual;
742: END IF;
743:
744: FND_FILE.PUT_LINE(FND_FILE.LOG,'SuppSite Loop: l_last_run_date post calculation : ' || l_last_run_date);
745:
746: IF sysdate >= NVL(l_last_run_date, TRUNC(SYSDATE)) THEN
747:
748: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SuppSite Loop: Batch Create Freq Requirement Met');
744: FND_FILE.PUT_LINE(FND_FILE.LOG,'SuppSite Loop: l_last_run_date post calculation : ' || l_last_run_date);
745:
746: IF sysdate >= NVL(l_last_run_date, TRUNC(SYSDATE)) THEN
747:
748: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SuppSite Loop: Batch Create Freq Requirement Met');
749:
750: --Code added for Bug#6971836
751: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Create Freq Requirement Met.');
752:
747:
748: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SuppSite Loop: Batch Create Freq Requirement Met');
749:
750: --Code added for Bug#6971836
751: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Create Freq Requirement Met.');
752:
753: create_batch(l_empty_batch,
754: l_supplier_id,
755: site_rec.vendor_site_id,
778: p_attribute14,
779: p_attribute15);
780:
781: ELSE
782: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SuppSite Loop: Batch Create Freq Requirement not met ');
783:
784: --Code added for Bug#6971836
785: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Create Freq Requirement not met. ');
786:
781: ELSE
782: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SuppSite Loop: Batch Create Freq Requirement not met ');
783:
784: --Code added for Bug#6971836
785: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Create Freq Requirement not met. ');
786:
787: END IF;
788:
789: END LOOP;
793: WHERE supplier_site_id = l_supplier_site_id;
794:
795: IF fnd_api.To_Boolean(p_commit) THEN
796: COMMIT;
797: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
798: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
799: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
800: END IF;
801:
794:
795: IF fnd_api.To_Boolean(p_commit) THEN
796: COMMIT;
797: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
798: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
799: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
800: END IF;
801:
802: END LOOP; -- supplier site loop
795: IF fnd_api.To_Boolean(p_commit) THEN
796: COMMIT;
797: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
798: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
799: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
800: END IF;
801:
802: END LOOP; -- supplier site loop
803: END IF; -- end l_supplier site condition
901:
902: SAVEPOINT BATCHHEADER;
903:
904: IF OZF_DEBUG_LOW_ON THEN
905: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Start CREATE_BATCH ---');
906: END IF;
907:
908: CREATE_BATCH_HEADER(p_supplier_id,
909: p_supplier_site_id,
914: 'N',
915: l_batch_id);
916:
917: IF OZF_DEBUG_LOW_ON THEN
918: FND_FILE.PUT_LINE(FND_FILE.LOG,
919: 'Invoked CREATE_BATCH_HEADER Successfully. Batch_ID=' ||
920: to_char(l_batch_id));
921: END IF;
922:
920: to_char(l_batch_id));
921: END IF;
922:
923: --Code added for Bug#6971836
924: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch ' ||to_char(l_batch_id)||' created.');
925:
926: CREATE_BATCH_LINES(l_batch_id,
927: p_supplier_id,
928: p_supplier_site_id,
953: p_attribute14,
954: p_attribute15);
955:
956: IF OZF_DEBUG_HIGH_ON THEN
957: FND_FILE.PUT_LINE(FND_FILE.LOG,
958: 'Invoked CREATE_BATCH_LINES Successfully. l_empty_batch=' ||
959: to_char(l_empty_batch));
960: END IF;
961:
962:
963: IF NVL(l_empty_batch, 'Y') = 'N' THEN
964:
965: --Code added for Bug#6971836
966: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Lines created.');
967:
968: SELECT sum(batch_curr_claim_amount)
969: INTO l_batch_sum
970: FROM ozf_sd_batch_lines_all
972:
973: -- Check for Batch Amount Threshold
974:
975: IF OZF_DEBUG_LOW_ON THEN
976: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Check for Batch Amount Threshold ---');
977: FND_FILE.PUT_LINE(FND_FILE.LOG,
978: 'l_batch_threshold=' ||
979: to_char(l_batch_threshold) || ' :: l_batch_sum=' ||
980: to_char(l_batch_sum));
973: -- Check for Batch Amount Threshold
974:
975: IF OZF_DEBUG_LOW_ON THEN
976: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Check for Batch Amount Threshold ---');
977: FND_FILE.PUT_LINE(FND_FILE.LOG,
978: 'l_batch_threshold=' ||
979: to_char(l_batch_threshold) || ' :: l_batch_sum=' ||
980: to_char(l_batch_sum));
981:
984: IF NVL(l_batch_threshold, l_batch_sum - 1) > l_batch_sum
985: AND g_currency IS NOT NULL THEN
986:
987: IF OZF_DEBUG_HIGH_ON THEN
988: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Batch Amount Threshold Violated ---');
989: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch beign Rolledback. Batch_ID = ' ||
990: to_char(l_batch_id));
991: END IF;
992:
985: AND g_currency IS NOT NULL THEN
986:
987: IF OZF_DEBUG_HIGH_ON THEN
988: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Batch Amount Threshold Violated ---');
989: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch beign Rolledback. Batch_ID = ' ||
990: to_char(l_batch_id));
991: END IF;
992:
993: --Code added for Bug#6971836
990: to_char(l_batch_id));
991: END IF;
992:
993: --Code added for Bug#6971836
994: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Amount Threshold Violated, Batch rolled back.');
995:
996: ROLLBACK TO SAVEPOINT BATCHHEADER;
997: RETURN;
998: END IF;
1006:
1007: ELSE
1008:
1009: IF OZF_DEBUG_HIGH_ON THEN
1010: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch has no lines, Batch id being rolled back. Batch_ID = ' ||
1011: to_char(l_batch_id));
1012: END IF;
1013:
1014: --Code added for Bug#6971836
1011: to_char(l_batch_id));
1012: END IF;
1013:
1014: --Code added for Bug#6971836
1015: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch has no lines or Line threshold not met '||
1016: to_char(l_batch_id)||', Batch id being rolled back.' );
1017:
1018: ROLLBACK TO SAVEPOINT BATCHHEADER;
1019: RETURN;
1024:
1025: IF l_auto_claim = 'Y' then
1026:
1027: IF OZF_DEBUG_HIGH_ON THEN
1028: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AutoClaim Flag : True.');
1029: END IF;
1030:
1031: UPDATE ozf_sd_batch_headers_all
1032: SET status_code = 'APPROVED'
1034: COMMIT;
1035:
1036: IF l_batch_sum > 0 THEN
1037: IF OZF_DEBUG_HIGH_ON THEN
1038: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Sum > 0 : Invoking Claim API');
1039: END IF;
1040:
1041:
1042: OZF_CLAIM_ACCRUAL_PVT.Initiate_SD_Payment(1,
1050: l_claim_type,
1051: l_claim_id);
1052:
1053: IF OZF_DEBUG_HIGH_ON THEN
1054: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
1055: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
1056: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
1057: END IF;
1058:
1051: l_claim_id);
1052:
1053: IF OZF_DEBUG_HIGH_ON THEN
1054: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
1055: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
1056: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
1057: END IF;
1058:
1059: IF OZF_ERROR_ON THEN
1052:
1053: IF OZF_DEBUG_HIGH_ON THEN
1054: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
1055: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
1056: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
1057: END IF;
1058:
1059: IF OZF_ERROR_ON THEN
1060: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
1056: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
1057: END IF;
1058:
1059: IF OZF_ERROR_ON THEN
1060: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
1061: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
1062: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
1063: FOR I IN 1..l_claim_msg_count LOOP
1064: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API in Batch Create ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
1057: END IF;
1058:
1059: IF OZF_ERROR_ON THEN
1060: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
1061: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
1062: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
1063: FOR I IN 1..l_claim_msg_count LOOP
1064: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API in Batch Create ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
1065: END LOOP;
1058:
1059: IF OZF_ERROR_ON THEN
1060: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
1061: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
1062: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
1063: FOR I IN 1..l_claim_msg_count LOOP
1064: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API in Batch Create ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
1065: END LOOP;
1066: END IF;
1060: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
1061: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
1062: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
1063: FOR I IN 1..l_claim_msg_count LOOP
1064: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API in Batch Create ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
1065: END LOOP;
1066: END IF;
1067:
1068: IF l_claim_ret_status = FND_API.G_RET_STS_SUCCESS THEN
1067:
1068: IF l_claim_ret_status = FND_API.G_RET_STS_SUCCESS THEN
1069:
1070: --Code added for Bug#6971836
1071: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim created for batch.');
1072:
1073: UPDATE ozf_sd_batch_headers_all
1074: SET status_code = 'CLOSED',
1075: claim_id = l_claim_id,
1078: object_version_number = object_version_number + 1
1079: WHERE batch_id = l_batch_id;
1080: ELSE
1081: IF OZF_DEBUG_HIGH_ON THEN
1082: FND_FILE.PUT_LINE(FND_FILE.LOG,
1083: 'Claim process returned errors, could not update batch with ID :' || l_batch_id);
1084: END IF;
1085: --Code added for Bug#6971836
1086: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim process failed.');
1082: FND_FILE.PUT_LINE(FND_FILE.LOG,
1083: 'Claim process returned errors, could not update batch with ID :' || l_batch_id);
1084: END IF;
1085: --Code added for Bug#6971836
1086: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim process failed.');
1087: END IF;
1088:
1089: END IF; --BATCH_SUM > 0
1090:
1176: l_line_threshold := p_line_threshold;
1177: l_batch_currency := p_batch_currency;
1178:
1179: IF OZF_DEBUG_LOW_ON THEN
1180: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_HEADER');
1181: END IF;
1182:
1183: -- select contact and contact email from suppliers tables
1184: OPEN get_contact_details(l_supplier_site_id);
1186: INTO l_supplier_contact_id, l_supplier_contact_name, l_supplier_contact_email, l_supplier_contact_phone, l_supplier_contact_fax;
1187: CLOSE get_contact_details;
1188:
1189: IF OZF_DEBUG_LOW_ON THEN
1190: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_contact_id' || to_char(l_supplier_contact_id));
1191: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_contact_name' || l_supplier_contact_name);
1192: END IF;
1193:
1194: IF l_batch_new = 'N' THEN
1187: CLOSE get_contact_details;
1188:
1189: IF OZF_DEBUG_LOW_ON THEN
1190: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_contact_id' || to_char(l_supplier_contact_id));
1191: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_contact_name' || l_supplier_contact_name);
1192: END IF;
1193:
1194: IF l_batch_new = 'N' THEN
1195:
1203: x_msg_data => l_msg_data);
1204: l_custom_setup_id := l_clam_def_rec_type.custom_setup_id;
1205:
1206: IF OZF_DEBUG_LOW_ON THEN
1207: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_custom_setup_id' || to_char(l_custom_setup_id));
1208: END IF;
1209:
1210: OZF_CLAIM_PVT.Get_Claim_Number(l_split_claim_id,
1211: l_custom_setup_id,
1216:
1217: END IF;
1218:
1219: IF OZF_DEBUG_HIGH_ON THEN
1220: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Number = ' || to_char(l_claim_number));
1221: END IF;
1222:
1223: INSERT INTO ozf_sd_batch_headers_all
1224: (batch_id,
1697: l_lines_csr := DBMS_SQL.open_cursor;
1698: l_lines_sql := FND_DSQL.get_text(FALSE); -- Get SQL query built above
1699:
1700: IF OZF_DEBUG_LOW_ON THEN
1701: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Start Query Text ---');
1702: FND_FILE.PUT_LINE(FND_FILE.LOG,' l_lines_sql = ' || l_lines_sql);
1703: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
1704: END IF;
1705:
1698: l_lines_sql := FND_DSQL.get_text(FALSE); -- Get SQL query built above
1699:
1700: IF OZF_DEBUG_LOW_ON THEN
1701: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Start Query Text ---');
1702: FND_FILE.PUT_LINE(FND_FILE.LOG,' l_lines_sql = ' || l_lines_sql);
1703: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
1704: END IF;
1705:
1706: IF OZF_DEBUG_LOW_ON THEN
1699:
1700: IF OZF_DEBUG_LOW_ON THEN
1701: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Start Query Text ---');
1702: FND_FILE.PUT_LINE(FND_FILE.LOG,' l_lines_sql = ' || l_lines_sql);
1703: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
1704: END IF;
1705:
1706: IF OZF_DEBUG_LOW_ON THEN
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
1703: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
1704: END IF;
1705:
1706: IF OZF_DEBUG_LOW_ON THEN
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_batch_currency = ' || p_batch_currency || ' p_batch_id = ' || p_batch_id || ' p_supplier_site_id = ' || p_supplier_site_id || ' l_org_id = ' || l_org_id );
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_batch_currency = ' || l_batch_currency || ' p_request_id = ' || p_request_id || ' p_product_id = ' || p_product_id || ' p_fund_id = ' || p_fund_id );
1710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_start_date = ' || p_start_date || ' p_end_date = ' || p_end_date || ' l_period_start = ' || l_period_start || ' l_period_end = ' || l_period_end );
1711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute1 = ' || p_attribute1 || ' p_attribute2 = ' || p_attribute2 || ' p_attribute3 = ' || p_attribute3 || ' p_attribute4 = ' || p_attribute4 || ' p_attribute5 = ' || p_attribute5 );
1704: END IF;
1705:
1706: IF OZF_DEBUG_LOW_ON THEN
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_batch_currency = ' || p_batch_currency || ' p_batch_id = ' || p_batch_id || ' p_supplier_site_id = ' || p_supplier_site_id || ' l_org_id = ' || l_org_id );
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_batch_currency = ' || l_batch_currency || ' p_request_id = ' || p_request_id || ' p_product_id = ' || p_product_id || ' p_fund_id = ' || p_fund_id );
1710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_start_date = ' || p_start_date || ' p_end_date = ' || p_end_date || ' l_period_start = ' || l_period_start || ' l_period_end = ' || l_period_end );
1711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute1 = ' || p_attribute1 || ' p_attribute2 = ' || p_attribute2 || ' p_attribute3 = ' || p_attribute3 || ' p_attribute4 = ' || p_attribute4 || ' p_attribute5 = ' || p_attribute5 );
1712: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute6 = ' || p_attribute6 || ' p_attribute7 = ' || p_attribute7 || ' p_attribute8 = ' || p_attribute8 || ' p_attribute9 = ' || p_attribute9 || ' p_attribute10 = ' || p_attribute10 );
1705:
1706: IF OZF_DEBUG_LOW_ON THEN
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_batch_currency = ' || p_batch_currency || ' p_batch_id = ' || p_batch_id || ' p_supplier_site_id = ' || p_supplier_site_id || ' l_org_id = ' || l_org_id );
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_batch_currency = ' || l_batch_currency || ' p_request_id = ' || p_request_id || ' p_product_id = ' || p_product_id || ' p_fund_id = ' || p_fund_id );
1710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_start_date = ' || p_start_date || ' p_end_date = ' || p_end_date || ' l_period_start = ' || l_period_start || ' l_period_end = ' || l_period_end );
1711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute1 = ' || p_attribute1 || ' p_attribute2 = ' || p_attribute2 || ' p_attribute3 = ' || p_attribute3 || ' p_attribute4 = ' || p_attribute4 || ' p_attribute5 = ' || p_attribute5 );
1712: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute6 = ' || p_attribute6 || ' p_attribute7 = ' || p_attribute7 || ' p_attribute8 = ' || p_attribute8 || ' p_attribute9 = ' || p_attribute9 || ' p_attribute10 = ' || p_attribute10 );
1713: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute11 = ' || p_attribute11 || ' p_attribute12 = ' || p_attribute12 || ' p_attribute13 = ' || p_attribute13 || ' p_attribute14 = ' || p_attribute14 || ' p_attribute15 = ' || p_attribute15 );
1706: IF OZF_DEBUG_LOW_ON THEN
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_batch_currency = ' || p_batch_currency || ' p_batch_id = ' || p_batch_id || ' p_supplier_site_id = ' || p_supplier_site_id || ' l_org_id = ' || l_org_id );
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_batch_currency = ' || l_batch_currency || ' p_request_id = ' || p_request_id || ' p_product_id = ' || p_product_id || ' p_fund_id = ' || p_fund_id );
1710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_start_date = ' || p_start_date || ' p_end_date = ' || p_end_date || ' l_period_start = ' || l_period_start || ' l_period_end = ' || l_period_end );
1711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute1 = ' || p_attribute1 || ' p_attribute2 = ' || p_attribute2 || ' p_attribute3 = ' || p_attribute3 || ' p_attribute4 = ' || p_attribute4 || ' p_attribute5 = ' || p_attribute5 );
1712: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute6 = ' || p_attribute6 || ' p_attribute7 = ' || p_attribute7 || ' p_attribute8 = ' || p_attribute8 || ' p_attribute9 = ' || p_attribute9 || ' p_attribute10 = ' || p_attribute10 );
1713: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute11 = ' || p_attribute11 || ' p_attribute12 = ' || p_attribute12 || ' p_attribute13 = ' || p_attribute13 || ' p_attribute14 = ' || p_attribute14 || ' p_attribute15 = ' || p_attribute15 );
1714: END IF;
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_batch_currency = ' || p_batch_currency || ' p_batch_id = ' || p_batch_id || ' p_supplier_site_id = ' || p_supplier_site_id || ' l_org_id = ' || l_org_id );
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_batch_currency = ' || l_batch_currency || ' p_request_id = ' || p_request_id || ' p_product_id = ' || p_product_id || ' p_fund_id = ' || p_fund_id );
1710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_start_date = ' || p_start_date || ' p_end_date = ' || p_end_date || ' l_period_start = ' || l_period_start || ' l_period_end = ' || l_period_end );
1711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute1 = ' || p_attribute1 || ' p_attribute2 = ' || p_attribute2 || ' p_attribute3 = ' || p_attribute3 || ' p_attribute4 = ' || p_attribute4 || ' p_attribute5 = ' || p_attribute5 );
1712: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute6 = ' || p_attribute6 || ' p_attribute7 = ' || p_attribute7 || ' p_attribute8 = ' || p_attribute8 || ' p_attribute9 = ' || p_attribute9 || ' p_attribute10 = ' || p_attribute10 );
1713: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute11 = ' || p_attribute11 || ' p_attribute12 = ' || p_attribute12 || ' p_attribute13 = ' || p_attribute13 || ' p_attribute14 = ' || p_attribute14 || ' p_attribute15 = ' || p_attribute15 );
1714: END IF;
1715:
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_batch_currency = ' || p_batch_currency || ' p_batch_id = ' || p_batch_id || ' p_supplier_site_id = ' || p_supplier_site_id || ' l_org_id = ' || l_org_id );
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_batch_currency = ' || l_batch_currency || ' p_request_id = ' || p_request_id || ' p_product_id = ' || p_product_id || ' p_fund_id = ' || p_fund_id );
1710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_start_date = ' || p_start_date || ' p_end_date = ' || p_end_date || ' l_period_start = ' || l_period_start || ' l_period_end = ' || l_period_end );
1711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute1 = ' || p_attribute1 || ' p_attribute2 = ' || p_attribute2 || ' p_attribute3 = ' || p_attribute3 || ' p_attribute4 = ' || p_attribute4 || ' p_attribute5 = ' || p_attribute5 );
1712: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute6 = ' || p_attribute6 || ' p_attribute7 = ' || p_attribute7 || ' p_attribute8 = ' || p_attribute8 || ' p_attribute9 = ' || p_attribute9 || ' p_attribute10 = ' || p_attribute10 );
1713: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute11 = ' || p_attribute11 || ' p_attribute12 = ' || p_attribute12 || ' p_attribute13 = ' || p_attribute13 || ' p_attribute14 = ' || p_attribute14 || ' p_attribute15 = ' || p_attribute15 );
1714: END IF;
1715:
1716: IF OZF_DEBUG_LOW_ON THEN
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_batch_currency = ' || l_batch_currency || ' p_request_id = ' || p_request_id || ' p_product_id = ' || p_product_id || ' p_fund_id = ' || p_fund_id );
1710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_start_date = ' || p_start_date || ' p_end_date = ' || p_end_date || ' l_period_start = ' || l_period_start || ' l_period_end = ' || l_period_end );
1711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute1 = ' || p_attribute1 || ' p_attribute2 = ' || p_attribute2 || ' p_attribute3 = ' || p_attribute3 || ' p_attribute4 = ' || p_attribute4 || ' p_attribute5 = ' || p_attribute5 );
1712: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute6 = ' || p_attribute6 || ' p_attribute7 = ' || p_attribute7 || ' p_attribute8 = ' || p_attribute8 || ' p_attribute9 = ' || p_attribute9 || ' p_attribute10 = ' || p_attribute10 );
1713: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute11 = ' || p_attribute11 || ' p_attribute12 = ' || p_attribute12 || ' p_attribute13 = ' || p_attribute13 || ' p_attribute14 = ' || p_attribute14 || ' p_attribute15 = ' || p_attribute15 );
1714: END IF;
1715:
1716: IF OZF_DEBUG_LOW_ON THEN
1717: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
1713: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' p_attribute11 = ' || p_attribute11 || ' p_attribute12 = ' || p_attribute12 || ' p_attribute13 = ' || p_attribute13 || ' p_attribute14 = ' || p_attribute14 || ' p_attribute15 = ' || p_attribute15 );
1714: END IF;
1715:
1716: IF OZF_DEBUG_LOW_ON THEN
1717: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
1718: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_lines_sql = ' || l_lines_sql);
1719: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --End Query Text --');
1720: END IF;
1721:
1714: END IF;
1715:
1716: IF OZF_DEBUG_LOW_ON THEN
1717: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
1718: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_lines_sql = ' || l_lines_sql);
1719: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --End Query Text --');
1720: END IF;
1721:
1722: FND_DSQL.set_cursor(l_lines_csr);
1715:
1716: IF OZF_DEBUG_LOW_ON THEN
1717: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
1718: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_lines_sql = ' || l_lines_sql);
1719: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --End Query Text --');
1720: END IF;
1721:
1722: FND_DSQL.set_cursor(l_lines_csr);
1723: DBMS_SQL.parse(l_lines_csr, l_lines_sql, DBMS_SQL.native);
1768:
1769: LOOP
1770:
1771: IF OZF_DEBUG_LOW_ON THEN
1772: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DBMS_SQL.FETCH_ROWS loop - Before Fetch');
1773: END IF;
1774:
1775: EXIT WHEN DBMS_SQL.FETCH_ROWS(l_lines_csr) = 0;
1776:
1774:
1775: EXIT WHEN DBMS_SQL.FETCH_ROWS(l_lines_csr) = 0;
1776:
1777: IF OZF_DEBUG_HIGH_ON THEN
1778: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DBMS_SQL.FETCH_ROWS loop - After Fetch');
1779: END IF;
1780:
1781: DBMS_SQL.column_value(l_lines_csr, 1, l_batch_line_id);
1782: DBMS_SQL.column_value(l_lines_csr, 2, l_utilization_id);
1813: DBMS_SQL.column_value(l_lines_csr, 30, l_amount_remaining);
1814: DBMS_SQL.column_value(l_lines_csr, 31, l_inv_org_id);
1815:
1816: IF OZF_DEBUG_HIGH_ON THEN
1817: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Check for Line Amount Threshold ---');
1818: FND_FILE.PUT_LINE(FND_FILE.LOG,
1819: 'l_thresh_line_limit = ' ||
1820: to_char(l_thresh_line_limit) ||
1821: 'claim amount: = ' ||
1814: DBMS_SQL.column_value(l_lines_csr, 31, l_inv_org_id);
1815:
1816: IF OZF_DEBUG_HIGH_ON THEN
1817: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Check for Line Amount Threshold ---');
1818: FND_FILE.PUT_LINE(FND_FILE.LOG,
1819: 'l_thresh_line_limit = ' ||
1820: to_char(l_thresh_line_limit) ||
1821: 'claim amount: = ' ||
1822: to_char(l_batch_curr_claim_amount));
1827: g_currency IS NULL THEN
1828:
1829: p_empty_batch := 'N';
1830: IF OZF_DEBUG_LOW_ON THEN
1831: FND_FILE.PUT_LINE(FND_FILE.LOG,
1832: '--- Values fetched for Batch Line ---');
1833: FND_FILE.PUT_LINE(FND_FILE.LOG,
1834: 'values being fetched from SQL' ||
1835: to_char(l_batch_line_id) || '*' || -- line sequence.nextval
1829: p_empty_batch := 'N';
1830: IF OZF_DEBUG_LOW_ON THEN
1831: FND_FILE.PUT_LINE(FND_FILE.LOG,
1832: '--- Values fetched for Batch Line ---');
1833: FND_FILE.PUT_LINE(FND_FILE.LOG,
1834: 'values being fetched from SQL' ||
1835: to_char(l_batch_line_id) || '*' || -- line sequence.nextval
1836: to_char(1) || '*' || to_char(l_batch_id) || '*' ||
1837: to_char(l_batch_line_number) || '*' ||
1879: to_char(l_inv_org_id));
1880: END IF;
1881:
1882: IF OZF_DEBUG_LOW_ON THEN
1883: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserting INTO ozf_sd_batch_lines_all');
1884: END IF;
1885:
1886: INSERT INTO OZF_SD_BATCH_LINES_ALL
1887: (batch_line_id,
1993: l_inv_org_id,
1994: 'Y');
1995:
1996: IF OZF_DEBUG_LOW_ON THEN
1997: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserted INTO ozf_sd_batch_lines_all');
1998: END IF;
1999:
2000: l_batch_line_number := l_batch_line_number + 1;
2001: END IF;
2004: EXCEPTION
2005: WHEN OTHERS THEN
2006:
2007: IF OZF_DEBUG_HIGH_ON THEN
2008: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in CREATE_BATCH_LINES : ' || SQLERRM);
2009: END IF;
2010:
2011: RAISE FND_API.g_exc_error;
2012:
2033: l_batch_threshold := p_batch_threshold;
2034: l_batch_id := p_batch_id;
2035:
2036: IF OZF_DEBUG_LOW_ON THEN
2037: FND_FILE.PUT_LINE(FND_FILE.LOG,
2038: '--- Start of UPDATE_AMOUNTS ---');
2039: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id = ' || p_batch_id);
2040: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_threshold = ' || p_batch_threshold);
2041: END IF;
2035:
2036: IF OZF_DEBUG_LOW_ON THEN
2037: FND_FILE.PUT_LINE(FND_FILE.LOG,
2038: '--- Start of UPDATE_AMOUNTS ---');
2039: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id = ' || p_batch_id);
2040: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_threshold = ' || p_batch_threshold);
2041: END IF;
2042:
2043: UPDATE ozf_funds_utilized_all_b
2036: IF OZF_DEBUG_LOW_ON THEN
2037: FND_FILE.PUT_LINE(FND_FILE.LOG,
2038: '--- Start of UPDATE_AMOUNTS ---');
2039: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id = ' || p_batch_id);
2040: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_threshold = ' || p_batch_threshold);
2041: END IF;
2042:
2043: UPDATE ozf_funds_utilized_all_b
2044: SET amount_remaining = 0,
2054: WHERE batch_id = l_batch_id);
2055: EXCEPTION
2056: WHEN OTHERS THEN
2057: IF OZF_DEBUG_HIGH_ON THEN
2058: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in UPDATE_AMOUNTS:' || SQLERRM);
2059: END IF;
2060:
2061: RAISE FND_API.g_exc_error;
2062:
2103: l_return_status VARCHAR2(15) := NULL;
2104: BEGIN
2105:
2106: IF OZF_DEBUG_LOW_ON THEN
2107: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start INVOKE_BATCH_AUTO_CLAIM ---');
2108: END IF;
2109:
2110: l_sql := 'SELECT HDR.BATCH_ID, HDR.vendor_site_id, HDR.BATCH_SUBMISSION_DATE '
2111: || ' FROM ozf_sd_batch_headers_all HDR, ozf_sd_batch_lines_all BLN '
2142: INTO l_freq;
2143: CLOSE get_freq_and_date;
2144:
2145: IF OZF_DEBUG_LOW_ON THEN
2146: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch ID ' || to_char(l_batch_id));
2147: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Submission Date ' || to_char(l_batch_submission_date));
2148: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile Frequency = ' || to_char(l_freq));
2149: END IF;
2150:
2143: CLOSE get_freq_and_date;
2144:
2145: IF OZF_DEBUG_LOW_ON THEN
2146: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch ID ' || to_char(l_batch_id));
2147: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Submission Date ' || to_char(l_batch_submission_date));
2148: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile Frequency = ' || to_char(l_freq));
2149: END IF;
2150:
2151: l_batch_submission_date := l_batch_submission_date + l_freq;
2144:
2145: IF OZF_DEBUG_LOW_ON THEN
2146: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch ID ' || to_char(l_batch_id));
2147: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Submission Date ' || to_char(l_batch_submission_date));
2148: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile Frequency = ' || to_char(l_freq));
2149: END IF;
2150:
2151: l_batch_submission_date := l_batch_submission_date + l_freq;
2152:
2152:
2153: IF NVL(l_batch_submission_date, sysdate + 1) < sysdate THEN
2154:
2155: IF OZF_DEBUG_HIGH_ON THEN
2156: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoking Claim for Batch ID ' || to_char(l_batch_id));
2157: END IF;
2158:
2159: --Code added for Bug#6971836
2160: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Initiates claim for batch '||to_char(l_batch_id));
2156: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoking Claim for Batch ID ' || to_char(l_batch_id));
2157: END IF;
2158:
2159: --Code added for Bug#6971836
2160: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Initiates claim for batch '||to_char(l_batch_id));
2161:
2162: OZF_CLAIM_ACCRUAL_PVT.Initiate_SD_Payment(1,
2163: FND_API.g_false,
2164: FND_API.g_true,
2171: l_claim_id);
2172:
2173:
2174: IF OZF_DEBUG_HIGH_ON THEN
2175: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
2176: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
2177: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
2178: END IF;
2179:
2172:
2173:
2174: IF OZF_DEBUG_HIGH_ON THEN
2175: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
2176: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
2177: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
2178: END IF;
2179:
2180: IF OZF_ERROR_ON THEN
2173:
2174: IF OZF_DEBUG_HIGH_ON THEN
2175: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
2176: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
2177: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
2178: END IF;
2179:
2180: IF OZF_ERROR_ON THEN
2181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
2177: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
2178: END IF;
2179:
2180: IF OZF_ERROR_ON THEN
2181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
2182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
2183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
2184: FOR I IN 1..l_claim_msg_count LOOP
2185: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API while invoking batch for Auto Claim ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
2178: END IF;
2179:
2180: IF OZF_ERROR_ON THEN
2181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
2182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
2183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
2184: FOR I IN 1..l_claim_msg_count LOOP
2185: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API while invoking batch for Auto Claim ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
2186: END LOOP;
2179:
2180: IF OZF_ERROR_ON THEN
2181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
2182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
2183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
2184: FOR I IN 1..l_claim_msg_count LOOP
2185: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API while invoking batch for Auto Claim ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
2186: END LOOP;
2187: END IF;
2181: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
2182: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
2183: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
2184: FOR I IN 1..l_claim_msg_count LOOP
2185: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API while invoking batch for Auto Claim ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
2186: END LOOP;
2187: END IF;
2188:
2189: IF l_claim_ret_status = FND_API.G_RET_STS_SUCCESS THEN
2188:
2189: IF l_claim_ret_status = FND_API.G_RET_STS_SUCCESS THEN
2190:
2191: --Code added for Bug#6971836
2192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim created for batch.');
2193:
2194: UPDATE OZF_SD_BATCH_HEADERS_ALL
2195: SET status_code = 'CLOSED',
2196: claim_id = l_claim_id,
2210:
2211: END IF;
2212: ELSE
2213: --Code added for Bug#6971836
2214: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim process failed.');
2215: END IF;
2216:
2217: EXCEPTION
2218: WHEN OTHERS THEN
2216:
2217: EXCEPTION
2218: WHEN OTHERS THEN
2219: IF OZF_DEBUG_HIGH_ON THEN
2220: FND_FILE.PUT_LINE(FND_FILE.LOG,
2221: 'Exception occured in INVOKE_BATCH_AUTO_CLAIM :=' ||
2222: SQLERRM);
2223: errbuf := 'Exception occured in INVOKE_BATCH_AUTO_CLAIM ' ||
2224: SQLERRM;