2452: err_num := SQLCODE;
2453:
2454: IF err_num = -6501 THEN
2455: retcode := 2;
2456: errbuf := fnd_program.MESSAGE;
2457: ELSE
2458: retcode := 2;
2459:
2460: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2707: err_num := SQLCODE;
2708:
2709: IF err_num = -6501 THEN
2710: retcode := 2;
2711: errbuf := fnd_program.MESSAGE;
2712: ELSE
2713: retcode := 2;
2714:
2715: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN