[Home] [Help]
6: -- Pre-reqs : None
7: -- Return Value : N/A
8: -- Parameters
9: -- p_api_version IN NUMBER := 1.0
10: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13: -- p_validation_level IN VARCHAR2 := 100
14: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7: -- Return Value : N/A
8: -- Parameters
9: -- p_api_version IN NUMBER := 1.0
10: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13: -- p_validation_level IN VARCHAR2 := 100
14: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
15: -- p_debug_mode IN VARCHAR2 := 'N'
8: -- Parameters
9: -- p_api_version IN NUMBER := 1.0
10: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
12: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13: -- p_validation_level IN VARCHAR2 := 100
14: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
15: -- p_debug_mode IN VARCHAR2 := 'N'
16: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
49:
50: procedure Create_Structure
51: (
52: p_api_version IN NUMBER := 1.0
53: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
54: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
55: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
56: ,p_validation_level IN VARCHAR2 := 100
57: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
50: procedure Create_Structure
51: (
52: p_api_version IN NUMBER := 1.0
53: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
54: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
55: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
56: ,p_validation_level IN VARCHAR2 := 100
57: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
58: ,p_debug_mode IN VARCHAR2 := 'N'
51: (
52: p_api_version IN NUMBER := 1.0
53: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
54: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
55: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
56: ,p_validation_level IN VARCHAR2 := 100
57: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
58: ,p_debug_mode IN VARCHAR2 := 'N'
59: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
79: ,p_attribute14 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
80: ,p_attribute15 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
81: ,p_approval_reqd_flag IN VARCHAR2 := 'N'
82: ,p_auto_publish_flag IN VARCHAR2 := 'N'
83: ,p_approver_source_id IN NUMBER := FND_API.G_MISS_NUM
84: ,p_approver_source_type IN NUMBER := FND_API.G_MISS_NUM
85: ,p_default_display_lvl IN NUMBER := 0
86: ,p_enable_wp_version_flag IN VARCHAR2 := 'N'
87: ,p_auto_pub_upon_creation_flag IN VARCHAR2 := 'N'
80: ,p_attribute15 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
81: ,p_approval_reqd_flag IN VARCHAR2 := 'N'
82: ,p_auto_publish_flag IN VARCHAR2 := 'N'
83: ,p_approver_source_id IN NUMBER := FND_API.G_MISS_NUM
84: ,p_approver_source_type IN NUMBER := FND_API.G_MISS_NUM
85: ,p_default_display_lvl IN NUMBER := 0
86: ,p_enable_wp_version_flag IN VARCHAR2 := 'N'
87: ,p_auto_pub_upon_creation_flag IN VARCHAR2 := 'N'
88: ,p_auto_sync_txn_date_flag IN VARCHAR2 := 'N'
85: ,p_default_display_lvl IN NUMBER := 0
86: ,p_enable_wp_version_flag IN VARCHAR2 := 'N'
87: ,p_auto_pub_upon_creation_flag IN VARCHAR2 := 'N'
88: ,p_auto_sync_txn_date_flag IN VARCHAR2 := 'N'
89: ,p_txn_date_sync_buf_days IN NUMBER := FND_API.G_MISS_NUM
90: ,p_lifecycle_version_id IN NUMBER := FND_API.G_MISS_NUM
91: ,p_current_phase_version_id IN NUMBER := FND_API.G_MISS_NUM
92: ,p_progress_cycle_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
93: ,p_wq_enable_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
86: ,p_enable_wp_version_flag IN VARCHAR2 := 'N'
87: ,p_auto_pub_upon_creation_flag IN VARCHAR2 := 'N'
88: ,p_auto_sync_txn_date_flag IN VARCHAR2 := 'N'
89: ,p_txn_date_sync_buf_days IN NUMBER := FND_API.G_MISS_NUM
90: ,p_lifecycle_version_id IN NUMBER := FND_API.G_MISS_NUM
91: ,p_current_phase_version_id IN NUMBER := FND_API.G_MISS_NUM
92: ,p_progress_cycle_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
93: ,p_wq_enable_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
94: ,p_remain_effort_enable_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
87: ,p_auto_pub_upon_creation_flag IN VARCHAR2 := 'N'
88: ,p_auto_sync_txn_date_flag IN VARCHAR2 := 'N'
89: ,p_txn_date_sync_buf_days IN NUMBER := FND_API.G_MISS_NUM
90: ,p_lifecycle_version_id IN NUMBER := FND_API.G_MISS_NUM
91: ,p_current_phase_version_id IN NUMBER := FND_API.G_MISS_NUM
92: ,p_progress_cycle_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
93: ,p_wq_enable_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
94: ,p_remain_effort_enable_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
95: ,p_percent_comp_enable_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
159: IF (p_debug_mode = 'Y') THEN
160: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE BEGIN');
161: END IF;
162:
163: IF (p_commit = FND_API.G_TRUE) THEN
164: savepoint CREATE_STRUC_PRIVATE;
165: END IF;
166:
167: IF (p_debug_mode = 'Y') THEN
174: p_project_id) <> 'Y') THEN
175: --Name is not unique
176: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_STRUC_NAME_UNIQUE');
177: x_msg_data := 'PA_PS_STRUC_NAME_UNIQUE';
178: RAISE FND_API.G_EXC_ERROR;
179: END IF;
180:
181: --Check what is licensed.
182: l_workplan_license := nvl(pa_install.is_pjt_licensed, 'N');
187: l_financial_license := 'N';
188: IF (l_workplan_license = 'N') THEN
189: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_PROJ_MANAG_NOT_LIC');
190: x_msg_data := 'PA_PS_PROD_MANAG_NOT_LIC';
191: RAISE FND_API.G_EXC_ERROR;
192: END IF;
193: ELSIF (p_calling_flag = 'FINANCIAL') THEN
194: l_workplan_license := 'N';
195: IF (l_financial_license <> 'Y') THEN
193: ELSIF (p_calling_flag = 'FINANCIAL') THEN
194: l_workplan_license := 'N';
195: IF (l_financial_license <> 'Y') THEN
196: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_COSTING_NOT_LIC');
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
199: ELSIF (p_calling_flag = 'DELIVERABLE') THEN
200: l_workplan_license := 'N';
201: l_financial_license := 'N';
209: fetch get_split_flag into l_split_flag, l_split_flag2;
210: IF get_split_flag%NOTFOUND THEN
211: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_PROJECT_ID');
212: x_msg_data := 'PA_INVALID_PROJECT_ID';
213: RAISE FND_API.G_EXC_ERROR;
214: END IF;
215: close get_split_flag;
216:
217: --Check if there is any error.
220: x_msg_count := l_msg_count;
221: IF x_msg_count = 1 THEN
222: x_msg_data := l_msg_data;
223: END IF;
224: RAISE FND_API.G_EXC_ERROR;
225: END IF;
226:
227: --If splitting structure types, check if one structure type is selected
228: If (l_split_flag <> 'N') THEN
231: l_billing_license := 'N';
232: If (l_workplan_license <> 'Y') THEN
233: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_PROJ_MANAG_NOT_LIC');
234: x_msg_data := 'PA_PS_PROD_MANAG_NOT_LIC';
235: RAISE FND_API.G_EXC_ERROR;
236: END IF;
237: ELSIf (p_calling_flag = 'COSTING') THEN
238: IF (l_costing_license <> 'Y') THEN
239: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_COSTING_NOT_LIC');
237: ELSIf (p_calling_flag = 'COSTING') THEN
238: IF (l_costing_license <> 'Y') THEN
239: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_COSTING_NOT_LIC');
240: x_msg_data := 'PA_PS_COSTING_NOT_LIC';
241: RAISE FND_API.G_EXC_ERROR;
242: END IF;
243: l_workplan_license := 'N';
244: If (l_split_flag2 <> 'N') THEN
245: l_billing_license := 'N';
247: ELSIf (p_calling_flag = 'BILLING') THEN
248: IF (l_billing_license <> 'Y') THEN
249: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_BILLING_NOT_LIC');
250: x_msg_data := 'PA_PS_BILLING_NOT_LIC';
251: RAISE FND_API.G_EXC_ERROR;
252: END IF;
253: l_workplan_license := 'N';
254: If (l_split_flag2 <> 'N') THEN
255: l_costing_license := 'N';
256: END IF;
257: ELSIf (p_calling_flag IS NULL) THEN
258: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_CALLING_PAGE_SEL');
259: x_msg_data := 'PA_PS_NO_CALLING_PAGE_SEL';
260: RAISE FND_API.G_EXC_ERROR;
261: END IF;
262: END IF;
263: */
264:
328: x_msg_count := l_msg_count;
329: IF x_msg_count = 1 THEN
330: x_msg_data := l_msg_data;
331: END IF;
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334:
335: --Insert into pa_proj_elements
336: select PA_TASKS_S.NEXTVAL into l_proj_element_id from sys.dual;
414: If (l_return_status <> 'S') THEN
415: PA_UTILS.ADD_MESSAGE('PA',l_error_message_code);
416: x_msg_data := l_error_message_code;
417: CLOSE get_licensed;
418: RAISE FND_API.G_EXC_ERROR;
419: END IF;
420:
421: IF (l_structure_type IN ('WORKPLAN','DELIVERABLE')) THEN
422: --Add pa_proj_workplan_attr row
420:
421: IF (l_structure_type IN ('WORKPLAN','DELIVERABLE')) THEN
422: --Add pa_proj_workplan_attr row
423: PA_WORKPLAN_ATTR_PVT.CREATE_PROJ_WORKPLAN_ATTRS(
424: p_validate_only => FND_API.G_FALSE
425: ,p_project_id => p_project_id
426: ,p_proj_element_id => l_proj_element_id
427: ,p_approval_reqd_flag => p_approval_reqd_flag
428: ,p_auto_publish_flag => p_auto_publish_flag
440: ,x_msg_data => x_msg_data
441: );
442:
443: IF (l_return_status <> 'S') THEN
444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
446: /* Amit : Moving this code below as it will create project progress attribute records for Delievrables too
447: PA_PROGRESS_PUB.CREATE_PROJ_PROG_ATTR(
448: p_validate_only => FND_API.G_FALSE
444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
446: /* Amit : Moving this code below as it will create project progress attribute records for Delievrables too
447: PA_PROGRESS_PUB.CREATE_PROJ_PROG_ATTR(
448: p_validate_only => FND_API.G_FALSE
449: ,p_project_id => p_project_id
450: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
451: ,P_OBJECT_ID => l_proj_element_id
452: ,p_wq_enable_flag => p_wq_enable_flag
463: ,x_msg_data => x_msg_data
464: );
465:
466: IF (l_return_status <> 'S') THEN
467: RAISE FND_API.G_EXC_ERROR;
468: END IF;
469: */
470:
471: END IF;
471: END IF;
472:
473: IF (l_structure_type = 'WORKPLAN') THEN -- NOt Adding financial here as progress attr created thru enable_financial_structure
474: PA_PROGRESS_PUB.CREATE_PROJ_PROG_ATTR(
475: p_validate_only => FND_API.G_FALSE
476: ,p_project_id => p_project_id
477: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
478: ,P_OBJECT_ID => l_proj_element_id
479: ,p_wq_enable_flag => p_wq_enable_flag
490: ,x_msg_data => x_msg_data
491: );
492:
493: IF (l_return_status <> 'S') THEN
494: RAISE FND_API.G_EXC_ERROR;
495: END IF;
496: END IF;
497:
498: --Insert into pa_proj_structure_types
523: );
524: EXCEPTION
525: WHEN OTHERS THEN
526: CLOSE get_licensed;
527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
528: END;
529: END LOOP;
530: --dbms_output.put_line('done inserting to struture type tbl');
531:
530: --dbms_output.put_line('done inserting to struture type tbl');
531:
532: CLOSE get_licensed;
533:
534: x_return_status := FND_API.G_RET_STS_SUCCESS;
535:
536: IF (p_debug_mode = 'Y') THEN
537: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE end');
538: END IF;
537: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE end');
538: END IF;
539:
540: EXCEPTION
541: WHEN FND_API.G_EXC_ERROR THEN
542: IF (p_commit = FND_API.G_TRUE) THEN
543: ROLLBACK to CREATE_STRUC_PRIVATE;
544: END IF;
545: x_msg_count := FND_MSG_PUB.count_msg;
538: END IF;
539:
540: EXCEPTION
541: WHEN FND_API.G_EXC_ERROR THEN
542: IF (p_commit = FND_API.G_TRUE) THEN
543: ROLLBACK to CREATE_STRUC_PRIVATE;
544: END IF;
545: x_msg_count := FND_MSG_PUB.count_msg;
546: x_return_status := FND_API.G_RET_STS_ERROR;
542: IF (p_commit = FND_API.G_TRUE) THEN
543: ROLLBACK to CREATE_STRUC_PRIVATE;
544: END IF;
545: x_msg_count := FND_MSG_PUB.count_msg;
546: x_return_status := FND_API.G_RET_STS_ERROR;
547: WHEN OTHERS THEN
548: IF (p_commit = FND_API.G_TRUE) THEN
549: ROLLBACK to CREATE_STRUC_PRIVATE;
550: END IF;
544: END IF;
545: x_msg_count := FND_MSG_PUB.count_msg;
546: x_return_status := FND_API.G_RET_STS_ERROR;
547: WHEN OTHERS THEN
548: IF (p_commit = FND_API.G_TRUE) THEN
549: ROLLBACK to CREATE_STRUC_PRIVATE;
550: END IF;
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: x_msg_count := FND_MSG_PUB.count_msg;
547: WHEN OTHERS THEN
548: IF (p_commit = FND_API.G_TRUE) THEN
549: ROLLBACK to CREATE_STRUC_PRIVATE;
550: END IF;
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: x_msg_count := FND_MSG_PUB.count_msg;
553: --put message
554: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
555: p_procedure_name => 'Create_Structure',
563: -- Pre-reqs : None
564: -- Return Value : N/A
565: -- Parameters
566: -- p_api_version IN NUMBER := 1.0
567: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
568: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
569: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
570: -- p_validation_level IN VARCHAR2 := 100
571: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
564: -- Return Value : N/A
565: -- Parameters
566: -- p_api_version IN NUMBER := 1.0
567: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
568: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
569: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
570: -- p_validation_level IN VARCHAR2 := 100
571: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
572: -- p_debug_mode IN VARCHAR2 := 'N'
565: -- Parameters
566: -- p_api_version IN NUMBER := 1.0
567: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
568: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
569: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
570: -- p_validation_level IN VARCHAR2 := 100
571: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
572: -- p_debug_mode IN VARCHAR2 := 'N'
573: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
602:
603: procedure Create_Structure_Version
604: (
605: p_api_version IN NUMBER := 1.0
606: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
607: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
608: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
609: ,p_validation_level IN VARCHAR2 := 100
610: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
603: procedure Create_Structure_Version
604: (
605: p_api_version IN NUMBER := 1.0
606: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
607: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
608: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
609: ,p_validation_level IN VARCHAR2 := 100
610: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
611: ,p_debug_mode IN VARCHAR2 := 'N'
604: (
605: p_api_version IN NUMBER := 1.0
606: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
607: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
608: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
609: ,p_validation_level IN VARCHAR2 := 100
610: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
611: ,p_debug_mode IN VARCHAR2 := 'N'
612: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
672: IF (p_debug_mode = 'Y') THEN
673: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE_VERSION begin');
674: END IF;
675:
676: IF (p_commit = FND_API.G_TRUE) THEN
677: savepoint CREATE_STRUC_VER_PVT;
678: END IF;
679:
680: IF (p_debug_mode = 'Y') THEN
747: x_msg_count := l_msg_count;
748: IF x_msg_count = 1 THEN
749: x_msg_data := l_msg_data;
750: END IF;
751: RAISE FND_API.G_EXC_ERROR;
752: END IF;
753:
754:
755: --If no error,
825: WHEN OTHERS THEN
826: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
827: p_procedure_name => 'CREATE_STRUCTURE_VERSION',
828: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
829: RAISE FND_API.G_EXC_ERROR;
830: END;
831: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
832: RAISE FND_API.G_EXC_ERROR;
833: END IF;
827: p_procedure_name => 'CREATE_STRUCTURE_VERSION',
828: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
829: RAISE FND_API.G_EXC_ERROR;
830: END;
831: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
832: RAISE FND_API.G_EXC_ERROR;
833: END IF;
834: END IF;
835: -- till here by skannoji
828: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
829: RAISE FND_API.G_EXC_ERROR;
830: END;
831: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
832: RAISE FND_API.G_EXC_ERROR;
833: END IF;
834: END IF;
835: -- till here by skannoji
836:
833: END IF;
834: END IF;
835: -- till here by skannoji
836:
837: x_return_status := FND_API.G_RET_STS_SUCCESS;
838:
839: IF (p_debug_mode = 'Y') THEN
840: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE_VERSION end');
841: END IF;
840: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE_VERSION end');
841: END IF;
842:
843: EXCEPTION
844: WHEN FND_API.G_EXC_ERROR THEN
845: if p_commit = FND_API.G_TRUE THEN
846: rollback to CREATE_STRUC_VER_PVT;
847: end if;
848: x_msg_count := FND_MSG_PUB.count_msg;
841: END IF;
842:
843: EXCEPTION
844: WHEN FND_API.G_EXC_ERROR THEN
845: if p_commit = FND_API.G_TRUE THEN
846: rollback to CREATE_STRUC_VER_PVT;
847: end if;
848: x_msg_count := FND_MSG_PUB.count_msg;
849: x_return_status := FND_API.G_RET_STS_ERROR;
845: if p_commit = FND_API.G_TRUE THEN
846: rollback to CREATE_STRUC_VER_PVT;
847: end if;
848: x_msg_count := FND_MSG_PUB.count_msg;
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: WHEN NO_DATA_FOUND THEN
851: if p_commit = FND_API.G_TRUE THEN
852: rollback to CREATE_STRUC_VER_PVT;
853: end if;
847: end if;
848: x_msg_count := FND_MSG_PUB.count_msg;
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: WHEN NO_DATA_FOUND THEN
851: if p_commit = FND_API.G_TRUE THEN
852: rollback to CREATE_STRUC_VER_PVT;
853: end if;
854: x_return_status := FND_API.G_RET_STS_ERROR;
855:
850: WHEN NO_DATA_FOUND THEN
851: if p_commit = FND_API.G_TRUE THEN
852: rollback to CREATE_STRUC_VER_PVT;
853: end if;
854: x_return_status := FND_API.G_RET_STS_ERROR;
855:
856: WHEN OTHERS THEN
857: if p_commit = FND_API.G_TRUE THEN
858: rollback to CREATE_STRUC_VER_PVT;
853: end if;
854: x_return_status := FND_API.G_RET_STS_ERROR;
855:
856: WHEN OTHERS THEN
857: if p_commit = FND_API.G_TRUE THEN
858: rollback to CREATE_STRUC_VER_PVT;
859: end if;
860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
861: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
856: WHEN OTHERS THEN
857: if p_commit = FND_API.G_TRUE THEN
858: rollback to CREATE_STRUC_VER_PVT;
859: end if;
860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
861: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
862: p_procedure_name => 'CREATE_STRUCTURE_VERSION',
863: p_error_text => SUBSTRB(SQLERRM,1,240));
864: RAISE;
870: -- Pre-reqs : None
871: -- Return Value : N/A
872: -- Parameters
873: -- p_api_version IN NUMBER := 1.0
874: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
875: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
876: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
877: -- p_validation_level IN VARCHAR2 := 100
878: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
871: -- Return Value : N/A
872: -- Parameters
873: -- p_api_version IN NUMBER := 1.0
874: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
875: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
876: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
877: -- p_validation_level IN VARCHAR2 := 100
878: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
879: -- p_debug_mode IN VARCHAR2 := 'N'
872: -- Parameters
873: -- p_api_version IN NUMBER := 1.0
874: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
875: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
876: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
877: -- p_validation_level IN VARCHAR2 := 100
878: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
879: -- p_debug_mode IN VARCHAR2 := 'N'
880: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
902:
903: procedure Create_Structure_Version_Attr
904: (
905: p_api_version IN NUMBER := 1.0
906: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
907: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
908: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
909: ,p_validation_level IN VARCHAR2 := 100
910: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
903: procedure Create_Structure_Version_Attr
904: (
905: p_api_version IN NUMBER := 1.0
906: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
907: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
908: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
909: ,p_validation_level IN VARCHAR2 := 100
910: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
911: ,p_debug_mode IN VARCHAR2 := 'N'
904: (
905: p_api_version IN NUMBER := 1.0
906: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
907: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
908: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
909: ,p_validation_level IN VARCHAR2 := 100
910: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
911: ,p_debug_mode IN VARCHAR2 := 'N'
912: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
998: IF (p_debug_mode = 'Y') THEN
999: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE_VERSION_ATTR begin');
1000: END IF;
1001:
1002: IF (p_commit = FND_API.G_TRUE) THEN
1003: savepoint CREATE_STRUC_VER_ATTR_PVT;
1004: END IF;
1005:
1006: IF (p_debug_mode = 'Y') THEN
1022: l_project_id,
1023: l_proj_element_id)) THEN
1024: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_VER_NAM_UNIQUE');
1025: x_msg_data := 'PA_PS_STRUC_VER_NAM_UNIQUE';
1026: RAISE FND_API.G_EXC_ERROR;
1027: END IF;
1028:
1029: IF (p_published_flag = 'Y' or p_struct_version_status_code =
1030: 'STRUCTURE_PUBLISHED') THEN
1077:
1078: --Call baseline_structure_version API if workplan
1079: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
1080: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
1081: p_commit => FND_API.G_FALSE,
1082: p_structure_version_id => p_structure_version_id,
1083: x_return_status => l_return_status,
1084: x_msg_count => l_msg_count,
1085: x_msg_data => l_msg_data);
1083: x_return_status => l_return_status,
1084: x_msg_count => l_msg_count,
1085: x_msg_data => l_msg_data);
1086:
1087: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1088: x_msg_count := FND_MSG_PUB.count_msg;
1089: if x_msg_count = 1 then
1090: x_msg_data := l_msg_data;
1091: end if;
1088: x_msg_count := FND_MSG_PUB.count_msg;
1089: if x_msg_count = 1 then
1090: x_msg_data := l_msg_data;
1091: end if;
1092: raise FND_API.G_EXC_ERROR;
1093: end if;
1094:
1095: END IF;
1096:
1161:
1162: --Call baseline_structure_version API if workplan
1163: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
1164: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
1165: p_commit => FND_API.G_FALSE,
1166: p_structure_version_id => p_structure_version_id,
1167: x_return_status => l_return_status,
1168: x_msg_count => l_msg_count,
1169: x_msg_data => l_msg_data);
1167: x_return_status => l_return_status,
1168: x_msg_count => l_msg_count,
1169: x_msg_data => l_msg_data);
1170:
1171: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1172: x_msg_count := FND_MSG_PUB.count_msg;
1173: if x_msg_count = 1 then
1174: x_msg_data := l_msg_data;
1175: end if;
1172: x_msg_count := FND_MSG_PUB.count_msg;
1173: if x_msg_count = 1 then
1174: x_msg_data := l_msg_data;
1175: end if;
1176: raise FND_API.G_EXC_ERROR;
1177: end if;
1178:
1179: END IF;
1180: END IF;
1200: --another non-published version exists for structure with type = costing/billing.
1201: --Error.
1202: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_ONE_WORK_VER_ALLOWED');
1203: x_msg_data := 'PA_PS_ONE_WORK_VER_ALLOWED';
1204: RAISE FND_API.G_EXC_ERROR;
1205: END IF;
1206: CLOSE check_working_ver_exists;
1207: END IF;
1208:
1222: x_msg_count := l_msg_count;
1223: IF x_msg_count = 1 THEN
1224: x_msg_data := l_msg_data;
1225: END IF;
1226: RAISE FND_API.G_EXC_ERROR;
1227: END IF;
1228:
1229: IF (p_change_reason_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
1230: l_change_reason_code := NULL;
1297: x_return_status => l_return_status,
1298: x_msg_count => l_msg_count,
1299: x_msg_data => l_msg_data
1300: );
1301: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1302: x_msg_count := FND_MSG_PUB.count_msg;
1303: if x_msg_count = 1 then
1304: x_msg_data := l_msg_data;
1305: end if;
1302: x_msg_count := FND_MSG_PUB.count_msg;
1303: if x_msg_count = 1 then
1304: x_msg_data := l_msg_data;
1305: end if;
1306: raise FND_API.G_EXC_ERROR;
1307: end if;
1308: END IF;
1309: */
1310: --end bug 3010538
1308: END IF;
1309: */
1310: --end bug 3010538
1311:
1312: x_return_status := FND_API.G_RET_STS_SUCCESS;
1313:
1314: IF (p_debug_mode = 'Y') THEN
1315: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE_VERSION_ATTR end');
1316: END IF;
1315: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE_VERSION_ATTR end');
1316: END IF;
1317:
1318: EXCEPTION
1319: WHEN FND_API.G_EXC_ERROR THEN
1320: if p_commit = FND_API.G_TRUE THEN
1321: rollback to CREATE_STRUC_VER_ATTR_PVT;
1322: end if;
1323: x_msg_count := FND_MSG_PUB.count_msg;
1316: END IF;
1317:
1318: EXCEPTION
1319: WHEN FND_API.G_EXC_ERROR THEN
1320: if p_commit = FND_API.G_TRUE THEN
1321: rollback to CREATE_STRUC_VER_ATTR_PVT;
1322: end if;
1323: x_msg_count := FND_MSG_PUB.count_msg;
1324: x_return_status := FND_API.G_RET_STS_ERROR;
1320: if p_commit = FND_API.G_TRUE THEN
1321: rollback to CREATE_STRUC_VER_ATTR_PVT;
1322: end if;
1323: x_msg_count := FND_MSG_PUB.count_msg;
1324: x_return_status := FND_API.G_RET_STS_ERROR;
1325: WHEN NO_DATA_FOUND THEN
1326: if p_commit = FND_API.G_TRUE THEN
1327: rollback to CREATE_STRUC_VER_ATTR_PVT;
1328: end if;
1322: end if;
1323: x_msg_count := FND_MSG_PUB.count_msg;
1324: x_return_status := FND_API.G_RET_STS_ERROR;
1325: WHEN NO_DATA_FOUND THEN
1326: if p_commit = FND_API.G_TRUE THEN
1327: rollback to CREATE_STRUC_VER_ATTR_PVT;
1328: end if;
1329: x_return_status := FND_API.G_RET_STS_ERROR;
1330: WHEN OTHERS THEN
1325: WHEN NO_DATA_FOUND THEN
1326: if p_commit = FND_API.G_TRUE THEN
1327: rollback to CREATE_STRUC_VER_ATTR_PVT;
1328: end if;
1329: x_return_status := FND_API.G_RET_STS_ERROR;
1330: WHEN OTHERS THEN
1331: if p_commit = FND_API.G_TRUE THEN
1332: rollback to CREATE_STRUC_VER_ATTR_PVT;
1333: end if;
1327: rollback to CREATE_STRUC_VER_ATTR_PVT;
1328: end if;
1329: x_return_status := FND_API.G_RET_STS_ERROR;
1330: WHEN OTHERS THEN
1331: if p_commit = FND_API.G_TRUE THEN
1332: rollback to CREATE_STRUC_VER_ATTR_PVT;
1333: end if;
1334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1335: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
1330: WHEN OTHERS THEN
1331: if p_commit = FND_API.G_TRUE THEN
1332: rollback to CREATE_STRUC_VER_ATTR_PVT;
1333: end if;
1334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1335: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
1336: p_procedure_name => 'CREATE_STRUCTURE_VERSION_ATTR',
1337: p_error_text => SUBSTRB(SQLERRM,1,240));
1338: RAISE;
1344: -- Pre-reqs : None
1345: -- Return Value : N/A
1346: -- Parameters
1347: -- p_api_version IN NUMBER := 1.0
1348: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1349: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1350: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1351: -- p_validation_level IN VARCHAR2 := 100
1352: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1345: -- Return Value : N/A
1346: -- Parameters
1347: -- p_api_version IN NUMBER := 1.0
1348: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1349: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1350: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1351: -- p_validation_level IN VARCHAR2 := 100
1352: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1353: -- p_debug_mode IN VARCHAR2 := 'N'
1346: -- Parameters
1347: -- p_api_version IN NUMBER := 1.0
1348: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1349: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1350: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1351: -- p_validation_level IN VARCHAR2 := 100
1352: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1353: -- p_debug_mode IN VARCHAR2 := 'N'
1354: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1386:
1387: procedure Update_Structure
1388: (
1389: p_api_version IN NUMBER := 1.0
1390: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1391: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1392: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1393: ,p_validation_level IN VARCHAR2 := 100
1394: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1387: procedure Update_Structure
1388: (
1389: p_api_version IN NUMBER := 1.0
1390: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1391: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1392: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1393: ,p_validation_level IN VARCHAR2 := 100
1394: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1395: ,p_debug_mode IN VARCHAR2 := 'N'
1388: (
1389: p_api_version IN NUMBER := 1.0
1390: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1391: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1392: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1393: ,p_validation_level IN VARCHAR2 := 100
1394: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1395: ,p_debug_mode IN VARCHAR2 := 'N'
1396: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1477: IF (p_debug_mode = 'Y') THEN
1478: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURE begin');
1479: END IF;
1480:
1481: IF (p_commit = FND_API.G_TRUE) then
1482: savepoint update_structure_pvt;
1483: END IF;
1484:
1485: --Get existing values.
1507: l_attribute15;
1508: IF (get_struc%NOTFOUND) THEN
1509: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_NOT_EXIST');
1510: x_msg_data := 'PA_PS_STRUC_NOT_EXIST';
1511: RAISE FND_API.G_EXC_ERROR;
1512: END IF;
1513: CLOSE get_struc;
1514:
1515:
1519: x_msg_count := l_msg_count;
1520: IF x_msg_count = 1 THEN
1521: x_msg_data := l_msg_data;
1522: END IF;
1523: RAISE FND_API.G_EXC_ERROR;
1524: END IF;
1525:
1526: IF (p_debug_mode = 'Y') THEN
1527: pa_debug.debug('l_name = '||l_name);
1538: l_project_id)) THEN
1539: --name not unique.
1540: PA_UTILS.ADD_MESSAGE('PA', 'PS_STRUC_NAME_UNIQUE');
1541: x_msg_data := 'PA_PS_STRUC_NAME_UNIQUE';
1542: RAISE FND_API.G_EXC_ERROR;
1543: ELSE
1544: l_name := p_structure_name;
1545: END IF;
1546: END IF;
1604: x_msg_count := l_msg_count;
1605: IF x_msg_count = 1 THEN
1606: x_msg_data := l_msg_data;
1607: END IF;
1608: RAISE FND_API.G_EXC_ERROR;
1609: END IF;
1610:
1611: PA_PROJ_ELEMENTS_PKG.UPDATE_ROW(
1612: X_ROW_ID => l_rowid
1657: ,X_PHASE_CODE => NULL
1658: ,X_PHASE_VERSION_ID => NULL
1659: );
1660:
1661: x_return_status := FND_API.G_RET_STS_SUCCESS;
1662:
1663: IF (p_debug_mode = 'Y') THEN
1664: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURE end');
1665: END IF;
1664: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURE end');
1665: END IF;
1666:
1667: EXCEPTION
1668: when FND_API.G_EXC_ERROR then
1669: if p_commit = FND_API.G_TRUE then
1670: rollback to update_structure_pvt;
1671: end if;
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1665: END IF;
1666:
1667: EXCEPTION
1668: when FND_API.G_EXC_ERROR then
1669: if p_commit = FND_API.G_TRUE then
1670: rollback to update_structure_pvt;
1671: end if;
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1673: when others then
1668: when FND_API.G_EXC_ERROR then
1669: if p_commit = FND_API.G_TRUE then
1670: rollback to update_structure_pvt;
1671: end if;
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1673: when others then
1674: if p_commit = FND_API.G_TRUE then
1675: rollback to update_structure_pvt;
1676: end if;
1670: rollback to update_structure_pvt;
1671: end if;
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1673: when others then
1674: if p_commit = FND_API.G_TRUE then
1675: rollback to update_structure_pvt;
1676: end if;
1677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1678: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
1673: when others then
1674: if p_commit = FND_API.G_TRUE then
1675: rollback to update_structure_pvt;
1676: end if;
1677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1678: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
1679: p_procedure_name => 'UPDATE_STRUCTURE',
1680: p_error_text => SUBSTRB(SQLERRM,1,240));
1681: RAISE;
1688: -- Pre-reqs : None
1689: -- Return Value : N/A
1690: -- Parameters
1691: -- p_api_version IN NUMBER := 1.0
1692: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1693: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1694: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1695: -- p_validation_level IN VARCHAR2 := 100
1696: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1689: -- Return Value : N/A
1690: -- Parameters
1691: -- p_api_version IN NUMBER := 1.0
1692: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1693: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1694: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1695: -- p_validation_level IN VARCHAR2 := 100
1696: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1697: -- p_debug_mode IN VARCHAR2 := 'N'
1690: -- Parameters
1691: -- p_api_version IN NUMBER := 1.0
1692: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1693: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1694: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1695: -- p_validation_level IN VARCHAR2 := 100
1696: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1697: -- p_debug_mode IN VARCHAR2 := 'N'
1698: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1719:
1720: procedure Update_Structure_Version_Attr
1721: (
1722: p_api_version IN NUMBER := 1.0
1723: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1724: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1725: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1726: ,p_validation_level IN VARCHAR2 := 100
1727: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1720: procedure Update_Structure_Version_Attr
1721: (
1722: p_api_version IN NUMBER := 1.0
1723: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1724: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1725: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1726: ,p_validation_level IN VARCHAR2 := 100
1727: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1728: ,p_debug_mode IN VARCHAR2 := 'N'
1721: (
1722: p_api_version IN NUMBER := 1.0
1723: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1724: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1725: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1726: ,p_validation_level IN VARCHAR2 := 100
1727: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1728: ,p_debug_mode IN VARCHAR2 := 'N'
1729: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1851: IF (p_debug_mode = 'Y') THEN
1852: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURE_VERSION_ATTR begin');
1853: END IF;
1854:
1855: IF (p_commit = FND_API.G_TRUE) THEN
1856: savepoint UPDATE_STRUC_VER_ATTR_PVT;
1857: END IF;
1858:
1859: IF (p_debug_mode = 'Y') THEN
1934:
1935: x_msg_count := FND_MSG_PUB.count_msg;
1936: if x_msg_count > 0 then
1937: x_msg_data := l_msg_data;
1938: raise FND_API.G_EXC_ERROR;
1939: end if;
1940: --end bug 3940853
1941: END IF; --p_calling_module <> 'PA_UPD_WBS_ATTR'
1942:
1971:
1972: --Call baseline_structure_version API if workplan
1973: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(l_structure_version_id, 'WORKPLAN') = 'Y') THEN
1974: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
1975: p_commit => FND_API.G_FALSE,
1976: p_structure_version_id => l_structure_version_id,
1977: x_return_status => l_return_status,
1978: x_msg_count => l_msg_count,
1979: x_msg_data => l_msg_data);
1977: x_return_status => l_return_status,
1978: x_msg_count => l_msg_count,
1979: x_msg_data => l_msg_data);
1980:
1981: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1982: x_msg_count := FND_MSG_PUB.count_msg;
1983: if x_msg_count = 1 then
1984: x_msg_data := l_msg_data;
1985: end if;
1982: x_msg_count := FND_MSG_PUB.count_msg;
1983: if x_msg_count = 1 then
1984: x_msg_data := l_msg_data;
1985: end if;
1986: raise FND_API.G_EXC_ERROR;
1987: end if;
1988:
1989: END IF;
1990:
2031: IF (l_get_lock <> 'Y') THEN
2032: IF (PA_SECURITY_PVT.check_user_privilege('PA_UNLOCK_ANY_STRUCTURE'
2033: ,NULL
2034: ,to_number(NULL))
2035: = FND_API.G_TRUE) THEN
2036: l_get_lock := 'Y';
2037: END IF;
2038: END IF;
2039: --end bug 3071008
2041: IF (l_get_lock = 'O') THEN
2042: --lock by other user. Error.
2043: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_STRUC_VER_LOCKED');
2044: x_msg_data := 'PA_PS_STRUC_VER_LOCKED';
2045: RAISE FND_API.G_EXC_ERROR;
2046: END IF;
2047:
2048: IF (p_locked_status_code = 'LOCKED') THEN
2049: l_lock_status_code := 'LOCKED';
2062: l_project_id,
2063: l_proj_element_id)) THEN
2064: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_VER_NAM_UNIQUE');
2065: x_msg_data := 'PA_PS_STRUC_VER_NAM_UNIQUE';
2066: RAISE FND_API.G_EXC_ERROR;
2067: ELSE
2068: l_name := p_structure_version_name;
2069: END IF;
2070: END IF;
2081: l_project_id,
2082: l_proj_element_id)) THEN
2083: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_VER_NAM_UNIQUE');
2084: x_msg_data := 'PA_PS_STRUC_VER_NAM_UNIQUE';
2085: RAISE FND_API.G_EXC_ERROR;
2086: ELSE
2087: l_name := p_structure_version_name;
2088: END IF;
2089: END IF;
2121: x_msg_count := l_msg_count;
2122: IF x_msg_count = 1 THEN
2123: x_msg_data := l_msg_data;
2124: END IF;
2125: RAISE FND_API.G_EXC_ERROR;
2126: END IF;/*Bug# 6414944*/
2127: /* Commented for Bug 6372780
2128: ELSIF l_msg_count > 0 THEN
2129: x_msg_count := l_msg_count;
2129: x_msg_count := l_msg_count;
2130: IF x_msg_count = 1 THEN
2131: x_msg_data := l_msg_data;
2132: END IF;
2133: RAISE FND_API.G_EXC_ERROR;
2134: END IF;
2135: */
2136:
2137: PA_PROJ_ELEM_VER_STRUCTURE_PKG.update_row(
2193: ,x_return_status => x_return_status
2194: ,x_msg_count => x_msg_count
2195: ,x_msg_data => x_msg_data);
2196:
2197: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2198:
2199: raise FND_API.G_EXC_ERROR;
2200:
2201: end if;
2195: ,x_msg_data => x_msg_data);
2196:
2197: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2198:
2199: raise FND_API.G_EXC_ERROR;
2200:
2201: end if;
2202:
2203: -- Begin Bug # 4556844.
2214: ,x_return_status => x_return_status
2215: ,x_msg_count => x_msg_count
2216: ,x_msg_data => x_msg_data);
2217:
2218: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2219:
2220: raise FND_API.G_EXC_ERROR;
2221:
2222: end if;
2216: ,x_msg_data => x_msg_data);
2217:
2218: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2219:
2220: raise FND_API.G_EXC_ERROR;
2221:
2222: end if;
2223:
2224: -- End Bug # 4556844.
2229:
2230: END IF;
2231: --end FPM bug 3301192
2232:
2233: x_return_status := FND_API.G_RET_STS_SUCCESS;
2234:
2235: IF (p_debug_mode = 'Y') THEN
2236: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURE_VERSION_ATTR end');
2237: END IF;
2237: END IF;
2238:
2239: EXCEPTION
2240: WHEN NO_DATA_FOUND THEN
2241: if p_commit = FND_API.G_TRUE THEN
2242: rollback to UPDATE_STRUC_VER_ATTR_PVT;
2243: end if;
2244: x_return_status := FND_API.G_RET_STS_ERROR;
2245: WHEN FND_API.G_EXC_ERROR THEN
2240: WHEN NO_DATA_FOUND THEN
2241: if p_commit = FND_API.G_TRUE THEN
2242: rollback to UPDATE_STRUC_VER_ATTR_PVT;
2243: end if;
2244: x_return_status := FND_API.G_RET_STS_ERROR;
2245: WHEN FND_API.G_EXC_ERROR THEN
2246: IF (p_commit = FND_API.G_TRUE) THEN
2247: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2248: END IF;
2241: if p_commit = FND_API.G_TRUE THEN
2242: rollback to UPDATE_STRUC_VER_ATTR_PVT;
2243: end if;
2244: x_return_status := FND_API.G_RET_STS_ERROR;
2245: WHEN FND_API.G_EXC_ERROR THEN
2246: IF (p_commit = FND_API.G_TRUE) THEN
2247: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2248: END IF;
2249: x_msg_count := FND_MSG_PUB.count_msg;
2242: rollback to UPDATE_STRUC_VER_ATTR_PVT;
2243: end if;
2244: x_return_status := FND_API.G_RET_STS_ERROR;
2245: WHEN FND_API.G_EXC_ERROR THEN
2246: IF (p_commit = FND_API.G_TRUE) THEN
2247: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2248: END IF;
2249: x_msg_count := FND_MSG_PUB.count_msg;
2250: x_return_status := FND_API.G_RET_STS_ERROR;
2246: IF (p_commit = FND_API.G_TRUE) THEN
2247: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2248: END IF;
2249: x_msg_count := FND_MSG_PUB.count_msg;
2250: x_return_status := FND_API.G_RET_STS_ERROR;
2251: WHEN OTHERS THEN
2252: IF (p_commit = FND_API.G_TRUE) THEN
2253: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2254: END IF;
2248: END IF;
2249: x_msg_count := FND_MSG_PUB.count_msg;
2250: x_return_status := FND_API.G_RET_STS_ERROR;
2251: WHEN OTHERS THEN
2252: IF (p_commit = FND_API.G_TRUE) THEN
2253: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2254: END IF;
2255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2256: x_msg_count := FND_MSG_PUB.count_msg;
2251: WHEN OTHERS THEN
2252: IF (p_commit = FND_API.G_TRUE) THEN
2253: ROLLBACK to UPDATE_STRUC_VER_ATTR_PVT;
2254: END IF;
2255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2256: x_msg_count := FND_MSG_PUB.count_msg;
2257: --put message
2258: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2259: p_procedure_name => 'Update_Structure_Version_Attr',
2268: -- Pre-reqs : None
2269: -- Return Value : N/A
2270: -- Parameters
2271: -- p_api_version IN NUMBER := 1.0
2272: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2273: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2274: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2275: -- p_validation_level IN VARCHAR2 := 100
2276: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2269: -- Return Value : N/A
2270: -- Parameters
2271: -- p_api_version IN NUMBER := 1.0
2272: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2273: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2274: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2275: -- p_validation_level IN VARCHAR2 := 100
2276: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2277: -- p_debug_mode IN VARCHAR2 := 'N'
2270: -- Parameters
2271: -- p_api_version IN NUMBER := 1.0
2272: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2273: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2274: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2275: -- p_validation_level IN VARCHAR2 := 100
2276: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2277: -- p_debug_mode IN VARCHAR2 := 'N'
2278: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2291:
2292: procedure Delete_Structure
2293: (
2294: p_api_version IN NUMBER := 1.0
2295: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2296: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2297: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2298: ,p_validation_level IN VARCHAR2 := 100
2299: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2292: procedure Delete_Structure
2293: (
2294: p_api_version IN NUMBER := 1.0
2295: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2296: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2297: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2298: ,p_validation_level IN VARCHAR2 := 100
2299: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2300: ,p_debug_mode IN VARCHAR2 := 'N'
2293: (
2294: p_api_version IN NUMBER := 1.0
2295: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2296: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2297: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2298: ,p_validation_level IN VARCHAR2 := 100
2299: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2300: ,p_debug_mode IN VARCHAR2 := 'N'
2301: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2335: IF (p_debug_mode = 'Y') THEN
2336: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE begin');
2337: END IF;
2338:
2339: if p_commit = FND_API.G_TRUE then
2340: savepoint delete_structure_pvt;
2341: end if;
2342:
2343: -- Begin fix for Bug # 4506308.
2350: fetch l_cur_projects_all into l_project_id, l_rec_ver_number;
2351: close l_cur_projects_all;
2352:
2353: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
2354: p_validate_only => FND_API.G_FALSE
2355: ,p_project_id => l_project_id
2356: ,p_date_type => 'SCHEDULED'
2357: ,p_start_date => null
2358: ,p_finish_date => null
2360: ,x_return_status => x_return_status
2361: ,x_msg_count => x_msg_count
2362: ,x_msg_data => x_msg_data );
2363:
2364: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2365: RAISE FND_API.G_EXC_ERROR;
2366: END IF;
2367:
2368: end if;
2361: ,x_msg_count => x_msg_count
2362: ,x_msg_data => x_msg_data );
2363:
2364: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2365: RAISE FND_API.G_EXC_ERROR;
2366: END IF;
2367:
2368: end if;
2369:
2378: END LOOP;
2379: CLOSE sel_struct_type;
2380:
2381: --Lock record
2382: IF (p_validate_only <> FND_API.G_TRUE) THEN
2383: BEGIN
2384: --lock
2385: select rowid into l_rowid
2386: from pa_proj_elements
2426: x_msg_count := l_msg_count;
2427: if x_msg_count = 1 then
2428: x_msg_data := l_msg_data;
2429: end if;
2430: raise FND_API.G_EXC_ERROR;
2431: end if;
2432:
2433:
2434: PA_PROJ_ELEMENTS_PKG.DELETE_ROW(
2434: PA_PROJ_ELEMENTS_PKG.DELETE_ROW(
2435: X_ROW_ID => l_rowid
2436: );
2437:
2438: x_return_status := FND_API.G_RET_STS_SUCCESS;
2439:
2440: IF (p_debug_mode = 'Y') THEN
2441: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE end');
2442: END IF;
2441: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE end');
2442: END IF;
2443:
2444: EXCEPTION
2445: when FND_API.G_EXC_ERROR then
2446: if p_commit = FND_API.G_TRUE then
2447: rollback to delete_structure_pvt;
2448: end if;
2449: x_return_status := FND_API.G_RET_STS_ERROR;
2442: END IF;
2443:
2444: EXCEPTION
2445: when FND_API.G_EXC_ERROR then
2446: if p_commit = FND_API.G_TRUE then
2447: rollback to delete_structure_pvt;
2448: end if;
2449: x_return_status := FND_API.G_RET_STS_ERROR;
2450: when others then
2445: when FND_API.G_EXC_ERROR then
2446: if p_commit = FND_API.G_TRUE then
2447: rollback to delete_structure_pvt;
2448: end if;
2449: x_return_status := FND_API.G_RET_STS_ERROR;
2450: when others then
2451: if p_commit = FND_API.G_TRUE then
2452: rollback to delete_structure_pvt;
2453: end if;
2447: rollback to delete_structure_pvt;
2448: end if;
2449: x_return_status := FND_API.G_RET_STS_ERROR;
2450: when others then
2451: if p_commit = FND_API.G_TRUE then
2452: rollback to delete_structure_pvt;
2453: end if;
2454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2455: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2450: when others then
2451: if p_commit = FND_API.G_TRUE then
2452: rollback to delete_structure_pvt;
2453: end if;
2454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2455: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2456: p_procedure_name => 'Delete_Structure',
2457: p_error_text => SUBSTRB(SQLERRM,1,240));
2458: raise;
2464: -- Pre-reqs : None
2465: -- Return Value : N/A
2466: -- Parameters
2467: -- p_api_version IN NUMBER := 1.0
2468: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2469: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2470: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2471: -- p_validation_level IN VARCHAR2 := 100
2472: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2465: -- Return Value : N/A
2466: -- Parameters
2467: -- p_api_version IN NUMBER := 1.0
2468: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2469: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2470: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2471: -- p_validation_level IN VARCHAR2 := 100
2472: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2473: -- p_debug_mode IN VARCHAR2 := 'N'
2466: -- Parameters
2467: -- p_api_version IN NUMBER := 1.0
2468: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2469: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2470: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2471: -- p_validation_level IN VARCHAR2 := 100
2472: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2473: -- p_debug_mode IN VARCHAR2 := 'N'
2474: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2487:
2488: procedure Delete_Structure_Version
2489: (
2490: p_api_version IN NUMBER := 1.0
2491: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2492: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2493: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2494: ,p_validation_level IN VARCHAR2 := 100
2495: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2488: procedure Delete_Structure_Version
2489: (
2490: p_api_version IN NUMBER := 1.0
2491: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2492: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2493: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2494: ,p_validation_level IN VARCHAR2 := 100
2495: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2496: ,p_debug_mode IN VARCHAR2 := 'N'
2489: (
2490: p_api_version IN NUMBER := 1.0
2491: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2492: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2493: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2494: ,p_validation_level IN VARCHAR2 := 100
2495: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2496: ,p_debug_mode IN VARCHAR2 := 'N'
2497: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2526: IF (p_debug_mode = 'Y') THEN
2527: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE_VERSION begin');
2528: END IF;
2529:
2530: if p_commit = FND_API.G_TRUE then
2531: savepoint delete_structure_version_pvt;
2532: end if;
2533:
2534: --Lock record
2534: --Lock record
2535: IF (p_debug_mode = 'Y') THEN
2536: pa_debug.debug('locking record '||p_structure_version_id||', '||p_record_Version_number);
2537: END IF;
2538: IF (p_validate_only <> FND_API.G_TRUE) THEN
2539: BEGIN
2540: --lock
2541: select rowid into l_rowid
2542: from pa_proj_element_versions
2583: x_msg_count := l_msg_count;
2584: if x_msg_count = 1 then
2585: x_msg_data := l_msg_data;
2586: end if;
2587: raise FND_API.G_EXC_ERROR;
2588: end if;
2589:
2590: IF (p_debug_mode = 'Y') THEN
2591: pa_debug.debug('deleting structure versionn');
2617: WHEN OTHERS THEN
2618: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2619: p_procedure_name => 'Delete_Structure_Version',
2620: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_budget_versions:'||SQLERRM,1,240));
2621: RAISE FND_API.G_EXC_ERROR;
2622: END;
2623: -- Added for FP_M Changes -- Bhumesh
2624: BEGIN
2625: SELECT project_id INTO l_Project_ID
2638: fnd_msg_pub.add_exc_msg(
2639: p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2640: p_procedure_name => 'Delete_Structure_Version',
2641: p_error_text => SUBSTRB('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
2642: RAISE FND_API.G_EXC_ERROR;
2643: END;
2644: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2645: RAISE FND_API.G_EXC_ERROR;
2646: END IF;
2640: p_procedure_name => 'Delete_Structure_Version',
2641: p_error_text => SUBSTRB('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
2642: RAISE FND_API.G_EXC_ERROR;
2643: END;
2644: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2645: RAISE FND_API.G_EXC_ERROR;
2646: END IF;
2647: END IF;
2648: END;
2641: p_error_text => SUBSTRB('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
2642: RAISE FND_API.G_EXC_ERROR;
2643: END;
2644: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2645: RAISE FND_API.G_EXC_ERROR;
2646: END IF;
2647: END IF;
2648: END;
2649: -- till here by skannoji
2683: ,x_return_status => x_return_status
2684: ,x_msg_count => x_msg_count
2685: ,x_msg_data => x_msg_data);
2686:
2687: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2688:
2689: raise FND_API.G_EXC_ERROR;
2690:
2691: end if;
2685: ,x_msg_data => x_msg_data);
2686:
2687: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2688:
2689: raise FND_API.G_EXC_ERROR;
2690:
2691: end if;
2692:
2693: end loop;
2697: PA_PROJ_ELEMENT_VERSIONS_PKG.DELETE_ROW(
2698: X_ROW_ID => l_rowid
2699: );
2700:
2701: x_return_status := FND_API.G_RET_STS_SUCCESS;
2702:
2703: IF (p_debug_mode = 'Y') THEN
2704: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE_VERSION end');
2705: END IF;
2704: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE_VERSION end');
2705: END IF;
2706:
2707: EXCEPTION
2708: when FND_API.G_EXC_ERROR then
2709: if p_commit = FND_API.G_TRUE then
2710: rollback to delete_structure_version_pvt;
2711: end if;
2712: x_return_status := FND_API.G_RET_STS_ERROR;
2705: END IF;
2706:
2707: EXCEPTION
2708: when FND_API.G_EXC_ERROR then
2709: if p_commit = FND_API.G_TRUE then
2710: rollback to delete_structure_version_pvt;
2711: end if;
2712: x_return_status := FND_API.G_RET_STS_ERROR;
2713: when others then
2708: when FND_API.G_EXC_ERROR then
2709: if p_commit = FND_API.G_TRUE then
2710: rollback to delete_structure_version_pvt;
2711: end if;
2712: x_return_status := FND_API.G_RET_STS_ERROR;
2713: when others then
2714: if p_commit = FND_API.G_TRUE then
2715: rollback to delete_structure_version_pvt;
2716: end if;
2710: rollback to delete_structure_version_pvt;
2711: end if;
2712: x_return_status := FND_API.G_RET_STS_ERROR;
2713: when others then
2714: if p_commit = FND_API.G_TRUE then
2715: rollback to delete_structure_version_pvt;
2716: end if;
2717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2718: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2713: when others then
2714: if p_commit = FND_API.G_TRUE then
2715: rollback to delete_structure_version_pvt;
2716: end if;
2717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2718: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2719: p_procedure_name => 'Delete_Structure_Version',
2720: p_error_text => SUBSTRB(SQLERRM,1,240));
2721: raise;
2727: -- Pre-reqs : None
2728: -- Return Value : N/A
2729: -- Parameters
2730: -- p_api_version IN NUMBER := 1.0
2731: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2732: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2733: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2734: -- p_validation_level IN VARCHAR2 := 100
2735: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2728: -- Return Value : N/A
2729: -- Parameters
2730: -- p_api_version IN NUMBER := 1.0
2731: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2732: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2733: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2734: -- p_validation_level IN VARCHAR2 := 100
2735: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2736: -- p_debug_mode IN VARCHAR2 := 'N'
2729: -- Parameters
2730: -- p_api_version IN NUMBER := 1.0
2731: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2732: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2733: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2734: -- p_validation_level IN VARCHAR2 := 100
2735: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2736: -- p_debug_mode IN VARCHAR2 := 'N'
2737: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2750:
2751: procedure Delete_Structure_Version_Attr
2752: (
2753: p_api_version IN NUMBER := 1.0
2754: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2755: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2756: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2757: ,p_validation_level IN VARCHAR2 := 100
2758: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2751: procedure Delete_Structure_Version_Attr
2752: (
2753: p_api_version IN NUMBER := 1.0
2754: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2755: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2756: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2757: ,p_validation_level IN VARCHAR2 := 100
2758: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2759: ,p_debug_mode IN VARCHAR2 := 'N'
2752: (
2753: p_api_version IN NUMBER := 1.0
2754: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2755: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2756: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2757: ,p_validation_level IN VARCHAR2 := 100
2758: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2759: ,p_debug_mode IN VARCHAR2 := 'N'
2760: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2802: IF (p_debug_mode = 'Y') THEN
2803: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE_VERSION_ATTR begin');
2804: END IF;
2805:
2806: if p_commit = FND_API.G_TRUE then
2807: savepoint delete_structure_ver_attr_pvt;
2808: end if;
2809:
2810: --Lock record
2807: savepoint delete_structure_ver_attr_pvt;
2808: end if;
2809:
2810: --Lock record
2811: IF (p_validate_only <> FND_API.G_TRUE) THEN
2812: BEGIN
2813: --lock
2814: select rowid into l_rowid
2815: from pa_proj_elem_ver_structure
2855: x_msg_count := l_msg_count;
2856: if x_msg_count = 1 then
2857: x_msg_data := l_msg_data;
2858: end if;
2859: raise FND_API.G_EXC_ERROR;
2860: end if;
2861:
2862: --FPM bug 3301192
2863: OPEN cur_proj_str;
2903: IF (p_debug_mode = 'Y') THEN
2904: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE_VERSION_ATTR end');
2905: END IF;
2906:
2907: x_return_status := FND_API.G_RET_STS_SUCCESS;
2908:
2909: EXCEPTION
2910: when FND_API.G_EXC_ERROR then
2911: if p_commit = FND_API.G_TRUE then
2906:
2907: x_return_status := FND_API.G_RET_STS_SUCCESS;
2908:
2909: EXCEPTION
2910: when FND_API.G_EXC_ERROR then
2911: if p_commit = FND_API.G_TRUE then
2912: rollback to delete_structure_ver_attr_pvt;
2913: end if;
2914: x_return_status := FND_API.G_RET_STS_ERROR;
2907: x_return_status := FND_API.G_RET_STS_SUCCESS;
2908:
2909: EXCEPTION
2910: when FND_API.G_EXC_ERROR then
2911: if p_commit = FND_API.G_TRUE then
2912: rollback to delete_structure_ver_attr_pvt;
2913: end if;
2914: x_return_status := FND_API.G_RET_STS_ERROR;
2915: when others then
2910: when FND_API.G_EXC_ERROR then
2911: if p_commit = FND_API.G_TRUE then
2912: rollback to delete_structure_ver_attr_pvt;
2913: end if;
2914: x_return_status := FND_API.G_RET_STS_ERROR;
2915: when others then
2916: if p_commit = FND_API.G_TRUE then
2917: rollback to delete_structure_ver_attr_pvt;
2918: end if;
2912: rollback to delete_structure_ver_attr_pvt;
2913: end if;
2914: x_return_status := FND_API.G_RET_STS_ERROR;
2915: when others then
2916: if p_commit = FND_API.G_TRUE then
2917: rollback to delete_structure_ver_attr_pvt;
2918: end if;
2919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2920: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2915: when others then
2916: if p_commit = FND_API.G_TRUE then
2917: rollback to delete_structure_ver_attr_pvt;
2918: end if;
2919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2920: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
2921: p_procedure_name => 'Delete_Structure',
2922: p_error_text => SUBSTRB(SQLERRM,1,240));
2923: raise;
2929: -- Pre-reqs : None
2930: -- Return Value : N/A
2931: -- Parameters
2932: -- p_api_version IN NUMBER := 1.0
2933: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2934: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2935: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2936: -- p_validation_level IN VARCHAR2 := 100
2937: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2930: -- Return Value : N/A
2931: -- Parameters
2932: -- p_api_version IN NUMBER := 1.0
2933: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2934: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2935: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2936: -- p_validation_level IN VARCHAR2 := 100
2937: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2938: -- p_debug_mode IN VARCHAR2 := 'N'
2931: -- Parameters
2932: -- p_api_version IN NUMBER := 1.0
2933: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2934: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2935: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2936: -- p_validation_level IN VARCHAR2 := 100
2937: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2938: -- p_debug_mode IN VARCHAR2 := 'N'
2939: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2958:
2959: procedure Publish_Structure
2960: (
2961: p_api_version IN NUMBER := 1.0
2962: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2963: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2964: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2965: ,p_validation_level IN VARCHAR2 := 100
2966: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2959: procedure Publish_Structure
2960: (
2961: p_api_version IN NUMBER := 1.0
2962: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2963: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2964: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2965: ,p_validation_level IN VARCHAR2 := 100
2966: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2967: ,p_debug_mode IN VARCHAR2 := 'N'
2960: (
2961: p_api_version IN NUMBER := 1.0
2962: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2963: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2964: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2965: ,p_validation_level IN VARCHAR2 := 100
2966: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2967: ,p_debug_mode IN VARCHAR2 := 'N'
2968: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3303: IF (p_debug_mode = 'Y') THEN
3304: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE begin');
3305: END IF;
3306:
3307: IF (p_commit = FND_API.G_TRUE) THEN
3308: savepoint publish_structure_pvt;
3309: END IF;
3310:
3311: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
3331: p_structure_version_id), 'N') THEN
3332: --need to reschedule
3333: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NEED_THIRD_PT_SCH');
3334: x_msg_data := 'PA_PS_NEED_THIRD_PT_SCH';
3335: RAISE FND_API.G_EXC_ERROR;
3336: END IF;
3337: --end bug 3840509
3338:
3339: l_share_flag := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(l_project_id); --bug 3822112
3358: p_context => 'PUBLISH_STRUCTURE',
3359: x_return_status => l_return_status
3360: );
3361:
3362: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3363: RAISE FND_API.G_EXC_ERROR;
3364: END IF;
3365: --end changes for bug 3786612
3366:
3359: x_return_status => l_return_status
3360: );
3361:
3362: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3363: RAISE FND_API.G_EXC_ERROR;
3364: END IF;
3365: --end changes for bug 3786612
3366:
3367: --hsiu: bug 2684465
3368: --Check if this structure missing tasks with transactions
3369: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
3370: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
3371: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
3372: -- RAISE FND_API.G_EXC_ERROR;
3373: -- END IF;
3374: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,
3375: l_return_status,
3376: l_msg_count,
3374: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,
3375: l_return_status,
3376: l_msg_count,
3377: l_msg_data);
3378: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3379: RAISE FND_API.G_EXC_ERROR;
3380: END IF;
3381:
3382: --Check if task statuses are consistent
3375: l_return_status,
3376: l_msg_count,
3377: l_msg_data);
3378: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3379: RAISE FND_API.G_EXC_ERROR;
3380: END IF;
3381:
3382: --Check if task statuses are consistent
3383: PA_PROJECT_STRUCTURE_UTILS.check_tasks_statuses_valid(
3385: ,l_return_status
3386: ,l_msg_count
3387: ,l_msg_data
3388: );
3389: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3390: RAISE FND_API.G_EXC_ERROR;
3391: END IF;
3392:
3393: --Check if any new summary task has transactions
3386: ,l_msg_count
3387: ,l_msg_data
3388: );
3389: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3390: RAISE FND_API.G_EXC_ERROR;
3391: END IF;
3392:
3393: --Check if any new summary task has transactions
3394: PA_PROJECT_STRUCTURE_UTILS.Check_txn_on_summary_tasks(
3396: ,l_return_status
3397: ,l_msg_count
3398: ,l_msg_data
3399: );
3400: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3401: PA_UTILS.ADD_MESSAGE('PA',l_error_message_code);
3402: x_msg_data := l_error_message_code;
3403: RAISE FND_API.G_EXC_ERROR;
3404: END IF;
3399: );
3400: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3401: PA_UTILS.ADD_MESSAGE('PA',l_error_message_code);
3402: x_msg_data := l_error_message_code;
3403: RAISE FND_API.G_EXC_ERROR;
3404: END IF;
3405: --end bug 2684465
3406:
3407: -- 9072357
3419: x_msg_count => l_msg_count,
3420: x_msg_data => l_msg_data
3421: );
3422:
3423: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3424: RAISE FND_API.G_EXC_ERROR;
3425: END IF;
3426: END IF;
3427:
3420: x_msg_data => l_msg_data
3421: );
3422:
3423: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3424: RAISE FND_API.G_EXC_ERROR;
3425: END IF;
3426: END IF;
3427:
3428: --Check if this structure can be published (ie, if linked structures are published)
3428: --Check if this structure can be published (ie, if linked structures are published)
3429: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
3430: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_STRUC_NOT_PUB');
3431: -- x_msg_data := 'PA_PS_LINK_STRUC_NOT_PUB';
3432: -- RAISE FND_API.G_EXC_ERROR;
3433: -- END IF;
3434:
3435: --Check if this structure missing tasks with transactions
3436: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
3435: --Check if this structure missing tasks with transactions
3436: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
3437: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
3438: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
3439: -- RAISE FND_API.G_EXC_ERROR;
3440: -- END IF;
3441:
3442: --For rollups
3443: -- IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN') = 'Y') THEN
3451: -- CLOSE get_linking_tasks;
3452: --
3453: -- IF (l_tasks_ver_ids.count > 0) THEN
3454: -- PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
3455: -- p_commit => FND_API.G_FALSE,
3456: -- p_element_versions => l_tasks_ver_ids,
3457: -- x_return_status => l_return_status,
3458: -- x_msg_count => l_msg_count,
3459: -- x_msg_data => l_msg_data);
3457: -- x_return_status => l_return_status,
3458: -- x_msg_count => l_msg_count,
3459: -- x_msg_data => l_msg_data);
3460: --
3461: -- if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
3462: -- x_msg_count := FND_MSG_PUB.count_msg;
3463: -- if x_msg_count = 1 then
3464: -- x_msg_data := l_msg_data;
3465: -- end if;
3462: -- x_msg_count := FND_MSG_PUB.count_msg;
3463: -- if x_msg_count = 1 then
3464: -- x_msg_data := l_msg_data;
3465: -- end if;
3466: -- raise FND_API.G_EXC_ERROR;
3467: -- end if;
3468: --
3469: -- END IF;
3470: -- END IF;
3545:
3546: --Not unique; error.
3547: pa_utils.add_message('PA','PA_PS_NEW_STRUC_VER_NAM_UNIQUE');
3548: x_msg_data := 'PA_PS_NEW_STRUC_VER_NAM_UNIQUE';
3549: RAISE FND_API.G_EXC_ERROR;
3550: END IF;
3551:
3552: -- End of Bug Fix 4727737
3553:
3567: l_proj_element_id) <> 'Y') THEN
3568: --Not unique; error.
3569: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_VER_NAM_UNIQUE');
3570: x_msg_data := 'PA_PS_STRUC_VER_NAM_UNIQUE';
3571: RAISE FND_API.G_EXC_ERROR;
3572: END IF;
3573: --Bug No 3450684 Smukka Checking for deliverable type
3574: IF PA_PROJ_ELEMENTS_UTILS.check_sharedstruct_deliv(p_structure_version_id) = 'Y' THEN
3575: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3573: --Bug No 3450684 Smukka Checking for deliverable type
3574: IF PA_PROJ_ELEMENTS_UTILS.check_sharedstruct_deliv(p_structure_version_id) = 'Y' THEN
3575: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3576: p_msg_name => 'PA_PS_CHK_DEL_FAIL_PUB_STR');
3577: RAISE FND_API.G_EXC_ERROR;
3578: END IF;
3579:
3580: --Get Structure Version Info
3581: --dbms_output.put_line('2');
3670: x_msg_count := l_msg_count;
3671: if x_msg_count = 1 then
3672: x_msg_data := l_msg_data;
3673: end if;
3674: raise FND_API.G_EXC_ERROR;
3675: end if;
3676:
3677: --update links linking from working version to current published version
3678: -- PA_PROJECT_STRUCTURE_PVT1.UPDATE_LATEST_PUB_LINKS
3676:
3677: --update links linking from working version to current published version
3678: -- PA_PROJECT_STRUCTURE_PVT1.UPDATE_LATEST_PUB_LINKS
3679: -- (
3680: -- p_init_msg_list => FND_API.G_FALSE
3681: -- ,p_commit => FND_API.G_FALSE
3682: -- ,p_debug_mode => p_debug_mode
3683: -- ,p_orig_project_id => l_project_id
3684: -- ,p_orig_structure_id => l_proj_element_id
3677: --update links linking from working version to current published version
3678: -- PA_PROJECT_STRUCTURE_PVT1.UPDATE_LATEST_PUB_LINKS
3679: -- (
3680: -- p_init_msg_list => FND_API.G_FALSE
3681: -- ,p_commit => FND_API.G_FALSE
3682: -- ,p_debug_mode => p_debug_mode
3683: -- ,p_orig_project_id => l_project_id
3684: -- ,p_orig_structure_id => l_proj_element_id
3685: -- ,p_orig_struc_ver_id => p_structure_version_id
3698: -- x_msg_count := l_msg_count;
3699: -- if x_msg_count = 1 then
3700: -- x_msg_data := l_msg_data;
3701: -- end if;
3702: -- raise FND_API.G_EXC_ERROR;
3703: -- end if;
3704:
3705: --Search for incoming links; update existing links
3706: --dbms_output.put_line('3');
3719: --dbms_output.put_line('open get_structure_version_info');
3720: -- OPEN get_structure_version_info(l_from_object_info.object_id_from);
3721: -- FETCH get_structure_version_info INTO l_info_struc_ver_rec;
3722: -- PA_RELATIONSHIP_PVT.Update_Relationship(
3723: -- p_init_msg_list => FND_API.G_FALSE
3724: -- ,p_commit => FND_API.G_FALSE
3725: -- ,p_debug_mode => p_debug_mode
3726: -- ,p_object_relationship_id => l_from_object_info.object_relationship_id
3727: -- ,p_project_id_from => l_info_struc_ver_rec.project_id
3720: -- OPEN get_structure_version_info(l_from_object_info.object_id_from);
3721: -- FETCH get_structure_version_info INTO l_info_struc_ver_rec;
3722: -- PA_RELATIONSHIP_PVT.Update_Relationship(
3723: -- p_init_msg_list => FND_API.G_FALSE
3724: -- ,p_commit => FND_API.G_FALSE
3725: -- ,p_debug_mode => p_debug_mode
3726: -- ,p_object_relationship_id => l_from_object_info.object_relationship_id
3727: -- ,p_project_id_from => l_info_struc_ver_rec.project_id
3728: -- ,p_structure_id_from => l_info_struc_ver_rec.structure_id
3750: --dbms_output.put_line('open get_task_version_info');
3751: -- OPEN get_task_version_info(l_from_object_info.object_id_from);
3752: -- FETCH get_task_version_info INTO l_info_task_ver_rec;
3753: -- PA_RELATIONSHIP_PVT.Update_Relationship(
3754: -- p_init_msg_list => FND_API.G_FALSE
3755: -- ,p_commit => FND_API.G_FALSE
3756: -- ,p_debug_mode => p_debug_mode
3757: -- ,p_object_relationship_id => l_from_object_info.object_relationship_id
3758: -- ,p_project_id_from => l_info_task_ver_rec.project_id
3751: -- OPEN get_task_version_info(l_from_object_info.object_id_from);
3752: -- FETCH get_task_version_info INTO l_info_task_ver_rec;
3753: -- PA_RELATIONSHIP_PVT.Update_Relationship(
3754: -- p_init_msg_list => FND_API.G_FALSE
3755: -- ,p_commit => FND_API.G_FALSE
3756: -- ,p_debug_mode => p_debug_mode
3757: -- ,p_object_relationship_id => l_from_object_info.object_relationship_id
3758: -- ,p_project_id_from => l_info_task_ver_rec.project_id
3759: -- ,p_structure_id_from => l_info_task_ver_rec.structure_id
3787: -- x_msg_data := l_msg_data;
3788: -- end if;
3789: --dbms_output.put_line('close get_from_id');
3790: -- CLOSE get_from_id;
3791: -- raise FND_API.G_EXC_ERROR;
3792: -- end if;
3793: --
3794: --
3795: -- END LOOP;
3892: -- x_msg_data := l_msg_data;
3893: -- end if;
3894: --dbms_output.put_line('close get_to_id');
3895: -- CLOSE get_to_id;
3896: -- raise FND_API.G_EXC_ERROR;
3897: -- end if;
3898:
3899: -- END LOOP;
3900: --dbms_output.put_line('close get_to_id');
4036: ,x_msg_count => x_msg_count
4037: ,x_msg_data => x_msg_data
4038: );
4039:
4040: IF x_return_status = FND_API.G_RET_STS_ERROR then
4041: RAISE FND_API.G_EXC_ERROR;
4042: End If;
4043:
4044: -- 3955848 end
4037: ,x_msg_data => x_msg_data
4038: );
4039:
4040: IF x_return_status = FND_API.G_RET_STS_ERROR then
4041: RAISE FND_API.G_EXC_ERROR;
4042: End If;
4043:
4044: -- 3955848 end
4045:
4149: CLOSE get_task_ver_weighting;
4150:
4151: --Bug 2189657 end;
4152: PA_TASK_PVT1.CREATE_TASK_VERSION
4153: ( p_validate_only => FND_API.G_FALSE
4154: ,p_validation_level => 0
4155: ,p_ref_task_version_id => l_ref_task_ver_id
4156: ,p_peer_or_sub => l_peer_or_sub
4157: ,p_task_id => l_task_versions_rec.proj_element_id
4178: x_msg_data := l_msg_data;
4179: END IF;
4180: --dbms_output.put_line('close get_task_versions_csr');
4181: CLOSE get_task_versions_csr;
4182: RAISE FND_API.G_EXC_ERROR;
4183: END IF;
4184: */ --maansari
4185:
4186:
4190: -- pa_debug.debug('updating links');
4191: -- END IF;
4192: -- PA_PROJECT_STRUCTURE_PVT1.UPDATE_LATEST_PUB_LINKS
4193: -- (
4194: -- p_init_msg_list => FND_API.G_FALSE
4195: -- ,p_commit => FND_API.G_FALSE
4196: -- ,p_debug_mode => p_debug_mode
4197: -- ,p_orig_project_id => l_project_id
4198: -- ,p_orig_structure_id => l_proj_element_id
4191: -- END IF;
4192: -- PA_PROJECT_STRUCTURE_PVT1.UPDATE_LATEST_PUB_LINKS
4193: -- (
4194: -- p_init_msg_list => FND_API.G_FALSE
4195: -- ,p_commit => FND_API.G_FALSE
4196: -- ,p_debug_mode => p_debug_mode
4197: -- ,p_orig_project_id => l_project_id
4198: -- ,p_orig_structure_id => l_proj_element_id
4199: -- ,p_orig_struc_ver_id => p_structure_version_id
4216: -- x_msg_data := l_msg_data;
4217: -- END IF;
4218: --dbms_output.put_line('close get_task_versions_csr');
4219: -- CLOSE get_task_versions_csr;
4220: -- RAISE FND_API.G_EXC_ERROR;
4221: -- END IF;
4222:
4223:
4224: --Search for incoming links; update existing links
4231: --dbms_output.put_line('open get_structure_version_info');
4232: -- OPEN get_structure_version_info(l_from_object_info.object_id_from);
4233: -- FETCH get_structure_version_info INTO l_info_struc_ver_rec;
4234: -- PA_RELATIONSHIP_PVT.Update_Relationship(
4235: -- p_init_msg_list => FND_API.G_FALSE
4236: -- ,p_commit => FND_API.G_FALSE
4237: -- ,p_debug_mode => p_debug_mode
4238: -- ,p_object_relationship_id => l_from_object_info.object_relationship_id
4239: -- ,p_project_id_from => l_info_struc_ver_rec.project_id
4232: -- OPEN get_structure_version_info(l_from_object_info.object_id_from);
4233: -- FETCH get_structure_version_info INTO l_info_struc_ver_rec;
4234: -- PA_RELATIONSHIP_PVT.Update_Relationship(
4235: -- p_init_msg_list => FND_API.G_FALSE
4236: -- ,p_commit => FND_API.G_FALSE
4237: -- ,p_debug_mode => p_debug_mode
4238: -- ,p_object_relationship_id => l_from_object_info.object_relationship_id
4239: -- ,p_project_id_from => l_info_struc_ver_rec.project_id
4240: -- ,p_structure_id_from => l_info_struc_ver_rec.structure_id
4259: --dbms_output.put_line('get_task_version_info');
4260: -- OPEN get_task_version_info(l_from_object_info.object_id_from);
4261: -- FETCH get_task_version_info INTO l_info_task_ver_rec;
4262: -- PA_RELATIONSHIP_PVT.Update_Relationship(
4263: -- p_init_msg_list => FND_API.G_FALSE
4264: -- ,p_commit => FND_API.G_FALSE
4265: -- ,p_debug_mode => p_debug_mode
4266: -- ,p_object_relationship_id => l_from_object_info.object_relationship_id
4267: -- ,p_project_id_from => l_info_task_ver_rec.project_id
4260: -- OPEN get_task_version_info(l_from_object_info.object_id_from);
4261: -- FETCH get_task_version_info INTO l_info_task_ver_rec;
4262: -- PA_RELATIONSHIP_PVT.Update_Relationship(
4263: -- p_init_msg_list => FND_API.G_FALSE
4264: -- ,p_commit => FND_API.G_FALSE
4265: -- ,p_debug_mode => p_debug_mode
4266: -- ,p_object_relationship_id => l_from_object_info.object_relationship_id
4267: -- ,p_project_id_from => l_info_task_ver_rec.project_id
4268: -- ,p_structure_id_from => l_info_task_ver_rec.structure_id
4294: --dbms_output.put_line('close get_task_versions_csr');
4295: -- CLOSE get_task_versions_csr;
4296: --dbms_output.put_line('close get_from_id');
4297: -- CLOSE get_from_id;
4298: -- raise FND_API.G_EXC_ERROR;
4299: -- end if;
4300:
4301: -- END LOOP;
4302: --dbms_output.put_line('close get_from_id');
4392: --dbms_output.put_line('close get_task_versions_csr');
4393: -- CLOSE get_task_versions_csr;
4394: --dbms_output.put_line('close get_to_id');
4395: -- CLOSE get_to_id;
4396: -- raise FND_API.G_EXC_ERROR;
4397: -- end if;
4398: --
4399: -- END LOOP;
4400: --dbms_output.put_line('close get_to_id');
4415:
4416: /* hsiu: bug 2800553: commented for performance improvement
4417: -- xxlu added DFF attributes
4418: PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
4419: (p_validate_only => FND_API.G_FALSE
4420: ,p_element_version_id => l_task_version_id
4421: ,p_calendar_id => l_ver_sch_attr_rec.calendar_id
4422: ,p_scheduled_start_date => l_ver_sch_attr_rec.scheduled_start_date
4423: ,p_scheduled_end_date => l_ver_sch_attr_rec.scheduled_finish_date
4515: x_msg_data := l_msg_data;
4516: END IF;
4517: --dbms_output.put_line('close get_task_versions_csr');
4518: CLOSE get_task_versions_csr;
4519: RAISE FND_API.G_EXC_ERROR;
4520: END IF;
4521: END IF;
4522:
4523: l_last_wbs_level := l_task_versions_rec.wbs_level;
4557: ,x_msg_count => l_msg_count
4558: ,x_msg_data => l_msg_data
4559: );
4560:
4561: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
4562: x_msg_count := FND_MSG_PUB.count_msg;
4563: if x_msg_count = 1 then
4564: x_msg_data := l_msg_data;
4565: end if;
4562: x_msg_count := FND_MSG_PUB.count_msg;
4563: if x_msg_count = 1 then
4564: x_msg_data := l_msg_data;
4565: end if;
4566: raise FND_API.G_EXC_ERROR;
4567: end if;
4568:
4569: END IF;
4570: CLOSE get_tbd_tasks_info;
4589: END IF;
4590: --Call Create_Schedule_Version if workplan type
4591: /* hsiu: bug 2800553: commented for performance improvement
4592: PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
4593: ( p_validate_only => FND_API.G_FALSE
4594: ,p_element_version_id => l_new_struct_ver_id
4595: ,p_calendar_id => l_ver_sch_attr_rec.calendar_id
4596: ,p_scheduled_start_date => l_ver_sch_attr_rec.scheduled_start_date
4597: ,p_scheduled_end_date => l_ver_sch_attr_rec.scheduled_finish_date
4670: x_msg_count := l_msg_count;
4671: IF x_msg_count = 1 THEN
4672: x_msg_data := l_msg_data;
4673: END IF;
4674: RAISE FND_API.G_EXC_ERROR;
4675: END IF;
4676:
4677: END IF;
4678:
4983: X_Msg_Count => X_Msg_Count,
4984: X_Msg_Data => X_Msg_Data
4985: );
4986:
4987: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4988: RAISE FND_API.G_EXC_ERROR;
4989: END IF;
4990:
4991: PA_RELATIONSHIP_PVT.Publish_Inter_Proj_Dep ( -- This API needs to be called
4984: X_Msg_Data => X_Msg_Data
4985: );
4986:
4987: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4988: RAISE FND_API.G_EXC_ERROR;
4989: END IF;
4990:
4991: PA_RELATIONSHIP_PVT.Publish_Inter_Proj_Dep ( -- This API needs to be called
4992: p_publishing_struc_ver_id => p_structure_version_id,
4995: X_Return_Status => X_Return_Status,
4996: X_Msg_Count => X_Msg_Count,
4997: X_Msg_Data => X_Msg_Data
4998: );
4999: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5000: RAISE FND_API.G_EXC_ERROR;
5001: END IF;
5002: */
5003:
4996: X_Msg_Count => X_Msg_Count,
4997: X_Msg_Data => X_Msg_Data
4998: );
4999: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5000: RAISE FND_API.G_EXC_ERROR;
5001: END IF;
5002: */
5003:
5004: /* Smukka 01/03/2004 Bug No.3450684 */
5017: p_dest_str_version_id => l_new_struct_ver_id, -- Destination Str version id can be of published str also
5018: x_return_status => X_Return_Status,
5019: x_msg_count => X_Msg_Count,
5020: x_msg_data => X_Msg_Data);
5021: IF (X_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
5022: x_msg_count := FND_MSG_PUB.count_msg;
5023: IF x_msg_count = 1 then
5024: pa_interface_utils_pub.get_messages
5025: (p_encoded => FND_API.G_TRUE,
5021: IF (X_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
5022: x_msg_count := FND_MSG_PUB.count_msg;
5023: IF x_msg_count = 1 then
5024: pa_interface_utils_pub.get_messages
5025: (p_encoded => FND_API.G_TRUE,
5026: p_msg_index => 1,
5027: p_msg_count => l_msg_count,
5028: p_msg_data => l_msg_data,
5029: p_data => l_data,
5029: p_data => l_data,
5030: p_msg_index_out => l_msg_index_out);
5031: x_msg_data := l_data;
5032: END IF;
5033: raise FND_API.G_EXC_ERROR;
5034: END IF;
5035: PA_RELATIONSHIP_PVT.Move_CI_Lnk_For_subproj_step1(
5036: p_api_version => p_api_version,
5037: p_init_msg_list => p_init_msg_list,
5068: -- version.
5069:
5070: --Call Create Structure Version Attr
5071: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
5072: ( p_validate_only => FND_API.G_FALSE
5073: ,p_structure_version_id => l_new_struct_ver_id
5074: ,p_structure_version_name => l_new_struct_ver_name
5075: ,p_structure_version_desc => l_new_struct_ver_desc
5076: ,p_effective_date => l_struc_ver_attr_rec.effective_date
5092: x_msg_count := l_msg_count;
5093: if x_msg_count = 1 then
5094: x_msg_data := l_msg_data;
5095: end if;
5096: raise FND_API.G_EXC_ERROR;
5097: end if;
5098:
5099: --bug 4019845
5100: /*
5124: ,x_msg_count => x_msg_count
5125: ,x_msg_data => x_msg_data
5126: );
5127:
5128: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5129: RAISE FND_API.G_EXC_ERROR;
5130: END IF;
5131: EXCEPTION
5132: WHEN OTHERS THEN
5125: ,x_msg_data => x_msg_data
5126: );
5127:
5128: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5129: RAISE FND_API.G_EXC_ERROR;
5130: END IF;
5131: EXCEPTION
5132: WHEN OTHERS THEN
5133: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5132: WHEN OTHERS THEN
5133: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5134: p_procedure_name => 'PUBLISH_STRUCTURE',
5135: p_error_text => SUBSTRB('PA_PROJ_STRUC_MAPPING_PUB.COPY_MAPPING:'||SQLERRM,1,240));
5136: RAISE FND_API.G_EXC_ERROR;
5137: END;
5138: */
5139: --end bug 4019845
5140:
5176: WHEN OTHERS THEN
5177: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5178: p_procedure_name => 'PUBLISH_STRUCTURE',
5179: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
5180: RAISE FND_API.G_EXC_ERROR;
5181: END;
5182: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5183: RAISE FND_API.G_EXC_ERROR;
5184: END IF;
5178: p_procedure_name => 'PUBLISH_STRUCTURE',
5179: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
5180: RAISE FND_API.G_EXC_ERROR;
5181: END;
5182: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5183: RAISE FND_API.G_EXC_ERROR;
5184: END IF;
5185: End;
5186: -- till here by skannoji
5179: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
5180: RAISE FND_API.G_EXC_ERROR;
5181: END;
5182: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5183: RAISE FND_API.G_EXC_ERROR;
5184: END IF;
5185: End;
5186: -- till here by skannoji
5187: */
5202: WHEN OTHERS THEN
5203: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5204: p_procedure_name => 'PUBLISH_STRUCTURE',
5205: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_missing_unplanned_asgmts:'||SQLERRM,1,240));
5206: RAISE FND_API.G_EXC_ERROR;
5207: END;
5208: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5209: RAISE FND_API.G_EXC_ERROR;
5210: END IF;
5204: p_procedure_name => 'PUBLISH_STRUCTURE',
5205: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_missing_unplanned_asgmts:'||SQLERRM,1,240));
5206: RAISE FND_API.G_EXC_ERROR;
5207: END;
5208: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5209: RAISE FND_API.G_EXC_ERROR;
5210: END IF;
5211: */
5212:
5205: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_missing_unplanned_asgmts:'||SQLERRM,1,240));
5206: RAISE FND_API.G_EXC_ERROR;
5207: END;
5208: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5209: RAISE FND_API.G_EXC_ERROR;
5210: END IF;
5211: */
5212:
5213: /* --hsiu: no need to rollup since the copied structure version is already rolled-up
5214: IF l_task_ver_ids_tbl.count > 0 THEN
5215: --rollup dates for new published version
5216:
5217: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup_Unlimited(
5218: p_commit => FND_API.G_FALSE,
5219: p_element_versions => l_task_ver_ids_tbl,
5220: x_return_status => l_return_status,
5221: x_msg_count => l_msg_count,
5222: x_msg_data => l_msg_data);
5226: x_msg_count := l_msg_count;
5227: if x_msg_count = 1 then
5228: x_msg_data := l_msg_data;
5229: end if;
5230: raise FND_API.G_EXC_ERROR;
5231: end if;
5232: END IF;
5233: --end bug 3047602
5234: */
5318: x_msg_count := l_msg_count;
5319: if x_msg_count = 1 then
5320: -- x_msg_data := l_msg_data;
5321: pa_interface_utils_pub.get_messages
5322: (p_encoded => FND_API.G_TRUE,
5323: p_msg_index => 1,
5324: p_msg_count => l_msg_count,
5325: p_msg_data => l_msg_data,
5326: p_data => l_data,
5326: p_data => l_data,
5327: p_msg_index_out => l_msg_index_out);
5328: x_msg_data := l_data;
5329: end if;
5330: raise FND_API.G_EXC_ERROR;
5331: end if;
5332:
5333: END IF; --for checking structure type
5334: */
5340: --API for progress report.
5341: */
5342: /* removed
5343: PA_PROGRESS_PUB.CREATE_PROGRESS_FOR_WBS(
5344: p_commit => FND_API.G_FALSE
5345: ,p_project_id => l_project_id
5346: ,p_structure_version_id => l_new_struct_ver_id
5347: ,x_return_status => l_return_status
5348: ,x_msg_count => l_msg_count
5361: x_msg_count := l_msg_count;
5362: IF x_msg_count = 1 THEN
5363: x_msg_data := l_msg_data;
5364: END IF;
5365: RAISE FND_API.G_EXC_ERROR;
5366: END IF;
5367:
5368: END IF;
5369: */
5391: FETCH get_proj_rec_ver_number INTO l_proj_record_ver_number;
5392: CLOSE get_proj_rec_ver_number;
5393:
5394: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
5395: p_validate_only => FND_API.G_FALSE
5396: ,p_project_id => l_project_id
5397: ,p_date_type => 'SCHEDULED'
5398: ,p_start_date => l_scheduled_start_date
5399: ,p_finish_date => l_scheduled_finish_date
5408: x_msg_count := l_msg_count;
5409: IF x_msg_count = 1 THEN
5410: x_msg_data := l_msg_data;
5411: END IF;
5412: RAISE FND_API.G_EXC_ERROR;
5413: END IF;
5414: END IF;
5415: -- End of changes
5416:
5431: x_msg_count => l_msg_count,
5432: x_msg_data => l_msg_data
5433: );
5434:
5435: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5436: x_msg_count := FND_MSG_PUB.count_msg;
5437: if x_msg_count = 1 then
5438: x_msg_data := l_msg_data;
5439: end if;
5436: x_msg_count := FND_MSG_PUB.count_msg;
5437: if x_msg_count = 1 then
5438: x_msg_data := l_msg_data;
5439: end if;
5440: raise FND_API.G_EXC_ERROR;
5441: end if;
5442:
5443: END IF;
5444: END IF;
5455: ,x_return_status => x_return_status
5456: ,x_msg_count => x_msg_count
5457: ,x_msg_data => x_msg_data
5458: );
5459: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5460: RAISE FND_API.G_EXC_ERROR;
5461: END IF;
5462: --end task status changes
5463: */
5456: ,x_msg_count => x_msg_count
5457: ,x_msg_data => x_msg_data
5458: );
5459: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5460: RAISE FND_API.G_EXC_ERROR;
5461: END IF;
5462: --end task status changes
5463: */
5464: --end bug 4019845
5476: p_task_version_id => l_parent_ver_id
5477: ,x_return_status => x_return_status
5478: ,x_msg_count => x_msg_count
5479: ,x_msg_data => x_msg_data);
5480: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5481: CLOSE is_summary_elem;
5482: RAISE FND_API.G_EXC_ERROR;
5483: END IF;
5484: END IF;
5478: ,x_msg_count => x_msg_count
5479: ,x_msg_data => x_msg_data);
5480: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5481: CLOSE is_summary_elem;
5482: RAISE FND_API.G_EXC_ERROR;
5483: END IF;
5484: END IF;
5485: CLOSE is_summary_elem;
5486: -- END IF;
5509: ,x_msg_count => l_msg_count
5510: ,x_msg_data => l_msg_data
5511: );
5512:
5513: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5514: x_msg_count := FND_MSG_PUB.count_msg;
5515: if x_msg_count = 1 then
5516: x_msg_data := l_msg_data;
5517: end if;
5514: x_msg_count := FND_MSG_PUB.count_msg;
5515: if x_msg_count = 1 then
5516: x_msg_data := l_msg_data;
5517: end if;
5518: raise FND_API.G_EXC_ERROR;
5519: end if;
5520:
5521: END IF;
5522: CLOSE get_tbd_tasks_info;
5540: x_return_status => l_return_status,
5541: x_msg_count => l_msg_count,
5542: x_msg_data => l_msg_data
5543: );
5544: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5545: x_msg_count := FND_MSG_PUB.count_msg;
5546: if x_msg_count = 1 then
5547: x_msg_data := l_msg_data;
5548: end if;
5545: x_msg_count := FND_MSG_PUB.count_msg;
5546: if x_msg_count = 1 then
5547: x_msg_data := l_msg_data;
5548: end if;
5549: raise FND_API.G_EXC_ERROR;
5550: end if;
5551:
5552: --end bug 4479392
5553:
5565: x_return_status => l_return_status,
5566: x_msg_count => l_msg_count,
5567: x_msg_data => l_msg_data
5568: );
5569: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5570: x_msg_count := FND_MSG_PUB.count_msg;
5571: if x_msg_count = 1 then
5572: x_msg_data := l_msg_data;
5573: end if;
5570: x_msg_count := FND_MSG_PUB.count_msg;
5571: if x_msg_count = 1 then
5572: x_msg_data := l_msg_data;
5573: end if;
5574: raise FND_API.G_EXC_ERROR;
5575: end if;
5576: --END IF;
5577: --end bug 3035902
5578:
5586: ,x_msg_count => x_msg_count
5587: ,x_msg_data => x_msg_data
5588: );
5589:
5590: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
5591: x_msg_count := FND_MSG_PUB.count_msg;
5592: if x_msg_count = 1 then
5593: x_msg_data := l_msg_data;
5594: end if;
5591: x_msg_count := FND_MSG_PUB.count_msg;
5592: if x_msg_count = 1 then
5593: x_msg_data := l_msg_data;
5594: end if;
5595: raise FND_API.G_EXC_ERROR;
5596: end if;
5597:
5598: IF p_pub_prog_flag = 'Y' THEN
5599: PA_PROGRESS_PUB.Publish_Progress(
5607: ,x_msg_count => x_msg_count
5608: ,x_msg_data => x_msg_data
5609: );
5610:
5611: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
5612: x_msg_count := FND_MSG_PUB.count_msg;
5613: if x_msg_count = 1 then
5614: x_msg_data := l_msg_data;
5615: end if;
5612: x_msg_count := FND_MSG_PUB.count_msg;
5613: if x_msg_count = 1 then
5614: x_msg_data := l_msg_data;
5615: end if;
5616: raise FND_API.G_EXC_ERROR;
5617: end if;
5618:
5619: END IF;
5620: */
5659: IF x_msg_count = 1 THEN
5660: x_msg_data := l_msg_data;
5661: END IF;
5662: CLOSE sel_other_structure_ver;
5663: RAISE FND_API.G_EXC_ERROR;
5664: END IF;
5665:
5666: END LOOP;
5667: CLOSE sel_other_structure_ver;
5691: x_msg_count := l_msg_count;
5692: IF x_msg_count = 1 THEN
5693: x_msg_data := l_msg_data;
5694: END IF;
5695: RAISE FND_API.G_EXC_ERROR;
5696: END IF;
5697: END IF;
5698: --end bug 3010538
5699:
5725: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5726: 'PA_PROJECT_STRUCTURE_PVT1',
5727: p_procedure_name => 'publish_structure',
5728: p_error_text => SUBSTRB('Call PA_PROGRESS_PUB.COPY_PROGRESS_ACT_ETC:'||SQLERRM,1,120));
5729: RAISE FND_API.G_EXC_ERROR;
5730: END;
5731:
5732: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5733: x_msg_count := FND_MSG_PUB.count_msg;
5728: p_error_text => SUBSTRB('Call PA_PROGRESS_PUB.COPY_PROGRESS_ACT_ETC:'||SQLERRM,1,120));
5729: RAISE FND_API.G_EXC_ERROR;
5730: END;
5731:
5732: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5733: x_msg_count := FND_MSG_PUB.count_msg;
5734: IF x_msg_count = 1 THEN
5735: x_msg_data := l_msg_data;
5736: END IF;
5733: x_msg_count := FND_MSG_PUB.count_msg;
5734: IF x_msg_count = 1 THEN
5735: x_msg_data := l_msg_data;
5736: END IF;
5737: raise FND_API.G_EXC_ERROR;
5738: END IF;
5739: */
5740: --bug 4019845
5741:
5747: THEN
5748: BEGIN
5749:
5750: pa_progress_pub.populate_pji_tab_for_plan(
5751: p_init_msg_list => FND_API.G_FALSE
5752: ,p_commit => FND_API.G_FALSE
5753: --,p_calling_module => p_calling_module
5754: ,p_project_id => l_Project_ID
5755: ,p_structure_version_id => l_new_struct_ver_id
5748: BEGIN
5749:
5750: pa_progress_pub.populate_pji_tab_for_plan(
5751: p_init_msg_list => FND_API.G_FALSE
5752: ,p_commit => FND_API.G_FALSE
5753: --,p_calling_module => p_calling_module
5754: ,p_project_id => l_Project_ID
5755: ,p_structure_version_id => l_new_struct_ver_id
5756: ,p_baselined_str_ver_id => PA_PROJECT_STRUCTURE_UTILS.Get_Baseline_Struct_Ver(l_Project_ID)
5764: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5765: 'PA_PROJECT_STRUCTURE_PVT1',
5766: p_procedure_name => 'publish_structure',
5767: p_error_text => SUBSTRB('Call pa_progress_pub.populate_pji_tab_for_plan:'||SQLERRM,1,120));
5768: RAISE FND_API.G_EXC_ERROR;
5769: END;
5770:
5771: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5772: x_msg_count := FND_MSG_PUB.count_msg;
5767: p_error_text => SUBSTRB('Call pa_progress_pub.populate_pji_tab_for_plan:'||SQLERRM,1,120));
5768: RAISE FND_API.G_EXC_ERROR;
5769: END;
5770:
5771: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5772: x_msg_count := FND_MSG_PUB.count_msg;
5773: IF x_msg_count = 1 THEN
5774: x_msg_data := l_msg_data;
5775: END IF;
5772: x_msg_count := FND_MSG_PUB.count_msg;
5773: IF x_msg_count = 1 THEN
5774: x_msg_data := l_msg_data;
5775: END IF;
5776: raise FND_API.G_EXC_ERROR;
5777: END IF;
5778:
5779: BEGIN
5780: PA_PROGRESS_PUB.ROLLUP_PROGRESS_PVT(
5777: END IF;
5778:
5779: BEGIN
5780: PA_PROGRESS_PUB.ROLLUP_PROGRESS_PVT(
5781: p_init_msg_list => FND_API.G_FALSE
5782: --,p_calling_module => p_calling_module
5783: ,p_commit => FND_API.G_FALSE
5784: --,p_validate_only => p_validate_only
5785: ,p_project_id => l_Project_ID
5779: BEGIN
5780: PA_PROGRESS_PUB.ROLLUP_PROGRESS_PVT(
5781: p_init_msg_list => FND_API.G_FALSE
5782: --,p_calling_module => p_calling_module
5783: ,p_commit => FND_API.G_FALSE
5784: --,p_validate_only => p_validate_only
5785: ,p_project_id => l_Project_ID
5786: ,p_structure_version_id => l_new_struct_ver_id
5787: ,p_as_of_date => l_as_of_date
5797: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5798: 'PA_PROJECT_STRUCTURE_PVT1',
5799: p_procedure_name => 'publish_structure',
5800: p_error_text => SUBSTRB('Call PA_PROGRESS_PUB.ROLLUP_PROGRESS_PVT:'||SQLERRM,1,120));
5801: RAISE FND_API.G_EXC_ERROR;
5802: END;
5803:
5804:
5805: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5801: RAISE FND_API.G_EXC_ERROR;
5802: END;
5803:
5804:
5805: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5806: x_msg_count := FND_MSG_PUB.count_msg;
5807: IF x_msg_count = 1 THEN
5808: x_msg_data := l_msg_data;
5809: END IF;
5806: x_msg_count := FND_MSG_PUB.count_msg;
5807: IF x_msg_count = 1 THEN
5808: x_msg_data := l_msg_data;
5809: END IF;
5810: raise FND_API.G_EXC_ERROR;
5811: END IF;
5812:
5813: END IF;
5814: -- Bug 3839288 End
5834: fnd_msg_pub.add_exc_msg(p_pkg_name =>
5835: 'PA_PROJECT_STRUCTURE_PVT1',
5836: p_procedure_name => 'publish_structure',
5837: p_error_text => SUBSTRB('Call PA_PROGRESS_UTILS.clear_prog_outdated_flag:'||SQLERRM,1,120));
5838: RAISE FND_API.G_EXC_ERROR;
5839: END;
5840:
5841:
5842: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5838: RAISE FND_API.G_EXC_ERROR;
5839: END;
5840:
5841:
5842: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5843: x_msg_count := FND_MSG_PUB.count_msg;
5844: IF x_msg_count = 1 THEN
5845: x_msg_data := l_msg_data;
5846: END IF;
5843: x_msg_count := FND_MSG_PUB.count_msg;
5844: IF x_msg_count = 1 THEN
5845: x_msg_data := l_msg_data;
5846: END IF;
5847: raise FND_API.G_EXC_ERROR;
5848: END IF;
5849: --bug 3851528
5850:
5851: END IF; -- p_pub_prog_flag = 'Y' THEN
5862: PA_PROJECT_PUB.G_DELETED_TASK_IDS_FROM_OP := l_tbd_task_id;
5863: END IF;
5864: -- End Bug : 4096218
5865:
5866: x_return_status := FND_API.G_RET_STS_SUCCESS;
5867:
5868: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5869: x_msg_count := FND_MSG_PUB.count_msg;
5870: if x_msg_count = 1 then
5864: -- End Bug : 4096218
5865:
5866: x_return_status := FND_API.G_RET_STS_SUCCESS;
5867:
5868: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5869: x_msg_count := FND_MSG_PUB.count_msg;
5870: if x_msg_count = 1 then
5871: x_msg_data := l_msg_data;
5872: end if;
5869: x_msg_count := FND_MSG_PUB.count_msg;
5870: if x_msg_count = 1 then
5871: x_msg_data := l_msg_data;
5872: end if;
5873: raise FND_API.G_EXC_ERROR;
5874: end if;
5875:
5876: IF (p_debug_mode = 'Y') THEN
5877: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE end');
5877: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE end');
5878: END IF;
5879:
5880: EXCEPTION
5881: when FND_API.G_EXC_ERROR then
5882: if p_commit = FND_API.G_TRUE then
5883: rollback to publish_structure_pvt;
5884: else
5885: --need to rollback because generate error page performs a commit
5878: END IF;
5879:
5880: EXCEPTION
5881: when FND_API.G_EXC_ERROR then
5882: if p_commit = FND_API.G_TRUE then
5883: rollback to publish_structure_pvt;
5884: else
5885: --need to rollback because generate error page performs a commit
5886: rollback;
5902: x_msg_data => l_msg_data
5903: );
5904:
5905: x_msg_count := FND_MSG_PUB.count_msg;
5906: x_return_status := FND_API.G_RET_STS_ERROR;
5907: when FND_API.G_EXC_UNEXPECTED_ERROR then
5908: if p_commit = FND_API.G_TRUE then
5909: rollback to publish_structure_pvt;
5910: end if;
5903: );
5904:
5905: x_msg_count := FND_MSG_PUB.count_msg;
5906: x_return_status := FND_API.G_RET_STS_ERROR;
5907: when FND_API.G_EXC_UNEXPECTED_ERROR then
5908: if p_commit = FND_API.G_TRUE then
5909: rollback to publish_structure_pvt;
5910: end if;
5911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5904:
5905: x_msg_count := FND_MSG_PUB.count_msg;
5906: x_return_status := FND_API.G_RET_STS_ERROR;
5907: when FND_API.G_EXC_UNEXPECTED_ERROR then
5908: if p_commit = FND_API.G_TRUE then
5909: rollback to publish_structure_pvt;
5910: end if;
5911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5912: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5907: when FND_API.G_EXC_UNEXPECTED_ERROR then
5908: if p_commit = FND_API.G_TRUE then
5909: rollback to publish_structure_pvt;
5910: end if;
5911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5912: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5913: p_procedure_name => 'PUBLISH_STRUCTURE',
5914: p_error_text => SUBSTRB(SQLERRM,1,240));
5915: when OTHERS then
5912: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5913: p_procedure_name => 'PUBLISH_STRUCTURE',
5914: p_error_text => SUBSTRB(SQLERRM,1,240));
5915: when OTHERS then
5916: if p_commit = FND_API.G_TRUE then
5917: rollback to publish_structure_pvt;
5918: end if;
5919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5920: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5915: when OTHERS then
5916: if p_commit = FND_API.G_TRUE then
5917: rollback to publish_structure_pvt;
5918: end if;
5919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5920: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
5921: p_procedure_name => 'PUBLISH_STRUCTURE',
5922: p_error_text => SUBSTRB(SQLERRM,1,240));
5923: raise;
5929: -- Pre-reqs : None
5930: -- Return Value : N/A
5931: -- Parameters
5932: -- p_api_version IN NUMBER := 1.0
5933: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5934: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
5935: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5936: -- p_validation_level IN VARCHAR2 := 100
5937: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5930: -- Return Value : N/A
5931: -- Parameters
5932: -- p_api_version IN NUMBER := 1.0
5933: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5934: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
5935: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5936: -- p_validation_level IN VARCHAR2 := 100
5937: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5938: -- p_debug_mode IN VARCHAR2 := 'N'
5931: -- Parameters
5932: -- p_api_version IN NUMBER := 1.0
5933: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5934: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
5935: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5936: -- p_validation_level IN VARCHAR2 := 100
5937: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5938: -- p_debug_mode IN VARCHAR2 := 'N'
5939: -- p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5958:
5959: procedure UPDATE_LATEST_PUB_LINKS
5960: (
5961: p_api_version IN NUMBER := 1.0
5962: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5963: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5964: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5965: ,p_validation_level IN VARCHAR2 := 100
5966: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5959: procedure UPDATE_LATEST_PUB_LINKS
5960: (
5961: p_api_version IN NUMBER := 1.0
5962: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5963: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5964: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5965: ,p_validation_level IN VARCHAR2 := 100
5966: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5967: ,p_debug_mode IN VARCHAR2 := 'N'
5960: (
5961: p_api_version IN NUMBER := 1.0
5962: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
5963: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5964: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
5965: ,p_validation_level IN VARCHAR2 := 100
5966: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
5967: ,p_debug_mode IN VARCHAR2 := 'N'
5968: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6056: IF (p_debug_mode = 'Y') THEN
6057: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_LATEST_PUB_LINKS begin');
6058: END IF;
6059:
6060: IF (p_commit = FND_API.G_TRUE) THEN
6061: savepoint update_latest_pub_links_pvt;
6062: END IF;
6063:
6064: IF p_orig_task_ver_id IS NULL THEN
6084: pa_debug.debug('No latest published version found');
6085: END IF;
6086: --dbms_output.put_line('b, Close get_latest_struc_ver');
6087: CLOSE get_latest_struc_ver;
6088: x_return_status := FND_API.G_RET_STS_SUCCESS;
6089: return;
6090: END IF;
6091: l_latest_parent_struc_ver := l_latest_elem_ver;
6092: --dbms_output.put_line('b, Close get_latest_struc_ver');
6102: pa_debug.debug('No latest published version found');
6103: END IF;
6104: --dbms_output.put_line('b, Close get_latest_task_ver');
6105: CLOSE get_latest_task_ver;
6106: x_return_status := FND_API.G_RET_STS_SUCCESS;
6107: return;
6108: END IF;
6109: --dbms_output.put_line('b, Close get_latest_task_ver');
6110: CLOSE get_latest_task_ver;
6134: --dbms_output.put_line('b, Open get_structure_version_info');
6135: OPEN get_structure_version_info(l_from_object_info.object_id_from);
6136: FETCH get_structure_version_info INTO l_info_struc_ver_rec;
6137: PA_RELATIONSHIP_PVT.Update_Relationship(
6138: p_init_msg_list => FND_API.G_FALSE
6139: ,p_commit => FND_API.G_FALSE
6140: ,p_debug_mode => p_debug_mode
6141: ,p_object_relationship_id => l_from_object_info.object_relationship_id
6142: ,p_project_id_from => l_info_struc_ver_rec.project_id
6135: OPEN get_structure_version_info(l_from_object_info.object_id_from);
6136: FETCH get_structure_version_info INTO l_info_struc_ver_rec;
6137: PA_RELATIONSHIP_PVT.Update_Relationship(
6138: p_init_msg_list => FND_API.G_FALSE
6139: ,p_commit => FND_API.G_FALSE
6140: ,p_debug_mode => p_debug_mode
6141: ,p_object_relationship_id => l_from_object_info.object_relationship_id
6142: ,p_project_id_from => l_info_struc_ver_rec.project_id
6143: ,p_structure_id_from => l_info_struc_ver_rec.structure_id
6161: --dbms_output.put_line('b, Open get_task_version_info');
6162: OPEN get_task_version_info(l_from_object_info.object_id_from);
6163: FETCH get_task_version_info INTO l_info_task_ver_rec;
6164: PA_RELATIONSHIP_PVT.Update_Relationship(
6165: p_init_msg_list => FND_API.G_FALSE
6166: ,p_commit => FND_API.G_FALSE
6167: ,p_debug_mode => p_debug_mode
6168: ,p_object_relationship_id => l_from_object_info.object_relationship_id
6169: ,p_project_id_from => l_info_task_ver_rec.project_id
6162: OPEN get_task_version_info(l_from_object_info.object_id_from);
6163: FETCH get_task_version_info INTO l_info_task_ver_rec;
6164: PA_RELATIONSHIP_PVT.Update_Relationship(
6165: p_init_msg_list => FND_API.G_FALSE
6166: ,p_commit => FND_API.G_FALSE
6167: ,p_debug_mode => p_debug_mode
6168: ,p_object_relationship_id => l_from_object_info.object_relationship_id
6169: ,p_project_id_from => l_info_task_ver_rec.project_id
6170: ,p_structure_id_from => l_info_task_ver_rec.structure_id
6198: x_msg_count := l_msg_count;
6199: if x_msg_count = 1 then
6200: x_msg_data := l_msg_data;
6201: end if;
6202: raise FND_API.G_EXC_ERROR;
6203: end if;
6204:
6205: EXCEPTION
6206: when FND_API.G_EXC_ERROR then
6202: raise FND_API.G_EXC_ERROR;
6203: end if;
6204:
6205: EXCEPTION
6206: when FND_API.G_EXC_ERROR then
6207: if p_commit = FND_API.G_TRUE then
6208: rollback to update_latest_pub_links_pvt;
6209: end if;
6210: x_msg_count := FND_MSG_PUB.count_msg;
6203: end if;
6204:
6205: EXCEPTION
6206: when FND_API.G_EXC_ERROR then
6207: if p_commit = FND_API.G_TRUE then
6208: rollback to update_latest_pub_links_pvt;
6209: end if;
6210: x_msg_count := FND_MSG_PUB.count_msg;
6211: x_return_status := FND_API.G_RET_STS_ERROR;
6207: if p_commit = FND_API.G_TRUE then
6208: rollback to update_latest_pub_links_pvt;
6209: end if;
6210: x_msg_count := FND_MSG_PUB.count_msg;
6211: x_return_status := FND_API.G_RET_STS_ERROR;
6212: when FND_API.G_EXC_UNEXPECTED_ERROR then
6213: if p_commit = FND_API.G_TRUE then
6214: rollback to update_latest_pub_links_pvt;
6215: end if;
6208: rollback to update_latest_pub_links_pvt;
6209: end if;
6210: x_msg_count := FND_MSG_PUB.count_msg;
6211: x_return_status := FND_API.G_RET_STS_ERROR;
6212: when FND_API.G_EXC_UNEXPECTED_ERROR then
6213: if p_commit = FND_API.G_TRUE then
6214: rollback to update_latest_pub_links_pvt;
6215: end if;
6216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6209: end if;
6210: x_msg_count := FND_MSG_PUB.count_msg;
6211: x_return_status := FND_API.G_RET_STS_ERROR;
6212: when FND_API.G_EXC_UNEXPECTED_ERROR then
6213: if p_commit = FND_API.G_TRUE then
6214: rollback to update_latest_pub_links_pvt;
6215: end if;
6216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6217: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
6212: when FND_API.G_EXC_UNEXPECTED_ERROR then
6213: if p_commit = FND_API.G_TRUE then
6214: rollback to update_latest_pub_links_pvt;
6215: end if;
6216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6217: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
6218: p_procedure_name => 'UPDATE_LATEST_PUB_LINKS',
6219: p_error_text => SUBSTRB(SQLERRM,1,240));
6220: when OTHERS then
6217: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
6218: p_procedure_name => 'UPDATE_LATEST_PUB_LINKS',
6219: p_error_text => SUBSTRB(SQLERRM,1,240));
6220: when OTHERS then
6221: if p_commit = FND_API.G_TRUE then
6222: rollback to update_latest_pub_links_pvt;
6223: end if;
6224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6225: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
6220: when OTHERS then
6221: if p_commit = FND_API.G_TRUE then
6222: rollback to update_latest_pub_links_pvt;
6223: end if;
6224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6225: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
6226: p_procedure_name => 'UPDATE_LATEST_PUB_LINKS',
6227: p_error_text => SUBSTRB(SQLERRM,1,240));
6228: raise;
6229: END UPDATE_LATEST_PUB_LINKS;
6230:
6231:
6232: PROCEDURE COPY_STRUCTURE_VERSION
6233: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
6234: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
6235: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6236: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6237: ,p_debug_mode IN VARCHAR2 := 'N'
6230:
6231:
6232: PROCEDURE COPY_STRUCTURE_VERSION
6233: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
6234: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
6235: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6236: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6237: ,p_debug_mode IN VARCHAR2 := 'N'
6238: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
6231:
6232: PROCEDURE COPY_STRUCTURE_VERSION
6233: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
6234: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
6235: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6236: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6237: ,p_debug_mode IN VARCHAR2 := 'N'
6238: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
6239: ,p_structure_version_id IN NUMBER
6234: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
6235: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
6236: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6237: ,p_debug_mode IN VARCHAR2 := 'N'
6238: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
6239: ,p_structure_version_id IN NUMBER
6240: ,p_new_struct_ver_name IN VARCHAR2
6241: ,p_new_struct_ver_desc IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
6242: ,p_change_reason_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
6392: IF (p_debug_mode = 'Y') THEN
6393: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION begin');
6394: END IF;
6395:
6396: IF (p_commit = FND_API.G_TRUE) THEN
6397: savepoint copy_structure_version_pvt;
6398: END IF;
6399:
6400: -- Get structure version info
6438: x_msg_count := l_msg_count;
6439: IF x_msg_count = 1 THEN
6440: x_msg_data := l_msg_data;
6441: END IF;
6442: RAISE FND_API.G_EXC_ERROR;
6443: END IF;
6444:
6445: -- Get structure version attributes
6446: OPEN l_get_structure_ver_attr_csr(p_structure_version_id);
6451: l_structure_ver_attr_rec.change_reason_code := p_change_reason_code;
6452: END IF;
6453:
6454: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
6455: ( p_validate_only => FND_API.G_FALSE
6456: ,p_structure_version_id => l_new_struct_ver_id
6457: ,p_structure_version_name => p_new_struct_ver_name
6458: ,p_structure_version_desc => p_new_struct_ver_desc
6459: ,p_effective_date => l_structure_ver_attr_rec.effective_date
6479: x_msg_count := l_msg_count;
6480: IF x_msg_count = 1 THEN
6481: x_msg_data := l_msg_data;
6482: END IF;
6483: RAISE FND_API.G_EXC_ERROR;
6484: END IF;
6485:
6486: --Search for outgoing links for the structure version; create new Links
6487: /*
6500: WHERE ppst.proj_element_id = l_structure_ver_to_rec.proj_element_id
6501: AND pst.structure_type_id = ppst.structure_type_id;
6502:
6503: PA_RELATIONSHIP_PVT.Create_Relationship(
6504: p_init_msg_list => FND_API.G_FALSE
6505: ,p_commit => FND_API.G_FALSE
6506: ,p_debug_mode => p_debug_mode
6507: ,p_project_id_from => l_structure_ver_rec.project_id
6508: ,p_structure_id_from => l_structure_ver_rec.proj_element_id
6501: AND pst.structure_type_id = ppst.structure_type_id;
6502:
6503: PA_RELATIONSHIP_PVT.Create_Relationship(
6504: p_init_msg_list => FND_API.G_FALSE
6505: ,p_commit => FND_API.G_FALSE
6506: ,p_debug_mode => p_debug_mode
6507: ,p_project_id_from => l_structure_ver_rec.project_id
6508: ,p_structure_id_from => l_structure_ver_rec.proj_element_id
6509: ,p_structure_version_id_from => l_new_struct_ver_id
6539: WHERE ppst.proj_element_id = l_info_task_ver_rec.structure_id
6540: AND pst.structure_type_id = ppst.structure_type_id;
6541:
6542: PA_RELATIONSHIP_PVT.Create_Relationship(
6543: p_init_msg_list => FND_API.G_FALSE
6544: ,p_commit => FND_API.G_FALSE
6545: ,p_debug_mode => p_debug_mode
6546: ,p_project_id_from => l_structure_ver_rec.project_id
6547: ,p_structure_id_from => l_structure_ver_rec.proj_element_id
6540: AND pst.structure_type_id = ppst.structure_type_id;
6541:
6542: PA_RELATIONSHIP_PVT.Create_Relationship(
6543: p_init_msg_list => FND_API.G_FALSE
6544: ,p_commit => FND_API.G_FALSE
6545: ,p_debug_mode => p_debug_mode
6546: ,p_project_id_from => l_structure_ver_rec.project_id
6547: ,p_structure_id_from => l_structure_ver_rec.proj_element_id
6548: ,p_structure_version_id_from => l_new_struct_ver_id
6574: if x_msg_count = 1 then
6575: x_msg_data := l_msg_data;
6576: end if;
6577: CLOSE get_to_id;
6578: raise FND_API.G_EXC_ERROR;
6579: end if;
6580:
6581: END LOOP;
6582: CLOSE get_to_id;
6595: CLOSE l_get_ver_schedule_attr_csr;
6596:
6597: /*
6598: PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
6599: ( p_validate_only => FND_API.G_FALSE
6600: ,p_element_version_id => l_new_struct_ver_id
6601: ,p_calendar_id => l_ver_schedule_attr_rec.calendar_id
6602: ,p_scheduled_start_date => l_ver_schedule_attr_rec.scheduled_start_date
6603: ,p_scheduled_end_date => l_ver_schedule_attr_rec.scheduled_finish_date
6680: x_msg_count := l_msg_count;
6681: IF x_msg_count = 1 THEN
6682: x_msg_data := l_msg_data;
6683: END IF;
6684: RAISE FND_API.G_EXC_ERROR;
6685: END IF;
6686:
6687: ELSIF l_structure_type in ('FINANCIAL') then
6688: -- There can only be one working version any any time for a financial structure
6691: if l_check_working_versions_csr%FOUND then
6692: CLOSE l_check_working_versions_csr;
6693: PA_UTILS.ADD_MESSAGE('PA','PA_PS_WORKING_VER_EXISTS');
6694: x_msg_data := 'PA_PS_WORKING_VER_EXISTS';
6695: RAISE FND_API.G_EXC_ERROR;
6696: end if;
6697: CLOSE l_check_working_versions_csr;
6698: end if;
6699:
6749: FETCH get_cur_task_ver_weighting INTO l_weighting;
6750: CLOSE get_cur_task_ver_weighting;
6751:
6752: PA_TASK_PVT1.CREATE_TASK_VERSION
6753: ( p_validate_only => FND_API.G_FALSE
6754: ,p_validation_level => 0
6755: ,p_ref_task_version_id => l_ref_task_ver_id
6756: ,p_peer_or_sub => l_peer_or_sub
6757: ,p_task_id => l_task_versions_rec.proj_element_id
6776: x_msg_count := l_msg_count;
6777: IF x_msg_count = 1 THEN
6778: x_msg_data := l_msg_data;
6779: END IF;
6780: RAISE FND_API.G_EXC_ERROR;
6781: END IF;
6782:
6783: if l_structure_type = 'WORKPLAN' then
6784: -- Get task version schedule attributes
6790: pa_debug.debug('Before Create Schedule Version');
6791: END IF;
6792: -- xxlu added DFF attributes
6793: /* PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
6794: ( p_validate_only => FND_API.G_FALSE
6795: ,p_element_version_id => l_task_version_id
6796: ,p_calendar_id => l_ver_schedule_attr_rec.calendar_id
6797: ,p_scheduled_start_date => l_ver_schedule_attr_rec.scheduled_start_date
6798: ,p_scheduled_end_date => l_ver_schedule_attr_rec.scheduled_finish_date
6891: x_msg_count := l_msg_count;
6892: IF x_msg_count = 1 THEN
6893: x_msg_data := l_msg_data;
6894: END IF;
6895: RAISE FND_API.G_EXC_ERROR;
6896: END IF;
6897: end if;
6898:
6899: /* hsiu: bug 2800553: commented for performance improvement
6935: FETCH l_get_structure_type_csr INTO l_structure_type1;
6936: CLOSE l_get_structure_type_csr;
6937:
6938: PA_RELATIONSHIP_PVT.Create_Relationship(
6939: p_init_msg_list => FND_API.G_FALSE
6940: ,p_commit => FND_API.G_FALSE
6941: ,p_debug_mode => p_debug_mode
6942: ,p_project_id_from => l_structure_ver_rec.project_id
6943: ,p_structure_id_from => l_structure_ver_rec.proj_element_id
6936: CLOSE l_get_structure_type_csr;
6937:
6938: PA_RELATIONSHIP_PVT.Create_Relationship(
6939: p_init_msg_list => FND_API.G_FALSE
6940: ,p_commit => FND_API.G_FALSE
6941: ,p_debug_mode => p_debug_mode
6942: ,p_project_id_from => l_structure_ver_rec.project_id
6943: ,p_structure_id_from => l_structure_ver_rec.proj_element_id
6944: ,p_structure_version_id_from => l_new_struct_ver_id
6994: FETCH l_get_structure_type_csr INTO l_structure_type1;
6995: CLOSE l_get_structure_type_csr;
6996:
6997: PA_RELATIONSHIP_PVT.Create_Relationship(
6998: p_init_msg_list => FND_API.G_FALSE
6999: ,p_commit => FND_API.G_FALSE
7000: ,p_debug_mode => p_debug_mode
7001: ,p_project_id_from => l_structure_ver_rec.project_id
7002: ,p_structure_id_from => l_structure_ver_rec.proj_element_id
6995: CLOSE l_get_structure_type_csr;
6996:
6997: PA_RELATIONSHIP_PVT.Create_Relationship(
6998: p_init_msg_list => FND_API.G_FALSE
6999: ,p_commit => FND_API.G_FALSE
7000: ,p_debug_mode => p_debug_mode
7001: ,p_project_id_from => l_structure_ver_rec.project_id
7002: ,p_structure_id_from => l_structure_ver_rec.proj_element_id
7003: ,p_structure_version_id_from => l_new_struct_ver_id
7029: if x_msg_count = 1 then
7030: x_msg_data := l_msg_data;
7031: end if;
7032: CLOSE get_to_id;
7033: raise FND_API.G_EXC_ERROR;
7034: end if;
7035: END LOOP;
7036: CLOSE get_to_id;
7037: */
7042:
7043: CLOSE l_get_task_versions_csr;
7044:
7045: x_new_struct_ver_id := l_new_struct_ver_id;
7046: x_return_status := FND_API.G_RET_STS_SUCCESS;
7047:
7048: IF (p_commit = FND_API.G_TRUE) THEN
7049: COMMIT;
7050: END IF;
7044:
7045: x_new_struct_ver_id := l_new_struct_ver_id;
7046: x_return_status := FND_API.G_RET_STS_SUCCESS;
7047:
7048: IF (p_commit = FND_API.G_TRUE) THEN
7049: COMMIT;
7050: END IF;
7051:
7052: IF (p_debug_mode = 'Y') THEN
7053: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION END');
7054: END IF;
7055:
7056: EXCEPTION
7057: when FND_API.G_EXC_ERROR then
7058: if p_commit = FND_API.G_TRUE then
7059: rollback to copy_structure_version_pvt;
7060: end if;
7061: x_return_status := FND_API.G_RET_STS_ERROR;
7054: END IF;
7055:
7056: EXCEPTION
7057: when FND_API.G_EXC_ERROR then
7058: if p_commit = FND_API.G_TRUE then
7059: rollback to copy_structure_version_pvt;
7060: end if;
7061: x_return_status := FND_API.G_RET_STS_ERROR;
7062: when FND_API.G_EXC_UNEXPECTED_ERROR then
7057: when FND_API.G_EXC_ERROR then
7058: if p_commit = FND_API.G_TRUE then
7059: rollback to copy_structure_version_pvt;
7060: end if;
7061: x_return_status := FND_API.G_RET_STS_ERROR;
7062: when FND_API.G_EXC_UNEXPECTED_ERROR then
7063: if p_commit = FND_API.G_TRUE then
7064: rollback to copy_structure_version_pvt;
7065: end if;
7058: if p_commit = FND_API.G_TRUE then
7059: rollback to copy_structure_version_pvt;
7060: end if;
7061: x_return_status := FND_API.G_RET_STS_ERROR;
7062: when FND_API.G_EXC_UNEXPECTED_ERROR then
7063: if p_commit = FND_API.G_TRUE then
7064: rollback to copy_structure_version_pvt;
7065: end if;
7066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7059: rollback to copy_structure_version_pvt;
7060: end if;
7061: x_return_status := FND_API.G_RET_STS_ERROR;
7062: when FND_API.G_EXC_UNEXPECTED_ERROR then
7063: if p_commit = FND_API.G_TRUE then
7064: rollback to copy_structure_version_pvt;
7065: end if;
7066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7067: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
7062: when FND_API.G_EXC_UNEXPECTED_ERROR then
7063: if p_commit = FND_API.G_TRUE then
7064: rollback to copy_structure_version_pvt;
7065: end if;
7066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7067: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
7068: p_procedure_name => 'COPY_STRUCTURE_VERSION',
7069: p_error_text => SUBSTRB(SQLERRM,1,240));
7070: when OTHERS then
7067: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
7068: p_procedure_name => 'COPY_STRUCTURE_VERSION',
7069: p_error_text => SUBSTRB(SQLERRM,1,240));
7070: when OTHERS then
7071: if p_commit = FND_API.G_TRUE then
7072: rollback to copy_structure_version_pvt;
7073: end if;
7074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7075: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
7070: when OTHERS then
7071: if p_commit = FND_API.G_TRUE then
7072: rollback to copy_structure_version_pvt;
7073: end if;
7074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7075: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
7076: p_procedure_name => 'COPY_STRUCTURE_VERSION',
7077: p_error_text => SUBSTRB(SQLERRM,1,240));
7078: raise;
7079: END COPY_STRUCTURE_VERSION;
7080:
7081:
7082: PROCEDURE COPY_STRUCTURE
7083: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
7084: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
7085: ,p_validation_level IN VARCHAR2 := 100
7086: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7087: ,p_debug_mode IN VARCHAR2 := 'N'
7080:
7081:
7082: PROCEDURE COPY_STRUCTURE
7083: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
7084: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
7085: ,p_validation_level IN VARCHAR2 := 100
7086: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7087: ,p_debug_mode IN VARCHAR2 := 'N'
7088: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7427: IF (p_debug_mode = 'Y') THEN
7428: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE begin');
7429: END IF;
7430:
7431: IF (p_commit = FND_API.G_TRUE) THEN
7432: savepoint copy_structure_pvt;
7433: END IF;
7434:
7435: -- Check if source and destination project are the same
7433: END IF;
7434:
7435: -- Check if source and destination project are the same
7436: if p_src_project_id = p_dest_project_id then
7437: x_return_status := FND_API.G_RET_STS_SUCCESS;
7438: return;
7439: end if;
7440:
7441: --Check if the destination project is a template
7485: if l_get_structure_csr%NOTFOUND then
7486: CLOSE l_get_structure_csr;
7487: PA_UTILS.ADD_MESSAGE('PA','PA_PS_STRUC_NOT_EXIST');
7488: l_msg_data := 'PA_PS_STRUC_NOT_EXIST';
7489: RAISE FND_API.G_EXC_ERROR;
7490: end if;
7491:
7492: CLOSE l_get_structure_csr;
7493: */
7662: --Commented by hsiu
7663: -- IF (l_dest_template_flag = 'Y' AND l_structure_type = 'WORKPLAN') THEN
7664: --Create new structure
7665: -- PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
7666: -- ( p_validate_only => FND_API.G_FALSE
7667: -- ,p_project_id => p_dest_project_id
7668: -- ,p_structure_number => l_name
7669: -- ,p_structure_name => l_name
7670: -- ,p_calling_flag => l_structure_type
7679: -- x_msg_count := l_msg_count;
7680: -- IF x_msg_count = 1 THEN
7681: -- x_msg_data := l_msg_data;
7682: -- END IF;
7683: -- RAISE FND_API.G_EXC_ERROR;
7684: -- END IF;
7685:
7686: -- IF (p_debug_mode = 'Y') THEN
7687: -- pa_debug.debug('create structure version');
7686: -- IF (p_debug_mode = 'Y') THEN
7687: -- pa_debug.debug('create structure version');
7688: -- END IF;
7689: -- PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
7690: -- ( p_validate_only => FND_API.G_FALSE
7691: -- ,p_structure_id => l_structure_id
7692: -- ,x_structure_version_id => l_new_structure_version_id
7693: -- ,x_return_status => l_return_status
7694: -- ,x_msg_count => l_msg_count
7700: -- x_msg_count := l_msg_count;
7701: -- IF x_msg_count = 1 THEN
7702: -- x_msg_data := l_msg_data;
7703: -- END IF;
7704: -- RAISE FND_API.G_EXC_ERROR;
7705: -- END IF;
7706:
7707: -- IF (p_debug_mode = 'Y') THEN
7708: -- pa_debug.debug('create structure version attr');
7707: -- IF (p_debug_mode = 'Y') THEN
7708: -- pa_debug.debug('create structure version attr');
7709: -- END IF;
7710: -- PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
7711: -- ( p_validate_only => FND_API.G_FALSE
7712: -- ,p_structure_version_id => l_new_structure_version_id
7713: -- ,p_structure_version_name => l_name
7714: -- ,p_structure_version_desc => NULL
7715: -- ,p_effective_date => NULL
7729: -- x_msg_count := l_msg_count;
7730: -- IF x_msg_count = 1 THEN
7731: -- x_msg_data := l_msg_data;
7732: -- END IF;
7733: -- RAISE FND_API.G_EXC_ERROR;
7734: -- END IF;
7735:
7736: -- IF (p_debug_mode = 'Y') THEN
7737: -- pa_debug.debug('create schedule version');
7736: -- IF (p_debug_mode = 'Y') THEN
7737: -- pa_debug.debug('create schedule version');
7738: -- END IF;
7739: -- PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
7740: -- ( p_validate_only => FND_API.G_FALSE
7741: -- ,p_element_version_id => l_new_structure_version_id
7742: -- ,p_scheduled_start_date => SYSDATE
7743: -- ,p_scheduled_end_date => SYSDATE
7744: -- ,x_pev_schedule_id => l_pev_schedule_id
7752: -- x_msg_count := l_msg_count;
7753: -- IF x_msg_count = 1 THEN
7754: -- x_msg_data := l_msg_data;
7755: -- END IF;
7756: -- RAISE FND_API.G_EXC_ERROR;
7757: -- END IF;
7758:
7759: -- ELSE
7760: --copy from
7760: --copy from
7761: --end commented code by hsiu
7762:
7763: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
7764: ( p_validate_only => FND_API.G_FALSE
7765: ,p_project_id => p_dest_project_id
7766: ,p_structure_number => l_name
7767: ,p_structure_name => l_name
7768: ,p_calling_flag => l_structure_type
7816: x_msg_count := l_msg_count;
7817: IF x_msg_count = 1 THEN
7818: x_msg_data := l_msg_data;
7819: END IF;
7820: RAISE FND_API.G_EXC_ERROR;
7821: END IF;
7822:
7823:
7824: /*
7829: EXIT WHEN l_get_tasks_csr%NOTFOUND;
7830:
7831: -- CREATE_TASK
7832: PA_TASK_PUB1.CREATE_TASK
7833: ( p_validate_only => FND_API.G_FALSE
7834: ,p_object_type => 'PA_TASKS'
7835: ,p_project_id => p_dest_project_id
7836: ,p_structure_id => l_structure_id
7837: ,p_task_number => l_tasks_rec.element_number
7850: x_msg_count := l_msg_count;
7851: IF x_msg_count = 1 THEN
7852: x_msg_data := l_msg_data;
7853: END IF;
7854: RAISE FND_API.G_EXC_ERROR;
7855: END IF;
7856:
7857: -- Store the newly created task ID
7858: l_task_id_ref(l_tasks_rec.proj_element_id) := l_task_id;
7927: x_msg_count := l_msg_count;
7928: IF x_msg_count = 1 THEN
7929: x_msg_data := l_msg_data;
7930: END IF;
7931: RAISE FND_API.G_EXC_ERROR;
7932: END IF;
7933:
7934: --Structure version attributes creates after tasks are created
7935:
7970: l_struc_scheduled_start_date := l_scheduled_start_date;
7971: l_struc_scheduled_finish_date := l_scheduled_finish_date;
7972:
7973: PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
7974: ( p_validate_only => FND_API.G_FALSE
7975: ,p_element_version_id => l_new_structure_version_id
7976: ,p_calendar_id => l_ver_schedule_attr_rec.calendar_id
7977: ,p_scheduled_start_date => l_scheduled_start_date
7978: ,p_scheduled_end_date => l_scheduled_finish_date
8002: x_msg_count := l_msg_count;
8003: IF x_msg_count = 1 THEN
8004: x_msg_data := l_msg_data;
8005: END IF;
8006: RAISE FND_API.G_EXC_ERROR;
8007: END IF;
8008:
8009: end if;
8010:
8172: END IF;
8173: --end task version status changes
8174:
8175: PA_TASK_PUB1.CREATE_TASK_VERSION
8176: ( p_validate_only => FND_API.G_FALSE
8177: ,p_ref_task_version_id => l_ref_task_ver_id
8178: ,p_peer_or_sub => l_peer_or_sub
8179: ,p_task_id => l_task_id--l_task_id_ref(l_task_versions_rec.proj_element_id)
8180: ,p_WEIGHTING_PERCENTAGE => l_weighting_percentage
8192: x_msg_count := l_msg_count;
8193: IF x_msg_count = 1 THEN
8194: x_msg_data := l_msg_data;
8195: END IF;
8196: RAISE FND_API.G_EXC_ERROR;
8197: END IF;
8198:
8199: if (l_structure_type = 'WORKPLAN') or (l_structure_type IS NULL) THEN
8200: -- Get task version schedule attributes
8217: -- end calculate scheduled start and finish dates
8218:
8219: -- xxlu added DFF attributes
8220: PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
8221: ( p_validate_only => FND_API.G_FALSE
8222: ,p_element_version_id => l_task_version_id
8223: ,p_calendar_id => l_ver_schedule_attr_rec.calendar_id
8224: -- anlee
8225: -- Dates changes
8269: x_msg_count := l_msg_count;
8270: IF x_msg_count = 1 THEN
8271: x_msg_data := l_msg_data;
8272: END IF;
8273: RAISE FND_API.G_EXC_ERROR;
8274: END IF;
8275: end if;
8276:
8277: l_last_wbs_level := l_task_versions_rec.wbs_level;
8292: from pa_tasks a
8293: where a.task_id = l_task_delete;
8294:
8295: PA_TASKS_MAINT_PUB.DELETE_TASK(
8296: p_init_msg_list => FND_API.G_FALSE
8297: ,p_commit => FND_API.G_FALSE
8298: ,p_project_id => p_dest_project_id
8299: ,p_task_id => l_task_delete
8300: ,p_record_version_number => l_task_delete_rvn
8293: where a.task_id = l_task_delete;
8294:
8295: PA_TASKS_MAINT_PUB.DELETE_TASK(
8296: p_init_msg_list => FND_API.G_FALSE
8297: ,p_commit => FND_API.G_FALSE
8298: ,p_project_id => p_dest_project_id
8299: ,p_task_id => l_task_delete
8300: ,p_record_version_number => l_task_delete_rvn
8301: ,p_wbs_record_version_number => l_task_delete_wbs_rvn
8308: x_msg_count := l_msg_count;
8309: IF x_msg_count = 1 THEN
8310: x_msg_data := l_msg_data;
8311: END IF;
8312: RAISE FND_API.G_EXC_ERROR;
8313: END IF;
8314:
8315: END LOOP;
8316: CLOSE l_linking_tasks_csr;
8344: END IF;
8345:
8346: --moved here for baseline purpose
8347: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
8348: ( p_validate_only => FND_API.G_FALSE
8349: ,p_structure_version_id => l_new_structure_version_id
8350: -- ,p_structure_version_name => l_name
8351: --hsiu
8352: --fix bug 2640307
8371: x_msg_count := l_msg_count;
8372: IF x_msg_count = 1 THEN
8373: x_msg_data := l_msg_data;
8374: END IF;
8375: RAISE FND_API.G_EXC_ERROR;
8376: END IF;
8377:
8378: --If status is published and latest version, or template
8379: --update project level schedule dates
8382: FETCH get_proj_rec_ver_number into l_proj_record_ver_number;
8383: CLOSE get_proj_rec_ver_number;
8384:
8385: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES(
8386: p_validate_only => FND_API.G_FALSE
8387: ,p_project_id => p_dest_project_id
8388: ,p_date_type => 'SCHEDULED'
8389: ,p_start_date => l_struc_scheduled_start_date
8390: ,p_finish_date => l_struc_scheduled_finish_date
8398: x_msg_count := l_msg_count;
8399: IF x_msg_count = 1 THEN
8400: x_msg_data := l_msg_data;
8401: END IF;
8402: RAISE FND_API.G_EXC_ERROR;
8403: END IF;
8404: END IF;
8405:
8406: END LOOP;
8414: -- HSiu: commented old code
8415: -- end if;
8416:
8417:
8418: x_return_status := FND_API.G_RET_STS_SUCCESS;
8419:
8420: IF (p_commit = FND_API.G_TRUE) THEN
8421: COMMIT;
8422: END IF;
8416:
8417:
8418: x_return_status := FND_API.G_RET_STS_SUCCESS;
8419:
8420: IF (p_commit = FND_API.G_TRUE) THEN
8421: COMMIT;
8422: END IF;
8423:
8424: IF (p_debug_mode = 'Y') THEN
8425: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE END');
8426: END IF;
8427:
8428: EXCEPTION
8429: when FND_API.G_EXC_ERROR then
8430: if p_commit = FND_API.G_TRUE then
8431: rollback to copy_structure_pvt;
8432: end if;
8433: x_return_status := FND_API.G_RET_STS_ERROR;
8426: END IF;
8427:
8428: EXCEPTION
8429: when FND_API.G_EXC_ERROR then
8430: if p_commit = FND_API.G_TRUE then
8431: rollback to copy_structure_pvt;
8432: end if;
8433: x_return_status := FND_API.G_RET_STS_ERROR;
8434: when FND_API.G_EXC_UNEXPECTED_ERROR then
8429: when FND_API.G_EXC_ERROR then
8430: if p_commit = FND_API.G_TRUE then
8431: rollback to copy_structure_pvt;
8432: end if;
8433: x_return_status := FND_API.G_RET_STS_ERROR;
8434: when FND_API.G_EXC_UNEXPECTED_ERROR then
8435: if p_commit = FND_API.G_TRUE then
8436: rollback to copy_structure_pvt;
8437: end if;
8430: if p_commit = FND_API.G_TRUE then
8431: rollback to copy_structure_pvt;
8432: end if;
8433: x_return_status := FND_API.G_RET_STS_ERROR;
8434: when FND_API.G_EXC_UNEXPECTED_ERROR then
8435: if p_commit = FND_API.G_TRUE then
8436: rollback to copy_structure_pvt;
8437: end if;
8438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8431: rollback to copy_structure_pvt;
8432: end if;
8433: x_return_status := FND_API.G_RET_STS_ERROR;
8434: when FND_API.G_EXC_UNEXPECTED_ERROR then
8435: if p_commit = FND_API.G_TRUE then
8436: rollback to copy_structure_pvt;
8437: end if;
8438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8439: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8434: when FND_API.G_EXC_UNEXPECTED_ERROR then
8435: if p_commit = FND_API.G_TRUE then
8436: rollback to copy_structure_pvt;
8437: end if;
8438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8439: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8440: p_procedure_name => 'COPY_STRUCTURE',
8441: p_error_text => SUBSTRB(SQLERRM,1,240));
8442: when OTHERS then
8439: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8440: p_procedure_name => 'COPY_STRUCTURE',
8441: p_error_text => SUBSTRB(SQLERRM,1,240));
8442: when OTHERS then
8443: if p_commit = FND_API.G_TRUE then
8444: rollback to copy_structure_pvt;
8445: end if;
8446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8447: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8442: when OTHERS then
8443: if p_commit = FND_API.G_TRUE then
8444: rollback to copy_structure_pvt;
8445: end if;
8446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8447: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8448: p_procedure_name => 'COPY_STRUCTURE',
8449: p_error_text => SUBSTRB(SQLERRM,1,240));
8450: raise;
8452:
8453: -- Added new api below to re-order the display sequence and wbs numbering
8454: -- Added for Huawei enhancement - bug 13923366 by skkoppul
8455: PROCEDURE REFRESH_STRUCTURE_VERSION
8456: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
8457: ,p_project_id IN NUMBER
8458: ,p_structure_version_id IN NUMBER
8459: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
8460: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
8559: l_msg_count NUMBER;
8560: l_msg_data VARCHAR2(2000);
8561: BEGIN
8562:
8563: IF (p_commit = FND_API.G_TRUE) THEN
8564: savepoint refresh_structure_ver;
8565: END IF;
8566:
8567: IF p_project_id IS NULL AND p_structure_version_id IS NOT NULL THEN
8573: l_project_id := p_project_id;
8574: ELSE
8575: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8576: p_msg_name => 'PA_INVALID_STR_VERSION_ID');
8577: RAISE FND_API.G_EXC_ERROR;
8578: END IF;
8579: /* Added below code to improve performance */
8580: delete PA_PROJ_ELEMENTS_TMP;
8581:
8659: EXIT WHEN c1%NOTFOUND;
8660: END LOOP;
8661: CLOSE c1;
8662:
8663: x_return_status := FND_API.G_RET_STS_SUCCESS;
8664:
8665: EXCEPTION
8666: WHEN FND_API.G_EXC_ERROR THEN
8667: x_return_status := FND_API.G_RET_STS_ERROR ;
8662:
8663: x_return_status := FND_API.G_RET_STS_SUCCESS;
8664:
8665: EXCEPTION
8666: WHEN FND_API.G_EXC_ERROR THEN
8667: x_return_status := FND_API.G_RET_STS_ERROR ;
8668: if p_commit = FND_API.G_TRUE then
8669: ROLLBACK TO refresh_structure_ver;
8670: end if;
8663: x_return_status := FND_API.G_RET_STS_SUCCESS;
8664:
8665: EXCEPTION
8666: WHEN FND_API.G_EXC_ERROR THEN
8667: x_return_status := FND_API.G_RET_STS_ERROR ;
8668: if p_commit = FND_API.G_TRUE then
8669: ROLLBACK TO refresh_structure_ver;
8670: end if;
8671:
8664:
8665: EXCEPTION
8666: WHEN FND_API.G_EXC_ERROR THEN
8667: x_return_status := FND_API.G_RET_STS_ERROR ;
8668: if p_commit = FND_API.G_TRUE then
8669: ROLLBACK TO refresh_structure_ver;
8670: end if;
8671:
8672: FND_MSG_PUB.Count_And_Get
8672: FND_MSG_PUB.Count_And_Get
8673: ( p_count => x_msg_count ,
8674: p_data => x_msg_data );
8675: when OTHERS then
8676: if p_commit = FND_API.G_TRUE then
8677: rollback to refresh_structure_ver;
8678: end if;
8679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8680: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8675: when OTHERS then
8676: if p_commit = FND_API.G_TRUE then
8677: rollback to refresh_structure_ver;
8678: end if;
8679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8680: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8681: p_procedure_name => 'REFRESH_STRUCTURE_VERSION',
8682: p_error_text => SUBSTRB(SQLERRM,1,240));
8683: raise;
8683: raise;
8684: END REFRESH_STRUCTURE_VERSION;
8685:
8686: PROCEDURE BASELINE_STRUCTURE_VERSION
8687: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
8688: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8689: ,p_validation_level IN VARCHAR2 := 100
8690: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8691: ,p_debug_mode IN VARCHAR2 := 'N'
8684: END REFRESH_STRUCTURE_VERSION;
8685:
8686: PROCEDURE BASELINE_STRUCTURE_VERSION
8687: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
8688: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8689: ,p_validation_level IN VARCHAR2 := 100
8690: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8691: ,p_debug_mode IN VARCHAR2 := 'N'
8692: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8785: IF (p_debug_mode = 'Y') THEN
8786: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION BEGIN');
8787: END IF;
8788:
8789: IF (p_commit = FND_API.G_TRUE) THEN
8790: savepoint baseline_structure_pvt;
8791: END IF;
8792:
8793: SELECT PROJECT_ID
8837: x_msg_count := l_msg_count;
8838: IF x_msg_count = 1 THEN
8839: x_msg_data := l_msg_data;
8840: END IF;
8841: RAISE FND_API.G_EXC_ERROR;
8842: END IF;
8843: */
8844: /* Commented for bug 13836957
8845: UPDATE PA_PROJ_ELEMENTS
8879: FETCH c2 INTO l_scheduled_start_date,l_scheduled_finish_date,l_proj_record_ver_number; -- modified for bug 13836957
8880: CLOSE c2;
8881:
8882: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
8883: p_validate_only => FND_API.G_FALSE
8884: ,p_project_id => l_project_id
8885: ,p_date_type => 'BASELINE'
8886: ,p_start_date => l_scheduled_start_date
8887: ,p_finish_date => l_scheduled_finish_date
8896: x_msg_count := l_msg_count;
8897: IF x_msg_count = 1 THEN
8898: x_msg_data := l_msg_data;
8899: END IF;
8900: RAISE FND_API.G_EXC_ERROR;
8901: END IF;
8902: -- End of changes
8903:
8904: IF (p_debug_mode = 'Y') THEN
8904: IF (p_debug_mode = 'Y') THEN
8905: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION end');
8906: END IF;
8907:
8908: x_return_status := FND_API.G_RET_STS_SUCCESS;
8909:
8910: EXCEPTION
8911: when FND_API.G_EXC_ERROR then
8912: if p_commit = FND_API.G_TRUE then
8907:
8908: x_return_status := FND_API.G_RET_STS_SUCCESS;
8909:
8910: EXCEPTION
8911: when FND_API.G_EXC_ERROR then
8912: if p_commit = FND_API.G_TRUE then
8913: rollback to baseline_structure_pvt;
8914: end if;
8915: x_return_status := FND_API.G_RET_STS_ERROR;
8908: x_return_status := FND_API.G_RET_STS_SUCCESS;
8909:
8910: EXCEPTION
8911: when FND_API.G_EXC_ERROR then
8912: if p_commit = FND_API.G_TRUE then
8913: rollback to baseline_structure_pvt;
8914: end if;
8915: x_return_status := FND_API.G_RET_STS_ERROR;
8916: when FND_API.G_EXC_UNEXPECTED_ERROR then
8911: when FND_API.G_EXC_ERROR then
8912: if p_commit = FND_API.G_TRUE then
8913: rollback to baseline_structure_pvt;
8914: end if;
8915: x_return_status := FND_API.G_RET_STS_ERROR;
8916: when FND_API.G_EXC_UNEXPECTED_ERROR then
8917: if p_commit = FND_API.G_TRUE then
8918: rollback to baseline_structure_pvt;
8919: end if;
8912: if p_commit = FND_API.G_TRUE then
8913: rollback to baseline_structure_pvt;
8914: end if;
8915: x_return_status := FND_API.G_RET_STS_ERROR;
8916: when FND_API.G_EXC_UNEXPECTED_ERROR then
8917: if p_commit = FND_API.G_TRUE then
8918: rollback to baseline_structure_pvt;
8919: end if;
8920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8913: rollback to baseline_structure_pvt;
8914: end if;
8915: x_return_status := FND_API.G_RET_STS_ERROR;
8916: when FND_API.G_EXC_UNEXPECTED_ERROR then
8917: if p_commit = FND_API.G_TRUE then
8918: rollback to baseline_structure_pvt;
8919: end if;
8920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8921: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8916: when FND_API.G_EXC_UNEXPECTED_ERROR then
8917: if p_commit = FND_API.G_TRUE then
8918: rollback to baseline_structure_pvt;
8919: end if;
8920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8921: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8922: p_procedure_name => 'BASELINE_STRUCTURE_VERSION',
8923: p_error_text => SUBSTRB(SQLERRM,1,240));
8924: when OTHERS then
8921: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8922: p_procedure_name => 'BASELINE_STRUCTURE_VERSION',
8923: p_error_text => SUBSTRB(SQLERRM,1,240));
8924: when OTHERS then
8925: if p_commit = FND_API.G_TRUE then
8926: rollback to baseline_structure_pvt;
8927: end if;
8928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8929: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8924: when OTHERS then
8925: if p_commit = FND_API.G_TRUE then
8926: rollback to baseline_structure_pvt;
8927: end if;
8928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8929: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
8930: p_procedure_name => 'BASELINE_STRUCTURE_VERSION',
8931: p_error_text => SUBSTRB(SQLERRM,1,240));
8932: raise;
8933: END BASELINE_STRUCTURE_VERSION;
8934:
8935:
8936: PROCEDURE SPLIT_WORKPLAN
8937: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
8938: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8939: ,p_validation_level IN VARCHAR2 := 100
8940: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8941: ,p_debug_mode IN VARCHAR2 := 'N'
8934:
8935:
8936: PROCEDURE SPLIT_WORKPLAN
8937: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
8938: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
8939: ,p_validation_level IN VARCHAR2 := 100
8940: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
8941: ,p_debug_mode IN VARCHAR2 := 'N'
8942: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8986: IF (p_debug_mode = 'Y') THEN
8987: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.SPLIT_WORKPLAN BEGIN');
8988: END IF;
8989:
8990: IF (p_commit = FND_API.G_TRUE) THEN
8991: savepoint split_workplan;
8992: END IF;
8993:
8994: IF (p_debug_mode = 'Y') THEN
9004: IF PA_PROJECT_STRUCTURE_UTILS.CHECK_PUBLISHED_VER_EXISTS(p_project_id, l_structure_id) = 'Y' THEN
9005: --cannot split if publish version exists.
9006: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANNOT_SPLIT_STRUCT');
9007: x_msg_data := 'PA_PS_CANNOT_SPLIT_STRUCT';
9008: RAISE FND_API.G_EXC_ERROR;
9009: END IF;
9010:
9011: --delete workplan structure type
9012: OPEN sel_struct_type(l_structure_id);
9040: x_msg_count := l_msg_count;
9041: IF x_msg_count = 1 THEN
9042: x_msg_data := l_msg_data;
9043: END IF;
9044: RAISE FND_API.G_EXC_ERROR;
9045: END IF;
9046:
9047: --delete schedule info for structure versions and tasks
9048: delete from pa_proj_elem_ver_schedule
9065: x_msg_count := l_msg_count;
9066: IF x_msg_count = 1 THEN
9067: x_msg_data := l_msg_data;
9068: END IF;
9069: RAISE FND_API.G_EXC_ERROR;
9070: END IF;
9071:
9072: --create_structure_version_attr
9073: PA_PROJECT_STRUCTURE_PUB1.create_structure_version_attr(
9086: x_msg_count := l_msg_count;
9087: IF x_msg_count = 1 THEN
9088: x_msg_data := l_msg_data;
9089: END IF;
9090: RAISE FND_API.G_EXC_ERROR;
9091: END IF;
9092:
9093: --create_schedule_version
9094: PA_TASK_PUB1.Create_Schedule_Version(
9107: x_msg_count := l_msg_count;
9108: IF x_msg_count = 1 THEN
9109: x_msg_data := l_msg_data;
9110: END IF;
9111: RAISE FND_API.G_EXC_ERROR;
9112: END IF;
9113:
9114: x_return_status := FND_API.G_RET_STS_SUCCESS;
9115:
9110: END IF;
9111: RAISE FND_API.G_EXC_ERROR;
9112: END IF;
9113:
9114: x_return_status := FND_API.G_RET_STS_SUCCESS;
9115:
9116: IF (p_debug_mode = 'Y') THEN
9117: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.SPLIT_WORKPLAN end');
9118: END IF;
9117: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.SPLIT_WORKPLAN end');
9118: END IF;
9119:
9120: EXCEPTION
9121: when FND_API.G_EXC_ERROR then
9122: if p_commit = FND_API.G_TRUE then
9123: rollback to split_workplan;
9124: end if;
9125: x_return_status := FND_API.G_RET_STS_ERROR;
9118: END IF;
9119:
9120: EXCEPTION
9121: when FND_API.G_EXC_ERROR then
9122: if p_commit = FND_API.G_TRUE then
9123: rollback to split_workplan;
9124: end if;
9125: x_return_status := FND_API.G_RET_STS_ERROR;
9126: when FND_API.G_EXC_UNEXPECTED_ERROR then
9121: when FND_API.G_EXC_ERROR then
9122: if p_commit = FND_API.G_TRUE then
9123: rollback to split_workplan;
9124: end if;
9125: x_return_status := FND_API.G_RET_STS_ERROR;
9126: when FND_API.G_EXC_UNEXPECTED_ERROR then
9127: if p_commit = FND_API.G_TRUE then
9128: rollback to split_workplan;
9129: end if;
9122: if p_commit = FND_API.G_TRUE then
9123: rollback to split_workplan;
9124: end if;
9125: x_return_status := FND_API.G_RET_STS_ERROR;
9126: when FND_API.G_EXC_UNEXPECTED_ERROR then
9127: if p_commit = FND_API.G_TRUE then
9128: rollback to split_workplan;
9129: end if;
9130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9123: rollback to split_workplan;
9124: end if;
9125: x_return_status := FND_API.G_RET_STS_ERROR;
9126: when FND_API.G_EXC_UNEXPECTED_ERROR then
9127: if p_commit = FND_API.G_TRUE then
9128: rollback to split_workplan;
9129: end if;
9130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9131: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9126: when FND_API.G_EXC_UNEXPECTED_ERROR then
9127: if p_commit = FND_API.G_TRUE then
9128: rollback to split_workplan;
9129: end if;
9130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9131: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9132: p_procedure_name => 'SPLIT_WORKPLAN',
9133: p_error_text => SUBSTRB(SQLERRM,1,240));
9134: when OTHERS then
9131: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9132: p_procedure_name => 'SPLIT_WORKPLAN',
9133: p_error_text => SUBSTRB(SQLERRM,1,240));
9134: when OTHERS then
9135: if p_commit = FND_API.G_TRUE then
9136: rollback to split_workplan;
9137: end if;
9138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9139: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9134: when OTHERS then
9135: if p_commit = FND_API.G_TRUE then
9136: rollback to split_workplan;
9137: end if;
9138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9139: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9140: p_procedure_name => 'SPLIT_WORKPLAN',
9141: p_error_text => SUBSTRB(SQLERRM,1,240));
9142: raise;
9145:
9146: procedure SUBMIT_WORKPLAN
9147: (
9148: p_api_version IN NUMBER := 1.0
9149: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9150: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9151: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9152: ,p_validation_level IN VARCHAR2 := 100
9153: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9146: procedure SUBMIT_WORKPLAN
9147: (
9148: p_api_version IN NUMBER := 1.0
9149: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9150: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9151: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9152: ,p_validation_level IN VARCHAR2 := 100
9153: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9154: ,p_debug_mode IN VARCHAR2 := 'N'
9147: (
9148: p_api_version IN NUMBER := 1.0
9149: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9150: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9151: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9152: ,p_validation_level IN VARCHAR2 := 100
9153: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9154: ,p_debug_mode IN VARCHAR2 := 'N'
9155: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9225:
9226: BEGIN
9227: PA_DEBUG.INIT_ERR_STACK('PA_PROJECT_STRUCTURE_PVT1.SUBMIT_WORKPLAN');
9228:
9229: x_return_status := FND_API.G_RET_STS_SUCCESS;
9230:
9231: IF (p_commit = FND_API.G_TRUE) THEN
9232: savepoint SUBMIT_WP_PRIVATE;
9233: END IF;
9227: PA_DEBUG.INIT_ERR_STACK('PA_PROJECT_STRUCTURE_PVT1.SUBMIT_WORKPLAN');
9228:
9229: x_return_status := FND_API.G_RET_STS_SUCCESS;
9230:
9231: IF (p_commit = FND_API.G_TRUE) THEN
9232: savepoint SUBMIT_WP_PRIVATE;
9233: END IF;
9234:
9235: OPEN get_wp_info;
9251: --Check if this structure missing tasks with transactions
9252: -- IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.check_miss_transaction_tasks(p_structure_version_id)) THEN
9253: -- PA_UTILS.ADD_MESSAGE('PA','PA_PS_MISS_TRANSAC_TASK');
9254: -- x_msg_data := 'PA_PS_MISS_TRANSAC_TASK';
9255: -- RAISE FND_API.G_EXC_ERROR;
9256: -- END IF;
9257: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,
9258: l_return_status,
9259: l_msg_count,
9257: PA_PROJECT_STRUCTURE_UTILS.CHECK_MISS_TRANSACTION_TASKS(p_structure_version_id,
9258: l_return_status,
9259: l_msg_count,
9260: l_msg_data);
9261: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9262: RAISE FND_API.G_EXC_ERROR;
9263: END IF;
9264:
9265:
9258: l_return_status,
9259: l_msg_count,
9260: l_msg_data);
9261: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9262: RAISE FND_API.G_EXC_ERROR;
9263: END IF;
9264:
9265:
9266:
9270: ,l_return_status
9271: ,l_msg_count
9272: ,l_msg_data
9273: );
9274: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9275: RAISE FND_API.G_EXC_ERROR;
9276: END IF;
9277:
9278:
9271: ,l_msg_count
9272: ,l_msg_data
9273: );
9274: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9275: RAISE FND_API.G_EXC_ERROR;
9276: END IF;
9277:
9278:
9279: --Check if any new summary task has transactions
9282: ,l_return_status
9283: ,l_msg_count
9284: ,l_msg_data
9285: );
9286: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9287: RAISE FND_API.G_EXC_ERROR;
9288: END IF;
9289:
9290:
9283: ,l_msg_count
9284: ,l_msg_data
9285: );
9286: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9287: RAISE FND_API.G_EXC_ERROR;
9288: END IF;
9289:
9290:
9291: --end bug 2684465
9298: --Check if this structure can be published (ie, if linked structures are published)
9299: IF ('Y' <> PA_PROJECT_STRUCTURE_UTILS.Check_Publish_Struc_Ver_Ok(p_structure_version_id)) THEN
9300: PA_UTILS.ADD_MESSAGE('PA','PA_PS_LINK_STRUC_NOT_PUB');
9301: x_msg_data := 'PA_PS_LINK_STRUC_NOT_PUB';
9302: RAISE FND_API.G_EXC_ERROR;
9303: END IF;
9304: */
9305:
9306: /*
9304: */
9305:
9306: /*
9307: PA_PROGRESS_PUB.CREATE_PROGRESS_FOR_WBS(
9308: p_validate_only => FND_API.G_TRUE
9309: ,p_commit => FND_API.G_FALSE
9310: ,p_project_id => p_project_id
9311: ,p_structure_version_id => p_structure_version_id
9312: ,x_return_status => l_return_status
9305:
9306: /*
9307: PA_PROGRESS_PUB.CREATE_PROGRESS_FOR_WBS(
9308: p_validate_only => FND_API.G_TRUE
9309: ,p_commit => FND_API.G_FALSE
9310: ,p_project_id => p_project_id
9311: ,p_structure_version_id => p_structure_version_id
9312: ,x_return_status => l_return_status
9313: ,x_msg_count => l_msg_count
9320: p_structure_version_id), 'N') THEN
9321: --need to reschedule
9322: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NEED_THIRD_PT_SCH');
9323: x_msg_data := 'PA_PS_NEED_THIRD_PT_SCH';
9324: RAISE FND_API.G_EXC_ERROR;
9325: END IF;
9326: --end bug 3840509
9327:
9328: --Check if there is any error.
9331: x_msg_count := l_msg_count;
9332: IF x_msg_count = 1 THEN
9333: x_msg_data := l_msg_data;
9334: END IF;
9335: RAISE FND_API.G_EXC_ERROR;
9336: END IF;
9337:
9338: /*
9339: savepoint check_workplan;
9350: ,x_msg_count => x_msg_count
9351: ,x_msg_data => x_msg_data
9352: );
9353:
9354: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9355: RAISE FND_API.G_EXC_ERROR;
9356: END IF;
9357: rollback to check_workplan;
9358: */
9351: ,x_msg_data => x_msg_data
9352: );
9353:
9354: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9355: RAISE FND_API.G_EXC_ERROR;
9356: END IF;
9357: rollback to check_workplan;
9358: */
9359: END IF;
9376: IF (l_return_status <> 'S') THEN
9377: PA_UTILS.ADD_MESSAGE('PA',l_msg_data);
9378: x_msg_data := l_msg_data;
9379: CLOSE sel_other_structure_ver;
9380: RAISE FND_API.G_EXC_ERROR;
9381: END IF;
9382: END LOOP;
9383: CLOSE sel_other_structure_ver;
9384: */
9391: where project_id = p_project_id
9392: and element_version_id = p_structure_version_id;
9393:
9394: --Submit for approval
9395: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9396:
9397: OPEN get_start_wf;
9398: FETCH get_start_wf into l_dummy;
9399: IF get_start_wf%FOUND THEN
9414: ,x_msg_data
9415: ,x_return_status
9416: );
9417:
9418: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9419: --update pa_wf_process_table
9420: PA_WORKFLOW_UTILS.INSERT_WF_PROCESSES
9421: (
9422: p_wf_type_code => 'WORKPLAN'
9431: );
9432: IF (l_err_code <> 0) THEN
9433: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9434: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9435: x_return_status := FND_API.G_RET_STS_ERROR;
9436: END IF;
9437: ELSE
9438: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9439: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9436: END IF;
9437: ELSE
9438: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9439: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9440: x_return_status := FND_API.G_RET_STS_ERROR;
9441: END IF;
9442: END IF;
9443: CLOSE get_wf_info;
9444: END IF;
9446:
9447: END IF;
9448:
9449: EXCEPTION
9450: WHEN FND_API.G_EXC_ERROR THEN
9451: IF (p_commit = FND_API.G_TRUE) THEN
9452: ROLLBACK to SUBMIT_WP_PRIVATE;
9453: END IF;
9454: x_msg_count := FND_MSG_PUB.count_msg;
9447: END IF;
9448:
9449: EXCEPTION
9450: WHEN FND_API.G_EXC_ERROR THEN
9451: IF (p_commit = FND_API.G_TRUE) THEN
9452: ROLLBACK to SUBMIT_WP_PRIVATE;
9453: END IF;
9454: x_msg_count := FND_MSG_PUB.count_msg;
9455: x_return_status := FND_API.G_RET_STS_ERROR;
9451: IF (p_commit = FND_API.G_TRUE) THEN
9452: ROLLBACK to SUBMIT_WP_PRIVATE;
9453: END IF;
9454: x_msg_count := FND_MSG_PUB.count_msg;
9455: x_return_status := FND_API.G_RET_STS_ERROR;
9456: WHEN OTHERS THEN
9457: IF (p_commit = FND_API.G_TRUE) THEN
9458: ROLLBACK to SUBMIT_WP_PRIVATE;
9459: END IF;
9453: END IF;
9454: x_msg_count := FND_MSG_PUB.count_msg;
9455: x_return_status := FND_API.G_RET_STS_ERROR;
9456: WHEN OTHERS THEN
9457: IF (p_commit = FND_API.G_TRUE) THEN
9458: ROLLBACK to SUBMIT_WP_PRIVATE;
9459: END IF;
9460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9461: x_msg_count := FND_MSG_PUB.count_msg;
9456: WHEN OTHERS THEN
9457: IF (p_commit = FND_API.G_TRUE) THEN
9458: ROLLBACK to SUBMIT_WP_PRIVATE;
9459: END IF;
9460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9461: x_msg_count := FND_MSG_PUB.count_msg;
9462: --put message
9463: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9464: p_procedure_name => 'Submit_Workplan',
9469:
9470: procedure CHANGE_WORKPLAN_STATUS
9471: (
9472: p_api_version IN NUMBER := 1.0,
9473: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
9474: p_commit IN VARCHAR2 := FND_API.g_false,
9475: p_validate_only IN VARCHAR2 := FND_API.g_false,
9476: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
9477: p_project_id IN NUMBER := NULL,
9470: procedure CHANGE_WORKPLAN_STATUS
9471: (
9472: p_api_version IN NUMBER := 1.0,
9473: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
9474: p_commit IN VARCHAR2 := FND_API.g_false,
9475: p_validate_only IN VARCHAR2 := FND_API.g_false,
9476: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
9477: p_project_id IN NUMBER := NULL,
9478: p_structure_version_id IN NUMBER := NULL,
9471: (
9472: p_api_version IN NUMBER := 1.0,
9473: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
9474: p_commit IN VARCHAR2 := FND_API.g_false,
9475: p_validate_only IN VARCHAR2 := FND_API.g_false,
9476: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
9477: p_project_id IN NUMBER := NULL,
9478: p_structure_version_id IN NUMBER := NULL,
9479: p_status_code IN VARCHAR2 := NULL,
9472: p_api_version IN NUMBER := 1.0,
9473: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
9474: p_commit IN VARCHAR2 := FND_API.g_false,
9475: p_validate_only IN VARCHAR2 := FND_API.g_false,
9476: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
9477: p_project_id IN NUMBER := NULL,
9478: p_structure_version_id IN NUMBER := NULL,
9479: p_status_code IN VARCHAR2 := NULL,
9480: p_record_version_number IN NUMBER := NULL,
9522: BEGIN
9523: PA_DEBUG.init_err_stack('PA_PROJECT_STRUCTURE_PVT1.CHANGE_WORKPLAN_STATUS');
9524:
9525: -- Initialize the return status to success
9526: x_return_status := FND_API.G_RET_STS_SUCCESS;
9527:
9528: --
9529: BEGIN
9530: select pev_structure_id into l_pev_struc_id
9557: x_msg_count := l_msg_count;
9558: if x_msg_count = 1 then
9559: x_msg_data := l_msg_data;
9560: end if;
9561: raise FND_API.G_EXC_ERROR;
9562: end if;
9563:
9564: --check if status if valid
9565: OPEN get_status_code(p_status_code);
9568: CLOSE get_status_code;
9569: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9570: p_msg_name => 'PA_PS_STRUC_STAT_INVAL');
9571: x_msg_data := 'PA_PS_STRUC_STAT_INVAL';
9572: RAISE FND_API.G_EXC_ERROR;
9573: END IF;
9574: CLOSE get_status_code;
9575: --end validation
9576:
9599: ,x_msg_data
9600: ,x_return_status
9601: );
9602:
9603: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9604: --update pa_wf_process_table
9605: PA_WORKFLOW_UTILS.INSERT_WF_PROCESSES
9606: (
9607: p_wf_type_code => 'WORKPLAN'
9616: );
9617: IF (l_err_code <> 0) THEN
9618: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9619: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9620: x_return_status := FND_API.G_RET_STS_ERROR;
9621: END IF;
9622: ELSE
9623: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9624: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9621: END IF;
9622: ELSE
9623: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9624: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
9625: x_return_status := FND_API.G_RET_STS_ERROR;
9626:
9627: END IF;
9628: END IF;
9629: END IF;
9632: END IF;
9633: CLOSE get_start_wf;
9634:
9635: EXCEPTION
9636: WHEN FND_API.G_EXC_ERROR THEN
9637: x_msg_count := FND_MSG_PUB.count_msg;
9638: x_return_status := FND_API.G_RET_STS_ERROR;
9639: WHEN OTHERS THEN
9640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9634:
9635: EXCEPTION
9636: WHEN FND_API.G_EXC_ERROR THEN
9637: x_msg_count := FND_MSG_PUB.count_msg;
9638: x_return_status := FND_API.G_RET_STS_ERROR;
9639: WHEN OTHERS THEN
9640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9641: x_msg_count := FND_MSG_PUB.count_msg;
9642: --put message
9636: WHEN FND_API.G_EXC_ERROR THEN
9637: x_msg_count := FND_MSG_PUB.count_msg;
9638: x_return_status := FND_API.G_RET_STS_ERROR;
9639: WHEN OTHERS THEN
9640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9641: x_msg_count := FND_MSG_PUB.count_msg;
9642: --put message
9643: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9644: p_procedure_name => 'Change_Workplan_Status',
9649:
9650: PROCEDURE rework_workplan
9651: (
9652: p_api_version IN NUMBER := 1.0
9653: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9654: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9655: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9656: ,p_validation_level IN VARCHAR2 := 100
9657: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9650: PROCEDURE rework_workplan
9651: (
9652: p_api_version IN NUMBER := 1.0
9653: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9654: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9655: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9656: ,p_validation_level IN VARCHAR2 := 100
9657: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9658: ,p_debug_mode IN VARCHAR2 := 'N'
9651: (
9652: p_api_version IN NUMBER := 1.0
9653: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9654: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9655: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9656: ,p_validation_level IN VARCHAR2 := 100
9657: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9658: ,p_debug_mode IN VARCHAR2 := 'N'
9659: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9697: and pps.project_status_code = 'STRUCTURE_SUBMITTED';
9698:
9699: BEGIN
9700: PA_DEBUG.init_err_stack('PA_PROJECT_STRUCTURE_PVT1.REWORK_WORKPLAN');
9701: x_return_status := FND_API.G_RET_STS_SUCCESS;
9702:
9703: IF (p_commit = FND_API.G_TRUE) THEN
9704: savepoint rework_workplan_pvt;
9705: END IF;
9699: BEGIN
9700: PA_DEBUG.init_err_stack('PA_PROJECT_STRUCTURE_PVT1.REWORK_WORKPLAN');
9701: x_return_status := FND_API.G_RET_STS_SUCCESS;
9702:
9703: IF (p_commit = FND_API.G_TRUE) THEN
9704: savepoint rework_workplan_pvt;
9705: END IF;
9706:
9707: change_workplan_status(
9720: x_msg_count := l_msg_count;
9721: IF x_msg_count = 1 THEN
9722: x_msg_data := l_msg_data;
9723: END IF;
9724: RAISE FND_API.G_EXC_ERROR;
9725: END IF;
9726:
9727: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9728: OPEN check_approve_req;
9723: END IF;
9724: RAISE FND_API.G_EXC_ERROR;
9725: END IF;
9726:
9727: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9728: OPEN check_approve_req;
9729: FETCH check_approve_req into l_approve_req;
9730: IF check_approve_req%NOTFOUND THEN
9731: l_approve_req := 'N';
9742: IF (get_wf_status%NOTFOUND or l_wf_status <> 'Y') THEN
9743: -- IF (l_approve_req = 'Y') THEN
9744: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
9745: -- ,p_msg_name => 'PA_PR_CANCEL_WORKFLOW_INV');
9746: -- x_return_status := FND_API.G_RET_STS_ERROR;
9747: -- x_msg_count := FND_MSG_PUB.count_msg;
9748: -- if x_msg_count = 1 then
9749: -- x_msg_data := 'PA_PR_CANCEL_WORKFLOW_INV';
9750: -- end if;
9747: -- x_msg_count := FND_MSG_PUB.count_msg;
9748: -- if x_msg_count = 1 then
9749: -- x_msg_data := 'PA_PR_CANCEL_WORKFLOW_INV';
9750: -- end if;
9751: -- raise FND_API.G_EXC_ERROR;
9752: -- END IF;
9753: NULL;
9754: ELSE
9755: --cancel process
9766: ELSE
9767: IF (l_approve_req = 'Y') THEN
9768: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
9769: ,p_msg_name => 'PA_PR_CANCEL_WORKFLOW_INV');
9770: x_return_status := FND_API.G_RET_STS_ERROR;
9771: x_msg_count := FND_MSG_PUB.count_msg;
9772: if x_msg_count = 1 then
9773: x_msg_data := 'PA_PR_CANCEL_WORKFLOW_INV';
9774: end if;
9771: x_msg_count := FND_MSG_PUB.count_msg;
9772: if x_msg_count = 1 then
9773: x_msg_data := 'PA_PR_CANCEL_WORKFLOW_INV';
9774: end if;
9775: raise FND_API.G_EXC_ERROR;
9776: END IF;
9777: END IF;
9778: CLOSE get_item_key;
9779: END IF;
9777: END IF;
9778: CLOSE get_item_key;
9779: END IF;
9780: EXCEPTION
9781: WHEN FND_API.G_EXC_ERROR THEN
9782: IF (p_commit = FND_API.G_TRUE) THEN
9783: ROLLBACK to rework_workplan_pvt;
9784: END IF;
9785: x_msg_count := FND_MSG_PUB.count_msg;
9778: CLOSE get_item_key;
9779: END IF;
9780: EXCEPTION
9781: WHEN FND_API.G_EXC_ERROR THEN
9782: IF (p_commit = FND_API.G_TRUE) THEN
9783: ROLLBACK to rework_workplan_pvt;
9784: END IF;
9785: x_msg_count := FND_MSG_PUB.count_msg;
9786: x_return_status := FND_API.G_RET_STS_ERROR;
9782: IF (p_commit = FND_API.G_TRUE) THEN
9783: ROLLBACK to rework_workplan_pvt;
9784: END IF;
9785: x_msg_count := FND_MSG_PUB.count_msg;
9786: x_return_status := FND_API.G_RET_STS_ERROR;
9787: WHEN OTHERS THEN
9788: IF (p_commit = FND_API.G_TRUE) THEN
9789: ROLLBACK to rework_workplan_pvt;
9790: END IF;
9784: END IF;
9785: x_msg_count := FND_MSG_PUB.count_msg;
9786: x_return_status := FND_API.G_RET_STS_ERROR;
9787: WHEN OTHERS THEN
9788: IF (p_commit = FND_API.G_TRUE) THEN
9789: ROLLBACK to rework_workplan_pvt;
9790: END IF;
9791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9792: x_msg_count := FND_MSG_PUB.count_msg;
9787: WHEN OTHERS THEN
9788: IF (p_commit = FND_API.G_TRUE) THEN
9789: ROLLBACK to rework_workplan_pvt;
9790: END IF;
9791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9792: x_msg_count := FND_MSG_PUB.count_msg;
9793: --put message
9794: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
9795: p_procedure_name => 'rework_Workplan',
9818: -- 15-JAN-04 HSIU -rewrite API with sharing code changes
9819:
9820: PROCEDURE update_structures_setup_old
9821: ( p_api_version IN NUMBER := 1.0
9822: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9823: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9824: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9825: ,p_validation_level IN VARCHAR2 := 100
9826: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9819:
9820: PROCEDURE update_structures_setup_old
9821: ( p_api_version IN NUMBER := 1.0
9822: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9823: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9824: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9825: ,p_validation_level IN VARCHAR2 := 100
9826: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9827: ,p_debug_mode IN VARCHAR2 := 'N'
9820: PROCEDURE update_structures_setup_old
9821: ( p_api_version IN NUMBER := 1.0
9822: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
9823: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9824: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
9825: ,p_validation_level IN VARCHAR2 := 100
9826: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
9827: ,p_debug_mode IN VARCHAR2 := 'N'
9828: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
10056: IF (p_debug_mode = 'Y') THEN
10057: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_structures_setup_attr');
10058: END IF;
10059:
10060: IF (p_commit = FND_API.G_TRUE) THEN
10061: savepoint update_struc_setup_attr_pvt;
10062: END IF;
10063:
10064: IF (p_debug_mode = 'Y') THEN
10078: l_err_msg_code);
10079: IF (l_ret_stat = 'N') THEN
10080: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10081: x_msg_data := l_err_msg_code;
10082: RAISE FND_API.G_EXC_ERROR;
10083: END IF;
10084: --enable WP
10085: --get project name
10086: OPEN get_project_info;
10103:
10104: l_name := substrb(l_name||l_append||l_suffix, 1, 240);
10105: --Create new structure
10106: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
10107: ( p_validate_only => FND_API.G_FALSE
10108: ,p_project_id => p_project_id
10109: ,p_structure_number => l_name
10110: ,p_structure_name => l_name
10111: ,p_calling_flag => 'WORKPLAN'
10120: x_msg_count := l_msg_count;
10121: IF x_msg_count = 1 THEN
10122: x_msg_data := l_msg_data;
10123: END IF;
10124: RAISE FND_API.G_EXC_ERROR;
10125: END IF;
10126:
10127: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
10128: ( p_validate_only => FND_API.G_FALSE
10124: RAISE FND_API.G_EXC_ERROR;
10125: END IF;
10126:
10127: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
10128: ( p_validate_only => FND_API.G_FALSE
10129: ,p_structure_id => l_structure_id
10130: ,x_structure_version_id => l_structure_version_id
10131: ,x_return_status => l_return_status
10132: ,x_msg_count => l_msg_count
10138: x_msg_count := l_msg_count;
10139: IF x_msg_count = 1 THEN
10140: x_msg_data := l_msg_data;
10141: END IF;
10142: RAISE FND_API.G_EXC_ERROR;
10143: END IF;
10144:
10145: PA_TASK_PUB1.Create_Schedule_Version(
10146: p_element_version_id => l_structure_version_id
10158: x_msg_count := l_msg_count;
10159: IF x_msg_count = 1 THEN
10160: x_msg_data := l_msg_data;
10161: END IF;
10162: RAISE FND_API.G_EXC_ERROR;
10163: END IF;
10164:
10165: OPEN get_template_flag;
10166: FETCH get_template_flag into l_template_flag, l_proj_rec_ver_num;
10178: l_effective_date := sysdate;
10179: END IF;
10180:
10181: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
10182: ( p_validate_only => FND_API.G_FALSE
10183: ,p_structure_version_id => l_structure_version_id
10184: ,p_structure_version_name => l_name
10185: ,p_structure_version_desc => NULL
10186: ,p_effective_date => l_effective_date
10200: x_msg_count := l_msg_count;
10201: IF x_msg_count = 1 THEN
10202: x_msg_data := l_msg_data;
10203: END IF;
10204: RAISE FND_API.G_EXC_ERROR;
10205: END IF;
10206:
10207: --end enable WP
10208: ELSE
10212: l_err_msg_code);
10213: IF (l_ret_stat = 'N') THEN
10214: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10215: x_msg_data := l_err_msg_code;
10216: RAISE FND_API.G_EXC_ERROR;
10217: END IF;
10218: --disable WP
10219:
10220: --get structure_id
10247: l_err_msg_code);
10248: IF (l_return_status <> 'S') THEN
10249: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10250: x_msg_data := l_err_msg_code;
10251: RAISE FND_API.G_EXC_ERROR;
10252: END IF;
10253:
10254: --get top tasks
10255: OPEN get_top_tasks(l_del_struc_ver_id);
10268: x_return_status := l_return_status;
10269: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10270: l_msg_data := l_err_msg_code;
10271: CLOSE get_top_tasks;
10272: RAISE FND_API.G_EXC_ERROR;
10273: END IF;
10274: END LOOP;
10275: CLOSE get_top_tasks;
10276:
10291: IF x_msg_count = 1 THEN
10292: x_msg_data := l_msg_data;
10293: END IF;
10294: CLOSE sel_other_structure_ver;
10295: RAISE FND_API.G_EXC_ERROR;
10296: END IF;
10297:
10298: END LOOP;
10299: CLOSE sel_other_structure_ver;
10314: FETCH get_wp_attr_rvn into l_structure_id, l_wp_attr_rvn;
10315: CLOSE get_wp_attr_rvn;
10316:
10317: PA_WORKPLAN_ATTR_PUB.DELETE_PROJ_WORKPLAN_ATTRS(
10318: p_validate_only => FND_API.G_FALSE
10319: ,p_project_id => p_project_id
10320: ,p_proj_element_id => l_structure_id
10321: ,p_record_version_number => l_wp_attr_rvn
10322: ,x_return_status => l_return_status
10330: x_msg_count := l_msg_count;
10331: IF x_msg_count = 1 THEN
10332: x_msg_data := l_msg_data;
10333: END IF;
10334: RAISE FND_API.G_EXC_ERROR;
10335: END IF;
10336:
10337: PA_PROGRESS_PUB.DELETE_PROJ_PROG_ATTR(
10338: p_validate_only => FND_API.G_FALSE
10334: RAISE FND_API.G_EXC_ERROR;
10335: END IF;
10336:
10337: PA_PROGRESS_PUB.DELETE_PROJ_PROG_ATTR(
10338: p_validate_only => FND_API.G_FALSE
10339: ,p_project_id => p_project_id
10340: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
10341: ,p_object_id => l_structure_id
10342: ,x_return_status => l_return_status
10350: x_msg_count := l_msg_count;
10351: IF x_msg_count = 1 THEN
10352: x_msg_data := l_msg_data;
10353: END IF;
10354: RAISE FND_API.G_EXC_ERROR;
10355: END IF;
10356:
10357: --Delete structure type
10358: OPEN sel_wp_struct_type(l_structure_id);
10407: l_err_msg_code);
10408: IF (l_return_status <> 'S') THEN
10409: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10410: x_msg_data := l_err_msg_code;
10411: RAISE FND_API.G_EXC_ERROR;
10412: END IF;
10413:
10414: --get top tasks
10415: OPEN get_top_tasks(l_del_struc_ver_id);
10428: x_return_status := l_return_status;
10429: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10430: l_msg_data := l_err_msg_code;
10431: CLOSE get_top_tasks;
10432: RAISE FND_API.G_EXC_ERROR;
10433: END IF;
10434: END LOOP;
10435: CLOSE get_top_tasks;
10436:
10451: IF x_msg_count = 1 THEN
10452: x_msg_data := l_msg_data;
10453: END IF;
10454: CLOSE sel_all_wp_structure_ver;
10455: RAISE FND_API.G_EXC_ERROR;
10456: END IF;
10457: END LOOP;
10458: CLOSE sel_all_wp_structure_ver;
10459:
10489: l_err_msg_code);
10490: IF (l_ret_stat = 'N') THEN
10491: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10492: x_msg_data := l_err_msg_code;
10493: RAISE FND_API.G_EXC_ERROR;
10494: END IF;
10495:
10496: --hsiu: bug 2634029; get target dates
10497: OPEN sel_target_dates;
10517: l_err_msg_code);
10518: IF (l_return_status <> 'S') THEN
10519: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10520: x_msg_data := l_err_msg_code;
10521: RAISE FND_API.G_EXC_ERROR;
10522: END IF;
10523:
10524: --get top tasks
10525: OPEN get_top_tasks(l_del_struc_ver_id);
10539: x_return_status := l_return_status;
10540: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10541: l_msg_data := l_err_msg_code;
10542: CLOSE get_top_tasks;
10543: RAISE FND_API.G_EXC_ERROR;
10544: END IF;
10545: END LOOP;
10546: CLOSE get_top_tasks;
10547:
10563: IF x_msg_count = 1 THEN
10564: x_msg_data := l_msg_data;
10565: END IF;
10566: CLOSE sel_all_wp_structure_ver;
10567: RAISE FND_API.G_EXC_ERROR;
10568: END IF;
10569: END LOOP;
10570: CLOSE sel_all_wp_structure_ver;
10571:
10603: );
10604:
10605: --add proj_wp attr
10606: PA_WORKPLAN_ATTR_PVT.CREATE_PROJ_WORKPLAN_ATTRS(
10607: p_validate_only => FND_API.G_FALSE
10608: ,p_project_id => p_project_id
10609: ,p_proj_element_id => l_structure_id
10610: ,p_approval_reqd_flag => l_proj_workplan_attr_rec.WP_APPROVAL_REQD_FLAG
10611: ,p_auto_publish_flag => l_proj_workplan_attr_rec.WP_AUTO_PUBLISH_FLAG
10631: x_msg_count := l_msg_count;
10632: IF x_msg_count = 1 THEN
10633: x_msg_data := l_msg_data;
10634: END IF;
10635: RAISE FND_API.G_EXC_ERROR;
10636: END IF;
10637:
10638: --bug 3010538
10639: --copy task weighting basis
10637:
10638: --bug 3010538
10639: --copy task weighting basis
10640: PA_PROGRESS_PUB.CREATE_PROJ_PROG_ATTR(
10641: p_validate_only => FND_API.G_FALSE
10642: ,p_project_id => p_project_id
10643: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
10644: ,P_OBJECT_ID => l_structure_id
10645: ,p_PROGRESS_CYCLE_ID => l_proj_progress_attr_rec.PROGRESS_CYCLE_ID
10661: x_msg_count := l_msg_count;
10662: IF x_msg_count = 1 THEN
10663: x_msg_data := l_msg_data;
10664: END IF;
10665: RAISE FND_API.G_EXC_ERROR;
10666: END IF;
10667:
10668: --Loop schedule version to structure version and task versions
10669: OPEN sel_struc_ver(l_structure_id);
10681: x_return_status => l_return_status,
10682: x_msg_count => l_msg_count,
10683: x_msg_data => l_msg_data
10684: );
10685: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
10686: x_msg_count := FND_MSG_PUB.count_msg;
10687: if x_msg_count = 1 then
10688: x_msg_data := l_msg_data;
10689: end if;
10686: x_msg_count := FND_MSG_PUB.count_msg;
10687: if x_msg_count = 1 then
10688: x_msg_data := l_msg_data;
10689: end if;
10690: raise FND_API.G_EXC_ERROR;
10691: end if;
10692:
10693: END IF;
10694: --3035902: end process update flag changes
10722: -- IF (l_start_date IS NULL) OR (l_completion_date IS NULL) THEN
10723: -- CLOSE sel_struc_and_task_vers;
10724: -- PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_FIN_TK_DATE_MISS');
10725: -- x_msg_data := 'PA_PS_FIN_TK_DATE_MISS';
10726: -- RAISE FND_API.G_EXC_ERROR;
10727: --hsiu: 2634029
10728: -- Default sysdate or project target dates if transaction dates
10729: -- are missing.
10730: -- l_start_date := l_target_start_date;
10787: -- Bug 2790703 Begin
10788: IF (l_task_ver_ids_tbl.count > 0) THEN
10789: --rollup
10790: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup_Unlimited(
10791: p_commit => FND_API.G_FALSE,
10792: p_element_versions => l_task_ver_ids_tbl,
10793: x_return_status => l_return_status,
10794: x_msg_count => l_msg_count,
10795: x_msg_data => l_msg_data);
10802: x_msg_count := l_msg_count;
10803: IF x_msg_count = 1 THEN
10804: x_msg_data := l_msg_data;
10805: END IF;
10806: RAISE FND_API.G_EXC_ERROR;
10807: END IF;
10808: END IF;
10809:
10810: --check if project or template; set status
10853: FETCH get_scheduled_dates into l_get_sch_dates_cur;
10854: CLOSE get_scheduled_dates;
10855:
10856: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
10857: p_validate_only => FND_API.G_FALSE
10858: ,p_project_id => p_project_id
10859: ,p_date_type => 'SCHEDULED'
10860: ,p_start_date => l_get_sch_dates_cur.scheduled_start_date
10861: ,p_finish_date => l_get_sch_dates_cur.scheduled_finish_date
10863: ,x_return_status => x_return_status
10864: ,x_msg_count => x_msg_count
10865: ,x_msg_data => x_msg_data );
10866:
10867: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10868: RAISE FND_API.G_EXC_ERROR;
10869: END IF;
10870: END IF;
10871: --bug 2843569
10864: ,x_msg_count => x_msg_count
10865: ,x_msg_data => x_msg_data );
10866:
10867: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10868: RAISE FND_API.G_EXC_ERROR;
10869: END IF;
10870: END IF;
10871: --bug 2843569
10872:
10872:
10873: IF (l_baseline_flag = 'Y') THEN
10874: --baseline structure
10875: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
10876: p_commit => FND_API.G_FALSE,
10877: p_structure_version_id => l_structure_version_id,
10878: x_return_status => l_return_status,
10879: x_msg_count => l_msg_count,
10880: x_msg_data => l_msg_data);
10885: x_msg_count := l_msg_count;
10886: IF x_msg_count = 1 THEN
10887: x_msg_data := l_msg_data;
10888: END IF;
10889: RAISE FND_API.G_EXC_ERROR;
10890: END IF;
10891:
10892: END IF;
10893: -- Bug 2758343 -- Added the following call to recalculate the weightings for existing tasks
10896: , x_msg_count => l_msg_count
10897: , x_msg_data => l_msg_data
10898: , x_return_status => l_return_status);
10899:
10900: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10901: raise FND_API.G_EXC_UNEXPECTED_ERROR;
10902: END IF;
10903:
10904: --end sharing on
10897: , x_msg_data => l_msg_data
10898: , x_return_status => l_return_status);
10899:
10900: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10901: raise FND_API.G_EXC_UNEXPECTED_ERROR;
10902: END IF;
10903:
10904: --end sharing on
10905: ELSIF (p_sharing_enabled_flag = 'Y' AND
10905: ELSIF (p_sharing_enabled_flag = 'Y' AND
10906: PA_PROJECT_STRUCTURE_UTILS.CHECK_WORKPLAN_ENABLED(p_project_id) = 'N') THEN
10907: PA_UTILS.ADD_MESSAGE('PA','PA_PS_WP_NOT_EN_SHR_ERR');
10908: x_msg_data := 'PA_PS_WP_NOT_EN_SHR_ERR';
10909: RAISE FND_API.G_EXC_ERROR;
10910: ELSIF (p_sharing_enabled_flag = 'N') THEN
10911: --Validation
10912: PA_PROJECT_STRUCTURE_UTILS.check_sharing_off_ok(p_project_id,
10913: l_ret_stat,
10914: l_err_msg_code);
10915: IF (l_ret_stat = 'N') THEN
10916: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10917: x_msg_data := l_err_msg_code;
10918: RAISE FND_API.G_EXC_ERROR;
10919: END IF;
10920: --sharing off
10921: --Select version to be kept
10922: OPEN sel_latest_pub_ver(l_structure_id);
10939: l_err_msg_code);
10940: IF (l_return_status <> 'S') THEN
10941: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10942: x_msg_data := l_err_msg_code;
10943: RAISE FND_API.G_EXC_ERROR;
10944: END IF;
10945:
10946: --get top tasks
10947: OPEN get_top_tasks(l_del_struc_ver_id);
10960: x_return_status := l_return_status;
10961: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
10962: l_msg_data := l_err_msg_code;
10963: CLOSE get_top_tasks;
10964: RAISE FND_API.G_EXC_ERROR;
10965: END IF;
10966: END LOOP;
10967: CLOSE get_top_tasks;
10968:
10983: IF x_msg_count = 1 THEN
10984: x_msg_data := l_msg_data;
10985: END IF;
10986: CLOSE sel_other_structure_ver;
10987: RAISE FND_API.G_EXC_ERROR;
10988: END IF;
10989:
10990: END LOOP;
10991: CLOSE sel_other_structure_ver;
11006: FETCH get_wp_attr_rvn into l_structure_id, l_wp_attr_rvn;
11007: CLOSE get_wp_attr_rvn;
11008:
11009: PA_WORKPLAN_ATTR_PUB.DELETE_PROJ_WORKPLAN_ATTRS(
11010: p_validate_only => FND_API.G_FALSE
11011: ,p_project_id => p_project_id
11012: ,p_proj_element_id => l_structure_id
11013: ,p_record_version_number => l_wp_attr_rvn
11014: ,x_return_status => l_return_status
11022: x_msg_count := l_msg_count;
11023: IF x_msg_count = 1 THEN
11024: x_msg_data := l_msg_data;
11025: END IF;
11026: RAISE FND_API.G_EXC_ERROR;
11027: END IF;
11028:
11029: PA_PROGRESS_PUB.DELETE_PROJ_PROG_ATTR(
11030: p_validate_only => FND_API.G_FALSE
11026: RAISE FND_API.G_EXC_ERROR;
11027: END IF;
11028:
11029: PA_PROGRESS_PUB.DELETE_PROJ_PROG_ATTR(
11030: p_validate_only => FND_API.G_FALSE
11031: ,p_project_id => p_project_id
11032: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
11033: ,P_OBJECT_ID => l_structure_id
11034: ,x_return_status => l_return_status
11042: x_msg_count := l_msg_count;
11043: IF x_msg_count = 1 THEN
11044: x_msg_data := l_msg_data;
11045: END IF;
11046: RAISE FND_API.G_EXC_ERROR;
11047: END IF;
11048:
11049: --Delete structure type
11050: OPEN sel_wp_struct_type(l_structure_id);
11106:
11107: l_name := substrb(l_name||l_append||l_suffix, 1, 240);
11108: --Create new structure
11109: PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE
11110: ( p_validate_only => FND_API.G_FALSE
11111: ,p_project_id => p_project_id
11112: ,p_structure_number => l_name
11113: ,p_structure_name => l_name
11114: ,p_calling_flag => 'WORKPLAN'
11143: x_msg_count := l_msg_count;
11144: IF x_msg_count = 1 THEN
11145: x_msg_data := l_msg_data;
11146: END IF;
11147: RAISE FND_API.G_EXC_ERROR;
11148: END IF;
11149:
11150: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
11151: ( p_validate_only => FND_API.G_FALSE
11147: RAISE FND_API.G_EXC_ERROR;
11148: END IF;
11149:
11150: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
11151: ( p_validate_only => FND_API.G_FALSE
11152: ,p_structure_id => l_structure_id
11153: ,x_structure_version_id => l_structure_version_id
11154: ,x_return_status => l_return_status
11155: ,x_msg_count => l_msg_count
11161: x_msg_count := l_msg_count;
11162: IF x_msg_count = 1 THEN
11163: x_msg_data := l_msg_data;
11164: END IF;
11165: RAISE FND_API.G_EXC_ERROR;
11166: END IF;
11167:
11168: PA_TASK_PUB1.Create_Schedule_Version(
11169: p_element_version_id => l_structure_version_id
11181: x_msg_count := l_msg_count;
11182: IF x_msg_count = 1 THEN
11183: x_msg_data := l_msg_data;
11184: END IF;
11185: RAISE FND_API.G_EXC_ERROR;
11186: END IF;
11187:
11188: --Check versioning flag, project or template
11189: OPEN get_template_flag;
11209: FETCH get_scheduled_dates into l_get_sch_dates_cur;
11210: CLOSE get_scheduled_dates;
11211:
11212: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
11213: p_validate_only => FND_API.G_FALSE
11214: ,p_project_id => p_project_id
11215: ,p_date_type => 'SCHEDULED'
11216: ,p_start_date => l_get_sch_dates_cur.scheduled_start_date
11217: ,p_finish_date => l_get_sch_dates_cur.scheduled_finish_date
11219: ,x_return_status => x_return_status
11220: ,x_msg_count => x_msg_count
11221: ,x_msg_data => x_msg_data );
11222:
11223: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11224: RAISE FND_API.G_EXC_ERROR;
11225: END IF;
11226: ELSE
11227: IF (l_status_code = 'STRUCTURE_WORKING') THEN
11220: ,x_msg_count => x_msg_count
11221: ,x_msg_data => x_msg_data );
11222:
11223: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11224: RAISE FND_API.G_EXC_ERROR;
11225: END IF;
11226: ELSE
11227: IF (l_status_code = 'STRUCTURE_WORKING') THEN
11228: --clear previously set dates
11239: END IF;
11240: END IF;
11241:
11242: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
11243: ( p_validate_only => FND_API.G_FALSE
11244: ,p_structure_version_id => l_structure_version_id
11245: ,p_structure_version_name => l_name
11246: ,p_structure_version_desc => NULL
11247: ,p_effective_date => l_effective_date
11261: x_msg_count := l_msg_count;
11262: IF x_msg_count = 1 THEN
11263: x_msg_data := l_msg_data;
11264: END IF;
11265: RAISE FND_API.G_EXC_ERROR;
11266: END IF;
11267:
11268: --end sharing off
11269: END IF;
11270: --END SHARING CODE
11271: END IF;
11272: */
11273:
11274: x_return_status := FND_API.G_RET_STS_SUCCESS;
11275:
11276: IF (p_debug_mode = 'Y') THEN
11277: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_structures_setup_attr end');
11278: END IF;
11277: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_structures_setup_attr end');
11278: END IF;
11279:
11280: EXCEPTION
11281: WHEN FND_API.G_EXC_ERROR THEN
11282: IF (p_commit = FND_API.G_TRUE) THEN
11283: ROLLBACK to update_struc_setup_attr_pvt;
11284: END IF;
11285: x_msg_count := FND_MSG_PUB.count_msg;
11278: END IF;
11279:
11280: EXCEPTION
11281: WHEN FND_API.G_EXC_ERROR THEN
11282: IF (p_commit = FND_API.G_TRUE) THEN
11283: ROLLBACK to update_struc_setup_attr_pvt;
11284: END IF;
11285: x_msg_count := FND_MSG_PUB.count_msg;
11286: x_return_status := FND_API.G_RET_STS_ERROR;
11282: IF (p_commit = FND_API.G_TRUE) THEN
11283: ROLLBACK to update_struc_setup_attr_pvt;
11284: END IF;
11285: x_msg_count := FND_MSG_PUB.count_msg;
11286: x_return_status := FND_API.G_RET_STS_ERROR;
11287: WHEN OTHERS THEN
11288: IF (p_commit = FND_API.G_TRUE) THEN
11289: ROLLBACK to update_struc_setup_attr_pvt;
11290: END IF;
11284: END IF;
11285: x_msg_count := FND_MSG_PUB.count_msg;
11286: x_return_status := FND_API.G_RET_STS_ERROR;
11287: WHEN OTHERS THEN
11288: IF (p_commit = FND_API.G_TRUE) THEN
11289: ROLLBACK to update_struc_setup_attr_pvt;
11290: END IF;
11291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11292: x_msg_count := FND_MSG_PUB.count_msg;
11287: WHEN OTHERS THEN
11288: IF (p_commit = FND_API.G_TRUE) THEN
11289: ROLLBACK to update_struc_setup_attr_pvt;
11290: END IF;
11291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11292: x_msg_count := FND_MSG_PUB.count_msg;
11293: --put message
11294: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11295: p_procedure_name => 'update_structures_setup_attr',
11298: END update_structures_setup_old;
11299:
11300: PROCEDURE update_workplan_versioning
11301: ( p_api_version IN NUMBER := 1.0
11302: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11303: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
11304: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
11305: ,p_validation_level IN VARCHAR2 := 100
11306: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
11299:
11300: PROCEDURE update_workplan_versioning
11301: ( p_api_version IN NUMBER := 1.0
11302: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11303: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
11304: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
11305: ,p_validation_level IN VARCHAR2 := 100
11306: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
11307: ,p_debug_mode IN VARCHAR2 := 'N'
11300: PROCEDURE update_workplan_versioning
11301: ( p_api_version IN NUMBER := 1.0
11302: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11303: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
11304: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
11305: ,p_validation_level IN VARCHAR2 := 100
11306: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
11307: ,p_debug_mode IN VARCHAR2 := 'N'
11308: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
11411: IF (p_debug_mode = 'Y') THEN
11412: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_workplan_versioning');
11413: END IF;
11414:
11415: IF (p_commit = FND_API.G_TRUE) THEN
11416: savepoint update_wp_versioning_pvt;
11417: END IF;
11418:
11419: IF (p_debug_mode = 'Y') THEN
11428: ,l_err_msg_code);
11429: IF (l_ret_stat = 'N') THEN
11430: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
11431: x_msg_data := l_err_msg_code;
11432: RAISE FND_API.G_EXC_ERROR;
11433: END IF;
11434: --enable versioning
11435: --do not need to do anything
11436:
11460: x_msg_count := l_msg_count;
11461: IF x_msg_count = 1 THEN
11462: x_msg_data := l_msg_data;
11463: END IF;
11464: RAISE FND_API.G_EXC_ERROR;
11465: END IF;
11466: END IF;
11467: END LOOP;
11468: --end bug 4546607
11489: IF x_msg_count = 1 THEN
11490: x_msg_data := l_msg_data;
11491: END IF;
11492: -- CLOSE sel_other_structure_ver; --Bug 3793128
11493: RAISE FND_API.G_EXC_ERROR;
11494: END IF;
11495: --end bug 3125813
11496: --bug 4263266
11497: END IF; --if cur_chk_tasks%FOUND
11524: ,l_err_msg_code);
11525: IF (l_ret_stat = 'N') THEN
11526: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
11527: x_msg_data := l_err_msg_code;
11528: RAISE FND_API.G_EXC_ERROR;
11529: END IF;
11530: --disable versioning
11531: --Applies to project only
11532: OPEN get_template_flag;
11564: IF x_msg_count = 1 THEN
11565: x_msg_data := l_msg_data;
11566: END IF;
11567: CLOSE sel_other_structure_ver;
11568: RAISE FND_API.G_EXC_ERROR;
11569: END IF;
11570:
11571: END LOOP;
11572: CLOSE sel_other_structure_ver;
11594: where pev_structure_id = l_pev_structure_id;
11595:
11596: --baseline structure
11597: PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION(
11598: p_commit => FND_API.G_FALSE,
11599: p_structure_version_id => l_keep_structure_ver_id,
11600: x_return_status => l_return_status,
11601: x_msg_count => l_msg_count,
11602: x_msg_data => l_msg_data);
11607: x_msg_count := l_msg_count;
11608: IF x_msg_count = 1 THEN
11609: x_msg_data := l_msg_data;
11610: END IF;
11611: RAISE FND_API.G_EXC_ERROR;
11612: END IF;
11613:
11614: END IF; --for project
11615:
11615:
11616: --end disable versioning
11617: END IF;
11618:
11619: x_return_status := FND_API.G_RET_STS_SUCCESS;
11620:
11621: IF (p_debug_mode = 'Y') THEN
11622: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_workplan_versioning end');
11623: END IF;
11622: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_workplan_versioning end');
11623: END IF;
11624:
11625: EXCEPTION
11626: WHEN FND_API.G_EXC_ERROR THEN
11627: IF (p_commit = FND_API.G_TRUE) THEN
11628: ROLLBACK to update_wp_versioning_pvt;
11629: END IF;
11630: x_msg_count := FND_MSG_PUB.count_msg;
11623: END IF;
11624:
11625: EXCEPTION
11626: WHEN FND_API.G_EXC_ERROR THEN
11627: IF (p_commit = FND_API.G_TRUE) THEN
11628: ROLLBACK to update_wp_versioning_pvt;
11629: END IF;
11630: x_msg_count := FND_MSG_PUB.count_msg;
11631: x_return_status := FND_API.G_RET_STS_ERROR;
11627: IF (p_commit = FND_API.G_TRUE) THEN
11628: ROLLBACK to update_wp_versioning_pvt;
11629: END IF;
11630: x_msg_count := FND_MSG_PUB.count_msg;
11631: x_return_status := FND_API.G_RET_STS_ERROR;
11632: WHEN OTHERS THEN
11633: IF (p_commit = FND_API.G_TRUE) THEN
11634: ROLLBACK to update_wp_versioning_pvt;
11635: END IF;
11629: END IF;
11630: x_msg_count := FND_MSG_PUB.count_msg;
11631: x_return_status := FND_API.G_RET_STS_ERROR;
11632: WHEN OTHERS THEN
11633: IF (p_commit = FND_API.G_TRUE) THEN
11634: ROLLBACK to update_wp_versioning_pvt;
11635: END IF;
11636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11637: x_msg_count := FND_MSG_PUB.count_msg;
11632: WHEN OTHERS THEN
11633: IF (p_commit = FND_API.G_TRUE) THEN
11634: ROLLBACK to update_wp_versioning_pvt;
11635: END IF;
11636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11637: x_msg_count := FND_MSG_PUB.count_msg;
11638: --put message
11639: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11640: p_procedure_name => 'update_workplan_versioning',
11645:
11646: PROCEDURE update_wp_calendar
11647: (
11648: p_api_version IN NUMBER := 1.0
11649: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11650: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
11651: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
11652: ,p_validation_level IN VARCHAR2 := 100
11653: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
11646: PROCEDURE update_wp_calendar
11647: (
11648: p_api_version IN NUMBER := 1.0
11649: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11650: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
11651: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
11652: ,p_validation_level IN VARCHAR2 := 100
11653: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
11654: ,p_debug_mode IN VARCHAR2 := 'N'
11647: (
11648: p_api_version IN NUMBER := 1.0
11649: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11650: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
11651: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
11652: ,p_validation_level IN VARCHAR2 := 100
11653: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
11654: ,p_debug_mode IN VARCHAR2 := 'N'
11655: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
11732: IF (p_debug_mode = 'Y') THEN
11733: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_WP_CALENDAR BEGIN');
11734: END IF;
11735:
11736: IF (p_commit = FND_API.G_TRUE) THEN
11737: savepoint update_wp_calendar;
11738: END IF;
11739:
11740: OPEN c1;
11774: ,x_msg_count => l_msg_count
11775: ,x_msg_data => l_msg_data
11776: );
11777:
11778: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11779: x_msg_count := FND_MSG_PUB.count_msg;
11780: if x_msg_count = 1 then
11781: x_msg_data := l_msg_data;
11782: end if;
11779: x_msg_count := FND_MSG_PUB.count_msg;
11780: if x_msg_count = 1 then
11781: x_msg_data := l_msg_data;
11782: end if;
11783: raise FND_API.G_EXC_ERROR;
11784: END IF;*/
11785:
11786: END IF;
11787:
11805: ,x_msg_count => l_msg_count
11806: ,x_msg_data => l_msg_data
11807: );
11808:
11809: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11810: x_msg_count := FND_MSG_PUB.count_msg;
11811: if x_msg_count = 1 then
11812: x_msg_data := l_msg_data;
11813: end if;
11810: x_msg_count := FND_MSG_PUB.count_msg;
11811: if x_msg_count = 1 then
11812: x_msg_data := l_msg_data;
11813: end if;
11814: raise FND_API.G_EXC_ERROR;
11815: END IF;*/
11816: END IF;
11817:
11818:
11835: ,x_msg_count => l_msg_count
11836: ,x_msg_data => l_msg_data
11837: );
11838:
11839: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11840: x_msg_count := FND_MSG_PUB.count_msg;
11841: if x_msg_count = 1 then
11842: x_msg_data := l_msg_data;
11843: end if;
11840: x_msg_count := FND_MSG_PUB.count_msg;
11841: if x_msg_count = 1 then
11842: x_msg_data := l_msg_data;
11843: end if;
11844: raise FND_API.G_EXC_ERROR;
11845: END IF;*/
11846: END IF;
11847:
11848: --hsiu: removed record version number for Forms changes
11879: ,x_msg_count => l_msg_count
11880: ,x_msg_data => l_msg_data
11881: );
11882:
11883: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11884: x_msg_count := FND_MSG_PUB.count_msg;
11885: if x_msg_count = 1 then
11886: x_msg_data := l_msg_data;
11887: end if;
11884: x_msg_count := FND_MSG_PUB.count_msg;
11885: if x_msg_count = 1 then
11886: x_msg_data := l_msg_data;
11887: end if;
11888: raise FND_API.G_EXC_ERROR;
11889: END IF;*/
11890: END IF;
11891:
11892: --hsiu: removed record version number for Forms changes
11924: ,x_msg_count => l_msg_count
11925: ,x_msg_data => l_msg_data
11926: );
11927:
11928: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11929: x_msg_count := FND_MSG_PUB.count_msg;
11930: if x_msg_count = 1 then
11931: x_msg_data := l_msg_data;
11932: end if;
11929: x_msg_count := FND_MSG_PUB.count_msg;
11930: if x_msg_count = 1 then
11931: x_msg_data := l_msg_data;
11932: end if;
11933: raise FND_API.G_EXC_ERROR;
11934: END IF;
11935: END IF;
11936:
11937: PA_PROJECT_STRUCTURE_PVT1.RECALC_STRUC_VER_DURATION(
11941: ,x_msg_count => l_msg_count
11942: ,x_msg_data => l_msg_data
11943: );
11944:
11945: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
11946: x_msg_count := FND_MSG_PUB.count_msg;
11947: if x_msg_count = 1 then
11948: x_msg_data := l_msg_data;
11949: end if;
11946: x_msg_count := FND_MSG_PUB.count_msg;
11947: if x_msg_count = 1 then
11948: x_msg_data := l_msg_data;
11949: end if;
11950: raise FND_API.G_EXC_ERROR;
11951: END IF;
11952:
11953: --update duration for all working structure versions
11954: END LOOP;
11953: --update duration for all working structure versions
11954: END LOOP;
11955: CLOSE get_wp_versions;
11956:
11957: x_return_status := FND_API.G_RET_STS_SUCCESS;
11958:
11959: IF (p_debug_mode = 'Y') THEN
11960: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_WP_CALENDAR end');
11961: END IF;
11960: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_WP_CALENDAR end');
11961: END IF;
11962:
11963: EXCEPTION
11964: WHEN FND_API.G_EXC_ERROR THEN
11965: IF (p_commit = FND_API.G_TRUE) THEN
11966: ROLLBACK to update_wp_calendar;
11967: END IF;
11968: x_msg_count := FND_MSG_PUB.count_msg;
11961: END IF;
11962:
11963: EXCEPTION
11964: WHEN FND_API.G_EXC_ERROR THEN
11965: IF (p_commit = FND_API.G_TRUE) THEN
11966: ROLLBACK to update_wp_calendar;
11967: END IF;
11968: x_msg_count := FND_MSG_PUB.count_msg;
11969: x_return_status := FND_API.G_RET_STS_ERROR;
11965: IF (p_commit = FND_API.G_TRUE) THEN
11966: ROLLBACK to update_wp_calendar;
11967: END IF;
11968: x_msg_count := FND_MSG_PUB.count_msg;
11969: x_return_status := FND_API.G_RET_STS_ERROR;
11970: WHEN OTHERS THEN
11971: IF (p_commit = FND_API.G_TRUE) THEN
11972: ROLLBACK to update_wp_calendar;
11973: END IF;
11967: END IF;
11968: x_msg_count := FND_MSG_PUB.count_msg;
11969: x_return_status := FND_API.G_RET_STS_ERROR;
11970: WHEN OTHERS THEN
11971: IF (p_commit = FND_API.G_TRUE) THEN
11972: ROLLBACK to update_wp_calendar;
11973: END IF;
11974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11975: x_msg_count := FND_MSG_PUB.count_msg;
11970: WHEN OTHERS THEN
11971: IF (p_commit = FND_API.G_TRUE) THEN
11972: ROLLBACK to update_wp_calendar;
11973: END IF;
11974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11975: x_msg_count := FND_MSG_PUB.count_msg;
11976: --put message
11977: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
11978: p_procedure_name => 'Update_wp_calendar',
11982:
11983: PROCEDURE update_all_wp_calendar
11984: (
11985: p_api_version IN NUMBER := 1.0
11986: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11987: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
11988: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
11989: ,p_validation_level IN VARCHAR2 := 100
11990: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
11983: PROCEDURE update_all_wp_calendar
11984: (
11985: p_api_version IN NUMBER := 1.0
11986: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11987: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
11988: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
11989: ,p_validation_level IN VARCHAR2 := 100
11990: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
11991: ,p_debug_mode IN VARCHAR2 := 'N'
11984: (
11985: p_api_version IN NUMBER := 1.0
11986: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
11987: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
11988: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
11989: ,p_validation_level IN VARCHAR2 := 100
11990: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
11991: ,p_debug_mode IN VARCHAR2 := 'N'
11992: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
12005: IF (p_debug_mode = 'Y') THEN
12006: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_ALL_WP_CALENDAR BEGIN');
12007: END IF;
12008:
12009: IF (p_commit = FND_API.G_TRUE) THEN
12010: savepoint update_all_wp_calendar;
12011: END IF;
12012:
12013: FOR c_rec IN c_calendar_projects
12028: ,x_msg_count => x_msg_count
12029: ,x_msg_data => x_msg_data
12030: );
12031: END LOOP;
12032: x_return_status := FND_API.G_RET_STS_SUCCESS;
12033:
12034: IF (p_debug_mode = 'Y') THEN
12035: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_ALL_WP_CALENDAR END');
12036: END IF;
12036: END IF;
12037:
12038: EXCEPTION
12039: WHEN OTHERS THEN
12040: IF (p_commit = FND_API.G_TRUE) THEN
12041: ROLLBACK to update_all_wp_calendar;
12042: END IF;
12043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12044: x_msg_count := FND_MSG_PUB.count_msg;
12039: WHEN OTHERS THEN
12040: IF (p_commit = FND_API.G_TRUE) THEN
12041: ROLLBACK to update_all_wp_calendar;
12042: END IF;
12043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12044: x_msg_count := FND_MSG_PUB.count_msg;
12045: --put message
12046: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12047: p_procedure_name => 'Update_all_wp_calendar',
12051:
12052:
12053: PROCEDURE RECALC_STRUC_VER_DURATION(
12054: p_api_version IN NUMBER := 1.0
12055: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
12056: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12057: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
12058: ,p_validation_level IN VARCHAR2 := 100
12059: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
12052:
12053: PROCEDURE RECALC_STRUC_VER_DURATION(
12054: p_api_version IN NUMBER := 1.0
12055: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
12056: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12057: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
12058: ,p_validation_level IN VARCHAR2 := 100
12059: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
12060: ,p_debug_mode IN VARCHAR2 := 'N'
12053: PROCEDURE RECALC_STRUC_VER_DURATION(
12054: p_api_version IN NUMBER := 1.0
12055: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
12056: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12057: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
12058: ,p_validation_level IN VARCHAR2 := 100
12059: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
12060: ,p_debug_mode IN VARCHAR2 := 'N'
12061: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
12099: IF (p_debug_mode = 'Y') THEN
12100: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.RECALC_STRUC_VER_DURATION BEGIN');
12101: END IF;
12102:
12103: IF (p_commit = FND_API.G_TRUE) THEN
12104: savepoint RECALC_STRUC_VER_DURATION;
12105: END IF;
12106:
12107: OPEN get_dates;
12136: ,x_msg_count => l_msg_count
12137: ,x_msg_data => l_msg_data
12138: );
12139:
12140: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
12141: x_msg_count := FND_MSG_PUB.count_msg;
12142: if x_msg_count = 1 then
12143: x_msg_data := l_msg_data;
12144: end if;
12141: x_msg_count := FND_MSG_PUB.count_msg;
12142: if x_msg_count = 1 then
12143: x_msg_data := l_msg_data;
12144: end if;
12145: raise FND_API.G_EXC_ERROR;
12146: END IF;*/
12147:
12148: UPDATE PA_PROJ_ELEM_VER_SCHEDULE
12149: --SET DURATION = l_hours
12168: ,x_msg_count => l_msg_count
12169: ,x_msg_data => l_msg_data
12170: );
12171:
12172: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
12173: x_msg_count := FND_MSG_PUB.count_msg;
12174: if x_msg_count = 1 then
12175: x_msg_data := l_msg_data;
12176: end if;
12173: x_msg_count := FND_MSG_PUB.count_msg;
12174: if x_msg_count = 1 then
12175: x_msg_data := l_msg_data;
12176: end if;
12177: raise FND_API.G_EXC_ERROR;
12178: END IF; */
12179:
12180: UPDATE PA_PROJ_ELEM_VER_SCHEDULE
12181: --SET ESTIMATED_DURATION = l_hours
12199: ,x_msg_count => l_msg_count
12200: ,x_msg_data => l_msg_data
12201: );
12202:
12203: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
12204: x_msg_count := FND_MSG_PUB.count_msg;
12205: if x_msg_count = 1 then
12206: x_msg_data := l_msg_data;
12207: end if;
12204: x_msg_count := FND_MSG_PUB.count_msg;
12205: if x_msg_count = 1 then
12206: x_msg_data := l_msg_data;
12207: end if;
12208: raise FND_API.G_EXC_ERROR;
12209: END IF;*/
12210:
12211: UPDATE PA_PROJ_ELEM_VER_SCHEDULE
12212: -- SET ACTUAL_DURATION = l_hours
12221: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.RECALC_STRUC_VER_DURATION end');
12222: END IF;
12223:
12224: EXCEPTION
12225: WHEN FND_API.G_EXC_ERROR THEN
12226: IF (p_commit = FND_API.G_TRUE) THEN
12227: ROLLBACK to RECALC_STRUC_VER_DURATION;
12228: END IF;
12229: x_msg_count := FND_MSG_PUB.count_msg;
12222: END IF;
12223:
12224: EXCEPTION
12225: WHEN FND_API.G_EXC_ERROR THEN
12226: IF (p_commit = FND_API.G_TRUE) THEN
12227: ROLLBACK to RECALC_STRUC_VER_DURATION;
12228: END IF;
12229: x_msg_count := FND_MSG_PUB.count_msg;
12230: x_return_status := FND_API.G_RET_STS_ERROR;
12226: IF (p_commit = FND_API.G_TRUE) THEN
12227: ROLLBACK to RECALC_STRUC_VER_DURATION;
12228: END IF;
12229: x_msg_count := FND_MSG_PUB.count_msg;
12230: x_return_status := FND_API.G_RET_STS_ERROR;
12231: WHEN OTHERS THEN
12232: IF (p_commit = FND_API.G_TRUE) THEN
12233: ROLLBACK to RECALC_STRUC_VER_DURATION;
12234: END IF;
12228: END IF;
12229: x_msg_count := FND_MSG_PUB.count_msg;
12230: x_return_status := FND_API.G_RET_STS_ERROR;
12231: WHEN OTHERS THEN
12232: IF (p_commit = FND_API.G_TRUE) THEN
12233: ROLLBACK to RECALC_STRUC_VER_DURATION;
12234: END IF;
12235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12236: x_msg_count := FND_MSG_PUB.count_msg;
12231: WHEN OTHERS THEN
12232: IF (p_commit = FND_API.G_TRUE) THEN
12233: ROLLBACK to RECALC_STRUC_VER_DURATION;
12234: END IF;
12235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12236: x_msg_count := FND_MSG_PUB.count_msg;
12237: --put message
12238: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12239: p_procedure_name => 'RECALC_STRUC_VER_DURATION',
12244:
12245: procedure Delete_Struc_Ver_Wo_Val
12246: (
12247: p_api_version IN NUMBER := 1.0
12248: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
12249: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12250: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
12251: ,p_validation_level IN VARCHAR2 := 100
12252: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
12245: procedure Delete_Struc_Ver_Wo_Val
12246: (
12247: p_api_version IN NUMBER := 1.0
12248: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
12249: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12250: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
12251: ,p_validation_level IN VARCHAR2 := 100
12252: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
12253: ,p_debug_mode IN VARCHAR2 := 'N'
12246: (
12247: p_api_version IN NUMBER := 1.0
12248: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
12249: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
12250: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
12251: ,p_validation_level IN VARCHAR2 := 100
12252: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
12253: ,p_debug_mode IN VARCHAR2 := 'N'
12254: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
12327: IF (p_debug_mode = 'Y') THEN
12328: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUC_VER_WO_VAL begin');
12329: END IF;
12330:
12331: IF (p_commit = FND_API.G_TRUE) THEN
12332: savepoint delete_struc_ver_wo_val;
12333: END IF;
12334:
12335: IF (p_debug_mode = 'Y') THEN
12382: x_return_status => l_return_status,
12383: x_msg_count => l_msg_count,
12384: x_msg_data => l_msg_data);
12385:
12386: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12387: x_msg_count := FND_MSG_PUB.count_msg;
12388: IF x_msg_count = 1 then
12389: pa_interface_utils_pub.get_messages
12390: (p_encoded => FND_API.G_TRUE,
12386: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12387: x_msg_count := FND_MSG_PUB.count_msg;
12388: IF x_msg_count = 1 then
12389: pa_interface_utils_pub.get_messages
12390: (p_encoded => FND_API.G_TRUE,
12391: p_msg_index => 1,
12392: p_data => l_data,
12393: p_msg_index_out => l_msg_index_out);
12394: x_msg_data := l_data;
12393: p_msg_index_out => l_msg_index_out);
12394: x_msg_data := l_data;
12395: END IF;
12396: CLOSE get_top_tasks;
12397: raise FND_API.G_EXC_ERROR;
12398: END IF;
12399:
12400: END LOOP;
12401: CLOSE get_top_tasks;
12419:
12420: END IF;
12421:
12422: --check for errors.
12423: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12424: x_msg_count := FND_MSG_PUB.count_msg;
12425: IF x_msg_count = 1 then
12426: pa_interface_utils_pub.get_messages
12427: (p_encoded => FND_API.G_TRUE,
12423: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12424: x_msg_count := FND_MSG_PUB.count_msg;
12425: IF x_msg_count = 1 then
12426: pa_interface_utils_pub.get_messages
12427: (p_encoded => FND_API.G_TRUE,
12428: p_msg_index => 1,
12429: -- p_msg_count => l_msg_count,
12430: -- p_msg_data => l_msg_data,
12431: p_data => l_data,
12431: p_data => l_data,
12432: p_msg_index_out => l_msg_index_out);
12433: x_msg_data := l_data;
12434: END IF;
12435: raise FND_API.G_EXC_ERROR;
12436: END IF;
12437:
12438: IF (p_debug_mode = 'Y') THEN
12439: pa_debug.debug('del structure version attr');
12446: p_record_version_number => l_pevs_rvn,
12447: x_return_status => l_return_status,
12448: x_msg_count => l_msg_count,
12449: x_msg_data => l_msg_data);
12450: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12451: x_msg_count := FND_MSG_PUB.count_msg;
12452: IF x_msg_count = 1 then
12453: pa_interface_utils_pub.get_messages
12454: (p_encoded => FND_API.G_TRUE,
12450: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12451: x_msg_count := FND_MSG_PUB.count_msg;
12452: IF x_msg_count = 1 then
12453: pa_interface_utils_pub.get_messages
12454: (p_encoded => FND_API.G_TRUE,
12455: p_msg_index => 1,
12456: -- p_msg_count => l_msg_count,
12457: -- p_msg_data => l_msg_data,
12458: p_data => l_data,
12458: p_data => l_data,
12459: p_msg_index_out => l_msg_index_out);
12460: x_msg_data := l_data;
12461: END IF;
12462: raise FND_API.G_EXC_ERROR;
12463: END IF;
12464:
12465:
12466: IF (p_debug_mode = 'Y') THEN
12476: x_return_status => l_return_status,
12477: x_msg_count => l_msg_count,
12478: x_msg_data => l_msg_data);
12479:
12480: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12481: x_msg_count := FND_MSG_PUB.count_msg;
12482: IF x_msg_count = 1 then
12483: pa_interface_utils_pub.get_messages
12484: (p_encoded => FND_API.G_TRUE,
12480: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12481: x_msg_count := FND_MSG_PUB.count_msg;
12482: IF x_msg_count = 1 then
12483: pa_interface_utils_pub.get_messages
12484: (p_encoded => FND_API.G_TRUE,
12485: p_msg_index => 1,
12486: -- p_msg_count => l_msg_count,
12487: -- p_msg_data => l_msg_data,
12488: p_data => l_data,
12488: p_data => l_data,
12489: p_msg_index_out => l_msg_index_out);
12490: x_msg_data := l_data;
12491: END IF;
12492: raise FND_API.G_EXC_ERROR;
12493: END IF;
12494:
12495:
12496: --Delete structure if this is the last version
12509: FETCH sel_wp_attr into l_wp_attr_rvn;
12510: CLOSE sel_wp_attr;
12511:
12512: PA_WORKPLAN_ATTR_PUB.DELETE_PROJ_WORKPLAN_ATTRS(
12513: p_validate_only => FND_API.G_FALSE
12514: ,p_project_id => l_project_id
12515: ,p_proj_element_id => l_proj_element_id
12516: ,p_record_version_number => l_wp_attr_rvn
12517: ,x_return_status => l_return_status
12519: ,x_msg_data => l_msg_data
12520: );
12521:
12522: --Check error
12523: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12524: x_msg_count := FND_MSG_PUB.count_msg;
12525: IF x_msg_count = 1 then
12526: pa_interface_utils_pub.get_messages
12527: (p_encoded => FND_API.G_TRUE,
12523: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12524: x_msg_count := FND_MSG_PUB.count_msg;
12525: IF x_msg_count = 1 then
12526: pa_interface_utils_pub.get_messages
12527: (p_encoded => FND_API.G_TRUE,
12528: p_msg_index => 1,
12529: p_data => l_data,
12530: p_msg_index_out => l_msg_index_out);
12531: x_msg_data := l_data;
12529: p_data => l_data,
12530: p_msg_index_out => l_msg_index_out);
12531: x_msg_data := l_data;
12532: END IF;
12533: raise FND_API.G_EXC_ERROR;
12534: END IF;
12535:
12536: PA_PROGRESS_PUB.DELETE_PROJ_PROG_ATTR(
12537: p_validate_only => FND_API.G_FALSE
12533: raise FND_API.G_EXC_ERROR;
12534: END IF;
12535:
12536: PA_PROGRESS_PUB.DELETE_PROJ_PROG_ATTR(
12537: p_validate_only => FND_API.G_FALSE
12538: ,p_project_id => l_project_id
12539: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
12540: ,p_object_id => l_proj_element_id
12541: ,p_structure_type => 'WORKPLAN' --Amit
12544: ,x_msg_data => l_msg_data
12545: );
12546:
12547: --Check error
12548: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12549: x_msg_count := FND_MSG_PUB.count_msg;
12550: IF x_msg_count = 1 then
12551: pa_interface_utils_pub.get_messages
12552: (p_encoded => FND_API.G_TRUE,
12548: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12549: x_msg_count := FND_MSG_PUB.count_msg;
12550: IF x_msg_count = 1 then
12551: pa_interface_utils_pub.get_messages
12552: (p_encoded => FND_API.G_TRUE,
12553: p_msg_index => 1,
12554: p_data => l_data,
12555: p_msg_index_out => l_msg_index_out);
12556: x_msg_data := l_data;
12554: p_data => l_data,
12555: p_msg_index_out => l_msg_index_out);
12556: x_msg_data := l_data;
12557: END IF;
12558: raise FND_API.G_EXC_ERROR;
12559: END IF;
12560:
12561: END IF;
12562:
12574: END IF;
12575: CLOSE is_last_version;
12576:
12577: --Check error
12578: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12579: x_msg_count := FND_MSG_PUB.count_msg;
12580: IF x_msg_count = 1 then
12581: pa_interface_utils_pub.get_messages
12582: (p_encoded => FND_API.G_TRUE,
12578: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12579: x_msg_count := FND_MSG_PUB.count_msg;
12580: IF x_msg_count = 1 then
12581: pa_interface_utils_pub.get_messages
12582: (p_encoded => FND_API.G_TRUE,
12583: p_msg_index => 1,
12584: p_data => l_data,
12585: p_msg_index_out => l_msg_index_out);
12586: x_msg_data := l_data;
12584: p_data => l_data,
12585: p_msg_index_out => l_msg_index_out);
12586: x_msg_data := l_data;
12587: END IF;
12588: raise FND_API.G_EXC_ERROR;
12589: END IF;
12590:
12591: x_return_status := FND_API.G_RET_STS_SUCCESS;
12592:
12587: END IF;
12588: raise FND_API.G_EXC_ERROR;
12589: END IF;
12590:
12591: x_return_status := FND_API.G_RET_STS_SUCCESS;
12592:
12593: IF (p_debug_mode = 'Y') THEN
12594: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUC_VER_WO_VAL end');
12595: END IF;
12594: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUC_VER_WO_VAL end');
12595: END IF;
12596:
12597: EXCEPTION
12598: when FND_API.G_EXC_ERROR then
12599: if p_commit = FND_API.G_TRUE then
12600: rollback to delete_struc_ver_wo_val;
12601: end if;
12602: x_msg_count := FND_MSG_PUB.count_msg;
12595: END IF;
12596:
12597: EXCEPTION
12598: when FND_API.G_EXC_ERROR then
12599: if p_commit = FND_API.G_TRUE then
12600: rollback to delete_struc_ver_wo_val;
12601: end if;
12602: x_msg_count := FND_MSG_PUB.count_msg;
12603: x_return_status := FND_API.G_RET_STS_ERROR;
12599: if p_commit = FND_API.G_TRUE then
12600: rollback to delete_struc_ver_wo_val;
12601: end if;
12602: x_msg_count := FND_MSG_PUB.count_msg;
12603: x_return_status := FND_API.G_RET_STS_ERROR;
12604: when FND_API.G_EXC_UNEXPECTED_ERROR then
12605: if p_commit = FND_API.G_TRUE then
12606: rollback to delete_struc_ver_wo_val;
12607: end if;
12600: rollback to delete_struc_ver_wo_val;
12601: end if;
12602: x_msg_count := FND_MSG_PUB.count_msg;
12603: x_return_status := FND_API.G_RET_STS_ERROR;
12604: when FND_API.G_EXC_UNEXPECTED_ERROR then
12605: if p_commit = FND_API.G_TRUE then
12606: rollback to delete_struc_ver_wo_val;
12607: end if;
12608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12601: end if;
12602: x_msg_count := FND_MSG_PUB.count_msg;
12603: x_return_status := FND_API.G_RET_STS_ERROR;
12604: when FND_API.G_EXC_UNEXPECTED_ERROR then
12605: if p_commit = FND_API.G_TRUE then
12606: rollback to delete_struc_ver_wo_val;
12607: end if;
12608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12609: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12604: when FND_API.G_EXC_UNEXPECTED_ERROR then
12605: if p_commit = FND_API.G_TRUE then
12606: rollback to delete_struc_ver_wo_val;
12607: end if;
12608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12609: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12610: p_procedure_name => 'Delete_Struc_Ver_Wo_Val',
12611: p_error_text => SUBSTRB(SQLERRM,1,240));
12612: when OTHERS then
12609: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12610: p_procedure_name => 'Delete_Struc_Ver_Wo_Val',
12611: p_error_text => SUBSTRB(SQLERRM,1,240));
12612: when OTHERS then
12613: if p_commit = FND_API.G_TRUE then
12614: rollback to delete_struc_ver_wo_val;
12615: end if;
12616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12617: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12612: when OTHERS then
12613: if p_commit = FND_API.G_TRUE then
12614: rollback to delete_struc_ver_wo_val;
12615: end if;
12616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12617: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
12618: p_procedure_name => 'Delete_Struc_Ver_Wo_Val',
12619: p_error_text => SUBSTRB(SQLERRM,1,240));
12620: raise;
12769: --done getting header and prompt
12770:
12771: --create record in pa_page_layouts
12772: PA_PAGE_CONTENTS_PUB.CREATE_PAGE_CONTENTS(
12773: p_init_msg_list => fnd_api.g_false
12774: ,p_validate_only => fnd_api.g_false
12775: ,p_object_type => 'PA_STRUCTURES'
12776: ,p_pk1_value => p_structure_version_id
12777: ,p_pk2_value => 1
12770:
12771: --create record in pa_page_layouts
12772: PA_PAGE_CONTENTS_PUB.CREATE_PAGE_CONTENTS(
12773: p_init_msg_list => fnd_api.g_false
12774: ,p_validate_only => fnd_api.g_false
12775: ,p_object_type => 'PA_STRUCTURES'
12776: ,p_pk1_value => p_structure_version_id
12777: ,p_pk2_value => 1
12778: ,x_page_content_id => x_page_content_id
12780: ,x_msg_count => x_msg_count
12781: ,x_msg_data => x_msg_data
12782: );
12783:
12784: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12785: RAISE FND_API.G_EXC_ERROR;
12786: END IF;
12787:
12788: --create notification page
12781: ,x_msg_data => x_msg_data
12782: );
12783:
12784: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12785: RAISE FND_API.G_EXC_ERROR;
12786: END IF;
12787:
12788: --create notification page
12789: select page_content
12990: ,l_msg_count
12991: ,l_msg_data
12992: ,l_return_status
12993: );
12994: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
12995: PA_WORKFLOW_UTILS.INSERT_WF_PROCESSES(
12996: p_wf_type_code => 'WORKPLAN'
12997: ,p_item_type => 'PAWFPPWP'
12998: ,p_item_key => l_item_key
13005: );
13006: IF (l_err_code <> 0) THEN
13007: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
13008: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
13009: RAISE FND_API.G_EXC_ERROR;
13010: END IF;
13011: ELSE
13012: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
13013: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
13010: END IF;
13011: ELSE
13012: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
13013: p_msg_name => 'PA_PS_CREATE_WF_FAILED');
13014: RAISE FND_API.G_EXC_ERROR;
13015: END IF;
13016:
13017:
13018: x_return_status := FND_API.G_RET_STS_SUCCESS;
13014: RAISE FND_API.G_EXC_ERROR;
13015: END IF;
13016:
13017:
13018: x_return_status := FND_API.G_RET_STS_SUCCESS;
13019: COMMIT;
13020:
13021: EXCEPTION
13022: when FND_API.G_EXC_ERROR then
13018: x_return_status := FND_API.G_RET_STS_SUCCESS;
13019: COMMIT;
13020:
13021: EXCEPTION
13022: when FND_API.G_EXC_ERROR then
13023: ROLLBACK;
13024: x_msg_count := FND_MSG_PUB.count_msg;
13025: x_return_status := FND_API.G_RET_STS_ERROR;
13026: when OTHERS then
13021: EXCEPTION
13022: when FND_API.G_EXC_ERROR then
13023: ROLLBACK;
13024: x_msg_count := FND_MSG_PUB.count_msg;
13025: x_return_status := FND_API.G_RET_STS_ERROR;
13026: when OTHERS then
13027: ROLLBACK;
13028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13029: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13024: x_msg_count := FND_MSG_PUB.count_msg;
13025: x_return_status := FND_API.G_RET_STS_ERROR;
13026: when OTHERS then
13027: ROLLBACK;
13028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13029: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13030: p_procedure_name => 'Generate_Error_Page',
13031: p_error_text => SUBSTRB(SQLERRM,1,240));
13032: raise;
13211: AND relationship_type = 'S';
13212: END IF;
13213: END LOOP;
13214:
13215: x_return_status := FND_API.G_RET_STS_SUCCESS;
13216:
13217: EXCEPTION
13218: WHEN OTHERS THEN
13219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13215: x_return_status := FND_API.G_RET_STS_SUCCESS;
13216:
13217: EXCEPTION
13218: WHEN OTHERS THEN
13219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13220: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13221: p_procedure_name => 'RECALC_FIN_TASK_WEIGHTS',
13222: p_error_text => SUBSTRB(SQLERRM,1,240));
13223: END RECALC_FIN_TASK_WEIGHTS;
13258:
13259: -- Performance changes : added this API. It is bulk version of COPY_STRUCTURE_VERSION
13260:
13261: PROCEDURE COPY_STRUCTURE_VERSION_BULK
13262: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
13263: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13264: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
13265: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
13266: ,p_debug_mode IN VARCHAR2 := 'N'
13259: -- Performance changes : added this API. It is bulk version of COPY_STRUCTURE_VERSION
13260:
13261: PROCEDURE COPY_STRUCTURE_VERSION_BULK
13262: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
13263: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13264: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
13265: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
13266: ,p_debug_mode IN VARCHAR2 := 'N'
13267: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
13260:
13261: PROCEDURE COPY_STRUCTURE_VERSION_BULK
13262: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
13263: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13264: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
13265: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
13266: ,p_debug_mode IN VARCHAR2 := 'N'
13267: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
13268: ,p_structure_version_id IN NUMBER
13263: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
13264: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
13265: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
13266: ,p_debug_mode IN VARCHAR2 := 'N'
13267: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
13268: ,p_structure_version_id IN NUMBER
13269: ,p_new_struct_ver_name IN VARCHAR2
13270: ,p_new_struct_ver_desc IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
13271: ,p_change_reason_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
13378: IF (p_debug_mode = 'Y') THEN
13379: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION_BULK begin');
13380: END IF;
13381:
13382: IF (p_commit = FND_API.G_TRUE) THEN
13383: savepoint copy_structure_version_pvt_blk;
13384: END IF;
13385:
13386: -- Get structure version info
13475: x_msg_count := l_msg_count;
13476: IF x_msg_count = 1 THEN
13477: x_msg_data := l_msg_data;
13478: END IF;
13479: RAISE FND_API.G_EXC_ERROR;
13480: END IF;
13481:
13482: -- Get structure version attributes
13483: OPEN l_get_structure_ver_attr_csr(p_structure_version_id);
13488: l_structure_ver_attr_rec.change_reason_code := p_change_reason_code;
13489: END IF;
13490:
13491: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
13492: ( p_validate_only => FND_API.G_FALSE
13493: ,p_structure_version_id => l_new_struct_ver_id
13494: ,p_structure_version_name => p_new_struct_ver_name
13495: ,p_structure_version_desc => p_new_struct_ver_desc
13496: ,p_effective_date => l_structure_ver_attr_rec.effective_date
13516: x_msg_count := l_msg_count;
13517: IF x_msg_count = 1 THEN
13518: x_msg_data := l_msg_data;
13519: END IF;
13520: RAISE FND_API.G_EXC_ERROR;
13521: END IF;
13522:
13523: --Search for outgoing links for the structure version; create new Links
13524: -- Amit: Code(get_to_id) which was commented earlier is removed. If needed it can be found from COPY_STRUCTURE_VERSION
13601: x_msg_count := l_msg_count;
13602: IF x_msg_count = 1 THEN
13603: x_msg_data := l_msg_data;
13604: END IF;
13605: RAISE FND_API.G_EXC_ERROR;
13606: END IF;
13607: END IF;
13608:
13609: -- ELSIF l_structure_type in ('FINANCIAL') then
13614: if l_check_working_versions_csr%FOUND then
13615: CLOSE l_check_working_versions_csr;
13616: PA_UTILS.ADD_MESSAGE('PA','PA_PS_WORKING_VER_EXISTS');
13617: x_msg_data := 'PA_PS_WORKING_VER_EXISTS';
13618: RAISE FND_API.G_EXC_ERROR;
13619: end if;
13620: CLOSE l_check_working_versions_csr;
13621: end if;
13622:
13914: X_Msg_Count => X_Msg_Count,
13915: X_Msg_Data => X_Msg_Data
13916: );
13917:
13918: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13919: RAISE FND_API.G_EXC_ERROR;
13920: END IF;
13921:
13922: PA_RELATIONSHIP_PVT.Copy_Inter_Project_Dependency (
13915: X_Msg_Data => X_Msg_Data
13916: );
13917:
13918: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13919: RAISE FND_API.G_EXC_ERROR;
13920: END IF;
13921:
13922: PA_RELATIONSHIP_PVT.Copy_Inter_Project_Dependency (
13923: P_Source_Ver_Tbl => Old_Versions_Tab,
13925: X_Return_Status => X_Return_Status,
13926: X_Msg_Count => X_Msg_Count,
13927: X_Msg_Data => X_Msg_Data
13928: );
13929: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13930: RAISE FND_API.G_EXC_ERROR;
13931: END IF;
13932: End;
13933: /* SMukka 01-Mar-04 Bug No. 3450684 */
13926: X_Msg_Count => X_Msg_Count,
13927: X_Msg_Data => X_Msg_Data
13928: );
13929: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13930: RAISE FND_API.G_EXC_ERROR;
13931: END IF;
13932: End;
13933: /* SMukka 01-Mar-04 Bug No. 3450684 */
13934: /* Added call to PA_RELATIONSHIP_PVT.Copy_OG_Lnk_For_Subproj_Ass */
13956: p_dest_str_version_id => l_new_struct_ver_id, -- Destination Str version id can be of published str also
13957: x_return_status => X_Return_Status,
13958: x_msg_count => X_Msg_Count,
13959: x_msg_data => X_Msg_Data);
13960: IF (X_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
13961: x_msg_count := FND_MSG_PUB.count_msg;
13962: IF x_msg_count = 1 then
13963: pa_interface_utils_pub.get_messages
13964: (p_encoded => FND_API.G_TRUE,
13960: IF (X_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
13961: x_msg_count := FND_MSG_PUB.count_msg;
13962: IF x_msg_count = 1 then
13963: pa_interface_utils_pub.get_messages
13964: (p_encoded => FND_API.G_TRUE,
13965: p_msg_index => 1,
13966: p_msg_count => l_msg_count,
13967: p_msg_data => l_msg_data,
13968: p_data => l_data,
13968: p_data => l_data,
13969: p_msg_index_out => l_msg_index_out);
13970: x_msg_data := l_data;
13971: END IF;
13972: raise FND_API.G_EXC_ERROR;
13973: END IF;
13974:
13975: end if; -- Fix for Bug # 4530436.
13976:
13986: ,x_msg_count => x_msg_count
13987: ,x_msg_data => x_msg_data
13988: );
13989:
13990: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13991: RAISE FND_API.G_EXC_ERROR;
13992: END IF;
13993: EXCEPTION
13994: WHEN OTHERS THEN
13987: ,x_msg_data => x_msg_data
13988: );
13989:
13990: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13991: RAISE FND_API.G_EXC_ERROR;
13992: END IF;
13993: EXCEPTION
13994: WHEN OTHERS THEN
13995: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13994: WHEN OTHERS THEN
13995: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
13996: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
13997: p_error_text => SUBSTRB('PA_PROJ_STRUC_MAPPING_PUB.copy_mapping:'||SQLERRM,1,240));
13998: RAISE FND_API.G_EXC_ERROR;
13999: END;
14000:
14001: -- Changes added by skannoji
14002: -- Added code for doosan customer
14033: WHEN OTHERS THEN
14034: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14035: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
14036: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
14037: RAISE FND_API.G_EXC_ERROR;
14038: END;
14039: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14040: RAISE FND_API.G_EXC_ERROR;
14041: END IF;
14035: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
14036: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
14037: RAISE FND_API.G_EXC_ERROR;
14038: END;
14039: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14040: RAISE FND_API.G_EXC_ERROR;
14041: END IF;
14042: End;
14043: END IF;
14036: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
14037: RAISE FND_API.G_EXC_ERROR;
14038: END;
14039: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14040: RAISE FND_API.G_EXC_ERROR;
14041: END IF;
14042: End;
14043: END IF;
14044: -- till here by skannoji
14056: ;
14057:
14058:
14059: x_new_struct_ver_id := l_new_struct_ver_id;
14060: x_return_status := FND_API.G_RET_STS_SUCCESS;
14061:
14062: IF (p_commit = FND_API.G_TRUE) THEN
14063: COMMIT;
14064: END IF;
14058:
14059: x_new_struct_ver_id := l_new_struct_ver_id;
14060: x_return_status := FND_API.G_RET_STS_SUCCESS;
14061:
14062: IF (p_commit = FND_API.G_TRUE) THEN
14063: COMMIT;
14064: END IF;
14065:
14066: IF (p_debug_mode = 'Y') THEN
14067: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION_BULK END');
14068: END IF;
14069:
14070: EXCEPTION
14071: when FND_API.G_EXC_ERROR then
14072: if p_commit = FND_API.G_TRUE then
14073: rollback to copy_structure_version_pvt_blk;
14074: end if;
14075: x_return_status := FND_API.G_RET_STS_ERROR;
14068: END IF;
14069:
14070: EXCEPTION
14071: when FND_API.G_EXC_ERROR then
14072: if p_commit = FND_API.G_TRUE then
14073: rollback to copy_structure_version_pvt_blk;
14074: end if;
14075: x_return_status := FND_API.G_RET_STS_ERROR;
14076: when FND_API.G_EXC_UNEXPECTED_ERROR then
14071: when FND_API.G_EXC_ERROR then
14072: if p_commit = FND_API.G_TRUE then
14073: rollback to copy_structure_version_pvt_blk;
14074: end if;
14075: x_return_status := FND_API.G_RET_STS_ERROR;
14076: when FND_API.G_EXC_UNEXPECTED_ERROR then
14077: if p_commit = FND_API.G_TRUE then
14078: rollback to copy_structure_version_pvt_blk;
14079: end if;
14072: if p_commit = FND_API.G_TRUE then
14073: rollback to copy_structure_version_pvt_blk;
14074: end if;
14075: x_return_status := FND_API.G_RET_STS_ERROR;
14076: when FND_API.G_EXC_UNEXPECTED_ERROR then
14077: if p_commit = FND_API.G_TRUE then
14078: rollback to copy_structure_version_pvt_blk;
14079: end if;
14080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14073: rollback to copy_structure_version_pvt_blk;
14074: end if;
14075: x_return_status := FND_API.G_RET_STS_ERROR;
14076: when FND_API.G_EXC_UNEXPECTED_ERROR then
14077: if p_commit = FND_API.G_TRUE then
14078: rollback to copy_structure_version_pvt_blk;
14079: end if;
14080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14081: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14076: when FND_API.G_EXC_UNEXPECTED_ERROR then
14077: if p_commit = FND_API.G_TRUE then
14078: rollback to copy_structure_version_pvt_blk;
14079: end if;
14080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14081: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14082: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
14083: p_error_text => SUBSTRB(SQLERRM,1,240));
14084: when OTHERS then
14081: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14082: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
14083: p_error_text => SUBSTRB(SQLERRM,1,240));
14084: when OTHERS then
14085: if p_commit = FND_API.G_TRUE then
14086: rollback to copy_structure_version_pvt_blk;
14087: end if;
14088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14089: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14084: when OTHERS then
14085: if p_commit = FND_API.G_TRUE then
14086: rollback to copy_structure_version_pvt_blk;
14087: end if;
14088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14089: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14090: p_procedure_name => 'COPY_STRUCTURE_VERSION_BULK',
14091: p_error_text => SUBSTRB(SQLERRM,1,240));
14092: raise;
14101: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
14102: )
14103: IS
14104: l_dirty_flag VARCHAR2(1);
14105: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
14106:
14107: --Bug No 3634334
14108: --Commented the following query for performance reason and rewritten the same.
14109: --Getting the project_id from pa_proj_element_versions table instead of getting
14152:
14153: x_return_status := l_return_status;
14154: EXCEPTION
14155: WHEN OTHERS THEN
14156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14157: x_msg_count := FND_MSG_PUB.count_msg;
14158: --put message
14159: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
14160: p_procedure_name => 'update_sch_dirty_flag',
14165: --bug 3305199
14166: --Please refer to update_structures_setup_old for old code
14167: PROCEDURE update_structures_setup_attr
14168: ( p_api_version IN NUMBER := 1.0
14169: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
14170: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
14171: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
14172: ,p_validation_level IN VARCHAR2 := 100
14173: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
14166: --Please refer to update_structures_setup_old for old code
14167: PROCEDURE update_structures_setup_attr
14168: ( p_api_version IN NUMBER := 1.0
14169: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
14170: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
14171: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
14172: ,p_validation_level IN VARCHAR2 := 100
14173: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
14174: ,p_debug_mode IN VARCHAR2 := 'N'
14167: PROCEDURE update_structures_setup_attr
14168: ( p_api_version IN NUMBER := 1.0
14169: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
14170: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
14171: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
14172: ,p_validation_level IN VARCHAR2 := 100
14173: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
14174: ,p_debug_mode IN VARCHAR2 := 'N'
14175: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
14520: IF (p_debug_mode = 'Y') THEN
14521: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_structures_setup_attr');
14522: END IF;
14523:
14524: IF (p_commit = FND_API.G_TRUE) THEN
14525: savepoint update_struc_setup_attr_pvt;
14526: END IF;
14527:
14528: IF (p_debug_mode = 'Y') THEN
14567: ) then
14568:
14569: PA_UTILS.ADD_MESSAGE('PA', 'PA_WP_PROG_CANT_CHG_STR');
14570:
14571: RAISE FND_API.G_EXC_ERROR;
14572:
14573: end if;
14574:
14575: -- End fix for Bug # 4426392.
14583: l_err_msg_code);
14584: IF (l_ret_stat = 'N') THEN
14585: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
14586: x_msg_data := l_err_msg_code;
14587: RAISE FND_API.G_EXC_ERROR;
14588: END IF;
14589: END IF;
14590:
14591: --check if ok to disable workplan
14595: l_err_msg_code);
14596: IF (l_ret_stat = 'N') THEN
14597: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
14598: x_msg_data := l_err_msg_code;
14599: RAISE FND_API.G_EXC_ERROR;
14600: END IF;
14601: END IF;
14602:
14603: --check if ok to share
14607: l_err_msg_code);
14608: IF (l_ret_stat = 'N') THEN
14609: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
14610: x_msg_data := l_err_msg_code;
14611: RAISE FND_API.G_EXC_ERROR;
14612: END IF;
14613: END IF;
14614:
14615: --check if ok to split
14619: l_err_msg_code);
14620: IF (l_ret_stat = 'N') THEN
14621: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
14622: x_msg_data := l_err_msg_code;
14623: RAISE FND_API.G_EXC_ERROR;
14624: END IF;
14625: END IF;
14626:
14627: IF (l_proj_completion_date IS NULL AND l_proj_start_date IS NOT NULL) THEN
14649: ELSIF (p_workplan_enabled_flag = 'N' and p_financial_enabled_flag = 'Y') THEN
14650: --disable workplan (enable financial)
14651: --create financial structure API
14652: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
14653: (p_validate_only => FND_API.G_FALSE
14654: ,p_project_id => p_project_id
14655: ,p_structure_number => l_name
14656: ,p_structure_name => l_name
14657: ,p_calling_flag => 'FINANCIAL'
14666: x_msg_count := l_msg_count;
14667: IF x_msg_count = 1 THEN
14668: x_msg_data := l_msg_data;
14669: END IF;
14670: RAISE FND_API.G_EXC_ERROR;
14671: END IF;
14672:
14673: --create row in pa_proj_workplan_attr
14674: PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE
14671: END IF;
14672:
14673: --create row in pa_proj_workplan_attr
14674: PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE
14675: (p_validate_only => FND_API.G_FALSE
14676: ,p_project_id => p_project_id
14677: ,p_proj_element_id => l_structure_id
14678: ,x_return_status => l_return_status
14679: ,x_msg_count => l_msg_count
14685: x_msg_count := l_msg_count;
14686: IF x_msg_count = 1 THEN
14687: x_msg_data := l_msg_data;
14688: END IF;
14689: RAISE FND_API.G_EXC_ERROR;
14690: END IF;
14691:
14692: --create structure version
14693: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
14690: END IF;
14691:
14692: --create structure version
14693: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
14694: (p_validate_only => FND_API.G_FALSE
14695: ,p_structure_id => l_structure_id
14696: ,x_structure_version_id => l_structure_version_id
14697: ,x_return_status => l_return_status
14698: ,x_msg_count => l_msg_count
14704: x_msg_count := l_msg_count;
14705: IF x_msg_count = 1 THEN
14706: x_msg_data := l_msg_data;
14707: END IF;
14708: RAISE FND_API.G_EXC_ERROR;
14709: END IF;
14710:
14711: IF (l_template_flag = 'Y') THEN
14712: l_status_code := 'STRUCTURE_WORKING';
14721: END IF;
14722:
14723: --create structure version
14724: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
14725: (p_validate_only => FND_API.G_FALSE
14726: ,p_structure_version_id => l_structure_version_id
14727: ,p_structure_version_name => l_name
14728: ,p_structure_version_desc => NULL
14729: ,p_effective_date => l_effective_date
14743: x_msg_count := l_msg_count;
14744: IF x_msg_count = 1 THEN
14745: x_msg_data := l_msg_data;
14746: END IF;
14747: RAISE FND_API.G_EXC_ERROR;
14748: END IF;
14749:
14750: ELSIF (p_workplan_enabled_flag = 'Y' and p_financial_enabled_flag = 'N') THEN
14751: --disable financial (enable workplan)
14750: ELSIF (p_workplan_enabled_flag = 'Y' and p_financial_enabled_flag = 'N') THEN
14751: --disable financial (enable workplan)
14752: --create workplan structure
14753: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
14754: (p_validate_only => FND_API.G_FALSE
14755: ,p_project_id => p_project_id
14756: ,p_structure_number => l_wp_name
14757: ,p_structure_name => l_wp_name
14758: ,p_calling_flag => 'WORKPLAN'
14767: x_msg_count := l_msg_count;
14768: IF x_msg_count = 1 THEN
14769: x_msg_data := l_msg_data;
14770: END IF;
14771: RAISE FND_API.G_EXC_ERROR;
14772: END IF;
14773:
14774: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
14775: (p_validate_only => FND_API.G_FALSE
14771: RAISE FND_API.G_EXC_ERROR;
14772: END IF;
14773:
14774: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
14775: (p_validate_only => FND_API.G_FALSE
14776: ,p_structure_id => l_structure_id
14777: ,x_structure_version_id => l_structure_version_id
14778: ,x_return_status => l_return_status
14779: ,x_msg_count => l_msg_count
14785: x_msg_count := l_msg_count;
14786: IF x_msg_count = 1 THEN
14787: x_msg_data := l_msg_data;
14788: END IF;
14789: RAISE FND_API.G_EXC_ERROR;
14790: END IF;
14791:
14792: PA_TASK_PUB1.Create_Schedule_Version(
14793: p_element_version_id => l_structure_version_id
14804: x_msg_count := l_msg_count;
14805: IF x_msg_count = 1 THEN
14806: x_msg_data := l_msg_data;
14807: END IF;
14808: RAISE FND_API.G_EXC_ERROR;
14809: END IF;
14810:
14811: IF (l_template_flag = 'Y') THEN
14812: l_status_code := 'STRUCTURE_WORKING';
14821: END IF;
14822:
14823: --create structure version
14824: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
14825: (p_validate_only => FND_API.G_FALSE
14826: ,p_structure_version_id => l_structure_version_id
14827: ,p_structure_version_name => l_name
14828: ,p_structure_version_desc => NULL
14829: ,p_effective_date => l_effective_date
14843: x_msg_count := l_msg_count;
14844: IF x_msg_count = 1 THEN
14845: x_msg_data := l_msg_data;
14846: END IF;
14847: RAISE FND_API.G_EXC_ERROR;
14848: END IF;
14849:
14850: ELSIF (p_workplan_enabled_flag = 'Y' and p_financial_enabled_flag = 'Y' and p_sharing_option_code IN ('SHARE_PARTIAL', 'SHARE_FULL')) THEN
14851: --partial share/full share
14850: ELSIF (p_workplan_enabled_flag = 'Y' and p_financial_enabled_flag = 'Y' and p_sharing_option_code IN ('SHARE_PARTIAL', 'SHARE_FULL')) THEN
14851: --partial share/full share
14852: --enable workplan structure API
14853: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
14854: (p_validate_only => FND_API.G_FALSE
14855: ,p_project_id => p_project_id
14856: ,p_structure_number => l_name
14857: ,p_structure_name => l_name
14858: ,p_calling_flag => 'WORKPLAN'
14867: x_msg_count := l_msg_count;
14868: IF x_msg_count = 1 THEN
14869: x_msg_data := l_msg_data;
14870: END IF;
14871: RAISE FND_API.G_EXC_ERROR;
14872: END IF;
14873:
14874: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
14875: (p_validate_only => FND_API.G_FALSE
14871: RAISE FND_API.G_EXC_ERROR;
14872: END IF;
14873:
14874: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
14875: (p_validate_only => FND_API.G_FALSE
14876: ,p_structure_id => l_structure_id
14877: ,x_structure_version_id => l_structure_version_id
14878: ,x_return_status => l_return_status
14879: ,x_msg_count => l_msg_count
14885: x_msg_count := l_msg_count;
14886: IF x_msg_count = 1 THEN
14887: x_msg_data := l_msg_data;
14888: END IF;
14889: RAISE FND_API.G_EXC_ERROR;
14890: END IF;
14891:
14892: PA_TASK_PUB1.Create_Schedule_Version(
14893: p_element_version_id => l_structure_version_id
14904: x_msg_count := l_msg_count;
14905: IF x_msg_count = 1 THEN
14906: x_msg_data := l_msg_data;
14907: END IF;
14908: RAISE FND_API.G_EXC_ERROR;
14909: END IF;
14910:
14911: IF (l_template_flag = 'Y') THEN
14912: l_status_code := 'STRUCTURE_WORKING';
14921: END IF;
14922:
14923: --create structure version
14924: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
14925: (p_validate_only => FND_API.G_FALSE
14926: ,p_structure_version_id => l_structure_version_id
14927: ,p_structure_version_name => l_name
14928: ,p_structure_version_desc => NULL
14929: ,p_effective_date => l_effective_date
14943: x_msg_count := l_msg_count;
14944: IF x_msg_count = 1 THEN
14945: x_msg_data := l_msg_data;
14946: END IF;
14947: RAISE FND_API.G_EXC_ERROR;
14948: END IF;
14949:
14950: --create financial type
14951: OPEN sel_fin_struc_type_id;
15011: ELSIF (p_workplan_enabled_flag = 'Y' and p_financial_enabled_flag = 'Y' and p_sharing_option_code IN ('SPLIT_MAPPING','SPLIT_NO_MAPPING')) THEN
15012: --split mapping/split no mapping
15013: --enable financial structure API
15014: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
15015: (p_validate_only => FND_API.G_FALSE
15016: ,p_project_id => p_project_id
15017: ,p_structure_number => l_name
15018: ,p_structure_name => l_name
15019: ,p_calling_flag => 'FINANCIAL'
15028: x_msg_count := l_msg_count;
15029: IF x_msg_count = 1 THEN
15030: x_msg_data := l_msg_data;
15031: END IF;
15032: RAISE FND_API.G_EXC_ERROR;
15033: END IF;
15034:
15035: --create row in pa_proj_workplan_attr
15036: PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE
15033: END IF;
15034:
15035: --create row in pa_proj_workplan_attr
15036: PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE
15037: (p_validate_only => FND_API.G_FALSE
15038: ,p_project_id => p_project_id
15039: ,p_proj_element_id => l_structure_id
15040: ,x_return_status => l_return_status
15041: ,x_msg_count => l_msg_count
15047: x_msg_count := l_msg_count;
15048: IF x_msg_count = 1 THEN
15049: x_msg_data := l_msg_data;
15050: END IF;
15051: RAISE FND_API.G_EXC_ERROR;
15052: END IF;
15053:
15054: --create structure version
15055: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
15052: END IF;
15053:
15054: --create structure version
15055: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
15056: (p_validate_only => FND_API.G_FALSE
15057: ,p_structure_id => l_structure_id
15058: ,x_structure_version_id => l_structure_version_id
15059: ,x_return_status => l_return_status
15060: ,x_msg_count => l_msg_count
15066: x_msg_count := l_msg_count;
15067: IF x_msg_count = 1 THEN
15068: x_msg_data := l_msg_data;
15069: END IF;
15070: RAISE FND_API.G_EXC_ERROR;
15071: END IF;
15072:
15073: IF (l_template_flag = 'Y') THEN
15074: l_status_code := 'STRUCTURE_WORKING';
15083: END IF;
15084:
15085: --create structure version
15086: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
15087: (p_validate_only => FND_API.G_FALSE
15088: ,p_structure_version_id => l_structure_version_id
15089: ,p_structure_version_name => l_name
15090: ,p_structure_version_desc => NULL
15091: ,p_effective_date => l_effective_date
15105: x_msg_count := l_msg_count;
15106: IF x_msg_count = 1 THEN
15107: x_msg_data := l_msg_data;
15108: END IF;
15109: RAISE FND_API.G_EXC_ERROR;
15110: END IF;
15111:
15112: --create workplan structure
15113: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
15110: END IF;
15111:
15112: --create workplan structure
15113: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
15114: (p_validate_only => FND_API.G_FALSE
15115: ,p_project_id => p_project_id
15116: ,p_structure_number => l_wp_name
15117: ,p_structure_name => l_wp_name
15118: ,p_calling_flag => 'WORKPLAN'
15127: x_msg_count := l_msg_count;
15128: IF x_msg_count = 1 THEN
15129: x_msg_data := l_msg_data;
15130: END IF;
15131: RAISE FND_API.G_EXC_ERROR;
15132: END IF;
15133:
15134: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
15135: (p_validate_only => FND_API.G_FALSE
15131: RAISE FND_API.G_EXC_ERROR;
15132: END IF;
15133:
15134: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
15135: (p_validate_only => FND_API.G_FALSE
15136: ,p_structure_id => l_structure_id
15137: ,x_structure_version_id => l_structure_version_id
15138: ,x_return_status => l_return_status
15139: ,x_msg_count => l_msg_count
15145: x_msg_count := l_msg_count;
15146: IF x_msg_count = 1 THEN
15147: x_msg_data := l_msg_data;
15148: END IF;
15149: RAISE FND_API.G_EXC_ERROR;
15150: END IF;
15151:
15152: PA_TASK_PUB1.Create_Schedule_Version(
15153: p_element_version_id => l_structure_version_id
15164: x_msg_count := l_msg_count;
15165: IF x_msg_count = 1 THEN
15166: x_msg_data := l_msg_data;
15167: END IF;
15168: RAISE FND_API.G_EXC_ERROR;
15169: END IF;
15170:
15171: IF (l_template_flag = 'Y') THEN
15172: l_status_code := 'STRUCTURE_WORKING';
15181: END IF;
15182:
15183: --create structure version
15184: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
15185: (p_validate_only => FND_API.G_FALSE
15186: ,p_structure_version_id => l_structure_version_id
15187: ,p_structure_version_name => l_name
15188: ,p_structure_version_desc => NULL
15189: ,p_effective_date => l_effective_date
15203: x_msg_count := l_msg_count;
15204: IF x_msg_count = 1 THEN
15205: x_msg_data := l_msg_data;
15206: END IF;
15207: RAISE FND_API.G_EXC_ERROR;
15208: END IF;
15209:
15210: IF (p_sharing_option_code = 'SPLIT_MAPPING') THEN
15211: NULL;
15220: IF (p_workplan_enabled_flag = 'N' and p_financial_enabled_flag = 'N') THEN
15221: --disabled both
15222: --disable financial structure API
15223: PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE(
15224: p_validate_only => FND_API.G_FALSE
15225: ,p_project_id => p_project_id
15226: ,x_return_status => l_return_status
15227: ,x_msg_count => l_msg_count
15228: ,x_msg_data => l_msg_data);
15233: x_msg_count := l_msg_count;
15234: IF x_msg_count = 1 THEN
15235: x_msg_data := l_msg_data;
15236: END IF;
15237: RAISE FND_API.G_EXC_ERROR;
15238: END IF;
15239:
15240: ELSIF (p_workplan_enabled_flag = 'N' and p_financial_enabled_flag = 'Y') THEN
15241: --disable workplan (enable financial)
15243: ELSIF (p_workplan_enabled_flag = 'Y' and p_financial_enabled_flag = 'N') THEN
15244: --disable financial (enable workplan)
15245: --disable financial structure API
15246: PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE(
15247: p_validate_only => FND_API.G_FALSE
15248: ,p_project_id => p_project_id
15249: ,x_return_status => l_return_status
15250: ,x_msg_count => l_msg_count
15251: ,x_msg_data => l_msg_data);
15256: x_msg_count := l_msg_count;
15257: IF x_msg_count = 1 THEN
15258: x_msg_data := l_msg_data;
15259: END IF;
15260: RAISE FND_API.G_EXC_ERROR;
15261: END IF;
15262:
15263: --create workplan structure
15264: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
15261: END IF;
15262:
15263: --create workplan structure
15264: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
15265: (p_validate_only => FND_API.G_FALSE
15266: ,p_project_id => p_project_id
15267: ,p_structure_number => l_wp_name
15268: ,p_structure_name => l_wp_name
15269: ,p_calling_flag => 'WORKPLAN'
15278: x_msg_count := l_msg_count;
15279: IF x_msg_count = 1 THEN
15280: x_msg_data := l_msg_data;
15281: END IF;
15282: RAISE FND_API.G_EXC_ERROR;
15283: END IF;
15284:
15285: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
15286: (p_validate_only => FND_API.G_FALSE
15282: RAISE FND_API.G_EXC_ERROR;
15283: END IF;
15284:
15285: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
15286: (p_validate_only => FND_API.G_FALSE
15287: ,p_structure_id => l_structure_id
15288: ,x_structure_version_id => l_structure_version_id
15289: ,x_return_status => l_return_status
15290: ,x_msg_count => l_msg_count
15296: x_msg_count := l_msg_count;
15297: IF x_msg_count = 1 THEN
15298: x_msg_data := l_msg_data;
15299: END IF;
15300: RAISE FND_API.G_EXC_ERROR;
15301: END IF;
15302:
15303: PA_TASK_PUB1.Create_Schedule_Version(
15304: p_element_version_id => l_structure_version_id
15315: x_msg_count := l_msg_count;
15316: IF x_msg_count = 1 THEN
15317: x_msg_data := l_msg_data;
15318: END IF;
15319: RAISE FND_API.G_EXC_ERROR;
15320: END IF;
15321:
15322: IF (l_template_flag = 'Y') THEN
15323: l_status_code := 'STRUCTURE_WORKING';
15332: END IF;
15333:
15334: --create structure version
15335: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
15336: (p_validate_only => FND_API.G_FALSE
15337: ,p_structure_version_id => l_structure_version_id
15338: ,p_structure_version_name => l_wp_name
15339: ,p_structure_version_desc => NULL
15340: ,p_effective_date => l_effective_date
15354: x_msg_count := l_msg_count;
15355: IF x_msg_count = 1 THEN
15356: x_msg_data := l_msg_data;
15357: END IF;
15358: RAISE FND_API.G_EXC_ERROR;
15359: END IF;
15360:
15361: ELSIF (p_workplan_enabled_flag = 'Y' and p_financial_enabled_flag = 'Y' and p_sharing_option_code IN ('SHARE_PARTIAL', 'SHARE_FULL')) THEN
15362: --partial share
15395:
15396: --add progress row
15397: l_proj_prog_attr_id := NULL;
15398: PA_PROGRESS_PUB.CREATE_PROJ_PROG_ATTR(
15399: p_validate_only => FND_API.G_FALSE
15400: ,p_project_id => p_project_id
15401: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
15402: ,P_OBJECT_ID => l_structure_id
15403: ,p_action_set_id => NULL
15413: x_msg_count := l_msg_count;
15414: IF x_msg_count = 1 THEN
15415: x_msg_data := l_msg_data;
15416: END IF;
15417: RAISE FND_API.G_EXC_ERROR;
15418: END IF;
15419:
15420: OPEN sel_struc_ver(l_structure_id);
15421: FETCH sel_struc_ver into l_structure_version_id;
15436: WHEN OTHERS THEN
15437: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
15438: p_procedure_name => 'update_structures_setup_attr',
15439: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
15440: RAISE FND_API.G_EXC_ERROR;
15441: END;
15442: --Check if there is any error.
15443: l_msg_count := FND_MSG_PUB.count_msg;
15444: IF l_msg_count > 0 THEN
15445: x_msg_count := l_msg_count;
15446: IF x_msg_count = 1 THEN
15447: x_msg_data := l_msg_data;
15448: END IF;
15449: RAISE FND_API.G_EXC_ERROR;
15450: END IF;
15451:
15452:
15453: --create schedule row for each task
15507:
15508: IF (l_task_ver_ids_tbl.count > 0) THEN
15509: --rollup
15510: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup_Unlimited(
15511: p_commit => FND_API.G_FALSE,
15512: p_element_versions => l_task_ver_ids_tbl,
15513: x_return_status => l_return_status,
15514: x_msg_count => l_msg_count,
15515: x_msg_data => l_msg_data);
15520: x_msg_count := l_msg_count;
15521: IF x_msg_count = 1 THEN
15522: x_msg_data := l_msg_data;
15523: END IF;
15524: RAISE FND_API.G_EXC_ERROR;
15525: END IF;
15526: END IF;
15527:
15528: IF (l_status_code = 'STRUCTURE_PUBLISHED') OR
15538: FETCH get_template_flag into l_template_flag, l_proj_rec_ver_num;
15539: CLOSE get_template_flag;
15540:
15541: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
15542: p_validate_only => FND_API.G_FALSE
15543: ,p_project_id => p_project_id
15544: ,p_date_type => 'SCHEDULED'
15545: ,p_start_date => l_get_sch_dates_cur.scheduled_start_date
15546: ,p_finish_date => l_get_sch_dates_cur.scheduled_finish_date
15548: ,x_return_status => x_return_status
15549: ,x_msg_count => x_msg_count
15550: ,x_msg_data => x_msg_data );
15551:
15552: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15553: RAISE FND_API.G_EXC_ERROR;
15554: END IF;
15555: END IF;
15556:
15549: ,x_msg_count => x_msg_count
15550: ,x_msg_data => x_msg_data );
15551:
15552: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15553: RAISE FND_API.G_EXC_ERROR;
15554: END IF;
15555: END IF;
15556:
15557: RECALC_FIN_TASK_WEIGHTS(
15566: x_msg_count := l_msg_count;
15567: IF x_msg_count = 1 THEN
15568: x_msg_data := l_msg_data;
15569: END IF;
15570: RAISE FND_API.G_EXC_ERROR;
15571: END IF;
15572:
15573: -- Begin fix for Bug # 4426392.
15574:
15641: ELSIF (p_workplan_enabled_flag = 'Y' and p_financial_enabled_flag = 'Y' and p_sharing_option_code IN ('SPLIT_NO_MAPPING', 'SPLIT_MAPPING')) THEN
15642: --split mapping
15643: --Create default workplan structure
15644: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
15645: (p_validate_only => FND_API.G_FALSE
15646: ,p_project_id => p_project_id
15647: ,p_structure_number => l_wp_name
15648: ,p_structure_name => l_wp_name
15649: ,p_calling_flag => 'WORKPLAN'
15658: x_msg_count := l_msg_count;
15659: IF x_msg_count = 1 THEN
15660: x_msg_data := l_msg_data;
15661: END IF;
15662: RAISE FND_API.G_EXC_ERROR;
15663: END IF;
15664:
15665: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
15666: (p_validate_only => FND_API.G_FALSE
15662: RAISE FND_API.G_EXC_ERROR;
15663: END IF;
15664:
15665: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
15666: (p_validate_only => FND_API.G_FALSE
15667: ,p_structure_id => l_structure_id
15668: ,x_structure_version_id => l_structure_version_id
15669: ,x_return_status => l_return_status
15670: ,x_msg_count => l_msg_count
15676: x_msg_count := l_msg_count;
15677: IF x_msg_count = 1 THEN
15678: x_msg_data := l_msg_data;
15679: END IF;
15680: RAISE FND_API.G_EXC_ERROR;
15681: END IF;
15682:
15683: PA_TASK_PUB1.Create_Schedule_Version(
15684: p_element_version_id => l_structure_version_id
15695: x_msg_count := l_msg_count;
15696: IF x_msg_count = 1 THEN
15697: x_msg_data := l_msg_data;
15698: END IF;
15699: RAISE FND_API.G_EXC_ERROR;
15700: END IF;
15701:
15702: IF (l_template_flag = 'Y') THEN
15703: l_status_code := 'STRUCTURE_WORKING';
15712: END IF;
15713:
15714: --create structure version
15715: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
15716: (p_validate_only => FND_API.G_FALSE
15717: ,p_structure_version_id => l_structure_version_id
15718: ,p_structure_version_name => l_name
15719: ,p_structure_version_desc => NULL
15720: ,p_effective_date => l_effective_date
15734: x_msg_count := l_msg_count;
15735: IF x_msg_count = 1 THEN
15736: x_msg_data := l_msg_data;
15737: END IF;
15738: RAISE FND_API.G_EXC_ERROR;
15739: END IF;
15740:
15741: IF (p_sharing_option_code = 'SPLIT_NO_MAPPING') THEN
15742: NULL;
15770: l_err_msg_code);
15771: IF (l_return_status <> 'S') THEN
15772: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
15773: x_msg_data := l_err_msg_code;
15774: RAISE FND_API.G_EXC_ERROR;
15775: END IF;
15776:
15777: --get top tasks
15778: OPEN get_top_tasks(l_del_struc_ver_id);
15791: x_return_status := l_return_status;
15792: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
15793: l_msg_data := l_err_msg_code;
15794: CLOSE get_top_tasks;
15795: RAISE FND_API.G_EXC_ERROR;
15796: END IF;
15797: END LOOP;
15798: CLOSE get_top_tasks;
15799:
15811: IF x_msg_count = 1 THEN
15812: x_msg_data := l_msg_data;
15813: END IF;
15814: CLOSE sel_all_wp_structure_ver;
15815: RAISE FND_API.G_EXC_ERROR;
15816: END IF;
15817: END LOOP;
15818: CLOSE sel_all_wp_structure_ver;
15819:
15822: ELSIF (p_financial_enabled_flag = 'Y') THEN
15823: --call enable financial structure API
15824: --enable financial structure API
15825: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
15826: (p_validate_only => FND_API.G_FALSE
15827: ,p_project_id => p_project_id
15828: ,p_structure_number => l_name
15829: ,p_structure_name => l_name
15830: ,p_calling_flag => 'FINANCIAL'
15839: x_msg_count := l_msg_count;
15840: IF x_msg_count = 1 THEN
15841: x_msg_data := l_msg_data;
15842: END IF;
15843: RAISE FND_API.G_EXC_ERROR;
15844: END IF;
15845:
15846: --create row in pa_proj_workplan_attr
15847: PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE
15844: END IF;
15845:
15846: --create row in pa_proj_workplan_attr
15847: PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE
15848: (p_validate_only => FND_API.G_FALSE
15849: ,p_project_id => p_project_id
15850: ,p_proj_element_id => l_structure_id
15851: ,x_return_status => l_return_status
15852: ,x_msg_count => l_msg_count
15858: x_msg_count := l_msg_count;
15859: IF x_msg_count = 1 THEN
15860: x_msg_data := l_msg_data;
15861: END IF;
15862: RAISE FND_API.G_EXC_ERROR;
15863: END IF;
15864:
15865: --create structure version
15866: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
15863: END IF;
15864:
15865: --create structure version
15866: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
15867: (p_validate_only => FND_API.G_FALSE
15868: ,p_structure_id => l_structure_id
15869: ,x_structure_version_id => l_structure_version_id
15870: ,x_return_status => l_return_status
15871: ,x_msg_count => l_msg_count
15877: x_msg_count := l_msg_count;
15878: IF x_msg_count = 1 THEN
15879: x_msg_data := l_msg_data;
15880: END IF;
15881: RAISE FND_API.G_EXC_ERROR;
15882: END IF;
15883:
15884: IF (l_template_flag = 'Y') THEN
15885: l_status_code := 'STRUCTURE_WORKING';
15894: END IF;
15895:
15896: --create structure version
15897: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
15898: (p_validate_only => FND_API.G_FALSE
15899: ,p_structure_version_id => l_structure_version_id
15900: ,p_structure_version_name => l_name
15901: ,p_structure_version_desc => NULL
15902: ,p_effective_date => l_effective_date
15916: x_msg_count := l_msg_count;
15917: IF x_msg_count = 1 THEN
15918: x_msg_data := l_msg_data;
15919: END IF;
15920: RAISE FND_API.G_EXC_ERROR;
15921: END IF;
15922:
15923: END IF;
15924:
15992:
15993: --bug 4114101
15994: --insert progress attr row for financial struc
15995: PA_PROGRESS_PUB.CREATE_PROJ_PROG_ATTR(
15996: p_validate_only => FND_API.G_FALSE
15997: ,p_project_id => p_project_id
15998: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
15999: ,P_OBJECT_ID => l_structure_id
16000: ,P_PROGRESS_CYCLE_ID => to_number(null)
16017: x_msg_count := l_msg_count;
16018: IF x_msg_count = 1 THEN
16019: x_msg_data := l_msg_data;
16020: END IF;
16021: RAISE FND_API.G_EXC_ERROR;
16022: END IF;
16023: --end bug 4114101
16024:
16025: IF (p_sharing_option_code = 'SHARE_PARTIAL') THEN
16046: ,p_syncup_all_tasks => 'Y'
16047: ,p_task_version_id => NULL
16048: ,p_structure_version_id => l_structure_version_id
16049: ,p_check_for_transactions => 'N'
16050: ,p_checked_flag => FND_API.G_MISS_CHAR
16051: ,p_mode => 'ALL'
16052: ,x_return_status => l_return_status
16053: ,x_msg_count => l_msg_count
16054: ,x_msg_data => l_msg_data);
16059: x_msg_count := l_msg_count;
16060: IF x_msg_count = 1 THEN
16061: x_msg_data := l_msg_data;
16062: END IF;
16063: RAISE FND_API.G_EXC_ERROR;
16064: END IF;
16065:
16066: -- Begin fix for Bug # 4426392.
16067:
16128: --split mapping/ no mapping
16129: --call enable financial structure API
16130: --create financial structure API
16131: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
16132: (p_validate_only => FND_API.G_FALSE
16133: ,p_project_id => p_project_id
16134: ,p_structure_number => l_name
16135: ,p_structure_name => l_name
16136: ,p_calling_flag => 'FINANCIAL'
16145: x_msg_count := l_msg_count;
16146: IF x_msg_count = 1 THEN
16147: x_msg_data := l_msg_data;
16148: END IF;
16149: RAISE FND_API.G_EXC_ERROR;
16150: END IF;
16151:
16152: --create row in pa_proj_workplan_attr
16153: PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE
16150: END IF;
16151:
16152: --create row in pa_proj_workplan_attr
16153: PA_PROJECT_STRUCTURE_PUB1.ENABLE_FINANCIAL_STRUCTURE
16154: (p_validate_only => FND_API.G_FALSE
16155: ,p_project_id => p_project_id
16156: ,p_proj_element_id => l_structure_id
16157: ,x_return_status => l_return_status
16158: ,x_msg_count => l_msg_count
16164: x_msg_count := l_msg_count;
16165: IF x_msg_count = 1 THEN
16166: x_msg_data := l_msg_data;
16167: END IF;
16168: RAISE FND_API.G_EXC_ERROR;
16169: END IF;
16170:
16171: --create structure version
16172: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
16169: END IF;
16170:
16171: --create structure version
16172: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
16173: (p_validate_only => FND_API.G_FALSE
16174: ,p_structure_id => l_structure_id
16175: ,x_structure_version_id => l_structure_version_id
16176: ,x_return_status => l_return_status
16177: ,x_msg_count => l_msg_count
16183: x_msg_count := l_msg_count;
16184: IF x_msg_count = 1 THEN
16185: x_msg_data := l_msg_data;
16186: END IF;
16187: RAISE FND_API.G_EXC_ERROR;
16188: END IF;
16189:
16190: IF (l_template_flag = 'Y') THEN
16191: l_status_code := 'STRUCTURE_WORKING';
16200: END IF;
16201:
16202: --create structure version
16203: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
16204: (p_validate_only => FND_API.G_FALSE
16205: ,p_structure_version_id => l_structure_version_id
16206: ,p_structure_version_name => l_name
16207: ,p_structure_version_desc => NULL
16208: ,p_effective_date => l_effective_date
16222: x_msg_count := l_msg_count;
16223: IF x_msg_count = 1 THEN
16224: x_msg_data := l_msg_data;
16225: END IF;
16226: RAISE FND_API.G_EXC_ERROR;
16227: END IF;
16228:
16229: IF (p_sharing_option_code = 'SPLIT_MAPPING') THEN
16230: NULL;
16259:
16260: IF (l_return_status <> 'S') THEN
16261: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16262: x_msg_data := l_err_msg_code;
16263: RAISE FND_API.G_EXC_ERROR;
16264: END IF;
16265:
16266: END LOOP;
16267: CLOSE sel_all_wp_structure_ver;
16293: x_return_status => l_return_status,
16294: x_msg_count => x_msg_count,
16295: x_msg_data => x_msg_data);
16296: IF l_del_trans_exist = 'Y' THEN
16297: RAISE FND_API.G_EXC_ERROR;
16298: END IF;
16299: */
16300: --delete wp budget for the version we keep
16301: l_struct_version_id_tbl.extend(1); /* Venky */
16322: WHEN OTHERS THEN
16323: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
16324: p_procedure_name => 'update_structures_setup_attr',
16325: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_options :'||SQLERRM,1,240));
16326: RAISE FND_API.G_EXC_ERROR;
16327: END;
16328: l_msg_count := FND_MSG_PUB.count_msg;
16329: IF l_msg_count > 0 THEN
16330: x_msg_count := l_msg_count;
16330: x_msg_count := l_msg_count;
16331: IF x_msg_count = 1 THEN
16332: x_msg_data := l_msg_data;
16333: END IF;
16334: RAISE FND_API.G_EXC_ERROR;
16335: END IF;
16336:
16337: --Delete all other structure versions
16338: OPEN sel_other_structure_ver(l_keep_structure_ver_id);
16347: l_err_msg_code);
16348: IF (l_return_status <> 'S') THEN
16349: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16350: x_msg_data := l_err_msg_code;
16351: RAISE FND_API.G_EXC_ERROR;
16352: END IF;
16353:
16354: --get top tasks
16355: OPEN get_top_tasks(l_del_struc_ver_id);
16368: x_return_status := l_return_status;
16369: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16370: l_msg_data := l_err_msg_code;
16371: CLOSE get_top_tasks;
16372: RAISE FND_API.G_EXC_ERROR;
16373: END IF;
16374: END LOOP;
16375: CLOSE get_top_tasks;
16376:
16387: IF x_msg_count = 1 THEN
16388: x_msg_data := l_msg_data;
16389: END IF;
16390: CLOSE sel_other_structure_ver;
16391: RAISE FND_API.G_EXC_ERROR;
16392: END IF;
16393: END LOOP;
16394: CLOSE sel_other_structure_ver;
16395:
16394: CLOSE sel_other_structure_ver;
16395:
16396: --delete from pa_proj_progress_attr
16397: PA_PROGRESS_PUB.DELETE_PROJ_PROG_ATTR(
16398: p_validate_only => FND_API.G_FALSE
16399: ,p_project_id => p_project_id
16400: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
16401: ,p_object_id => l_structure_id
16402: ,p_structure_type => 'WORKPLAN'
16411: x_msg_count := l_msg_count;
16412: IF x_msg_count = 1 THEN
16413: x_msg_data := l_msg_data;
16414: END IF;
16415: RAISE FND_API.G_EXC_ERROR;
16416: END IF;
16417:
16418: --delete all tasks not marked as financial in the structure keeping
16419: --delete schedule versions
16516: x_msg_count := l_msg_count;
16517: IF x_msg_count = 1 THEN
16518: x_msg_data := l_msg_data;
16519: END IF;
16520: RAISE FND_API.G_EXC_ERROR;
16521: END IF;
16522:
16523: --bug 3894059
16524: --set versioning disable for financial structure, and structure version as published if it is a project
16540: IF (p_workplan_enabled_flag = 'Y' AND p_sharing_option_code IN ('SPLIT_NO_MAPPING','SPLIT_MAPPING')) THEN
16541: --Create empty workplan structure
16542: l_structure_id := NULL;
16543: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
16544: (p_validate_only => FND_API.G_FALSE
16545: ,p_project_id => p_project_id
16546: ,p_structure_number => l_wp_name
16547: ,p_structure_name => l_wp_name
16548: ,p_calling_flag => 'WORKPLAN'
16557: x_msg_count := l_msg_count;
16558: IF x_msg_count = 1 THEN
16559: x_msg_data := l_msg_data;
16560: END IF;
16561: RAISE FND_API.G_EXC_ERROR;
16562: END IF;
16563:
16564: l_structure_version_id := NULL;
16565: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
16562: END IF;
16563:
16564: l_structure_version_id := NULL;
16565: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
16566: (p_validate_only => FND_API.G_FALSE
16567: ,p_structure_id => l_structure_id
16568: ,x_structure_version_id => l_structure_version_id
16569: ,x_return_status => l_return_status
16570: ,x_msg_count => l_msg_count
16576: x_msg_count := l_msg_count;
16577: IF x_msg_count = 1 THEN
16578: x_msg_data := l_msg_data;
16579: END IF;
16580: RAISE FND_API.G_EXC_ERROR;
16581: END IF;
16582:
16583: PA_TASK_PUB1.Create_Schedule_Version(
16584: p_element_version_id => l_structure_version_id
16595: x_msg_count := l_msg_count;
16596: IF x_msg_count = 1 THEN
16597: x_msg_data := l_msg_data;
16598: END IF;
16599: RAISE FND_API.G_EXC_ERROR;
16600: END IF;
16601:
16602: IF (l_template_flag = 'Y') THEN
16603: l_status_code := 'STRUCTURE_WORKING';
16612: END IF;
16613:
16614: --create structure version
16615: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
16616: (p_validate_only => FND_API.G_FALSE
16617: ,p_structure_version_id => l_structure_version_id
16618: ,p_structure_version_name => l_name
16619: ,p_structure_version_desc => NULL
16620: ,p_effective_date => l_effective_date
16634: x_msg_count := l_msg_count;
16635: IF x_msg_count = 1 THEN
16636: x_msg_data := l_msg_data;
16637: END IF;
16638: RAISE FND_API.G_EXC_ERROR;
16639: END IF;
16640:
16641: NULL;
16642: ELSIF (p_workplan_enabled_flag = 'N' ) THEN
16656: where proj_element_id = l_structure_id;
16657:
16658: --Need delete financial tasks API
16659: PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE(
16660: p_validate_only => FND_API.G_FALSE
16661: ,p_project_id => p_project_id
16662: ,x_return_status => l_return_status
16663: ,x_msg_count => l_msg_count
16664: ,x_msg_data => l_msg_data);
16669: x_msg_count := l_msg_count;
16670: IF x_msg_count = 1 THEN
16671: x_msg_data := l_msg_data;
16672: END IF;
16673: RAISE FND_API.G_EXC_ERROR;
16674: END IF;
16675:
16676: --clear financial Flag API
16677: OPEN sel_all_wp_structure_ver(l_structure_id);
16679: FETCH sel_all_wp_structure_ver INTO l_structure_version_id, l_struc_ver_rvn;
16680: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
16681:
16682: PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG(
16683: p_validate_only => FND_API.G_FALSE
16684: ,p_project_id => p_project_id
16685: ,p_task_version_id => NULL
16686: ,p_structure_version_id => l_structure_version_id
16687: ,x_return_status => l_return_status
16694: x_msg_count := l_msg_count;
16695: IF x_msg_count = 1 THEN
16696: x_msg_data := l_msg_data;
16697: END IF;
16698: RAISE FND_API.G_EXC_ERROR;
16699: END IF;
16700:
16701: END LOOP;
16702: CLOSE sel_all_wp_structure_ver;
16741: ,p_syncup_all_tasks => 'Y'
16742: ,p_task_version_id => NULL
16743: ,p_structure_version_id => l_structure_version_id
16744: ,p_check_for_transactions => 'N'
16745: ,p_checked_flag => FND_API.G_MISS_CHAR
16746: ,p_mode => 'ALL'
16747: ,x_return_status => l_return_status
16748: ,x_msg_count => l_msg_count
16749: ,x_msg_data => l_msg_data);
16754: x_msg_count := l_msg_count;
16755: IF x_msg_count = 1 THEN
16756: x_msg_data := l_msg_data;
16757: END IF;
16758: RAISE FND_API.G_EXC_ERROR;
16759: END IF;
16760:
16761: END IF;
16762:
16786:
16787: IF (l_return_status <> 'S') THEN
16788: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16789: x_msg_data := l_err_msg_code;
16790: RAISE FND_API.G_EXC_ERROR;
16791: END IF;
16792:
16793: END LOOP;
16794: CLOSE sel_all_wp_structure_ver;
16827: x_return_status => l_return_status,
16828: x_msg_count => x_msg_count,
16829: x_msg_data => x_msg_data);
16830: IF l_del_trans_exist = 'Y' THEN
16831: RAISE FND_API.G_EXC_ERROR;
16832: END IF;
16833: */
16834:
16835: --delete wp budget for the version we keep
16857: WHEN OTHERS THEN
16858: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
16859: p_procedure_name => 'update_structures_setup_attr',
16860: p_error_text => SUBSTRB('PA_FIN_PLAN_PVT.delete_wp_option:'||SQLERRM,1,240));
16861: RAISE FND_API.G_EXC_ERROR;
16862: END;
16863: l_msg_count := FND_MSG_PUB.count_msg;
16864: IF l_msg_count > 0 THEN
16865: x_msg_count := l_msg_count;
16865: x_msg_count := l_msg_count;
16866: IF x_msg_count = 1 THEN
16867: x_msg_data := l_msg_data;
16868: END IF;
16869: RAISE FND_API.G_EXC_ERROR;
16870: END IF;
16871:
16872: --Delete all other structure versions
16873: OPEN sel_other_structure_ver(l_keep_structure_ver_id);
16882: l_err_msg_code);
16883: IF (l_return_status <> 'S') THEN
16884: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16885: x_msg_data := l_err_msg_code;
16886: RAISE FND_API.G_EXC_ERROR;
16887: END IF;
16888:
16889: --get top tasks
16890: OPEN get_top_tasks(l_del_struc_ver_id);
16903: x_return_status := l_return_status;
16904: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
16905: l_msg_data := l_err_msg_code;
16906: CLOSE get_top_tasks;
16907: RAISE FND_API.G_EXC_ERROR;
16908: END IF;
16909: END LOOP;
16910: CLOSE get_top_tasks;
16911:
16922: IF x_msg_count = 1 THEN
16923: x_msg_data := l_msg_data;
16924: END IF;
16925: CLOSE sel_other_structure_ver;
16926: RAISE FND_API.G_EXC_ERROR;
16927: END IF;
16928: END LOOP;
16929: CLOSE sel_other_structure_ver;
16930:
16929: CLOSE sel_other_structure_ver;
16930:
16931: --delete from pa_proj_progress_attr
16932: PA_PROGRESS_PUB.DELETE_PROJ_PROG_ATTR(
16933: p_validate_only => FND_API.G_FALSE
16934: ,p_project_id => p_project_id
16935: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
16936: ,p_object_id => l_structure_id
16937: ,p_structure_type => 'WORKPLAN' --Amit
16946: x_msg_count := l_msg_count;
16947: IF x_msg_count = 1 THEN
16948: x_msg_data := l_msg_data;
16949: END IF;
16950: RAISE FND_API.G_EXC_ERROR;
16951: END IF;
16952:
16953: --delete all tasks not marked as financial in the structure keeping
16954: --delete schedule versions
16982: x_msg_count := l_msg_count;
16983: IF x_msg_count = 1 THEN
16984: x_msg_data := l_msg_data;
16985: END IF;
16986: RAISE FND_API.G_EXC_ERROR;
16987: END IF;
16988:
16989: --bug 3894059
16990: --set versioning disable for financial structure, and structure version as published if it is a project
17005:
17006: IF (p_workplan_enabled_flag = 'Y' AND p_sharing_option_code IN ('SPLIT_NO_MAPPING','SPLIT_MAPPING')) THEN
17007: --Create empty workplan structure
17008: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
17009: (p_validate_only => FND_API.G_FALSE
17010: ,p_project_id => p_project_id
17011: ,p_structure_number => l_wp_name
17012: ,p_structure_name => l_wp_name
17013: ,p_calling_flag => 'WORKPLAN'
17022: x_msg_count := l_msg_count;
17023: IF x_msg_count = 1 THEN
17024: x_msg_data := l_msg_data;
17025: END IF;
17026: RAISE FND_API.G_EXC_ERROR;
17027: END IF;
17028:
17029: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
17030: (p_validate_only => FND_API.G_FALSE
17026: RAISE FND_API.G_EXC_ERROR;
17027: END IF;
17028:
17029: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
17030: (p_validate_only => FND_API.G_FALSE
17031: ,p_structure_id => l_structure_id
17032: ,x_structure_version_id => l_structure_version_id
17033: ,x_return_status => l_return_status
17034: ,x_msg_count => l_msg_count
17040: x_msg_count := l_msg_count;
17041: IF x_msg_count = 1 THEN
17042: x_msg_data := l_msg_data;
17043: END IF;
17044: RAISE FND_API.G_EXC_ERROR;
17045: END IF;
17046:
17047: PA_TASK_PUB1.Create_Schedule_Version(
17048: p_element_version_id => l_structure_version_id
17059: x_msg_count := l_msg_count;
17060: IF x_msg_count = 1 THEN
17061: x_msg_data := l_msg_data;
17062: END IF;
17063: RAISE FND_API.G_EXC_ERROR;
17064: END IF;
17065:
17066: IF (l_template_flag = 'Y') THEN
17067: l_status_code := 'STRUCTURE_WORKING';
17076: END IF;
17077:
17078: --create structure version
17079: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
17080: (p_validate_only => FND_API.G_FALSE
17081: ,p_structure_version_id => l_structure_version_id
17082: ,p_structure_version_name => l_name
17083: ,p_structure_version_desc => NULL
17084: ,p_effective_date => l_effective_date
17098: x_msg_count := l_msg_count;
17099: IF x_msg_count = 1 THEN
17100: x_msg_data := l_msg_data;
17101: END IF;
17102: RAISE FND_API.G_EXC_ERROR;
17103: END IF;
17104:
17105: NULL;
17106: ELSIF (p_workplan_enabled_flag = 'N' ) THEN
17121: where proj_element_id = l_structure_id;
17122:
17123: --Need delete financial tasks API
17124: PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE(
17125: p_validate_only => FND_API.G_FALSE
17126: ,p_project_id => p_project_id
17127: ,x_return_status => l_return_status
17128: ,x_msg_count => l_msg_count
17129: ,x_msg_data => l_msg_data);
17134: x_msg_count := l_msg_count;
17135: IF x_msg_count = 1 THEN
17136: x_msg_data := l_msg_data;
17137: END IF;
17138: RAISE FND_API.G_EXC_ERROR;
17139: END IF;
17140:
17141: --clear financial Flag API
17142: OPEN sel_all_wp_structure_ver(l_structure_id);
17144: FETCH sel_all_wp_structure_ver INTO l_structure_version_id, l_struc_ver_rvn;
17145: EXIT WHEN sel_all_wp_structure_ver%NOTFOUND;
17146:
17147: PA_PROJECT_STRUCTURE_PUB1.CLEAR_FINANCIAL_FLAG(
17148: p_validate_only => FND_API.G_FALSE
17149: ,p_project_id => p_project_id
17150: ,p_task_version_id => NULL
17151: ,p_structure_version_id => l_structure_version_id
17152: ,x_return_status => l_return_status
17159: x_msg_count := l_msg_count;
17160: IF x_msg_count = 1 THEN
17161: x_msg_data := l_msg_data;
17162: END IF;
17163: RAISE FND_API.G_EXC_ERROR;
17164: END IF;
17165:
17166: END LOOP;
17167: CLOSE sel_all_wp_structure_ver;
17193: x_msg_count := l_msg_count;
17194: IF x_msg_count = 1 THEN
17195: x_msg_data := l_msg_data;
17196: END IF;
17197: RAISE FND_API.G_EXC_ERROR;
17198: END IF;
17199:
17200: IF (p_workplan_enabled_flag = 'N') THEN
17201: --disable workplan
17217: l_err_msg_code);
17218: IF (l_return_status <> 'S') THEN
17219: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17220: x_msg_data := l_err_msg_code;
17221: RAISE FND_API.G_EXC_ERROR;
17222: END IF;
17223:
17224: --get top tasks
17225: OPEN get_top_tasks(l_del_struc_ver_id);
17238: x_return_status := l_return_status;
17239: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17240: l_msg_data := l_err_msg_code;
17241: CLOSE get_top_tasks;
17242: RAISE FND_API.G_EXC_ERROR;
17243: END IF;
17244: END LOOP;
17245: CLOSE get_top_tasks;
17246:
17258: IF x_msg_count = 1 THEN
17259: x_msg_data := l_msg_data;
17260: END IF;
17261: CLOSE sel_all_wp_structure_ver;
17262: RAISE FND_API.G_EXC_ERROR;
17263: END IF;
17264: END LOOP;
17265: CLOSE sel_all_wp_structure_ver;
17266: END IF;
17267:
17268: IF (p_financial_enabled_flag = 'N') THEN
17269: --disable financial structure API
17270: PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE(
17271: p_validate_only => FND_API.G_FALSE
17272: ,p_project_id => p_project_id
17273: ,x_return_status => l_return_status
17274: ,x_msg_count => l_msg_count
17275: ,x_msg_data => l_msg_data);
17280: x_msg_count := l_msg_count;
17281: IF x_msg_count = 1 THEN
17282: x_msg_data := l_msg_data;
17283: END IF;
17284: RAISE FND_API.G_EXC_ERROR;
17285: END IF;
17286: END IF;
17287:
17288: ELSIF (p_workplan_enabled_flag = 'Y' and p_financial_enabled_flag = 'Y' and p_sharing_option_code IN ('SHARE_FULL','SHARE_PARTIAL')) THEN
17311: l_err_msg_code);
17312: IF (l_return_status <> 'S') THEN
17313: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17314: x_msg_data := l_err_msg_code;
17315: RAISE FND_API.G_EXC_ERROR;
17316: END IF;
17317:
17318: --get top tasks
17319: OPEN get_top_tasks(l_del_struc_ver_id);
17333: x_return_status := l_return_status;
17334: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17335: l_msg_data := l_err_msg_code;
17336: CLOSE get_top_tasks;
17337: RAISE FND_API.G_EXC_ERROR;
17338: END IF;
17339: END LOOP;
17340: CLOSE get_top_tasks;
17341:
17354: IF x_msg_count = 1 THEN
17355: x_msg_data := l_msg_data;
17356: END IF;
17357: CLOSE sel_all_wp_structure_ver;
17358: RAISE FND_API.G_EXC_ERROR;
17359: END IF;
17360: END LOOP;
17361: CLOSE sel_all_wp_structure_ver;
17362:
17393: ,X_ATTRIBUTE15 => NULL);
17394:
17395: l_proj_prog_attr_id := NULL;
17396: PA_PROGRESS_PUB.CREATE_PROJ_PROG_ATTR(
17397: p_validate_only => FND_API.G_FALSE
17398: ,p_project_id => p_project_id
17399: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
17400: ,P_OBJECT_ID => l_structure_id
17401: ,p_action_set_id => NULL
17426: WHEN OTHERS THEN
17427: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
17428: p_procedure_name => 'update_structures_setup_attr',
17429: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17430: RAISE FND_API.G_EXC_ERROR;
17431: END;
17432: --Check if there is any error.
17433: l_msg_count := FND_MSG_PUB.count_msg;
17434: IF l_msg_count > 0 THEN
17435: x_msg_count := l_msg_count;
17436: IF x_msg_count = 1 THEN
17437: x_msg_data := l_msg_data;
17438: END IF;
17439: RAISE FND_API.G_EXC_ERROR;
17440: END IF;
17441:
17442: --create schedule row for each task
17443: INSERT INTO PA_PROJ_ELEM_VER_SCHEDULE(
17496:
17497: IF (l_task_ver_ids_tbl.count > 0) THEN
17498: --rollup
17499: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup_Unlimited(
17500: p_commit => FND_API.G_FALSE,
17501: p_element_versions => l_task_ver_ids_tbl,
17502: x_return_status => l_return_status,
17503: x_msg_count => l_msg_count,
17504: x_msg_data => l_msg_data);
17509: x_msg_count := l_msg_count;
17510: IF x_msg_count = 1 THEN
17511: x_msg_data := l_msg_data;
17512: END IF;
17513: RAISE FND_API.G_EXC_ERROR;
17514: END IF;
17515: END IF;
17516:
17517: --Check if there is any error.
17520: x_msg_count := l_msg_count;
17521: IF x_msg_count = 1 THEN
17522: x_msg_data := l_msg_data;
17523: END IF;
17524: RAISE FND_API.G_EXC_ERROR;
17525: END IF;
17526:
17527:
17528: -- Bug # 5077599.
17578: x_msg_count := l_msg_count;
17579: IF x_msg_count = 1 THEN
17580: x_msg_data := l_msg_data;
17581: END IF;
17582: RAISE FND_API.G_EXC_ERROR;
17583: END IF;
17584:
17585: END IF;
17586:
17611: l_err_msg_code);
17612: IF (l_return_status <> 'S') THEN
17613: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17614: x_msg_data := l_err_msg_code;
17615: RAISE FND_API.G_EXC_ERROR;
17616: END IF;
17617:
17618: --get top tasks
17619: OPEN get_top_tasks(l_del_struc_ver_id);
17632: x_return_status := l_return_status;
17633: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17634: l_msg_data := l_err_msg_code;
17635: CLOSE get_top_tasks;
17636: RAISE FND_API.G_EXC_ERROR;
17637: END IF;
17638: END LOOP;
17639: CLOSE get_top_tasks;
17640:
17652: IF x_msg_count = 1 THEN
17653: x_msg_data := l_msg_data;
17654: END IF;
17655: CLOSE sel_all_wp_structure_ver;
17656: RAISE FND_API.G_EXC_ERROR;
17657: END IF;
17658: END LOOP;
17659: CLOSE sel_all_wp_structure_ver;
17660: END IF;
17661:
17662: IF (p_financial_enabled_flag = 'N') THEN
17663: --disable financial structure API
17664: PA_PROJECT_STRUCTURE_PUB1.DISABLE_FINANCIAL_STRUCTURE(
17665: p_validate_only => FND_API.G_FALSE
17666: ,p_project_id => p_project_id
17667: ,x_return_status => l_return_status
17668: ,x_msg_count => l_msg_count
17669: ,x_msg_data => l_msg_data);
17674: x_msg_count := l_msg_count;
17675: IF x_msg_count = 1 THEN
17676: x_msg_data := l_msg_data;
17677: END IF;
17678: RAISE FND_API.G_EXC_ERROR;
17679: END IF;
17680: END IF;
17681: ELSIF (p_workplan_enabled_flag = 'Y' and p_financial_enabled_flag = 'Y' and p_sharing_option_code IN ('SHARE_FULL','SHARE_PARTIAL')) THEN
17682: --partial share/full share
17703: l_err_msg_code);
17704: IF (l_return_status <> 'S') THEN
17705: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17706: x_msg_data := l_err_msg_code;
17707: RAISE FND_API.G_EXC_ERROR;
17708: END IF;
17709:
17710: --get top tasks
17711: OPEN get_top_tasks(l_del_struc_ver_id);
17725: x_return_status := l_return_status;
17726: PA_UTILS.ADD_MESSAGE('PA', l_err_msg_code);
17727: l_msg_data := l_err_msg_code;
17728: CLOSE get_top_tasks;
17729: RAISE FND_API.G_EXC_ERROR;
17730: END IF;
17731: END LOOP;
17732: CLOSE get_top_tasks;
17733:
17746: IF x_msg_count = 1 THEN
17747: x_msg_data := l_msg_data;
17748: END IF;
17749: CLOSE sel_all_wp_structure_ver;
17750: RAISE FND_API.G_EXC_ERROR;
17751: END IF;
17752: END LOOP;
17753: CLOSE sel_all_wp_structure_ver;
17754:
17785: ,X_ATTRIBUTE15 => NULL);
17786:
17787: l_proj_prog_attr_id := NULL;
17788: PA_PROGRESS_PUB.CREATE_PROJ_PROG_ATTR(
17789: p_validate_only => FND_API.G_FALSE
17790: ,p_project_id => p_project_id
17791: ,P_OBJECT_TYPE => 'PA_STRUCTURES'
17792: ,P_OBJECT_ID => l_structure_id
17793: ,p_action_set_id => NULL
17817: WHEN OTHERS THEN
17818: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
17819: p_procedure_name => 'update_structures_setup_attr',
17820: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions:'||SQLERRM,1,240));
17821: RAISE FND_API.G_EXC_ERROR;
17822: END;
17823: --Check if there is any error.
17824: l_msg_count := FND_MSG_PUB.count_msg;
17825: IF l_msg_count > 0 THEN
17826: x_msg_count := l_msg_count;
17827: IF x_msg_count = 1 THEN
17828: x_msg_data := l_msg_data;
17829: END IF;
17830: RAISE FND_API.G_EXC_ERROR;
17831: END IF;
17832:
17833: --create schedule row for each task
17834: INSERT INTO PA_PROJ_ELEM_VER_SCHEDULE(
17888:
17889: IF (l_task_ver_ids_tbl.count > 0) THEN
17890: --rollup
17891: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup_Unlimited(
17892: p_commit => FND_API.G_FALSE,
17893: p_element_versions => l_task_ver_ids_tbl,
17894: x_return_status => l_return_status,
17895: x_msg_count => l_msg_count,
17896: x_msg_data => l_msg_data);
17901: x_msg_count := l_msg_count;
17902: IF x_msg_count = 1 THEN
17903: x_msg_data := l_msg_data;
17904: END IF;
17905: RAISE FND_API.G_EXC_ERROR;
17906: END IF;
17907: END IF;
17908:
17909: --Check if there is any error.
17912: x_msg_count := l_msg_count;
17913: IF x_msg_count = 1 THEN
17914: x_msg_data := l_msg_data;
17915: END IF;
17916: RAISE FND_API.G_EXC_ERROR;
17917: END IF;
17918:
17919: -- Bug # 5077599.
17920:
17982: x_msg_count := l_msg_count;
17983: IF x_msg_count = 1 THEN
17984: x_msg_data := l_msg_data;
17985: END IF;
17986: RAISE FND_API.G_EXC_ERROR;
17987: END IF;
17988: END IF;
17989: ELSE --l_delv_enabled = 'N'
17990: --currently disabled
18000: l_del_name := substrb(l_name||l_append||l_suffix, 1, 240);
18001:
18002: --create workplan structure
18003: PA_PROJECT_STRUCTURE_PUB1.CREATE_STRUCTURE
18004: (p_validate_only => FND_API.G_FALSE
18005: ,p_project_id => p_project_id
18006: ,p_structure_number => l_del_name
18007: ,p_structure_name => l_del_name
18008: ,p_calling_flag => 'DELIVERABLE'
18017: x_msg_count := l_msg_count;
18018: IF x_msg_count = 1 THEN
18019: x_msg_data := l_msg_data;
18020: END IF;
18021: RAISE FND_API.G_EXC_ERROR;
18022: END IF;
18023:
18024: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
18025: (p_validate_only => FND_API.G_FALSE
18021: RAISE FND_API.G_EXC_ERROR;
18022: END IF;
18023:
18024: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
18025: (p_validate_only => FND_API.G_FALSE
18026: ,p_structure_id => l_structure_id
18027: ,x_structure_version_id => l_structure_version_id
18028: ,x_return_status => l_return_status
18029: ,x_msg_count => l_msg_count
18035: x_msg_count := l_msg_count;
18036: IF x_msg_count = 1 THEN
18037: x_msg_data := l_msg_data;
18038: END IF;
18039: RAISE FND_API.G_EXC_ERROR;
18040: END IF;
18041:
18042: PA_TASK_PUB1.Create_Schedule_Version(
18043: p_element_version_id => l_structure_version_id
18054: x_msg_count := l_msg_count;
18055: IF x_msg_count = 1 THEN
18056: x_msg_data := l_msg_data;
18057: END IF;
18058: RAISE FND_API.G_EXC_ERROR;
18059: END IF;
18060:
18061: IF (l_template_flag = 'Y') THEN
18062: l_status_code := 'STRUCTURE_WORKING';
18071: END IF;
18072:
18073: --create structure version
18074: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
18075: (p_validate_only => FND_API.G_FALSE
18076: ,p_structure_version_id => l_structure_version_id
18077: ,p_structure_version_name => l_del_name
18078: ,p_structure_version_desc => NULL
18079: ,p_effective_date => l_effective_date
18093: x_msg_count := l_msg_count;
18094: IF x_msg_count = 1 THEN
18095: x_msg_data := l_msg_data;
18096: END IF;
18097: RAISE FND_API.G_EXC_ERROR;
18098: END IF;
18099:
18100: END IF;
18101: END IF;
18118: THEN
18119: Pa_Utils.ADD_MESSAGE
18120: ( p_app_short_name => 'PA',
18121: p_msg_name =>'PA_PS_EN_SYS_PROG_ERR');
18122: RAISE FND_API.G_EXC_ERROR;
18123: END IF;
18124: --end bug 4275096
18125:
18126: IF (l_proj_sys_program_flag='Y' and nvl(l_sys_program_flag,'N')='N' ) then
18128: If l_flag='N' Then
18129: Pa_Utils.ADD_MESSAGE
18130: ( p_app_short_name => 'PA',
18131: p_msg_name =>'PA_PS_DIS_SYS_PROG_ERR');
18132: RAISE FND_API.G_EXC_ERROR;
18133: END IF;
18134: END IF;
18135:
18136: IF (l_proj_allow_program_rollup='Y' and nvl(l_allow_multi_program_rollup,'N')='N' ) then
18138: IF l_flag ='N' Then
18139: Pa_Utils.ADD_MESSAGE
18140: ( p_app_short_name => 'PA',
18141: p_msg_name =>'PA_PS_DIS_MULTI_PROG_ERR');
18142: RAISE FND_API.G_EXC_ERROR;
18143: END IF;
18144: END IF;
18145:
18146: -- IF NOT FND_API.TO_BOOLEAN(p_validate_only) THEN
18142: RAISE FND_API.G_EXC_ERROR;
18143: END IF;
18144: END IF;
18145:
18146: -- IF NOT FND_API.TO_BOOLEAN(p_validate_only) THEN
18147: UPDATE pa_projects_all
18148: SET
18149: sys_program_flag = nvl(l_sys_program_flag,'N'),
18150: allow_multi_program_rollup = nvl(l_allow_multi_program_rollup,'N'),
18153: WHERE project_id = p_project_id;
18154: -- END IF;
18155: -- end of FP.M changes
18156:
18157: x_return_status := FND_API.G_RET_STS_SUCCESS;
18158:
18159: IF (p_debug_mode = 'Y') THEN
18160: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_structures_setup_attr end');
18161: END IF;
18160: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_structures_setup_attr end');
18161: END IF;
18162:
18163: EXCEPTION
18164: WHEN FND_API.G_EXC_ERROR THEN
18165: IF (p_commit = FND_API.G_TRUE) THEN
18166: ROLLBACK to update_struc_setup_attr_pvt;
18167: END IF;
18168: x_msg_count := FND_MSG_PUB.count_msg;
18161: END IF;
18162:
18163: EXCEPTION
18164: WHEN FND_API.G_EXC_ERROR THEN
18165: IF (p_commit = FND_API.G_TRUE) THEN
18166: ROLLBACK to update_struc_setup_attr_pvt;
18167: END IF;
18168: x_msg_count := FND_MSG_PUB.count_msg;
18169: x_return_status := FND_API.G_RET_STS_ERROR;
18165: IF (p_commit = FND_API.G_TRUE) THEN
18166: ROLLBACK to update_struc_setup_attr_pvt;
18167: END IF;
18168: x_msg_count := FND_MSG_PUB.count_msg;
18169: x_return_status := FND_API.G_RET_STS_ERROR;
18170: WHEN OTHERS THEN
18171: IF (p_commit = FND_API.G_TRUE) THEN
18172: ROLLBACK to update_struc_setup_attr_pvt;
18173: END IF;
18167: END IF;
18168: x_msg_count := FND_MSG_PUB.count_msg;
18169: x_return_status := FND_API.G_RET_STS_ERROR;
18170: WHEN OTHERS THEN
18171: IF (p_commit = FND_API.G_TRUE) THEN
18172: ROLLBACK to update_struc_setup_attr_pvt;
18173: END IF;
18174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18175: x_msg_count := FND_MSG_PUB.count_msg;
18170: WHEN OTHERS THEN
18171: IF (p_commit = FND_API.G_TRUE) THEN
18172: ROLLBACK to update_struc_setup_attr_pvt;
18173: END IF;
18174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18175: x_msg_count := FND_MSG_PUB.count_msg;
18176: --put message
18177: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_STRUCTURE_PVT1',
18178: p_procedure_name => 'update_structures_setup_attr',