600: IS
601: --------------------------------------------------------------------------------
602: CURSOR dist_lines_c IS
603: SELECT *
604: FROM AP_EXP_REPORT_DISTS_ALL
605: WHERE REPORT_HEADER_ID = p_report_header_id
606: FOR UPDATE OF REPORT_HEADER_ID NOWAIT;
607:
608: dist_lines_rec dist_lines_c%ROWTYPE;
615: FETCH dist_lines_c into dist_lines_rec;
616: EXIT WHEN dist_lines_c%NOTFOUND;
617:
618: IF dist_lines_rec.CODE_COMBINATION_ID IS NOT NULL THEN
619: UPDATE ap_exp_report_dists_all
620: SET (segment1,
621: segment2,
622: segment3,
623: segment4,
884: l_created_by NUMBER;
885: l_report_distribution_id expDist_REPORT_DISTRIBUTION_ID;
886: l_code_combination_id expDist_CODE_COMBINATION_ID;
887: l_org_id NUMBER;
888: l_amount ap_exp_report_dists_all.amount%TYPE;
889: l_project_id ap_exp_report_dists_all.project_id%TYPE;
890: l_task_id ap_exp_report_dists_all.task_id%TYPE;
891: l_award_id ap_exp_report_dists_all.award_id%TYPE;
892: l_expenditure_organization_id ap_exp_report_dists_all.expenditure_organization_id%TYPE;
885: l_report_distribution_id expDist_REPORT_DISTRIBUTION_ID;
886: l_code_combination_id expDist_CODE_COMBINATION_ID;
887: l_org_id NUMBER;
888: l_amount ap_exp_report_dists_all.amount%TYPE;
889: l_project_id ap_exp_report_dists_all.project_id%TYPE;
890: l_task_id ap_exp_report_dists_all.task_id%TYPE;
891: l_award_id ap_exp_report_dists_all.award_id%TYPE;
892: l_expenditure_organization_id ap_exp_report_dists_all.expenditure_organization_id%TYPE;
893: l_cost_center ap_exp_report_dists_all.cost_center%TYPE;
886: l_code_combination_id expDist_CODE_COMBINATION_ID;
887: l_org_id NUMBER;
888: l_amount ap_exp_report_dists_all.amount%TYPE;
889: l_project_id ap_exp_report_dists_all.project_id%TYPE;
890: l_task_id ap_exp_report_dists_all.task_id%TYPE;
891: l_award_id ap_exp_report_dists_all.award_id%TYPE;
892: l_expenditure_organization_id ap_exp_report_dists_all.expenditure_organization_id%TYPE;
893: l_cost_center ap_exp_report_dists_all.cost_center%TYPE;
894:
887: l_org_id NUMBER;
888: l_amount ap_exp_report_dists_all.amount%TYPE;
889: l_project_id ap_exp_report_dists_all.project_id%TYPE;
890: l_task_id ap_exp_report_dists_all.task_id%TYPE;
891: l_award_id ap_exp_report_dists_all.award_id%TYPE;
892: l_expenditure_organization_id ap_exp_report_dists_all.expenditure_organization_id%TYPE;
893: l_cost_center ap_exp_report_dists_all.cost_center%TYPE;
894:
895: -- BUG 7025517
888: l_amount ap_exp_report_dists_all.amount%TYPE;
889: l_project_id ap_exp_report_dists_all.project_id%TYPE;
890: l_task_id ap_exp_report_dists_all.task_id%TYPE;
891: l_award_id ap_exp_report_dists_all.award_id%TYPE;
892: l_expenditure_organization_id ap_exp_report_dists_all.expenditure_organization_id%TYPE;
893: l_cost_center ap_exp_report_dists_all.cost_center%TYPE;
894:
895: -- BUG 7025517
896: p_seg1 varchar2(25);
889: l_project_id ap_exp_report_dists_all.project_id%TYPE;
890: l_task_id ap_exp_report_dists_all.task_id%TYPE;
891: l_award_id ap_exp_report_dists_all.award_id%TYPE;
892: l_expenditure_organization_id ap_exp_report_dists_all.expenditure_organization_id%TYPE;
893: l_cost_center ap_exp_report_dists_all.cost_center%TYPE;
894:
895: -- BUG 7025517
896: p_seg1 varchar2(25);
897: p_seg2 varchar2(25);