[Home] [Help]
1: PACKAGE BODY PA_TASK_PVT1 AS
2: /* $Header: PATSK1VB.pls 120.25.12020000.9 2013/05/23 13:01:12 djambhek ship $ */
3:
4: -- API name : Create_Task
5: -- Type : Private procedure
396:
397: --dbms_output.put_line(( 'Inside CREATE_TASK private API' );
398:
399: IF (p_debug_mode = 'Y') THEN
400: pa_debug.debug('PA_TASK_PVT1.CREATE_TASK begin');
401: END IF;
402:
403: IF (p_commit = FND_API.G_TRUE) THEN
404: savepoint CREATE_TASK_PRIVATE;
990: -- 3491609 : FP M : Tracking bug : Workflow Excecution
991: --Changes for 8566495 anuragag
992: --Setting the link_task_flag to Y for creation in pa_proj_elements
993: l_old_link_task_flag := l_link_task_flag;
994: if(PA_TASK_PVT1.G_CHG_DOC_CNTXT = 1)
995: then
996: l_link_task_flag := 'Y';
997: l_task_status := 'NEW';
998: end if;
1440: END IF;
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: x_msg_count := FND_MSG_PUB.count_msg;
1443: --put message
1444: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
1445: p_procedure_name => 'Create_Task',
1446: p_error_text => SUBSTRB(SQLERRM,1,240));
1447: RAISE;
1448:
1887: --Bug 14213385 end
1888: BEGIN
1889:
1890: IF (p_debug_mode = 'Y') THEN
1891: pa_debug.debug('PA_TASK_PVT1.UPDATE_TASK begin');
1892: END IF;
1893:
1894: IF (p_commit = FND_API.G_TRUE) THEN
1895: savepoint UPDATE_TASK_PRIVATE;
2201: -- Bug 3075609. We'll update after the task type id is updated for the task.
2202: l_update_working_ver_weight := 'Y';
2203: --set working versions weighting to 0
2204: --pro-rate peer tasks
2205: /* PA_TASK_PVT1.UPDATE_WORKING_VER_WEIGHT(
2206: p_task_id => p_task_id
2207: ,p_weighting => 0
2208: ,x_return_status => l_return_status
2209: ,x_msg_count => l_msg_count
2858:
2859: -- Bug 3075609. Moved here so that the processing is done after the
2860: -- task type for the task is updated.
2861: IF nvl(l_update_working_ver_weight,'N') = 'Y' THEN
2862: PA_TASK_PVT1.UPDATE_WORKING_VER_WEIGHT(
2863: p_task_id => p_task_id
2864: ,p_weighting => 0
2865: ,x_return_status => l_return_status
2866: ,x_msg_count => l_msg_count
3129: raise FND_API.G_EXC_ERROR;
3130: END IF;
3131: END IF;
3132:
3133: PA_TASK_PVT1.set_new_tasks_to_TBD(
3134: p_project_id => l_project_id
3135: ,p_task_id => p_task_id
3136: ,p_task_status => l_STATUS_CODE
3137: ,x_return_status => l_return_status
3197: END IF;
3198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3199: x_msg_count := FND_MSG_PUB.count_msg;
3200: --put message
3201: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
3202: p_procedure_name => 'update_Task',
3203: p_error_text => SUBSTRB(SQLERRM,1,240));
3204: RAISE;
3205: END Update_Task;
3381: BEGIN
3382:
3383: --my_error_msg( 'In create_task_version pvt API' );
3384: IF (p_debug_mode = 'Y') THEN
3385: pa_debug.debug('PA_TASK_PVT1.CREATE_TASK_VERSION begin');
3386: END IF;
3387:
3388: IF (p_commit = FND_API.G_TRUE) THEN
3389: savepoint CREATE_TASK_VER_PRIVATE;
3752: END IF;*/
3753:
3754: --Sridhar Huawei 18-Sept start
3755: IF v_cur_proj_elems_rec.object_type = 'PA_TASKS' THEN
3756: PA_TASK_PVT1.DISP_SEQ_NUM_LEVEL_DEFER(
3757: p_project_id => v_cur_proj_elems_rec.project_id
3758: ,p_event_type => 'ADD'
3759: ,p_parent_struct_ver_id => l_parent_struc_ver_id
3760: ,p_ref_elem_ver_id => p_ref_task_version_id
3903: END IF;
3904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3905: x_msg_count := FND_MSG_PUB.count_msg;
3906: --put message
3907: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
3908: p_procedure_name => 'create_Task_version',
3909: p_error_text => SUBSTRB(SQLERRM,1,240));
3910: RAISE;
3911:
4234: END IF;
4235: -- 14556729:Huawei code change :get the Sharing code and process below code only if its fully shared
4236:
4237: IF (p_debug_mode = 'Y') THEN
4238: pa_debug.debug('PA_TASK_PVT1.UPDATE_TASK_VERSION begin');
4239: END IF;
4240:
4241: IF (p_commit = FND_API.G_TRUE) THEN
4242: savepoint UPDATE_TASK_VER_PRIVATE;
4688:
4689: -- Sridhar Huawei 18-Sept , START add below if statement and procedure call.
4690: IF PA_PROJECT_PUB.G_ROLLUP_DEFER='Y' then
4691: if ( p_action = 'MOVE' ) then
4692: PA_TASK_PVT1.DISP_SEQ_NUM_LEVEL_DEFER
4693: (
4694: p_project_id => l2_project_id
4695: ,p_event_type => p_action||'_'||p_peer_or_sub
4696: ,p_parent_struct_ver_id => l_parent_struc_ver_id
4937: END IF;
4938:
4939: --hsiu added
4940: --for task weighting
4941: PA_TASK_PVT1.RECALC_TASKS_WEIGHTING(
4942: p_task_version_id => l_old_parent_id
4943: ,x_return_status => l_return_status
4944: ,x_msg_count => l_msg_count
4945: ,x_msg_data => l_msg_data
4957: x_msg_data := l_data;
4958: END IF;
4959:
4960: --bug 2673570
4961: PA_TASK_PVT1.RECALC_TASKS_WEIGHTING(
4962: p_task_version_id => p_task_version_id
4963: ,x_return_status => l_return_status
4964: ,x_msg_count => l_msg_count
4965: ,x_msg_data => l_msg_data
5278: END IF;
5279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5280: x_msg_count := FND_MSG_PUB.count_msg;
5281: --put message
5282: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
5283: p_procedure_name => 'update_Task_version',
5284: p_error_text => SUBSTRB(SQLERRM,1,240));
5285: RAISE;
5286: END update_task_version;
5665: */
5666: -- 4201927 end
5667:
5668: IF (p_debug_mode = 'Y') THEN
5669: pa_debug.debug('PA_TASK_PVT1.DELETE_TASK_VERSION begin');
5670: END IF;
5671:
5672: IF (p_commit = FND_API.G_TRUE) THEN
5673: savepoint DELETE_TASK_VER_PRIVATE;
5748: ,x_msg_count => x_msg_count
5749: ,x_msg_data => x_msg_data);
5750: EXCEPTION
5751: WHEN OTHERS THEN
5752: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
5753: p_procedure_name => 'delete_Task_version',
5754: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5755: RAISE FND_API.G_EXC_ERROR;
5756: END;
5991: ,x_msg_count => x_msg_count
5992: ,x_msg_data => x_msg_data);
5993: EXCEPTION
5994: WHEN OTHERS THEN
5995: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
5996: p_procedure_name => 'delete_Task_version',
5997: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
5998: RAISE FND_API.G_EXC_ERROR;
5999: END;
6239: FETCH get_subproj_relation INTO get_subproj_relation_rec;
6240: IF get_subproj_relation%FOUND --bug 4573340
6241: THEN
6242: IF l_debug_mode = 'Y' THEN
6243: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.object_relationship_id='
6244: ||get_subproj_relation_rec.object_relationship_id, 3);
6245: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.record_version_number='
6246: ||get_subproj_relation_rec.record_version_number, 3);
6247:
6241: THEN
6242: IF l_debug_mode = 'Y' THEN
6243: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.object_relationship_id='
6244: ||get_subproj_relation_rec.object_relationship_id, 3);
6245: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.record_version_number='
6246: ||get_subproj_relation_rec.record_version_number, 3);
6247:
6248: END IF;
6249:
6263: ,x_msg_data => l_msg_data
6264: );
6265:
6266: IF l_debug_mode = 'Y' THEN
6267: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VERSION', 'After PA_RELATIONSHIP_PUB.Delete_SubProject_Association l_return_status='||l_return_status, 3);
6268: END IF;
6269:
6270: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6271: x_msg_count := FND_MSG_PUB.count_msg;
6543:
6544: WHEN OTHERS THEN
6545:
6546: fnd_msg_pub.add_exc_msg(
6547: p_pkg_name => 'PA_TASK_PVT1',
6548: p_procedure_name => 'Delete_Task_Version',
6549: p_error_text => SUBSTRB('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
6550:
6551: RAISE FND_API.G_EXC_ERROR;
6582:
6583: WHEN OTHERS THEN
6584:
6585: fnd_msg_pub.add_exc_msg(
6586: p_pkg_name => 'PA_TASK_PVT1',
6587: p_procedure_name => 'Delete_Task_Version',
6588: p_error_text => SUBSTRB('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
6589:
6590: RAISE FND_API.G_EXC_ERROR;
6770: --IF (PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS( x_project_id ) ='MANUAL') THEN --bug 3051413 --commenting this line for bug 3058051 issue # 1.
6771: -- 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 .
6772: IF NVL(PA_PROJECT_PUB.G_ROLLUP_DEFER,'N') = 'N'
6773: then
6774: PA_TASK_PVT1.RECALC_TASKS_WEIGHTING(
6775: p_task_version_id => l_old_parent_ver_id
6776: ,x_return_status => l_return_status
6777: ,x_msg_count => l_msg_count
6778: ,x_msg_data => l_msg_data
6856: END IF;
6857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6858: x_msg_count := FND_MSG_PUB.count_msg;
6859: --put message
6860: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
6861: p_procedure_name => 'delete_Task_version',
6862: p_error_text => SUBSTRB(SQLERRM,1,240));
6863: RAISE;
6864: END delete_task_version;
7070: l_ext_remain_duration NUMBER;
7071: l_ext_sch_duration NUMBER;
7072: BEGIN
7073: IF (p_debug_mode = 'Y') THEN
7074: pa_debug.debug('PA_TASK_PVT1.CREATE_SCHEDULE_VERSION begin');
7075: END IF;
7076:
7077: IF (p_commit = FND_API.G_TRUE) THEN
7078: savepoint CREATE_SCH_VER_PRIVATE;
7703: END IF;
7704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7705: x_msg_count := FND_MSG_PUB.count_msg;
7706: --put message
7707: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
7708: p_procedure_name => 'create_schedule_version',
7709: p_error_text => SUBSTRB(SQLERRM,1,240));
7710: RAISE;
7711:
7968:
7969: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7970:
7971: IF (l_debug_mode = 'Y') THEN
7972: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION begin',3);
7973: END IF;
7974:
7975: IF (p_commit = FND_API.G_TRUE) THEN
7976: savepoint UPDATE_SCH_VER_PRIVATE;
7976: savepoint UPDATE_SCH_VER_PRIVATE;
7977: END IF;
7978:
7979: IF (l_debug_mode = 'Y') THEN
7980: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'Performing validations',3);
7981: END IF;
7982:
7983: OPEN cur_val;
7984: FETCH cur_val into cur_val_rec;
8095: --end bug 4620492
8096: END IF; -- end changes for bug 13923366
8097:
8098: IF (l_debug_mode = 'Y') THEN
8099: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'l_task_has_sub_proj_flag='||l_task_has_sub_proj_flag,3);
8100: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'p_calling_module='||p_calling_module,3);
8101: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.scheduled_START_DATE='|| cur_val_rec.scheduled_START_DATE,3);
8102: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.scheduled_FINISH_DATE='||cur_val_rec.scheduled_FINISH_DATE,3);
8103: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.PLANNED_EFFORT='||cur_val_rec.PLANNED_EFFORT,3);
8096: END IF; -- end changes for bug 13923366
8097:
8098: IF (l_debug_mode = 'Y') THEN
8099: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'l_task_has_sub_proj_flag='||l_task_has_sub_proj_flag,3);
8100: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'p_calling_module='||p_calling_module,3);
8101: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.scheduled_START_DATE='|| cur_val_rec.scheduled_START_DATE,3);
8102: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.scheduled_FINISH_DATE='||cur_val_rec.scheduled_FINISH_DATE,3);
8103: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.PLANNED_EFFORT='||cur_val_rec.PLANNED_EFFORT,3);
8104: END IF;
8097:
8098: IF (l_debug_mode = 'Y') THEN
8099: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'l_task_has_sub_proj_flag='||l_task_has_sub_proj_flag,3);
8100: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'p_calling_module='||p_calling_module,3);
8101: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.scheduled_START_DATE='|| cur_val_rec.scheduled_START_DATE,3);
8102: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.scheduled_FINISH_DATE='||cur_val_rec.scheduled_FINISH_DATE,3);
8103: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.PLANNED_EFFORT='||cur_val_rec.PLANNED_EFFORT,3);
8104: END IF;
8105:
8098: IF (l_debug_mode = 'Y') THEN
8099: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'l_task_has_sub_proj_flag='||l_task_has_sub_proj_flag,3);
8100: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'p_calling_module='||p_calling_module,3);
8101: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.scheduled_START_DATE='|| cur_val_rec.scheduled_START_DATE,3);
8102: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.scheduled_FINISH_DATE='||cur_val_rec.scheduled_FINISH_DATE,3);
8103: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.PLANNED_EFFORT='||cur_val_rec.PLANNED_EFFORT,3);
8104: END IF;
8105:
8106: --For bug 2638649
8099: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'l_task_has_sub_proj_flag='||l_task_has_sub_proj_flag,3);
8100: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'p_calling_module='||p_calling_module,3);
8101: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.scheduled_START_DATE='|| cur_val_rec.scheduled_START_DATE,3);
8102: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.scheduled_FINISH_DATE='||cur_val_rec.scheduled_FINISH_DATE,3);
8103: pa_debug.write('PA_TASK_PVT1.UPDATE_SCHEDULE_VERSION', 'cur_val_rec.PLANNED_EFFORT='||cur_val_rec.PLANNED_EFFORT,3);
8104: END IF;
8105:
8106: --For bug 2638649
8107: IF ( p_scheduled_start_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE AND p_scheduled_start_date IS NOT NULL )
9047: );
9048: END IF;
9049: EXCEPTION
9050: WHEN OTHERS THEN
9051: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9052: p_procedure_name => 'update_schedule_version',
9053: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.update_planning_transactions:'||SQLERRM,1,240));
9054: RAISE FND_API.G_EXC_ERROR;
9055: END;
9089: END IF;
9090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9091: x_msg_count := FND_MSG_PUB.count_msg;
9092: --put message
9093: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9094: p_procedure_name => 'update_schedule_version',
9095: p_error_text => SUBSTRB(SQLERRM,1,240));
9096: RAISE;
9097: END Update_Schedule_Version;
9161: END IF;
9162: EXCEPTION
9163: WHEN OTHERS THEN
9164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9165: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9166: p_procedure_name => 'Inherit_task_type_attr',
9167: p_error_text => SUBSTRB(SQLERRM,1,240));
9168: raise;
9169: END Inherit_task_type_attr;
9231:
9232:
9233: BEGIN
9234: IF (p_debug_mode = 'Y') THEN
9235: pa_debug.debug('PA_TASK_PVT1.Update_Task_Weighting begin');
9236: END IF;
9237:
9238: IF (p_commit = FND_API.G_TRUE) THEN
9239: savepoint update_task_weighting_pvt;
9288: END IF;
9289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9290: x_msg_count := FND_MSG_PUB.count_msg;
9291: --put message
9292: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9293: p_procedure_name => 'Update_Task_Weighting',
9294: p_error_text => SUBSTRB(SQLERRM,1,240));
9295: RAISE;
9296: END UPDATE_TASK_WEIGHTING;
9400: l_current_rec_ver_number := l_record_version_number;
9401: -- end anlee
9402:
9403: --update task weighting
9404: PA_TASK_PVT1.Update_Task_Weighting(
9405: p_object_relationship_id => l_object_relationship_id
9406: ,p_weighting_percentage => l_weighting
9407: ,p_record_version_number => l_record_version_number
9408: ,x_return_status => l_return_status
9435:
9436: l_remainder := 100 - l_current_sum;
9437: if(l_remainder > 0) AND l_progress_allowed = 'Y' then
9438: --update task weighting
9439: PA_TASK_PVT1.Update_Task_Weighting(
9440: p_object_relationship_id => l_current_obj_rel_id
9441: ,p_weighting_percentage => l_current_weighting + l_remainder
9442: ,p_record_version_number => l_current_rec_ver_number + 1
9443: ,x_return_status => l_return_status
9471: WHEN OTHERS THEN
9472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9473: x_msg_count := FND_MSG_PUB.count_msg;
9474: --put message
9475: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9476: p_procedure_name => 'RECALC_TASKS_WEIGHTING',
9477: p_error_text => SUBSTRB(SQLERRM,1,240));
9478: RAISE;
9479: END RECALC_TASKS_WEIGHTING;
9535: x_return_status := FND_API.G_RET_STS_SUCCESS;
9536: EXCEPTION
9537: WHEN OTHERS THEN
9538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9539: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9540: p_procedure_name => 'update_task_ver_delete_status',
9541: p_error_text => SUBSTRB(SQLERRM,1,240));
9542: raise;
9543: END update_task_ver_delete_status;
9774:
9775: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
9776:
9777: IF (p_debug_mode = 'Y') THEN
9778: pa_debug.debug('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL begin');
9779: END IF;
9780:
9781: IF (p_commit = FND_API.G_TRUE) THEN
9782: savepoint DELETE_TASK_VER_WO_VAL;
9863: ,x_msg_count => x_msg_count
9864: ,x_msg_data => x_msg_data);
9865: EXCEPTION
9866: WHEN OTHERS THEN
9867: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
9868: p_procedure_name => 'delete_Task_ver_wo_val',
9869: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
9870: RAISE FND_API.G_EXC_ERROR;
9871: END;
10017: --Bug 14591859: One task can have multiple projects linked to it. So need to delete all the sub-projects associated to it.
10018: l_dest_proj_id:=null; --Added for the Bug 14591859
10019: FOR get_subproj_relation_rec in get_subproj_relation(cur_child_tasks_rec.object_id_to1) LOOP --Added for the Bug 14591859
10020: IF l_debug_mode = 'Y' THEN
10021: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.object_relationship_id='
10022: ||get_subproj_relation_rec.object_relationship_id, 3);
10023: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.record_version_number='
10024: ||get_subproj_relation_rec.record_version_number, 3);
10025:
10019: FOR get_subproj_relation_rec in get_subproj_relation(cur_child_tasks_rec.object_id_to1) LOOP --Added for the Bug 14591859
10020: IF l_debug_mode = 'Y' THEN
10021: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.object_relationship_id='
10022: ||get_subproj_relation_rec.object_relationship_id, 3);
10023: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL', 'Before PA_RELATIONSHIP_PUB.Delete_SubProject_Association get_subproj_relation_rec.record_version_number='
10024: ||get_subproj_relation_rec.record_version_number, 3);
10025:
10026: END IF;
10027:
10043: ,x_msg_data => l_msg_data
10044: );
10045:
10046: IF l_debug_mode = 'Y' THEN
10047: pa_debug.write('PA_TASK_PVT1.DELETE_TASK_VER_WO_VAL', 'After PA_RELATIONSHIP_PUB.Delete_SubProject_Association l_return_status='||l_return_status, 3);
10048: END IF;
10049:
10050:
10051: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10245: ,x_msg_count => x_msg_count
10246: ,x_msg_data => x_msg_data);
10247: EXCEPTION
10248: WHEN OTHERS THEN
10249: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10250: p_procedure_name => 'delete_Task_ver_wo_val',
10251: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions:'||SQLERRM,1,240));
10252: RAISE FND_API.G_EXC_ERROR;
10253: END;
10344:
10345: --hsiu
10346: --added for task weighting
10347: IF (p_calling_module <> 'DEL_STRUCT') THEN
10348: PA_TASK_PVT1.RECALC_TASKS_WEIGHTING(
10349: p_task_version_id => l_old_parent_ver_id
10350: ,x_return_status => l_return_status
10351: ,x_msg_count => l_msg_count
10352: ,x_msg_data => l_msg_data
10417: END IF;
10418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10419: x_msg_count := FND_MSG_PUB.count_msg;
10420: --put message
10421: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10422: p_procedure_name => 'delete_Task_ver_wo_val',
10423: p_error_text => SUBSTRB(SQLERRM,1,240));
10424: RAISE;
10425: END delete_task_ver_wo_val;
10503: where object_id_to1 = l_working_ver_id
10504: and relationship_type = 'S'
10505: and object_type_to = 'PA_TASKS';
10506: --pro-rate peer task weightings
10507: PA_TASK_PVT1.RECALC_TASKS_WEIGHTING(
10508: p_task_version_id => l_working_parent_id
10509: ,x_return_status => x_return_status
10510: ,x_msg_count => x_msg_count
10511: ,x_msg_data => x_msg_data
10522: WHEN FND_API.G_EXC_ERROR THEN
10523: x_return_status := FND_API.G_RET_STS_ERROR;
10524: WHEN OTHERS THEN
10525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10526: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10527: p_procedure_name => 'UPDATE_WORKING_VER_WEIGHT',
10528: p_error_text => SUBSTRB(SQLERRM,1,240));
10529: RAISE;
10530: END UPDATE_WORKING_VER_WEIGHT;
10720: WHEN FND_API.G_EXC_ERROR THEN
10721: x_return_status := FND_API.G_RET_STS_ERROR;
10722: WHEN OTHERS THEN
10723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10724: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10725: p_procedure_name => 'set_new_tasks_to_TBD',
10726: p_error_text => SUBSTRB(SQLERRM,1,240));
10727: RAISE;
10728: END set_new_tasks_to_TBD;
10769: START WITH OBJECT_ID_TO1 = c_elem_ver_id ;
10770:
10771: BEGIN
10772: IF (p_debug_mode = 'Y') THEN
10773: pa_debug.debug('PA_TASK_PVT1.Update_Dates_To_All_Versions begin');
10774: END IF;
10775:
10776: IF (p_commit = FND_API.G_TRUE) THEN
10777: savepoint UPDATE_SCH_VER_PRIVATE_DATES;
10832: END IF;
10833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10834: x_msg_count := FND_MSG_PUB.count_msg;
10835: --put message
10836: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10837: p_procedure_name => 'Update_Dates_To_All_Versions',
10838: p_error_text => SUBSTRB(SQLERRM,1,240));
10839: RAISE;
10840: END Update_Dates_To_All_Versions;
10894: level_sequence ,
10895: sub_level_Seq;
10896: BEGIN
10897: IF (p_debug_mode = 'Y') THEN
10898: pa_debug.debug('PA_TASK_PVT1.DISP_SEQ_NUM_LEVEL_DEFER begin');
10899: END IF;
10900:
10901: IF (p_commit = FND_API.G_TRUE) THEN
10902: savepoint DISP_SEQ_NUM_LEVEL_DEFER;
10984: ROLLBACK to DISP_SEQ_NUM_LEVEL_DEFER;
10985: END IF;
10986: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10987: x_msg_count := FND_MSG_PUB.count_msg;
10988: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
10989: p_procedure_name => 'DISP_SEQ_NUM_LEVEL_DEFER',
10990: p_error_text => SUBSTRB(SQLERRM,1,240));
10991: RAISE;
10992: END DISP_SEQ_NUM_LEVEL_DEFER;
11052: l_data c_array;
11053: l_plsql_max_array_size CONSTANT NUMBER := 1000;
11054: BEGIN
11055: IF (p_debug_mode = 'Y') THEN
11056: pa_debug.debug('PA_TASK_PVT1.DEFER_CALC_TASK_WEIGTHAGE begin');
11057: END IF;
11058:
11059: IF (p_commit = FND_API.G_TRUE) THEN
11060: savepoint DEFER_CALC_TASK_WEIGTHAGE;
11138: ROLLBACK to DEFER_CALC_TASK_WEIGTHAGE;
11139: END IF;
11140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11141: x_msg_count := FND_MSG_PUB.count_msg;
11142: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASK_PVT1',
11143: p_procedure_name => 'DEFER_CALC_TASK_WEIGTHAGE',
11144: p_error_text => SUBSTRB(SQLERRM,1,240));
11145: RAISE;
11146:
11145: RAISE;
11146:
11147: END Defer_Calc_Task_Weigthage ;
11148:
11149: END PA_TASK_PVT1;