DBA Data[Home] [Help]

APPS.PA_PROJ_TASK_STRUC_PUB dependencies on DUAL

Line 287: FROM sys.dual;

283:
284: CURSOR cur_elem_ver_seq
285: IS
286: SELECT pa_proj_element_versions_s.nextval
287: FROM sys.dual;
288:
289: BEGIN
290:
291: --Clear Error Messages.

Line 627: FROM sys.dual;

623: IF p_struc_type = 'WORKPLAN' AND l_split_flag IS NOT NULL
624: THEN
625: --l_proj_element_id := null;
626: SELECT pa_tasks_s.nextval INTO l_proj_element_id
627: FROM sys.dual;
628: l_postfix := '-'||SUBSTR( p_struc_type, 1, 1 );
629: --hsiu added for parent_structure_id column
630: OPEN get_structure(p_project_id, 'WORKPLAN');
631: FETCH get_structure into l_structure_id;

Line 4958: FROM sys.dual;

4954: where project_id = p_project_id;
4955:
4956: CURSOR cur_elem_ver_seq IS
4957: SELECT pa_proj_element_versions_s.nextval
4958: FROM sys.dual;
4959:
4960: cursor get_working_ver_num(c_project_id NUMBER, c_proj_element_id NUMBER) IS
4961: select nvl(max(version_number),0)+1
4962: from pa_proj_elem_ver_structure

Line 5231: FROM sys.dual;

5227: and status_code <> 'STRUCTURE_PUBLISHED';
5228:
5229: CURSOR cur_elem_ver_seq IS
5230: SELECT pa_proj_element_versions_s.nextval
5231: FROM sys.dual;
5232:
5233: cursor get_working_ver_num(c_project_id NUMBER, c_proj_element_id NUMBER) IS
5234: select nvl(max(version_number),0)+1
5235: from pa_proj_elem_ver_structure

Line 7867: FROM dual

7863:
7864: --This cursor determines if atleast one WP version has been selected by the user
7865: CURSOR cur_min_one_wp_version_sel IS
7866: SELECT 'Y'
7867: FROM dual
7868: WHERE EXISTS( SELECT 'Y'
7869: FROM PA_PROJECT_COPY_OPTIONS_TMP
7870: WHERE CONTEXT = 'WORKPLAN'
7871: AND VERSION_ID IS NOT NULL) ;

Line 9131: FROM dual;

9127: --If it is a shared structure and the only WP version selected is Publish Upon Creation, then
9128: --create a working copy of the Published version
9129: IF l_shared_make_working_copy IS NOT NULL THEN
9130: SELECT pa_proj_element_versions_s.nextval INTO l_new_wp_ver_id
9131: FROM dual;
9132:
9133: SELECT meaning INTO l_prefix
9134: FROM pa_lookups
9135: WHERE lookup_type = 'PA_STRUCTURES_PREFIX'

Line 10081: FROM dual;

10077: check_str_sel_flag := 'Y';
10078:
10079: --Create new default WP structure version
10080: SELECT pa_proj_element_versions_s.nextval INTO l_new_wp_ver_id
10081: FROM dual;
10082:
10083: INSERT INTO pa_proj_element_versions(
10084: ELEMENT_VERSION_ID
10085: ,PROJ_ELEMENT_ID

Line 10960: FROM sys.dual;

10956:
10957: CURSOR cur_elem_ver_seq
10958: IS
10959: SELECT pa_proj_element_versions_s.nextval
10960: FROM sys.dual;
10961:
10962: l_get_structure_attr_csr_rec l_get_structure_attr_csr%ROWTYPE;
10963: l_get_structure_attr_csr_rec2 l_get_structure_attr_csr2%ROWTYPE;
10964:

Line 21158: ,residual_task_count Number

21154: ,cum_alloted_weightage pa_object_relationships.weighting_percentage%TYPE
21155: ,processed_child_count Number
21156: -- Following added for bug 3053472
21157: ,loop_count Number
21158: ,residual_task_count Number
21159: ,adj_direction Number -- This will be +1 / -1
21160: );
21161:
21162: TYPE CHILD_INFO_TBL IS TABLE OF CHILD_INFO_REC

Line 21406: -- These will be used in the second part of the api to calculate the weightage of the individual

21402: --bug 4726889
21403:
21404: -- The first part of this procedure reads the task version records of the structure version
21405: -- in batches and calculates the summed duration or the summed effort of all the parent tasks.
21406: -- These will be used in the second part of the api to calculate the weightage of the individual
21407: -- tasks.
21408: DECLARE
21409: l_object_rel_id_fetch_tbl object_rel_id_tbl;
21410: l_parent_task_ver_id_fetch_tbl parent_task_ver_id_tbl;

Line 21493: l_residual_weightage pa_object_relationships.weighting_percentage%TYPE;

