eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.DPP_CLAIMS_PVT dependencies on FND_MSG_PUB

Line 11: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);

7: -- NOTE :
8: -- End of Comments
9:
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'DPP_CLAIMS_PVT';
11: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
12: G_FILE_NAME CONSTANT VARCHAR2(14) := 'dppvclab.pls';
13: ---------------------------------------------------------------------
14: -- PROCEDURE
15: -- Update_Executiondetails

Line 217: FND_MSG_PUB.initialize;

213: END IF;
214: -- Initialize message list if p_init_msg_list is set to TRUE.
215: IF FND_API.to_Boolean( p_init_msg_list )
216: THEN
217: FND_MSG_PUB.initialize;
218: END IF;
219: -- Debug Message
220: IF g_debug THEN
221: DPP_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');

Line 250: FND_MSG_PUB.add;

246: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
247: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
248: fnd_message.set_token('ERRNO', sqlcode);
249: fnd_message.set_token('REASON', 'NO CUST ACCOUNT ID RETRIEVED');
250: FND_MSG_PUB.add;
251: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
252: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
253: END IF;
254: RAISE FND_API.G_EXC_ERROR;

Line 251: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

247: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
248: fnd_message.set_token('ERRNO', sqlcode);
249: fnd_message.set_token('REASON', 'NO CUST ACCOUNT ID RETRIEVED');
250: FND_MSG_PUB.add;
251: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
252: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
253: END IF;
254: RAISE FND_API.G_EXC_ERROR;
255: WHEN OTHERS THEN

Line 252: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

248: fnd_message.set_token('ERRNO', sqlcode);
249: fnd_message.set_token('REASON', 'NO CUST ACCOUNT ID RETRIEVED');
250: FND_MSG_PUB.add;
251: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
252: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
253: END IF;
254: RAISE FND_API.G_EXC_ERROR;
255: WHEN OTHERS THEN
256: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 260: FND_MSG_PUB.add;

256: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
257: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
258: fnd_message.set_token('ERRNO', sqlcode);
259: fnd_message.set_token('REASON', sqlerrm);
260: FND_MSG_PUB.add;
261: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
262: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_TRD_PROFILE');
263: fnd_message.set_token('VENDORID', l_txn_hdr_rec.Vendor_ID);
264: FND_MSG_PUB.add;

Line 261: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

257: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
258: fnd_message.set_token('ERRNO', sqlcode);
259: fnd_message.set_token('REASON', sqlerrm);
260: FND_MSG_PUB.add;
261: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
262: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_TRD_PROFILE');
263: fnd_message.set_token('VENDORID', l_txn_hdr_rec.Vendor_ID);
264: FND_MSG_PUB.add;
265: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 264: FND_MSG_PUB.add;

260: FND_MSG_PUB.add;
261: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
262: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_TRD_PROFILE');
263: fnd_message.set_token('VENDORID', l_txn_hdr_rec.Vendor_ID);
264: FND_MSG_PUB.add;
265: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
266: END IF;
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: END;

Line 265: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

261: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
262: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_TRD_PROFILE');
263: fnd_message.set_token('VENDORID', l_txn_hdr_rec.Vendor_ID);
264: FND_MSG_PUB.add;
265: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
266: END IF;
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: END;
269: IF g_debug THEN

Line 350: FND_MSG_PUB.add;

346: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
347: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
348: fnd_message.set_token('ERRNO', sqlcode);
349: fnd_message.set_token('REASON', sqlerrm);
350: FND_MSG_PUB.add;
351: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
352: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
353: END IF;
354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 351: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

347: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
348: fnd_message.set_token('ERRNO', sqlcode);
349: fnd_message.set_token('REASON', sqlerrm);
350: FND_MSG_PUB.add;
351: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
352: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
353: END IF;
354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
355: END;

Line 352: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

348: fnd_message.set_token('ERRNO', sqlcode);
349: fnd_message.set_token('REASON', sqlerrm);
350: FND_MSG_PUB.add;
351: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
352: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
353: END IF;
354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
355: END;
356: --Get the item number

Line 370: FND_MSG_PUB.add;

366: END LOOP;
367: ELSE
368: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
369: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
370: FND_MSG_PUB.add;
371: RAISE FND_API.G_EXC_ERROR;
372: END IF;
373: --Get the customer name
374: IF l_txn_hdr_rec.claim_type_flag = 'CUST_CL' THEN

