[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'
477:
478: IF (l_project_start_date IS NULL) THEN
479:
480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
481: pa_interface_utils_pub.map_new_amg_msg
482: ( p_old_message_code => 'PA_PROJ_START_DATE_MISS1'
483: ,p_msg_attribute => 'CHANGE'
484: ,p_resize_flag => 'N'
485: ,p_msg_context => 'PROJ'
495:
496: IF (l_project_end_date IS NULL) THEN
497:
498: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
499: pa_interface_utils_pub.map_new_amg_msg
500: ( p_old_message_code => 'PA_PROJ_END_DATE_MISS1'
501: ,p_msg_attribute => 'CHANGE'
502: ,p_resize_flag => 'N'
503: ,p_msg_context => 'PROJ'
578: IF l_task_start_date IS NULL --implies that task_end_date is null too!!
579: THEN
580: IF (l_project_start_date IS NULL) THEN
581: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
582: pa_interface_utils_pub.map_new_amg_msg
583: ( p_old_message_code => 'PA_PROJ_START_DATE_MISS2'
584: ,p_msg_attribute => 'CHANGE'
585: ,p_resize_flag => 'N'
586: ,p_msg_context => 'PROJ'
595: END IF;
596:
597: IF (l_project_end_date IS NULL) THEN
598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
599: pa_interface_utils_pub.map_new_amg_msg
600: ( p_old_message_code => 'PA_PROJ_END_DATE_MISS2'
601: ,p_msg_attribute => 'CHANGE'
602: ,p_resize_flag => 'N'
603: ,p_msg_context => 'PROJ'
626: CLOSE l_project_dates_csr;
627:
628: IF (l_project_end_date IS NULL) THEN -- changed elsif to if for bug 3682546
629: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
630: pa_interface_utils_pub.map_new_amg_msg
631: ( p_old_message_code => 'PA_PROJ_END_DATE_MISS3'
632: ,p_msg_attribute => 'CHANGE'
633: ,p_resize_flag => 'N'
634: ,p_msg_context => 'PROJ'
657: l_budget_end_date_in IS NOT NULL THEN
658: -- validate if the end date passed is greater then the start date
659: IF l_budget_end_date_in < l_budget_start_date_in THEN
660: IF Nvl(p_context, '-99') <> 'WEBADI' THEN
661: pa_interface_utils_pub.map_new_amg_msg
662: ( p_old_message_code => 'PA_INVALID_START_DATE'
663: ,p_msg_attribute => 'CHANGE'
664: ,p_resize_flag => 'N'
665: ,p_msg_context => 'PROJ'
682: ELSIF l_budget_start_date_in IS NOT NULL AND
683: l_budget_end_date_in IS NULL THEN
684: -- raise error according to context
685: IF Nvl(p_context, '-99') <> 'WEBADI' THEN
686: pa_interface_utils_pub.map_new_amg_msg
687: ( p_old_message_code => 'PA_END_DATE_IS_MISSING'
688: ,p_msg_attribute => 'CHANGE'
689: ,p_resize_flag => 'N'
690: ,p_msg_context => 'PROJ'
703: ELSIF l_budget_start_date_in IS NULL AND
704: l_budget_end_date_in IS NOT NULL THEN
705: -- raise error according to context
706: IF Nvl(p_context, '-99') <> 'WEBADI' THEN
707: pa_interface_utils_pub.map_new_amg_msg
708: ( p_old_message_code => 'PA_START_DATE_IS_MISSING'
709: ,p_msg_attribute => 'CHANGE'
710: ,p_resize_flag => 'N'
711: ,p_msg_context => 'PROJ'
946: EXCEPTION
947: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
948: l_msg_count := FND_MSG_PUB.count_msg;
949: IF l_msg_count = 1 THEN
950: PA_INTERFACE_UTILS_PUB.get_messages
951: (p_encoded => FND_API.G_TRUE
952: ,p_msg_index => 1
953: ,p_msg_count => l_msg_count
954: ,p_msg_data => l_msg_data
1152: IF ( p_budget_amount_code = 'C'
1153: OR p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST)
1154: THEN
1155: IF l_cost_quantity_flag = 'N'
1156: AND ( p_quantity <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1157: AND p_quantity IS NOT NULL )
1158: THEN
1159: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1160: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1188:
1189: END IF;
1190:
1191: IF l_raw_cost_flag = 'N'
1192: AND ( p_raw_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1193: AND p_raw_cost IS NOT NULL )
1194: THEN
1195: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1196: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1224:
1225: END IF;
1226:
1227: IF l_burdened_cost_flag = 'N'
1228: AND ( p_burdened_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1229: AND p_burdened_cost IS NOT NULL )
1230: THEN
1231: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1232: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1258:
1259: END IF;
1260:
1261: -- Revenue should be null for a COST version. AMG UT2
1262: IF p_revenue <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1263: p_revenue IS NOT NULL
1264: THEN
1265: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1266: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1297: ELSIF( p_budget_amount_code = 'R'
1298: OR p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE)
1299: THEN
1300: IF l_rev_quantity_flag = 'N'
1301: AND ( p_quantity <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1302: AND p_quantity IS NOT NULL )
1303: THEN
1304: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1332: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1333: END IF;
1334:
1335: IF l_revenue_flag = 'N'
1336: AND ( p_revenue <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1337: AND p_revenue IS NOT NULL )
1338: THEN
1339: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1340: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1367: END IF;
1368:
1369: -- Raw cost and Burdened Cost amounts should be null for a revenue
1370: -- Version. AMG UT2.
1371: IF p_raw_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1372: p_raw_cost IS NOT NULL
1373: THEN
1374: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1375: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1403: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1404:
1405: END IF;
1406:
1407: IF p_burdened_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1408: p_burdened_cost IS NOT NULL
1409: THEN
1410: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1411: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1439: --FinPlan Model . Cost and Revenue Together Version
1440: ELSIF(p_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL)THEN
1441:
1442: IF p_allow_qty_flag = 'N'
1443: AND ( p_quantity <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1444: AND p_quantity IS NOT NULL )
1445: THEN
1446: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1447: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1473: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1474: END IF;
1475:
1476: IF l_raw_cost_flag = 'N'
1477: AND ( p_raw_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1478: AND p_raw_cost IS NOT NULL )
1479: THEN
1480: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1481: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1507: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1508: END IF;
1509:
1510: IF l_burdened_cost_flag = 'N'
1511: AND ( p_burdened_cost <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1512: AND p_burdened_cost IS NOT NULL )
1513: THEN
1514: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1515: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1541:
1542: END IF;
1543:
1544: IF l_revenue_flag = 'N'
1545: AND ( p_revenue <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1546: AND p_revenue IS NOT NULL )
1547: THEN
1548: IF Nvl(p_context, '-99') <> 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
1549: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1603: -- Bug 3986129: FP.M Web ADI Dev changes
1604: IF p_context = 'WEBADI' THEN
1605: IF p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
1606: IF l_raw_cost_rate_flag = 'N' THEN
1607: IF p_raw_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1608: p_raw_cost_rate IS NOT NULL THEN
1609: IF l_debug_mode='Y' THEN
1610: pa_debug.g_err_stage:= 'WEBADI: Raw Cost Rate allowed';
1611: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1618: RETURN;
1619: END IF;
1620: END IF;
1621: IF l_burd_cost_rate_flag = 'N' THEN
1622: IF p_burdened_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1623: p_burdened_cost_rate IS NOT NULL THEN
1624: IF l_debug_mode='Y' THEN
1625: pa_debug.g_err_stage:= 'WEBADI: Burd Cost Rate not allowed';
1626: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1633: RETURN;
1634: END IF;
1635: END IF;
1636: -- bill rate should not be allowed to be edited
1637: IF p_bill_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1638: p_bill_rate IS NOT NULL THEN
1639: IF l_debug_mode='Y' THEN
1640: pa_debug.g_err_stage:= 'WEBADI: Bill Rate not allowed';
1641: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1650:
1651:
1652: ELSIF p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
1653: IF l_bill_rate_flag = 'N' THEN
1654: IF p_bill_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1655: p_bill_rate IS NOT NULL THEN
1656: IF l_debug_mode='Y' THEN
1657: pa_debug.g_err_stage:= 'WEBADI: Bill Rate not allowed';
1658: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1665: RETURN;
1666: END IF;
1667: END IF;
1668: -- cost rate should not be allowed to be edited
1669: IF p_raw_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1670: p_raw_cost_rate IS NOT NULL THEN
1671: IF l_debug_mode='Y' THEN
1672: pa_debug.g_err_stage:= 'WEBADI: Raw Cost Rate allowed';
1673: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1678: x_webadi_error_code := 'PA_FP_WA_RCR_CNG_NOT_ALWD';
1679: p_return_status := FND_API.G_RET_STS_ERROR;
1680: RETURN;
1681: END IF;
1682: IF p_burdened_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1683: p_burdened_cost_rate IS NOT NULL THEN
1684: IF l_debug_mode='Y' THEN
1685: pa_debug.g_err_stage:= 'WEBADI: Burd Cost Rate not allowed';
1686: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1693: RETURN;
1694: END IF;
1695: ELSIF p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
1696: IF l_raw_cost_rate_flag = 'N' THEN
1697: IF p_raw_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1698: p_raw_cost_rate IS NOT NULL THEN
1699: IF l_debug_mode='Y' THEN
1700: pa_debug.g_err_stage:= 'WEBADI: Raw Cost Rate allowed';
1701: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1708: RETURN;
1709: END IF;
1710: END IF;
1711: IF l_burd_cost_rate_flag = 'N' THEN
1712: IF p_burdened_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1713: p_burdened_cost_rate IS NOT NULL THEN
1714: IF l_debug_mode='Y' THEN
1715: pa_debug.g_err_stage:= 'WEBADI: Burd Cost Rate not allowed';
1716: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1723: RETURN;
1724: END IF;
1725: END IF;
1726: IF l_bill_rate_flag = 'N' THEN
1727: IF p_bill_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1728: p_bill_rate IS NOT NULL THEN
1729: IF l_debug_mode='Y' THEN
1730: pa_debug.g_err_stage:= 'WEBADI: Bill Rate not allowed';
1731: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1886: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1887: l_msg_count := FND_MSG_PUB.count_msg;
1888:
1889: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1890: PA_INTERFACE_UTILS_PUB.get_messages
1891: (p_encoded => FND_API.G_TRUE
1892: ,p_msg_index => 1
1893: ,p_msg_count => l_msg_count
1894: ,p_msg_data => l_msg_data