[Home] [Help]
1: PACKAGE BODY pa_project_pub AS
2: /* $Header: PAPMPRPB.pls 120.125.12020000.10 2013/05/20 13:39:22 djambhek ship $ */
3: --Global constants to be used in error messages
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_PROJECT_PUB';
5: G_PROJECT_CODE CONSTANT VARCHAR2(7) := 'PROJECT';
1: PACKAGE BODY pa_project_pub AS
2: /* $Header: PAPMPRPB.pls 120.125.12020000.10 2013/05/20 13:39:22 djambhek ship $ */
3: --Global constants to be used in error messages
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_PROJECT_PUB';
5: G_PROJECT_CODE CONSTANT VARCHAR2(7) := 'PROJECT';
6: G_CUSTOMER_CODE CONSTANT VARCHAR2(8) := 'CUSTOMER';
7: G_KEY_MEMBER CONSTANT VARCHAR2(10) := 'KEY_MEMBER';
8: G_CLASS_CATEGORY_CODE CONSTANT VARCHAR2(14) := 'CLASS_CATEGORY';
115: ,p_op_validate_flag IN VARCHAR2 := 'Y' --added by rtarway 4218977
116: ,p_project_in IN project_in_rec_type
117: ,p_project_out OUT NOCOPY project_out_rec_type /*Added the nocopy check for bug 2674619*/
118: /* Added for tracking bug - add customers */
119: ,p_customers_in IN pa_project_pub.customer_tbl_type := G_customers_in_tbl
120: /* Added Default Value for p_class_categories and p_key_members */
121: ,p_key_members IN project_role_tbl_type := G_key_members_in_tbl
122: ,p_class_categories IN class_category_tbl_type := G_class_categories_in_tbl
123: ,p_tasks_in IN task_in_tbl_type
5122: --maansari5/18
5123:
5124: --Set the global variable G_OP_VALIDATE_FLAG before going for dependence validation.
5125:
5126: IF NVL(PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED,'N') = 'Y'
5127: THEN
5128: l_d_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.get_current_working_ver_id(l_project_id);
5129: ELSE
5130: l_d_structure_version_id := PA_PROJ_ELEMENTS_UTILS.LATEST_PUBLISHED_VER_ID( l_project_id, 'WORKPLAN');
5290: OR
5291: ( p_tasks_in(i).mapped_task_reference IS NOT NULL AND p_tasks_in(i).mapped_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
5292: )
5293: THEN
5294: pa_project_pub.create_mapping
5295: (
5296: p_api_version => p_api_version_number
5297: , p_init_msg_list => FND_API.G_FALSE
5298: , p_commit => FND_API.G_FALSE--bug 3766967
5373: -- A call to Create_Deliverables api creates one deliverable and its
5374: -- assoicated actions.
5375:
5376: -- Invoking the Create Deliverable API
5377: Pa_Project_Pub.create_deliverable
5378: ( p_api_version => p_api_version_number
5379: , p_init_msg_list => p_init_msg_list
5380: -- 3735792, passing p_commit as false to next level api calls
5381: , p_commit => FND_API.G_FALSE
5826: l_amg_task_number VARCHAR2(50);
5827:
5828: --Project Structures
5829: l_ref_task_id NUMBER;
5830: l_tasks_in pa_project_pub.task_in_tbl_type; --dummy variables.
5831: l_tasks_out pa_project_pub.task_out_tbl_type ; --dummy variables.
5832: --Project Structures
5833: --bug 2738747
5834: l_structure_type VARCHAR2(25);
5827:
5828: --Project Structures
5829: l_ref_task_id NUMBER;
5830: l_tasks_in pa_project_pub.task_in_tbl_type; --dummy variables.
5831: l_tasks_out pa_project_pub.task_out_tbl_type ; --dummy variables.
5832: --Project Structures
5833: --bug 2738747
5834: l_structure_type VARCHAR2(25);
5835: --bug 2738747
6319: END IF;
6320: --bug 2876703
6321:
6322: --bug 2738747
6323: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
6324: AND PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N'
6325: AND PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y'
6326: AND l_str_type /*p_structure_type 3746912*/= 'FINANCIAL'
6327: THEN
6320: --bug 2876703
6321:
6322: --bug 2738747
6323: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
6324: AND PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N'
6325: AND PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y'
6326: AND l_str_type /*p_structure_type 3746912*/= 'FINANCIAL'
6327: THEN
6328: --Change the flow to WORKPLAN
6321:
6322: --bug 2738747
6323: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
6324: AND PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N'
6325: AND PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y'
6326: AND l_str_type /*p_structure_type 3746912*/= 'FINANCIAL'
6327: THEN
6328: --Change the flow to WORKPLAN
6329: l_structure_type := 'WORKPLAN';
6941: --project structure
6942: --FINANCIAL structrues
6943:
6944: -- 14556729:Huawei Code change : Added new parameters for Add and Update Task Lite API.
6945: IF PA_PROJECT_PUB.G_MASS_ADD_TASKS = 'Y' OR PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' THEN
6946:
6947: l_task_in_rec.PLANNED_WORK_QUANTITY := p_PLANNED_WORK_QUANTITY;
6948: l_task_in_rec.TASK_TYPE := p_TASK_TYPE;
6949: l_task_in_rec.WQ_UOM_CODE := p_WQ_UOM_CODE;
7319: ( l_task_in_rec.mapped_task_reference IS NOT NULL AND l_task_in_rec.mapped_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
7320: )
7321: THEN
7322:
7323: pa_project_pub.create_mapping
7324: (
7325: p_api_version => p_api_version_number
7326: , p_init_msg_list => FND_API.G_FALSE
7327: , p_commit => FND_API.G_FALSE--bug 3766967
7387:
7388: --bug 2732895 --Add_Task
7389:
7390: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
7391: IF (NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' AND (( G_WP_STR_EXISTS = 'Y' AND G_IS_WP_SEPARATE_FROM_FN = 'N' ) OR
7392: ( G_WP_STR_EXISTS = 'Y' AND G_IS_WP_SEPARATE_FROM_FN = 'Y'
7393: AND l_structure_type /*p_structure_type 3746912*/ = 'WORKPLAN' ))) --should not call if new task is added to FINANCIAL structure version
7394: THEN
7395:
7461: end;
7462:
7463: -- PA L Changes 3010538
7464:
7465: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
7466: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
7467: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
7468: PA_PROJECT_PUB.G_Published_version_exists = 'N')
7469: THEN
7462:
7463: -- PA L Changes 3010538
7464:
7465: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
7466: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
7467: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
7468: PA_PROJECT_PUB.G_Published_version_exists = 'N')
7469: THEN
7470:
7463: -- PA L Changes 3010538
7464:
7465: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
7466: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
7467: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
7468: PA_PROJECT_PUB.G_Published_version_exists = 'N')
7469: THEN
7470:
7471: /* Starts added for Bug# 7264422 */
7464:
7465: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
7466: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
7467: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
7468: PA_PROJECT_PUB.G_Published_version_exists = 'N')
7469: THEN
7470:
7471: /* Starts added for Bug# 7264422 */
7472: IF (nvl(p_structure_updates_flag, 'Y') = 'N') THEN
7554: END IF;
7555:
7556: -- 3661788 pass validated deliverable id to association api
7557:
7558: pa_project_pub.ASSOCIATE_DLV_TO_TASK (
7559: p_api_version => p_api_version_number
7560: , p_init_msg_list => p_init_msg_list
7561: -- 3735792, passing p_commit as false to next level api calls
7562: , p_commit => FND_API.G_FALSE
7803: G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
7804: G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
7805: G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id );
7806:
7807: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
7808: AND PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N'
7809: AND PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y'
7810: AND p_structure_type = 'FINANCIAL'
7811: THEN
7804: G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
7805: G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id );
7806:
7807: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
7808: AND PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N'
7809: AND PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y'
7810: AND p_structure_type = 'FINANCIAL'
7811: THEN
7812: --Change the flow to WORKPLAN
7805: G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id );
7806:
7807: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
7808: AND PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N'
7809: AND PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y'
7810: AND p_structure_type = 'FINANCIAL'
7811: THEN
7812: --Change the flow to WORKPLAN
7813: l_structure_type := 'WORKPLAN';
7919: );
7920:
7921: -- PA L Changes 3010538
7922:
7923: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
7924: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
7925: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
7926: PA_PROJECT_PUB.G_Published_version_exists = 'N')
7927: THEN
7920:
7921: -- PA L Changes 3010538
7922:
7923: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
7924: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
7925: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
7926: PA_PROJECT_PUB.G_Published_version_exists = 'N')
7927: THEN
7928:
7921: -- PA L Changes 3010538
7922:
7923: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
7924: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
7925: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
7926: PA_PROJECT_PUB.G_Published_version_exists = 'N')
7927: THEN
7928:
7929: -- Fetch the structure version id for the task version id.
7922:
7923: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
7924: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
7925: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
7926: PA_PROJECT_PUB.G_Published_version_exists = 'N')
7927: THEN
7928:
7929: -- Fetch the structure version id for the task version id.
7930:
8851: -- 22-JAN-2004 Rakesh Raghavan - Modifications for FP-M Bug # 3301192 to add parameters: predecessor_task_reference_id,
8852: -- dependency_type and lag days to tasks and create dependencies.
8853: -- 10-FEB-2004 Rakesh Raghavan - Modifications for FP-M Bug # 3301192 to replace parameters: predecessor_task_reference_id,
8854: -- dependency_type and lag days with parameters: pred_string and pred_delimiter.
8855: -- 19-FEB-2004 Rakesh Raghavan Modifications for Bug # 3379677 to fix: PA_PROJECT_PUB.LOAD_TASK.
8856: -- 05-APR-2004 Rakesh Raghavan Progress Management Changes. Bug # 3420093.
8857:
8858: PROCEDURE load_task
8859: ( p_api_version_number IN NUMBER
9056:
9057: -- assign incoming parameters to the global table fields
9058: --!!not needed G_tasks_in_tbl(G_tasks_tbl_count).pm_project_reference := p_pm_project_reference;
9059: G_tasks_in_tbl(G_tasks_tbl_count).pm_task_reference := p_pm_task_reference;
9060: -- Modifications for Bug # 3379677 to fix: PA_PROJECT_PUB.LOAD_TASK.
9061: G_tasks_in_tbl(G_tasks_tbl_count).task_name := substrb(p_task_name,1,240); --Bug 6193314
9062: --bug 2874207
9063: /* Commented the code for bug 2982057 and handling it in create_project and update_project
9064: IF p_long_task_name IS NULL OR p_long_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
9073: G_tasks_in_tbl(G_tasks_tbl_count).long_task_name := p_long_task_name;
9074:
9075: -- END IF;
9076: --bug 2874207
9077: -- Modifications for Bug # 3379677 to fix: PA_PROJECT_PUB.LOAD_TASK
9078:
9079: G_tasks_in_tbl(G_tasks_tbl_count).pa_task_number := substrb(p_pa_task_number,1,100); --Bug 6193314
9080:
9081:
9773: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9774: ,p_workflow_started OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9775: ,p_pm_product_code IN VARCHAR2
9776: ,p_op_validate_flag IN varchar2 := 'Y'
9777: ,p_project_in IN pa_project_pub.project_in_rec_type
9778: ,p_project_out OUT NOCOPY pa_project_pub.project_out_rec_type /*added the nocopy check for the 2674619*/
9779: /* Added for tracking bug - add customers */
9780: ,p_customers_in IN pa_project_pub.customer_tbl_type := G_customers_in_tbl
9781: /* Added Default Value for p_key_members and p_class_categories*/
9774: ,p_workflow_started OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9775: ,p_pm_product_code IN VARCHAR2
9776: ,p_op_validate_flag IN varchar2 := 'Y'
9777: ,p_project_in IN pa_project_pub.project_in_rec_type
9778: ,p_project_out OUT NOCOPY pa_project_pub.project_out_rec_type /*added the nocopy check for the 2674619*/
9779: /* Added for tracking bug - add customers */
9780: ,p_customers_in IN pa_project_pub.customer_tbl_type := G_customers_in_tbl
9781: /* Added Default Value for p_key_members and p_class_categories*/
9782: ,p_key_members IN pa_project_pub.project_role_tbl_type := G_key_members_in_tbl
9776: ,p_op_validate_flag IN varchar2 := 'Y'
9777: ,p_project_in IN pa_project_pub.project_in_rec_type
9778: ,p_project_out OUT NOCOPY pa_project_pub.project_out_rec_type /*added the nocopy check for the 2674619*/
9779: /* Added for tracking bug - add customers */
9780: ,p_customers_in IN pa_project_pub.customer_tbl_type := G_customers_in_tbl
9781: /* Added Default Value for p_key_members and p_class_categories*/
9782: ,p_key_members IN pa_project_pub.project_role_tbl_type := G_key_members_in_tbl
9783: ,p_class_categories IN pa_project_pub.class_category_tbl_type := G_class_categories_in_tbl
9784: ,p_tasks_in IN pa_project_pub.task_in_tbl_type
9778: ,p_project_out OUT NOCOPY pa_project_pub.project_out_rec_type /*added the nocopy check for the 2674619*/
9779: /* Added for tracking bug - add customers */
9780: ,p_customers_in IN pa_project_pub.customer_tbl_type := G_customers_in_tbl
9781: /* Added Default Value for p_key_members and p_class_categories*/
9782: ,p_key_members IN pa_project_pub.project_role_tbl_type := G_key_members_in_tbl
9783: ,p_class_categories IN pa_project_pub.class_category_tbl_type := G_class_categories_in_tbl
9784: ,p_tasks_in IN pa_project_pub.task_in_tbl_type
9785: ,p_tasks_out OUT NOCOPY pa_project_pub.task_out_tbl_type /*added the nocopy check for the bug 2674619*/
9786: -- anlee org role changes
9779: /* Added for tracking bug - add customers */
9780: ,p_customers_in IN pa_project_pub.customer_tbl_type := G_customers_in_tbl
9781: /* Added Default Value for p_key_members and p_class_categories*/
9782: ,p_key_members IN pa_project_pub.project_role_tbl_type := G_key_members_in_tbl
9783: ,p_class_categories IN pa_project_pub.class_category_tbl_type := G_class_categories_in_tbl
9784: ,p_tasks_in IN pa_project_pub.task_in_tbl_type
9785: ,p_tasks_out OUT NOCOPY pa_project_pub.task_out_tbl_type /*added the nocopy check for the bug 2674619*/
9786: -- anlee org role changes
9787: ,p_org_roles IN pa_project_pub.project_role_tbl_type := G_org_roles_in_tbl
9780: ,p_customers_in IN pa_project_pub.customer_tbl_type := G_customers_in_tbl
9781: /* Added Default Value for p_key_members and p_class_categories*/
9782: ,p_key_members IN pa_project_pub.project_role_tbl_type := G_key_members_in_tbl
9783: ,p_class_categories IN pa_project_pub.class_category_tbl_type := G_class_categories_in_tbl
9784: ,p_tasks_in IN pa_project_pub.task_in_tbl_type
9785: ,p_tasks_out OUT NOCOPY pa_project_pub.task_out_tbl_type /*added the nocopy check for the bug 2674619*/
9786: -- anlee org role changes
9787: ,p_org_roles IN pa_project_pub.project_role_tbl_type := G_org_roles_in_tbl
9788: --project structures
9781: /* Added Default Value for p_key_members and p_class_categories*/
9782: ,p_key_members IN pa_project_pub.project_role_tbl_type := G_key_members_in_tbl
9783: ,p_class_categories IN pa_project_pub.class_category_tbl_type := G_class_categories_in_tbl
9784: ,p_tasks_in IN pa_project_pub.task_in_tbl_type
9785: ,p_tasks_out OUT NOCOPY pa_project_pub.task_out_tbl_type /*added the nocopy check for the bug 2674619*/
9786: -- anlee org role changes
9787: ,p_org_roles IN pa_project_pub.project_role_tbl_type := G_org_roles_in_tbl
9788: --project structures
9789: ,p_structure_in IN structure_in_rec_type := G_structure_in_rec
9783: ,p_class_categories IN pa_project_pub.class_category_tbl_type := G_class_categories_in_tbl
9784: ,p_tasks_in IN pa_project_pub.task_in_tbl_type
9785: ,p_tasks_out OUT NOCOPY pa_project_pub.task_out_tbl_type /*added the nocopy check for the bug 2674619*/
9786: -- anlee org role changes
9787: ,p_org_roles IN pa_project_pub.project_role_tbl_type := G_org_roles_in_tbl
9788: --project structures
9789: ,p_structure_in IN structure_in_rec_type := G_structure_in_rec
9790: ,p_ext_attr_tbl_in IN PA_EXT_ATTR_TABLE_TYPE := G_ext_attr_in_tbl
9791: -- ,p_structure_out OUT structure_out_rec_type
10150: l_status_code PA_PROJECT_STATUSES.project_system_status_code%TYPE; -- Bug 3611598
10151: l_deferred_tasks_index_tbl deferred_tasks_tbl_typ;
10152:
10153: l_project_rec pa_projects%ROWTYPE;
10154: l_project_in_rec pa_project_pub.project_in_rec_type;
10155: l_temp_org_id NUMBER;
10156: l_temp VARCHAR2(1);
10157:
10158: l_api_name CONSTANT VARCHAR2(30):= 'update_project';
10158: l_api_name CONSTANT VARCHAR2(30):= 'update_project';
10159: j NUMBER;
10160: i NUMBER;
10161:
10162: l_tasks_out pa_project_pub.task_out_tbl_type;
10163: l_return_status VARCHAR2(1);
10164:
10165: l_err_code NUMBER := 0;
10166: l_err_stage VARCHAR2(2000);
10177: l_project_completion_date DATE;
10178: l_max_task_date DATE;
10179: l_min_task_date DATE;
10180:
10181: l_deferred_new_tasks_tbl pa_project_pub.task_in_tbl_type;
10182: l_deferred_tasks_count NUMBER := 0;
10183: l_added_task_tbl pa_project_pub.task_in_tbl_type;
10184: l_task_id_tbl pa_project_pub.task_out_tbl_type;
10185: l_count NUMBER;
10179: l_min_task_date DATE;
10180:
10181: l_deferred_new_tasks_tbl pa_project_pub.task_in_tbl_type;
10182: l_deferred_tasks_count NUMBER := 0;
10183: l_added_task_tbl pa_project_pub.task_in_tbl_type;
10184: l_task_id_tbl pa_project_pub.task_out_tbl_type;
10185: l_count NUMBER;
10186: l_task_rec pa_project_pub.task_in_rec_type;
10187: l_project_type_class_code pa_project_types.project_type_class_code%type;
10180:
10181: l_deferred_new_tasks_tbl pa_project_pub.task_in_tbl_type;
10182: l_deferred_tasks_count NUMBER := 0;
10183: l_added_task_tbl pa_project_pub.task_in_tbl_type;
10184: l_task_id_tbl pa_project_pub.task_out_tbl_type;
10185: l_count NUMBER;
10186: l_task_rec pa_project_pub.task_in_rec_type;
10187: l_project_type_class_code pa_project_types.project_type_class_code%type;
10188: l_service_type_code pa_project_types.service_type_code%type;
10182: l_deferred_tasks_count NUMBER := 0;
10183: l_added_task_tbl pa_project_pub.task_in_tbl_type;
10184: l_task_id_tbl pa_project_pub.task_out_tbl_type;
10185: l_count NUMBER;
10186: l_task_rec pa_project_pub.task_in_rec_type;
10187: l_project_type_class_code pa_project_types.project_type_class_code%type;
10188: l_service_type_code pa_project_types.service_type_code%type;
10189:
10190: l_key_members_tbl pa_project_pub.project_role_tbl_type;
10186: l_task_rec pa_project_pub.task_in_rec_type;
10187: l_project_type_class_code pa_project_types.project_type_class_code%type;
10188: l_service_type_code pa_project_types.service_type_code%type;
10189:
10190: l_key_members_tbl pa_project_pub.project_role_tbl_type;
10191: l_key_members_in_rec pa_project_pub.project_role_rec_type;
10192: l_key_members_current_rec l_key_member_csr%ROWTYPE;
10193: l_key_members_rec l_key_member_csr%ROWTYPE;
10194: l_project_man_current_rec l_project_man_current_csr%ROWTYPE;
10187: l_project_type_class_code pa_project_types.project_type_class_code%type;
10188: l_service_type_code pa_project_types.service_type_code%type;
10189:
10190: l_key_members_tbl pa_project_pub.project_role_tbl_type;
10191: l_key_members_in_rec pa_project_pub.project_role_rec_type;
10192: l_key_members_current_rec l_key_member_csr%ROWTYPE;
10193: l_key_members_rec l_key_member_csr%ROWTYPE;
10194: l_project_man_current_rec l_project_man_current_csr%ROWTYPE;
10195:
10216: /*CAR changes ends*/
10217:
10218:
10219: -- anlee org role changes
10220: l_org_roles_tbl pa_project_pub.project_role_tbl_type;
10221: l_org_roles_in_rec pa_project_pub.project_role_rec_type;
10222: l_org_roles_current_rec l_org_role_csr%ROWTYPE;
10223: l_org_roles_rec l_org_role_csr%ROWTYPE;
10224:
10217:
10218:
10219: -- anlee org role changes
10220: l_org_roles_tbl pa_project_pub.project_role_tbl_type;
10221: l_org_roles_in_rec pa_project_pub.project_role_rec_type;
10222: l_org_roles_current_rec l_org_role_csr%ROWTYPE;
10223: l_org_roles_rec l_org_role_csr%ROWTYPE;
10224:
10225: l_class_categories_tbl pa_project_pub.class_category_tbl_type ;
10221: l_org_roles_in_rec pa_project_pub.project_role_rec_type;
10222: l_org_roles_current_rec l_org_role_csr%ROWTYPE;
10223: l_org_roles_rec l_org_role_csr%ROWTYPE;
10224:
10225: l_class_categories_tbl pa_project_pub.class_category_tbl_type ;
10226: l_temp_start_date DATE;
10227: l_temp_end_date DATE;
10228: l_update_yes_flag VARCHAR2(1) := 'N';
10229: l_out_pa_task_id NUMBER;
11485: -- << End >>
11486: -- "Change Project Currency" changes By avaithia
11487:
11488: --bug 2738747
11489: ----dbms_output.put_line('PA_PROJECT_PUB.G_Published_version_exists'||PA_PROJECT_PUB.G_Published_version_exists);
11490: ----dbms_output.put_line('PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN'||PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN);
11491: ----dbms_output.put_line('PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED'||PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED);
11492: ----dbms_output.put_line('p_structure_in.structure_type'||p_structure_in.structure_type);
11493: ----dbms_output.put_line('p_pm_product_code'||p_pm_product_code);
11486: -- "Change Project Currency" changes By avaithia
11487:
11488: --bug 2738747
11489: ----dbms_output.put_line('PA_PROJECT_PUB.G_Published_version_exists'||PA_PROJECT_PUB.G_Published_version_exists);
11490: ----dbms_output.put_line('PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN'||PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN);
11491: ----dbms_output.put_line('PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED'||PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED);
11492: ----dbms_output.put_line('p_structure_in.structure_type'||p_structure_in.structure_type);
11493: ----dbms_output.put_line('p_pm_product_code'||p_pm_product_code);
11494: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
11487:
11488: --bug 2738747
11489: ----dbms_output.put_line('PA_PROJECT_PUB.G_Published_version_exists'||PA_PROJECT_PUB.G_Published_version_exists);
11490: ----dbms_output.put_line('PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN'||PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN);
11491: ----dbms_output.put_line('PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED'||PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED);
11492: ----dbms_output.put_line('p_structure_in.structure_type'||p_structure_in.structure_type);
11493: ----dbms_output.put_line('p_pm_product_code'||p_pm_product_code);
11494: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
11495: AND PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N'
11490: ----dbms_output.put_line('PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN'||PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN);
11491: ----dbms_output.put_line('PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED'||PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED);
11492: ----dbms_output.put_line('p_structure_in.structure_type'||p_structure_in.structure_type);
11493: ----dbms_output.put_line('p_pm_product_code'||p_pm_product_code);
11494: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
11495: AND PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N'
11496: AND PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y'
11497: AND p_structure_in.structure_type = 'FINANCIAL'
11498: AND p_pm_product_code <> 'WORKPLAN' --This parameter should be checked bcoz for publishing we want it to syn up with pa_tasks . For publishing p_pm_product_code will have 'WORKPLAN'
11491: ----dbms_output.put_line('PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED'||PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED);
11492: ----dbms_output.put_line('p_structure_in.structure_type'||p_structure_in.structure_type);
11493: ----dbms_output.put_line('p_pm_product_code'||p_pm_product_code);
11494: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
11495: AND PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N'
11496: AND PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y'
11497: AND p_structure_in.structure_type = 'FINANCIAL'
11498: AND p_pm_product_code <> 'WORKPLAN' --This parameter should be checked bcoz for publishing we want it to syn up with pa_tasks . For publishing p_pm_product_code will have 'WORKPLAN'
11499: THEN
11492: ----dbms_output.put_line('p_structure_in.structure_type'||p_structure_in.structure_type);
11493: ----dbms_output.put_line('p_pm_product_code'||p_pm_product_code);
11494: IF PA_PROJECT_PUB.G_Published_version_exists = 'Y'
11495: AND PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N'
11496: AND PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y'
11497: AND p_structure_in.structure_type = 'FINANCIAL'
11498: AND p_pm_product_code <> 'WORKPLAN' --This parameter should be checked bcoz for publishing we want it to syn up with pa_tasks . For publishing p_pm_product_code will have 'WORKPLAN'
11499: THEN
11500: --Change the flow to WORKPLAN
15518: pa_debug.write(l_module_name,'p_project_in.sys_program_flag='||p_project_in.sys_program_flag,3);
15519: pa_debug.write(l_module_name,'p_project_in.allow_multi_program_rollup='||p_project_in.allow_multi_program_rollup,3);
15520: END IF;
15521:
15522: PA_PROJECT_PUB.SETUP_PROJECT_AS_PROGRAM(
15523: p_api_version => p_api_version_number
15524: , p_init_msg_list => p_init_msg_list
15525: , p_commit => p_commit
15526: , p_max_msg_count => p_msg_count
15842:
15843: l_statement := l_statement ||
15844: -- ' WHERE PROJECT_ID = '|| TO_CHAR(l_project_id);
15845: ' WHERE PROJECT_ID = :prj_id'; --bug 2955326
15846: IF NVL(PA_PROJECT_PUB.G_MASS_UPDATE_TASKS,'N') = 'N' THEN
15847: l_cursor := dbms_sql.open_cursor;
15848: dbms_sql.parse(l_cursor, l_statement, dbms_sql.native);
15849:
15850: --bug 2955326
16456: l_expected_approval_date := p_project_in.expected_approval_date;
16457: End if;
16458:
16459: -- Skip below update to avoid locking issue when called from Bulk_Update_Task_Lite
16460: IF NVL(PA_PROJECT_PUB.G_MASS_UPDATE_TASKS,'N') = 'N' THEN
16461: PA_OPPORTUNITY_MGT_PVT.MODIFY_PROJECT_ATTRIBUTES
16462: ( p_project_id => l_project_id
16463: ,p_opportunity_value => l_opportunity_value
16464: ,p_opp_value_currency_code => l_opp_value_currency_code
17989:
17990: -- Changes start for Bug# 3931805
17991: IF NVL( p_pm_product_code, 'WORKPLAN' ) <> 'WORKPLAN' -- We should not be calling the task weightage apis when it is the
17992: THEN -- publishing flow.
17993: PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id );
17994: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
17995: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
17996:
17997: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
17990: -- Changes start for Bug# 3931805
17991: IF NVL( p_pm_product_code, 'WORKPLAN' ) <> 'WORKPLAN' -- We should not be calling the task weightage apis when it is the
17992: THEN -- publishing flow.
17993: PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id );
17994: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
17995: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
17996:
17997: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
17998: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
17991: IF NVL( p_pm_product_code, 'WORKPLAN' ) <> 'WORKPLAN' -- We should not be calling the task weightage apis when it is the
17992: THEN -- publishing flow.
17993: PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id );
17994: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
17995: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
17996:
17997: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
17998: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
17999: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
17993: PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id );
17994: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
17995: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
17996:
17997: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
17998: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
17999: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
18000: PA_PROJECT_PUB.G_Published_version_exists = 'N')
18001: THEN
17994: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
17995: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
17996:
17997: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
17998: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
17999: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
18000: PA_PROJECT_PUB.G_Published_version_exists = 'N')
18001: THEN
18002: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
17995: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
17996:
17997: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
17998: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
17999: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
18000: PA_PROJECT_PUB.G_Published_version_exists = 'N')
18001: THEN
18002: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
18003: l_update_wbs_flag := PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(p_project_id => l_project_id
17996:
17997: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
17998: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
17999: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
18000: PA_PROJECT_PUB.G_Published_version_exists = 'N')
18001: THEN
18002: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
18003: l_update_wbs_flag := PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(p_project_id => l_project_id
18004: ,p_structure_version_id => l_structure_version_id ) ;
18506: IF l_structure_type = 'FINANCIAL'
18507: THEN
18508: IF NVL( p_pm_product_code, 'WORKPLAN' ) <> 'WORKPLAN' -- We should not be calling the task weightage apis when it is the
18509: THEN -- publishing flow.
18510: PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id );
18511: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
18512: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
18513: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' /*added IF condition for bug#13923366*/
18514: THEN
18507: THEN
18508: IF NVL( p_pm_product_code, 'WORKPLAN' ) <> 'WORKPLAN' -- We should not be calling the task weightage apis when it is the
18509: THEN -- publishing flow.
18510: PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id );
18511: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
18512: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
18513: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' /*added IF condition for bug#13923366*/
18514: THEN
18515: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
18508: IF NVL( p_pm_product_code, 'WORKPLAN' ) <> 'WORKPLAN' -- We should not be calling the task weightage apis when it is the
18509: THEN -- publishing flow.
18510: PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id );
18511: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
18512: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
18513: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' /*added IF condition for bug#13923366*/
18514: THEN
18515: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
18516: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
18509: THEN -- publishing flow.
18510: PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id );
18511: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
18512: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
18513: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' /*added IF condition for bug#13923366*/
18514: THEN
18515: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
18516: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
18517: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
18511: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id );
18512: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
18513: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' /*added IF condition for bug#13923366*/
18514: THEN
18515: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
18516: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
18517: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
18518: PA_PROJECT_PUB.G_Published_version_exists = 'N')
18519: THEN
18512: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id );
18513: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' /*added IF condition for bug#13923366*/
18514: THEN
18515: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
18516: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
18517: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
18518: PA_PROJECT_PUB.G_Published_version_exists = 'N')
18519: THEN
18520: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
18513: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' /*added IF condition for bug#13923366*/
18514: THEN
18515: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
18516: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
18517: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
18518: PA_PROJECT_PUB.G_Published_version_exists = 'N')
18519: THEN
18520: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
18521: l_update_wbs_flag := PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(p_project_id => l_project_id
18514: THEN
18515: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
18516: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
18517: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
18518: PA_PROJECT_PUB.G_Published_version_exists = 'N')
18519: THEN
18520: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(l_project_id);
18521: l_update_wbs_flag := PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(p_project_id => l_project_id
18522: ,p_structure_version_id => l_structure_version_id ) ;
18574: --bug 2871308: added condition to by-pass when calling from publish api
18575: --should not call if new task is added to FINANCIAL structure version
18576: THEN
18577: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
18578: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N'
18579: then
18580: PA_PROJ_TASK_STRUC_PUB.recalc_task_weightings(
18581: p_tasks_in => l_tasks_out
18582: ,p_task_version_id => null
18615: END IF;
18616: -- added if condition for bug 13923366 by skkoppul
18617: -- Skip rolling up dates, weightages and ETC amounts
18618: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
18619: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' THEN
18620: IF NVL(PA_PROJECT_PUB.G_BULK_UPDATE_MODE,' ') <> 'NO_DATES' THEN
18621:
18622: PA_PROJ_TASK_STRUC_PUB.rollup_dates(
18623: p_tasks_in => l_tasks_out --null if called for one task
18616: -- added if condition for bug 13923366 by skkoppul
18617: -- Skip rolling up dates, weightages and ETC amounts
18618: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
18619: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER, 'N') = 'N' THEN
18620: IF NVL(PA_PROJECT_PUB.G_BULK_UPDATE_MODE,' ') <> 'NO_DATES' THEN
18621:
18622: PA_PROJ_TASK_STRUC_PUB.rollup_dates(
18623: p_tasks_in => l_tasks_out --null if called for one task
18624: ,p_task_version_id => null
21781: --bug 3845240: use l_project_id instead of p_project_out.pa_project_id
21782: IF (PA_PROJ_TASK_STRUC_PUB.WP_STR_EXISTS(l_project_id) = 'Y') AND
21783: l_update_structure_version_id IS NOT NULL AND
21784: l_update_structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
21785: AND NVL(PA_PROJECT_PUB.G_MASS_UPDATE_TASKS,'N') = 'N' -- For performance improvement 14556729
21786: THEN
21787: pa_proj_task_struc_pub.delete_intra_dependency(
21788: p_element_version_id => l_update_structure_version_id
21789: ,x_return_status => l_return_status );
21911: OR
21912: (l_task_in_rec.mapped_task_id IS NULL OR l_task_in_rec.mapped_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM )
21913: )
21914: THEN
21915: pa_project_pub.update_mapping
21916: (
21917: p_api_version => p_api_version_number
21918: , p_init_msg_list => FND_API.G_FALSE
21919: , p_commit => FND_API.G_FALSE--bug 3766967
22118:
22119: IF (l_dlvr_dml_action = G_CREATE_MODE) THEN
22120:
22121: -- Invoking the Create Deliverable API
22122: Pa_Project_Pub.create_deliverable
22123: (
22124: p_api_version => p_api_version_number
22125: , p_init_msg_list => p_init_msg_list
22126: -- 3735792, passing p_commit as false to next level api calls
22939:
22940: --BUG 4106154, rtarway
22941: l_update_pa_tasks VARCHAR2(1);
22942:
22943: l_tasks_out pa_project_pub.task_out_tbl_type; --bug 4199694
22944:
22945: --BUG 4081329, rtarway
22946: cursor cur_get_child_task_dates (l_project_id NUMBER, l_task_id NUMBER)
22947: IS select task_id, start_date, completion_date, parent_task_id from pa_tasks --Fix for 7427388
23669: l_wp_attribute14 := p_attribute14;
23670: l_wp_attribute15 := p_attribute15;
23671:
23672: -- added following code to update both fin and worklan tasks dff for Huawei enhancement bug 13923366
23673: IF PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' AND PA_PROJECT_PUB.G_FP_DFF_TBL.COUNT > 0 THEN
23674: i := PA_PROJECT_PUB.G_FP_DFF_TBL.FIRST;
23675: WHILE i IS NOT NULL LOOP
23676: IF ((PA_PROJECT_PUB.G_FP_DFF_TBL(i).pa_task_id = p_pa_task_id) OR
23677: (PA_PROJECT_PUB.G_FP_DFF_TBL(i).pa_task_name = p_task_name AND
23670: l_wp_attribute15 := p_attribute15;
23671:
23672: -- added following code to update both fin and worklan tasks dff for Huawei enhancement bug 13923366
23673: IF PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' AND PA_PROJECT_PUB.G_FP_DFF_TBL.COUNT > 0 THEN
23674: i := PA_PROJECT_PUB.G_FP_DFF_TBL.FIRST;
23675: WHILE i IS NOT NULL LOOP
23676: IF ((PA_PROJECT_PUB.G_FP_DFF_TBL(i).pa_task_id = p_pa_task_id) OR
23677: (PA_PROJECT_PUB.G_FP_DFF_TBL(i).pa_task_name = p_task_name AND
23678: PA_PROJECT_PUB.G_FP_DFF_TBL(i).pm_task_reference = p_pm_task_reference)) THEN
23672: -- added following code to update both fin and worklan tasks dff for Huawei enhancement bug 13923366
23673: IF PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' AND PA_PROJECT_PUB.G_FP_DFF_TBL.COUNT > 0 THEN
23674: i := PA_PROJECT_PUB.G_FP_DFF_TBL.FIRST;
23675: WHILE i IS NOT NULL LOOP
23676: IF ((PA_PROJECT_PUB.G_FP_DFF_TBL(i).pa_task_id = p_pa_task_id) OR
23677: (PA_PROJECT_PUB.G_FP_DFF_TBL(i).pa_task_name = p_task_name AND
23678: PA_PROJECT_PUB.G_FP_DFF_TBL(i).pm_task_reference = p_pm_task_reference)) THEN
23679: EXIT;
23680: ELSE
23673: IF PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' AND PA_PROJECT_PUB.G_FP_DFF_TBL.COUNT > 0 THEN
23674: i := PA_PROJECT_PUB.G_FP_DFF_TBL.FIRST;
23675: WHILE i IS NOT NULL LOOP
23676: IF ((PA_PROJECT_PUB.G_FP_DFF_TBL(i).pa_task_id = p_pa_task_id) OR
23677: (PA_PROJECT_PUB.G_FP_DFF_TBL(i).pa_task_name = p_task_name AND
23678: PA_PROJECT_PUB.G_FP_DFF_TBL(i).pm_task_reference = p_pm_task_reference)) THEN
23679: EXIT;
23680: ELSE
23681: i := PA_PROJECT_PUB.G_FP_DFF_TBL.NEXT(i);
23674: i := PA_PROJECT_PUB.G_FP_DFF_TBL.FIRST;
23675: WHILE i IS NOT NULL LOOP
23676: IF ((PA_PROJECT_PUB.G_FP_DFF_TBL(i).pa_task_id = p_pa_task_id) OR
23677: (PA_PROJECT_PUB.G_FP_DFF_TBL(i).pa_task_name = p_task_name AND
23678: PA_PROJECT_PUB.G_FP_DFF_TBL(i).pm_task_reference = p_pm_task_reference)) THEN
23679: EXIT;
23680: ELSE
23681: i := PA_PROJECT_PUB.G_FP_DFF_TBL.NEXT(i);
23682: END IF;
23677: (PA_PROJECT_PUB.G_FP_DFF_TBL(i).pa_task_name = p_task_name AND
23678: PA_PROJECT_PUB.G_FP_DFF_TBL(i).pm_task_reference = p_pm_task_reference)) THEN
23679: EXIT;
23680: ELSE
23681: i := PA_PROJECT_PUB.G_FP_DFF_TBL.NEXT(i);
23682: END IF;
23683: END LOOP;
23684: l_attribute_category := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute_category;
23685:
23680: ELSE
23681: i := PA_PROJECT_PUB.G_FP_DFF_TBL.NEXT(i);
23682: END IF;
23683: END LOOP;
23684: l_attribute_category := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute_category;
23685:
23686: l_attribute1 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute1;
23687: l_attribute2 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute2;
23688: l_attribute3 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute3;
23682: END IF;
23683: END LOOP;
23684: l_attribute_category := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute_category;
23685:
23686: l_attribute1 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute1;
23687: l_attribute2 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute2;
23688: l_attribute3 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute3;
23689: l_attribute4 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute4;
23690: l_attribute5 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute5;
23683: END LOOP;
23684: l_attribute_category := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute_category;
23685:
23686: l_attribute1 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute1;
23687: l_attribute2 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute2;
23688: l_attribute3 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute3;
23689: l_attribute4 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute4;
23690: l_attribute5 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute5;
23691: l_attribute6 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute6;
23684: l_attribute_category := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute_category;
23685:
23686: l_attribute1 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute1;
23687: l_attribute2 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute2;
23688: l_attribute3 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute3;
23689: l_attribute4 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute4;
23690: l_attribute5 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute5;
23691: l_attribute6 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute6;
23692: l_attribute7 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute7;
23685:
23686: l_attribute1 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute1;
23687: l_attribute2 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute2;
23688: l_attribute3 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute3;
23689: l_attribute4 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute4;
23690: l_attribute5 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute5;
23691: l_attribute6 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute6;
23692: l_attribute7 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute7;
23693: l_attribute8 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute8;
23686: l_attribute1 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute1;
23687: l_attribute2 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute2;
23688: l_attribute3 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute3;
23689: l_attribute4 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute4;
23690: l_attribute5 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute5;
23691: l_attribute6 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute6;
23692: l_attribute7 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute7;
23693: l_attribute8 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute8;
23694: l_attribute9 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute9;
23687: l_attribute2 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute2;
23688: l_attribute3 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute3;
23689: l_attribute4 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute4;
23690: l_attribute5 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute5;
23691: l_attribute6 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute6;
23692: l_attribute7 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute7;
23693: l_attribute8 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute8;
23694: l_attribute9 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute9;
23695: l_attribute10 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute10;
23688: l_attribute3 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute3;
23689: l_attribute4 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute4;
23690: l_attribute5 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute5;
23691: l_attribute6 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute6;
23692: l_attribute7 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute7;
23693: l_attribute8 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute8;
23694: l_attribute9 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute9;
23695: l_attribute10 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute10;
23696:
23689: l_attribute4 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute4;
23690: l_attribute5 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute5;
23691: l_attribute6 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute6;
23692: l_attribute7 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute7;
23693: l_attribute8 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute8;
23694: l_attribute9 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute9;
23695: l_attribute10 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute10;
23696:
23697: ELSE
23690: l_attribute5 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute5;
23691: l_attribute6 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute6;
23692: l_attribute7 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute7;
23693: l_attribute8 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute8;
23694: l_attribute9 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute9;
23695: l_attribute10 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute10;
23696:
23697: ELSE
23698:
23691: l_attribute6 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute6;
23692: l_attribute7 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute7;
23693: l_attribute8 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute8;
23694: l_attribute9 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute9;
23695: l_attribute10 := PA_PROJECT_PUB.G_FP_DFF_TBL(i).attribute10;
23696:
23697: ELSE
23698:
23699: l_attribute_category := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR;
23870: and project_id = l_project_id;
23871: end if;
23872: end if;*/
23873: -- Added one more condition to check rollup flag to defer the date updates 14556729
23874: if ( NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N' AND p_task_completion_date is not null and p_task_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE ) then
23875: open cur_get_child_task_dates (l_project_id,l_pa_task_id);
23876: fetch cur_get_child_task_dates bulk collect into l_task_id_tbl,
23877: l_start_date_tbl,
23878: l_completion_date_tbl,
23907: l_completion_date_tbl.delete;
23908:
23909: --BUG#7015228, update all child tasks which have null start date, if start date is getting updated
23910: -- Added one more condition to check rollup flag to defer the date updates 14556729
23911: if (NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N' AND p_task_start_date is not null and p_task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE) then
23912: open cur_get_child_task_start_dates (l_project_id,l_pa_task_id);
23913: fetch cur_get_child_task_start_dates bulk collect into l_task_id_tbl,
23914: l_start_date_tbl,
23915: l_completion_date_tbl;
24402: OR
24403: ( p_mapped_task_id IS NULL OR p_mapped_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
24404: )
24405: THEN
24406: pa_project_pub.update_mapping
24407: (
24408: p_api_version => p_api_version_number
24409: , p_init_msg_list => p_init_msg_list
24410: , p_commit => FND_API.G_FALSE--bug 3766967
24503: END IF;
24504: ---bug 4199694
24505:
24506: -- These globals have been intialized before they are used!
24507: PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id ); -- Bug 3106457
24508: /* Commented the code below for bug#3451073
24509: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id ); -- Bug 3106457 */
24510: /* Added the If condition Bug#3451073 */
24511: IF p_is_wp_seperate_from_fn = 'X'
24505:
24506: -- These globals have been intialized before they are used!
24507: PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED( l_project_id ); -- Bug 3106457
24508: /* Commented the code below for bug#3451073
24509: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id ); -- Bug 3106457 */
24510: /* Added the If condition Bug#3451073 */
24511: IF p_is_wp_seperate_from_fn = 'X'
24512: THEN
24513: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id ); -- Bug 3106457
24509: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id ); -- Bug 3106457 */
24510: /* Added the If condition Bug#3451073 */
24511: IF p_is_wp_seperate_from_fn = 'X'
24512: THEN
24513: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id ); -- Bug 3106457
24514: ELSE
24515: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := p_is_wp_seperate_from_fn; -- Addded for bug#3451073
24516: END IF;
24517:
24511: IF p_is_wp_seperate_from_fn = 'X'
24512: THEN
24513: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := PA_PROJ_TASK_STRUC_PUB.IS_WP_SEPARATE_FROM_FN( l_project_id ); -- Bug 3106457
24514: ELSE
24515: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := p_is_wp_seperate_from_fn; -- Addded for bug#3451073
24516: END IF;
24517:
24518: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id ); -- Bug 3106457
24519:
24514: ELSE
24515: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN := p_is_wp_seperate_from_fn; -- Addded for bug#3451073
24516: END IF;
24517:
24518: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id ); -- Bug 3106457
24519:
24520: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
24521: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
24522: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
24516: END IF;
24517:
24518: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id ); -- Bug 3106457
24519:
24520: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
24521: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
24522: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
24523: PA_PROJECT_PUB.G_Published_version_exists = 'N')
24524: THEN
24517:
24518: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id ); -- Bug 3106457
24519:
24520: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
24521: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
24522: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
24523: PA_PROJECT_PUB.G_Published_version_exists = 'N')
24524: THEN
24525:
24518: PA_PROJECT_PUB.G_Published_version_exists := PA_PROJ_TASK_STRUC_PUB.Published_version_exists( l_project_id ); -- Bug 3106457
24519:
24520: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
24521: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
24522: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
24523: PA_PROJECT_PUB.G_Published_version_exists = 'N')
24524: THEN
24525:
24526: l_update_wbs_flag := PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(p_project_id => l_project_id -- Bug 3106457 p_pa_project_id
24519:
24520: IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
24521: ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
24522: PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
24523: PA_PROJECT_PUB.G_Published_version_exists = 'N')
24524: THEN
24525:
24526: l_update_wbs_flag := PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(p_project_id => l_project_id -- Bug 3106457 p_pa_project_id
24527: ,p_structure_version_id => l_structure_version_id ) ; -- Bug 3106457
27410:
27411: -- Progress Management Changes. Bug # 3420093.
27412:
27413:
27414: PA_PROJECT_PUB.load_task (
27415: p_api_version_number => G_API_VERSION_NUMBER
27416: ,p_init_msg_list => p_init_msg_list
27417: ,p_return_status => l_return_status
27418: ,p_pm_task_reference => p_pm_task_reference(i)
27697: PROCEDURE load_extensible_attribute(P_API_VERSION_NUMBER IN NUMBER := 1.0,
27698: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
27699: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
27700: X_RETURN_STATUS OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
27701: P_TRANSACTION_TYPE IN VARCHAR2 := PA_PROJECT_PUB.G_SYNC_MODE,
27702: P_TASK_ID IN NUMBER := NULL,
27703: P_TASK_REFERENCE IN VARCHAR2 := NULL,
27704: P_ATTR_GRP_INTERNAL_NAME IN VARCHAR2 := NULL,
27705: P_ATTR_GRP_ID IN NUMBER := NULL,
27800: PROCEDURE load_extensible_attributes(P_API_VERSION_NUMBER IN NUMBER,
27801: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
27802: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
27803: X_RETURN_STATUS OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
27804: P_TRANSACTION_TYPE IN PA_VC_1000_10 := PA_VC_1000_10(PA_PROJECT_PUB.G_SYNC_MODE),
27805: P_TASK_ID IN PA_NUM_1000_NUM := PA_NUM_1000_NUM(NULL),
27806: P_TASK_REFERENCE IN PA_VC_1000_150 := PA_VC_1000_150(NULL),
27807: P_ATTR_GRP_INTERNAL_NAME IN PA_VC_1000_30 := PA_VC_1000_30(NULL),
27808: P_ATTR_GRP_ID IN PA_NUM_1000_NUM := PA_NUM_1000_NUM(NULL),
27828: l_attr_value_num_flag BOOLEAN := (P_ATTR_VALUE_NUM.count = 1 and P_ATTR_VALUE_NUM(1) = NULL);
27829: l_attr_value_date_flag BOOLEAN := (P_ATTR_VALUE_DATE.count = 1 and P_ATTR_VALUE_DATE(1) = NULL);
27830: l_attr_disp_value_flag BOOLEAN := (P_ATTR_DISP_VALUE.count = 1 and P_ATTR_DISP_VALUE(1) = NULL);
27831: l_attr_unit_of_measure_flag BOOLEAN := (P_ATTR_VALUE_NUM_UOM.count = 1 and P_ATTR_VALUE_NUM_UOM(1) = NULL);
27832: l_transaction_type_flag BOOLEAN := (P_TRANSACTION_TYPE.count = 1 and P_TRANSACTION_TYPE(1) = PA_PROJECT_PUB.G_SYNC_MODE);
27833:
27834: l_proj_element_id NUMBER;
27835: l_proj_element_reference VARCHAR2(30);
27836: l_attr_group_int_name VARCHAR2(30);
27934:
27935: if (l_transaction_type_flag <> TRUE) then
27936: l_transaction_type := P_TRANSACTION_TYPE(i);
27937: else
27938: l_transaction_type := PA_PROJECT_PUB.G_SYNC_MODE;
27939: end if;
27940:
27941: -- call unit api
27942: load_extensible_attribute
28202: END IF;
28203:
28204: -- PA L Changes 3010538
28205: --Commenting as for a publishing case we need to always check for update wbs required flag
28206: -- IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
28207: -- ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
28208: -- PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
28209: -- PA_PROJECT_PUB.G_Published_version_exists = 'N')
28210: -- THEN
28203:
28204: -- PA L Changes 3010538
28205: --Commenting as for a publishing case we need to always check for update wbs required flag
28206: -- IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
28207: -- ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
28208: -- PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
28209: -- PA_PROJECT_PUB.G_Published_version_exists = 'N')
28210: -- THEN
28211:
28204: -- PA L Changes 3010538
28205: --Commenting as for a publishing case we need to always check for update wbs required flag
28206: -- IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
28207: -- ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
28208: -- PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
28209: -- PA_PROJECT_PUB.G_Published_version_exists = 'N')
28210: -- THEN
28211:
28212: l_update_wbs_flag := PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(p_project_id => p_pa_project_id
28205: --Commenting as for a publishing case we need to always check for update wbs required flag
28206: -- IF ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'N' ) OR
28207: -- ( PA_PROJECT_PUB.G_IS_WP_VERSIONING_ENABLED = 'Y' AND
28208: -- PA_PROJECT_PUB.G_IS_WP_SEPARATE_FROM_FN = 'N' AND
28209: -- PA_PROJECT_PUB.G_Published_version_exists = 'N')
28210: -- THEN
28211:
28212: l_update_wbs_flag := PA_PROJECT_STRUCTURE_UTILS.GET_UPDATE_WBS_FLAG(p_project_id => p_pa_project_id
28213: ,p_structure_version_id => p_published_struct_ver_id ) ;
31289: -- Initialize the message table if requested.
31290: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
31291: FND_MSG_PUB.initialize;
31292: END IF;
31293: ---- --dbms_output.put_line('entering pa_project_pub.Update_deliverable['||p_project_id||']['||p_task_id||']');
31294:
31295: -- 3735792, setting save point unconditionally
31296: --IF (p_commit = FND_API.G_TRUE) THEN
31297: savepoint UPDATE_DELIVERABLE_PUB;
35953: present in the published versions should be deleted right away and the MSP should not show any message.
35954:
35955: Analysis:
35956:
35957: This is happening due to value 'M' being returned from the PA_PROJECT_PUB.check_task_mfd APIs OUT param p_check_task_mfd_flag.
35958: The reason is due to the bug in the cursor l_amg_task_csr.
35959: This SQL is starting with an element id i.e the task id and getting the parent sturcture id and looking for that parent
35960: structure id's published status in other tables.
35961:
36117: , x_structure_version_id => l_structure_version_id
36118: , x_task_version_id => l_task_version_id);
36119: --------------------------------------------------------------------------------------------------------------------------------
36120: -- If p_perform_check_delete_task_ok is "Y" , then we need to call the API
36121: -- pa_project_pub.Check_Delete_Task_OK
36122:
36123: IF p_perform_check_delete_task_ok ='Y' THEN
36124: pa_project_pub.Check_Delete_Task_OK
36125: (
36120: -- If p_perform_check_delete_task_ok is "Y" , then we need to call the API
36121: -- pa_project_pub.Check_Delete_Task_OK
36122:
36123: IF p_perform_check_delete_task_ok ='Y' THEN
36124: pa_project_pub.Check_Delete_Task_OK
36125: (
36126: p_api_version_number => p_api_version_number
36127: -- Start OUT params
36128: , p_return_status => l_return_status
36321: -- This API is supposed to be calling only in AMG/MSP context.
36322: --
36323: -- This is not a standalone API .This API will produce useful output only if its called after WP publishing flow
36324: --
36325: -- We set the value for out param x_deleted_task_ver_ids in the global VARRAY PA_PROJECT_PUB.G_DELETED_TASK_IDS_FROM_OP
36326: -- in the Publish_Structure API (PAXSTCVB.pls) ONLY if p_calling_module in that API is 'AMG'
36327:
36328: PROCEDURE get_deleted_tasks_from_op
36329: (
36336: BEGIN
36337: x_msg_count := 0;
36338: x_return_status := FND_API.G_RET_STS_SUCCESS;
36339: x_msg_data := NULL;
36340: x_deleted_task_ids := PA_PROJECT_PUB.G_DELETED_TASK_IDS_FROM_OP;
36341: EXCEPTION
36342: WHEN OTHERS THEN
36343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36344: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
36712: and NVL(ppes.process_code,'WUE') = 'WUE'
36713: and ppes.pev_structure_id = i.pev_structure_id;
36714:
36715: if nvl(l_exists,'Y') = 'X' Then
36716: PA_PROJECT_PUB.process_structure_updates
36717: ( p_api_version_number => 1.0
36718: , p_init_msg_list => FND_API.G_TRUE
36719: , p_commit => FND_API.G_FALSE
36720: , p_return_status => l_return_status
37012: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
37013: , p_commit IN VARCHAR2 := FND_API.G_FALSE
37014: , p_debug_mode IN VARCHAR2 := 'N'
37015: , p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
37016: , p_program_links_tbl IN PA_PROJECT_PUB.PROGRAM_LINKS_TBL_TYPE
37017: , x_return_status OUT NOCOPY VARCHAR2
37018: , x_msg_count OUT NOCOPY NUMBER
37019: , x_msg_data OUT NOCOPY VARCHAR2)
37020: is
37592: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
37593: , p_commit IN VARCHAR2 := FND_API.G_FALSE
37594: , p_debug_mode IN VARCHAR2 := 'N'
37595: , p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
37596: , p_program_links_tbl IN PA_PROJECT_PUB.PROGRAM_LINKS_TBL_TYPE
37597: , x_return_status OUT NOCOPY VARCHAR2
37598: , x_msg_count OUT NOCOPY NUMBER
37599: , x_msg_data OUT NOCOPY VARCHAR2)
37600: is
38708: ,x_msg_count OUT NOCOPY NUMBER
38709: ,x_msg_data OUT NOCOPY VARCHAR2
38710: ,x_return_status OUT NOCOPY VARCHAR2
38711: ,p_project_id IN NUMBER
38712: ,p_tasks_in IN pa_project_pub.lite_task_in_tbl_type
38713: ,p_pass_entire_structure IN VARCHAR2
38714: ,p_pm_product_code IN VARCHAR2
38715: ,p_bulk_update_mode IN VARCHAR2 := 'ALL' -- other possible value is 'NO_DATES'
38716: ,p_op_validate_flag IN VARCHAR2 := 'N'
38735: AND object_type = 'PA_TASKS'
38736: ORDER BY display_sequence;
38737:
38738: l_project_details_rec get_project_details_csr%ROWTYPE;
38739: l_project_in_rec pa_project_pub.project_in_rec_type;
38740: l_project_out_rec pa_project_pub.project_out_rec_type;
38741: l_tasks_in pa_project_pub.task_in_tbl_type;
38742: l_tasks_out pa_project_pub.task_out_tbl_type;
38743: l_workflow_started VARCHAR2(1);
38736: ORDER BY display_sequence;
38737:
38738: l_project_details_rec get_project_details_csr%ROWTYPE;
38739: l_project_in_rec pa_project_pub.project_in_rec_type;
38740: l_project_out_rec pa_project_pub.project_out_rec_type;
38741: l_tasks_in pa_project_pub.task_in_tbl_type;
38742: l_tasks_out pa_project_pub.task_out_tbl_type;
38743: l_workflow_started VARCHAR2(1);
38744: l_first_index NUMBER;
38737:
38738: l_project_details_rec get_project_details_csr%ROWTYPE;
38739: l_project_in_rec pa_project_pub.project_in_rec_type;
38740: l_project_out_rec pa_project_pub.project_out_rec_type;
38741: l_tasks_in pa_project_pub.task_in_tbl_type;
38742: l_tasks_out pa_project_pub.task_out_tbl_type;
38743: l_workflow_started VARCHAR2(1);
38744: l_first_index NUMBER;
38745: l_last_index NUMBER;
38738: l_project_details_rec get_project_details_csr%ROWTYPE;
38739: l_project_in_rec pa_project_pub.project_in_rec_type;
38740: l_project_out_rec pa_project_pub.project_out_rec_type;
38741: l_tasks_in pa_project_pub.task_in_tbl_type;
38742: l_tasks_out pa_project_pub.task_out_tbl_type;
38743: l_workflow_started VARCHAR2(1);
38744: l_first_index NUMBER;
38745: l_last_index NUMBER;
38746: l_count NUMBER;
38789: l_project_in_rec.project_name := l_project_details_rec.name;
38790: l_project_in_rec.pa_project_id := p_project_id;
38791: l_project_in_rec.process_mode := 'CONCURRENT';
38792:
38793: PA_PROJECT_PUB.G_MASS_UPDATE_TASKS := 'Y';
38794: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38795: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38796: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38797: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
38790: l_project_in_rec.pa_project_id := p_project_id;
38791: l_project_in_rec.process_mode := 'CONCURRENT';
38792:
38793: PA_PROJECT_PUB.G_MASS_UPDATE_TASKS := 'Y';
38794: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38795: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38796: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38797: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
38798: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
38791: l_project_in_rec.process_mode := 'CONCURRENT';
38792:
38793: PA_PROJECT_PUB.G_MASS_UPDATE_TASKS := 'Y';
38794: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38795: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38796: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38797: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
38798: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
38799: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
38792:
38793: PA_PROJECT_PUB.G_MASS_UPDATE_TASKS := 'Y';
38794: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38795: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38796: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38797: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
38798: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
38799: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
38800: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38793: PA_PROJECT_PUB.G_MASS_UPDATE_TASKS := 'Y';
38794: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38795: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38796: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38797: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
38798: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
38799: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
38800: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38801: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
38794: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38795: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38796: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38797: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
38798: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
38799: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
38800: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38801: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
38802: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38795: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38796: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38797: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
38798: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
38799: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
38800: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38801: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
38802: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38803: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := p_bulk_update_mode;
38796: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38797: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
38798: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
38799: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
38800: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38801: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
38802: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38803: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := p_bulk_update_mode;
38804:
38797: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
38798: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
38799: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
38800: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38801: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
38802: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38803: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := p_bulk_update_mode;
38804:
38805: -- Set the G_ROLLUP_FLAG based on profile options
38798: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
38799: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
38800: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38801: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
38802: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38803: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := p_bulk_update_mode;
38804:
38805: -- Set the G_ROLLUP_FLAG based on profile options
38806: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
38799: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
38800: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38801: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
38802: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38803: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := p_bulk_update_mode;
38804:
38805: -- Set the G_ROLLUP_FLAG based on profile options
38806: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
38807: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
38802: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38803: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := p_bulk_update_mode;
38804:
38805: -- Set the G_ROLLUP_FLAG based on profile options
38806: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
38807: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
38808: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38809: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'UPDATE',l_msg_data,l_return_status);
38810: IF l_return_status <> 'S'
38804:
38805: -- Set the G_ROLLUP_FLAG based on profile options
38806: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
38807: l_structure_version_id := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
38808: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38809: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'UPDATE',l_msg_data,l_return_status);
38810: IF l_return_status <> 'S'
38811: THEN
38812: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
38817: END IF;
38818: END IF;
38819:
38820:
38821: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
38822: l_first_index := p_tasks_in.first;
38823: l_last_index := p_tasks_in.last;
38824: l_count := 0;
38825: FOR j IN l_first_index..l_last_index LOOP
38919: l_tasks_in(l_count).BASELINE_START_DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE;
38920: l_tasks_in(l_count).BASELINE_FINISH_DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE;
38921: l_tasks_in(l_count).CLOSED_DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE;
38922: END IF;
38923: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38924: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,p_tasks_in(j).pa_task_id,l_structure_version_id,'UPDATE');
38925: END IF;
38926: END LOOP;
38927:
38924: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,p_tasks_in(j).pa_task_id,l_structure_version_id,'UPDATE');
38925: END IF;
38926: END LOOP;
38927:
38928: pa_project_pub.update_project(p_api_version_number => p_api_version_number,
38929: p_commit => p_commit,
38930: p_init_msg_list => p_init_msg_list,
38931: p_msg_count => l_msg_count,
38932: p_msg_data => l_msg_data,
38944: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
38945: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
38946: RAISE FND_API.G_EXC_ERROR;
38947: END IF;
38948: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38949: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
38950: END IF;
38951: -- reset all global variables with NULL
38952: PA_PROJECT_PUB.G_MASS_UPDATE_TASKS := NULL;
38948: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38949: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
38950: END IF;
38951: -- reset all global variables with NULL
38952: PA_PROJECT_PUB.G_MASS_UPDATE_TASKS := NULL;
38953: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38954: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38955: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38956: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
38949: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
38950: END IF;
38951: -- reset all global variables with NULL
38952: PA_PROJECT_PUB.G_MASS_UPDATE_TASKS := NULL;
38953: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38954: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38955: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38956: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
38957: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
38950: END IF;
38951: -- reset all global variables with NULL
38952: PA_PROJECT_PUB.G_MASS_UPDATE_TASKS := NULL;
38953: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38954: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38955: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38956: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
38957: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
38958: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
38951: -- reset all global variables with NULL
38952: PA_PROJECT_PUB.G_MASS_UPDATE_TASKS := NULL;
38953: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38954: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38955: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38956: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
38957: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
38958: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
38959: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38952: PA_PROJECT_PUB.G_MASS_UPDATE_TASKS := NULL;
38953: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38954: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38955: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38956: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
38957: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
38958: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
38959: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38960: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
38953: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
38954: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38955: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38956: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
38957: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
38958: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
38959: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38960: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
38961: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38954: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
38955: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38956: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
38957: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
38958: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
38959: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38960: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
38961: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38962: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := NULL;
38955: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
38956: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
38957: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
38958: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
38959: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38960: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
38961: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38962: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := NULL;
38963:
38956: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
38957: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
38958: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
38959: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38960: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
38961: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38962: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := NULL;
38963:
38964: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
38957: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
38958: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
38959: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38960: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
38961: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38962: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := NULL;
38963:
38964: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
38965:
38958: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
38959: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
38960: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
38961: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38962: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := NULL;
38963:
38964: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
38965:
38966: IF (FND_API.to_boolean( p_commit )) THEN
38960: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
38961: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
38962: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := NULL;
38963:
38964: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
38965:
38966: IF (FND_API.to_boolean( p_commit )) THEN
38967: COMMIT WORK;
38968: END IF;
38975:
38976: FND_MSG_PUB.Count_And_Get
38977: ( p_count => x_msg_count ,
38978: p_data => x_msg_data );
38979: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38980: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
38981: END IF;
38982:
38983: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
38987: FND_MSG_PUB.Count_And_Get
38988: ( p_count => x_msg_count ,
38989: p_data => x_msg_data );
38990:
38991: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38992: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
38993: END IF;
38994:
38995: WHEN OTHERS THEN
39005: FND_MSG_PUB.Count_And_Get
39006: ( p_count => x_msg_count ,
39007: p_data => x_msg_data );
39008:
39009: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39010: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39011: END IF;
39012:
39013: END BULK_UPDATE_TASKS_LITE;
39020: ,x_msg_count OUT NOCOPY NUMBER
39021: ,x_msg_data OUT NOCOPY VARCHAR2
39022: ,x_return_status OUT NOCOPY VARCHAR2
39023: ,p_project_id IN NUMBER
39024: ,p_tasks_in IN pa_project_pub.lite_task_in_tbl_type
39025: ,p_pass_entire_structure IN VARCHAR2
39026: ,p_pm_product_code IN VARCHAR2
39027: ,p_bulk_add_mode IN VARCHAR2 := 'ALL' -- other possible value is 'NO_DATES'
39028: ,p_op_validate_flag IN VARCHAR2 := 'N'
39026: ,p_pm_product_code IN VARCHAR2
39027: ,p_bulk_add_mode IN VARCHAR2 := 'ALL' -- other possible value is 'NO_DATES'
39028: ,p_op_validate_flag IN VARCHAR2 := 'N'
39029: ,p_update_mode IN VARCHAR2 := 'PA_UPD_WBS_ATTR'
39030: ,p_tasks_out OUT NOCOPY pa_project_pub.task_out_tbl_type
39031: ) IS
39032:
39033: --variables needed for API standard parameters
39034: l_return_status VARCHAR2(1);
39047: WHERE project_id = c_project_id
39048: AND ROWNUM = 1;
39049:
39050: l_project_details_rec get_project_details_csr%ROWTYPE;
39051: l_project_in_rec pa_project_pub.project_in_rec_type;
39052: l_project_out_rec pa_project_pub.project_out_rec_type;
39053: l_tasks_in pa_project_pub.task_in_tbl_type;
39054: l_tasks_out pa_project_pub.task_out_tbl_type;
39055: l_workflow_started VARCHAR2(1);
39048: AND ROWNUM = 1;
39049:
39050: l_project_details_rec get_project_details_csr%ROWTYPE;
39051: l_project_in_rec pa_project_pub.project_in_rec_type;
39052: l_project_out_rec pa_project_pub.project_out_rec_type;
39053: l_tasks_in pa_project_pub.task_in_tbl_type;
39054: l_tasks_out pa_project_pub.task_out_tbl_type;
39055: l_workflow_started VARCHAR2(1);
39056: l_first_index NUMBER;
39049:
39050: l_project_details_rec get_project_details_csr%ROWTYPE;
39051: l_project_in_rec pa_project_pub.project_in_rec_type;
39052: l_project_out_rec pa_project_pub.project_out_rec_type;
39053: l_tasks_in pa_project_pub.task_in_tbl_type;
39054: l_tasks_out pa_project_pub.task_out_tbl_type;
39055: l_workflow_started VARCHAR2(1);
39056: l_first_index NUMBER;
39057: l_last_index NUMBER;
39050: l_project_details_rec get_project_details_csr%ROWTYPE;
39051: l_project_in_rec pa_project_pub.project_in_rec_type;
39052: l_project_out_rec pa_project_pub.project_out_rec_type;
39053: l_tasks_in pa_project_pub.task_in_tbl_type;
39054: l_tasks_out pa_project_pub.task_out_tbl_type;
39055: l_workflow_started VARCHAR2(1);
39056: l_first_index NUMBER;
39057: l_last_index NUMBER;
39058: l_count NUMBER;
39106: p_msg_name => 'PA_CANT_USE_LITE_API');
39107: RAISE FND_API.G_EXC_ERROR;
39108: END IF;
39109:
39110: PA_PROJECT_PUB.G_MASS_ADD_TASKS := 'Y';
39111: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39112: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39113: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39114: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
39107: RAISE FND_API.G_EXC_ERROR;
39108: END IF;
39109:
39110: PA_PROJECT_PUB.G_MASS_ADD_TASKS := 'Y';
39111: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39112: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39113: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39114: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
39115: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
39108: END IF;
39109:
39110: PA_PROJECT_PUB.G_MASS_ADD_TASKS := 'Y';
39111: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39112: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39113: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39114: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
39115: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
39116: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
39109:
39110: PA_PROJECT_PUB.G_MASS_ADD_TASKS := 'Y';
39111: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39112: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39113: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39114: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
39115: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
39116: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
39117: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39110: PA_PROJECT_PUB.G_MASS_ADD_TASKS := 'Y';
39111: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39112: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39113: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39114: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
39115: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
39116: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
39117: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39118: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
39111: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39112: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39113: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39114: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
39115: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
39116: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
39117: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39118: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
39119: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39112: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39113: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39114: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
39115: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
39116: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
39117: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39118: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
39119: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39120: PA_PROJECT_PUB.G_BULK_ADD_MODE := p_bulk_add_mode;
39113: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39114: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
39115: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
39116: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
39117: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39118: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
39119: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39120: PA_PROJECT_PUB.G_BULK_ADD_MODE := p_bulk_add_mode;
39121: PA_PROJECT_PUB.G_STRUC_VERSION_ID := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
39114: PA_PROJECT_PUB.G_SEGMENT1 := l_project_details_rec.segment1;
39115: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
39116: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
39117: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39118: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
39119: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39120: PA_PROJECT_PUB.G_BULK_ADD_MODE := p_bulk_add_mode;
39121: PA_PROJECT_PUB.G_STRUC_VERSION_ID := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
39122: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39115: PA_PROJECT_PUB.G_PROJ_START_DATE := l_project_details_rec.start_date;
39116: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
39117: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39118: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
39119: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39120: PA_PROJECT_PUB.G_BULK_ADD_MODE := p_bulk_add_mode;
39121: PA_PROJECT_PUB.G_STRUC_VERSION_ID := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
39122: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39123:
39116: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := l_project_details_rec.completion_date;
39117: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39118: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
39119: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39120: PA_PROJECT_PUB.G_BULK_ADD_MODE := p_bulk_add_mode;
39121: PA_PROJECT_PUB.G_STRUC_VERSION_ID := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
39122: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39123:
39124: -- Set the G_ROLLUP_FLAG based on profile options
39117: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39118: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
39119: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39120: PA_PROJECT_PUB.G_BULK_ADD_MODE := p_bulk_add_mode;
39121: PA_PROJECT_PUB.G_STRUC_VERSION_ID := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
39122: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39123:
39124: -- Set the G_ROLLUP_FLAG based on profile options
39125: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
39118: PA_PROJECT_PUB.G_PROJECT_TYPE := l_project_details_rec.project_type;
39119: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39120: PA_PROJECT_PUB.G_BULK_ADD_MODE := p_bulk_add_mode;
39121: PA_PROJECT_PUB.G_STRUC_VERSION_ID := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
39122: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39123:
39124: -- Set the G_ROLLUP_FLAG based on profile options
39125: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
39126: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39121: PA_PROJECT_PUB.G_STRUC_VERSION_ID := PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_project_id);
39122: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39123:
39124: -- Set the G_ROLLUP_FLAG based on profile options
39125: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
39126: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39127: IF l_incremental_add_tasks = 'Y' THEN
39128: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'ADD',l_msg_data,l_return_status);
39129: ELSE
39122: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39123:
39124: -- Set the G_ROLLUP_FLAG based on profile options
39125: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
39126: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39127: IF l_incremental_add_tasks = 'Y' THEN
39128: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'ADD',l_msg_data,l_return_status);
39129: ELSE
39130: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'ADD_F',l_msg_data,l_return_status);
39134: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39135: p_msg_name =>l_msg_data );
39136: RAISE FND_API.G_EXC_ERROR;
39137: ELSE
39138: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(p_project_id,PA_PROJECT_PUB.G_STRUC_VERSION_ID,'ADD');
39139: END IF;
39140: END IF;
39141:
39142: IF l_incremental_add_tasks = 'Y' THEN
39165: ELSE
39166: l_tasks_dff := p_tasks_in(j).tasks_dff;
39167: END IF;
39168:
39169: pa_project_pub.add_task(
39170: p_api_version_number => p_api_version_number
39171: ,p_commit => p_commit
39172: ,p_init_msg_list => p_init_msg_list
39173: ,p_msg_count => l_msg_count --Out
39216: ,P_ESTIMATED_FINISH_DATE => p_tasks_in(j).ESTIMATED_FINISH_DATE
39217: ,P_BASELINE_START_DATE => p_tasks_in(j).BASELINE_START_DATE
39218: ,P_BASELINE_FINISH_DATE => p_tasks_in(j).BASELINE_FINISH_DATE
39219: ,P_CLOSED_DATE => p_tasks_in(j).CLOSED_DATE
39220: ,p_structure_version_id => PA_PROJECT_PUB.G_STRUC_VERSION_ID
39221: ,p_pa_project_id_out => o_project_id --OUT
39222: ,p_pa_project_number_out => l_project_number --OUT
39223: ,p_task_id => l_task_id--OUT
39224: ,p_process_mode => 'CONCURRENT'
39248: END IF;
39249: p_tasks_out(j).pa_task_id:=l_task_id;
39250:
39251: END IF;
39252: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39253: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,l_task_id,PA_PROJECT_PUB.G_STRUC_VERSION_ID,'ADD_INC');
39254: END IF;
39255: END LOOP;
39256:
39249: p_tasks_out(j).pa_task_id:=l_task_id;
39250:
39251: END IF;
39252: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39253: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,l_task_id,PA_PROJECT_PUB.G_STRUC_VERSION_ID,'ADD_INC');
39254: END IF;
39255: END LOOP;
39256:
39257: ELSE -- NON_DATES scenario while adding tasking incrementally
39275: ELSE
39276: l_tasks_dff := p_tasks_in(j).tasks_dff;
39277: END IF;
39278:
39279: pa_project_pub.add_task(
39280: p_api_version_number => p_api_version_number
39281: ,p_commit => p_commit
39282: ,p_init_msg_list => p_init_msg_list
39283: ,p_msg_count => l_msg_count --Out
39310: ,p_attribute14 => p_tasks_in(j).attribute14
39311: ,p_attribute15 => p_tasks_in(j).attribute15
39312: ,P_PM_SOURCE_CODE => p_tasks_in(j).PM_SOURCE_CODE
39313: ,P_STATUS_CODE => p_tasks_in(j).STATUS_CODE
39314: ,p_structure_version_id => PA_PROJECT_PUB.G_STRUC_VERSION_ID
39315: ,p_pa_project_id_out => o_project_id --OUT
39316: ,p_pa_project_number_out => l_project_number --OUT
39317: ,p_task_id => l_task_id--OUT
39318: ,p_process_mode => 'CONCURRENT'
39342: END IF;
39343: p_tasks_out(j).pa_task_id:=l_task_id;
39344:
39345: END IF;
39346: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39347: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,l_task_id,PA_PROJECT_PUB.G_STRUC_VERSION_ID,'ADD_INC');
39348: END IF;
39349: END LOOP;
39350:
39343: p_tasks_out(j).pa_task_id:=l_task_id;
39344:
39345: END IF;
39346: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39347: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,l_task_id,PA_PROJECT_PUB.G_STRUC_VERSION_ID,'ADD_INC');
39348: END IF;
39349: END LOOP;
39350:
39351: END IF;
39353:
39354:
39355: ELSE -- First time adding new tasks
39356:
39357: --PA_PROJECT_PUB.G_ROLLUP_DEFER:='N'; -- Defer flag should be N while adding task for the first time
39358:
39359: l_project_in_rec.pm_project_reference := l_project_details_rec.pm_project_reference;
39360: l_project_in_rec.pa_project_number := l_project_details_rec.segment1;
39361: l_project_in_rec.project_name := l_project_details_rec.name;
39464: END IF;
39465:
39466: END LOOP;
39467:
39468: pa_project_pub.update_project(p_api_version_number => p_api_version_number,
39469: p_commit => p_commit,
39470: p_init_msg_list => p_init_msg_list,
39471: p_msg_count => l_msg_count,
39472: p_msg_data => l_msg_data,
39484: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39485: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
39486: RAISE FND_API.G_EXC_ERROR;
39487: END IF;
39488: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,PA_PROJECT_PUB.G_STRUC_VERSION_ID,PA_PROJECT_PUB.G_STRUC_VERSION_ID,'ADD_FIRST');
39489: --PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39490:
39491:
39492: END IF; -- add_task or update_project
39490:
39491:
39492: END IF; -- add_task or update_project
39493: -- 14556729:Huawei Code change to defer the roll up API when G_ROLLUP_DEFER is set to Y , so that all the roll up is processed once at the end .
39494: IF PA_PROJECT_PUB.G_MASS_ADD_TASKS = 'Y' and NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N' then
39495:
39496: PA_PROJECT_STRUCTURE_PVT1.REFRESH_STRUCTURE_VERSION
39497: ( p_project_id => p_project_id
39498: ,p_structure_version_id => PA_PROJECT_PUB.G_STRUC_VERSION_ID
39494: IF PA_PROJECT_PUB.G_MASS_ADD_TASKS = 'Y' and NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N' then
39495:
39496: PA_PROJECT_STRUCTURE_PVT1.REFRESH_STRUCTURE_VERSION
39497: ( p_project_id => p_project_id
39498: ,p_structure_version_id => PA_PROJECT_PUB.G_STRUC_VERSION_ID
39499: ,x_return_status => l_return_status
39500: ,x_msg_count => l_msg_count
39501: ,x_msg_data => l_msg_data
39502: );
39508: END IF;
39509: END IF;
39510:
39511: -- reset all global variables with NULL
39512: PA_PROJECT_PUB.G_MASS_ADD_TASKS := NULL;
39513: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39514: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39515: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39516: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
39509: END IF;
39510:
39511: -- reset all global variables with NULL
39512: PA_PROJECT_PUB.G_MASS_ADD_TASKS := NULL;
39513: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39514: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39515: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39516: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
39517: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
39510:
39511: -- reset all global variables with NULL
39512: PA_PROJECT_PUB.G_MASS_ADD_TASKS := NULL;
39513: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39514: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39515: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39516: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
39517: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
39518: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
39511: -- reset all global variables with NULL
39512: PA_PROJECT_PUB.G_MASS_ADD_TASKS := NULL;
39513: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39514: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39515: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39516: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
39517: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
39518: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
39519: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39512: PA_PROJECT_PUB.G_MASS_ADD_TASKS := NULL;
39513: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39514: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39515: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39516: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
39517: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
39518: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
39519: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39520: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
39513: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39514: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39515: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39516: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
39517: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
39518: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
39519: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39520: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
39521: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39514: PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED := NULL;
39515: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39516: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
39517: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
39518: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
39519: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39520: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
39521: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39522: PA_PROJECT_PUB.G_BULK_ADD_MODE := NULL;
39515: PA_PROJECT_PUB.G_VALID_PRODUCT_CODE := NULL;
39516: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
39517: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
39518: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
39519: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39520: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
39521: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39522: PA_PROJECT_PUB.G_BULK_ADD_MODE := NULL;
39523: PA_PROJECT_PUB.G_STRUC_VERSION_ID := NULL;
39516: PA_PROJECT_PUB.G_SEGMENT1 := NULL;
39517: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
39518: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
39519: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39520: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
39521: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39522: PA_PROJECT_PUB.G_BULK_ADD_MODE := NULL;
39523: PA_PROJECT_PUB.G_STRUC_VERSION_ID := NULL;
39524:
39517: PA_PROJECT_PUB.G_PROJ_START_DATE := NULL;
39518: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
39519: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39520: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
39521: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39522: PA_PROJECT_PUB.G_BULK_ADD_MODE := NULL;
39523: PA_PROJECT_PUB.G_STRUC_VERSION_ID := NULL;
39524:
39525: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39518: PA_PROJECT_PUB.G_PROJ_COMPLETION_DATE := NULL;
39519: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39520: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
39521: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39522: PA_PROJECT_PUB.G_BULK_ADD_MODE := NULL;
39523: PA_PROJECT_PUB.G_STRUC_VERSION_ID := NULL;
39524:
39525: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39526:
39519: PA_PROJECT_PUB.G_STRUC_ELEMENT_ID := NULL;
39520: PA_PROJECT_PUB.G_PROJECT_TYPE := NULL;
39521: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39522: PA_PROJECT_PUB.G_BULK_ADD_MODE := NULL;
39523: PA_PROJECT_PUB.G_STRUC_VERSION_ID := NULL;
39524:
39525: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39526:
39527: IF (FND_API.to_boolean( p_commit )) THEN
39521: PA_PROJECT_PUB.G_IS_SUB_PROJ_ASSOCIATED := NULL;
39522: PA_PROJECT_PUB.G_BULK_ADD_MODE := NULL;
39523: PA_PROJECT_PUB.G_STRUC_VERSION_ID := NULL;
39524:
39525: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39526:
39527: IF (FND_API.to_boolean( p_commit )) THEN
39528: COMMIT WORK;
39529: END IF;
39529: END IF;
39530:
39531: x_return_status := FND_API.G_RET_STS_SUCCESS;
39532:
39533: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39534: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39535: END IF;
39536:
39537: EXCEPTION
39536:
39537: EXCEPTION
39538: WHEN FND_API.G_EXC_ERROR THEN
39539: x_return_status := FND_API.G_RET_STS_ERROR ;
39540: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39541: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39542: END IF;
39543: ROLLBACK TO BULK_ADD_TASKS_LITE;
39544:
39548:
39549:
39550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
39551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
39552: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39553: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39554: END IF;
39555: ROLLBACK TO BULK_ADD_TASKS_LITE;
39556:
39560:
39561:
39562: WHEN OTHERS THEN
39563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
39564: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39565: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39566: END IF;
39567: ROLLBACK TO BULK_ADD_TASKS_LITE;
39568:
39680: t_str varchar2(1);
39681:
39682: BEGIN
39683:
39684: pa_debug.init_err_stack ('PA_PROJECT_PUB.BULK_MOVE_TASKS_LITE');
39685:
39686: x_return_status := FND_API.G_RET_STS_SUCCESS ;
39687:
39688:
39688:
39689:
39690: -- Set the G_ROLLUP_FLAG based on profile options
39691: --IF(p_calling_module = 'AMG') THEN
39692: --PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
39693: --END IF;
39694:
39695: OPEN cur_proj_id;
39696: FETCH cur_proj_id into l_project_id;
39697: CLOSE cur_proj_id;
39698:
39699:
39700: IF (p_debug_mode = 'Y') THEN
39701: pa_debug.debug('PA_PROJECT_PUB.BULK_MOVE_TASKS_LITE begin');
39702: END IF;
39703:
39704: IF (p_commit = FND_API.G_TRUE) THEN
39705: savepoint BULK_MOVE_TASKS_LITE ;
39728: p_msg_name => 'PA_CANT_USE_LITE_API');
39729: RAISE FND_API.G_EXC_ERROR;
39730: END IF;
39731: -- Set the G_ROLLUP_FLAG based on profile options
39732: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
39733: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39734: PA_PROJECT_PVT.CONC_LOCK_PROJECT(l_project_id,'MOVE',l_msg_data,l_return_status);
39735: IF l_return_status <> 'S'
39736: THEN
39729: RAISE FND_API.G_EXC_ERROR;
39730: END IF;
39731: -- Set the G_ROLLUP_FLAG based on profile options
39732: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
39733: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39734: PA_PROJECT_PVT.CONC_LOCK_PROJECT(l_project_id,'MOVE',l_msg_data,l_return_status);
39735: IF l_return_status <> 'S'
39736: THEN
39737: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39863: ref_task_temp_version_id := p_task_version_id_tbl(i);
39864: END LOOP;
39865:
39866: END IF;
39867: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39868: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39869: END IF;
39870:
39871: IF (p_commit = FND_API.G_TRUE) THEN
39890: , p_data => l_data
39891: , p_msg_index_out => l_msg_index_out);
39892: x_msg_data := l_data;
39893: END IF;
39894: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39895: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39896: END IF;
39897: FND_MSG_PUB.Count_And_Get
39898: ( p_count => x_msg_count ,
39902: if p_commit = FND_API.G_TRUE then
39903: rollback to BULK_MOVE_TASKS_LITE;
39904: end if;
39905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39906: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
39907: p_procedure_name => l_api_name,
39908: p_error_text => SUBSTRB(SQLERRM,1,240));
39909: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39910: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39906: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
39907: p_procedure_name => l_api_name,
39908: p_error_text => SUBSTRB(SQLERRM,1,240));
39909: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39910: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39911: END IF;
39912: when OTHERS then
39913: if p_commit = FND_API.G_TRUE then
39913: if p_commit = FND_API.G_TRUE then
39914: rollback to BULK_MOVE_TASKS_LITE;
39915: end if;
39916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39917: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
39918: p_procedure_name => l_api_name,
39919: p_error_text => SUBSTRB(SQLERRM,1,240));
39920: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39921: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39917: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
39918: p_procedure_name => l_api_name,
39919: p_error_text => SUBSTRB(SQLERRM,1,240));
39920: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39921: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39922: END IF;
39923: FND_MSG_PUB.Count_And_Get
39924: ( p_count => x_msg_count ,
40204: t_str varchar2(1);
40205:
40206: BEGIN
40207:
40208: pa_debug.init_err_stack ('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE');
40209:
40210: IF (p_debug_mode = 'Y') THEN
40211: pa_debug.debug('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE begin');
40212: END IF;
40207:
40208: pa_debug.init_err_stack ('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE');
40209:
40210: IF (p_debug_mode = 'Y') THEN
40211: pa_debug.debug('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE begin');
40212: END IF;
40213:
40214: IF (p_commit = FND_API.G_TRUE) THEN
40215: savepoint BULK_INDENT_TASKS_LITE;
40240: END IF;
40241:
40242: -- Set the G_ROLLUP_FLAG based on profile options
40243: --IF(p_calling_module = 'AMG') THEN
40244: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
40245: --END IF;
40246:
40247: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
40248: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'INDENT',l_msg_data,l_return_status);
40243: --IF(p_calling_module = 'AMG') THEN
40244: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
40245: --END IF;
40246:
40247: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
40248: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'INDENT',l_msg_data,l_return_status);
40249: IF l_return_status <> 'S'
40250: THEN
40251: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40578: END IF;
40579:
40580: -- Sridhar Huawei 18-Sept add the below if statement.
40581: -- Need not derive wbs_number and wbs_level in defer mode
40582: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='N') THEN
40583:
40584: BEGIN
40585: -- Using OR is beneficial than using UNION here
40586: /*
40654:
40655:
40656: EXCEPTION
40657: WHEN OTHERS THEN
40658: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
40659: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
40660: END IF;
40661: raise;
40662: END;
41252: );
41253: END IF;
41254: EXCEPTION
41255: WHEN OTHERS THEN
41256: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41257: p_procedure_name => 'BULK_INDENT_TASKS_LITE',
41258: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
41259: RAISE FND_API.G_EXC_ERROR;
41260: END;
41285: IF (p_commit = FND_API.G_TRUE) THEN
41286: COMMIT;
41287: END IF;
41288:
41289: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41290: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41291: END IF;
41292:
41293: IF (p_debug_mode = 'Y') THEN
41290: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41291: END IF;
41292:
41293: IF (p_debug_mode = 'Y') THEN
41294: pa_debug.debug('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE END');
41295: END IF;
41296:
41297: EXCEPTION
41298: when FND_API.G_EXC_ERROR then
41299: if p_commit = FND_API.G_TRUE then
41300: rollback to BULK_INDENT_TASKS_LITE;
41301: end if;
41302: x_return_status := FND_API.G_RET_STS_ERROR;
41303: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41304: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41305: END IF;
41306: FND_MSG_PUB.Count_And_Get
41307: ( p_count => x_msg_count ,
41310: if p_commit = FND_API.G_TRUE then
41311: rollback to BULK_INDENT_TASKS_LITE;
41312: end if;
41313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41314: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41315: p_procedure_name => 'BULK_INDENT_TASKS_LITE',
41316: p_error_text => SUBSTRB(SQLERRM,1,240));
41317: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41318: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41314: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41315: p_procedure_name => 'BULK_INDENT_TASKS_LITE',
41316: p_error_text => SUBSTRB(SQLERRM,1,240));
41317: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41318: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41319: END IF;
41320: when OTHERS then
41321: if p_commit = FND_API.G_TRUE then
41321: if p_commit = FND_API.G_TRUE then
41322: rollback to BULK_INDENT_TASKS_LITE;
41323: end if;
41324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41325: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41326: p_procedure_name => 'BULK_INDENT_TASKS_LITE',
41327: p_error_text => SUBSTRB(SQLERRM,1,240));
41328: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41329: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41325: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41326: p_procedure_name => 'BULK_INDENT_TASKS_LITE',
41327: p_error_text => SUBSTRB(SQLERRM,1,240));
41328: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41329: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41330: END IF;
41331: FND_MSG_PUB.Count_And_Get
41332: ( p_count => x_msg_count ,
41659: t_str varchar2(1);
41660:
41661: BEGIN
41662:
41663: pa_debug.init_err_stack ('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE');
41664:
41665: IF (p_debug_mode = 'Y') THEN
41666: pa_debug.debug('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE begin');
41667: END IF;
41662:
41663: pa_debug.init_err_stack ('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE');
41664:
41665: IF (p_debug_mode = 'Y') THEN
41666: pa_debug.debug('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE begin');
41667: END IF;
41668:
41669: IF (p_commit = FND_API.G_TRUE) THEN
41670: savepoint BULK_OUTDENT_TASKS_LITE;
41696: END IF;
41697:
41698: -- Set the G_ROLLUP_FLAG based on profile options
41699: --IF(p_calling_module = 'AMG') THEN
41700: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
41701: --END IF;
41702: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41703: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'OUTDENT',l_msg_data,l_return_status);
41704: IF l_return_status <> 'S'
41698: -- Set the G_ROLLUP_FLAG based on profile options
41699: --IF(p_calling_module = 'AMG') THEN
41700: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
41701: --END IF;
41702: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41703: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'OUTDENT',l_msg_data,l_return_status);
41704: IF l_return_status <> 'S'
41705: THEN
41706: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41861: , src_proj_element_id
41862: , p_task_version_id),'N') = 'Y') then
41863:
41864: IF (p_debug_mode = 'Y') THEN
41865: pa_debug.debug('ERROR - PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE ');
41866: END IF;
41867:
41868: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41869: p_msg_name => 'PA_PS_TASK_HAS_SUB_PROJ');
41962: l_changed_flag_tab.delete;
41963:
41964: -- Sridhar Huawei 18-Sept add the below if statement.
41965: -- Need not derive wbs_number and wbs_level in defer mode
41966: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='N') THEN
41967: BEGIN
41968: /*
41969: SELECT distinct element_version_id, proj_element_id, object_type,
41970: project_id, parent_structure_version_id,
42773: );
42774: END IF;
42775: EXCEPTION
42776: WHEN OTHERS then
42777: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42778: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42779: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
42780: RAISE FND_API.G_EXC_ERROR;
42781: END;
42807: COMMIT;
42808: END IF;
42809:
42810: IF (p_debug_mode = 'Y') THEN
42811: pa_debug.debug('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE END');
42812: END IF;
42813:
42814: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42815: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42810: IF (p_debug_mode = 'Y') THEN
42811: pa_debug.debug('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE END');
42812: END IF;
42813:
42814: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42815: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42816: END IF;
42817:
42818: EXCEPTION
42819: when FND_API.G_EXC_ERROR then
42820: if p_commit = FND_API.G_TRUE then
42821: rollback to BULK_OUTDENT_TASKS_LITE;
42822: end if;
42823: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42824: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42825: END IF;
42826: x_return_status := FND_API.G_RET_STS_ERROR;
42827: FND_MSG_PUB.Count_And_Get
42831: if p_commit = FND_API.G_TRUE then
42832: rollback to BULK_OUTDENT_TASKS_LITE;
42833: end if;
42834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42835: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42836: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42837: p_error_text => SUBSTRB(SQLERRM,1,240));
42838: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42839: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42835: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42836: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42837: p_error_text => SUBSTRB(SQLERRM,1,240));
42838: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42839: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42840: END IF;
42841: when OTHERS then
42842: if p_commit = FND_API.G_TRUE then
42842: if p_commit = FND_API.G_TRUE then
42843: rollback to BULK_OUTDENT_TASKS_LITE;
42844: end if;
42845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42846: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42847: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42848: p_error_text => SUBSTRB(SQLERRM,1,240));
42849: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42850: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42846: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42847: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42848: p_error_text => SUBSTRB(SQLERRM,1,240));
42849: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42850: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42851: END IF;
42852: FND_MSG_PUB.Count_And_Get
42853: ( p_count => x_msg_count ,
42909: p_msg_name => 'PA_CANT_USE_LITE_API');
42910: RAISE FND_API.G_EXC_ERROR;
42911: END IF;
42912:
42913: PA_PROJECT_PUB.G_PROJECT_ID:=p_pa_project_id;
42914: l_structure_version_id :=PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_pa_project_id);
42915:
42916: -- Set the G_ROLLUP_FLAG based on profile options
42917: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
42913: PA_PROJECT_PUB.G_PROJECT_ID:=p_pa_project_id;
42914: l_structure_version_id :=PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_pa_project_id);
42915:
42916: -- Set the G_ROLLUP_FLAG based on profile options
42917: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
42918: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42919: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_pa_project_id,'DELETE',p_msg_data,p_return_status);
42920: IF p_return_status <> 'S'
42921: THEN
42914: l_structure_version_id :=PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_pa_project_id);
42915:
42916: -- Set the G_ROLLUP_FLAG based on profile options
42917: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
42918: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42919: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_pa_project_id,'DELETE',p_msg_data,p_return_status);
42920: IF p_return_status <> 'S'
42921: THEN
42922: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
42951: ,p_structure_updates_flag
42952: );
42953:
42954:
42955: PA_PROJECT_PUB.G_PROJECT_ID:=NULL;
42956:
42957: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42958: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_pa_project_id);
42959: END IF;
42953:
42954:
42955: PA_PROJECT_PUB.G_PROJECT_ID:=NULL;
42956:
42957: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42958: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_pa_project_id);
42959: END IF;
42960:
42961: EXCEPTION
42963: p_return_status := FND_API.G_RET_STS_ERROR ;
42964: FND_MSG_PUB.Count_And_Get
42965: ( p_count => p_msg_count ,
42966: p_data => p_msg_data );
42967: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42968: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_pa_project_id);
42969: END IF;
42970:
42971: WHEN OTHERS THEN
42972: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42973: p_msg_count := FND_MSG_PUB.count_msg;
42974: p_project_id := NULL ;
42975: p_task_id := NULL;
42976: PA_PROJECT_PUB.G_PROJECT_ID:=NULL;
42977: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42978: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_pa_project_id);
42979: END IF;
42980: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
42973: p_msg_count := FND_MSG_PUB.count_msg;
42974: p_project_id := NULL ;
42975: p_task_id := NULL;
42976: PA_PROJECT_PUB.G_PROJECT_ID:=NULL;
42977: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42978: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_pa_project_id);
42979: END IF;
42980: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
42981: FND_MSG_PUB.add_exc_msg
43023: message varchar2(2000);
43024: t_str varchar2(1);
43025:
43026: BEGIN
43027: pa_debug.init_err_stack ('PA_PROJECT_PUB.STRUCTURE_ROLLUP');
43028:
43029: IF (p_debug_mode = 'Y') THEN
43030: pa_debug.debug('PA_PROJECT_PUB.STRUCTURE_ROLLUP begin');
43031: END IF;
43026: BEGIN
43027: pa_debug.init_err_stack ('PA_PROJECT_PUB.STRUCTURE_ROLLUP');
43028:
43029: IF (p_debug_mode = 'Y') THEN
43030: pa_debug.debug('PA_PROJECT_PUB.STRUCTURE_ROLLUP begin');
43031: END IF;
43032:
43033: IF (p_commit = FND_API.G_TRUE) THEN
43034: savepoint STRUCTURE_ROLLUP;
43209: end loop;
43210: end if;
43211: x_return_status := FND_API.G_RET_STS_SUCCESS;
43212: IF (p_debug_mode = 'Y') THEN
43213: pa_debug.debug('PA_PROJECT_PUB.STRUCTURE_ROLLUP END');
43214: END IF;
43215: if p_commit = FND_API.G_TRUE then
43216: COMMIT;
43217: end if;
43228: if p_commit = FND_API.G_TRUE then
43229: rollback to STRUCTURE_ROLLUP;
43230: end if;
43231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43232: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
43233: p_procedure_name => 'STRUCTURE_ROLLUP',
43234: p_error_text => SUBSTRB(SQLERRM,1,240));
43235: when OTHERS then
43236: if p_commit = FND_API.G_TRUE then
43236: if p_commit = FND_API.G_TRUE then
43237: rollback to STRUCTURE_ROLLUP;
43238: end if;
43239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
43241: p_procedure_name => 'STRUCTURE_ROLLUP',
43242: p_error_text => SUBSTRB(SQLERRM,1,240));
43243: FND_MSG_PUB.Count_And_Get
43244: ( p_count => x_msg_count ,
43348:
43349:
43350:
43351: BEGIN
43352: pa_debug.init_err_stack ('PA_PROJECT_PUB.ADD_COST_CODE_TO_TASK');
43353:
43354: IF (l_debug_mode = 'Y') THEN
43355: pa_debug.debug('PA_PROJECT_PUB.ADD_COST_CODE_TO_TASK begin');
43356: END IF;
43351: BEGIN
43352: pa_debug.init_err_stack ('PA_PROJECT_PUB.ADD_COST_CODE_TO_TASK');
43353:
43354: IF (l_debug_mode = 'Y') THEN
43355: pa_debug.debug('PA_PROJECT_PUB.ADD_COST_CODE_TO_TASK begin');
43356: END IF;
43357: IF p_pa_project_id is not null then
43358: l_project_id:=p_pa_project_id;
43359: ELSE
43641: WHERE PROJ_ELEMENT_ID=c_task_id and CBS_ELEMENT_ID=c_cbs_lem_id;
43642:
43643:
43644: BEGIN
43645: pa_debug.init_err_stack ('PA_PROJECT_PUB.DELETE_COST_CODE_FROM_TASK');
43646:
43647: IF (l_debug_mode = 'Y') THEN
43648: pa_debug.debug('PA_PROJECT_PUB.DELETE_COST_CODE_FROM_TASK begin');
43649: END IF;
43644: BEGIN
43645: pa_debug.init_err_stack ('PA_PROJECT_PUB.DELETE_COST_CODE_FROM_TASK');
43646:
43647: IF (l_debug_mode = 'Y') THEN
43648: pa_debug.debug('PA_PROJECT_PUB.DELETE_COST_CODE_FROM_TASK begin');
43649: END IF;
43650: IF p_pa_project_id is not null then
43651: l_project_id:=p_pa_project_id;
43652: ELSE
43828: ROLLBACK;
43829:
43830: END DELETE_COST_CODE_FROM_TASK;
43831:
43832: end PA_PROJECT_PUB;