Line 388: FND_MSG_PUB.add;

384: END LOOP;
385: ELSE
386: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
387: FND_MESSAGE.set_token('ID', 'Customer Account ID');
388: FND_MSG_PUB.add;
389: RAISE FND_API.G_EXC_ERROR;
390: END IF;
391: END IF;
392: END LOOP; --Checked for all the lines in the table type variable.

Line 461: FND_MSG_PUB.add;

457: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
458: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
459: fnd_message.set_token('ERRNO', sqlcode);
460: fnd_message.set_token('REASON', 'NO ITEM DESC RETRIEVED');
461: FND_MSG_PUB.add;
462: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
463: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
464: END IF;
465: RAISE FND_API.G_EXC_ERROR;

Line 462: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

458: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
459: fnd_message.set_token('ERRNO', sqlcode);
460: fnd_message.set_token('REASON', 'NO ITEM DESC RETRIEVED');
461: FND_MSG_PUB.add;
462: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
463: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
464: END IF;
465: RAISE FND_API.G_EXC_ERROR;
466: WHEN OTHERS THEN

Line 463: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

459: fnd_message.set_token('ERRNO', sqlcode);
460: fnd_message.set_token('REASON', 'NO ITEM DESC RETRIEVED');
461: FND_MSG_PUB.add;
462: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
463: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
464: END IF;
465: RAISE FND_API.G_EXC_ERROR;
466: WHEN OTHERS THEN
467: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 471: FND_MSG_PUB.add;

467: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
468: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
469: fnd_message.set_token('ERRNO', sqlcode);
470: fnd_message.set_token('REASON', sqlerrm);
471: FND_MSG_PUB.add;
472: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
473: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
474: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
475: FND_MSG_PUB.add;

Line 472: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

468: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
469: fnd_message.set_token('ERRNO', sqlcode);
470: fnd_message.set_token('REASON', sqlerrm);
471: FND_MSG_PUB.add;
472: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
473: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
474: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
475: FND_MSG_PUB.add;
476: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 475: FND_MSG_PUB.add;

471: FND_MSG_PUB.add;
472: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
473: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
474: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
475: FND_MSG_PUB.add;
476: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
477: END IF;
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: END;

Line 476: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

472: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
473: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
474: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
475: FND_MSG_PUB.add;
476: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
477: END IF;
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: END;
480: IF l_price_increase_flag = 'Y' THEN

Line 522: FND_MSG_PUB.add;

518: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
519: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
520: fnd_message.set_token('ERRNO', sqlcode);
521: fnd_message.set_token('REASON', 'Error while Creating Claim in Trade Management');
522: FND_MSG_PUB.add;
523: --Update the GT table with the reason for failure
524: UPDATE DPP_CUSTOMER_CLAIMS_GT
525: SET reason_for_failure = nvl(substr(l_msg_data,1,4000),'Error while Creating Claim in Trade Management');
526: IF SQL%ROWCOUNT = 0 THEN

Line 572: FND_MSG_PUB.add;

568: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
569: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
570: fnd_message.set_token('ERRNO', sqlcode);
571: fnd_message.set_token('REASON', sqlerrm);
572: FND_MSG_PUB.add;
573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
574: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
575: END IF;
576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

569: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
570: fnd_message.set_token('ERRNO', sqlcode);
571: fnd_message.set_token('REASON', sqlerrm);
572: FND_MSG_PUB.add;
573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
574: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
575: END IF;
576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
577: END;

Line 574: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

570: fnd_message.set_token('ERRNO', sqlcode);
571: fnd_message.set_token('REASON', sqlerrm);
572: FND_MSG_PUB.add;
573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
574: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
575: END IF;
576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
577: END;
578: --Insert the claim id into the global temp table..

Line 647: FND_MSG_PUB.add;

643: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
644: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
645: fnd_message.set_token('ERRNO', sqlcode);
646: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
647: FND_MSG_PUB.add;
648: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
649: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
650: END IF;
651: RAISE FND_API.G_EXC_ERROR;

Line 648: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

644: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
645: fnd_message.set_token('ERRNO', sqlcode);
646: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
647: FND_MSG_PUB.add;
648: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
649: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
650: END IF;
651: RAISE FND_API.G_EXC_ERROR;
652: WHEN OTHERS THEN

Line 649: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

