6: --End add rtarway FP-M development
7:
8: procedure CHECK_TASK_MGR_NAME_OR_ID
9: (
10: p_task_mgr_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
11: ,p_task_mgr_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
12: ,p_project_id IN NUMBER := NULL
13: ,p_check_id_flag IN VARCHAR2 := 'A'
14: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7:
8: procedure CHECK_TASK_MGR_NAME_OR_ID
9: (
10: p_task_mgr_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
11: ,p_task_mgr_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
12: ,p_project_id IN NUMBER := NULL
13: ,p_check_id_flag IN VARCHAR2 := 'A'
14: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
15: ,x_task_mgr_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
40: and trunc(sysdate) between ppp.START_DATE_ACTIVE
41: and NVL(ppp.end_date_active, SYSDATE));
42:
43: BEGIN
44: IF (p_task_mgr_id IS NULL OR p_task_mgr_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
45: -- ID is empty
46: IF (p_task_mgr_name IS NOT NULL AND p_task_mgr_name<> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
47: --Added for task manager changes;
48: IF (PA_TASKS_MAINT_UTILS.GET_TASK_MANAGER_PROFILE = 'N') THEN
42:
43: BEGIN
44: IF (p_task_mgr_id IS NULL OR p_task_mgr_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
45: -- ID is empty
46: IF (p_task_mgr_name IS NOT NULL AND p_task_mgr_name<> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
47: --Added for task manager changes;
48: IF (PA_TASKS_MAINT_UTILS.GET_TASK_MANAGER_PROFILE = 'N') THEN
49: --select from pa_employees
50: OPEN c;
171:
172:
173: procedure CHECK_PROJECT_NAME_OR_ID
174: (
175: p_project_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
176: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
177: ,p_check_id_flag IN VARCHAR2 := 'A'
178: ,x_project_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
179: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
172:
173: procedure CHECK_PROJECT_NAME_OR_ID
174: (
175: p_project_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
176: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
177: ,p_check_id_flag IN VARCHAR2 := 'A'
178: ,x_project_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
179: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
180: ,x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
188: from pa_projects_all
189: where UPPER(name) = UPPER(p_project_name);
190:
191: BEGIN
192: IF (p_project_id IS NULL OR p_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
193: -- ID is empty
194: IF (p_project_name IS NOT NULL AND p_project_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
195: OPEN c;
196: LOOP
190:
191: BEGIN
192: IF (p_project_id IS NULL OR p_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
193: -- ID is empty
194: IF (p_project_name IS NOT NULL AND p_project_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
195: OPEN c;
196: LOOP
197: FETCH c INTO l_current_id;
198: EXIT WHEN c%NOTFOUND;
264: END CHECK_PROJECT_NAME_OR_ID;
265:
266: procedure CHECK_TASK_NAME_OR_ID
267: (
268: p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
269: ,p_task_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
270: ,p_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
271: ,p_check_id_flag IN VARCHAR2 := 'A'
272: ,x_task_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
265:
266: procedure CHECK_TASK_NAME_OR_ID
267: (
268: p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
269: ,p_task_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
270: ,p_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
271: ,p_check_id_flag IN VARCHAR2 := 'A'
272: ,x_task_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
273: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
266: procedure CHECK_TASK_NAME_OR_ID
267: (
268: p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
269: ,p_task_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
270: ,p_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
271: ,p_check_id_flag IN VARCHAR2 := 'A'
272: ,x_task_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
273: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
274: ,x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
283: from pa_tasks
284: where UPPER(task_name) = UPPER(p_task_name)
285: and project_id = p_project_id;
286: BEGIN
287: IF (p_task_id IS NULL OR p_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
288: -- ID is empty
289: IF (p_task_name IS NOT NULL AND p_task_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
290: OPEN c;
291: LOOP
285: and project_id = p_project_id;
286: BEGIN
287: IF (p_task_id IS NULL OR p_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
288: -- ID is empty
289: IF (p_task_name IS NOT NULL AND p_task_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
290: OPEN c;
291: LOOP
292: FETCH c INTO l_current_id;
293: EXIT WHEN c%NOTFOUND;
832: l_f2 VARCHAR2(1);
833: l_ret VARCHAR2(1);
834:
835: BEGIN
836: IF (p_sch_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
837: p_sch_start_date IS NULL) AND
838: (p_sch_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
839: p_sch_end_date IS NULL) THEN
840: check_start_end_date(
834:
835: BEGIN
836: IF (p_sch_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
837: p_sch_start_date IS NULL) AND
838: (p_sch_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
839: p_sch_end_date IS NULL) THEN
840: check_start_end_date(
841: p_old_start_date => null,
842: p_old_end_date => null,
906: l_f2 VARCHAR2(1);
907: l_ret VARCHAR2(1);
908: BEGIN
909:
910: IF (p_estimate_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
911: p_estimate_start_date IS NULL) AND
912: (p_estimate_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
913: p_estimate_end_date IS NULL) THEN
914: check_start_end_date(
908: BEGIN
909:
910: IF (p_estimate_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
911: p_estimate_start_date IS NULL) AND
912: (p_estimate_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
913: p_estimate_end_date IS NULL) THEN
914: check_start_end_date(
915: p_old_start_date => null,
916: p_old_end_date => null,
955: l_f2 VARCHAR2(1);
956: l_ret VARCHAR2(1);
957: BEGIN
958:
959: IF (p_actual_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
960: p_actual_start_date IS NULL) AND
961: (p_actual_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
962: p_actual_end_date IS NULL) THEN
963: check_start_end_date(
957: BEGIN
958:
959: IF (p_actual_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
960: p_actual_start_date IS NULL) AND
961: (p_actual_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE OR
962: p_actual_end_date IS NULL) THEN
963: check_start_end_date(
964: p_old_start_date => null,
965: p_old_end_date => null,
1625: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1626: ) AS
1627: BEGIN
1628: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1629: IF p_reference_project_id IS NULL OR p_reference_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1630: THEN
1631: x_error_msg_code := 'PA_TASK_TARGET_PRJ_ID_REQ';
1632: x_return_status:= FND_API.G_RET_STS_ERROR;
1633: RAISE FND_API.G_EXC_ERROR;
1632: x_return_status:= FND_API.G_RET_STS_ERROR;
1633: RAISE FND_API.G_EXC_ERROR;
1634: END IF;
1635:
1636: IF p_reference_task_id IS NULL OR p_reference_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1637: THEN
1638: x_error_msg_code := 'PA_TASK_TARGET_TASK_ID_REQ';
1639: x_return_status:= FND_API.G_RET_STS_ERROR;
1640: RAISE FND_API.G_EXC_ERROR;
1668: x_error_msg_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1669: ) AS
1670: BEGIN
1671: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1672: IF p_project_id IS NULL OR p_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1673: THEN
1674: x_error_msg_code := 'PA_TASK_SOURCE_PRJ_ID_REQ';
1675: x_return_status:= FND_API.G_RET_STS_ERROR;
1676: RAISE FND_API.G_EXC_ERROR;
1675: x_return_status:= FND_API.G_RET_STS_ERROR;
1676: RAISE FND_API.G_EXC_ERROR;
1677: END IF;
1678:
1679: IF p_task_id IS NULL OR p_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1680: THEN
1681: x_error_msg_code := 'PA_TASK_SOURCE_TASK_ID_REQ';
1682: x_return_status:= FND_API.G_RET_STS_ERROR;
1683: RAISE FND_API.G_EXC_ERROR;
1715: from pa_lookups
1716: where lookup_type = 'PA_DATE' and lookup_code = p_context;
1717: end if;
1718:
1719: IF p_new_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1720: AND p_new_start_date IS NOT NULL --redundant, but added for clarity
1721: THEN
1722: IF p_new_start_date <> NVL(p_old_start_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
1723: THEN
1718:
1719: IF p_new_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1720: AND p_new_start_date IS NOT NULL --redundant, but added for clarity
1721: THEN
1722: IF p_new_start_date <> NVL(p_old_start_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
1723: THEN
1724: p_update_start_date_flag := 'Y';
1725: l_start_date := p_new_start_date;
1726: ELSE
1727: p_update_start_date_flag := 'N';
1728: l_start_date := p_new_start_date;
1729: END IF;
1730:
1731: IF p_new_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1732: AND p_new_end_date IS NOT NULL --redundant, but added for clarity
1733: THEN
1734: IF p_new_end_date <> NVL(p_old_end_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
1735: THEN
1730:
1731: IF p_new_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1732: AND p_new_end_date IS NOT NULL --redundant, but added for clarity
1733: THEN
1734: IF p_new_end_date <> NVL(p_old_end_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
1735: THEN
1736: p_update_end_date_flag := 'Y';
1737: l_end_date := p_new_end_date;
1738: ELSE
1745: IF FND_MSG_PUB.check_msg_level
1746: (FND_MSG_PUB.G_MSG_LVL_ERROR)
1747: THEN
1748: /*
1749: pa_interface_utils_pub.map_new_amg_msg
1750: ( p_old_message_code => 'PA_INVALID_START_DATE2'
1751: ,p_msg_attribute => 'CHANGE'
1752: ,p_resize_flag => 'N'
1753: ,p_msg_context => 'GENERAL'
1786: IF l_start_date > p_old_end_date THEN
1787: IF FND_MSG_PUB.check_msg_level
1788: (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1789: /*
1790: pa_interface_utils_pub.map_new_amg_msg
1791: ( p_old_message_code => 'PA_INVALID_START_DATE2'
1792: ,p_msg_attribute => 'CHANGE'
1793: ,p_resize_flag => 'N'
1794: ,p_msg_context => 'GENERAL'
1817: ELSE
1818: p_update_start_date_flag := 'N';
1819: END IF;
1820:
1821: IF p_new_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1822: AND p_new_end_date IS NOT NULL
1823: THEN
1824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1825: THEN
1823: THEN
1824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1825: THEN
1826: /*
1827: pa_interface_utils_pub.map_new_amg_msg
1828: ( p_old_message_code => 'PA_DATES_INVALID'
1829: ,p_msg_attribute => 'CHANGE'
1830: ,p_resize_flag => 'N'
1831: ,p_msg_context => 'GENERAL'
1859: THEN
1860: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1861: THEN
1862: /*
1863: pa_interface_utils_pub.map_new_amg_msg
1864: ( p_old_message_code => 'PA_DATES_INVALID'
1865: ,p_msg_attribute => 'CHANGE'
1866: ,p_resize_flag => 'N'
1867: ,p_msg_context => 'GENERAL'
1885: ELSE --p_new_start_date was not passed
1886:
1887: p_update_start_date_flag := 'N';
1888:
1889: IF p_new_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1890: AND p_new_end_date IS NOT NULL
1891: THEN
1892: IF p_new_end_date <> nvl(p_old_end_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
1893: THEN
1888:
1889: IF p_new_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1890: AND p_new_end_date IS NOT NULL
1891: THEN
1892: IF p_new_end_date <> nvl(p_old_end_date,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
1893: THEN
1894: p_update_end_date_flag := 'Y';
1895:
1896: IF p_old_start_date IS NULL
1898: THEN
1899: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1900: THEN
1901: /*
1902: pa_interface_utils_pub.map_new_amg_msg
1903: ( p_old_message_code => 'PA_INVALID_START_DATE2'
1904: ,p_msg_attribute => 'CHANGE'
1905: ,p_resize_flag => 'N'
1906: ,p_msg_context => 'GENERAL'