890: CURSOR check_cost_code_enabled(c_project_id NUMBER) IS
891: select 'Y' from dual where
892: EXISTS
893: (SELECT *
894: FROM pa_projects_all
895: WHERE project_id = c_project_id
896: AND CBS_VERSION_ID IS NOT NULL
897: AND CBS_ENABLE_FLAG = 'Y');
898:
934: cursor validateCBSStructure(c_Project_Id IN NUMBER, c_Cbs_Element_Id IN NUMBER) IS
935: select 'Y' from dual where
936: EXISTS
937: (SELECT *
938: FROM pa_projects_all
939: WHERE project_id = c_Project_Id
940: AND CBS_VERSION_ID =
941: (select rbs_version_id from pa_rbs_elements
942: where rbs_element_id = c_Cbs_Element_Id)
1027: WHERE proj_element_id = c_Task_Id
1028: AND cbs_element_id = (select rbs_element_id from pa_rbs_elements
1029: where cost_code = c_Cost_Code
1030: and rbs_version_id =
1031: (select cbs_version_id from pa_projects_all where project_id = c_Project_Id))
1032: );
1033:
1034: cursor validateCBSStructure(c_Project_Id IN NUMBER, c_Cost_Code IN Varchar2) IS
1035: select 'Y' from dual where
1036: EXISTS
1037: (select * from pa_rbs_elements
1038: where cost_code = c_Cost_Code
1039: and rbs_version_id =
1040: (select cbs_version_id from pa_projects_all where project_id = c_Project_Id)
1041: );
1042:
1043: l_Cbs_Enabled VARCHAR2(1) := 'N';
1044: l_Cbs_Struct_Valid VARCHAR2(1) := 'N';
1256: IS
1257: l_cbs_element_id NUMBER(15) :=null;
1258: CURSOR C1 IS
1259: SELECT PRE.RBS_ELEMENT_ID CBS_ELEMENT_ID
1260: FROM PA_RBS_ELEMENTS PRE , PA_PROJECTS_ALL PPA
1261: WHERE PRE.RBS_VERSION_ID=PPA.CBS_VERSION_ID
1262: AND PPA.PROJECT_ID=p_project_id
1263: AND PRE.COST_CODE=p_cost_code;
1264: