[Home] [Help]
30: BEGIN
31:
32: select oke_k_fund_allocations_s.nextval
33: into l_funding_allocation_id
34: from dual;
35:
36: return(l_funding_allocation_id);
37:
38: END get_fund_allocation_id;
632: where k_line_id = p_k_line_id;
633:
634: cursor c_valid_line (x_project_id number) is
635: select 'x'
636: from dual
637: where p_project_id in
638: (select to_number(sub_project_id)
639: from pa_fin_structures_links_v
640: start with parent_project_id = x_project_id
642: );
643:
644: cursor c_valid_line2 (x_task_id number,x_project_id number) is
645: select 'x'
646: from dual
647: where p_project_id in
648: ( select to_number(sub_project_id)
649: from pa_fin_structures_links_v
650: START WITH (parent_project_id, parent_task_id)
814:
815: /*
816: cursor c_project_h (x_project_id number) is
817: select 'x'
818: from dual
819: where p_project_id in
820: (select to_number(sub_project_id)
821: from pa_fin_structures_links_v
822: start with parent_project_id = x_project_id
822: start with parent_project_id = x_project_id
823: connect by parent_project_id = prior sub_project_id
824: union all
825: select x_project_id
826: from dual
827: );
828:
829: */
830:
831: /*Modified the above cursor for the bug#15919161 */
832:
833: cursor c_project_h (x_project_id number) is
834: select 'x'
835: from dual
836: where x_project_id in
837: (select a.parent_project_id
838: from pa_fin_structures_links_v a
839: start with sub_project_id = p_project_id
839: start with sub_project_id = p_project_id
840: connect by sub_project_id = prior parent_project_id
841: union all
842: select p_project_id
843: from dual
844: );
845:
846: /*
847: cursor c_project_h2 (x_task_id number, x_project_id number) is
845:
846: /*
847: cursor c_project_h2 (x_task_id number, x_project_id number) is
848: select 'x'
849: from dual
850: where p_project_id in
851: ( select to_number(sub_project_id)
852: from pa_fin_structures_links_v
853: start with parent_project_id = x_project_id
854: and parent_task_id = x_task_id
855: connect by parent_project_id = prior sub_project_id
856: union all
857: select x_project_id
858: from dual
859: );
860: */
861:
862: /*Modified the above cursor for the bug#15919161 */
862: /*Modified the above cursor for the bug#15919161 */
863:
864: cursor c_project_h2 (x_task_id number, x_project_id number) is
865: select 'x'
866: from dual
867: where (x_project_id,x_task_id) in
868: ( select a.parent_project_id,a.parent_task_id
869: from pa_fin_structures_links_v a
870: start with sub_project_id = p_project_id
870: start with sub_project_id = p_project_id
871: connect by sub_project_id = prior parent_project_id
872: union all
873: select p_project_id,x_task_id
874: from dual
875: );
876:
877: cursor c_intent is
878: select buy_or_sell