56: -- Standard Start of API savepoint
57: SAVEPOINT Create_SC_Work_Entity;
58:
59: -- Standard call to check for call compatibility.
60: IF NOT FND_API.Compatible_API_Call (lc_api_version,
61: p_api_version,
62: lc_api_name ,
63: G_PKG_NAME )
64: THEN
61: p_api_version,
62: lc_api_name ,
63: G_PKG_NAME )
64: THEN
65: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
66: END IF;
67:
68: -- Initialize message list if p_init_msg_list is set to TRUE.
69: IF FND_API.to_Boolean( p_init_msg_list ) THEN
65: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
66: END IF;
67:
68: -- Initialize message list if p_init_msg_list is set to TRUE.
69: IF FND_API.to_Boolean( p_init_msg_list ) THEN
70: FND_MSG_PUB.initialize;
71: END IF;
72:
73: IF (lc_proc_level >= lc_debug_level) THEN
81: ( p_sc_work_entity_rec => p_sc_work_entity_rec);
82: END IF;
83:
84: -- Initialize API return status to success
85: x_return_status := FND_API.G_RET_STS_SUCCESS;
86:
87: -- Api body starts
88:
89: -- Check the required parameters
331: WHEN OTHERS THEN
332: IF ( lc_excep_level >= lc_debug_level) THEN
333: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_SC_WORK_ENTITIES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
334: END IF;
335: x_return_status := FND_API.G_RET_STS_ERROR;
336: END;
337:
338: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
339: RAISE FND_API.G_EXC_ERROR;
334: END IF;
335: x_return_status := FND_API.G_RET_STS_ERROR;
336: END;
337:
338: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
339: RAISE FND_API.G_EXC_ERROR;
340: END IF;
341:
342: if (lc_proc_level >= lc_debug_level) then
335: x_return_status := FND_API.G_RET_STS_ERROR;
336: END;
337:
338: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
339: RAISE FND_API.G_EXC_ERROR;
340: END IF;
341:
342: if (lc_proc_level >= lc_debug_level) then
343: FND_LOG.STRING(lc_proc_level, lc_mod_name,
346:
347: -- Api body ends here
348:
349: -- Standard check of p_commit.
350: IF FND_API.To_Boolean( p_commit ) THEN
351: COMMIT WORK;
352: END IF;
353:
354: -- Standard call to get message count and IF count is get message info.
365: WHEN CSD_SCW_ENTITY_EXISTS THEN
366: ROLLBACK TO Create_SC_Work_Entity;
367:
368: -- Service code work entity already exists
369: x_return_status := FND_API.G_RET_STS_ERROR ;
370:
371: -- save message in fnd stack
372: if (lc_stat_level >= lc_debug_level) then
373: FND_LOG.STRING(lc_stat_level, lc_mod_name,
390: WHEN CSD_SCW_INVALID_ORGANIZATION THEN
391: ROLLBACK TO Create_SC_Work_Entity;
392:
393: -- Service code work entity organization is invalid
394: x_return_status := FND_API.G_RET_STS_ERROR ;
395:
396: -- save message in fnd stack
397: if (lc_stat_level >= lc_debug_level) then
398: FND_LOG.STRING(lc_stat_level, lc_mod_name,
415: WHEN CSD_SCW_INVALID_BILL_SEQUENCE THEN
416: ROLLBACK TO Create_SC_Work_Entity;
417:
418: -- Service code work entity bill reference is invalid
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420:
421: -- save message in fnd stack
422: if (lc_stat_level >= lc_debug_level) then
423: FND_LOG.STRING(lc_stat_level, lc_mod_name,
440: WHEN CSD_SCW_INVALID_ROUTE_SEQUENCE THEN
441: ROLLBACK TO Create_SC_Work_Entity;
442:
443: -- Service code work entity routing reference is invalid
444: x_return_status := FND_API.G_RET_STS_ERROR ;
445:
446: -- save message in fnd stack
447: if (lc_stat_level >= lc_debug_level) then
448: FND_LOG.STRING(lc_stat_level, lc_mod_name,
465: WHEN CSD_SCW_INVALID_TASK_TEMP_GRP THEN
466: ROLLBACK TO Create_SC_Work_Entity;
467:
468: -- Service code work entity task template group is invalid
469: x_return_status := FND_API.G_RET_STS_ERROR ;
470:
471: -- save message in fnd stack
472: if (lc_stat_level >= lc_debug_level) then
473: FND_LOG.STRING(lc_stat_level, lc_mod_name,
486: FND_LOG.STRING(lc_excep_level, lc_mod_name,
487: 'Service code work entity task template group is invalid');
488: END IF;
489:
490: WHEN FND_API.G_EXC_ERROR THEN
491: ROLLBACK TO Create_SC_Work_Entity;
492:
493: x_return_status := FND_API.G_RET_STS_ERROR;
494:
489:
490: WHEN FND_API.G_EXC_ERROR THEN
491: ROLLBACK TO Create_SC_Work_Entity;
492:
493: x_return_status := FND_API.G_RET_STS_ERROR;
494:
495: FND_MSG_PUB.Count_And_Get
496: (p_count => x_msg_count,
497: p_data => x_msg_data );
501: FND_LOG.STRING(lc_excep_level, lc_mod_name,
502: 'EXC_ERROR['||x_msg_data||']');
503: END IF;
504:
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: ROLLBACK TO Create_SC_Work_Entity;
507:
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509:
504:
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: ROLLBACK TO Create_SC_Work_Entity;
507:
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509:
510: IF FND_MSG_PUB.Check_Msg_Level
511: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
512: THEN
531:
532: WHEN OTHERS THEN
533: ROLLBACK TO Create_SC_Work_Entity;
534:
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
536:
537: -- save message in fnd stack
538: IF FND_MSG_PUB.Check_Msg_Level
539: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
617: SAVEPOINT Update_SC_Work_Entity;
618:
619: -- Standard call to check for call compatibility.
620: -- Standard call to check for call compatibility.
621: IF NOT FND_API.Compatible_API_Call (lc_api_version,
622: p_api_version,
623: lc_api_name ,
624: G_PKG_NAME )
625: THEN
622: p_api_version,
623: lc_api_name ,
624: G_PKG_NAME )
625: THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: END IF;
628:
629: -- Initialize message list if p_init_msg_list is set to TRUE.
630: IF FND_API.to_Boolean( p_init_msg_list ) THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: END IF;
628:
629: -- Initialize message list if p_init_msg_list is set to TRUE.
630: IF FND_API.to_Boolean( p_init_msg_list ) THEN
631: FND_MSG_PUB.initialize;
632: END IF;
633:
634: IF (lc_proc_level >= lc_debug_level) THEN
642: ( p_sc_work_entity_rec => p_sc_work_entity_rec);
643: END IF;
644:
645: -- Initialize API return status to success
646: x_return_status := FND_API.G_RET_STS_SUCCESS;
647:
648: -- Api body starts
649:
650: -- Check the required parameters
665: 'Checking if required parameters are passed in as G_MISS');
666: end if;
667:
668: -- Check if required parameter is passed in as G_MISS
669: IF (p_sc_work_entity_rec.service_code_id = FND_API.G_MISS_NUM) THEN
670: RAISE CSD_SCW_SC_ID_MISSING;
671: END IF;
672:
673: -- Check if required parameter is passed in as G_MISS
670: RAISE CSD_SCW_SC_ID_MISSING;
671: END IF;
672:
673: -- Check if required parameter is passed in as G_MISS
674: IF (p_sc_work_entity_rec.work_entity_type_code = FND_API.G_MISS_CHAR) THEN
675: RAISE CSD_SCW_ENTITY_TYPE_MISSING;
676: END IF;
677:
678: -- Validate the work entity for service code
743: 'Validate object version number for service code work entity');
744: end if;
745:
746: -- Validate if object version number for service code work_entity is same as the one passed in
747: IF NVL(p_sc_work_entity_rec.object_version_number,FND_API.G_MISS_NUM) <> l_obj_ver_num THEN
748: RAISE CSD_SCW_OVN_MISMATCH;
749: ELSE
750: if (lc_stat_level >= lc_debug_level) then
751: FND_LOG.STRING(lc_stat_level, lc_mod_name,
984: WHEN OTHERS THEN
985: IF ( lc_excep_level >= lc_debug_level) THEN
986: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_SC_WORK_ENTITIES_PKG.Update_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
987: END IF;
988: x_return_status := FND_API.G_RET_STS_ERROR;
989: END;
990:
991: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
992: RAISE FND_API.G_EXC_ERROR;
987: END IF;
988: x_return_status := FND_API.G_RET_STS_ERROR;
989: END;
990:
991: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
992: RAISE FND_API.G_EXC_ERROR;
993: END IF;
994:
995: if (lc_proc_level >= lc_debug_level) then
988: x_return_status := FND_API.G_RET_STS_ERROR;
989: END;
990:
991: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
992: RAISE FND_API.G_EXC_ERROR;
993: END IF;
994:
995: if (lc_proc_level >= lc_debug_level) then
996: FND_LOG.STRING(lc_proc_level, lc_mod_name,
999:
1000: -- Api body ends here
1001:
1002: -- Standard check of p_commit.
1003: IF FND_API.To_Boolean( p_commit ) THEN
1004: COMMIT WORK;
1005: END IF;
1006:
1007: -- Standard call to get message count and IF count is get message info.
1018:
1019: WHEN CSD_SCW_SC_ID_MISSING THEN
1020: ROLLBACK TO Update_SC_Work_Entity;
1021: -- Service code id is missing
1022: x_return_status := FND_API.G_RET_STS_ERROR ;
1023:
1024: -- save message in fnd stack
1025: if (lc_stat_level >= lc_debug_level) then
1026: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1044: WHEN CSD_SCW_ENTITY_TYPE_MISSING THEN
1045: ROLLBACK TO Update_SC_Work_Entity;
1046:
1047: -- Service code work entity type is missing
1048: x_return_status := FND_API.G_RET_STS_ERROR ;
1049:
1050: -- save message in fnd stack
1051: if (lc_stat_level >= lc_debug_level) then
1052: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1070: WHEN CSD_SCW_INVALID_ID THEN
1071: ROLLBACK TO Update_SC_Work_Entity;
1072:
1073: -- Service code work entity id is invalid
1074: x_return_status := FND_API.G_RET_STS_ERROR ;
1075:
1076: -- save message in fnd stack
1077: if (lc_stat_level >= lc_debug_level) then
1078: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1095: WHEN CSD_SCW_GET_OVN_ERROR THEN
1096: ROLLBACK TO Update_SC_Work_Entity;
1097:
1098: -- Service code work entity get object version number error
1099: x_return_status := FND_API.G_RET_STS_ERROR ;
1100:
1101: -- save message in fnd stack
1102: if (lc_stat_level >= lc_debug_level) then
1103: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1120: WHEN CSD_SCW_OVN_MISMATCH THEN
1121: ROLLBACK TO Update_SC_Work_Entity;
1122:
1123: -- Service code work entity object version number mismatch
1124: x_return_status := FND_API.G_RET_STS_ERROR ;
1125:
1126: -- save message in fnd stack
1127: if (lc_stat_level >= lc_debug_level) then
1128: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1145: WHEN CSD_SCW_ENTITY_EXISTS THEN
1146: ROLLBACK TO Update_SC_Work_Entity;
1147:
1148: -- Service code work entity already exists
1149: x_return_status := FND_API.G_RET_STS_ERROR ;
1150:
1151: -- save message in fnd stack
1152: if (lc_stat_level >= lc_debug_level) then
1153: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1170: WHEN CSD_SCW_INVALID_ORGANIZATION THEN
1171: ROLLBACK TO Update_SC_Work_Entity;
1172:
1173: -- Service code work entity organization is invalid
1174: x_return_status := FND_API.G_RET_STS_ERROR ;
1175:
1176: -- save message in fnd stack
1177: if (lc_stat_level >= lc_debug_level) then
1178: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1195: WHEN CSD_SCW_INVALID_BILL_SEQUENCE THEN
1196: ROLLBACK TO Update_SC_Work_Entity;
1197:
1198: -- Service code work entity bill reference is invalid
1199: x_return_status := FND_API.G_RET_STS_ERROR ;
1200:
1201: -- save message in fnd stack
1202: if (lc_stat_level >= lc_debug_level) then
1203: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1220: WHEN CSD_SCW_INVALID_ROUTE_SEQUENCE THEN
1221: ROLLBACK TO Update_SC_Work_Entity;
1222:
1223: -- Service code work entity routing reference is invalid
1224: x_return_status := FND_API.G_RET_STS_ERROR ;
1225:
1226: -- save message in fnd stack
1227: if (lc_stat_level >= lc_debug_level) then
1228: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1245: WHEN CSD_SCW_INVALID_TASK_TEMP_GRP THEN
1246: ROLLBACK TO Update_SC_Work_Entity;
1247:
1248: -- Service code work entity task template group is invalid
1249: x_return_status := FND_API.G_RET_STS_ERROR ;
1250:
1251: -- save message in fnd stack
1252: if (lc_stat_level >= lc_debug_level) then
1253: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1266: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1267: 'Service code work entity task template group is invalid');
1268: END IF;
1269:
1270: WHEN FND_API.G_EXC_ERROR THEN
1271: ROLLBACK TO Update_SC_Work_Entity;
1272:
1273: x_return_status := FND_API.G_RET_STS_ERROR;
1274:
1269:
1270: WHEN FND_API.G_EXC_ERROR THEN
1271: ROLLBACK TO Update_SC_Work_Entity;
1272:
1273: x_return_status := FND_API.G_RET_STS_ERROR;
1274:
1275: FND_MSG_PUB.Count_And_Get
1276: (p_count => x_msg_count,
1277: p_data => x_msg_data );
1281: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1282: 'EXC_ERROR['||x_msg_data||']');
1283: END IF;
1284:
1285: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1286: ROLLBACK TO Update_SC_Work_Entity;
1287:
1288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1289:
1284:
1285: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1286: ROLLBACK TO Update_SC_Work_Entity;
1287:
1288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1289:
1290: IF FND_MSG_PUB.Check_Msg_Level
1291: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1292: THEN
1311:
1312: WHEN OTHERS THEN
1313: ROLLBACK TO Update_SC_Work_Entity;
1314:
1315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1316:
1317: -- save message in fnd stack
1318: IF FND_MSG_PUB.Check_Msg_Level
1319: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1379: -- Standard Start of API savepoint
1380: SAVEPOINT Delete_SC_Work_Entity;
1381:
1382: -- Standard call to check for call compatibility.
1383: IF NOT FND_API.Compatible_API_Call (lc_api_version,
1384: p_api_version,
1385: lc_api_name ,
1386: G_PKG_NAME )
1387: THEN
1384: p_api_version,
1385: lc_api_name ,
1386: G_PKG_NAME )
1387: THEN
1388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1389: END IF;
1390:
1391: -- Initialize message list if p_init_msg_list is set to TRUE.
1392: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1389: END IF;
1390:
1391: -- Initialize message list if p_init_msg_list is set to TRUE.
1392: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1393: FND_MSG_PUB.initialize;
1394: END IF;
1395:
1396: IF (lc_proc_level >= lc_debug_level) THEN
1398: 'Entered Delete_SC_Work_Entity');
1399: END IF;
1400:
1401: -- Initialize API return status to success
1402: x_return_status := FND_API.G_RET_STS_SUCCESS;
1403:
1404: -- Api body starts
1405:
1406: -- Check the required parameters
1431: WHEN OTHERS THEN
1432: IF ( lc_excep_level >= lc_debug_level) THEN
1433: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_SC_WORK_ENTITIES_PKG.Delete_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1434: END IF;
1435: x_return_status := FND_API.G_RET_STS_ERROR;
1436: END;
1437:
1438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1439: RAISE FND_API.G_EXC_ERROR;
1434: END IF;
1435: x_return_status := FND_API.G_RET_STS_ERROR;
1436: END;
1437:
1438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1439: RAISE FND_API.G_EXC_ERROR;
1440: END IF;
1441:
1442: if (lc_proc_level >= lc_debug_level) then
1435: x_return_status := FND_API.G_RET_STS_ERROR;
1436: END;
1437:
1438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1439: RAISE FND_API.G_EXC_ERROR;
1440: END IF;
1441:
1442: if (lc_proc_level >= lc_debug_level) then
1443: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1446:
1447: -- Api body ends here
1448:
1449: -- Standard check of p_commit.
1450: IF FND_API.To_Boolean( p_commit ) THEN
1451: COMMIT WORK;
1452: END IF;
1453:
1454: -- Standard call to get message count and IF count is get message info.
1462: END IF;
1463:
1464: EXCEPTION
1465:
1466: WHEN FND_API.G_EXC_ERROR THEN
1467: ROLLBACK TO Delete_SC_Work_Entity;
1468:
1469: x_return_status := FND_API.G_RET_STS_ERROR;
1470:
1465:
1466: WHEN FND_API.G_EXC_ERROR THEN
1467: ROLLBACK TO Delete_SC_Work_Entity;
1468:
1469: x_return_status := FND_API.G_RET_STS_ERROR;
1470:
1471: FND_MSG_PUB.Count_And_Get
1472: (p_count => x_msg_count,
1473: p_data => x_msg_data );
1477: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1478: 'EXC_ERROR['||x_msg_data||']');
1479: END IF;
1480:
1481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1482: ROLLBACK TO Delete_SC_Work_Entity;
1483:
1484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1485:
1480:
1481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1482: ROLLBACK TO Delete_SC_Work_Entity;
1483:
1484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1485:
1486: IF FND_MSG_PUB.Check_Msg_Level
1487: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1488: THEN
1507:
1508: WHEN OTHERS THEN
1509: ROLLBACK TO Delete_SC_Work_Entity;
1510:
1511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1512:
1513: -- save message in fnd stack
1514: IF FND_MSG_PUB.Check_Msg_Level
1515: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1575: -- Standard Start of API savepoint
1576: SAVEPOINT Lock_SC_Work_Entity;
1577:
1578: -- Standard call to check for call compatibility.
1579: IF NOT FND_API.Compatible_API_Call (lc_api_version,
1580: p_api_version,
1581: lc_api_name ,
1582: G_PKG_NAME )
1583: THEN
1580: p_api_version,
1581: lc_api_name ,
1582: G_PKG_NAME )
1583: THEN
1584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1585: END IF;
1586:
1587: -- Initialize message list if p_init_msg_list is set to TRUE.
1588: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1585: END IF;
1586:
1587: -- Initialize message list if p_init_msg_list is set to TRUE.
1588: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1589: FND_MSG_PUB.initialize;
1590: END IF;
1591:
1592: IF (lc_proc_level >= lc_debug_level) THEN
1594: 'Entered Lock_SC_Work_Entity');
1595: END IF;
1596:
1597: -- Initialize API return status to success
1598: x_return_status := FND_API.G_RET_STS_SUCCESS;
1599:
1600: -- Api body starts
1601:
1602: -- Check the required parameters
1666: WHEN OTHERS THEN
1667: IF ( lc_excep_level >= lc_debug_level) THEN
1668: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_SC_WORK_ENTITIES_PKG.Lock_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1669: END IF;
1670: x_return_status := FND_API.G_RET_STS_ERROR;
1671: END;
1672:
1673: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1674: RAISE FND_API.G_EXC_ERROR;
1669: END IF;
1670: x_return_status := FND_API.G_RET_STS_ERROR;
1671: END;
1672:
1673: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1674: RAISE FND_API.G_EXC_ERROR;
1675: END IF;
1676:
1677: if (lc_proc_level >= lc_debug_level) then
1670: x_return_status := FND_API.G_RET_STS_ERROR;
1671: END;
1672:
1673: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1674: RAISE FND_API.G_EXC_ERROR;
1675: END IF;
1676:
1677: if (lc_proc_level >= lc_debug_level) then
1678: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1681:
1682: -- Api body ends here
1683:
1684: -- Standard check of p_commit.
1685: IF FND_API.To_Boolean( p_commit ) THEN
1686: COMMIT WORK;
1687: END IF;
1688:
1689: -- Standard call to get message count and IF count is get message info.
1697: END IF;
1698:
1699: EXCEPTION
1700:
1701: WHEN FND_API.G_EXC_ERROR THEN
1702: ROLLBACK TO Lock_SC_Work_Entity;
1703:
1704: x_return_status := FND_API.G_RET_STS_ERROR;
1705:
1700:
1701: WHEN FND_API.G_EXC_ERROR THEN
1702: ROLLBACK TO Lock_SC_Work_Entity;
1703:
1704: x_return_status := FND_API.G_RET_STS_ERROR;
1705:
1706: FND_MSG_PUB.Count_And_Get
1707: (p_count => x_msg_count,
1708: p_data => x_msg_data );
1712: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1713: 'EXC_ERROR['||x_msg_data||']');
1714: END IF;
1715:
1716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1717: ROLLBACK TO Lock_SC_Work_Entity;
1718:
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1720:
1715:
1716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1717: ROLLBACK TO Lock_SC_Work_Entity;
1718:
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1720:
1721: IF FND_MSG_PUB.Check_Msg_Level
1722: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1723: THEN
1742:
1743: WHEN OTHERS THEN
1744: ROLLBACK TO Lock_SC_Work_Entity;
1745:
1746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1747:
1748: -- save message in fnd stack
1749: IF FND_MSG_PUB.Check_Msg_Level
1750: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)