181: IF p_sectid_tbl IS NULL THEN
182: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
183: IBE_UTIL.debug('IBE_CATALOG_PVT.Error p_sect_id_tbl is NULL');
184: END IF;
185: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
186: FND_MSG_PUB.Add;
187: RAISE FND_API.G_EXC_ERROR;
188: ELSE
189: l_sectid_tbl := p_sectid_tbl;
453: --gzhang 08/08/2002, bug#2488246
454: --ibe_util.disable_debug;
455: WHEN OTHERS THEN
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
457: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
458: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
459: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
460: FND_MESSAGE.Set_Token('REASON', SQLERRM);
461: FND_MSG_PUB.Add;
454: --ibe_util.disable_debug;
455: WHEN OTHERS THEN
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
457: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
458: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
459: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
460: FND_MESSAGE.Set_Token('REASON', SQLERRM);
461: FND_MSG_PUB.Add;
462: IF FND_MSG_PUB.Check_Msg_Level
455: WHEN OTHERS THEN
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
457: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
458: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
459: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
460: FND_MESSAGE.Set_Token('REASON', SQLERRM);
461: FND_MSG_PUB.Add;
462: IF FND_MSG_PUB.Check_Msg_Level
463: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
457: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
458: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
459: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
460: FND_MESSAGE.Set_Token('REASON', SQLERRM);
461: FND_MSG_PUB.Add;
462: IF FND_MSG_PUB.Check_Msg_Level
463: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
464: THEN FND_MSG_PUB.Add_Exc_Msg
1122: OPEN l_reltype_csr;
1123: FETCH l_reltype_csr INTO l_rel_start_date_active, l_rel_end_date_active;
1124: IF l_reltype_csr%NOTFOUND THEN
1125: CLOSE l_reltype_csr;
1126: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_REL_NOT_EXIST');
1127: FND_MESSAGE.Set_Token('RELATIONSHIP_TYPE', p_reltype_code);
1128: FND_MSG_PUB.Add;
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1123: FETCH l_reltype_csr INTO l_rel_start_date_active, l_rel_end_date_active;
1124: IF l_reltype_csr%NOTFOUND THEN
1125: CLOSE l_reltype_csr;
1126: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_REL_NOT_EXIST');
1127: FND_MESSAGE.Set_Token('RELATIONSHIP_TYPE', p_reltype_code);
1128: FND_MSG_PUB.Add;
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1131: CLOSE l_reltype_csr;
1524: --gzhang 08/08/2002, bug#2488246
1525: --ibe_util.disable_debug;
1526: WHEN OTHERS THEN
1527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1528: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1529: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1530: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1531: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1532: FND_MSG_PUB.Add;
1525: --ibe_util.disable_debug;
1526: WHEN OTHERS THEN
1527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1528: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1529: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1530: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1531: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1532: FND_MSG_PUB.Add;
1533: IF FND_MSG_PUB.Check_Msg_Level
1526: WHEN OTHERS THEN
1527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1528: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1529: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1530: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1531: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1532: FND_MSG_PUB.Add;
1533: IF FND_MSG_PUB.Check_Msg_Level
1534: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1528: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1529: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1530: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1531: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1532: FND_MSG_PUB.Add;
1533: IF FND_MSG_PUB.Check_Msg_Level
1534: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1535: THEN FND_MSG_PUB.Add_Exc_Msg
1644: --gzhang 08/08/2002, bug#2488246
1645: --ibe_util.disable_debug;
1646: WHEN OTHERS THEN
1647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1648: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1649: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1650: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1651: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1652: FND_MSG_PUB.Add;
1645: --ibe_util.disable_debug;
1646: WHEN OTHERS THEN
1647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1648: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1649: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1650: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1651: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1652: FND_MSG_PUB.Add;
1653: IF FND_MSG_PUB.Check_Msg_Level
1646: WHEN OTHERS THEN
1647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1648: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1649: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1650: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1651: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1652: FND_MSG_PUB.Add;
1653: IF FND_MSG_PUB.Check_Msg_Level
1654: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1648: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1649: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1650: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1651: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1652: FND_MSG_PUB.Add;
1653: IF FND_MSG_PUB.Check_Msg_Level
1654: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1655: THEN FND_MSG_PUB.Add_Exc_Msg
1804: --gzhang 08/08/2002, bug#2488246
1805: --ibe_util.disable_debug;
1806: WHEN OTHERS THEN
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1809: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1810: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1811: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1812: FND_MSG_PUB.Add;
1805: --ibe_util.disable_debug;
1806: WHEN OTHERS THEN
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1809: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1810: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1811: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1812: FND_MSG_PUB.Add;
1813: IF FND_MSG_PUB.Check_Msg_Level
1806: WHEN OTHERS THEN
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1809: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1810: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1811: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1812: FND_MSG_PUB.Add;
1813: IF FND_MSG_PUB.Check_Msg_Level
1814: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1809: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1810: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1811: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1812: FND_MSG_PUB.Add;
1813: IF FND_MSG_PUB.Check_Msg_Level
1814: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1815: THEN FND_MSG_PUB.Add_Exc_Msg
2021: IF p_partnum IS NULL THEN
2022: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2023: IBE_UTIL.debug('Error: p_itm_id and p_accessname are both NULL');
2024: END IF;
2025: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2026: FND_MESSAGE.Set_Token('ID_NAME', p_partnum);
2027: FND_MSG_PUB.Add;
2028: RAISE FND_API.G_EXC_ERROR;
2029: ELSE
2022: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2023: IBE_UTIL.debug('Error: p_itm_id and p_accessname are both NULL');
2024: END IF;
2025: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2026: FND_MESSAGE.Set_Token('ID_NAME', p_partnum);
2027: FND_MSG_PUB.Add;
2028: RAISE FND_API.G_EXC_ERROR;
2029: ELSE
2030: --loading by part number
2143: --gzhang 08/08/2002, bug#2488246
2144: --ibe_util.disable_debug;
2145: WHEN OTHERS THEN
2146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2147: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2148: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2149: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2150: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2151: FND_MSG_PUB.Add;
2144: --ibe_util.disable_debug;
2145: WHEN OTHERS THEN
2146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2147: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2148: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2149: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2150: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2151: FND_MSG_PUB.Add;
2152: IF FND_MSG_PUB.Check_Msg_Level
2145: WHEN OTHERS THEN
2146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2147: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2148: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2149: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2150: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2151: FND_MSG_PUB.Add;
2152: IF FND_MSG_PUB.Check_Msg_Level
2153: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2147: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2148: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2149: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2150: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2151: FND_MSG_PUB.Add;
2152: IF FND_MSG_PUB.Check_Msg_Level
2153: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2154: THEN FND_MSG_PUB.Add_Exc_Msg
2471: p_data => x_msg_data
2472: );
2473: WHEN OTHERS THEN
2474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2475: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2476: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2477: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2478: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2479: FND_MSG_PUB.Add;
2472: );
2473: WHEN OTHERS THEN
2474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2475: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2476: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2477: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2478: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2479: FND_MSG_PUB.Add;
2480: IF FND_MSG_PUB.Check_Msg_Level
2473: WHEN OTHERS THEN
2474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2475: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2476: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2477: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2478: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2479: FND_MSG_PUB.Add;
2480: IF FND_MSG_PUB.Check_Msg_Level
2481: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2475: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2476: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2477: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2478: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2479: FND_MSG_PUB.Add;
2480: IF FND_MSG_PUB.Check_Msg_Level
2481: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2482: THEN FND_MSG_PUB.Add_Exc_Msg
2556: IF p_partnum_tbl IS NULL THEN
2557: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2558: IBE_UTIL.debug('Error: p_itmid_tbl and p_partnum_tbl are both NULL');
2559: END IF;
2560: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2561: FND_MESSAGE.Set_Token('ID_NAME', 'NULL');
2562: FND_MSG_PUB.Add;
2563: RAISE FND_API.G_EXC_ERROR;
2564: RETURN;
2557: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2558: IBE_UTIL.debug('Error: p_itmid_tbl and p_partnum_tbl are both NULL');
2559: END IF;
2560: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2561: FND_MESSAGE.Set_Token('ID_NAME', 'NULL');
2562: FND_MSG_PUB.Add;
2563: RAISE FND_API.G_EXC_ERROR;
2564: RETURN;
2565: ELSE
2984: --gzhang 08/08/2002, bug#2488246
2985: --ibe_util.disable_debug;
2986: WHEN OTHERS THEN
2987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2988: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2989: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2990: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2991: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2992: FND_MSG_PUB.Add;
2985: --ibe_util.disable_debug;
2986: WHEN OTHERS THEN
2987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2988: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2989: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2990: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2991: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2992: FND_MSG_PUB.Add;
2993: IF FND_MSG_PUB.Check_Msg_Level
2986: WHEN OTHERS THEN
2987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2988: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2989: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2990: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2991: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2992: FND_MSG_PUB.Add;
2993: IF FND_MSG_PUB.Check_Msg_Level
2994: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2988: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2989: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2990: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2991: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2992: FND_MSG_PUB.Add;
2993: IF FND_MSG_PUB.Check_Msg_Level
2994: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2995: THEN FND_MSG_PUB.Add_Exc_Msg
3140: --gzhang 08/08/2002, bug#2488246
3141: --ibe_util.disable_debug;
3142: WHEN OTHERS THEN
3143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3144: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3145: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3146: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3147: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3148: FND_MSG_PUB.Add;
3141: --ibe_util.disable_debug;
3142: WHEN OTHERS THEN
3143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3144: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3145: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3146: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3147: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3148: FND_MSG_PUB.Add;
3149: IF FND_MSG_PUB.Check_Msg_Level
3142: WHEN OTHERS THEN
3143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3144: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3145: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3146: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3147: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3148: FND_MSG_PUB.Add;
3149: IF FND_MSG_PUB.Check_Msg_Level
3150: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3144: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3145: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3146: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3147: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3148: FND_MSG_PUB.Add;
3149: IF FND_MSG_PUB.Check_Msg_Level
3150: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3151: THEN FND_MSG_PUB.Add_Exc_Msg
3243: p_data => x_msg_data
3244: );
3245: WHEN OTHERS THEN
3246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3247: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3248: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3249: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3250: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3251: FND_MSG_PUB.Add;
3244: );
3245: WHEN OTHERS THEN
3246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3247: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3248: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3249: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3250: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3251: FND_MSG_PUB.Add;
3252: IF FND_MSG_PUB.Check_Msg_Level
3245: WHEN OTHERS THEN
3246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3247: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3248: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3249: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3250: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3251: FND_MSG_PUB.Add;
3252: IF FND_MSG_PUB.Check_Msg_Level
3253: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3247: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3248: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3249: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3250: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3251: FND_MSG_PUB.Add;
3252: IF FND_MSG_PUB.Check_Msg_Level
3253: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3254: THEN FND_MSG_PUB.Add_Exc_Msg