[Home] [Help]
357: END IF;
358: END IF;
359: */
360:
361: ---******Insert into ahl_part_changes table ******---
362: -- Null out removal date and installation dates.
363: IF (p_x_parts_rec_tbl(i).operation_type='D' ) THEN
364: p_x_parts_rec_tbl(i).installation_date := NULL;
365: l_part_change_type := 'R'; -- Remove.
394: -- set path position ID -- out parameter.
395: p_x_parts_rec_tbl(i).path_position_id := l_path_position_id;
396:
397: -- insert into ahl_part_chnages if everything is ok.
398: AHL_PART_CHANGES_PKG.insert_row(
399: X_ROWID => l_row_id,
400: X_PART_CHANGE_ID => p_x_parts_rec_tbl(i).part_change_txn_id,
401: X_UNIT_CONFIG_HEADER_ID =>p_x_parts_rec_tbl(i).unit_config_header_id,
402: X_REMOVED_INSTANCE_ID => p_x_parts_rec_tbl(i).removed_instance_id,
2942: IF G_DEBUG = 'Y' THEN
2943: AHL_DEBUG_PUB.debug('inside update part changes call');
2944: END IF;
2945:
2946: AHL_PART_CHANGES_PKG.update_row(
2947: X_PART_CHANGE_ID => p_x_parts_rec_tbl(i).part_change_txn_id,
2948: X_UNIT_CONFIG_HEADER_ID=>p_x_parts_rec_tbl(i).unit_config_header_id,
2949: X_REMOVED_INSTANCE_ID => p_x_parts_rec_tbl(i).removed_instance_id,
2950: X_MC_RELATIONSHIP_ID => p_x_parts_rec_tbl(i).mc_relationship_id,
3024: -- To get latest removal or swap parts change txn.
3025: CURSOR ahl_part_chg_csr (p_Item_Instance_Id IN NUMBER,
3026: p_workorder_id IN NUMBER) IS
3027: SELECT pc.part_change_id, pc.object_version_number
3028: FROM ahl_part_changes pc, ahl_workorder_operations woo
3029: WHERE pc.WORKORDER_OPERATION_ID = woo.WORKORDER_OPERATION_ID
3030: AND pc.removed_instance_id = p_item_instance_id
3031: AND woo.workorder_id = p_workorder_id
3032: AND pc.return_mtl_txn_id IS NULL
3049: l_found := TRUE;
3050: END IF;
3051:
3052: IF (l_found) THEN
3053: UPDATE ahl_part_changes
3054: SET return_mtl_txn_id = p_return_mtl_txn_id,
3055: object_version_number = l_object_version_number + 1
3056: WHERE CURRENT OF ahl_part_chg_csr;
3057: END IF;