[Home] [Help]
129: FND_MSG_PUB.initialize;
130: END IF;
131:
132: -- Get unit header id for the given work order (derived using Visit followed by Task instance if required)
133: p_unit_header_id := AHL_PRD_PARTS_CHANGE_PVT.Get_UnitConfig_ID (p_workorder_id);
134:
135: IF p_unit_header_id IS NOT NULL THEN
136: -- No need of clearing the data from this table
137: OPEN is_unit_present(p_unit_header_id);
2625: X_MSG_DATA OUT NOCOPY VARCHAR2,
2626: X_WARNING_MSG_TBL OUT NOCOPY AHL_UC_VALIDATION_PUB.ERROR_TBL_TYPE
2627: )IS
2628: L_ERROR_CODE VARCHAR2(30);
2629: L_PARTS_REC_TBL AHL_PRD_PARTS_CHANGE_PVT.AHL_PARTS_TBL_TYPE;
2630: L_MR_ASSO_TBL AHL_PRD_NONROUTINE_PVT.MR_ASSOCIATION_TBL_TYPE;
2631: L_DISPOSITION_REC AHL_PRD_DISPOSITION_PVT.DISPOSITION_REC_TYPE;
2632: MR_TABLE_INDEX INTEGER;
2633: L_API_NAME CONSTANT VARCHAR2(30) := 'INVOKE_PART_CHANGE';
2665: L_PARTS_REC_TBL(0).REMOVED_INSTANCE_OBJ_VER_NUM := P_X_PART_CHANGE_REC.REMOVED_INSTANCE_OBJ_VER_NUM;
2666:
2667: IF (l_log_statement >= l_log_current_level) THEN
2668: fnd_log.string(l_log_statement, l_debug_key,
2669: ' invoking AHL_PRD_PARTS_CHANGE_PVT.PROCESS_PART ');
2670: END IF;
2671: AHL_PRD_PARTS_CHANGE_PVT.PROCESS_PART (
2672: P_API_VERSION => 1.0,
2673: P_INIT_MSG_LIST => FND_API.G_TRUE,
2667: IF (l_log_statement >= l_log_current_level) THEN
2668: fnd_log.string(l_log_statement, l_debug_key,
2669: ' invoking AHL_PRD_PARTS_CHANGE_PVT.PROCESS_PART ');
2670: END IF;
2671: AHL_PRD_PARTS_CHANGE_PVT.PROCESS_PART (
2672: P_API_VERSION => 1.0,
2673: P_INIT_MSG_LIST => FND_API.G_TRUE,
2674: P_COMMIT => FND_API.G_FALSE,
2675: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
2683: X_WARNING_MSG_TBL => X_WARNING_MSG_TBL );
2684:
2685: IF (l_log_statement >= l_log_current_level) THEN
2686: fnd_log.string(l_log_statement, l_debug_key,
2687: ' AHL_PRD_PARTS_CHANGE_PVT.PROCESS_PART return status : ' || X_RETURN_STATUS);
2688: END IF;
2689:
2690: IF ( X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS) THEN
2691: RETURN;