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 223: FND_MSG_PUB.initialize;

219: END IF;
220: -- Initialize message list if p_init_msg_list is set to TRUE.
221: IF FND_API.to_Boolean( p_init_msg_list )
222: THEN
223: FND_MSG_PUB.initialize;
224: END IF;
225: -- Debug Message
226: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Public API: ' || l_api_name || 'start');
227:

Line 261: FND_MSG_PUB.add;

257: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
258: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
259: fnd_message.set_token('ERRNO', sqlcode);
260: fnd_message.set_token('REASON', 'NO CUST ACCOUNT ID RETRIEVED');
261: FND_MSG_PUB.add;
262: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
263: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
264: END IF;
265: RAISE FND_API.G_EXC_ERROR;

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

258: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
259: fnd_message.set_token('ERRNO', sqlcode);
260: fnd_message.set_token('REASON', 'NO CUST ACCOUNT ID RETRIEVED');
261: FND_MSG_PUB.add;
262: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
263: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
264: END IF;
265: RAISE FND_API.G_EXC_ERROR;
266: WHEN OTHERS THEN

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

259: fnd_message.set_token('ERRNO', sqlcode);
260: fnd_message.set_token('REASON', 'NO CUST ACCOUNT ID RETRIEVED');
261: FND_MSG_PUB.add;
262: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
263: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
264: END IF;
265: RAISE FND_API.G_EXC_ERROR;
266: WHEN OTHERS THEN
267: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 271: FND_MSG_PUB.add;

267: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
268: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
269: fnd_message.set_token('ERRNO', sqlcode);
270: fnd_message.set_token('REASON', sqlerrm);
271: FND_MSG_PUB.add;
272: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
273: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_TRD_PROFILE');
274: fnd_message.set_token('VENDORID', l_txn_hdr_rec.Vendor_ID);
275: FND_MSG_PUB.add;

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

268: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
269: fnd_message.set_token('ERRNO', sqlcode);
270: fnd_message.set_token('REASON', sqlerrm);
271: FND_MSG_PUB.add;
272: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
273: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_TRD_PROFILE');
274: fnd_message.set_token('VENDORID', l_txn_hdr_rec.Vendor_ID);
275: FND_MSG_PUB.add;
276: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 275: FND_MSG_PUB.add;

271: FND_MSG_PUB.add;
272: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
273: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_TRD_PROFILE');
274: fnd_message.set_token('VENDORID', l_txn_hdr_rec.Vendor_ID);
275: FND_MSG_PUB.add;
276: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
277: END IF;
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: END;

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

272: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
273: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_TRD_PROFILE');
274: fnd_message.set_token('VENDORID', l_txn_hdr_rec.Vendor_ID);
275: FND_MSG_PUB.add;
276: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
277: END IF;
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: END;
280:

Line 360: FND_MSG_PUB.add;

356: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
357: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
358: fnd_message.set_token('ERRNO', sqlcode);
359: fnd_message.set_token('REASON', sqlerrm);
360: FND_MSG_PUB.add;
361: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
362: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
363: END IF;
364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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

357: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
358: fnd_message.set_token('ERRNO', sqlcode);
359: fnd_message.set_token('REASON', sqlerrm);
360: FND_MSG_PUB.add;
361: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
362: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
363: END IF;
364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
365: END;

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

358: fnd_message.set_token('ERRNO', sqlcode);
359: fnd_message.set_token('REASON', sqlerrm);
360: FND_MSG_PUB.add;
361: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
362: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
363: END IF;
364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
365: END;
366: --Get the item number

Line 380: FND_MSG_PUB.add;

376: END LOOP;
377: ELSE
378: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
379: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
380: FND_MSG_PUB.add;
381: RAISE FND_API.G_EXC_ERROR;
382: END IF;
383: --Get the customer name
384: IF l_txn_hdr_rec.claim_type_flag = 'CUST_CL' THEN

Line 398: FND_MSG_PUB.add;