645: fnd_message.set_token('ERRNO', sqlcode);
646: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
647: FND_MSG_PUB.add;
648: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
649: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
650: END IF;
651: RAISE FND_API.G_EXC_ERROR;
652: WHEN OTHERS THEN
653: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 657: FND_MSG_PUB.add;

653: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
654: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
655: fnd_message.set_token('ERRNO', sqlcode);
656: fnd_message.set_token('REASON', sqlerrm);
657: FND_MSG_PUB.add;
658: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
659: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
660: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
661: FND_MSG_PUB.add;

Line 658: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

654: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
655: fnd_message.set_token('ERRNO', sqlcode);
656: fnd_message.set_token('REASON', sqlerrm);
657: FND_MSG_PUB.add;
658: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
659: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
660: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
661: FND_MSG_PUB.add;
662: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 661: FND_MSG_PUB.add;

657: FND_MSG_PUB.add;
658: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
659: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
660: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
661: FND_MSG_PUB.add;
662: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
663: END IF;
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: END;

Line 662: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

658: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
659: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
660: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
661: FND_MSG_PUB.add;
662: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
663: END IF;
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: END;
666: l_claim_pub_rec.object_version_number := l_object_version_number;

Line 690: FND_MSG_PUB.add;

686: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
687: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
688: fnd_message.set_token('ERRNO', sqlcode);
689: fnd_message.set_token('REASON', 'Error while Updating Claim in Trade Management');
690: FND_MSG_PUB.add;
691: --Delete the claim numbers from the GT table
692: UPDATE DPP_CUSTOMER_CLAIMS_GT
693: SET claim_id = null,
694: claim_number = null;

Line 757: FND_MSG_PUB.add;

753: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
754: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
755: fnd_message.set_token('ERRNO', sqlcode);
756: fnd_message.set_token('REASON', 'Error while Creating Claim in Trade Management');
757: FND_MSG_PUB.add;
758: --Update the claim id into the global temp table..
759: UPDATE DPP_CUSTOMER_CLAIMS_GT
760: SET reason_for_failure = nvl(substr(l_msg_data,1,4000),'Error while Creating Claim in Trade Management')
761: WHERE currency = grpby_currency_rec.Currency;

Line 785: FND_MSG_PUB.add;

781: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
782: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
783: fnd_message.set_token('ERRNO', sqlcode);
784: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
785: FND_MSG_PUB.add;
786: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
787: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
788: END IF;
789: RAISE FND_API.G_EXC_ERROR;

Line 786: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

782: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
783: fnd_message.set_token('ERRNO', sqlcode);
784: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
785: FND_MSG_PUB.add;
786: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
787: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
788: END IF;
789: RAISE FND_API.G_EXC_ERROR;
790: WHEN OTHERS THEN

Line 787: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

783: fnd_message.set_token('ERRNO', sqlcode);
784: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
785: FND_MSG_PUB.add;
786: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
787: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
788: END IF;
789: RAISE FND_API.G_EXC_ERROR;
790: WHEN OTHERS THEN
791: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 795: FND_MSG_PUB.add;

791: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
792: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
793: fnd_message.set_token('ERRNO', sqlcode);
794: fnd_message.set_token('REASON', sqlerrm);
795: FND_MSG_PUB.add;
796: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
797: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
798: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
799: FND_MSG_PUB.add;

Line 796: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

792: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
793: fnd_message.set_token('ERRNO', sqlcode);
794: fnd_message.set_token('REASON', sqlerrm);
795: FND_MSG_PUB.add;
796: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
797: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
798: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
799: FND_MSG_PUB.add;
800: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 799: FND_MSG_PUB.add;

795: FND_MSG_PUB.add;
796: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
797: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
798: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
799: FND_MSG_PUB.add;
800: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
801: END IF;
802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
803: END;

Line 800: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

796: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
797: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
798: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
799: FND_MSG_PUB.add;
800: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
801: END IF;
802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
803: END;
804: l_claim_pub_rec.object_version_number := l_object_version_number;

Line 827: FND_MSG_PUB.add;

823: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
824: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
825: fnd_message.set_token('ERRNO', sqlcode);
826: fnd_message.set_token('REASON', 'Error while Updating Claim in Trade Management');
827: FND_MSG_PUB.add;
828: ELSE
829: --Get the claim number corresponding to the claim id
830: FOR get_claim_number_rec IN get_claim_number_csr(l_x_claim_id) LOOP
831: l_claim_number := get_claim_number_rec.claim_number;

Line 863: FND_MSG_PUB.add;

