1: PACKAGE BODY CSD_SC_WORK_ENTITIES_PVT as
2: /* $Header: csdvscwb.pls 115.6 2004/02/07 02:36:21 gilam noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_SC_WORK_ENTITIES_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdvscwb.pls';
1: PACKAGE BODY CSD_SC_WORK_ENTITIES_PVT as
2: /* $Header: csdvscwb.pls 115.6 2004/02/07 02:36:21 gilam noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_SC_WORK_ENTITIES_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdvscwb.pls';
6:
7: g_bom_type CONSTANT VARCHAR2(30) := 'BOM';
8: g_task_type CONSTANT VARCHAR2(30) := 'TASK';
33: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
34: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
35: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
36: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
37: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_sc_work_entities_pvt.create_sc_work_entity';
38: lc_api_name CONSTANT VARCHAR2(30) := 'Create_SC_Work_Entity';
39: lc_api_version CONSTANT NUMBER := 1.0;
40:
41: -- VARIABLES --
115: l_dummy := null;
116:
117: select 'X'
118: into l_dummy
119: from csd_sc_work_entities
120: where service_code_id = p_sc_work_entity_rec.service_code_id
121: and (work_entity_type_code = p_sc_work_entity_rec.work_entity_type_code
122: and nvl(work_entity_id1, -999) = nvl(p_sc_work_entity_rec.work_entity_id1, -999)
123: and nvl(work_entity_id2, -999) = nvl(p_sc_work_entity_rec.work_entity_id2, -999)
295:
296: BEGIN
297:
298: -- Insert the new work entity
299: CSD_SC_WORK_ENTITIES_PKG.Insert_Row
300: (px_sc_work_entity_id => x_sc_work_entity_id,
301: p_object_version_number => l_obj_ver_num,
302: p_service_code_id => p_sc_work_entity_rec.service_code_id,
303: p_work_entity_id1 => p_sc_work_entity_rec.work_entity_id1,
329:
330: EXCEPTION
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:
587: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
588: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
589: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
590: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
591: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_sc_work_entities_pvt.update_sc_work_entity';
592: lc_api_name CONSTANT VARCHAR2(30) := 'Update_SC_Work_Entity';
593: lc_api_version CONSTANT NUMBER := 1.0;
594:
595: -- VARIABLES --
686: l_dummy := null;
687:
688: select 'X'
689: into l_dummy
690: from csd_sc_work_entities
691: where sc_work_entity_id = p_sc_work_entity_rec.sc_work_entity_id;
692:
693: Exception
694:
716: -- Get object version number for service code work_entity
717: Begin
718: select object_version_number
719: into l_obj_ver_num
720: from csd_sc_work_entities
721: where sc_work_entity_id = p_sc_work_entity_rec.sc_work_entity_id;
722:
723: Exception
724:
765: l_dummy := null;
766:
767: select 'X'
768: into l_dummy
769: from csd_sc_work_entities
770: where sc_work_entity_id <> p_sc_work_entity_rec.sc_work_entity_id
771: and service_code_id = p_sc_work_entity_rec.service_code_id
772: and (work_entity_type_code = p_sc_work_entity_rec.work_entity_type_code
773: and nvl(work_entity_id1, -999) = nvl(p_sc_work_entity_rec.work_entity_id1, -999)
946:
947: BEGIN
948:
949: -- Update the sc work entity
950: CSD_SC_WORK_ENTITIES_PKG.Update_Row
951: (p_sc_work_entity_id => p_sc_work_entity_rec.sc_work_entity_id,
952: p_object_version_number => l_obj_ver_num + 1,
953: p_service_code_id => p_sc_work_entity_rec.service_code_id,
954: p_work_entity_id1 => p_sc_work_entity_rec.work_entity_id1,
982:
983: EXCEPTION
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:
1365: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1366: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
1367: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
1368: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
1369: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_sc_work_entities_pvt.delete_sc_work_entity';
1370: lc_api_name CONSTANT VARCHAR2(30) := 'Delete_SC_Work_Entity';
1371: lc_api_version CONSTANT NUMBER := 1.0;
1372:
1373: -- VARIABLES --
1423:
1424: BEGIN
1425:
1426: -- Delete the work entity
1427: CSD_SC_WORK_ENTITIES_PKG.Delete_Row
1428: (p_sc_work_entity_id => p_sc_work_entity_id );
1429:
1430: EXCEPTION
1431: WHEN OTHERS THEN
1429:
1430: EXCEPTION
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:
1561: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1562: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
1563: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
1564: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
1565: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_sc_work_entities_pvt.lock_sc_work_entity';
1566: lc_api_name CONSTANT VARCHAR2(30) := 'Lock_SC_Work_Entity';
1567: lc_api_version CONSTANT NUMBER := 1.0;
1568:
1569: -- VARIABLES --
1625:
1626: BEGIN
1627:
1628: -- Lock the work entity
1629: CSD_SC_WORK_ENTITIES_PKG.Lock_Row
1630: (p_sc_work_entity_id => p_sc_work_entity_rec.sc_work_entity_id,
1631: p_object_version_number => p_sc_work_entity_rec.object_version_number
1632:
1633: --commented out the rest of the record
1664:
1665: EXCEPTION
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:
1770: END IF;
1771:
1772: END Lock_SC_Work_Entity;
1773:
1774: End CSD_SC_WORK_ENTITIES_PVT;
1775: