86:
87: EXCEPTION
88:
89: WHEN OTHERS then
90: FND_FILE.PUT_LINE(FND_FILE.LOG,
91: 'OZF_UTILITY_PVT.Convert_Currency(x_return_status,' ||
92: x_return_status);
93:
94: FND_FILE.PUT_LINE(FND_FILE.LOG,
90: FND_FILE.PUT_LINE(FND_FILE.LOG,
91: 'OZF_UTILITY_PVT.Convert_Currency(x_return_status,' ||
92: x_return_status);
93:
94: FND_FILE.PUT_LINE(FND_FILE.LOG,
95: 'Start exception block of CONV_AMT_TO_OFFER_CURR_AMOUNT(p_amt_val number:-,' ||
96: p_amt_val || ' p_offer_currency VARCHAR2) ' ||
97: p_offer_currency || ' : x_to_amount :=' ||
98: x_to_amount || SQLERRM);
145:
146: EXCEPTION
147:
148: WHEN OTHERS then
149: FND_FILE.PUT_LINE(FND_FILE.LOG,
150: 'OZF_UTILITY_PVT.Convert_Currency(x_return_status,' ||
151: x_return_status);
152:
153: FND_FILE.PUT_LINE(FND_FILE.LOG,
149: FND_FILE.PUT_LINE(FND_FILE.LOG,
150: 'OZF_UTILITY_PVT.Convert_Currency(x_return_status,' ||
151: x_return_status);
152:
153: FND_FILE.PUT_LINE(FND_FILE.LOG,
154: 'Start exception block of GET_BATCH_CURRENCY_AMOUNT(p_acctd_amount :-,' ||
155: p_acctd_amount || ' p_batch_currency VARCHAR2) ' ||
156: p_batch_currency || ' : x_to_amount :=' ||
157: x_to_amount || SQLERRM);
204:
205: EXCEPTION
206:
207: WHEN OTHERS then
208: FND_FILE.PUT_LINE(FND_FILE.LOG,
209: 'OZF_UTILITY_PVT.Convert_Currency(x_return_status,' ||
210: x_return_status);
211:
212: FND_FILE.PUT_LINE(FND_FILE.LOG,
208: FND_FILE.PUT_LINE(FND_FILE.LOG,
209: 'OZF_UTILITY_PVT.Convert_Currency(x_return_status,' ||
210: x_return_status);
211:
212: FND_FILE.PUT_LINE(FND_FILE.LOG,
213: 'Start exception block of CONV_DISC_TO_OFFER_CURR_AMOUNT(p_discount_val number:-,' ||
214: p_discount_val || ' p_offer_currency VARCHAR2) ' ||
215: p_offer_currency || ' : x_to_amount :=' ||
216: x_to_amount || SQLERRM);
375:
376:
377: IF OZF_DEBUG_LOW_ON THEN
378:
379: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_MAIN');
380: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
381: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
382: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
383: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
376:
377: IF OZF_DEBUG_LOW_ON THEN
378:
379: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_MAIN');
380: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
381: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
382: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
383: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
384: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
377: IF OZF_DEBUG_LOW_ON THEN
378:
379: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_MAIN');
380: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
381: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
382: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
383: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
384: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
385: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
378:
379: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_MAIN');
380: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
381: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
382: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
383: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
384: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
385: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
386: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
379: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_MAIN');
380: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
381: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
382: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
383: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
384: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
385: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
386: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
387: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
380: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
381: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
382: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
383: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
384: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
385: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
386: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
387: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
388: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
381: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
382: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
383: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
384: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
385: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
386: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
387: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
388: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
382: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_id: ' || p_supplier_id);
383: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
384: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
385: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
386: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
387: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
388: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
383: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_supplier_site_id: ' || p_supplier_site_id);
384: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
385: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
386: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
387: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
388: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
384: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_product_id: ' || p_product_id);
385: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
386: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
387: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
388: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
392: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
385: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id: ' || p_request_id);
386: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
387: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
388: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
392: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
393: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
386: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_fund_id: ' || p_fund_id);
387: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
388: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
392: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
393: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
387: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_start_date: ' || p_start_date);
388: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
392: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
393: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
388: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_end_date: ' || p_end_date);
389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
392: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
393: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
396: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_period: ' || p_period);
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
392: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
393: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
396: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
397: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
390: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute1: ' || p_attribute1);
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
392: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
393: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
396: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
397: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
391: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute2: ' || p_attribute2);
392: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
393: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
396: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
397: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
399: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
392: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute3: ' || p_attribute3);
393: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
396: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
397: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
399: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
400: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
393: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute4: ' || p_attribute4);
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
396: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
397: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
399: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
400: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
394: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute5: ' || p_attribute5);
395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
396: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
397: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
399: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
400: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
402: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
395: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute6: ' || p_attribute6);
396: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
397: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
399: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
400: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
402: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
403: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
396: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute7: ' || p_attribute7);
397: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
399: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
400: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
402: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
403: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
404: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
397: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute8: ' || p_attribute8);
398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
399: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
400: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
402: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
403: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
404: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
405: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
398: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute9: ' || p_attribute9);
399: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
400: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
402: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
403: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
404: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
405: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
406: END IF;
399: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute10: ' || p_attribute10);
400: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
402: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
403: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
404: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
405: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
406: END IF;
407: MO_GLOBAL.init('OZF');
400: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute11: ' || p_attribute11);
401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
402: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
403: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
404: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
405: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
406: END IF;
407: MO_GLOBAL.init('OZF');
408:
401: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute12: ' || p_attribute12);
402: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute13: ' || p_attribute13);
403: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute14: ' || p_attribute14);
404: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_attribute15: ' || p_attribute15);
405: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
406: END IF;
407: MO_GLOBAL.init('OZF');
408:
409: IF p_org_id IS NULL THEN
423: IF (l_org_id.COUNT > 0) THEN
424: FOR m IN l_org_id.FIRST .. l_org_id.LAST LOOP
425: BEGIN
426: IF OZF_DEBUG_LOW_ON THEN
427: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Fetch of Organization ids ---');
428: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_org_id ' || to_char(l_org_id(m)));
429: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Fetch of Organization ids ---');
430: END IF;
431:
424: FOR m IN l_org_id.FIRST .. l_org_id.LAST LOOP
425: BEGIN
426: IF OZF_DEBUG_LOW_ON THEN
427: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Fetch of Organization ids ---');
428: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_org_id ' || to_char(l_org_id(m)));
429: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Fetch of Organization ids ---');
430: END IF;
431:
432: MO_GLOBAL.set_policy_context('S', l_org_id(m));
425: BEGIN
426: IF OZF_DEBUG_LOW_ON THEN
427: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Fetch of Organization ids ---');
428: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_org_id ' || to_char(l_org_id(m)));
429: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Fetch of Organization ids ---');
430: END IF;
431:
432: MO_GLOBAL.set_policy_context('S', l_org_id(m));
433:
444:
445: END IF;
446:
447: IF OZF_DEBUG_HIGH_ON THEN
448: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Processing for Operating Unit: ' ||
449: MO_GLOBAL.get_ou_name(l_org_id(m)));
450: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Profile option OZF: Supplier Ship and Debit on Indirect Sales value is: ' ||l_order_source_type );
451: END IF;
452:
446:
447: IF OZF_DEBUG_HIGH_ON THEN
448: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Processing for Operating Unit: ' ||
449: MO_GLOBAL.get_ou_name(l_org_id(m)));
450: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Profile option OZF: Supplier Ship and Debit on Indirect Sales value is: ' ||l_order_source_type );
451: END IF;
452:
453:
454: IF p_start_date IS NOT NULL THEN
491: EXCEPTION
492:
493: WHEN OTHERS THEN
494: IF OZF_DEBUG_HIGH_ON THEN
495: FND_FILE.PUT_LINE(FND_FILE.LOG,
496: 'Exception in CREATE_BATCH_MAIN : ' ||
497: SQLERRM);
498:
499: END IF;
497: SQLERRM);
498:
499: END IF;
500: --Code added for bug#6971836
501: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in CREATE_BATCH_MAIN : ' ||SQLERRM);
502:
503: errbuf := 'Error in CREATE_BATCH_MAIN ' || SQLERRM;
504: retcode := 2;
505: END;
628: org_id = c_org_id;
629:
630: BEGIN
631: IF OZF_DEBUG_LOW_ON THEN
632: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start create_batch_sub for org id : ' || p_org_id);
633: END IF;
634:
635: --Code added for bug#6867618
636: l_org_id := p_org_id;
648:
649: IF l_supplier_site_id IS NOT NULL THEN
650: --if site is an input parameter
651: IF OZF_DEBUG_LOW_ON THEN
652: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_site_id IS NOT NULL');
653: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Supplier Site =' || p_supplier_site_id);
654:
655: END IF;
656:
649: IF l_supplier_site_id IS NOT NULL THEN
650: --if site is an input parameter
651: IF OZF_DEBUG_LOW_ON THEN
652: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_site_id IS NOT NULL');
653: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Supplier Site =' || p_supplier_site_id);
654:
655: END IF;
656:
657: --Code added for output log supplier name
660: From ap_supplier_sites_all
661: Where vendor_site_id = l_supplier_site_id;
662:
663: --Code added for bug#6971836
664: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Supplier Name =' || l_supplier_name||'('||l_supplier_id||
665: ') Site Code '||l_sup_site_name||'('||l_supplier_site_id||')');
666:
667: OPEN trade_profile_values(p_supplier_site_id,l_org_id);
668: FETCH trade_profile_values
671:
672: g_currency := l_currency_code;
673:
674: IF OZF_DEBUG_LOW_ON THEN
675: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile Currency Code = ' ||
676: to_char(NVL(l_currency_code, 'Not Set')));
677:
678: END IF;
679:
677:
678: END IF;
679:
680: --Code added for bug#6971836
681: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Trade Profile Currency Code = ' ||
682: to_char(NVL(l_currency_code, 'Not Set.')));
683:
684: IF l_currency_code IS NULL then
685: --Code added for bug#6867618
692:
693: END IF;
694:
695: IF OZF_DEBUG_LOW_ON THEN
696: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Query Text ---');
697: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_query = ' || to_char(l_query));
698: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Query Text ---');
699: END IF;
700:
693: END IF;
694:
695: IF OZF_DEBUG_LOW_ON THEN
696: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Query Text ---');
697: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_query = ' || to_char(l_query));
698: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Query Text ---');
699: END IF;
700:
701: OPEN c_currency for l_query;
694:
695: IF OZF_DEBUG_LOW_ON THEN
696: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Query Text ---');
697: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_query = ' || to_char(l_query));
698: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Query Text ---');
699: END IF;
700:
701: OPEN c_currency for l_query;
702: LOOP
704:
705: EXIT WHEN c_currency%notfound;
706:
707: IF OZF_DEBUG_LOW_ON THEN
708: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Processing for Currency ---');
709: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_currency = ' || to_char(l_currency));
710: END IF;
711:
712: OPEN get_freq_and_date(l_supplier_site_id,l_org_id);
705: EXIT WHEN c_currency%notfound;
706:
707: IF OZF_DEBUG_LOW_ON THEN
708: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Processing for Currency ---');
709: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_currency = ' || to_char(l_currency));
710: END IF;
711:
712: OPEN get_freq_and_date(l_supplier_site_id,l_org_id);
713: FETCH get_freq_and_date
714: INTO l_freq, l_freq_unit, l_last_run_date;
715: CLOSE get_freq_and_date;
716:
717: IF OZF_DEBUG_LOW_ON THEN
718: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
719: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
720: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
721: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
722: END IF;
715: CLOSE get_freq_and_date;
716:
717: IF OZF_DEBUG_LOW_ON THEN
718: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
719: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
720: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
721: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
722: END IF;
723:
716:
717: IF OZF_DEBUG_LOW_ON THEN
718: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
719: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
720: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
721: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
722: END IF;
723:
724: IF l_freq_unit = 'DAYS' then
717: IF OZF_DEBUG_LOW_ON THEN
718: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
719: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
720: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
721: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
722: END IF;
723:
724: IF l_freq_unit = 'DAYS' then
725: l_last_run_date := l_last_run_date + l_freq;
733: FROM dual;
734: END IF;
735:
736: IF OZF_DEBUG_LOW_ON THEN
737: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_run_date :' || to_char(l_last_run_date));
738: END IF;
739:
740: IF sysdate >= nvl(l_last_run_date, trunc(sysdate)) THEN
741: IF OZF_DEBUG_HIGH_ON THEN
738: END IF;
739:
740: IF sysdate >= nvl(l_last_run_date, trunc(sysdate)) THEN
741: IF OZF_DEBUG_HIGH_ON THEN
742: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Frequency Threshold met');
743: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoking CREATE BATCH');
744: END IF;
745:
746: --Code added for Bug#6971836
739:
740: IF sysdate >= nvl(l_last_run_date, trunc(sysdate)) THEN
741: IF OZF_DEBUG_HIGH_ON THEN
742: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Frequency Threshold met');
743: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoking CREATE BATCH');
744: END IF;
745:
746: --Code added for Bug#6971836
747: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Frequency Threshold met.');
743: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoking CREATE BATCH');
744: END IF;
745:
746: --Code added for Bug#6971836
747: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Frequency Threshold met.');
748: FOR i in p_batch_types.FIRST .. p_batch_types.LAST LOOP
749:
750: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'VALUE OF i'||i);
751: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'VALUE OF batch type'|| p_batch_types(i));
746: --Code added for Bug#6971836
747: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Frequency Threshold met.');
748: FOR i in p_batch_types.FIRST .. p_batch_types.LAST LOOP
749:
750: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'VALUE OF i'||i);
751: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'VALUE OF batch type'|| p_batch_types(i));
752: create_batch(l_empty_batch,
753: l_supplier_id,
754: l_supplier_site_id,
747: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Frequency Threshold met.');
748: FOR i in p_batch_types.FIRST .. p_batch_types.LAST LOOP
749:
750: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'VALUE OF i'||i);
751: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'VALUE OF batch type'|| p_batch_types(i));
752: create_batch(l_empty_batch,
753: l_supplier_id,
754: l_supplier_site_id,
755: p_org_id,
780: p_batch_types(i));
781: END LOOP;
782:
783: ELSE
784: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Frequency Threshold not met');
785:
786: --Code added for Bug#6971836
787: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Frequency Threshold not met.');
788:
783: ELSE
784: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Frequency Threshold not met');
785:
786: --Code added for Bug#6971836
787: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Frequency Threshold not met.');
788:
789: END IF;
790:
791: END LOOP;
798: WHERE supplier_site_id = l_supplier_site_id;
799:
800: IF fnd_api.To_Boolean(p_commit) THEN
801: COMMIT;
802: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
803: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
804: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
805: END IF;
806:
799:
800: IF fnd_api.To_Boolean(p_commit) THEN
801: COMMIT;
802: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
803: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
804: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
805: END IF;
806:
807: ELSE
800: IF fnd_api.To_Boolean(p_commit) THEN
801: COMMIT;
802: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
803: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
804: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
805: END IF;
806:
807: ELSE
808: --if l_supplier_site is null
805: END IF;
806:
807: ELSE
808: --if l_supplier_site is null
809: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_site_id IS NULL');
810:
811: --Code added for bug#6971836
812: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Supplier Name =' || l_supplier_name||'('||l_supplier_id||
813: '), Supplier Site Not Provided. ');
808: --if l_supplier_site is null
809: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_site_id IS NULL');
810:
811: --Code added for bug#6971836
812: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Supplier Name =' || l_supplier_name||'('||l_supplier_id||
813: '), Supplier Site Not Provided. ');
814:
815: --if site is null then create a batch for each site
816:
815: --if site is null then create a batch for each site
816:
817: FOR site_rec IN get_sites(l_supplier_id,l_org_id) LOOP
818: IF OZF_DEBUG_HIGH_ON THEN
819: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Looping for Supplier Site ID = ' ||
820: site_rec.vendor_site_id);
821: END IF;
822:
823: --Code modified to get supplier site id
829: --Code added for bug#6867618
830: g_currency := l_currency_code;
831:
832: IF OZF_DEBUG_HIGH_ON THEN
833: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Currenty Code = ' ||l_currency_code);
834: END IF;
835:
836: --Code added for Bug#6971836
837: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Currenty Code = ' ||l_currency_code);
833: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Currenty Code = ' ||l_currency_code);
834: END IF;
835:
836: --Code added for Bug#6971836
837: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Currenty Code = ' ||l_currency_code);
838:
839: IF l_currency_code IS NULL then
840: --Code added for bug#6867618
841: l_query := 'SELECT distinct request_currency_code FROM OZF_SD_REQUEST_HEADERS_ALL_B ' ||
852: INTO l_currency;
853: EXIT WHEN c_currency%notfound;
854:
855: IF OZF_DEBUG_LOW_ON THEN
856: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Processing for Currency ---');
857: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_currency = ' || to_char(l_currency));
858: END IF;
859:
860: OPEN get_freq_and_date(site_rec.vendor_site_id,l_org_id);
853: EXIT WHEN c_currency%notfound;
854:
855: IF OZF_DEBUG_LOW_ON THEN
856: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Processing for Currency ---');
857: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_currency = ' || to_char(l_currency));
858: END IF;
859:
860: OPEN get_freq_and_date(site_rec.vendor_site_id,l_org_id);
861: FETCH get_freq_and_date
862: INTO l_freq, l_freq_unit, l_last_run_date;
863: CLOSE get_freq_and_date;
864:
865: IF OZF_DEBUG_LOW_ON THEN
866: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
867: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
868: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
869: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
870: END IF;
863: CLOSE get_freq_and_date;
864:
865: IF OZF_DEBUG_LOW_ON THEN
866: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
867: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
868: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
869: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
870: END IF;
871:
864:
865: IF OZF_DEBUG_LOW_ON THEN
866: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
867: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
868: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
869: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
870: END IF;
871:
872: IF l_freq_unit = 'DAYS' then
865: IF OZF_DEBUG_LOW_ON THEN
866: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Trade Profile Frequency ---');
867: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq = ' || l_freq);
868: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_freq_unit = ' || l_freq_unit);
869: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_last_paid_date = ' || l_last_run_date);
870: END IF;
871:
872: IF l_freq_unit = 'DAYS' then
873: l_last_run_date := l_last_run_date + l_freq;
880: INTO l_last_run_date
881: FROM dual;
882: END IF;
883:
884: FND_FILE.PUT_LINE(FND_FILE.LOG,'SuppSite Loop: l_last_run_date post calculation : ' || l_last_run_date);
885:
886: IF sysdate >= NVL(l_last_run_date, TRUNC(SYSDATE)) THEN
887:
888: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SuppSite Loop: Batch Create Freq Requirement Met');
884: FND_FILE.PUT_LINE(FND_FILE.LOG,'SuppSite Loop: l_last_run_date post calculation : ' || l_last_run_date);
885:
886: IF sysdate >= NVL(l_last_run_date, TRUNC(SYSDATE)) THEN
887:
888: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SuppSite Loop: Batch Create Freq Requirement Met');
889:
890: --Code added for Bug#6971836
891: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Create Freq Requirement Met.');
892: -- parameters start date, end date, fund_id and period changed for bug 13789136
887:
888: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SuppSite Loop: Batch Create Freq Requirement Met');
889:
890: --Code added for Bug#6971836
891: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Create Freq Requirement Met.');
892: -- parameters start date, end date, fund_id and period changed for bug 13789136
893: FOR i in p_batch_types.FIRST .. p_batch_types.LAST LOOP
894:
895: create_batch(l_empty_batch,
923: p_batch_types(i));
924: END LOOP;
925:
926: ELSE
927: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SuppSite Loop: Batch Create Freq Requirement not met ');
928:
929: --Code added for Bug#6971836
930: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Create Freq Requirement not met. ');
931:
926: ELSE
927: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SuppSite Loop: Batch Create Freq Requirement not met ');
928:
929: --Code added for Bug#6971836
930: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Create Freq Requirement not met. ');
931:
932: END IF;
933:
934: END LOOP;
938: WHERE supplier_site_id = l_supplier_site_id;
939:
940: IF fnd_api.To_Boolean(p_commit) THEN
941: COMMIT;
942: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
943: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
944: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
945: END IF;
946:
939:
940: IF fnd_api.To_Boolean(p_commit) THEN
941: COMMIT;
942: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
943: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
944: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
945: END IF;
946:
947: END LOOP; -- supplier site loop
940: IF fnd_api.To_Boolean(p_commit) THEN
941: COMMIT;
942: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Transaction is commited');
943: FND_FILE.PUT_LINE(FND_FILE.LOG, ' supplier_site_id= ' || l_supplier_site_id);
944: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_currency= ' || l_currency);
945: END IF;
946:
947: END LOOP; -- supplier site loop
948: END IF; -- end l_supplier site condition
1066:
1067: SAVEPOINT BATCHHEADER;
1068:
1069: IF OZF_DEBUG_LOW_ON THEN
1070: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Start CREATE_BATCH ---');
1071: END IF;
1072:
1073: CREATE_BATCH_HEADER(p_supplier_id,
1074: p_supplier_site_id,
1085: p_batch_type,
1086: p_owner);
1087:
1088: IF OZF_DEBUG_LOW_ON THEN
1089: FND_FILE.PUT_LINE(FND_FILE.LOG,
1090: 'Invoked CREATE_BATCH_HEADER Successfully. Batch_ID=' ||
1091: to_char(l_batch_id));
1092: END IF;
1093:
1091: to_char(l_batch_id));
1092: END IF;
1093:
1094: --Code added for Bug#6971836
1095: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch ' ||to_char(l_batch_id)||' created.');
1096:
1097: IF (p_batch_type='OM') THEN
1098: CREATE_OM_BATCH_LINES(l_batch_id,
1099: p_supplier_id,
1126: p_attribute15,
1127: p_batch_type);
1128:
1129: IF OZF_DEBUG_HIGH_ON THEN
1130: FND_FILE.PUT_LINE(FND_FILE.LOG,
1131: 'Invoked CREATE_OM_BATCH_LINES Successfully. l_empty_batch=' ||
1132: to_char(l_empty_batch));
1133: END IF;
1134: ELSE IF(p_batch_type='IDSM') THEN
1163: p_attribute15,
1164: p_batch_type);
1165:
1166: IF OZF_DEBUG_HIGH_ON THEN
1167: FND_FILE.PUT_LINE(FND_FILE.LOG,
1168: 'Invoked CREATE_IDSM_BATCH_LINES Successfully. l_empty_batch=' ||
1169: to_char(l_empty_batch));
1170: END IF;
1171: END IF;
1178:
1179: IF NVL(l_empty_batch, 'Y') = 'N' THEN
1180:
1181: --Code added for Bug#6971836
1182: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Lines created.');
1183:
1184: SELECT sum(batch_curr_claim_amount)
1185: INTO l_batch_sum
1186: FROM ozf_sd_batch_lines_all
1188:
1189: -- Check for Batch Amount Threshold
1190:
1191: IF OZF_DEBUG_LOW_ON THEN
1192: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Check for Batch Amount Threshold ---');
1193: FND_FILE.PUT_LINE(FND_FILE.LOG,
1194: 'l_batch_threshold=' ||
1195: to_char(l_batch_threshold) || ' :: l_batch_sum=' ||
1196: to_char(l_batch_sum));
1189: -- Check for Batch Amount Threshold
1190:
1191: IF OZF_DEBUG_LOW_ON THEN
1192: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Check for Batch Amount Threshold ---');
1193: FND_FILE.PUT_LINE(FND_FILE.LOG,
1194: 'l_batch_threshold=' ||
1195: to_char(l_batch_threshold) || ' :: l_batch_sum=' ||
1196: to_char(l_batch_sum));
1197:
1200: IF NVL(l_batch_threshold, l_batch_sum - 1) > l_batch_sum
1201: AND g_currency IS NOT NULL THEN
1202:
1203: IF OZF_DEBUG_HIGH_ON THEN
1204: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Batch Amount Threshold Violated ---');
1205: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch beign Rolledback. Batch_ID = ' ||
1206: to_char(l_batch_id));
1207: END IF;
1208:
1201: AND g_currency IS NOT NULL THEN
1202:
1203: IF OZF_DEBUG_HIGH_ON THEN
1204: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Batch Amount Threshold Violated ---');
1205: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch beign Rolledback. Batch_ID = ' ||
1206: to_char(l_batch_id));
1207: END IF;
1208:
1209: --Code added for Bug#6971836
1206: to_char(l_batch_id));
1207: END IF;
1208:
1209: --Code added for Bug#6971836
1210: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Amount Threshold Violated, Batch rolled back.');
1211:
1212: ROLLBACK TO SAVEPOINT BATCHHEADER;
1213: RETURN;
1214: END IF;
1222:
1223: --Start:Fix for Bug#10047209 - Create a Claim with new custom setup for -ve amount
1224: --to get claim number
1225: IF OZF_DEBUG_HIGH_ON THEN
1226: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_batch_sum = ' || l_batch_sum);
1227: END IF;
1228:
1229: IF (l_batch_sum < 0) THEN
1230: l_claim_rec.claim_class := 'CHARGE';
1236: x_msg_data => l_msg_data);
1237: l_custom_setup_id := l_clam_def_rec_type.custom_setup_id;
1238:
1239: IF OZF_DEBUG_LOW_ON THEN
1240: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_custom_setup_id' || to_char(l_custom_setup_id));
1241: END IF;
1242:
1243: OZF_CLAIM_PVT.Get_Claim_Number(l_split_claim_id,
1244: l_custom_setup_id,
1246: l_msg_data2,
1247: l_msg_count2,
1248: l_return_status2);
1249: IF OZF_DEBUG_HIGH_ON THEN
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Negative Claim Number = ' || to_char(l_claim_number));
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_batch_id = ' || l_batch_id);
1252: END IF;
1253: UPDATE ozf_sd_batch_headers_all
1254: SET claim_number = l_claim_number
1247: l_msg_count2,
1248: l_return_status2);
1249: IF OZF_DEBUG_HIGH_ON THEN
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Negative Claim Number = ' || to_char(l_claim_number));
1251: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_batch_id = ' || l_batch_id);
1252: END IF;
1253: UPDATE ozf_sd_batch_headers_all
1254: SET claim_number = l_claim_number
1255: WHERE batch_id = l_batch_id;
1260:
1261: ELSE
1262:
1263: IF OZF_DEBUG_HIGH_ON THEN
1264: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch has no lines, Batch id being rolled back. Batch_ID = ' ||
1265: to_char(l_batch_id));
1266: END IF;
1267:
1268: --Code added for Bug#6971836
1265: to_char(l_batch_id));
1266: END IF;
1267:
1268: --Code added for Bug#6971836
1269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch has no lines or Line threshold not met '||
1270: to_char(l_batch_id)||', Batch id being rolled back.' );
1271:
1272: ROLLBACK TO SAVEPOINT BATCHHEADER;
1273: RETURN;
1278:
1279: IF l_auto_claim = 'Y' then
1280:
1281: IF OZF_DEBUG_HIGH_ON THEN
1282: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AutoClaim Flag : True.');
1283: END IF;
1284:
1285: UPDATE ozf_sd_batch_headers_all
1286: SET status_code = 'APPROVED'
1289:
1290: --Fix for Bug#10047209 - Allow batch for -ve amount
1291: IF l_batch_sum <> 0 THEN
1292: IF OZF_DEBUG_HIGH_ON THEN
1293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Sum > 0 : Invoking Claim API');
1294: END IF;
1295:
1296: IF OZF_DEBUG_LOW_ON THEN
1297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim API Invoke Start time in create_batch ' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
1293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Sum > 0 : Invoking Claim API');
1294: END IF;
1295:
1296: IF OZF_DEBUG_LOW_ON THEN
1297: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim API Invoke Start time in create_batch ' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
1298: END IF;
1299:
1300: OZF_CLAIM_ACCRUAL_PVT.Initiate_SD_Payment(1,
1301: FND_API.g_false,
1308: l_claim_type,
1309: l_claim_id);
1310:
1311: IF OZF_DEBUG_LOW_ON THEN
1312: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim API Invoke End time in create_batch ' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
1313: END IF;
1314:
1315: IF OZF_DEBUG_HIGH_ON THEN
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
1312: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim API Invoke End time in create_batch ' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
1313: END IF;
1314:
1315: IF OZF_DEBUG_HIGH_ON THEN
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
1317: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
1318: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
1319: END IF;
1320:
1313: END IF;
1314:
1315: IF OZF_DEBUG_HIGH_ON THEN
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
1317: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
1318: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
1319: END IF;
1320:
1321: IF OZF_ERROR_ON THEN
1314:
1315: IF OZF_DEBUG_HIGH_ON THEN
1316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
1317: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
1318: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
1319: END IF;
1320:
1321: IF OZF_ERROR_ON THEN
1322: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
1318: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
1319: END IF;
1320:
1321: IF OZF_ERROR_ON THEN
1322: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
1323: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
1324: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
1325: FOR I IN 1..l_claim_msg_count LOOP
1326: 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) );
1319: END IF;
1320:
1321: IF OZF_ERROR_ON THEN
1322: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
1323: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
1324: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
1325: FOR I IN 1..l_claim_msg_count LOOP
1326: 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) );
1327: END LOOP;
1320:
1321: IF OZF_ERROR_ON THEN
1322: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
1323: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
1324: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
1325: FOR I IN 1..l_claim_msg_count LOOP
1326: 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) );
1327: END LOOP;
1328: END IF;
1322: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
1323: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
1324: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
1325: FOR I IN 1..l_claim_msg_count LOOP
1326: 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) );
1327: END LOOP;
1328: END IF;
1329:
1330: IF l_claim_ret_status = FND_API.G_RET_STS_SUCCESS THEN
1329:
1330: IF l_claim_ret_status = FND_API.G_RET_STS_SUCCESS THEN
1331:
1332: --Code added for Bug#6971836
1333: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim created for batch.');
1334:
1335: UPDATE ozf_sd_batch_headers_all
1336: SET status_code = 'CLOSED',
1337: claim_id = l_claim_id,
1347: object_version_number = object_version_number + 1
1348: WHERE batch_id = l_batch_id;
1349:
1350: IF OZF_DEBUG_HIGH_ON THEN
1351: FND_FILE.PUT_LINE(FND_FILE.LOG,
1352: 'Claim process returned errors, could not update batch with ID :' || l_batch_id);
1353: END IF;
1354: --Code added for Bug#6971836
1355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim process failed.');
1351: FND_FILE.PUT_LINE(FND_FILE.LOG,
1352: 'Claim process returned errors, could not update batch with ID :' || l_batch_id);
1353: END IF;
1354: --Code added for Bug#6971836
1355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim process failed.');
1356: END IF;
1357:
1358: END IF; --BATCH_SUM > 0
1359:
1372: g_ret_level := 1 ;
1373:
1374:
1375: IF OZF_DEBUG_HIGH_ON THEN
1376: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Warning !!!! CREATE_BATCH : Accruals for supplier site : ' || p_supplier_site_id || ' are currently being processed by another request.');
1377: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch_ID : ' || to_char(l_batch_id) || ' is rolled back.' );
1378: END IF;
1379:
1380: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Warning !!!! CREATE_BATCH : Accruals for supplier site : ' || p_supplier_site_id || ' are currently being processed by another request.');
1373:
1374:
1375: IF OZF_DEBUG_HIGH_ON THEN
1376: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Warning !!!! CREATE_BATCH : Accruals for supplier site : ' || p_supplier_site_id || ' are currently being processed by another request.');
1377: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch_ID : ' || to_char(l_batch_id) || ' is rolled back.' );
1378: END IF;
1379:
1380: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Warning !!!! CREATE_BATCH : Accruals for supplier site : ' || p_supplier_site_id || ' are currently being processed by another request.');
1381: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch_ID : ' || to_char(l_batch_id) || ' is rolled back.' );
1376: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Warning !!!! CREATE_BATCH : Accruals for supplier site : ' || p_supplier_site_id || ' are currently being processed by another request.');
1377: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch_ID : ' || to_char(l_batch_id) || ' is rolled back.' );
1378: END IF;
1379:
1380: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Warning !!!! CREATE_BATCH : Accruals for supplier site : ' || p_supplier_site_id || ' are currently being processed by another request.');
1381: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch_ID : ' || to_char(l_batch_id) || ' is rolled back.' );
1382:
1383: ROLLBACK TO SAVEPOINT BATCHHEADER;
1384:
1377: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch_ID : ' || to_char(l_batch_id) || ' is rolled back.' );
1378: END IF;
1379:
1380: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Warning !!!! CREATE_BATCH : Accruals for supplier site : ' || p_supplier_site_id || ' are currently being processed by another request.');
1381: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch_ID : ' || to_char(l_batch_id) || ' is rolled back.' );
1382:
1383: ROLLBACK TO SAVEPOINT BATCHHEADER;
1384:
1385: -- RAISE;
1490: l_line_threshold := p_line_threshold;
1491: l_batch_currency := p_batch_currency;
1492:
1493: IF OZF_DEBUG_LOW_ON THEN
1494: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start CREATE_BATCH_HEADER');
1495: END IF;
1496:
1497: -- select contact and contact email from suppliers tables
1498: OPEN get_contact_details(l_supplier_site_id);
1500: INTO l_supplier_contact_id, l_supplier_contact_name, l_supplier_contact_email, l_supplier_contact_phone, l_supplier_contact_fax;
1501: CLOSE get_contact_details;
1502:
1503: IF OZF_DEBUG_LOW_ON THEN
1504: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_contact_id' || to_char(l_supplier_contact_id));
1505: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_contact_name' || l_supplier_contact_name);
1506: END IF;
1507:
1508: IF l_batch_new = 'N' THEN
1501: CLOSE get_contact_details;
1502:
1503: IF OZF_DEBUG_LOW_ON THEN
1504: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_contact_id' || to_char(l_supplier_contact_id));
1505: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_supplier_contact_name' || l_supplier_contact_name);
1506: END IF;
1507:
1508: IF l_batch_new = 'N' THEN
1509: l_claim_minor_version := 1;
1518: x_msg_data => l_msg_data);
1519: l_custom_setup_id := l_clam_def_rec_type.custom_setup_id;
1520:
1521: IF OZF_DEBUG_LOW_ON THEN
1522: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_custom_setup_id' || to_char(l_custom_setup_id));
1523: END IF;
1524:
1525: OZF_CLAIM_PVT.Get_Claim_Number(l_split_claim_id,
1526: l_custom_setup_id,
1534: l_claim_minor_version := p_claim_minor_version;
1535: END IF;
1536:
1537: IF OZF_DEBUG_HIGH_ON THEN
1538: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Number = ' || to_char(l_claim_number));
1539: END IF;
1540:
1541: -- Two cursors added for ER 13245462
1542: OPEN stp_partial_appr_flag(l_supplier_site_id,l_org_id);
1549: CLOSE spa_partial_appr_flag;
1550: End if;
1551:
1552: IF OZF_DEBUG_LOW_ON THEN
1553: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_ssd_imd_claim_flag : ' || l_ssd_imd_claim_flag);
1554: END IF;
1555:
1556: INSERT INTO ozf_sd_batch_headers_all
1557: (batch_id,
2098: l_lines_csr := DBMS_SQL.open_cursor;
2099: l_lines_sql := FND_DSQL.get_text(FALSE); -- Get SQL query built above
2100:
2101: IF OZF_DEBUG_LOW_ON THEN
2102: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Start Query Text ---');
2103: FND_FILE.PUT_LINE(FND_FILE.LOG,' l_lines_sql = ' || l_lines_sql);
2104: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
2105: END IF;
2106:
2099: l_lines_sql := FND_DSQL.get_text(FALSE); -- Get SQL query built above
2100:
2101: IF OZF_DEBUG_LOW_ON THEN
2102: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Start Query Text ---');
2103: FND_FILE.PUT_LINE(FND_FILE.LOG,' l_lines_sql = ' || l_lines_sql);
2104: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
2105: END IF;
2106:
2107: IF OZF_DEBUG_LOW_ON THEN
2100:
2101: IF OZF_DEBUG_LOW_ON THEN
2102: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Start Query Text ---');
2103: FND_FILE.PUT_LINE(FND_FILE.LOG,' l_lines_sql = ' || l_lines_sql);
2104: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
2105: END IF;
2106:
2107: IF OZF_DEBUG_LOW_ON THEN
2108: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2104: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
2105: END IF;
2106:
2107: IF OZF_DEBUG_LOW_ON THEN
2108: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2109: 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 );
2110: 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 );
2111: 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 );
2112: 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 );
2105: END IF;
2106:
2107: IF OZF_DEBUG_LOW_ON THEN
2108: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2109: 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 );
2110: 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 );
2111: 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 );
2112: 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 );
2113: 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 );
2106:
2107: IF OZF_DEBUG_LOW_ON THEN
2108: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2109: 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 );
2110: 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 );
2111: 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 );
2112: 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 );
2113: 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 );
2114: 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 );
2107: IF OZF_DEBUG_LOW_ON THEN
2108: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2109: 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 );
2110: 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 );
2111: 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 );
2112: 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 );
2113: 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 );
2114: 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 );
2115: END IF;
2108: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2109: 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 );
2110: 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 );
2111: 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 );
2112: 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 );
2113: 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 );
2114: 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 );
2115: END IF;
2116:
2109: 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 );
2110: 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 );
2111: 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 );
2112: 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 );
2113: 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 );
2114: 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 );
2115: END IF;
2116:
2117: IF OZF_DEBUG_LOW_ON THEN
2110: 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 );
2111: 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 );
2112: 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 );
2113: 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 );
2114: 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 );
2115: END IF;
2116:
2117: IF OZF_DEBUG_LOW_ON THEN
2118: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
2114: 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 );
2115: END IF;
2116:
2117: IF OZF_DEBUG_LOW_ON THEN
2118: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
2119: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_lines_sql = ' || l_lines_sql);
2120: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --End Query Text --');
2121: END IF;
2122:
2115: END IF;
2116:
2117: IF OZF_DEBUG_LOW_ON THEN
2118: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
2119: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_lines_sql = ' || l_lines_sql);
2120: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --End Query Text --');
2121: END IF;
2122:
2123: FND_DSQL.set_cursor(l_lines_csr);
2116:
2117: IF OZF_DEBUG_LOW_ON THEN
2118: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
2119: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_lines_sql = ' || l_lines_sql);
2120: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --End Query Text --');
2121: END IF;
2122:
2123: FND_DSQL.set_cursor(l_lines_csr);
2124: DBMS_SQL.parse(l_lines_csr, l_lines_sql, DBMS_SQL.native);
2171:
2172: --execute cursor
2173:
2174: IF OZF_DEBUG_LOW_ON THEN
2175: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cursor Execute Start time' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
2176: END IF;
2177:
2178: l_ignore := DBMS_SQL.execute(l_lines_csr);
2179:
2177:
2178: l_ignore := DBMS_SQL.execute(l_lines_csr);
2179:
2180: IF OZF_DEBUG_LOW_ON THEN
2181: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cursor Execute End time' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
2182: END IF;
2183:
2184: p_empty_batch := 'Y'; -- to check if any lines were created
2185: l_batch_line_number := 1;
2186:
2187: LOOP
2188:
2189: IF OZF_DEBUG_LOW_ON THEN
2190: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DBMS_SQL.FETCH_ROWS loop - Before Fetch');
2191: END IF;
2192:
2193: EXIT WHEN DBMS_SQL.FETCH_ROWS(l_lines_csr) = 0;
2194:
2192:
2193: EXIT WHEN DBMS_SQL.FETCH_ROWS(l_lines_csr) = 0;
2194:
2195: IF OZF_DEBUG_HIGH_ON THEN
2196: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DBMS_SQL.FETCH_ROWS loop - After Fetch');
2197: END IF;
2198:
2199: DBMS_SQL.column_value(l_lines_csr, 1, l_batch_line_id);
2200: DBMS_SQL.column_value(l_lines_csr, 2, l_utilization_id);
2237: DBMS_SQL.column_value(l_lines_csr, 35, l_approved_discount_currency);
2238: DBMS_SQL.column_value(l_lines_csr, 36, l_adjustment_type_id);
2239:
2240: IF OZF_DEBUG_HIGH_ON THEN
2241: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Check for Line Amount Threshold ---');
2242: FND_FILE.PUT_LINE(FND_FILE.LOG,
2243: 'l_thresh_line_limit = ' ||
2244: to_char(l_thresh_line_limit) ||
2245: 'claim amount: = ' ||
2238: DBMS_SQL.column_value(l_lines_csr, 36, l_adjustment_type_id);
2239:
2240: IF OZF_DEBUG_HIGH_ON THEN
2241: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Check for Line Amount Threshold ---');
2242: FND_FILE.PUT_LINE(FND_FILE.LOG,
2243: 'l_thresh_line_limit = ' ||
2244: to_char(l_thresh_line_limit) ||
2245: 'claim amount: = ' ||
2246: to_char(l_batch_curr_claim_amount));
2252: l_batch_curr_claim_amount < 0 THEN
2253:
2254: p_empty_batch := 'N';
2255: IF OZF_DEBUG_LOW_ON THEN
2256: FND_FILE.PUT_LINE(FND_FILE.LOG,
2257: '--- Values fetched for Batch Line ---');
2258: FND_FILE.PUT_LINE(FND_FILE.LOG,
2259: 'values being fetched from SQL' ||
2260: to_char(l_batch_line_id) || '*' || -- line sequence.nextval
2254: p_empty_batch := 'N';
2255: IF OZF_DEBUG_LOW_ON THEN
2256: FND_FILE.PUT_LINE(FND_FILE.LOG,
2257: '--- Values fetched for Batch Line ---');
2258: FND_FILE.PUT_LINE(FND_FILE.LOG,
2259: 'values being fetched from SQL' ||
2260: to_char(l_batch_line_id) || '*' || -- line sequence.nextval
2261: to_char(1) || '*' || to_char(l_batch_id) || '*' ||
2262: to_char(l_batch_line_number) || '*' ||
2312: p_order_source);
2313: END IF;
2314:
2315: IF OZF_DEBUG_LOW_ON THEN
2316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserting INTO ozf_sd_batch_lines_all');
2317: END IF;
2318:
2319: IF OZF_DEBUG_LOW_ON THEN
2320: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Insert into batch lines: start time:' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
2316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserting INTO ozf_sd_batch_lines_all');
2317: END IF;
2318:
2319: IF OZF_DEBUG_LOW_ON THEN
2320: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Insert into batch lines: start time:' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
2321: END IF;
2322:
2323: INSERT INTO OZF_SD_BATCH_LINES_ALL
2324: (batch_line_id,
2457: p_order_source
2458: );
2459:
2460: IF OZF_DEBUG_LOW_ON THEN
2461: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Insert into batch lines: end time:' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
2462: END IF;
2463:
2464: IF OZF_DEBUG_LOW_ON THEN
2465: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserted INTO ozf_sd_batch_lines_all');
2461: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Insert into batch lines: end time:' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
2462: END IF;
2463:
2464: IF OZF_DEBUG_LOW_ON THEN
2465: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserted INTO ozf_sd_batch_lines_all');
2466: END IF;
2467:
2468: l_batch_line_number := l_batch_line_number + 1;
2469: END IF;
2473:
2474: WHEN resource_busy THEN
2475:
2476: IF OZF_DEBUG_HIGH_ON THEN
2477: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in CREATE_OM_BATCH_LINES : ' || SQLERRM);
2478: END IF;
2479:
2480: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in CREATE_OM_BATCH_LINES : ' || SQLERRM);
2481:
2476: IF OZF_DEBUG_HIGH_ON THEN
2477: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in CREATE_OM_BATCH_LINES : ' || SQLERRM);
2478: END IF;
2479:
2480: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in CREATE_OM_BATCH_LINES : ' || SQLERRM);
2481:
2482: RAISE ;
2483:
2484:
2484:
2485: WHEN OTHERS THEN
2486:
2487: IF OZF_DEBUG_HIGH_ON THEN
2488: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in CREATE_OM_BATCH_LINES : ' || SQLERRM);
2489: END IF;
2490:
2491: RAISE FND_API.g_exc_error;
2492:
2941: l_lines_csr := DBMS_SQL.open_cursor;
2942: l_lines_sql := FND_DSQL.get_text(FALSE); -- Get SQL query built above
2943:
2944: IF OZF_DEBUG_LOW_ON THEN
2945: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Start Query Text ---');
2946: FND_FILE.PUT_LINE(FND_FILE.LOG,' l_lines_sql = ' || l_lines_sql);
2947: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
2948: END IF;
2949:
2942: l_lines_sql := FND_DSQL.get_text(FALSE); -- Get SQL query built above
2943:
2944: IF OZF_DEBUG_LOW_ON THEN
2945: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Start Query Text ---');
2946: FND_FILE.PUT_LINE(FND_FILE.LOG,' l_lines_sql = ' || l_lines_sql);
2947: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
2948: END IF;
2949:
2950: IF OZF_DEBUG_LOW_ON THEN
2943:
2944: IF OZF_DEBUG_LOW_ON THEN
2945: FND_FILE.PUT_LINE(FND_FILE.LOG, '---Start Query Text ---');
2946: FND_FILE.PUT_LINE(FND_FILE.LOG,' l_lines_sql = ' || l_lines_sql);
2947: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
2948: END IF;
2949:
2950: IF OZF_DEBUG_LOW_ON THEN
2951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2947: FND_FILE.PUT_LINE(FND_FILE.LOG, '---End Query Text ---');
2948: END IF;
2949:
2950: IF OZF_DEBUG_LOW_ON THEN
2951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2952: 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 );
2953: 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 );
2954: 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 );
2955: 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 );
2948: END IF;
2949:
2950: IF OZF_DEBUG_LOW_ON THEN
2951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2952: 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 );
2953: 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 );
2954: 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 );
2955: 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 );
2956: 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 );
2949:
2950: IF OZF_DEBUG_LOW_ON THEN
2951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2952: 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 );
2953: 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 );
2954: 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 );
2955: 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 );
2956: 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 );
2957: 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 );
2950: IF OZF_DEBUG_LOW_ON THEN
2951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2952: 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 );
2953: 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 );
2954: 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 );
2955: 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 );
2956: 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 );
2957: 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 );
2958: END IF;
2951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '--- Values for Binds ---' );
2952: 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 );
2953: 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 );
2954: 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 );
2955: 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 );
2956: 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 );
2957: 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 );
2958: END IF;
2959:
2952: 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 );
2953: 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 );
2954: 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 );
2955: 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 );
2956: 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 );
2957: 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 );
2958: END IF;
2959:
2960: IF OZF_DEBUG_LOW_ON THEN
2953: 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 );
2954: 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 );
2955: 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 );
2956: 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 );
2957: 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 );
2958: END IF;
2959:
2960: IF OZF_DEBUG_LOW_ON THEN
2961: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
2957: 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 );
2958: END IF;
2959:
2960: IF OZF_DEBUG_LOW_ON THEN
2961: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
2962: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_lines_sql = ' || l_lines_sql);
2963: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --End Query Text --');
2964: END IF;
2965:
2958: END IF;
2959:
2960: IF OZF_DEBUG_LOW_ON THEN
2961: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
2962: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_lines_sql = ' || l_lines_sql);
2963: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --End Query Text --');
2964: END IF;
2965:
2966: FND_DSQL.set_cursor(l_lines_csr);
2959:
2960: IF OZF_DEBUG_LOW_ON THEN
2961: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --Start Query Text--');
2962: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_lines_sql = ' || l_lines_sql);
2963: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' --End Query Text --');
2964: END IF;
2965:
2966: FND_DSQL.set_cursor(l_lines_csr);
2967: DBMS_SQL.parse(l_lines_csr, l_lines_sql, DBMS_SQL.native);
3014:
3015: --execute cursor
3016:
3017: IF OZF_DEBUG_LOW_ON THEN
3018: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cursor Execute Start time' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
3019: END IF;
3020:
3021: l_ignore := DBMS_SQL.execute(l_lines_csr);
3022:
3020:
3021: l_ignore := DBMS_SQL.execute(l_lines_csr);
3022:
3023: IF OZF_DEBUG_LOW_ON THEN
3024: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Cursor Execute End time' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
3025: END IF;
3026:
3027: p_empty_batch := 'Y'; -- to check if any lines were created
3028: l_batch_line_number := 1;
3029:
3030: LOOP
3031:
3032: IF OZF_DEBUG_LOW_ON THEN
3033: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DBMS_SQL.FETCH_ROWS loop - Before Fetch');
3034: END IF;
3035:
3036: EXIT WHEN DBMS_SQL.FETCH_ROWS(l_lines_csr) = 0;
3037:
3035:
3036: EXIT WHEN DBMS_SQL.FETCH_ROWS(l_lines_csr) = 0;
3037:
3038: IF OZF_DEBUG_HIGH_ON THEN
3039: FND_FILE.PUT_LINE(FND_FILE.LOG, 'DBMS_SQL.FETCH_ROWS loop - After Fetch');
3040: END IF;
3041:
3042: DBMS_SQL.column_value(l_lines_csr, 1, l_batch_line_id);
3043: DBMS_SQL.column_value(l_lines_csr, 2, l_utilization_id);
3080: DBMS_SQL.column_value(l_lines_csr, 35, l_approved_discount_currency);
3081: DBMS_SQL.column_value(l_lines_csr, 36, l_adjustment_type_id);
3082:
3083: IF OZF_DEBUG_HIGH_ON THEN
3084: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Check for Line Amount Threshold ---');
3085: FND_FILE.PUT_LINE(FND_FILE.LOG,
3086: 'l_thresh_line_limit = ' ||
3087: to_char(l_thresh_line_limit) ||
3088: 'claim amount: = ' ||
3081: DBMS_SQL.column_value(l_lines_csr, 36, l_adjustment_type_id);
3082:
3083: IF OZF_DEBUG_HIGH_ON THEN
3084: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Check for Line Amount Threshold ---');
3085: FND_FILE.PUT_LINE(FND_FILE.LOG,
3086: 'l_thresh_line_limit = ' ||
3087: to_char(l_thresh_line_limit) ||
3088: 'claim amount: = ' ||
3089: to_char(l_batch_curr_claim_amount));
3095: l_batch_curr_claim_amount < 0 THEN
3096:
3097: p_empty_batch := 'N';
3098: IF OZF_DEBUG_LOW_ON THEN
3099: FND_FILE.PUT_LINE(FND_FILE.LOG,
3100: '--- Values fetched for Batch Line ---');
3101: FND_FILE.PUT_LINE(FND_FILE.LOG,
3102: 'values being fetched from SQL' ||
3103: to_char(l_batch_line_id) || '*' || -- line sequence.nextval
3097: p_empty_batch := 'N';
3098: IF OZF_DEBUG_LOW_ON THEN
3099: FND_FILE.PUT_LINE(FND_FILE.LOG,
3100: '--- Values fetched for Batch Line ---');
3101: FND_FILE.PUT_LINE(FND_FILE.LOG,
3102: 'values being fetched from SQL' ||
3103: to_char(l_batch_line_id) || '*' || -- line sequence.nextval
3104: to_char(1) || '*' || to_char(l_batch_id) || '*' ||
3105: to_char(l_batch_line_number) || '*' ||
3155: p_order_source);
3156: END IF;
3157:
3158: IF OZF_DEBUG_LOW_ON THEN
3159: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserting INTO ozf_sd_batch_lines_all');
3160: END IF;
3161:
3162: IF OZF_DEBUG_LOW_ON THEN
3163: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Insert into batch lines: start time:' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
3159: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserting INTO ozf_sd_batch_lines_all');
3160: END IF;
3161:
3162: IF OZF_DEBUG_LOW_ON THEN
3163: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Insert into batch lines: start time:' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
3164: END IF;
3165:
3166: INSERT INTO OZF_SD_BATCH_LINES_ALL
3167: (batch_line_id,
3300: p_order_source
3301: );
3302:
3303: IF OZF_DEBUG_LOW_ON THEN
3304: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Insert into batch lines: end time:' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
3305: END IF;
3306:
3307: IF OZF_DEBUG_LOW_ON THEN
3308: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserted INTO ozf_sd_batch_lines_all');
3304: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Insert into batch lines: end time:' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
3305: END IF;
3306:
3307: IF OZF_DEBUG_LOW_ON THEN
3308: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Inserted INTO ozf_sd_batch_lines_all');
3309: END IF;
3310:
3311: l_batch_line_number := l_batch_line_number + 1;
3312: END IF;
3316:
3317: WHEN resource_busy THEN
3318:
3319: IF OZF_DEBUG_HIGH_ON THEN
3320: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in CREATE_IDSM_BATCH_LINES : ' || SQLERRM);
3321: END IF;
3322:
3323: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in CREATE_IDSM_BATCH_LINES : ' || SQLERRM);
3324:
3319: IF OZF_DEBUG_HIGH_ON THEN
3320: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in CREATE_IDSM_BATCH_LINES : ' || SQLERRM);
3321: END IF;
3322:
3323: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in CREATE_IDSM_BATCH_LINES : ' || SQLERRM);
3324:
3325: RAISE ;
3326:
3327:
3327:
3328: WHEN OTHERS THEN
3329:
3330: IF OZF_DEBUG_HIGH_ON THEN
3331: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in CREATE_IDSM_BATCH_LINES : ' || SQLERRM);
3332: END IF;
3333:
3334: RAISE FND_API.g_exc_error;
3335:
3357: l_batch_threshold := p_batch_threshold;
3358: l_batch_id := p_batch_id;
3359:
3360: IF OZF_DEBUG_LOW_ON THEN
3361: FND_FILE.PUT_LINE(FND_FILE.LOG,
3362: '--- Start of UPDATE_AMOUNTS ---');
3363: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id = ' || p_batch_id);
3364: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_threshold = ' || p_batch_threshold);
3365: END IF;
3359:
3360: IF OZF_DEBUG_LOW_ON THEN
3361: FND_FILE.PUT_LINE(FND_FILE.LOG,
3362: '--- Start of UPDATE_AMOUNTS ---');
3363: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id = ' || p_batch_id);
3364: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_threshold = ' || p_batch_threshold);
3365: END IF;
3366:
3367: UPDATE ozf_funds_utilized_all_b
3360: IF OZF_DEBUG_LOW_ON THEN
3361: FND_FILE.PUT_LINE(FND_FILE.LOG,
3362: '--- Start of UPDATE_AMOUNTS ---');
3363: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id = ' || p_batch_id);
3364: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_threshold = ' || p_batch_threshold);
3365: END IF;
3366:
3367: UPDATE ozf_funds_utilized_all_b
3368: SET amount_remaining = 0,
3379: WHERE batch_id = l_batch_id);
3380: EXCEPTION
3381: WHEN OTHERS THEN
3382: IF OZF_DEBUG_HIGH_ON THEN
3383: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in UPDATE_AMOUNTS:' || SQLERRM);
3384: END IF;
3385:
3386: RAISE FND_API.g_exc_error;
3387:
3428: l_return_status VARCHAR2(15) := NULL;
3429: BEGIN
3430:
3431: IF OZF_DEBUG_LOW_ON THEN
3432: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start INVOKE_BATCH_AUTO_CLAIM ---');
3433: END IF;
3434:
3435: l_sql := 'SELECT HDR.BATCH_ID, HDR.vendor_site_id, HDR.BATCH_SUBMISSION_DATE '
3436: || ' FROM ozf_sd_batch_headers_all HDR, ozf_sd_batch_lines_all BLN '
3467: INTO l_freq;
3468: CLOSE get_freq_and_date;
3469:
3470: IF OZF_DEBUG_LOW_ON THEN
3471: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch ID ' || to_char(l_batch_id));
3472: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Submission Date ' || to_char(l_batch_submission_date));
3473: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile Frequency = ' || to_char(l_freq));
3474: END IF;
3475:
3468: CLOSE get_freq_and_date;
3469:
3470: IF OZF_DEBUG_LOW_ON THEN
3471: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch ID ' || to_char(l_batch_id));
3472: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Submission Date ' || to_char(l_batch_submission_date));
3473: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile Frequency = ' || to_char(l_freq));
3474: END IF;
3475:
3476: l_batch_submission_date := l_batch_submission_date + l_freq;
3469:
3470: IF OZF_DEBUG_LOW_ON THEN
3471: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch ID ' || to_char(l_batch_id));
3472: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Submission Date ' || to_char(l_batch_submission_date));
3473: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Trade Profile Frequency = ' || to_char(l_freq));
3474: END IF;
3475:
3476: l_batch_submission_date := l_batch_submission_date + l_freq;
3477:
3477:
3478: IF NVL(l_batch_submission_date, sysdate + 1) < sysdate THEN
3479:
3480: IF OZF_DEBUG_HIGH_ON THEN
3481: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoking Claim for Batch ID ' || to_char(l_batch_id));
3482: END IF;
3483:
3484: --Code added for Bug#6971836
3485: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Initiates claim for batch '||to_char(l_batch_id));
3481: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoking Claim for Batch ID ' || to_char(l_batch_id));
3482: END IF;
3483:
3484: --Code added for Bug#6971836
3485: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Initiates claim for batch '||to_char(l_batch_id));
3486:
3487: IF OZF_DEBUG_LOW_ON THEN
3488: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim API Invoke Start time in invoke_batch auto claim' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
3489: END IF;
3484: --Code added for Bug#6971836
3485: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Initiates claim for batch '||to_char(l_batch_id));
3486:
3487: IF OZF_DEBUG_LOW_ON THEN
3488: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim API Invoke Start time in invoke_batch auto claim' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
3489: END IF;
3490:
3491: OZF_CLAIM_ACCRUAL_PVT.Initiate_SD_Payment(1,
3492: FND_API.g_false,
3499: l_claim_type,
3500: l_claim_id);
3501:
3502: IF OZF_DEBUG_LOW_ON THEN
3503: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim API Invoke End time in invoke batch auto claim' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
3504: END IF;
3505:
3506: IF OZF_DEBUG_HIGH_ON THEN
3507: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
3503: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim API Invoke End time in invoke batch auto claim' || to_char(sysdate,'dd-mm-yyyy hh:mi:ss') );
3504: END IF;
3505:
3506: IF OZF_DEBUG_HIGH_ON THEN
3507: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
3508: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
3509: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
3510: END IF;
3511:
3504: END IF;
3505:
3506: IF OZF_DEBUG_HIGH_ON THEN
3507: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
3508: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
3509: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
3510: END IF;
3511:
3512: IF OZF_ERROR_ON THEN
3505:
3506: IF OZF_DEBUG_HIGH_ON THEN
3507: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
3508: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || to_char(l_batch_id));
3509: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
3510: END IF;
3511:
3512: IF OZF_ERROR_ON THEN
3513: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
3509: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
3510: END IF;
3511:
3512: IF OZF_ERROR_ON THEN
3513: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
3514: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
3515: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
3516: FOR I IN 1..l_claim_msg_count LOOP
3517: 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) );
3510: END IF;
3511:
3512: IF OZF_ERROR_ON THEN
3513: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
3514: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
3515: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
3516: FOR I IN 1..l_claim_msg_count LOOP
3517: 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) );
3518: END LOOP;
3511:
3512: IF OZF_ERROR_ON THEN
3513: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
3514: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
3515: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
3516: FOR I IN 1..l_claim_msg_count LOOP
3517: 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) );
3518: END LOOP;
3519: END IF;
3513: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_ret_status ' || l_claim_ret_status );
3514: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_count ' || l_claim_msg_count );
3515: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_claim_msg_data ' || l_claim_msg_data );
3516: FOR I IN 1..l_claim_msg_count LOOP
3517: 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) );
3518: END LOOP;
3519: END IF;
3520:
3521: IF l_claim_ret_status = FND_API.G_RET_STS_SUCCESS THEN
3520:
3521: IF l_claim_ret_status = FND_API.G_RET_STS_SUCCESS THEN
3522:
3523: --Code added for Bug#6971836
3524: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim created for batch.');
3525:
3526: UPDATE OZF_SD_BATCH_HEADERS_ALL
3527: SET status_code = 'CLOSED',
3528: claim_id = l_claim_id,
3542:
3543: END IF;
3544: ELSE
3545: --Code added for Bug#6971836
3546: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim process failed.');
3547: END IF;
3548:
3549: EXCEPTION
3550: WHEN OTHERS THEN
3548:
3549: EXCEPTION
3550: WHEN OTHERS THEN
3551: IF OZF_DEBUG_HIGH_ON THEN
3552: FND_FILE.PUT_LINE(FND_FILE.LOG,
3553: 'Exception occured in INVOKE_BATCH_AUTO_CLAIM :=' ||
3554: SQLERRM);
3555: errbuf := 'Exception occured in INVOKE_BATCH_AUTO_CLAIM ' ||
3556: SQLERRM;
3593: l_return_status VARCHAR2(15) := NULL;
3594: BEGIN
3595:
3596: IF OZF_DEBUG_LOW_ON THEN
3597: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start PROCESS_SD_PENDING_CLM_BATCHES ---');
3598: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
3599: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
3600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_id: ' || p_vendor_id);
3601: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_site_id: ' || p_vendor_site_id);
3594: BEGIN
3595:
3596: IF OZF_DEBUG_LOW_ON THEN
3597: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start PROCESS_SD_PENDING_CLM_BATCHES ---');
3598: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
3599: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
3600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_id: ' || p_vendor_id);
3601: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_site_id: ' || p_vendor_site_id);
3602: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id: ' || p_batch_id);
3595:
3596: IF OZF_DEBUG_LOW_ON THEN
3597: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start PROCESS_SD_PENDING_CLM_BATCHES ---');
3598: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
3599: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
3600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_id: ' || p_vendor_id);
3601: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_site_id: ' || p_vendor_site_id);
3602: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id: ' || p_batch_id);
3603: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
3596: IF OZF_DEBUG_LOW_ON THEN
3597: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start PROCESS_SD_PENDING_CLM_BATCHES ---');
3598: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
3599: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
3600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_id: ' || p_vendor_id);
3601: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_site_id: ' || p_vendor_site_id);
3602: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id: ' || p_batch_id);
3603: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
3604: END IF;
3597: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start PROCESS_SD_PENDING_CLM_BATCHES ---');
3598: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
3599: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
3600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_id: ' || p_vendor_id);
3601: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_site_id: ' || p_vendor_site_id);
3602: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id: ' || p_batch_id);
3603: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
3604: END IF;
3605:
3598: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Parameter List ---');
3599: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
3600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_id: ' || p_vendor_id);
3601: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_site_id: ' || p_vendor_site_id);
3602: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id: ' || p_batch_id);
3603: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
3604: END IF;
3605:
3606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_org_id: ' || p_org_id);
3599: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_org_id: ' || p_org_id);
3600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_id: ' || p_vendor_id);
3601: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_vendor_site_id: ' || p_vendor_site_id);
3602: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id: ' || p_batch_id);
3603: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
3604: END IF;
3605:
3606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_org_id: ' || p_org_id);
3607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_vendor_id: ' || p_vendor_id);
3602: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_batch_id: ' || p_batch_id);
3603: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
3604: END IF;
3605:
3606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_org_id: ' || p_org_id);
3607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_vendor_id: ' || p_vendor_id);
3608: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_vendor_site_id: ' || p_vendor_site_id);
3609: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_batch_id: ' || p_batch_id);
3610:
3603: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Parameter List ---');
3604: END IF;
3605:
3606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_org_id: ' || p_org_id);
3607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_vendor_id: ' || p_vendor_id);
3608: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_vendor_site_id: ' || p_vendor_site_id);
3609: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_batch_id: ' || p_batch_id);
3610:
3611: MO_GLOBAL.init('OZF');
3604: END IF;
3605:
3606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_org_id: ' || p_org_id);
3607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_vendor_id: ' || p_vendor_id);
3608: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_vendor_site_id: ' || p_vendor_site_id);
3609: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_batch_id: ' || p_batch_id);
3610:
3611: MO_GLOBAL.init('OZF');
3612:
3605:
3606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_org_id: ' || p_org_id);
3607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_vendor_id: ' || p_vendor_id);
3608: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_vendor_site_id: ' || p_vendor_site_id);
3609: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'p_batch_id: ' || p_batch_id);
3610:
3611: MO_GLOBAL.init('OZF');
3612:
3613: IF p_org_id IS NULL THEN
3632: ELSIF (l_org_id.COUNT > 0) AND p_org_id is NULL AND p_vendor_id IS NULL AND p_vendor_site_id IS NULL AND p_batch_id IS NULL THEN --if all 4 parameters are not passed
3633: FOR m IN l_org_id.FIRST .. l_org_id.LAST LOOP
3634:
3635: IF OZF_DEBUG_LOW_ON THEN
3636: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Fetch of Organization ids ---');
3637: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_org_id ' || to_char(l_org_id(m)));
3638: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Fetch of Organization ids ---');
3639: END IF;
3640:
3633: FOR m IN l_org_id.FIRST .. l_org_id.LAST LOOP
3634:
3635: IF OZF_DEBUG_LOW_ON THEN
3636: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Fetch of Organization ids ---');
3637: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_org_id ' || to_char(l_org_id(m)));
3638: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Fetch of Organization ids ---');
3639: END IF;
3640:
3641: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'l_org_id ' || to_char(l_org_id(m)));
3634:
3635: IF OZF_DEBUG_LOW_ON THEN
3636: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- Start Fetch of Organization ids ---');
3637: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_org_id ' || to_char(l_org_id(m)));
3638: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Fetch of Organization ids ---');
3639: END IF;
3640:
3641: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'l_org_id ' || to_char(l_org_id(m)));
3642:
3637: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_org_id ' || to_char(l_org_id(m)));
3638: FND_FILE.PUT_LINE(FND_FILE.LOG, '--- End Fetch of Organization ids ---');
3639: END IF;
3640:
3641: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'l_org_id ' || to_char(l_org_id(m)));
3642:
3643: MO_GLOBAL.set_policy_context('S', l_org_id(m));
3644:
3645: IF OZF_DEBUG_HIGH_ON THEN
3642:
3643: MO_GLOBAL.set_policy_context('S', l_org_id(m));
3644:
3645: IF OZF_DEBUG_HIGH_ON THEN
3646: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Processing for Operating Unit: ' ||
3647: MO_GLOBAL.get_ou_name(l_org_id(m)));
3648: END IF;
3649:
3650: PROCESS_SUPPLIER_SITES(l_org_id(m) , p_vendor_id , p_vendor_site_id, p_batch_id);
3653:
3654: EXCEPTION
3655: WHEN OTHERS THEN
3656: IF OZF_DEBUG_HIGH_ON THEN
3657: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in PROCESS_SD_PENDING_CLM_BATCHES : ' || SQLERRM);
3658: END IF;
3659:
3660: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in PROCESS_SD_PENDING_CLM_BATCHES : ' ||SQLERRM);
3661:
3656: IF OZF_DEBUG_HIGH_ON THEN
3657: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in PROCESS_SD_PENDING_CLM_BATCHES : ' || SQLERRM);
3658: END IF;
3659:
3660: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in PROCESS_SD_PENDING_CLM_BATCHES : ' ||SQLERRM);
3661:
3662: errbuf := 'Error in PROCESS_SD_PENDING_CLM_BATCHES ' || SQLERRM;
3663: retcode := 2;
3664: END;
3710:
3711: IF l_batch_id IS NULL THEN
3712: FOR site_rec IN get_supplier_sites(l_org_id,l_supplier_id,l_supplier_site_id) LOOP
3713: IF OZF_DEBUG_HIGH_ON THEN
3714: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Looping for Supplier ID = '|| site_rec.vendor_id || ' and Supplier Site ID = ' || site_rec.vendor_site_id);
3715: END IF;
3716:
3717: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Looping for Supplier ID = '|| site_rec.vendor_id || ' and Supplier Site ID = ' || site_rec.vendor_site_id);
3718:
3713: IF OZF_DEBUG_HIGH_ON THEN
3714: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Looping for Supplier ID = '|| site_rec.vendor_id || ' and Supplier Site ID = ' || site_rec.vendor_site_id);
3715: END IF;
3716:
3717: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Looping for Supplier ID = '|| site_rec.vendor_id || ' and Supplier Site ID = ' || site_rec.vendor_site_id);
3718:
3719: INVOKE_CLAIM(p_org_id, p_vendor_id , site_rec.vendor_site_id, p_batch_id);
3720: END LOOP; -- for site_rec
3721:
3725: END IF;
3726:
3727: EXCEPTION
3728: WHEN OTHERS THEN
3729: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in PROCESS_SUPPLIER_SITES' || sqlerrm);
3730: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in PROCESS_SUPPLIER_SITES' || sqlerrm);
3731: END; -- PROCESS_SUPPLIER_SITES;
3732:
3733:
3726:
3727: EXCEPTION
3728: WHEN OTHERS THEN
3729: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in PROCESS_SUPPLIER_SITES' || sqlerrm);
3730: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in PROCESS_SUPPLIER_SITES' || sqlerrm);
3731: END; -- PROCESS_SUPPLIER_SITES;
3732:
3733:
3734: -- Start of comments
3789: WHERE org.set_of_books_id = gs.set_of_books_id
3790: AND org.org_id = bh.org_id
3791: AND bh.batch_id = batch_rec.BATCH_ID;
3792:
3793: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Initiating claim for batch '|| batch_rec.BATCH_ID);
3794: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Initiating claim for batch '|| batch_rec.BATCH_ID);
3795:
3796: SAVEPOINT BEFORE_INVOKE_CLAIM;
3797:
3790: AND org.org_id = bh.org_id
3791: AND bh.batch_id = batch_rec.BATCH_ID;
3792:
3793: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Initiating claim for batch '|| batch_rec.BATCH_ID);
3794: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Initiating claim for batch '|| batch_rec.BATCH_ID);
3795:
3796: SAVEPOINT BEFORE_INVOKE_CLAIM;
3797:
3798: UPDATE ozf_sd_batch_lines_all BLN
3848: batch_rec.BATCH_ID,
3849: l_claim_type,
3850: l_claim_id);
3851:
3852: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'After Claim Initiation for batch '|| batch_rec.BATCH_ID);
3853:
3854: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_ret_status ' || l_ret_status );
3855: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_msg_count ' || l_msg_count );
3856: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_msg_data ' || l_msg_data );
3850: l_claim_id);
3851:
3852: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'After Claim Initiation for batch '|| batch_rec.BATCH_ID);
3853:
3854: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_ret_status ' || l_ret_status );
3855: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_msg_count ' || l_msg_count );
3856: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_msg_data ' || l_msg_data );
3857: FOR I IN 1..l_msg_count LOOP
3858: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Msg from Claim API while invoking claim for batch ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
3851:
3852: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'After Claim Initiation for batch '|| batch_rec.BATCH_ID);
3853:
3854: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_ret_status ' || l_ret_status );
3855: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_msg_count ' || l_msg_count );
3856: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_msg_data ' || l_msg_data );
3857: FOR I IN 1..l_msg_count LOOP
3858: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Msg from Claim API while invoking claim for batch ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
3859: END LOOP;
3852: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'After Claim Initiation for batch '|| batch_rec.BATCH_ID);
3853:
3854: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_ret_status ' || l_ret_status );
3855: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_msg_count ' || l_msg_count );
3856: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_msg_data ' || l_msg_data );
3857: FOR I IN 1..l_msg_count LOOP
3858: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Msg from Claim API while invoking claim for batch ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
3859: END LOOP;
3860:
3854: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_ret_status ' || l_ret_status );
3855: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_msg_count ' || l_msg_count );
3856: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' l_msg_data ' || l_msg_data );
3857: FOR I IN 1..l_msg_count LOOP
3858: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Msg from Claim API while invoking claim for batch ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
3859: END LOOP;
3860:
3861: IF OZF_DEBUG_HIGH_ON THEN
3862: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
3858: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Msg from Claim API while invoking claim for batch ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
3859: END LOOP;
3860:
3861: IF OZF_DEBUG_HIGH_ON THEN
3862: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
3863: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || batch_rec.BATCH_ID);
3864: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
3865: END IF;
3866:
3859: END LOOP;
3860:
3861: IF OZF_DEBUG_HIGH_ON THEN
3862: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
3863: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || batch_rec.BATCH_ID);
3864: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
3865: END IF;
3866:
3867: IF OZF_ERROR_ON THEN
3860:
3861: IF OZF_DEBUG_HIGH_ON THEN
3862: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoked Claim ....' );
3863: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Batch ID ' || batch_rec.BATCH_ID);
3864: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
3865: END IF;
3866:
3867: IF OZF_ERROR_ON THEN
3868: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_ret_status ' || l_ret_status );
3864: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Claim ID ' || to_char(l_claim_id) );
3865: END IF;
3866:
3867: IF OZF_ERROR_ON THEN
3868: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_ret_status ' || l_ret_status );
3869: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_msg_count ' || l_msg_count );
3870: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_msg_data ' || l_msg_data );
3871: FOR I IN 1..l_msg_count LOOP
3872: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API while invoking claim for batch ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
3865: END IF;
3866:
3867: IF OZF_ERROR_ON THEN
3868: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_ret_status ' || l_ret_status );
3869: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_msg_count ' || l_msg_count );
3870: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_msg_data ' || l_msg_data );
3871: FOR I IN 1..l_msg_count LOOP
3872: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API while invoking claim for batch ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
3873: END LOOP;
3866:
3867: IF OZF_ERROR_ON THEN
3868: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_ret_status ' || l_ret_status );
3869: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_msg_count ' || l_msg_count );
3870: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_msg_data ' || l_msg_data );
3871: FOR I IN 1..l_msg_count LOOP
3872: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API while invoking claim for batch ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
3873: END LOOP;
3874: END IF;
3868: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_ret_status ' || l_ret_status );
3869: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_msg_count ' || l_msg_count );
3870: FND_FILE.PUT_LINE(FND_FILE.LOG, ' l_msg_data ' || l_msg_data );
3871: FOR I IN 1..l_msg_count LOOP
3872: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Msg from Claim API while invoking claim for batch ' || SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254) );
3873: END LOOP;
3874: END IF;
3875:
3876: IF l_ret_status = FND_API.G_RET_STS_SUCCESS THEN -- If claim is successful
3874: END IF;
3875:
3876: IF l_ret_status = FND_API.G_RET_STS_SUCCESS THEN -- If claim is successful
3877:
3878: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim created for batch.' || batch_rec.BATCH_ID || 'is :' || to_char(l_claim_id));
3879: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim created for batch.' || batch_rec.BATCH_ID || 'is :' || to_char(l_claim_id));
3880:
3881: OZF_SD_UTIL_PVT.CREATE_ADJUSTMENT(batch_rec.BATCH_ID, 'F', l_ret_status, l_msg_count, l_msg_data);
3882:
3875:
3876: IF l_ret_status = FND_API.G_RET_STS_SUCCESS THEN -- If claim is successful
3877:
3878: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim created for batch.' || batch_rec.BATCH_ID || 'is :' || to_char(l_claim_id));
3879: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim created for batch.' || batch_rec.BATCH_ID || 'is :' || to_char(l_claim_id));
3880:
3881: OZF_SD_UTIL_PVT.CREATE_ADJUSTMENT(batch_rec.BATCH_ID, 'F', l_ret_status, l_msg_count, l_msg_data);
3882:
3883: IF l_ret_status = FND_API.G_RET_STS_SUCCESS THEN -- If adjustment is successful
3905: END IF;
3906:
3907: ELSE -- If claim is not successful
3908:
3909: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim process failed.');
3910: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim process failed.');
3911:
3912: ROLLBACK TO BEFORE_INVOKE_CLAIM;
3913: UPDATE ozf_sd_batch_headers_all
3906:
3907: ELSE -- If claim is not successful
3908:
3909: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Claim process failed.');
3910: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim process failed.');
3911:
3912: ROLLBACK TO BEFORE_INVOKE_CLAIM;
3913: UPDATE ozf_sd_batch_headers_all
3914: SET status_code = 'PENDING_CLAIM',
3923: END LOOP; -- for batch_rec
3924:
3925: EXCEPTION
3926: WHEN OTHERS THEN
3927: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in INVOKE_CLAIM' || sqlerrm);
3928: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in INVOKE_CLAIM' || sqlerrm);
3929: END; -- INVOKE_CLAIM;
3930:
3931: END OZF_SD_BATCH_PVT;
3924:
3925: EXCEPTION
3926: WHEN OTHERS THEN
3927: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Exception in INVOKE_CLAIM' || sqlerrm);
3928: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Exception in INVOKE_CLAIM' || sqlerrm);
3929: END; -- INVOKE_CLAIM;
3930:
3931: END OZF_SD_BATCH_PVT;