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
1805: --gzhang 08/08/2002, bug#2488246
1806: --ibe_util.disable_debug;
1807: WHEN OTHERS THEN
1808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1809: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1810: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1811: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1812: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1813: FND_MSG_PUB.Add;
1806: --ibe_util.disable_debug;
1807: WHEN OTHERS THEN
1808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1809: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1810: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1811: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1812: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1813: FND_MSG_PUB.Add;
1814: IF FND_MSG_PUB.Check_Msg_Level
1807: WHEN OTHERS THEN
1808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1809: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1810: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1811: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1812: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1813: FND_MSG_PUB.Add;
1814: IF FND_MSG_PUB.Check_Msg_Level
1815: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1809: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1810: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1811: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1812: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1813: FND_MSG_PUB.Add;
1814: IF FND_MSG_PUB.Check_Msg_Level
1815: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1816: THEN FND_MSG_PUB.Add_Exc_Msg
2022: IF p_partnum IS NULL THEN
2023: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2024: IBE_UTIL.debug('Error: p_itm_id and p_accessname are both NULL');
2025: END IF;
2026: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2027: FND_MESSAGE.Set_Token('ID_NAME', p_partnum);
2028: FND_MSG_PUB.Add;
2029: RAISE FND_API.G_EXC_ERROR;
2030: ELSE
2023: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2024: IBE_UTIL.debug('Error: p_itm_id and p_accessname are both NULL');
2025: END IF;
2026: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2027: FND_MESSAGE.Set_Token('ID_NAME', p_partnum);
2028: FND_MSG_PUB.Add;
2029: RAISE FND_API.G_EXC_ERROR;
2030: ELSE
2031: --loading by part number
2144: --gzhang 08/08/2002, bug#2488246
2145: --ibe_util.disable_debug;
2146: WHEN OTHERS THEN
2147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2148: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2149: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2150: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2151: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2152: FND_MSG_PUB.Add;
2145: --ibe_util.disable_debug;
2146: WHEN OTHERS THEN
2147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2148: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2149: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2150: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2151: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2152: FND_MSG_PUB.Add;
2153: IF FND_MSG_PUB.Check_Msg_Level
2146: WHEN OTHERS THEN
2147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2148: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2149: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2150: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2151: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2152: FND_MSG_PUB.Add;
2153: IF FND_MSG_PUB.Check_Msg_Level
2154: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2148: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2149: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2150: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2151: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2152: FND_MSG_PUB.Add;
2153: IF FND_MSG_PUB.Check_Msg_Level
2154: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2155: THEN FND_MSG_PUB.Add_Exc_Msg
2472: p_data => x_msg_data
2473: );
2474: WHEN OTHERS THEN
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2477: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2478: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2479: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2480: FND_MSG_PUB.Add;
2473: );
2474: WHEN OTHERS THEN
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2477: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2478: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2479: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2480: FND_MSG_PUB.Add;
2481: IF FND_MSG_PUB.Check_Msg_Level
2474: WHEN OTHERS THEN
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2477: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2478: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2479: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2480: FND_MSG_PUB.Add;
2481: IF FND_MSG_PUB.Check_Msg_Level
2482: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2477: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2478: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2479: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2480: FND_MSG_PUB.Add;
2481: IF FND_MSG_PUB.Check_Msg_Level
2482: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2483: THEN FND_MSG_PUB.Add_Exc_Msg
2557: IF p_partnum_tbl IS NULL THEN
2558: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2559: IBE_UTIL.debug('Error: p_itmid_tbl and p_partnum_tbl are both NULL');
2560: END IF;
2561: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2562: FND_MESSAGE.Set_Token('ID_NAME', 'NULL');
2563: FND_MSG_PUB.Add;
2564: RAISE FND_API.G_EXC_ERROR;
2565: RETURN;
2558: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2559: IBE_UTIL.debug('Error: p_itmid_tbl and p_partnum_tbl are both NULL');
2560: END IF;
2561: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2562: FND_MESSAGE.Set_Token('ID_NAME', 'NULL');
2563: FND_MSG_PUB.Add;
2564: RAISE FND_API.G_EXC_ERROR;
2565: RETURN;
2566: ELSE
2985: --gzhang 08/08/2002, bug#2488246
2986: --ibe_util.disable_debug;
2987: WHEN OTHERS THEN
2988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2989: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2990: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2991: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2992: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2993: FND_MSG_PUB.Add;
2986: --ibe_util.disable_debug;
2987: WHEN OTHERS THEN
2988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2989: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2990: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2991: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2992: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2993: FND_MSG_PUB.Add;
2994: IF FND_MSG_PUB.Check_Msg_Level
2987: WHEN OTHERS THEN
2988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2989: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2990: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2991: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2992: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2993: FND_MSG_PUB.Add;
2994: IF FND_MSG_PUB.Check_Msg_Level
2995: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2989: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2990: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2991: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2992: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2993: FND_MSG_PUB.Add;
2994: IF FND_MSG_PUB.Check_Msg_Level
2995: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2996: THEN FND_MSG_PUB.Add_Exc_Msg
3141: --gzhang 08/08/2002, bug#2488246
3142: --ibe_util.disable_debug;
3143: WHEN OTHERS THEN
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3145: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3146: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3147: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3148: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3149: FND_MSG_PUB.Add;
3142: --ibe_util.disable_debug;
3143: WHEN OTHERS THEN
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3145: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3146: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3147: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3148: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3149: FND_MSG_PUB.Add;
3150: IF FND_MSG_PUB.Check_Msg_Level
3143: WHEN OTHERS THEN
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3145: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3146: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3147: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3148: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3149: FND_MSG_PUB.Add;
3150: IF FND_MSG_PUB.Check_Msg_Level
3151: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3145: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3146: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3147: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3148: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3149: FND_MSG_PUB.Add;
3150: IF FND_MSG_PUB.Check_Msg_Level
3151: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3152: THEN FND_MSG_PUB.Add_Exc_Msg
3244: p_data => x_msg_data
3245: );
3246: WHEN OTHERS THEN
3247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3248: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3249: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3250: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3251: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3252: FND_MSG_PUB.Add;
3245: );
3246: WHEN OTHERS THEN
3247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3248: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3249: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3250: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3251: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3252: FND_MSG_PUB.Add;
3253: IF FND_MSG_PUB.Check_Msg_Level
3246: WHEN OTHERS THEN
3247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3248: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3249: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3250: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3251: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3252: FND_MSG_PUB.Add;
3253: IF FND_MSG_PUB.Check_Msg_Level
3254: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3248: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3249: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3250: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3251: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3252: FND_MSG_PUB.Add;
3253: IF FND_MSG_PUB.Check_Msg_Level
3254: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3255: THEN FND_MSG_PUB.Add_Exc_Msg