21489:
21490: --Bug 3053472 - remaining weightage is no more required.
21491: --l_remaining_weightage pa_object_relationships.weighting_percentage%TYPE;
21492:
21493: l_residual_weightage pa_object_relationships.weighting_percentage%TYPE;
21494: BEGIN
21495: IF nvl(l_object_rel_id_tbl.last,0) > 0 THEN
21496: FOR i in l_object_rel_id_tbl.first..l_object_rel_id_tbl.last LOOP
21497: l_parent_id := l_parent_task_ver_id_tbl(i);

Line 21546: -- Bug 3053472. Loop over the plsql table once more to process the residual task weightage of

21542: + l_task_weightage;
21543: l_task_weightage_tbl(i) := l_task_weightage;
21544: END LOOP;
21545:
21546: -- Bug 3053472. Loop over the plsql table once more to process the residual task weightage of
21547: -- the tasks. The logic used is to distribute the residual task weightage to as many tasks as
21548: -- possible so that the task weightage is uniform. The updates in the bug gives more details
21549: -- on the logic.
21550: FOR i in l_object_rel_id_tbl.first..l_object_rel_id_tbl.last LOOP

Line 21547: -- the tasks. The logic used is to distribute the residual task weightage to as many tasks as

21543: l_task_weightage_tbl(i) := l_task_weightage;
21544: END LOOP;
21545:
21546: -- Bug 3053472. Loop over the plsql table once more to process the residual task weightage of
21547: -- the tasks. The logic used is to distribute the residual task weightage to as many tasks as
21548: -- possible so that the task weightage is uniform. The updates in the bug gives more details
21549: -- on the logic.
21550: FOR i in l_object_rel_id_tbl.first..l_object_rel_id_tbl.last LOOP
21551: l_parent_id := l_parent_task_ver_id_tbl(i);

Line 21555: -- So calculate how much is the residual weightage.

21551: l_parent_id := l_parent_task_ver_id_tbl(i);
21552:
21553: IF l_child_info_tbl(l_parent_id).loop_count is NULL THEN
21554: -- This means that this is the first task that is being processed for this parent.
21555: -- So calculate how much is the residual weightage.
21556: l_residual_weightage := ( 100 - l_child_info_tbl(l_parent_id).cum_alloted_weightage ) * 100;
21557: l_child_info_tbl(l_parent_id).loop_count :=
21558: floor(abs(l_residual_weightage) / l_child_info_tbl(l_parent_id).processed_child_count);
21559: l_child_info_tbl(l_parent_id).residual_task_count :=

Line 21556: l_residual_weightage := ( 100 - l_child_info_tbl(l_parent_id).cum_alloted_weightage ) * 100;

21552:
21553: IF l_child_info_tbl(l_parent_id).loop_count is NULL THEN
21554: -- This means that this is the first task that is being processed for this parent.
21555: -- So calculate how much is the residual weightage.
21556: l_residual_weightage := ( 100 - l_child_info_tbl(l_parent_id).cum_alloted_weightage ) * 100;
21557: l_child_info_tbl(l_parent_id).loop_count :=
21558: floor(abs(l_residual_weightage) / l_child_info_tbl(l_parent_id).processed_child_count);
21559: l_child_info_tbl(l_parent_id).residual_task_count :=
21560: mod(abs(l_residual_weightage) , l_child_info_tbl(l_parent_id).processed_child_count);

Line 21558: floor(abs(l_residual_weightage) / l_child_info_tbl(l_parent_id).processed_child_count);

21554: -- This means that this is the first task that is being processed for this parent.
21555: -- So calculate how much is the residual weightage.
21556: l_residual_weightage := ( 100 - l_child_info_tbl(l_parent_id).cum_alloted_weightage ) * 100;
21557: l_child_info_tbl(l_parent_id).loop_count :=
21558: floor(abs(l_residual_weightage) / l_child_info_tbl(l_parent_id).processed_child_count);
21559: l_child_info_tbl(l_parent_id).residual_task_count :=
21560: mod(abs(l_residual_weightage) , l_child_info_tbl(l_parent_id).processed_child_count);
21561:
21562: -- The adj_direction is set to -1 if the task weigtage has to be adjusted by reducing some amount

Line 21559: l_child_info_tbl(l_parent_id).residual_task_count :=

21555: -- So calculate how much is the residual weightage.
21556: l_residual_weightage := ( 100 - l_child_info_tbl(l_parent_id).cum_alloted_weightage ) * 100;
21557: l_child_info_tbl(l_parent_id).loop_count :=
21558: floor(abs(l_residual_weightage) / l_child_info_tbl(l_parent_id).processed_child_count);
21559: l_child_info_tbl(l_parent_id).residual_task_count :=
21560: mod(abs(l_residual_weightage) , l_child_info_tbl(l_parent_id).processed_child_count);
21561:
21562: -- The adj_direction is set to -1 if the task weigtage has to be adjusted by reducing some amount
21563: -- from the tasks. otherwise the adj_direction is 1.

Line 21560: mod(abs(l_residual_weightage) , l_child_info_tbl(l_parent_id).processed_child_count);

