[Home] [Help]
390: END IF;
391: END IF;
392: */
393:
394: ---******Insert into ahl_part_changes table ******---
395: -- Null out removal date and installation dates.
396: IF (p_x_parts_rec_tbl(i).operation_type='D' ) THEN
397: p_x_parts_rec_tbl(i).installation_date := NULL;
398: l_part_change_type := 'R'; -- Remove.
427: -- set path position ID -- out parameter.
428: p_x_parts_rec_tbl(i).path_position_id := l_path_position_id;
429:
430: -- insert into ahl_part_chnages if everything is ok.
431: AHL_PART_CHANGES_PKG.insert_row(
432: X_ROWID => l_row_id,
433: X_PART_CHANGE_ID => p_x_parts_rec_tbl(i).part_change_txn_id,
434: X_UNIT_CONFIG_HEADER_ID =>p_x_parts_rec_tbl(i).unit_config_header_id,
435: X_REMOVED_INSTANCE_ID => p_x_parts_rec_tbl(i).removed_instance_id,
2999: IF G_DEBUG = 'Y' THEN
3000: AHL_DEBUG_PUB.debug('inside update part changes call');
3001: END IF;
3002:
3003: AHL_PART_CHANGES_PKG.update_row(
3004: X_PART_CHANGE_ID => p_x_parts_rec_tbl(i).part_change_txn_id,
3005: X_UNIT_CONFIG_HEADER_ID=>p_x_parts_rec_tbl(i).unit_config_header_id,
3006: X_REMOVED_INSTANCE_ID => p_x_parts_rec_tbl(i).removed_instance_id,
3007: X_MC_RELATIONSHIP_ID => p_x_parts_rec_tbl(i).mc_relationship_id,
3081: -- To get latest removal or swap parts change txn.
3082: CURSOR ahl_part_chg_csr (p_Item_Instance_Id IN NUMBER,
3083: p_workorder_id IN NUMBER) IS
3084: SELECT pc.part_change_id, pc.object_version_number
3085: FROM ahl_part_changes pc, ahl_workorder_operations woo
3086: WHERE pc.WORKORDER_OPERATION_ID = woo.WORKORDER_OPERATION_ID
3087: AND pc.removed_instance_id = p_item_instance_id
3088: AND woo.workorder_id = p_workorder_id
3089: AND pc.return_mtl_txn_id IS NULL
3106: l_found := TRUE;
3107: END IF;
3108:
3109: IF (l_found) THEN
3110: UPDATE ahl_part_changes
3111: SET return_mtl_txn_id = p_return_mtl_txn_id,
3112: object_version_number = l_object_version_number + 1
3113: WHERE CURRENT OF ahl_part_chg_csr;
3114: END IF;