394: END LOOP;
395: ELSE
396: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
397: FND_MESSAGE.set_token('ID', 'Customer Account ID');
398: FND_MSG_PUB.add;
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
401: END IF;
402: END LOOP; --Checked for all the lines in the table type variable.

Line 472: FND_MSG_PUB.add;

468: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
469: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
470: fnd_message.set_token('ERRNO', sqlcode);
471: fnd_message.set_token('REASON', 'NO ITEM DESC RETRIEVED');
472: FND_MSG_PUB.add;
473: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
474: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
475: END IF;
476: RAISE FND_API.G_EXC_ERROR;

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

469: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
470: fnd_message.set_token('ERRNO', sqlcode);
471: fnd_message.set_token('REASON', 'NO ITEM DESC RETRIEVED');
472: FND_MSG_PUB.add;
473: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
474: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
475: END IF;
476: RAISE FND_API.G_EXC_ERROR;
477: WHEN OTHERS THEN

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

470: fnd_message.set_token('ERRNO', sqlcode);
471: fnd_message.set_token('REASON', 'NO ITEM DESC RETRIEVED');
472: FND_MSG_PUB.add;
473: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
474: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
475: END IF;
476: RAISE FND_API.G_EXC_ERROR;
477: WHEN OTHERS THEN
478: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 482: FND_MSG_PUB.add;

478: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
479: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
480: fnd_message.set_token('ERRNO', sqlcode);
481: fnd_message.set_token('REASON', sqlerrm);
482: FND_MSG_PUB.add;
483: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
484: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
485: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
486: FND_MSG_PUB.add;

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

479: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
480: fnd_message.set_token('ERRNO', sqlcode);
481: fnd_message.set_token('REASON', sqlerrm);
482: FND_MSG_PUB.add;
483: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
484: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
485: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
486: FND_MSG_PUB.add;
487: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 486: FND_MSG_PUB.add;

482: FND_MSG_PUB.add;
483: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
484: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
485: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
486: FND_MSG_PUB.add;
487: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
488: END IF;
489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
490: END;

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

483: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
484: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
485: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
486: FND_MSG_PUB.add;
487: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
488: END IF;
489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
490: END;
491: IF l_price_increase_flag = 'Y' THEN

Line 531: FND_MSG_PUB.add;

527: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
528: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
529: fnd_message.set_token('ERRNO', sqlcode);
530: fnd_message.set_token('REASON', 'Error while Creating Claim in Trade Management');
531: FND_MSG_PUB.add;
532: --Update the GT table with the reason for failure
533: UPDATE DPP_CUSTOMER_CLAIMS_GT
534: SET reason_for_failure = nvl(substr(l_msg_data,1,4000),'Error while Creating Claim in Trade Management');
535: IF SQL%ROWCOUNT = 0 THEN

Line 581: FND_MSG_PUB.add;

577: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
578: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
579: fnd_message.set_token('ERRNO', sqlcode);
580: fnd_message.set_token('REASON', sqlerrm);
581: FND_MSG_PUB.add;
582: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
583: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
584: END IF;
585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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

578: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
579: fnd_message.set_token('ERRNO', sqlcode);
580: fnd_message.set_token('REASON', sqlerrm);
581: FND_MSG_PUB.add;
582: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
583: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
584: END IF;
585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
586: END;

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

579: fnd_message.set_token('ERRNO', sqlcode);
580: fnd_message.set_token('REASON', sqlerrm);
581: FND_MSG_PUB.add;
582: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
583: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
584: END IF;
585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
586: END;
587: --Insert the claim id into the global temp table..

Line 660: FND_MSG_PUB.add;

656: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
657: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
658: fnd_message.set_token('ERRNO', sqlcode);
659: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
660: FND_MSG_PUB.add;
661: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
662: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
663: END IF;
664: RAISE FND_API.G_EXC_ERROR;

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

657: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
658: fnd_message.set_token('ERRNO', sqlcode);
659: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
660: FND_MSG_PUB.add;
661: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
662: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
663: END IF;
664: RAISE FND_API.G_EXC_ERROR;
665: WHEN OTHERS THEN

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

