[Home] [Help]
37: -- 24-FEB-1997 L. de Werker - Created
38: -- 24-JUN-97 jwhite - Updated to latest specs.
39: -- 29-JUL-97 jwhite - Updated to specs directed by jlowell.
40: -- 12-AUG -97 jwhite - Ditto; added check for enable flags
41: -- from pa_project_types and
42: -- pa_budget_types.
43: -- 21-OCT-87 jwhite - Updated as per Kevin Hudson's code review
44: --
45: -- 08-AUG-02 jwhite - Adapted default logic to also support the new FP model.
85:
86: CURSOR l_project_types_csr (p_project_id NUMBER)
87: IS
88: SELECT pt.enable_budget_wf_flag
89: FROM pa_projects p, pa_project_types pt
90: WHERE p.project_id = p_project_id
91: AND p.project_type = pt.project_type;
92:
93: CURSOR l_budget_types_csr (p_budget_type_code VARCHAR2)
103: WHERE pl.fin_plan_type_id = p_fin_plan_type_id;
104:
105:
106:
107: l_enable_budget_wf_flag pa_project_types.enable_budget_wf_flag%TYPE := 'N';
108: l_enable_wf_flag pa_budget_types.enable_wf_flag%TYPE := 'N';
109:
110:
111: BEGIN
329: --
330: CURSOR l_project_type_class( p_project_type VARCHAR2)
331: IS
332: SELECT project_type_class_code
333: FROM pa_project_types
334: WHERE project_type = p_project_type;
335: --
336: CURSOR l_starter_user_name_csr( p_starter_user_id NUMBER )
337: IS
436: l_project_type pa_projects.project_type%TYPE;
437: l_pm_project_product_code pa_projects.pm_product_code%TYPE;
438: l_carrying_out_org_id NUMBER;
439: l_carrying_out_org_name hr_organization_units.name%TYPE;
440: l_project_type_class_code pa_project_types.project_type_class_code%TYPE;
441:
442: l_pm_budget_reference pa_budget_versions.pm_budget_reference%TYPE;
443: l_budget_description pa_budget_versions.description%TYPE;
444: l_budget_change_reason_code pa_budget_versions.change_reason_code%TYPE;