859: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
860: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
861: fnd_message.set_token('ERRNO', sqlcode);
862: fnd_message.set_token('REASON', sqlerrm);
863: FND_MSG_PUB.add;
864: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
865: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
866: END IF;
867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 864: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

860: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
861: fnd_message.set_token('ERRNO', sqlcode);
862: fnd_message.set_token('REASON', sqlerrm);
863: FND_MSG_PUB.add;
864: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
865: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
866: END IF;
867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
868: END;

Line 865: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

861: fnd_message.set_token('ERRNO', sqlcode);
862: fnd_message.set_token('REASON', sqlerrm);
863: FND_MSG_PUB.add;
864: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
865: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
866: END IF;
867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
868: END;
869: --Update the claim id into the global temp table..

Line 968: FND_MSG_PUB.add;

964: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
965: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
966: fnd_message.set_token('ERRNO', sqlcode);
967: fnd_message.set_token('REASON', 'Error while Creating Claim in Trade Management');
968: FND_MSG_PUB.add;
969: --Insert the claim id into the global temp table..
970: UPDATE DPP_CUSTOMER_CLAIMS_GT
971: SET reason_for_failure = nvl(substr(l_msg_data,1,4000),'Error while Creating Claim in Trade Management')
972: WHERE currency = grpby_cur_cust_rec.Currency

Line 997: FND_MSG_PUB.add;

993: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
994: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
995: fnd_message.set_token('ERRNO', sqlcode);
996: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
997: FND_MSG_PUB.add;
998: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
999: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1000: END IF;
1001: RAISE FND_API.G_EXC_ERROR;

Line 998: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

994: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
995: fnd_message.set_token('ERRNO', sqlcode);
996: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
997: FND_MSG_PUB.add;
998: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
999: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1000: END IF;
1001: RAISE FND_API.G_EXC_ERROR;
1002: WHEN OTHERS THEN

Line 999: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

995: fnd_message.set_token('ERRNO', sqlcode);
996: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
997: FND_MSG_PUB.add;
998: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
999: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1000: END IF;
1001: RAISE FND_API.G_EXC_ERROR;
1002: WHEN OTHERS THEN
1003: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 1007: FND_MSG_PUB.add;

1003: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1004: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1005: fnd_message.set_token('ERRNO', sqlcode);
1006: fnd_message.set_token('REASON', sqlerrm);
1007: FND_MSG_PUB.add;
1008: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1009: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1010: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
1011: FND_MSG_PUB.add;

Line 1008: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

1004: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1005: fnd_message.set_token('ERRNO', sqlcode);
1006: fnd_message.set_token('REASON', sqlerrm);
1007: FND_MSG_PUB.add;
1008: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1009: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1010: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
1011: FND_MSG_PUB.add;
1012: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 1011: FND_MSG_PUB.add;

1007: FND_MSG_PUB.add;
1008: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1009: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1010: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
1011: FND_MSG_PUB.add;
1012: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1013: END IF;
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END;

Line 1012: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

1008: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1009: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1010: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
1011: FND_MSG_PUB.add;
1012: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1013: END IF;
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END;
1016: l_claim_pub_rec.object_version_number := l_object_version_number;

Line 1039: FND_MSG_PUB.add;

1035: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1036: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1037: fnd_message.set_token('ERRNO', sqlcode);
1038: fnd_message.set_token('REASON', 'Error while Creating Claim in Trade Management');
1039: FND_MSG_PUB.add;
1040: ELSE
1041: --Get the claim number corresponding to the claim id
1042: FOR get_claim_number_rec IN get_claim_number_csr(l_x_claim_id) LOOP
1043: l_claim_number := get_claim_number_rec.claim_number;

Line 1075: FND_MSG_PUB.add;

1071: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1072: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1073: fnd_message.set_token('ERRNO', sqlcode);
1074: fnd_message.set_token('REASON', sqlerrm);
1075: FND_MSG_PUB.add;
1076: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1077: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1078: END IF;
1079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1076: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

1072: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1073: fnd_message.set_token('ERRNO', sqlcode);
1074: fnd_message.set_token('REASON', sqlerrm);
1075: FND_MSG_PUB.add;
1076: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1077: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1078: END IF;
1079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1080: END;

Line 1077: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

