[Home] [Help]
165: CLOSE l_amg_task_csr;
166: */
167: IF p_task_id <> 0 THEN
168:
169: l_amg_task_number := pa_interface_utils_pub.get_task_number_amg
170: (p_task_number=> ''
171: ,p_task_reference => ''
172: ,p_task_id => p_task_id);
173: ELSE
189: --dbms_output.put_line('Time phased code: '||p_time_phased_type_code);
190: --dbms_output.put_line('Period name : '||p_period_name_in);
191:
192: IF p_period_name_in IS NULL
193: OR p_period_name_in = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
194: THEN
195:
196: IF l_budget_start_date_in IS NULL
197: OR l_budget_start_date_in = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
193: OR p_period_name_in = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
194: THEN
195:
196: IF l_budget_start_date_in IS NULL
197: OR l_budget_start_date_in = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
198: OR l_budget_end_date_in IS NULL
199: OR l_budget_end_date_in = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
200: THEN
201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
195:
196: IF l_budget_start_date_in IS NULL
197: OR l_budget_start_date_in = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
198: OR l_budget_end_date_in IS NULL
199: OR l_budget_end_date_in = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
200: THEN
201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
202: pa_interface_utils_pub.map_new_amg_msg
203: ( p_old_message_code => 'PA_BUDGET_DATES_MISSING'
198: OR l_budget_end_date_in IS NULL
199: OR l_budget_end_date_in = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
200: THEN
201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
202: pa_interface_utils_pub.map_new_amg_msg
203: ( p_old_message_code => 'PA_BUDGET_DATES_MISSING'
204: ,p_msg_attribute => 'CHANGE'
205: ,p_resize_flag => 'N'
206: ,p_msg_context => 'BUDG'
222:
223: IF l_period_name_csr%NOTFOUND
224: THEN
225: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
226: pa_interface_utils_pub.map_new_amg_msg
227: ( p_old_message_code => 'PA_PERIOD_DATES_INVALID'
228: ,p_msg_attribute => 'CHANGE'
229: ,p_resize_flag => 'N'
230: ,p_msg_context => 'BUDG'
259:
260: IF l_budget_periods_csr%NOTFOUND
261: THEN
262: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
263: pa_interface_utils_pub.map_new_amg_msg
264: ( p_old_message_code => 'PA_BUDGET_PERIOD_IS_INVALID'
265: ,p_msg_attribute => 'CHANGE'
266: ,p_resize_flag => 'Y'
267: ,p_msg_context => 'BUDG'
323: THEN
324: --validation of incoming dates
325: IF NVL(p_calling_model_context ,'-99') = 'BUDGETSMODEL' THEN
326:
327: IF l_budget_start_date_in = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
328: OR l_budget_start_date_in IS NULL
329: THEN
330: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
331: THEN
328: OR l_budget_start_date_in IS NULL
329: THEN
330: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
331: THEN
332: pa_interface_utils_pub.map_new_amg_msg
333: ( p_old_message_code => 'PA_START_DATE_IS_MISSING'
334: ,p_msg_attribute => 'CHANGE'
335: ,p_resize_flag => 'N'
336: ,p_msg_context => 'PROJ'
343:
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346:
347: IF l_budget_end_date_in = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
348: OR l_budget_end_date_in IS NULL
349: THEN
350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
351: THEN
348: OR l_budget_end_date_in IS NULL
349: THEN
350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
351: THEN
352: pa_interface_utils_pub.map_new_amg_msg
353: ( p_old_message_code => 'PA_END_DATE_IS_MISSING'
354: ,p_msg_attribute => 'CHANGE'
355: ,p_resize_flag => 'N'
356: ,p_msg_context => 'PROJ'
378: */
379: IF l_budget_start_date_in > l_budget_end_date_in THEN
380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
381: THEN
382: pa_interface_utils_pub.map_new_amg_msg
383: ( p_old_message_code => 'PA_SU_INVALID_DATES'
384: ,p_msg_attribute => 'CHANGE'
385: ,p_resize_flag => 'Y' -- Set to Y so that get_new_message_code API is called and same message gets returned !
386: ,p_msg_context => 'PROJ'
400: CLOSE l_project_dates_csr;
401:
402: IF l_budget_start_date_in < l_project_start_date OR
403: l_budget_end_date_in > l_project_end_date THEN
404: pa_interface_utils_pub.map_new_amg_msg
405: ( p_old_message_code => 'PA_FP_NO_PROJ_TASK_DATE_RANGE'
406: ,p_msg_attribute => 'CHANGE'
407: ,p_resize_flag => 'Y' -- Set to Y so that get_new_message_code API is called and same message gets returned !
408: ,p_msg_context => 'PROJ'
421: CLOSE l_task_dates_csr;
422:
423: IF l_budget_start_date_in < l_task_start_date OR
424: l_budget_end_date_in > l_task_end_date THEN
425: pa_interface_utils_pub.map_new_amg_msg
426: ( p_old_message_code => 'PA_FP_NO_TASK_DATE_RANGE'
427: ,p_msg_attribute => 'CHANGE'
428: ,p_resize_flag => 'Y' -- Set to Y so that get_new_message_code API is called and same message gets returned !
429: ,p_msg_context => 'PROJ'
479:
480: IF (l_project_start_date IS NULL) THEN
481:
482: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
483: pa_interface_utils_pub.map_new_amg_msg
484: ( p_old_message_code => 'PA_PROJ_START_DATE_MISS1'
485: ,p_msg_attribute => 'CHANGE'
486: ,p_resize_flag => 'N'
487: ,p_msg_context => 'PROJ'
497:
498: IF (l_project_end_date IS NULL) THEN
499:
500: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
501: pa_interface_utils_pub.map_new_amg_msg
502: ( p_old_message_code => 'PA_PROJ_END_DATE_MISS1'
503: ,p_msg_attribute => 'CHANGE'
504: ,p_resize_flag => 'N'
505: ,p_msg_context => 'PROJ'
600: IF l_task_start_date IS NULL --implies that task_end_date is null too!!
601: THEN
602: IF (l_project_start_date IS NULL) THEN
603: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
604: pa_interface_utils_pub.map_new_amg_msg
605: ( p_old_message_code => 'PA_PROJ_START_DATE_MISS2'
606: ,p_msg_attribute => 'CHANGE'
607: ,p_resize_flag => 'N'
608: ,p_msg_context => 'PROJ'
617: END IF;
618:
619: IF (l_project_end_date IS NULL) THEN
620: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
621: pa_interface_utils_pub.map_new_amg_msg
622: ( p_old_message_code => 'PA_PROJ_END_DATE_MISS2'
623: ,p_msg_attribute => 'CHANGE'
624: ,p_resize_flag => 'N'
625: ,p_msg_context => 'PROJ'
648: CLOSE l_project_dates_csr;
649:
650: IF (l_project_end_date IS NULL) THEN -- changed elsif to if for bug 3682546
651: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
652: pa_interface_utils_pub.map_new_amg_msg
653: ( p_old_message_code => 'PA_PROJ_END_DATE_MISS3'
654: ,p_msg_attribute => 'CHANGE'
655: ,p_resize_flag => 'N'
656: ,p_msg_context => 'PROJ'
679: l_budget_end_date_in IS NOT NULL THEN
680: -- validate if the end date passed is greater then the start date
681: IF l_budget_end_date_in < l_budget_start_date_in THEN
682: IF Nvl(p_context, '-99') <> 'WEBADI' THEN
683: pa_interface_utils_pub.map_new_amg_msg
684: ( p_old_message_code => 'PA_INVALID_START_DATE'
685: ,p_msg_attribute => 'CHANGE'
686: ,p_resize_flag => 'N'
687: ,p_msg_context => 'PROJ'
704: ELSIF l_budget_start_date_in IS NOT NULL AND
705: l_budget_end_date_in IS NULL THEN
706: -- raise error according to context
707: IF Nvl(p_context, '-99') <> 'WEBADI' THEN
708: pa_interface_utils_pub.map_new_amg_msg
709: ( p_old_message_code => 'PA_END_DATE_IS_MISSING'
710: ,p_msg_attribute => 'CHANGE'
711: ,p_resize_flag => 'N'
712: ,p_msg_context => 'PROJ'
725: ELSIF l_budget_start_date_in IS NULL AND
726: l_budget_end_date_in IS NOT NULL THEN
727: -- raise error according to context
728: IF Nvl(p_context, '-99') <> 'WEBADI' THEN
729: pa_interface_utils_pub.map_new_amg_msg
730: ( p_old_message_code => 'PA_START_DATE_IS_MISSING'
731: ,p_msg_attribute => 'CHANGE'
732: ,p_resize_flag => 'N'
733: ,p_msg_context => 'PROJ'
968: EXCEPTION
969: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
970: l_msg_count := FND_MSG_PUB.count_msg;
971: IF l_msg_count = 1 THEN
972: PA_INTERFACE_UTILS_PUB.get_messages
973: (p_encoded => FND_API.G_TRUE
974: ,p_msg_index => 1
975: ,p_msg_count => l_msg_count
976: ,p_msg_data => l_msg_data
1174: IF ( p_budget_amount_code = 'C'
1175: OR p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST)
1176: THEN
1177: IF l_cost_quantity_flag = 'N'
1178: AND ( p_quantity <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1179: AND p_quantity IS NOT NULL )
1180: THEN
1181: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1182: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1210:
1211: END IF;
1212:
1213: IF l_raw_cost_flag = 'N'
1214: AND ( p_raw_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1215: AND p_raw_cost IS NOT NULL )
1216: THEN
1217: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1218: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1246:
1247: END IF;
1248:
1249: IF l_burdened_cost_flag = 'N'
1250: AND ( p_burdened_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1251: AND p_burdened_cost IS NOT NULL )
1252: THEN
1253: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1254: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1280:
1281: END IF;
1282:
1283: -- Revenue should be null for a COST version. AMG UT2
1284: IF p_revenue <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1285: p_revenue IS NOT NULL
1286: THEN
1287: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1288: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1319: ELSIF( p_budget_amount_code = 'R'
1320: OR p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE)
1321: THEN
1322: IF l_rev_quantity_flag = 'N'
1323: AND ( p_quantity <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1324: AND p_quantity IS NOT NULL )
1325: THEN
1326: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1327: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1354: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1355: END IF;
1356:
1357: IF l_revenue_flag = 'N'
1358: AND ( p_revenue <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1359: AND p_revenue IS NOT NULL )
1360: THEN
1361: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1362: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1389: END IF;
1390:
1391: -- Raw cost and Burdened Cost amounts should be null for a revenue
1392: -- Version. AMG UT2.
1393: IF p_raw_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1394: p_raw_cost IS NOT NULL
1395: THEN
1396: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1397: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1425: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1426:
1427: END IF;
1428:
1429: IF p_burdened_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1430: p_burdened_cost IS NOT NULL
1431: THEN
1432: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1433: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1461: --FinPlan Model . Cost and Revenue Together Version
1462: ELSIF(p_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL)THEN
1463:
1464: IF p_allow_qty_flag = 'N'
1465: AND ( p_quantity <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1466: AND p_quantity IS NOT NULL )
1467: THEN
1468: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1469: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1495: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1496: END IF;
1497:
1498: IF l_raw_cost_flag = 'N'
1499: AND ( p_raw_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1500: AND p_raw_cost IS NOT NULL )
1501: THEN
1502: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1503: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1529: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1530: END IF;
1531:
1532: IF l_burdened_cost_flag = 'N'
1533: AND ( p_burdened_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1534: AND p_burdened_cost IS NOT NULL )
1535: THEN
1536: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1537: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1563:
1564: END IF;
1565:
1566: IF l_revenue_flag = 'N'
1567: AND ( p_revenue <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1568: AND p_revenue IS NOT NULL )
1569: THEN
1570: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1571: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1625: -- Bug 3986129: FP.M Web ADI Dev changes
1626: IF p_context = 'WEBADI' THEN
1627: IF p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
1628: IF l_raw_cost_rate_flag = 'N' THEN
1629: IF p_raw_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1630: p_raw_cost_rate IS NOT NULL THEN
1631: IF l_debug_mode='Y' THEN
1632: pa_debug.g_err_stage:= 'WEBADI: Raw Cost Rate allowed';
1633: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1640: RETURN;
1641: END IF;
1642: END IF;
1643: IF l_burd_cost_rate_flag = 'N' THEN
1644: IF p_burdened_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1645: p_burdened_cost_rate IS NOT NULL THEN
1646: IF l_debug_mode='Y' THEN
1647: pa_debug.g_err_stage:= 'WEBADI: Burd Cost Rate not allowed';
1648: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1655: RETURN;
1656: END IF;
1657: END IF;
1658: -- bill rate should not be allowed to be edited
1659: IF p_bill_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1660: p_bill_rate IS NOT NULL THEN
1661: IF l_debug_mode='Y' THEN
1662: pa_debug.g_err_stage:= 'WEBADI: Bill Rate not allowed';
1663: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1672:
1673:
1674: ELSIF p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
1675: IF l_bill_rate_flag = 'N' THEN
1676: IF p_bill_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1677: p_bill_rate IS NOT NULL THEN
1678: IF l_debug_mode='Y' THEN
1679: pa_debug.g_err_stage:= 'WEBADI: Bill Rate not allowed';
1680: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1687: RETURN;
1688: END IF;
1689: END IF;
1690: -- cost rate should not be allowed to be edited
1691: IF p_raw_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1692: p_raw_cost_rate IS NOT NULL THEN
1693: IF l_debug_mode='Y' THEN
1694: pa_debug.g_err_stage:= 'WEBADI: Raw Cost Rate allowed';
1695: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1700: x_webadi_error_code := 'PA_FP_WA_RCR_CNG_NOT_ALWD';
1701: p_return_status := FND_API.G_RET_STS_ERROR;
1702: RETURN;
1703: END IF;
1704: IF p_burdened_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1705: p_burdened_cost_rate IS NOT NULL THEN
1706: IF l_debug_mode='Y' THEN
1707: pa_debug.g_err_stage:= 'WEBADI: Burd Cost Rate not allowed';
1708: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1715: RETURN;
1716: END IF;
1717: ELSIF p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
1718: IF l_raw_cost_rate_flag = 'N' THEN
1719: IF p_raw_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1720: p_raw_cost_rate IS NOT NULL THEN
1721: IF l_debug_mode='Y' THEN
1722: pa_debug.g_err_stage:= 'WEBADI: Raw Cost Rate allowed';
1723: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1730: RETURN;
1731: END IF;
1732: END IF;
1733: IF l_burd_cost_rate_flag = 'N' THEN
1734: IF p_burdened_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1735: p_burdened_cost_rate IS NOT NULL THEN
1736: IF l_debug_mode='Y' THEN
1737: pa_debug.g_err_stage:= 'WEBADI: Burd Cost Rate not allowed';
1738: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1745: RETURN;
1746: END IF;
1747: END IF;
1748: IF l_bill_rate_flag = 'N' THEN
1749: IF p_bill_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1750: p_bill_rate IS NOT NULL THEN
1751: IF l_debug_mode='Y' THEN
1752: pa_debug.g_err_stage:= 'WEBADI: Bill Rate not allowed';
1753: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1908: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1909: l_msg_count := FND_MSG_PUB.count_msg;
1910:
1911: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1912: PA_INTERFACE_UTILS_PUB.get_messages
1913: (p_encoded => FND_API.G_TRUE
1914: ,p_msg_index => 1
1915: ,p_msg_count => l_msg_count
1916: ,p_msg_data => l_msg_data