[Home] [Help]
1: PACKAGE BODY AHL_PRD_PARTS_CHANGE_PVT AS
2: /* $Header: AHLVPPCB.pls 120.12.12020000.2 2012/12/07 08:09:13 sareepar ship $ */
3:
4:
5: G_DEBUG varchar2(1) := AHL_DEBUG_PUB.is_log_enabled;
2: /* $Header: AHLVPPCB.pls 120.12.12020000.2 2012/12/07 08:09:13 sareepar 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 --
546: WHEN OTHERS THEN
547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
548: Rollback to perform_part_changes_pvt;
549: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
550: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
551: p_procedure_name => 'process_parts',
552: p_error_text => SQLERRM);
553: --END IF;
554: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3133: l_debug_proc NUMBER := FND_LOG.LEVEL_PROCEDURE;
3134: l_debug_stmt NUMBER := FND_LOG.LEVEL_STATEMENT;
3135: l_debug_uexp NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3136:
3137: l_debug_module VARCHAR2(80) := 'ahl.plsql.AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator';
3138:
3139: CURSOR ahl_disp_csr (p_disposition_id IN NUMBER,
3140: p_part_change_id IN NUMBER) IS
3141: SELECT disp.WORKORDER_ID, disp.INSTANCE_ID, disp.CONDITION_ID,
3173:
3174: -- log debug message.
3175: IF (l_debug_proc >= l_debug_level) THEN
3176: fnd_log.string(l_debug_proc,l_debug_module,
3177: 'At Start of procedure AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator');
3178: END IF;
3179:
3180: -- Standard start of API savepoint
3181: Savepoint ReturnTo_Workorder_Locator_pvt;
3359:
3360: -- log debug message.
3361: IF (l_debug_proc >= l_debug_level) THEN
3362: fnd_log.string(l_debug_proc,l_debug_module,
3363: 'At End of procedure AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator');
3364: END IF;
3365:
3366: EXCEPTION
3367: WHEN FND_API.G_EXC_ERROR THEN
3390: WHEN OTHERS THEN
3391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3392: Rollback to ReturnTo_Workorder_Locator_pvt;
3393: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3394: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
3395: p_procedure_name => 'process_parts',
3396: p_error_text => SQLERRM);
3397: --END IF;
3398: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3413: P_Commit In Varchar2 Default Fnd_API.G_False,
3414: P_Validation_Level In Number Default Fnd_API.G_Valid_Level_Full,
3415: p_module_type In Varchar2 Default NULL,
3416: p_default In Varchar2 Default FND_API.G_TRUE,
3417: p_move_item_instance_tbl In AHL_PRD_PARTS_CHANGE_PVT.move_item_instance_tbl_type,
3418: X_Return_Status Out NOCOPY Varchar2,
3419: X_Msg_Count Out NOCOPY Number,
3420: X_Msg_Data Out NOCOPY Varchar2) IS
3421:
3601: WHEN OTHERS THEN
3602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3603: Rollback to MOVE_INSTANCE_LOCATION;
3604: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3605: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
3606: p_procedure_name => 'move_instance_location',
3607: p_error_text => SQLERRM);
3608: --END IF;
3609: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4817: l_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4818: l_debug_proc NUMBER := FND_LOG.LEVEL_PROCEDURE;
4819: l_debug_stmt NUMBER := FND_LOG.LEVEL_STATEMENT;
4820: l_debug_uexp NUMBER := FND_LOG.LEVEL_UNEXPECTED;
4821: l_debug_module VARCHAR2(80) := 'ahl.plsql.AHL_PRD_PARTS_CHANGE_PVT.update_part_condition';
4822:
4823: l_instance_rec csi_datastructures_pub.instance_rec;
4824: l_extend_attrib_values_tbl csi_datastructures_pub.extend_attrib_values_tbl;
4825: l_party_tbl csi_datastructures_pub.party_tbl;
4843:
4844: -- log debug message.
4845: IF (l_debug_proc >= l_debug_level) THEN
4846: fnd_log.string(l_debug_proc,l_debug_module,
4847: 'At Start of procedure AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition');
4848: END IF;
4849:
4850: -- Standard start of API savepoint
4851: Savepoint Update_Part_Condition_pvt_S;
4898: p_encoded => fnd_api.g_false);
4899: RETURN;
4900: WHEN OTHERS THEN
4901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4902: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
4903: p_procedure_name => 'Update_Part_Condition',
4904: p_error_text => 'Validate Instance:' || SQLERRM);
4905: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4906: p_data => x_msg_data,
4938: p_encoded => fnd_api.g_false);
4939: RETURN;
4940: WHEN OTHERS THEN
4941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4942: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PRD_PARTS_CHANGE_PVT',
4943: p_procedure_name => 'Update_Part_Condition',
4944: p_error_text => 'Validate Condition:' || SQLERRM);
4945: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4946: p_data => x_msg_data,
5015:
5016: -- log debug message.
5017: IF (l_debug_proc >= l_debug_level) THEN
5018: fnd_log.string(l_debug_proc,l_debug_module,
5019: 'At End of procedure AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition');
5020: END IF;
5021:
5022: END update_part_condition;
5023:
5043: L_RETURN_STATUS VARCHAR2(10);
5044: L_MSG_COUNT NUMBER;
5045: L_MSG_DATA VARCHAR2(4000);
5046:
5047: L_DEBUG_MODULE VARCHAR2(80) := 'ahl.plsql.AHL_PRD_PARTS_CHANGE_PVT.CANCEL_WO_RESERVATION';
5048: L_DEBUG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5049: L_DEBUG_PROC NUMBER := FND_LOG.LEVEL_PROCEDURE;
5050:
5051: BEGIN
5050:
5051: BEGIN
5052: IF (l_debug_proc >= l_debug_level) THEN
5053: FND_LOG.STRING(L_DEBUG_PROC,L_DEBUG_MODULE,
5054: 'At Start of procedure AHL_PRD_PARTS_CHANGE_PVT.CANCEL_WO_RESERVATION');
5055: END IF;
5056: FOR GET_SRC_RES_ID_REC IN GET_SRC_RES_ID_CSR(P_ITEM_INSTANCE_ID)
5057: LOOP
5058: AHL_MM_RESERVATIONS_PVT.DELETE_RESERVATION (P_API_VERSION => 1.0,