658: fnd_message.set_token('ERRNO', sqlcode);
659: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
660: FND_MSG_PUB.add;
661: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
662: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
663: END IF;
664: RAISE FND_API.G_EXC_ERROR;
665: WHEN OTHERS THEN
666: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 670: FND_MSG_PUB.add;

666: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
667: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
668: fnd_message.set_token('ERRNO', sqlcode);
669: fnd_message.set_token('REASON', sqlerrm);
670: FND_MSG_PUB.add;
671: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
672: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
673: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
674: FND_MSG_PUB.add;

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

667: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
668: fnd_message.set_token('ERRNO', sqlcode);
669: fnd_message.set_token('REASON', sqlerrm);
670: FND_MSG_PUB.add;
671: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
672: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
673: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
674: FND_MSG_PUB.add;
675: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 674: FND_MSG_PUB.add;

670: FND_MSG_PUB.add;
671: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
672: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
673: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
674: FND_MSG_PUB.add;
675: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
676: END IF;
677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
678: END;

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

671: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
672: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
673: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
674: FND_MSG_PUB.add;
675: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
676: END IF;
677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
678: END;
679: l_claim_pub_rec.object_version_number := l_object_version_number;

Line 703: FND_MSG_PUB.add;

699: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
700: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
701: fnd_message.set_token('ERRNO', sqlcode);
702: fnd_message.set_token('REASON', 'Error while Updating Claim in Trade Management');
703: FND_MSG_PUB.add;
704: --Delete the claim numbers from the GT table
705: UPDATE DPP_CUSTOMER_CLAIMS_GT
706: SET claim_id = null,
707: claim_number = null;

Line 769: FND_MSG_PUB.add;

765: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
766: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
767: fnd_message.set_token('ERRNO', sqlcode);
768: fnd_message.set_token('REASON', 'Error while Creating Claim in Trade Management');
769: FND_MSG_PUB.add;
770: --Update the claim id into the global temp table..
771: UPDATE DPP_CUSTOMER_CLAIMS_GT
772: SET reason_for_failure = nvl(substr(l_msg_data,1,4000),'Error while Creating Claim in Trade Management')
773: WHERE currency = grpby_currency_rec.Currency;

Line 799: FND_MSG_PUB.add;

795: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
796: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
797: fnd_message.set_token('ERRNO', sqlcode);
798: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
799: FND_MSG_PUB.add;
800: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
801: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
802: END IF;
803: RAISE FND_API.G_EXC_ERROR;

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

796: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
797: fnd_message.set_token('ERRNO', sqlcode);
798: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
799: FND_MSG_PUB.add;
800: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
801: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
802: END IF;
803: RAISE FND_API.G_EXC_ERROR;
804: WHEN OTHERS THEN

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

797: fnd_message.set_token('ERRNO', sqlcode);
798: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
799: FND_MSG_PUB.add;
800: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
801: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
802: END IF;
803: RAISE FND_API.G_EXC_ERROR;
804: WHEN OTHERS THEN
805: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 809: FND_MSG_PUB.add;

805: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
806: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
807: fnd_message.set_token('ERRNO', sqlcode);
808: fnd_message.set_token('REASON', sqlerrm);
809: FND_MSG_PUB.add;
810: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
811: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
812: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
813: FND_MSG_PUB.add;

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

806: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
807: fnd_message.set_token('ERRNO', sqlcode);
808: fnd_message.set_token('REASON', sqlerrm);
809: FND_MSG_PUB.add;
810: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
811: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
812: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
813: FND_MSG_PUB.add;
814: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 813: FND_MSG_PUB.add;

809: FND_MSG_PUB.add;
810: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
811: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
812: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
813: FND_MSG_PUB.add;
814: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
815: END IF;
816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
817: END;

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

810: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
811: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
812: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
813: FND_MSG_PUB.add;
814: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
815: END IF;
816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
817: END;
818: l_claim_pub_rec.object_version_number := l_object_version_number;

Line 841: FND_MSG_PUB.add;

