PA Purge Project Data

SELECT proj.name, proj.segment1, 
              decode(ppj.archive_summary_flag, 'Y',:C_YES, :C_NO),                                                                                                       
              decode(ppj.purge_summary_flag,'Y',:C_YES, :C_NO),
              decode(ppj.archive_capital_flag,'Y',:C_YES, :C_NO),
              decode(ppj.purge_capital_flag,'Y',:C_YES, :C_NO),
              decode(ppj.archive_budgets_flag,'Y',:C_YES, :C_NO),
              decode(ppj.purge_budgets_flag,'Y',:C_YES, :C_NO),
              decode(ppj.archive_actuals_flag,'Y',:C_YES, :C_NO),
              decode(ppj.purge_actuals_flag,'Y',:C_YES, :C_NO), 
              ppj.project_id, 
              projd.table_name,
              projd.num_recs_purged recs_purged,
              projd.num_recs_archived recs_archived
FROM  pa_purge_prj_details projd, 
             pa_purge_projects ppj, 
             pa_projects_all proj
WHERE ppj.project_id = proj.project_id
AND  ppj.project_id = projd.project_id (+)
AND  ppj.purge_batch_id = projd.purge_batch_id (+)
AND  ppj.purge_batch_id = :P_Purge_batch_id
order by ppj.project_id,proj.segment1