PA Generate Capitalized Interest Transactions

select p.segment1               project_number
          ,p.project_id               project_id
          ,t.task_number           task_number   
          ,pl.meaning                 exception_type    
          ,fm.message_text      error   
          ,prun.cint_rate_name rate_name
from   pa_projects_all p
          ,pa_tasks t
          ,pa_lookups pl
          ,fnd_new_messages fm
          ,pa_alloc_exceptions pae
          ,pa_alloc_runs_all prun
where p.project_id(+) = pae.project_id
and     t.task_id (+)= pae.task_id 
and     pl.lookup_type='ALLOC_EXCEPTION_TYPE'
and     pl.lookup_code =pae.exception_type
and     fm.message_name=pae.exception_code 	
and     pae.rule_id=-1
and     pae.run_id = prun.run_id
and    decode(:P_MODE_1,
                       'G',prun.run_id,
                       :p_run_id)  = prun.run_id
and   decode(:P_MODE_1,
                       'G',:p_conc_request_id,
                        prun.draft_request_id)=prun.draft_request_id
and    pae.exception_code <> 'PA_CINT_RELEASE_FAILED'						
union all
select p.segment1          project_number
      ,p.project_id        project_id  
	  ,t.task_number       task_number  
                  ,(select pl.meaning from pa_lookups pl where pl.lookup_type = 'ALLOC_EXCEPTION_TYPE'
                    and pl.lookup_code = 'E') exception_type
	  ,fm.message_text     error
	  ,prun.cint_rate_name rate_name
from   pa_projects_all p
      ,pa_tasks t
	  ,fnd_new_messages fm
	  ,pa_alloc_runs_all prun
	  ,pa_alloc_txn_details patd
where   p.project_id = patd.project_id
and    t.task_id = patd.task_id
and    fm.message_name=patd.rejection_code
and    patd.run_id = prun.run_id
and    patd.rule_id=-1
and    decode(:P_MODE_1,'G',prun.run_id,
                       :p_run_id)  = prun.run_id
and   decode(:P_MODE_1,'G',:p_conc_request_id,
                        prun.draft_request_id)=prun.draft_request_id
						ORDER BY 6 ASC