1073: fnd_message.set_token('ERRNO', sqlcode);
1074: fnd_message.set_token('REASON', sqlerrm);
1075: FND_MSG_PUB.add;
1076: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1077: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1078: END IF;
1079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1080: END;
1081: --Insert the claim id into the global temp table..

Line 1132: FND_MSG_PUB.add;

1128: END LOOP;
1129: ELSE
1130: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1131: FND_MESSAGE.set_token('ID', 'Claim Type Flag');
1132: FND_MSG_PUB.add;
1133: RAISE FND_API.G_EXC_ERROR;
1134: END IF;
1135: END LOOP; -- End Loop for DPP Price Increase Enhancement
1136:

Line 1204: FND_MSG_PUB.Count_And_Get

1200: THEN
1201: COMMIT;
1202: END IF;
1203: -- Standard call to get message count and if count is 1, get message info.
1204: FND_MSG_PUB.Count_And_Get
1205: (p_count => x_msg_count,
1206: p_data => x_msg_data
1207: );
1208: --Exception Handling

Line 1214: FND_MSG_PUB.Count_And_Get (

1210: WHEN DPP_UTILITY_PVT.resource_locked THEN
1211: ROLLBACK TO CREATE_CLAIMS_PVT;
1212: x_return_status := FND_API.g_ret_sts_error;
1213: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1214: FND_MSG_PUB.Count_And_Get (
1215: p_encoded => FND_API.G_FALSE,
1216: p_count => x_msg_count,
1217: p_data => x_msg_data
1218: );

Line 1221: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

1217: p_data => x_msg_data
1218: );
1219: IF x_msg_count > 1 THEN
1220: FOR I IN 1..x_msg_count LOOP
1221: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1222: END LOOP;
1223: END IF;
1224: WHEN FND_API.G_EXC_ERROR THEN
1225: ROLLBACK TO CREATE_CLAIMS_PVT;

Line 1228: FND_MSG_PUB.Count_And_Get (

1224: WHEN FND_API.G_EXC_ERROR THEN
1225: ROLLBACK TO CREATE_CLAIMS_PVT;
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: -- Standard call to get message count and if count=1, get the message
1228: FND_MSG_PUB.Count_And_Get (
1229: p_encoded => FND_API.G_FALSE,
1230: p_count => x_msg_count,
1231: p_data => x_msg_data
1232: );

Line 1235: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

1231: p_data => x_msg_data
1232: );
1233: IF x_msg_count > 1 THEN
1234: FOR I IN 1..x_msg_count LOOP
1235: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1236: END LOOP;
1237: END IF;
1238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239: ROLLBACK TO CREATE_CLAIMS_PVT;

Line 1242: FND_MSG_PUB.Count_And_Get (

1238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239: ROLLBACK TO CREATE_CLAIMS_PVT;
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1241: -- Standard call to get message count and if count=1, get the message
1242: FND_MSG_PUB.Count_And_Get (
1243: p_encoded => FND_API.G_FALSE,
1244: p_count => x_msg_count,
1245: p_data => x_msg_data
1246: );

Line 1249: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

1245: p_data => x_msg_data
1246: );
1247: IF x_msg_count > 1 THEN
1248: FOR I IN 1..x_msg_count LOOP
1249: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1250: END LOOP;
1251: END IF;
1252: WHEN OTHERS THEN
1253: ROLLBACK TO CREATE_CLAIMS_PVT;

Line 1259: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

1255: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1256: fnd_message.set_token('ERRNO', sqlcode);
1257: fnd_message.set_token('REASON', sqlerrm);
1258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1259: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1260: THEN
1261: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1262: END IF;
1263: -- Standard call to get message count and if count=1, get the message

Line 1261: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