837: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
838: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
839: fnd_message.set_token('ERRNO', sqlcode);
840: fnd_message.set_token('REASON', 'Error while Updating Claim in Trade Management');
841: FND_MSG_PUB.add;
842: ELSE
843: --Get the claim number corresponding to the claim id
844: FOR get_claim_number_rec IN get_claim_number_csr(l_x_claim_id) LOOP
845: l_claim_number := get_claim_number_rec.claim_number;

Line 877: FND_MSG_PUB.add;

873: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
874: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
875: fnd_message.set_token('ERRNO', sqlcode);
876: fnd_message.set_token('REASON', sqlerrm);
877: FND_MSG_PUB.add;
878: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
879: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
880: END IF;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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

874: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
875: fnd_message.set_token('ERRNO', sqlcode);
876: fnd_message.set_token('REASON', sqlerrm);
877: FND_MSG_PUB.add;
878: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
879: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
880: END IF;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: END;

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

875: fnd_message.set_token('ERRNO', sqlcode);
876: fnd_message.set_token('REASON', sqlerrm);
877: FND_MSG_PUB.add;
878: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
879: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
880: END IF;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: END;
883: --Update the claim id into the global temp table..

Line 982: FND_MSG_PUB.add;

978: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
979: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
980: fnd_message.set_token('ERRNO', sqlcode);
981: fnd_message.set_token('REASON', 'Error while Creating Claim in Trade Management');
982: FND_MSG_PUB.add;
983: --Insert the claim id into the global temp table..
984: UPDATE DPP_CUSTOMER_CLAIMS_GT
985: SET reason_for_failure = nvl(substr(l_msg_data,1,4000),'Error while Creating Claim in Trade Management')
986: WHERE currency = grpby_cur_cust_rec.Currency

Line 1013: FND_MSG_PUB.add;

1009: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1010: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1011: fnd_message.set_token('ERRNO', sqlcode);
1012: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1013: FND_MSG_PUB.add;
1014: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1015: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1016: END IF;
1017: RAISE FND_API.G_EXC_ERROR;

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

1010: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1011: fnd_message.set_token('ERRNO', sqlcode);
1012: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1013: FND_MSG_PUB.add;
1014: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1015: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1016: END IF;
1017: RAISE FND_API.G_EXC_ERROR;
1018: WHEN OTHERS THEN

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

1011: fnd_message.set_token('ERRNO', sqlcode);
1012: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1013: FND_MSG_PUB.add;
1014: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1015: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1016: END IF;
1017: RAISE FND_API.G_EXC_ERROR;
1018: WHEN OTHERS THEN
1019: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 1023: FND_MSG_PUB.add;

1019: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1020: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1021: fnd_message.set_token('ERRNO', sqlcode);
1022: fnd_message.set_token('REASON', sqlerrm);
1023: FND_MSG_PUB.add;
1024: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1025: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1026: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
1027: FND_MSG_PUB.add;

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

1020: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1021: fnd_message.set_token('ERRNO', sqlcode);
1022: fnd_message.set_token('REASON', sqlerrm);
1023: FND_MSG_PUB.add;
1024: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1025: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1026: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
1027: FND_MSG_PUB.add;
1028: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 1027: FND_MSG_PUB.add;

1023: FND_MSG_PUB.add;
1024: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1025: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1026: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
1027: FND_MSG_PUB.add;
1028: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1029: END IF;
1030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1031: END;

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

1024: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1025: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1026: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
1027: FND_MSG_PUB.add;
1028: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1029: END IF;
1030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1031: END;
1032: l_claim_pub_rec.object_version_number := l_object_version_number;

Line 1055: FND_MSG_PUB.add;

1051: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1052: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1053: fnd_message.set_token('ERRNO', sqlcode);
1054: fnd_message.set_token('REASON', 'Error while Creating Claim in Trade Management');
1055: FND_MSG_PUB.add;
1056: ELSE
1057: --Get the claim number corresponding to the claim id
1058: FOR get_claim_number_rec IN get_claim_number_csr(l_x_claim_id) LOOP
1059: l_claim_number := get_claim_number_rec.claim_number;

