[Home] [Help]
1: PACKAGE BODY AHL_PRD_PARTS_CHANGE_PVT AS
2: /* $Header: AHLVPPCB.pls 120.12 2008/07/01 01:33:59 sikumar ship $ */
3:
4:
5: G_DEBUG varchar2(1) := AHL_DEBUG_PUB.is_log_enabled;
2: /* $Header: AHLVPPCB.pls 120.12 2008/07/01 01:33:59 sikumar ship $ */
3:
4:
5: G_DEBUG varchar2(1) := AHL_DEBUG_PUB.is_log_enabled;
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_PRD_PARTS_CHANGE_PVT';
7: G_CSI_LOCATION_TYPE_CODE CONSTANT VARCHAR2(30) := 'CSI_INST_LOCATION_SOURCE_CODE';
8:
9: -----------------------------------
10: -- Declare Local Procedures --
513: WHEN OTHERS THEN
514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
515: Rollback to perform_part_changes_pvt;
516: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
517: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
518: p_procedure_name => 'process_parts',
519: p_error_text => SQLERRM);
520: --END IF;
521: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3076: l_debug_proc NUMBER := FND_LOG.LEVEL_PROCEDURE;
3077: l_debug_stmt NUMBER := FND_LOG.LEVEL_STATEMENT;
3078: l_debug_uexp NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3079:
3080: l_debug_module VARCHAR2(80) := 'ahl.plsql.AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator';
3081:
3082: CURSOR ahl_disp_csr (p_disposition_id IN NUMBER,
3083: p_part_change_id IN NUMBER) IS
3084: SELECT disp.WORKORDER_ID, disp.INSTANCE_ID, disp.CONDITION_ID,
3116:
3117: -- log debug message.
3118: IF (l_debug_proc >= l_debug_level) THEN
3119: fnd_log.string(l_debug_proc,l_debug_module,
3120: 'At Start of procedure AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator');
3121: END IF;
3122:
3123: -- Standard start of API savepoint
3124: Savepoint ReturnTo_Workorder_Locator_pvt;
3302:
3303: -- log debug message.
3304: IF (l_debug_proc >= l_debug_level) THEN
3305: fnd_log.string(l_debug_proc,l_debug_module,
3306: 'At End of procedure AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator');
3307: END IF;
3308:
3309: EXCEPTION
3310: WHEN FND_API.G_EXC_ERROR THEN
3333: WHEN OTHERS THEN
3334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3335: Rollback to ReturnTo_Workorder_Locator_pvt;
3336: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3337: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
3338: p_procedure_name => 'process_parts',
3339: p_error_text => SQLERRM);
3340: --END IF;
3341: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3356: P_Commit In Varchar2 Default Fnd_API.G_False,
3357: P_Validation_Level In Number Default Fnd_API.G_Valid_Level_Full,
3358: p_module_type In Varchar2 Default NULL,
3359: p_default In Varchar2 Default FND_API.G_TRUE,
3360: p_move_item_instance_tbl In AHL_PRD_PARTS_CHANGE_PVT.move_item_instance_tbl_type,
3361: X_Return_Status Out NOCOPY Varchar2,
3362: X_Msg_Count Out NOCOPY Number,
3363: X_Msg_Data Out NOCOPY Varchar2) IS
3364:
3544: WHEN OTHERS THEN
3545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3546: Rollback to MOVE_INSTANCE_LOCATION;
3547: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3548: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
3549: p_procedure_name => 'move_instance_location',
3550: p_error_text => SQLERRM);
3551: --END IF;
3552: FND_MSG_PUB.count_and_get( p_count => x_msg_count,