[Home] [Help]
387: END IF;
388:
389: IF p_object_type <> 'PA_TASKS'
390: THEN
391: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NOT_TASK_OBJECT');
392: l_msg_data := 'PA_PS_NOT_TASK_OBJECT';
393: END IF;
394:
395: --hsiu: bug 2669388
406: /* changes end for bug 3705333*/
407:
408: IF p_task_number IS NULL
409: THEN
410: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
411: p_msg_name => 'PA_PS_TASK_NUMBER_NULL');
412: raise FND_API.G_EXC_ERROR;
413: END IF;
414:
414:
415: --dbms_output.put_line('task name');
416: IF p_task_name IS NULL
417: THEN
418: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
419: p_msg_name => 'PA_PS_TASK_NAME_NULL');
420: raise FND_API.G_EXC_ERROR;
421: END IF;
422:
431: ,p_structure_id => p_parent_structure_id
432: ,p_object_type => 'PA_TASKS'
433: ) = 'N'
434: THEN
435: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
436: p_msg_name => 'PA_PS_TASK_NOT_NUM_UNIQ');
437: raise FND_API.G_EXC_ERROR;
438:
439: END IF;
445: NULL,
446: p_project_id,
447: p_structure_id) <> 'Y') THEN
448: --Name is not unique
449: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_TASK_NUMBER_UNIQUE');
450: l_msg_data := 'PA_PS_TASK_NUMBER_UNIQUE';
451: /* bug 3459905 Check if there is any error. */
452: l_msg_count := FND_MSG_PUB.count_msg;
453: IF l_msg_count > 0 THEN
1076: --( l_dummy_char2 IS NOT NULL ) --is a structure version id not a valid ref task id from pa_task
1077: THEN
1078: --Not a valid ref task. Tasks exists in pa_tasks
1079: --dbms_output.put_line('error with ref tsk');
1080: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INV_REF_TASK_ID');
1081: l_msg_data := 'PA_PS_INV_REF_TASK_ID';
1082: -- start of bug 3459905
1083: --Check if there is any error.
1084: l_msg_count := FND_MSG_PUB.count_msg;
1858: p_task_id,
1859: v_cur_proj_elems_rec.project_id,
1860: v_cur_proj_elems_rec.PARENT_STRUCTURE_ID) <> 'Y') THEN
1861: --Name is not unique
1862: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_TASK_NUMBER_UNIQUE');
1863: l_msg_data := 'PA_PS_TASK_NUMBER_UNIQUE';
1864: -- start of bug 3459905
1865: l_msg_count := FND_MSG_PUB.count_msg;
1866: IF l_msg_count > 0 THEN
1895: -- check if it is top task
1896: IF ('N' = pa_proj_elements_utils.IS_TOP_TASK_ACROSS_ALL_VER(
1897: p_task_id)) THEN
1898: --Is not a top task across all versions. Error
1899: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NOT_ALL_TOP_TASKS');
1900: -- start of bug 3459905
1901: --Check if there is any error.
1902: l_msg_count := FND_MSG_PUB.count_msg;
1903: IF l_msg_count > 0 THEN
1914: IF ('Y' = pa_proj_elements_utils.CHECK_PHASE_IN_USE(
1915: p_task_id,
1916: p_phase_version_id)) THEN
1917: -- Phase already in use in the structure. Error
1918: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_PHASE_IN_USE');
1919: -- start of bug 3459905
1920: --Check if there is any error.
1921: l_msg_count := FND_MSG_PUB.count_msg;
1922: IF l_msg_count > 0 THEN
2014: x_msg_data => l_msg_data
2015: );
2016:
2017: IF (l_change_allowed = 'N') THEN
2018: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CHG_TASK_TYPE_ERR');
2019: l_msg_data := 'PA_PS_CHG_TASK_TYPE_ERR';
2020: --Check if there is any error.
2021: -- start of bug 3459905
2022: l_msg_count := FND_MSG_PUB.count_msg;
2030: -- end of bug 3459905
2031: END IF;
2032:
2033: IF ('N' = PA_TASK_TYPE_UTILS.check_tk_type_effective(p_type_id)) THEN
2034: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_EFF_TASK_TYPE_ERR');
2035: l_msg_data := 'PA_PS_EFF_TASK_TYPE_ERR';
2036: -- start of bug 3459905
2037: --Check if there is any error.
2038: l_msg_count := FND_MSG_PUB.count_msg;
2253: -- Amit : Code added so that task status can't be changed for a cancelled task
2254: IF (v_cur_proj_elems_rec.STATUS_CODE <> p_STATUS_CODE AND
2255: PA_PROGRESS_UTILS.get_system_task_status(v_cur_proj_elems_rec.STATUS_CODE)= 'CANCELLED')
2256: THEN
2257: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2258: p_msg_name => 'PA_TSK_STS_CANT_CHANGED');
2259: raise FND_API.G_EXC_ERROR;
2260: END IF;
2261: --marked as changed only if different
2277: l_del_cnt:=PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hie_upd(l_task_version_id);
2278: -- IF l_del_cnt >=1 AND p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE' THEN --Jun 28th
2279: IF l_del_cnt >=1 AND (p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE'
2280: OR l_tt_base_perc_comp_der_cd LIKE 'DELIVERABLE' ) THEN --Jun 28th
2281: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2282: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
2283: raise FND_API.G_EXC_ERROR;
2284: END IF;
2285: END LOOP;
2292: l_del_cnt:=PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hie_upd(l_task_version_id);
2293: -- IF l_del_cnt >=1 AND p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE' THEN --Jun 28th
2294: IF l_del_cnt >=1 AND (p_Base_Perc_Comp_Deriv_Code LIKE 'DELIVERABLE'
2295: OR l_tt_base_perc_comp_der_cd LIKE 'DELIVERABLE' ) THEN --Jun 28th
2296: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2297: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
2298: raise FND_API.G_EXC_ERROR;
2299: END IF;
2300: END LOOP;
2678: -- Bug#3491609 : Workflow Chanegs FP M
2679: );
2680: ELSE
2681: CLOSE cur_proj_elems;
2682: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INVALID_TASK_ID');
2683: l_msg_data := 'PA_PS_INVALID_TASK_ID';
2684: RAISE FND_API.G_EXC_ERROR;
2685: END IF;
2686:
2969: ,x_return_status => l_return_status
2970: ,x_error_message_code => l_error_message_code
2971: );
2972: IF (l_return_status <> 'S') THEN
2973: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2974: p_msg_name => l_error_message_code);
2975: raise FND_API.G_EXC_ERROR;
2976: END IF;
2977: END IF;
3370: FETCH get_task_detail INTO l_base_deriv_code;
3371: CLOSE get_task_detail;
3372: IF l_base_deriv_code LIKE 'DELIVERABLE' THEN
3373: IF PA_PROJ_ELEMENTS_UTILS.check_task_parents_deliv(l_ref_parent_task_ver_id) = 'Y' THEN
3374: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3375: p_msg_name => 'PA_TASK_AND_PARENTTASK_DEL');
3376: raise FND_API.G_EXC_ERROR;
3377: END IF;
3378: END IF;
3457: ,x_error_message_code => l_error_message_code
3458: );
3459:
3460: IF (l_return_status <> 'Y') THEN
3461: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3462: p_msg_name => l_error_message_code);
3463: raise FND_API.G_EXC_ERROR;
3464: END IF;
3465: END IF;
3489: ,x_error_message_code => l_error_message_code
3490: );
3491:
3492: IF (l_return_status <> 'Y') THEN
3493: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3494: p_msg_name => l_error_message_code);
3495: raise FND_API.G_EXC_ERROR;
3496: END IF;
3497: END IF;
3670: END IF;
3671:
3672: ELSE
3673: CLOSE cur_proj_elems;
3674: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INV_REF_TASK_ID');
3675: l_msg_data := 'PA_PS_INV_REF_TASK_ID';
3676: RAISE FND_API.G_EXC_ERROR;
3677: END IF;
3678: CLOSE cur_proj_elems;
3992: --Bug No 3450684 Smukka 04/Mar/04 Checking for deliverable
3993: --Bug No 3475920 SMukka Commented out following logic to check for deliverable.
3994: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_task_version_id) = 'Y' THEN
3995: -- IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id,p_ref_task_version_id) = 'Y' THEN
3996: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3997: -- p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
3998: -- raise FND_API.G_EXC_ERROR;
3999: -- END IF;
4000:
4303: END;
4304: END IF; --<< p_action = MOVE >>;
4305: ELSE
4306: CLOSE cur_proj_elems;
4307: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INVALID_TASK_ID');
4308: l_msg_data := 'PA_PS_INVALID_TASK_ID';
4309: RAISE FND_API.G_EXC_ERROR;
4310: END IF;
4311: CLOSE cur_proj_elems;
4310: END IF;
4311: CLOSE cur_proj_elems;
4312: -- ELSE
4313: -- CLOSE cur_ref_task;
4314: -- PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INV_REF_TASK_ID');
4315: -- l_msg_data := 'PA_PS_INV_REF_TASK_ID';
4316: -- RAISE FND_API.G_EXC_ERROR;
4317: -- END IF;
4318:
5192: p_structure_version_id,
5193: p_task_version_id)) THEN
5194: --deleting linked task. Error
5195: x_return_status := FND_API.G_RET_STS_ERROR;
5196: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_DEL_LINKED_TASK');
5197: l_msg_data := 'PA_PS_NO_DEL_LINKED_TASK';
5198: RAISE FND_API.G_EXC_ERROR;
5199: END IF;
5200: END IF;
5424:
5425: --dbms_output.put_line('status = '||l_return_status||','||l_error_message_code);
5426: IF (l_return_status <> 'S') THEN
5427: x_return_status := l_return_status;
5428: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
5429: l_msg_data := l_error_message_code;
5430: RAISE FND_API.G_EXC_ERROR;
5431: END IF;
5432: */
6042: AND (display_sequence > l_selected_seq_num)
6043: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
6044: EXCEPTION
6045: WHEN OTHERS THEN
6046: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
6047: raise FND_API.G_EXC_ERROR;
6048: END;
6049:
6050: --hsiu added, for dates rollup
6598: ELSE
6599: l_ext_act_duration := p_ext_act_duration;
6600: --hsiu: bug 3638195
6601: IF l_ext_act_duration < 0 THEN
6602: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_ACT_ERR');
6603: l_msg_data := l_error_message_code;
6604: RAISE FND_API.G_EXC_ERROR;
6605: END IF;
6606: END IF;
6611: ELSE
6612: l_ext_remain_duration := p_ext_remain_duration;
6613: --hsiu: bug 3638195
6614: IF l_ext_remain_duration < 0 THEN
6615: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_RMN_ERR');
6616: l_msg_data := l_error_message_code;
6617: RAISE FND_API.G_EXC_ERROR;
6618: END IF;
6619: END IF;
6624: ELSE
6625: l_ext_sch_duration := p_ext_sch_duration;
6626: --hsiu: bug 3638195
6627: IF l_ext_sch_duration < 0 THEN
6628: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_SCH_ERR');
6629: l_msg_data := l_error_message_code;
6630: RAISE FND_API.G_EXC_ERROR;
6631: END IF;
6632: END IF;
6746: ,x_return_status => l_return_status
6747: ,x_error_message_code => l_error_message_code );
6748:
6749: IF (l_return_status <> 'S') THEN
6750: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
6751: l_msg_data := l_error_message_code;
6752: RAISE FND_API.G_EXC_ERROR;
6753: END IF;
6754:
6883:
6884: /* IF ('N' = PA_TASK_TYPE_UTILS.check_tk_type_wq_enabled(l_task_type_id) OR
6885: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(l_project_id)) THEN
6886: --error message
6887: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
6888: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
6889: RAISE FND_API.G_EXC_ERROR;
6890: ELSE */
6891: -- Above code is commented and moved below to first check whether any value has been passed in p_wq_planned_quantity
6904: IF (l_wq_planned_quantity IS NOT NULL) THEN
6905: /*
6906: IF (l_wq_planned_quantity < 0) THEN
6907: --error message
6908: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_QTY_ERR');
6909: x_msg_data := 'PA_PS_NEG_PLAN_QTY_ERR';
6910: RAISE FND_API.G_EXC_ERROR;
6911: -- Else condition added for Bug No. : 2791413
6912: ELSE
6913: */
6914: IF ('N' = PA_TASK_TYPE_UTILS.check_tk_type_wq_enabled(l_task_type_id) OR
6915: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(l_project_id)) THEN
6916: --error message
6917: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
6918: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
6919: RAISE FND_API.G_EXC_ERROR;
6920: End IF;
6921: -- END IF;
6934: /*
6935: IF (l_planned_effort IS NOT NULL) THEN
6936: IF (l_planned_effort < 0) THEN
6937: --error message
6938: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_EFF_ERR');
6939: x_msg_data := 'PA_PS_NEG_PLAN_EFF_ERR';
6940: RAISE FND_API.G_EXC_ERROR;
6941: END IF;
6942: END IF;
7079: ,X_SOURCE_OBJECT_TYPE => 'PA_PROJECTS'
7080: );
7081: ELSE
7082: CLOSE cur_proj_elem_ver;
7083: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INVALID_TASK_ID');
7084: l_msg_data := 'PA_PS_INVALID_TASK_ID';
7085: RAISE FND_API.G_EXC_ERROR;
7086: END IF;
7087: CLOSE cur_proj_elem_ver;
7385:
7386: /* IF ('N' = PA_TASK_TYPE_UTILS.check_tk_type_wq_enabled(l_task_type_id) OR
7387: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(cur_val_rec.project_id)) THEN
7388: -- Bug 2791413 Added error message
7389: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
7390: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
7391: RAISE FND_API.G_EXC_ERROR;
7392: ELSE
7393: IF (p_wq_planned_quantity = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
7403: 'N' = PA_PROGRESS_UTILS.get_project_wq_flag(cur_val_rec.project_id)) THEN
7404: -- If condition added for Bug No. : 2791413
7405: IF (p_wq_planned_quantity <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_wq_planned_quantity IS NOT NULL) THEN
7406: -- Bug 2791413 Added error message
7407: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_ENT_WQ_ATTR1');
7408: x_msg_data := 'PA_PS_CANT_ENT_WQ_ATTR1';
7409: RAISE FND_API.G_EXC_ERROR;
7410: END IF;
7411: l_wq_planned_quantity := NULL;
7424: /*
7425: IF (l_wq_planned_quantity IS NOT NULL) THEN
7426: IF (l_wq_planned_quantity < 0) THEN
7427: --error message
7428: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_QTY_ERR');
7429: x_msg_data := 'PA_PS_NEG_PLAN_QTY_ERR';
7430: RAISE FND_API.G_EXC_ERROR;
7431: END IF;
7432: END IF;
7546: IF l_scheduled_start_date IS NULL
7547: THEN
7548: -- For bug 2625650
7549: -- l_scheduled_start_date := cur_val_rec.SCHEDULED_START_DATE;
7550: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_SCH_DATES_REQD');
7551: l_msg_data := 'PA_PS_SCH_DATES_REQD';
7552: RAISE FND_API.G_EXC_ERROR;
7553: -- End of bug fix
7554: -- ELSE
7559: IF l_scheduled_end_date IS NULL
7560: THEN
7561: -- For bug 2625650
7562: --l_scheduled_end_date := cur_val_rec.SCHEDULED_FINISH_DATE;
7563: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_SCH_DATES_REQD');
7564: l_msg_data := 'PA_PS_SCH_DATES_REQD';
7565: RAISE FND_API.G_EXC_ERROR;
7566: -- End of bug fix
7567: -- ELSE
7664: l_ext_act_duration := cur_val_rec.ext_act_duration;
7665: ELSE
7666: l_ext_act_duration := p_ext_act_duration;
7667: IF l_ext_act_duration < 0 THEN
7668: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_ACT_ERR');
7669: l_msg_data := l_error_message_code;
7670: RAISE FND_API.G_EXC_ERROR;
7671: END IF;
7672: END IF;
7676: l_ext_remain_duration := cur_val_rec.ext_remain_duration;
7677: ELSE
7678: l_ext_remain_duration := p_ext_remain_duration;
7679: IF l_ext_remain_duration < 0 THEN
7680: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_RMN_ERR');
7681: l_msg_data := l_error_message_code;
7682: RAISE FND_API.G_EXC_ERROR;
7683: END IF;
7684: END IF;
7688: l_ext_sch_duration := cur_val_rec.ext_sch_duration;
7689: ELSE
7690: l_ext_sch_duration := p_ext_sch_duration;
7691: IF l_ext_sch_duration < 0 THEN
7692: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_EXT_SCH_ERR');
7693: l_msg_data := l_error_message_code;
7694: RAISE FND_API.G_EXC_ERROR;
7695: END IF;
7696: END IF;
7864: ,x_return_status => l_return_status
7865: ,x_error_message_code => l_error_message_code );
7866:
7867: IF (l_return_status <> 'S') THEN
7868: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
7869: l_msg_data := l_error_message_code;
7870: RAISE FND_API.G_EXC_ERROR;
7871: END IF;
7872:
8051: /*
8052: IF (l_planned_effort IS NOT NULL) THEN
8053: IF (l_planned_effort < 0) THEN
8054: --error message
8055: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NEG_PLAN_EFF_ERR');
8056: x_msg_data := 'PA_PS_NEG_PLAN_EFF_ERR';
8057: RAISE FND_API.G_EXC_ERROR;
8058: END IF;
8059: END IF;
8180: ,X_ATTRIBUTE15 => l_ATTRIBUTE15
8181: );
8182: ELSE
8183: CLOSE cur_proj_elem_ver_sch;
8184: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_INV_PEV_SCH_ID');
8185: l_msg_data := 'PA_PS_INV_PEV_SCH_ID';
8186: RAISE FND_API.G_EXC_ERROR;
8187: END IF;
8188:
9207: x_err_stage => l_err_stage,
9208: x_err_stack => l_err_stack);
9209:
9210: If (l_err_code <> 0) THEN
9211: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9212: p_msg_name => substrb(l_err_stage,1,30)); --3935874 : Changed Substr to Substrb
9213: CLOSE cur_pa_tasks;
9214: raise FND_API.G_EXC_ERROR;
9215: END IF;
9516: AND (display_sequence > l_selected_seq_num)
9517: AND PA_PROJ_ELEMENTS_UTILS.link_flag ( proj_element_id ) = 'N';
9518: EXCEPTION
9519: WHEN OTHERS THEN
9520: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
9521: raise FND_API.G_EXC_ERROR;
9522: END;
9523:
9524: --hsiu added, for dates rollup