Line 1091: FND_MSG_PUB.add;

1087: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1088: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1089: fnd_message.set_token('ERRNO', sqlcode);
1090: fnd_message.set_token('REASON', sqlerrm);
1091: FND_MSG_PUB.add;
1092: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1093: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1094: END IF;
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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

1088: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1089: fnd_message.set_token('ERRNO', sqlcode);
1090: fnd_message.set_token('REASON', sqlerrm);
1091: FND_MSG_PUB.add;
1092: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1093: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1094: END IF;
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1096: END;

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

1089: fnd_message.set_token('ERRNO', sqlcode);
1090: fnd_message.set_token('REASON', sqlerrm);
1091: FND_MSG_PUB.add;
1092: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1093: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1094: END IF;
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1096: END;
1097: --Insert the claim id into the global temp table..

Line 1148: FND_MSG_PUB.add;

1144: END LOOP;
1145: ELSE
1146: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1147: FND_MESSAGE.set_token('ID', 'Claim Type Flag');
1148: FND_MSG_PUB.add;
1149: RAISE FND_API.G_EXC_ERROR;
1150: END IF;
1151: END LOOP; -- End Loop for DPP Price Increase Enhancement
1152:

Line 1219: FND_MSG_PUB.Count_And_Get

1215: THEN
1216: COMMIT;
1217: END IF;
1218: -- Standard call to get message count and if count is 1, get message info.
1219: FND_MSG_PUB.Count_And_Get
1220: (p_count => x_msg_count,
1221: p_data => x_msg_data
1222: );
1223: --Exception Handling