21556: l_residual_weightage := ( 100 - l_child_info_tbl(l_parent_id).cum_alloted_weightage ) * 100;
21557: l_child_info_tbl(l_parent_id).loop_count :=
21558: floor(abs(l_residual_weightage) / l_child_info_tbl(l_parent_id).processed_child_count);
21559: l_child_info_tbl(l_parent_id).residual_task_count :=
21560: mod(abs(l_residual_weightage) , l_child_info_tbl(l_parent_id).processed_child_count);
21561:
21562: -- The adj_direction is set to -1 if the task weigtage has to be adjusted by reducing some amount
21563: -- from the tasks. otherwise the adj_direction is 1.
21564: IF l_residual_weightage < 0 THEN

Line 21564: IF l_residual_weightage < 0 THEN

21560: mod(abs(l_residual_weightage) , l_child_info_tbl(l_parent_id).processed_child_count);
21561:
21562: -- The adj_direction is set to -1 if the task weigtage has to be adjusted by reducing some amount
21563: -- from the tasks. otherwise the adj_direction is 1.
21564: IF l_residual_weightage < 0 THEN
21565: l_child_info_tbl(l_parent_id).adj_direction := -1;
21566: ELSE
21567: l_child_info_tbl(l_parent_id).adj_direction := 1;
21568: END IF;

Line 21572: IF l_child_info_tbl(l_parent_id).residual_task_count > 0 THEN

21568: END IF;
21569: END IF;
21570:
21571: IF l_task_weightage_tbl(i) > 0 THEN
21572: IF l_child_info_tbl(l_parent_id).residual_task_count > 0 THEN
21573: l_task_weightage_tbl(i) := l_task_weightage_tbl(i) +
21574: (l_child_info_tbl(l_parent_id).loop_count + 1) * 0.01 * l_child_info_tbl(l_parent_id).adj_direction;
21575:
21576: l_child_info_tbl(l_parent_id).residual_task_count :=

Line 21576: l_child_info_tbl(l_parent_id).residual_task_count :=

21572: IF l_child_info_tbl(l_parent_id).residual_task_count > 0 THEN
21573: l_task_weightage_tbl(i) := l_task_weightage_tbl(i) +
21574: (l_child_info_tbl(l_parent_id).loop_count + 1) * 0.01 * l_child_info_tbl(l_parent_id).adj_direction;
21575:
21576: l_child_info_tbl(l_parent_id).residual_task_count :=
21577: l_child_info_tbl(l_parent_id).residual_task_count - 1;
21578: ELSE
21579: l_task_weightage_tbl(i) := l_task_weightage_tbl(i) +
21580: l_child_info_tbl(l_parent_id).loop_count * 0.01 * l_child_info_tbl(l_parent_id).adj_direction;

Line 21577: l_child_info_tbl(l_parent_id).residual_task_count - 1;

21573: l_task_weightage_tbl(i) := l_task_weightage_tbl(i) +
21574: (l_child_info_tbl(l_parent_id).loop_count + 1) * 0.01 * l_child_info_tbl(l_parent_id).adj_direction;
21575:
21576: l_child_info_tbl(l_parent_id).residual_task_count :=
21577: l_child_info_tbl(l_parent_id).residual_task_count - 1;
21578: ELSE
21579: l_task_weightage_tbl(i) := l_task_weightage_tbl(i) +
21580: l_child_info_tbl(l_parent_id).loop_count * 0.01 * l_child_info_tbl(l_parent_id).adj_direction;
21581: END IF;

Line 22385: Select Instr(P_String, l_Delimeter, 1, i) Into l_End from dual;

22381: -- Build the PL/SQL Table with all the required strings
22382: l_begin := 1;
22383: For i IN 1..200000 -- Romove this range. Used only for testing
22384: Loop
22385: Select Instr(P_String, l_Delimeter, 1, i) Into l_End from dual;
22386: Select substr(P_String, l_begin, Decode(l_End, 0, 1000, l_End-l_begin))
22387: Into l_Strings_Tab(i) From Dual;
22388: l_begin := l_end + 1;
22389: EXIT When nvl(l_End,0) = 0;

Line 22387: Into l_Strings_Tab(i) From Dual;

22383: For i IN 1..200000 -- Romove this range. Used only for testing
22384: Loop
22385: Select Instr(P_String, l_Delimeter, 1, i) Into l_End from dual;
22386: Select substr(P_String, l_begin, Decode(l_End, 0, 1000, l_End-l_begin))
22387: Into l_Strings_Tab(i) From Dual;
22388: l_begin := l_end + 1;
22389: EXIT When nvl(l_End,0) = 0;
22390: End Loop;
22391:

Line 22464: Into l_Col1 From Dual;

22460: End Loop;
22461: -- End of processing single string
22462:
22463: Select To_Number(SubStr(l_Strings_Tab(Rec), 1, Decode(l_Type_Position, 0, 100, l_Type_Position-2 )))
22464: Into l_Col1 From Dual;
22465:
22466: If l_Type_Position <> 0 then
22467: If l_Type_Count <> 2 then
22468: -- Dbms_Output.Put_Line('Error: Type code is invalid - 4');