1257: fnd_message.set_token('REASON', sqlerrm);
1258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1259: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1260: THEN
1261: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1262: END IF;
1263: -- Standard call to get message count and if count=1, get the message
1264: FND_MSG_PUB.Count_And_Get (
1265: p_encoded => FND_API.G_FALSE,

Line 1264: FND_MSG_PUB.Count_And_Get (

1260: THEN
1261: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1262: END IF;
1263: -- Standard call to get message count and if count=1, get the message
1264: FND_MSG_PUB.Count_And_Get (
1265: p_encoded => FND_API.G_FALSE,
1266: p_count => x_msg_count,
1267: p_data => x_msg_data
1268: );

Line 1271: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

1267: p_data => x_msg_data
1268: );
1269: IF x_msg_count > 1 THEN
1270: FOR I IN 1..x_msg_count LOOP
1271: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1272: END LOOP;
1273: END IF;
1274:
1275: END Create_Claims;

Line 1345: FND_MSG_PUB.initialize;

1341: END IF;
1342: -- Initialize message list if p_init_msg_list is set to TRUE.
1343: IF FND_API.to_Boolean( p_init_msg_list )
1344: THEN
1345: FND_MSG_PUB.initialize;
1346: END IF;
1347:
1348: -- Debug Message
1349: IF g_debug THEN

Line 1358: FND_MSG_PUB.add;

1354:
1355: IF l_txn_hdr_rec.Transaction_number IS NULL THEN
1356: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1357: FND_MESSAGE.set_token('ID', 'Transaction Number');
1358: FND_MSG_PUB.add;
1359: RAISE FND_API.G_EXC_ERROR;
1360: ELSIF l_txn_hdr_rec.claim_id IS NULL THEN
1361: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1362: FND_MESSAGE.set_token('ID', 'Claim ID');

Line 1363: FND_MSG_PUB.add;

1359: RAISE FND_API.G_EXC_ERROR;
1360: ELSIF l_txn_hdr_rec.claim_id IS NULL THEN
1361: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1362: FND_MESSAGE.set_token('ID', 'Claim ID');
1363: FND_MSG_PUB.add;
1364: RAISE FND_API.G_EXC_ERROR;
1365: ELSIF l_txn_hdr_rec.Transaction_Header_ID IS NULL THEN
1366: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1367: FND_MESSAGE.set_token('ID', 'Transaction Header ID');

Line 1368: FND_MSG_PUB.add;

1364: RAISE FND_API.G_EXC_ERROR;
1365: ELSIF l_txn_hdr_rec.Transaction_Header_ID IS NULL THEN
1366: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1367: FND_MESSAGE.set_token('ID', 'Transaction Header ID');
1368: FND_MSG_PUB.add;
1369: RAISE FND_API.G_EXC_ERROR;
1370: ELSE
1371: l_transaction_number := ''''||l_txn_hdr_rec.Transaction_number||'''';
1372: IF g_debug THEN

Line 1395: FND_MSG_PUB.add;

1391: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1392: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1393: fnd_message.set_token('ERRNO', sqlcode);
1394: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1395: FND_MSG_PUB.add;
1396: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1397: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1398: END IF;
1399: RAISE FND_API.G_EXC_ERROR;

Line 1396: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

1392: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1393: fnd_message.set_token('ERRNO', sqlcode);
1394: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1395: FND_MSG_PUB.add;
1396: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1397: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1398: END IF;
1399: RAISE FND_API.G_EXC_ERROR;
1400: WHEN OTHERS THEN

Line 1397: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

1393: fnd_message.set_token('ERRNO', sqlcode);
1394: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1395: FND_MSG_PUB.add;
1396: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1397: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1398: END IF;
1399: RAISE FND_API.G_EXC_ERROR;
1400: WHEN OTHERS THEN
1401: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 1405: FND_MSG_PUB.add;

1401: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1402: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1403: fnd_message.set_token('ERRNO', sqlcode);
1404: fnd_message.set_token('REASON', sqlerrm);
1405: FND_MSG_PUB.add;
1406: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1407: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1408: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1409: FND_MSG_PUB.add;

Line 1406: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

1402: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1403: fnd_message.set_token('ERRNO', sqlcode);
1404: fnd_message.set_token('REASON', sqlerrm);
1405: FND_MSG_PUB.add;
1406: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1407: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1408: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1409: FND_MSG_PUB.add;
1410: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 1409: FND_MSG_PUB.add;

1405: FND_MSG_PUB.add;
1406: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1407: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1408: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1409: FND_MSG_PUB.add;
1410: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1411: END IF;
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: END;

Line 1410: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

1406: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1407: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1408: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1409: FND_MSG_PUB.add;
1410: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1411: END IF;
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: END;
1414: --Clear the existing records from the table type variable..

Line 1457: FND_MSG_PUB.add;

1453: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1454: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1455: fnd_message.set_token('ERRNO', sqlcode);
1456: fnd_message.set_token('REASON', 'CLAIM LINE DETAILS NOT FOUND');
1457: FND_MSG_PUB.add;
1458: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1459: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1460: END IF;
1461: RAISE FND_API.G_EXC_ERROR;

Line 1458: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

1454: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1455: fnd_message.set_token('ERRNO', sqlcode);
1456: fnd_message.set_token('REASON', 'CLAIM LINE DETAILS NOT FOUND');
1457: FND_MSG_PUB.add;
1458: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1459: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1460: END IF;
1461: RAISE FND_API.G_EXC_ERROR;
1462: WHEN OTHERS THEN

Line 1459: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

1455: fnd_message.set_token('ERRNO', sqlcode);
1456: fnd_message.set_token('REASON', 'CLAIM LINE DETAILS NOT FOUND');
1457: FND_MSG_PUB.add;
1458: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1459: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1460: END IF;
1461: RAISE FND_API.G_EXC_ERROR;
1462: WHEN OTHERS THEN
1463: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 1467: FND_MSG_PUB.add;

1463: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1464: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1465: fnd_message.set_token('ERRNO', sqlcode);
1466: fnd_message.set_token('REASON', sqlerrm);
1467: FND_MSG_PUB.add;
1468: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1469: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_LINE_DETAILS');
1470: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1471: fnd_message.set_token('ITEM_ID', l_txn_line_tbl(i).Inventory_Item_Id);

Line 1468: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

1464: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1465: fnd_message.set_token('ERRNO', sqlcode);
1466: fnd_message.set_token('REASON', sqlerrm);
1467: FND_MSG_PUB.add;
1468: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1469: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_LINE_DETAILS');
1470: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1471: fnd_message.set_token('ITEM_ID', l_txn_line_tbl(i).Inventory_Item_Id);
1472: FND_MSG_PUB.add;

Line 1472: FND_MSG_PUB.add;

1468: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1469: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_LINE_DETAILS');
1470: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1471: fnd_message.set_token('ITEM_ID', l_txn_line_tbl(i).Inventory_Item_Id);
1472: FND_MSG_PUB.add;
1473: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1474: END IF;
1475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: END;

Line 1473: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

1469: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_LINE_DETAILS');
1470: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1471: fnd_message.set_token('ITEM_ID', l_txn_line_tbl(i).Inventory_Item_Id);
1472: FND_MSG_PUB.add;
1473: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1474: END IF;
1475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: END;
1477: l_claim_line_pub_tbl(i).claim_id := l_txn_hdr_rec.claim_id;

Line 1545: FND_MSG_PUB.add;

1541: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1542: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1543: fnd_message.set_token('ERRNO', sqlcode);
1544: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1545: FND_MSG_PUB.add;
1546: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1547: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1548: END IF;
1549: RAISE FND_API.G_EXC_ERROR;

Line 1546: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

1542: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1543: fnd_message.set_token('ERRNO', sqlcode);
1544: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1545: FND_MSG_PUB.add;
1546: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1547: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1548: END IF;
1549: RAISE FND_API.G_EXC_ERROR;
1550: WHEN OTHERS THEN

Line 1547: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

1543: fnd_message.set_token('ERRNO', sqlcode);
1544: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1545: FND_MSG_PUB.add;
1546: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1547: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1548: END IF;
1549: RAISE FND_API.G_EXC_ERROR;
1550: WHEN OTHERS THEN
1551: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 1555: FND_MSG_PUB.add;

1551: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1552: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1553: fnd_message.set_token('ERRNO', sqlcode);
1554: fnd_message.set_token('REASON', sqlerrm);
1555: FND_MSG_PUB.add;
1556: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1557: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1558: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1559: FND_MSG_PUB.add;

Line 1556: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

1552: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1553: fnd_message.set_token('ERRNO', sqlcode);
1554: fnd_message.set_token('REASON', sqlerrm);
1555: FND_MSG_PUB.add;
1556: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1557: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1558: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1559: FND_MSG_PUB.add;
1560: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 1559: FND_MSG_PUB.add;

1555: FND_MSG_PUB.add;
1556: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1557: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1558: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1559: FND_MSG_PUB.add;
1560: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1561: END IF;
1562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1563: END;

Line 1560: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

1556: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1557: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1558: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1559: FND_MSG_PUB.add;
1560: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1561: END IF;
1562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1563: END;
1564: l_claim_pub_rec.object_version_number := l_object_version_number;

Line 1612: FND_MSG_PUB.add;

1608: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1609: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1610: fnd_message.set_token('ERRNO', sqlcode);
1611: fnd_message.set_token('REASON', 'Error while Updating claim in Trade Management');
1612: FND_MSG_PUB.add;
1613: RAISE FND_API.G_EXC_ERROR;
1614: END IF;
1615:
1616: -- Debug Message

Line 1626: FND_MSG_PUB.Count_And_Get

1622: THEN
1623: COMMIT;
1624: END IF;
1625: -- Standard call to get message count and if count is 1, get message info.
1626: FND_MSG_PUB.Count_And_Get
1627: (p_count => x_msg_count,
1628: p_data => x_msg_data
1629: );
1630: --Exception Handling

Line 1636: FND_MSG_PUB.Count_And_Get (

1632: WHEN DPP_UTILITY_PVT.resource_locked THEN
1633: ROLLBACK TO UPDATE_CLAIMS_PVT;
1634: x_return_status := FND_API.g_ret_sts_error;
1635: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1636: FND_MSG_PUB.Count_And_Get (
1637: p_encoded => FND_API.G_FALSE,
1638: p_count => x_msg_count,
1639: p_data => x_msg_data
1640: );

Line 1643: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

1639: p_data => x_msg_data
1640: );
1641: IF x_msg_count > 1 THEN
1642: FOR I IN 1..x_msg_count LOOP
1643: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1644: END LOOP;
1645: END IF;
1646: WHEN FND_API.G_EXC_ERROR THEN
1647: ROLLBACK TO UPDATE_CLAIMS_PVT;

Line 1650: FND_MSG_PUB.Count_And_Get (

1646: WHEN FND_API.G_EXC_ERROR THEN
1647: ROLLBACK TO UPDATE_CLAIMS_PVT;
1648: x_return_status := FND_API.G_RET_STS_ERROR;
1649: -- Standard call to get message count and if count=1, get the message
1650: FND_MSG_PUB.Count_And_Get (
1651: p_encoded => FND_API.G_FALSE,
1652: p_count => x_msg_count,
1653: p_data => x_msg_data
1654: );

Line 1657: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

1653: p_data => x_msg_data
1654: );
1655: IF x_msg_count > 1 THEN
1656: FOR I IN 1..x_msg_count LOOP
1657: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1658: END LOOP;
1659: END IF;
1660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1661: ROLLBACK TO UPDATE_CLAIMS_PVT;

Line 1664: FND_MSG_PUB.Count_And_Get (

1660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1661: ROLLBACK TO UPDATE_CLAIMS_PVT;
1662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1663: -- Standard call to get message count and if count=1, get the message
1664: FND_MSG_PUB.Count_And_Get (
1665: p_encoded => FND_API.G_FALSE,
1666: p_count => x_msg_count,
1667: p_data => x_msg_data
1668: );

Line 1671: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

1667: p_data => x_msg_data
1668: );
1669: IF x_msg_count > 1 THEN
1670: FOR I IN 1..x_msg_count LOOP
1671: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1672: END LOOP;
1673: END IF;
1674: WHEN OTHERS THEN
1675: ROLLBACK TO UPDATE_CLAIMS_PVT;

Line 1680: FND_MSG_PUB.add;

1676: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1677: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1678: fnd_message.set_token('ERRNO', sqlcode);
1679: fnd_message.set_token('REASON', sqlerrm);
1680: FND_MSG_PUB.add;
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1683: THEN
1684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

Line 1682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

1678: fnd_message.set_token('ERRNO', sqlcode);
1679: fnd_message.set_token('REASON', sqlerrm);
1680: FND_MSG_PUB.add;
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1683: THEN
1684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1685: END IF;
1686: -- Standard call to get message count and if count=1, get the message

Line 1684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

1680: FND_MSG_PUB.add;
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1683: THEN
1684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1685: END IF;
1686: -- Standard call to get message count and if count=1, get the message
1687: FND_MSG_PUB.Count_And_Get (
1688: p_encoded => FND_API.G_FALSE,

Line 1687: FND_MSG_PUB.Count_And_Get (

1683: THEN
1684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1685: END IF;
1686: -- Standard call to get message count and if count=1, get the message
1687: FND_MSG_PUB.Count_And_Get (
1688: p_encoded => FND_API.G_FALSE,
1689: p_count => x_msg_count,
1690: p_data => x_msg_data
1691: );

Line 1694: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

1690: p_data => x_msg_data
1691: );
1692: IF x_msg_count > 1 THEN
1693: FOR I IN 1..x_msg_count LOOP
1694: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1695: END LOOP;
1696: END IF;
1697:
1698: END Update_Claims;