Line 1229: FND_MSG_PUB.Count_And_Get (

1225: WHEN DPP_UTILITY_PVT.resource_locked THEN
1226: ROLLBACK TO CREATE_CLAIMS_PVT;
1227: x_return_status := FND_API.g_ret_sts_error;
1228: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1229: FND_MSG_PUB.Count_And_Get (
1230: p_encoded => FND_API.G_FALSE,
1231: p_count => x_msg_count,
1232: p_data => x_msg_data
1233: );

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

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

Line 1243: FND_MSG_PUB.Count_And_Get (

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

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

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

Line 1257: FND_MSG_PUB.Count_And_Get (

1253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1254: ROLLBACK TO CREATE_CLAIMS_PVT;
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: -- Standard call to get message count and if count=1, get the message
1257: FND_MSG_PUB.Count_And_Get (
1258: p_encoded => FND_API.G_FALSE,
1259: p_count => x_msg_count,
1260: p_data => x_msg_data
1261: );

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

1260: p_data => x_msg_data
1261: );
1262: IF x_msg_count > 1 THEN
1263: FOR I IN 1..x_msg_count LOOP
1264: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1265: END LOOP;
1266: END IF;
1267: WHEN OTHERS THEN
1268: ROLLBACK TO CREATE_CLAIMS_PVT;

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

1270: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1271: fnd_message.set_token('ERRNO', sqlcode);
1272: fnd_message.set_token('REASON', sqlerrm);
1273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1274: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1275: THEN
1276: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1277: END IF;
1278: -- Standard call to get message count and if count=1, get the message

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

1272: fnd_message.set_token('REASON', sqlerrm);
1273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1274: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1275: THEN
1276: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1277: END IF;
1278: -- Standard call to get message count and if count=1, get the message
1279: FND_MSG_PUB.Count_And_Get (
1280: p_encoded => FND_API.G_FALSE,

Line 1279: FND_MSG_PUB.Count_And_Get (

1275: THEN
1276: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1277: END IF;
1278: -- Standard call to get message count and if count=1, get the message
1279: FND_MSG_PUB.Count_And_Get (
1280: p_encoded => FND_API.G_FALSE,
1281: p_count => x_msg_count,
1282: p_data => x_msg_data
1283: );

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

1282: p_data => x_msg_data
1283: );
1284: IF x_msg_count > 1 THEN
1285: FOR I IN 1..x_msg_count LOOP
1286: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1287: END LOOP;
1288: END IF;
1289:
1290: END Create_Claims;

Line 1361: FND_MSG_PUB.initialize;

1357: END IF;
1358: -- Initialize message list if p_init_msg_list is set to TRUE.
1359: IF FND_API.to_Boolean( p_init_msg_list )
1360: THEN
1361: FND_MSG_PUB.initialize;
1362: END IF;
1363:
1364: -- Debug Message
1365: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Public API: ' || l_api_name || 'start');

Line 1373: FND_MSG_PUB.add;

1369:
1370: IF l_txn_hdr_rec.Transaction_number IS NULL THEN
1371: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1372: FND_MESSAGE.set_token('ID', 'Transaction Number');
1373: FND_MSG_PUB.add;
1374: RAISE FND_API.G_EXC_ERROR;
1375: ELSIF l_txn_hdr_rec.claim_id IS NULL THEN
1376: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1377: FND_MESSAGE.set_token('ID', 'Claim ID');

Line 1378: FND_MSG_PUB.add;

1374: RAISE FND_API.G_EXC_ERROR;
1375: ELSIF l_txn_hdr_rec.claim_id IS NULL THEN
1376: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1377: FND_MESSAGE.set_token('ID', 'Claim ID');
1378: FND_MSG_PUB.add;
1379: RAISE FND_API.G_EXC_ERROR;
1380: ELSIF l_txn_hdr_rec.Transaction_Header_ID IS NULL THEN
1381: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1382: FND_MESSAGE.set_token('ID', 'Transaction Header ID');

Line 1383: FND_MSG_PUB.add;

1379: RAISE FND_API.G_EXC_ERROR;
1380: ELSIF l_txn_hdr_rec.Transaction_Header_ID IS NULL THEN
1381: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1382: FND_MESSAGE.set_token('ID', 'Transaction Header ID');
1383: FND_MSG_PUB.add;
1384: RAISE FND_API.G_EXC_ERROR;
1385: ELSE
1386: l_transaction_number := ''''||l_txn_hdr_rec.Transaction_number||'''';
1387:

Line 1410: FND_MSG_PUB.add;

1406: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1407: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1408: fnd_message.set_token('ERRNO', sqlcode);
1409: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1410: FND_MSG_PUB.add;
1411: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1412: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1413: END IF;
1414: RAISE FND_API.G_EXC_ERROR;

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

1407: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1408: fnd_message.set_token('ERRNO', sqlcode);
1409: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1410: FND_MSG_PUB.add;
1411: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1412: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1413: END IF;
1414: RAISE FND_API.G_EXC_ERROR;
1415: WHEN OTHERS THEN

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

1408: fnd_message.set_token('ERRNO', sqlcode);
1409: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1410: FND_MSG_PUB.add;
1411: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1412: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1413: END IF;
1414: RAISE FND_API.G_EXC_ERROR;
1415: WHEN OTHERS THEN
1416: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 1420: FND_MSG_PUB.add;

1416: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1417: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1418: fnd_message.set_token('ERRNO', sqlcode);
1419: fnd_message.set_token('REASON', sqlerrm);
1420: FND_MSG_PUB.add;
1421: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1422: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1423: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1424: FND_MSG_PUB.add;

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

1417: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1418: fnd_message.set_token('ERRNO', sqlcode);
1419: fnd_message.set_token('REASON', sqlerrm);
1420: FND_MSG_PUB.add;
1421: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1422: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1423: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1424: FND_MSG_PUB.add;
1425: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 1424: FND_MSG_PUB.add;

1420: FND_MSG_PUB.add;
1421: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1422: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1423: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1424: FND_MSG_PUB.add;
1425: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1426: END IF;
1427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1428: END;

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

1421: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1422: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1423: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1424: FND_MSG_PUB.add;
1425: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1426: END IF;
1427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1428: END;
1429: --Clear the existing records from the table type variable..

Line 1472: FND_MSG_PUB.add;

1468: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1469: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1470: fnd_message.set_token('ERRNO', sqlcode);
1471: fnd_message.set_token('REASON', 'CLAIM LINE DETAILS NOT FOUND');
1472: FND_MSG_PUB.add;
1473: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1474: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1475: END IF;
1476: RAISE FND_API.G_EXC_ERROR;

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

1469: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1470: fnd_message.set_token('ERRNO', sqlcode);
1471: fnd_message.set_token('REASON', 'CLAIM LINE DETAILS NOT FOUND');
1472: FND_MSG_PUB.add;
1473: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1474: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1475: END IF;
1476: RAISE FND_API.G_EXC_ERROR;
1477: WHEN OTHERS THEN

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

1470: fnd_message.set_token('ERRNO', sqlcode);
1471: fnd_message.set_token('REASON', 'CLAIM LINE DETAILS NOT FOUND');
1472: FND_MSG_PUB.add;
1473: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1474: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1475: END IF;
1476: RAISE FND_API.G_EXC_ERROR;
1477: WHEN OTHERS THEN
1478: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 1482: FND_MSG_PUB.add;

1478: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1479: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1480: fnd_message.set_token('ERRNO', sqlcode);
1481: fnd_message.set_token('REASON', sqlerrm);
1482: FND_MSG_PUB.add;
1483: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1484: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_LINE_DETAILS');
1485: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1486: fnd_message.set_token('ITEM_ID', l_txn_line_tbl(i).Inventory_Item_Id);

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

1479: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1480: fnd_message.set_token('ERRNO', sqlcode);
1481: fnd_message.set_token('REASON', sqlerrm);
1482: FND_MSG_PUB.add;
1483: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1484: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_LINE_DETAILS');
1485: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1486: fnd_message.set_token('ITEM_ID', l_txn_line_tbl(i).Inventory_Item_Id);
1487: FND_MSG_PUB.add;

Line 1487: FND_MSG_PUB.add;

1483: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1484: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_LINE_DETAILS');
1485: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1486: fnd_message.set_token('ITEM_ID', l_txn_line_tbl(i).Inventory_Item_Id);
1487: FND_MSG_PUB.add;
1488: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1489: END IF;
1490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1491: END;

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

1484: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_LINE_DETAILS');
1485: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1486: fnd_message.set_token('ITEM_ID', l_txn_line_tbl(i).Inventory_Item_Id);
1487: FND_MSG_PUB.add;
1488: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1489: END IF;
1490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1491: END;
1492: l_claim_line_pub_tbl(i).claim_id := l_txn_hdr_rec.claim_id;

Line 1558: FND_MSG_PUB.add;

1554: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1555: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1556: fnd_message.set_token('ERRNO', sqlcode);
1557: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1558: FND_MSG_PUB.add;
1559: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1560: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1561: END IF;
1562: RAISE FND_API.G_EXC_ERROR;

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

1555: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1556: fnd_message.set_token('ERRNO', sqlcode);
1557: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1558: FND_MSG_PUB.add;
1559: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1560: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1561: END IF;
1562: RAISE FND_API.G_EXC_ERROR;
1563: WHEN OTHERS THEN

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

1556: fnd_message.set_token('ERRNO', sqlcode);
1557: fnd_message.set_token('REASON', 'OBJECT VERSION NUMBER NOT FOUND');
1558: FND_MSG_PUB.add;
1559: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1560: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1561: END IF;
1562: RAISE FND_API.G_EXC_ERROR;
1563: WHEN OTHERS THEN
1564: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');

Line 1568: FND_MSG_PUB.add;

1564: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1565: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1566: fnd_message.set_token('ERRNO', sqlcode);
1567: fnd_message.set_token('REASON', sqlerrm);
1568: FND_MSG_PUB.add;
1569: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1570: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1571: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1572: FND_MSG_PUB.add;

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

1565: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1566: fnd_message.set_token('ERRNO', sqlcode);
1567: fnd_message.set_token('REASON', sqlerrm);
1568: FND_MSG_PUB.add;
1569: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1570: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1571: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1572: FND_MSG_PUB.add;
1573: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);

Line 1572: FND_MSG_PUB.add;

1568: FND_MSG_PUB.add;
1569: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1570: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1571: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1572: FND_MSG_PUB.add;
1573: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1574: END IF;
1575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1576: END;

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

1569: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1570: FND_MESSAGE.set_name('DPP', 'DPP_CLAIM_INVALID_OBJ_VER_NUM');
1571: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1572: FND_MSG_PUB.add;
1573: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1574: END IF;
1575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1576: END;
1577: l_claim_pub_rec.object_version_number := l_object_version_number;

Line 1625: FND_MSG_PUB.add;

1621: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1622: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1623: fnd_message.set_token('ERRNO', sqlcode);
1624: fnd_message.set_token('REASON', 'Error while Updating claim in Trade Management');
1625: FND_MSG_PUB.add;
1626: RAISE FND_API.G_EXC_ERROR;
1627: END IF;
1628:
1629: -- Debug Message

Line 1638: FND_MSG_PUB.Count_And_Get

1634: THEN
1635: COMMIT;
1636: END IF;
1637: -- Standard call to get message count and if count is 1, get message info.
1638: FND_MSG_PUB.Count_And_Get
1639: (p_count => x_msg_count,
1640: p_data => x_msg_data
1641: );
1642: --Exception Handling

Line 1648: FND_MSG_PUB.Count_And_Get (

1644: WHEN DPP_UTILITY_PVT.resource_locked THEN
1645: ROLLBACK TO UPDATE_CLAIMS_PVT;
1646: x_return_status := FND_API.g_ret_sts_error;
1647: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1648: FND_MSG_PUB.Count_And_Get (
1649: p_encoded => FND_API.G_FALSE,
1650: p_count => x_msg_count,
1651: p_data => x_msg_data
1652: );

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

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

Line 1662: FND_MSG_PUB.Count_And_Get (

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

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

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

Line 1676: FND_MSG_PUB.Count_And_Get (

1672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1673: ROLLBACK TO UPDATE_CLAIMS_PVT;
1674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1675: -- Standard call to get message count and if count=1, get the message
1676: FND_MSG_PUB.Count_And_Get (
1677: p_encoded => FND_API.G_FALSE,
1678: p_count => x_msg_count,
1679: p_data => x_msg_data
1680: );

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

1679: p_data => x_msg_data
1680: );
1681: IF x_msg_count > 1 THEN
1682: FOR I IN 1..x_msg_count LOOP
1683: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1684: END LOOP;
1685: END IF;
1686: WHEN OTHERS THEN
1687: ROLLBACK TO UPDATE_CLAIMS_PVT;

Line 1692: FND_MSG_PUB.add;

1688: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1689: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1690: fnd_message.set_token('ERRNO', sqlcode);
1691: fnd_message.set_token('REASON', sqlerrm);
1692: FND_MSG_PUB.add;
1693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1694: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1695: THEN
1696: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);

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

1690: fnd_message.set_token('ERRNO', sqlcode);
1691: fnd_message.set_token('REASON', sqlerrm);
1692: FND_MSG_PUB.add;
1693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1694: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1695: THEN
1696: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1697: END IF;
1698: -- Standard call to get message count and if count=1, get the message

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

1692: FND_MSG_PUB.add;
1693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1694: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1695: THEN
1696: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1697: END IF;
1698: -- Standard call to get message count and if count=1, get the message
1699: FND_MSG_PUB.Count_And_Get (
1700: p_encoded => FND_API.G_FALSE,

Line 1699: FND_MSG_PUB.Count_And_Get (

1695: THEN
1696: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1697: END IF;
1698: -- Standard call to get message count and if count=1, get the message
1699: FND_MSG_PUB.Count_And_Get (
1700: p_encoded => FND_API.G_FALSE,
1701: p_count => x_msg_count,
1702: p_data => x_msg_data
1703: );

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

1702: p_data => x_msg_data
1703: );
1704: IF x_msg_count > 1 THEN
1705: FOR I IN 1..x_msg_count LOOP
1706: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1707: END LOOP;
1708: END IF;
1709:
1710: END Update_Claims;