[Home] [Help]
213: --MOAC Changes: Bug 4363092: removed nvl usage with org_id
214: IF x_project_id IS NOT NULL THEN
215: select pt.project_type_class_code
216: into l_proj_type_class_code
217: from pa_projects_all p, -- Bug#3807805 : Modified pa_projects to pa_projects_all
218: pa_project_types_all pt -- Bug#3807805 : Modified pa_project_types to pa_project_types_all
219: where p.project_id = X_Project_ID
220: and p.project_type = pt.project_type
221: and p.org_id = pt.org_id; -- Added the and condition for Bug#3807805
285: -- only if the project is an approved contract project.
286:
287: savepoint checking_manager_validity;
288:
289: update pa_projects_all
290: set project_status_code = 'APPROVED'
291: where project_id = x_project_id;
292:
293: -- Calling the procedures that do the checks
578:
579: END;
580:
581: FUNCTION Get_project_business_group
582: (p_project_id IN pa_projects_all.project_id%TYPE) RETURN NUMBER IS
583: -- This function returns the business group for a project
584: l_bg_id NUMBER := 0;
585: BEGIN
586: SELECT impl.business_group_id
585: BEGIN
586: SELECT impl.business_group_id
587: INTO l_bg_id
588: FROM pa_implementations_all impl,
589: pa_projects_all pap
590: WHERE pap.project_id = p_project_id
591: AND pap.org_id = impl.org_id; --MOAC Changes: Bug 4363092: removed nvl usage with org_id
592: RETURN l_bg_id ;
593: EXCEPTION
598: END get_project_business_group ;
599:
600:
601: PROCEDURE Check_Project_Number_Or_Id
602: ( p_project_id IN pa_projects_all.project_id%TYPE
603: ,p_project_number IN pa_projects_all.segment1%TYPE
604: ,p_check_id_flag IN VARCHAR2 := 'A'
605: ,x_project_id OUT NOCOPY pa_projects_all.project_id%TYPE --File.Sql.39 bug 4440895
606: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
599:
600:
601: PROCEDURE Check_Project_Number_Or_Id
602: ( p_project_id IN pa_projects_all.project_id%TYPE
603: ,p_project_number IN pa_projects_all.segment1%TYPE
604: ,p_check_id_flag IN VARCHAR2 := 'A'
605: ,x_project_id OUT NOCOPY pa_projects_all.project_id%TYPE --File.Sql.39 bug 4440895
606: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
607: ,x_error_message_code OUT NOCOPY VARCHAR2) IS --File.Sql.39 bug 4440895
601: PROCEDURE Check_Project_Number_Or_Id
602: ( p_project_id IN pa_projects_all.project_id%TYPE
603: ,p_project_number IN pa_projects_all.segment1%TYPE
604: ,p_check_id_flag IN VARCHAR2 := 'A'
605: ,x_project_id OUT NOCOPY pa_projects_all.project_id%TYPE --File.Sql.39 bug 4440895
606: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
607: ,x_error_message_code OUT NOCOPY VARCHAR2) IS --File.Sql.39 bug 4440895
608:
609:
612: l_id_found_flag VARCHAR(1) := 'N';
613:
614: CURSOR c_ids IS
615: SELECT project_id
616: FROM pa_projects_all
617: WHERE segment1 = p_project_number;
618:
619: BEGIN
620:
622: IF (p_check_id_flag = 'Y') THEN
623: -- Validate ID
624: SELECT project_id
625: INTO x_project_id
626: FROM pa_projects_all
627: WHERE project_id = p_project_id;
628: ELSIF (p_check_id_flag = 'N') THEN
629: -- No ID validation necessary
630: x_project_id := p_project_id;
662: ELSE -- Find ID since it was not passed.
663: IF (p_project_number IS NOT NULL) THEN
664: SELECT project_id
665: INTO x_project_id
666: FROM pa_projects_all
667: WHERE segment1 = p_project_number;
668: ELSE
669: x_project_id := NULL;
670: END IF;
705: x_msg_data OUT NOCOPY VARCHAR2 ) IS
706: CURSOR c_wf_type IS
707: SELECT ps.workflow_item_type
708: FROM pa_project_statuses ps,
709: pa_projects_all ppa
710: WHERE ppa.project_id = p_project_id
711: AND ppa.project_status_code = ps.project_status_code
712: AND ps.enable_wf_flag = 'Y'
713: AND ps.wf_success_status_code is NOT NULL