The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_project_assets_tbl.delete;
SELECT pal.project_asset_line_detail_id
FROM pa_project_asset_lines pal
WHERE pal.project_asset_id = p_project_asset_id
AND pal.transfer_status_code||'' = 'T'
AND pal.rev_proj_asset_line_id is NULL
AND NOT EXISTS
( SELECT 'This Line was adjusted before'
FROM pa_project_asset_lines ppal
WHERE ppal.rev_proj_asset_line_id = pal.project_asset_line_id
)
GROUP by project_asset_line_detail_id;
SELECT project_asset_id
FROM pa_project_asset_lines pal
WHERE pal.project_asset_line_detail_id = x_proj_asset_line_detail_id
AND NOT EXISTS
( SELECT 'This Line was adjusted before'
FROM pa_project_asset_lines ppal
WHERE ppal.rev_proj_asset_line_id = pal.project_asset_line_id
)
AND pal.project_asset_id NOT IN
( SELECT project_asset_id
FROM pa_project_assets pas
WHERE pas.reverse_flag = 'Y'
AND pas.project_id = pal.project_id
)
UNION
SELECT project_asset_id
FROM pa_project_asset_lines pal
WHERE pal.project_asset_line_detail_id = x_proj_asset_line_detail_id
AND pal.transfer_status_code <> 'T'
AND pal.rev_proj_asset_line_id IS NULL
AND pal.project_asset_id IN
( SELECT project_asset_id
FROM pa_project_assets pas
WHERE pas.reverse_flag = 'Y'
AND pas.project_id = pal.project_id
);
x_update_count OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2) IS
i NUMBER;
l_update_count NUMBER := 0;
UPDATE pa_project_assets
SET reverse_flag = 'Y',
last_update_date = SYSDATE,
last_updated_by = v_user_id,
last_update_login = v_login_id
WHERE project_asset_id = x_project_assets(i).PROJECT_ASSET_ID;
l_update_count := l_update_count + SQL%ROWCOUNT;
x_update_count := l_update_count;