[Home] [Help]
750: l_validate, l_start_date_status, l_end_date_status);
751:
752: If l_validate = 'Y' and l_start_date_status = 'I' Then
753:
754: pa_utils.add_message
755: ( p_app_short_name => 'PA'
756: ,p_msg_name => 'PA_PJR_DATE_START_ERROR'
757: ,p_token1 => 'PROJ_TXN_START_DATE'
758: ,p_value1 => GET_PROJECT_START_DATE(l_req_rec.project_id)
766: End If;
767:
768: If l_validate = 'Y' and l_end_date_status = 'I' Then
769:
770: pa_utils.add_message
771: ( p_app_short_name => 'PA'
772: ,p_msg_name => 'PA_PJR_DATE_FINISH_ERROR'
773: ,p_token1 => 'PROJ_TXN_END_DATE'
774: ,p_value1 => GET_PROJECT_COMPLETION_DATE(l_req_rec.project_id)
1272: ,x_return_status => l_return_status
1273: );
1274:
1275: IF l_out_location_id IS NULL THEN
1276: PA_UTILS.ADD_MESSAGE('PA','PA_AMG_RES_INV_CRC_COMB');
1277: l_error_flag_local := 'Y'; -- 5148975
1278: ELSE
1279: l_req_rec.location_id := l_out_location_id;
1280: END IF;
1387: pa_debug.write(l_module, 'Mandatory parameter validation over. List of Missing Parameters='||l_missing_params, l_log_level);
1388: END IF;
1389:
1390: IF l_missing_params IS NOT NULL THEN
1391: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
1392: 'INVALID_PARAMS', l_missing_params);
1393: l_error_flag_local := 'Y';
1394: END IF;
1395:
1450: ,x_return_status => l_return_status
1451: ,x_error_message_code => l_error_message_code );
1452:
1453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1454: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1455: l_error_flag_local := 'Y';
1456: END IF;
1457: END IF;
1458: IF l_req_rec.project_name IS NOT NULL THEN
1467: ,x_return_status => l_return_status
1468: ,x_error_msg_code => l_error_message_code );
1469:
1470: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1471: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1472: l_error_flag_local := 'Y';
1473: END IF;
1474: END IF;
1475: END IF; -- l_error_flag_local <> 'Y' AND l_req_rec.team_template_id IS NULL
1576: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1577: END IF;
1578:
1579: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1580: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1581: l_error_flag_local := 'Y';
1582: END IF;
1583:
1584: IF l_debug_mode = 'Y' THEN
1631: IF (l_req_rec.comp_match_weighting IS NOT NULL AND (l_req_rec.comp_match_weighting < 0 OR l_req_rec.comp_match_weighting > 100))
1632: OR (l_req_rec.avail_match_weighting IS NOT NULL AND (l_req_rec.avail_match_weighting < 0 OR l_req_rec.avail_match_weighting > 100))
1633: OR (l_req_rec.job_level_match_weighting IS NOT NULL AND (l_req_rec.job_level_match_weighting < 0 OR l_req_rec.job_level_match_weighting > 100))
1634: THEN
1635: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MATCH_WEIGHTING');
1636: l_error_flag_local := 'Y';
1637: END IF;
1638:
1639: IF l_req_rec.search_min_availability IS NOT NULL AND (l_req_rec.search_min_availability < 0 OR l_req_rec.search_min_availability > 100)
1637: END IF;
1638:
1639: IF l_req_rec.search_min_availability IS NOT NULL AND (l_req_rec.search_min_availability < 0 OR l_req_rec.search_min_availability > 100)
1640: THEN
1641: PA_UTILS.ADD_MESSAGE('PA', 'PA_MIN_AVAIL_INVALID');
1642: l_error_flag_local := 'Y';
1643: END IF;
1644:
1645: IF l_req_rec.search_min_candidate_score IS NOT NULL AND (l_req_rec.search_min_candidate_score < 0 OR l_req_rec.search_min_candidate_score > 100 )
1643: END IF;
1644:
1645: IF l_req_rec.search_min_candidate_score IS NOT NULL AND (l_req_rec.search_min_candidate_score < 0 OR l_req_rec.search_min_candidate_score > 100 )
1646: THEN
1647: PA_UTILS.ADD_MESSAGE('PA', 'PA_MIN_CAN_SCORE_INVALID');
1648: l_error_flag_local := 'Y';
1649: END IF;
1650:
1651: IF (l_req_rec.search_country_code IS NOT NULL AND l_req_rec.search_country_code <> FND_API.G_MISS_CHAR)
1673: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1674: END IF;
1675:
1676: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1677: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1678: l_error_flag_local := 'Y';
1679: END IF;
1680: END IF; -- l_req_rec.search_country_code IS NOT NULL
1681:
1703: END IF;
1704:
1705:
1706: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1707: -- PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1708: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_SRCH_ORG_HIER_NA'); -- Changed for Bug 5148154
1709: l_error_flag_local := 'Y';
1710: ELSE
1711: l_return_status := FND_API.G_RET_STS_SUCCESS;
1704:
1705:
1706: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1707: -- PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1708: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_SRCH_ORG_HIER_NA'); -- Changed for Bug 5148154
1709: l_error_flag_local := 'Y';
1710: ELSE
1711: l_return_status := FND_API.G_RET_STS_SUCCESS;
1712: l_error_message_code := null;
1727: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1728: END IF;
1729:
1730: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1731: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1732: l_error_flag_local := 'Y';
1733: END IF;
1734: END IF;
1735: END IF; -- l_req_rec.search_exp_org_hier_name IS NOT NULL
1757: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1758: END IF;
1759:
1760: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1761: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1762: l_error_flag_local := 'Y';
1763: ELSE
1764: l_return_status := FND_API.G_RET_STS_SUCCESS;
1765: l_error_message_code := null;
1780: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1781: END IF;
1782:
1783: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1784: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1785: l_error_flag_local := 'Y';
1786: END IF;
1787: END IF;
1788: END IF; -- l_req_rec.search_exp_start_org_name IS NOT NULL
1808: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1809: END IF;
1810:
1811: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1812: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1813: l_error_flag_local := 'Y';
1814: END IF;
1815: END IF;
1816:
1840: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1841: END IF;
1842:
1843: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1844: PA_UTILS.ADD_MESSAGE('PA', 'PA_EXP_OU_INVALID');
1845: l_error_flag_local := 'Y';
1846: ELSE
1847: l_return_status := FND_API.G_RET_STS_SUCCESS;
1848: l_error_message_code := null;
1862: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1863: END IF;
1864:
1865: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1866: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1867: l_error_flag_local := 'Y';
1868: -- Start 1: Changed for Bug 5202329
1869: ELSE
1870: SELECT business_group_id
1905: IF l_error_message_code = 'PA_ORG_NOT_UNIQUE' AND l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1906: OPEN c_get_exp_organization_id(l_business_group_id, l_req_rec.expenditure_organization_name);
1907: FETCH c_get_exp_organization_id INTO l_req_rec.expenditure_organization_id;
1908: IF c_get_exp_organization_id%NOTFOUND IS NULL THEN
1909: PA_UTILS.ADD_MESSAGE('PA', 'PA_EXP_ORG_INVALID');
1910: l_error_flag_local := 'Y';
1911: END IF;
1912: CLOSE c_get_exp_organization_id;
1913: END IF;
1913: END IF;
1914: IF l_error_message_code <> 'PA_ORG_NOT_UNIQUE' AND l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1915: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1916: -- End 2: Changes for Bug 5202329
1917: PA_UTILS.ADD_MESSAGE('PA', 'PA_EXP_ORG_INVALID');
1918: l_error_flag_local := 'Y';
1919: ELSE
1920: l_valid_flag := null;
1921:
1922: IF l_debug_mode = 'Y' THEN
1923: pa_debug.write(l_module, 'Validating Expenditure Organization to be used in PA', l_log_level);
1924: END IF;
1925:
1926: l_valid_flag := PA_UTILS2.CHECKEXPORG
1927: (x_org_id => l_req_rec.expenditure_organization_id,
1928: x_txn_date => l_req_rec.start_date);
1929:
1930: IF l_debug_mode = 'Y' THEN
1932: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
1933: END IF;
1934:
1935: IF l_valid_flag <> 'Y' THEN
1936: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_EXP_ORG');
1937: l_error_flag_local := 'Y';
1938: END IF;
1939: END IF;
1940: END IF; -- l_req_rec.expenditure_organization_id IS NOT NULL
1967: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1968: END IF;
1969:
1970: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1971: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1972: l_error_flag_local := 'Y';
1973: END IF;
1974: END IF;
1975:
1999: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
2000: END IF;
2001:
2002: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2003: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
2004: l_error_flag_local := 'Y';
2005: END IF;
2006: END IF;
2007:
2027: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
2028: END IF;
2029:
2030: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2031: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
2032: l_error_flag_local := 'Y';
2033: END IF;
2034: END IF;
2035:
2055:
2056: IF l_req_rec.bill_rate_option = 'RATE' THEN
2057: IF l_br_override_flag <> 'Y' OR l_req_rec.bill_rate_override <= 0 THEN /* OR l_req_rec.bill_rate_override > 100 - Removed for Bug 5703021*/
2058: IF l_br_override_flag <> 'Y' THEN
2059: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
2060: l_error_flag_local := 'Y';
2061: ELSE
2062: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
2063: l_error_flag_local := 'Y';
2058: IF l_br_override_flag <> 'Y' THEN
2059: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
2060: l_error_flag_local := 'Y';
2061: ELSE
2062: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
2063: l_error_flag_local := 'Y';
2064: END IF;
2065: END IF;
2066:
2090: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
2091: END IF;
2092:
2093: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2094: PA_UTILS.ADD_MESSAGE('PA', 'PA_CISI_CURRENCY_NULL');
2095: l_error_flag_local := 'Y';
2096: END IF;
2097: END IF;
2098: -- 5144288, 5144369 : End
2100: -- 5144675 Changed l_req_rec.markup_percent_override <= 0 to < 0
2101: IF l_br_override_flag <> 'Y' OR l_req_rec.markup_percent_override < 0
2102: OR l_req_rec.markup_percent_override > 100 THEN
2103: IF l_br_override_flag <> 'Y' THEN
2104: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
2105: l_error_flag_local := 'Y';
2106: ELSE
2107: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
2108: l_error_flag_local := 'Y';
2103: IF l_br_override_flag <> 'Y' THEN
2104: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
2105: l_error_flag_local := 'Y';
2106: ELSE
2107: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
2108: l_error_flag_local := 'Y';
2109: END IF;
2110: END IF;
2111: ELSIF l_req_rec.bill_rate_option = 'DISCOUNT' THEN
2112: -- 5144675 Changed l_req_rec.discount_percentage <=0 to < 0
2113: IF l_br_discount_override_flag <> 'Y' OR l_req_rec.discount_percentage < 0
2114: OR l_req_rec.discount_percentage > 100 THEN
2115: IF l_br_override_flag <> 'Y' THEN
2116: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
2117: l_error_flag_local := 'Y';
2118: ELSE
2119: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
2120: l_error_flag_local := 'Y';
2115: IF l_br_override_flag <> 'Y' THEN
2116: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
2117: l_error_flag_local := 'Y';
2118: ELSE
2119: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
2120: l_error_flag_local := 'Y';
2121: END IF;
2122: END IF;
2123: END IF;
2125: IF (l_rate_discount_reason_flag ='Y' AND (l_br_override_flag ='Y' OR l_br_discount_override_flag='Y') AND
2126: (l_req_rec.bill_rate_override IS NOT NULL OR l_req_rec.markup_percent_override IS NOT NULL OR l_req_rec.discount_percentage IS NOT NULL)
2127: )
2128: THEN
2129: PA_UTILS.ADD_MESSAGE('PA', 'PA_RATE_DISC_REASON_REQUIRED');
2130: l_error_flag_local := 'Y';
2131: END IF;
2132: ELSE
2133: l_valid_flag := 'N';
2135: FETCH c_get_lookup_exists INTO l_valid_flag;
2136: CLOSE c_get_lookup_exists;
2137: IF nvl(l_valid_flag,'N') <> 'Y' THEN
2138: -- This is a new message, define it
2139: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_RSN_INVALID');
2140: l_error_flag_local := 'Y';
2141: END IF;
2142: END IF;
2143:
2157:
2158: IF l_req_rec.tp_rate_option = 'RATE' THEN
2159: -- 5144675 Changed l_req_rec.tp_rate_override <= 0 to < 0
2160: IF l_req_rec.tp_rate_override < 0 OR l_req_rec.tp_rate_override > 100 THEN
2161: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_TP_RATE_OVRD');
2162: l_error_flag_local := 'Y';
2163: END IF;
2164:
2165: l_return_status := FND_API.G_RET_STS_SUCCESS;
2184: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
2185: END IF;
2186:
2187: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2188: PA_UTILS.ADD_MESSAGE('PA', 'PA_CURR_NOT_VALID');
2189: l_error_flag_local := 'Y';
2190: END IF;
2191: ELSIF l_req_rec.tp_rate_option = 'BASIS' THEN
2192: -- 5144675 Changed l_req_rec.tp_percent_applied_override <=0 to < 0
2190: END IF;
2191: ELSIF l_req_rec.tp_rate_option = 'BASIS' THEN
2192: -- 5144675 Changed l_req_rec.tp_percent_applied_override <=0 to < 0
2193: IF l_req_rec.tp_percent_applied_override < 0 OR l_req_rec.tp_percent_applied_override > 100 THEN
2194: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_APPLY_BASIS_PERCENT');
2195: l_error_flag_local := 'Y';
2196: END IF;
2197: l_valid_flag := 'N';
2198: IF l_debug_mode = 'Y' THEN
2208: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
2209: END IF;
2210:
2211: IF nvl(l_valid_flag,'N') <> 'Y' THEN
2212: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_TP_BASIS_INVALID');
2213: l_error_flag_local := 'Y';
2214: END IF;
2215: END IF;
2216:
2238: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
2239: END IF;
2240:
2241: IF nvl(l_valid_flag,'N') <> 'Y' THEN
2242: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_EXP_OWNER_INVALID');
2243: l_error_flag_local := 'Y';
2244: END IF;
2245: END IF;
2246: END IF; -- l_error_flag_local <> 'Y' AND l_req_rec.project_id IS NOT NULL
2286:
2287: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2288: -- This message does not have toekn defined, still it is ok to pass token as the value
2289: -- returned by flex APIs because token are appended as it is
2290: PA_UTILS.ADD_MESSAGE('PA', 'PA_DFF_VALIDATION_FAILED',
2291: 'ERROR_MESSAGE', l_msg_data );
2292: l_error_flag_local := 'Y';
2293: END IF;
2294: END IF; -- l_error_flag_local <> 'Y'
2310: l_privilege := 'PA_ASN_CR_AND_DL';
2311: l_object_name := 'PA_PROJECTS';
2312: l_object_key := null;
2313: ELSE
2314: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
2315: raise FND_API.G_EXC_ERROR;
2316: END IF;
2317:
2318: IF l_debug_mode = 'Y' THEN
2341:
2342: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2343: -- This message does not have token defined, but intentionally putting token
2344: -- bcoz we still want to show the privielge name which is missing
2345: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_CR_DL'
2346: ,'MISSING_PRIVILEGE', l_privilege);
2347: l_error_flag_local := 'Y';
2348: END IF;
2349: END IF;
2548: -- Always delete at first location in stack i.e. l_start_msg_count+1
2549: -- Because stack moves down after delete
2550: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
2551:
2552: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
2553: 'RECORD_NO', i,
2554: 'MESSAGE', l_data);
2555: END LOOP;
2556: IF l_debug_mode = 'Y' THEN
2991: l_validate, l_start_date_status, l_end_date_status);
2992:
2993: If l_validate = 'Y' and l_start_date_status = 'I' Then
2994:
2995: pa_utils.add_message
2996: ( p_app_short_name => 'PA'
2997: ,p_msg_name => 'PA_PJR_DATE_START_ERROR'
2998: ,p_token1 => 'PROJ_TXN_START_DATE'
2999: ,p_value1 => GET_PROJECT_START_DATE(l_req_rec.project_id)
3007: End If;
3008:
3009: If l_validate = 'Y' and l_end_date_status = 'I' Then
3010:
3011: pa_utils.add_message
3012: ( p_app_short_name => 'PA'
3013: ,p_msg_name => 'PA_PJR_DATE_FINISH_ERROR'
3014: ,p_token1 => 'PROJ_TXN_END_DATE'
3015: ,p_value1 => GET_PROJECT_COMPLETION_DATE(l_req_rec.project_id)
3037: FETCH c_get_system_status_code INTO l_system_status_code;
3038: CLOSE c_get_system_status_code;
3039:
3040: IF l_system_status_code IN ('OPEN_ASGMT_FILLED','OPEN_ASGMT_CANCEL') THEN
3041: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
3042: l_error_flag_local := 'Y';
3043: END IF;
3044:
3045: IF nvl(l_req_dtls_csr.mass_wf_in_progress_flag, 'N') = 'Y' THEN
3042: l_error_flag_local := 'Y';
3043: END IF;
3044:
3045: IF nvl(l_req_dtls_csr.mass_wf_in_progress_flag, 'N') = 'Y' THEN
3046: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
3047: l_error_flag_local := 'Y';
3048: END IF;
3049: END IF;
3050:
3138: ,x_return_status => l_return_status
3139: );
3140:
3141: IF l_out_location_id IS NULL THEN
3142: PA_UTILS.ADD_MESSAGE('PA','PA_AMG_RES_INV_CRC_COMB');
3143: l_error_flag_local := 'Y'; -- 5148975
3144: ELSE
3145: l_req_rec.location_id := l_out_location_id;
3146: END IF;
3314: pa_debug.write(l_module, 'Mandatory parameter validation over. List of Missing Parameters='||l_missing_params, l_log_level);
3315: END IF;
3316:
3317: IF l_missing_params IS NOT NULL THEN
3318: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
3319: 'INVALID_PARAMS', l_missing_params);
3320: l_error_flag_local := 'Y';
3321: END IF;
3322:
3755: IF l_req_rec.bill_rate_option = 'RATE' THEN
3756:
3757: IF l_br_override_flag <> 'Y' OR l_req_rec.bill_rate_override <= 0 THEN /* OR l_req_rec.bill_rate_override > 100 - Removed for Bug 5703021*/
3758: IF l_br_override_flag <> 'Y' THEN
3759: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
3760: l_error_flag_local := 'Y';
3761: ELSE
3762: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
3763: l_error_flag_local := 'Y';
3758: IF l_br_override_flag <> 'Y' THEN
3759: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
3760: l_error_flag_local := 'Y';
3761: ELSE
3762: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
3763: l_error_flag_local := 'Y';
3764: END IF;
3765: END IF;
3766:
3793: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
3794: END IF;
3795:
3796: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3797: PA_UTILS.ADD_MESSAGE('PA', 'PA_CISI_CURRENCY_NULL');
3798: l_error_flag_local := 'Y';
3799: END IF;
3800: END IF;
3801: -- 5144288, 5144369 : End
3803: -- 5144675 Changed l_req_rec.markup_percent_override <= 0 to < 0
3804: IF l_br_override_flag <> 'Y' OR l_req_rec.markup_percent_override < 0
3805: OR l_req_rec.markup_percent_override > 100 THEN
3806: IF l_br_override_flag <> 'Y' THEN
3807: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
3808: l_error_flag_local := 'Y';
3809: ELSE
3810: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
3811: l_error_flag_local := 'Y';
3806: IF l_br_override_flag <> 'Y' THEN
3807: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
3808: l_error_flag_local := 'Y';
3809: ELSE
3810: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
3811: l_error_flag_local := 'Y';
3812: END IF;
3813: END IF;
3814: ELSIF l_req_rec.bill_rate_option = 'DISCOUNT' THEN
3815: -- 5144675 Changed l_req_rec.discount_percentage <= 0 to < 0
3816: IF l_br_discount_override_flag <> 'Y' OR l_req_rec.discount_percentage < 0
3817: OR l_req_rec.discount_percentage > 100 THEN
3818: IF l_br_discount_override_flag <> 'Y' THEN
3819: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
3820: l_error_flag_local := 'Y';
3821: ELSE
3822: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
3823: l_error_flag_local := 'Y';
3818: IF l_br_discount_override_flag <> 'Y' THEN
3819: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
3820: l_error_flag_local := 'Y';
3821: ELSE
3822: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
3823: l_error_flag_local := 'Y';
3824: END IF;
3825: END IF;
3826: END IF;
3829: IF (l_rate_discount_reason_flag ='Y' AND (l_br_override_flag ='Y' OR l_br_discount_override_flag='Y') AND
3830: (l_req_rec.bill_rate_override IS NOT NULL OR l_req_rec.markup_percent_override IS NOT NULL OR l_req_rec.discount_percentage IS NOT NULL)
3831: )
3832: THEN
3833: PA_UTILS.ADD_MESSAGE('PA', 'PA_RATE_DISC_REASON_REQUIRED');
3834: l_error_flag_local := 'Y';
3835: END IF;
3836: ELSE
3837: l_valid_flag := 'N';
3838: OPEN c_get_lookup_exists('RATE AND DISCOUNT REASON', l_req_rec.rate_disc_reason_code);
3839: FETCH c_get_lookup_exists INTO l_valid_flag;
3840: CLOSE c_get_lookup_exists;
3841: IF nvl(l_valid_flag,'N') <> 'Y' THEN
3842: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_RSN_INVALID');
3843: l_error_flag_local := 'Y';
3844: END IF;
3845: END IF;
3846:
3874: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
3875: END IF;
3876:
3877: IF nvl(l_valid_flag,'N') <> 'Y' THEN
3878: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_TP_BASIS_INVALID');
3879: l_error_flag_local := 'Y';
3880: END IF;
3881: END IF;
3882:
3904: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
3905: END IF;
3906:
3907: IF nvl(l_valid_flag,'N') <> 'Y' THEN
3908: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_EXP_OWNER_INVALID');
3909: l_error_flag_local := 'Y';
3910: END IF;
3911: END IF;
3912: END IF; -- l_error_flag_local <> 'Y' AND nvl(l_req_dtls_csr.template_flag,'N') = 'N'
3952:
3953: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3954: -- This message does not have toekn defined, still it is ok to pass token as the value
3955: -- returned by flex APIs because token are appended as it is
3956: PA_UTILS.ADD_MESSAGE('PA', 'PA_DFF_VALIDATION_FAILED',
3957: 'MESSAGE', l_msg_data );
3958: l_error_flag_local := 'Y';
3959: END IF;
3960: END IF; -- l_error_flag_local <> 'Y'
4081: END IF ;
4082: END IF;
4083:
4084: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4085: PA_UTILS.ADD_MESSAGE('PA', 'PA_UPD_ASGN_BASIC_INFO'
4086: ,'MISSING_PRIVILEGE', l_privilege);
4087: l_error_flag_local := 'Y';
4088: END IF;
4089:
4144: END IF ;
4145: END IF;
4146:
4147: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4148: PA_UTILS.ADD_MESSAGE('PA', 'PA_UPD_ASGN_CANDIDATE'
4149: ,'MISSING_PRIVILEGE', l_privilege);
4150: l_error_flag_local := 'Y';
4151: END IF;
4152:
4207: END IF ;
4208: END IF;
4209:
4210: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4211: PA_UTILS.ADD_MESSAGE('PA', 'PA_UPD_ASGN_FIN_INFO'
4212: ,'MISSING_PRIVILEGE', l_privilege);
4213: l_error_flag_local := 'Y';
4214: END IF;
4215:
4271: END IF ;
4272: END IF;
4273:
4274: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4275: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UPD_ASGN_BR_INFO'
4276: ,'MISSING_PRIVILEGE', l_privilege);
4277: l_error_flag_local := 'Y';
4278: END IF;
4279:
4334: END IF ;
4335: END IF;
4336:
4337: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4338: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UPD_ASGN_TP_INFO'
4339: ,'MISSING_PRIVILEGE', l_privilege);
4340: l_error_flag_local := 'Y';
4341: END IF;
4342: END IF;-- l_fin_tp_rate_info_changed = 'Y'
4367: pa_debug.write(l_module,'Team Template Security l_return_status='||l_return_status, l_log_level);
4368: END IF ;
4369:
4370: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4371: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_UPD'
4372: ,'MISSING_PRIVILEGE', l_privilege);
4373: l_error_flag_local := 'Y';
4374: END IF;
4375: END IF; -- l_error_flag_local <> 'Y' AND nvl(l_req_dtls_csr.template_flag,'N') = 'N'
4557: -- Always delete at first location in stack i.e. l_start_msg_count+1
4558: -- Because stack moves down after delete
4559: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
4560:
4561: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
4562: 'RECORD_NO', i,
4563: 'MESSAGE', l_data);
4564: END LOOP;
4565: IF l_debug_mode = 'Y' THEN
4829: END IF;
4830:
4831: IF l_missing_params IS NOT NULL THEN
4832: l_error_flag_local := 'Y';
4833: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
4834: 'INVALID_PARAMS', l_missing_params);
4835: END IF;
4836:
4837: IF l_error_flag_local <> 'Y' THEN
4842: FETCH c_derive_values INTO l_assignment_row_id ,l_project_id,l_record_version_number,l_team_template_id,l_assignment_number,l_status_code;
4843: IF c_derive_values%NOTFOUND THEN
4844: l_missing_params := l_missing_params||'REQUIREMENT_ID ' ;
4845: l_error_flag_local := 'Y';
4846: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
4847: 'INVALID_PARAMS', l_missing_params);
4848: END IF;
4849: CLOSE c_derive_values;
4850:
4857:
4858: --IF l_system_status_code IN ('OPEN_ASGMT_CANCEL','OPEN_ASGMT_FILLED') THEN --Bug 7638990
4859: IF l_system_status_code IN ('OPEN_ASGMT_FILLED') THEN --Bug 7638990
4860: l_error_flag_local := 'Y' ;
4861: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
4862: END IF;
4863:
4864: -- Security Check
4865: IF l_debug_mode = 'Y' THEN
4874: l_privilege := 'PA_PRM_DEFINE_TEAM_TEMPLATE';
4875: l_object_name := null;
4876: l_object_key := null;
4877: ELSE -- This wont happen
4878: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
4879: raise FND_API.G_EXC_ERROR;
4880: END IF;
4881:
4882: l_return_status := FND_API.G_RET_STS_SUCCESS;
4894:
4895: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4896: -- This message does not have token defined, but intentionally putting token
4897: -- because we still want to show the privilege name which is missing
4898: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_CR_DL'
4899: ,'MISSING_PRIVILEGE', l_privilege);
4900: l_error_flag_local := 'Y';
4901: END IF;
4902:
4951: -- Always delete at first location in stack i.e. l_start_msg_count+1
4952: -- Because stack moves down after delete
4953: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
4954:
4955: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
4956: 'RECORD_NO', i,
4957: 'MESSAGE', l_data);
4958: END LOOP;
4959: END IF;
5371: END IF;
5372:
5373: IF l_missing_params IS NOT NULL THEN
5374: l_error_flag_local := 'Y';
5375: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
5376: 'INVALID_PARAMS', l_missing_params);
5377: IF l_debug_mode = 'Y' THEN
5378: pa_debug.write(l_module, 'The missing parameters are '||l_missing_params, l_log_level);
5379: END IF;
5387: FETCH c_derive_values INTO l_project_id,l_team_template_id,l_status_code,l_db_start_date,l_db_end_date;
5388: IF c_derive_values%NOTFOUND THEN
5389: l_error_flag_local := 'Y' ;
5390: l_missing_params := l_missing_params||'SOURCE_REQUIREMENT_ID' ;
5391: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
5392: 'INVALID_PARAMS', l_missing_params);
5393: ELSE
5394: -- If the requirement exists ,determine the mode and validate status values passed
5395: -- Logic got from AssignResourceVORowImpl.java
5418:
5419: IF c_valid_status_code%NOTFOUND THEN
5420: -- Invalid status code has been passed.
5421: l_error_flag_local := 'Y' ;
5422: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_ASG_STATUS',--New message
5423: 'SOURCE_REQUIREMENT_ID',l_source_requirement_id,'STATUS_CODE',l_assignment_status_code);
5424: END IF;
5425: CLOSE c_valid_status_code ;
5426: ELSE -- if status code is NULL
5431:
5432: IF c_valid_status_name%NOTFOUND THEN
5433: -- Invalid status name has been passed .Here ,code is also nt passed
5434: l_error_flag_local := 'Y' ;
5435: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_ASG_STATUS',
5436: 'SOURCE_REQUIREMENT_ID',l_source_requirement_id,'STATUS_NAME',l_assignment_status_name);
5437: END IF;
5438: CLOSE c_valid_status_name ;
5439: END IF;
5456:
5457: IF c_valid_unfilled_status_code%NOTFOUND THEN
5458: -- Invalid statuscode has been passed.
5459: l_error_flag_local := 'Y' ;
5460: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UNFILL_INV_STATUS',--New message
5461: 'SOURCE_REQUIREMENT_ID',l_source_requirement_id,'UNFILLED_STATUS_CODE',l_unfilled_assign_status_code);
5462: END IF;
5463: CLOSE c_valid_unfilled_status_code;
5464: ELSE -- if unfilled status code is NULL
5468: FETCH c_valid_unfilled_status_name into l_unfilled_assign_status_code;
5469: IF c_valid_unfilled_status_name%NOTFOUND THEN
5470: -- Invalid unfilled status name has been passed .Here ,code is also nt passed
5471: l_error_flag_local := 'Y' ;
5472: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UNFILL_INV_STATUS',
5473: 'SOURCE_REQUIREMENT_ID',l_source_requirement_id,'UNFILLED_STATUS_NAME',l_unfilled_assign_status_name);
5474: END IF;
5475: CLOSE c_valid_unfilled_status_name;
5476: END IF;
5491: l_privilege := 'PA_PRM_DEFINE_TEAM_TEMPLATE';
5492: l_object_name := null;
5493: l_object_key := null;
5494: ELSE -- This wont happen though (using hard coded english for internal reference)
5495: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
5496: raise FND_API.G_EXC_ERROR;
5497: END IF;
5498:
5499: l_return_status := FND_API.G_RET_STS_SUCCESS;
5511: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5512:
5513: -- This message does not have token defined, but intentionally putting token
5514: -- because we still want to show the privilege name which is missing
5515: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_STAFF'
5516: ,'MISSING_PRIVILEGE', l_privilege);
5517: l_error_flag_local := 'Y';
5518: END IF;
5519: END IF;
5601: -- Always delete at first location in stack i.e. l_start_msg_count+1
5602: -- Because stack moves down after delete
5603: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
5604:
5605: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
5606: 'RECORD_NO', i,'MESSAGE', l_data);
5607: END LOOP;
5608: END IF;
5609: ---------------------------------------------------------------------------------------------
5909: END IF;
5910:
5911: IF l_missing_params IS NOT NULL THEN
5912: l_error_flag_local := 'Y';
5913: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
5914: 'INVALID_PARAMS', l_missing_params);
5915: END IF;
5916:
5917: IF l_error_flag_local <> 'Y' THEN
5919: FETCH c_derive_values INTO l_project_id ,l_team_template_id,l_status_code ;
5920: IF c_derive_values%NOTFOUND THEN
5921:
5922: l_error_flag_local := 'Y' ;
5923: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS'
5924: ,'TEAM_ROLE_ID',l_req_asgn_id); -- New message to say invalid team role
5925: ELSE -- If team role exists
5926: OPEN c_get_system_status ;
5927: FETCH c_get_system_status INTO l_system_status_code ;
5928: CLOSE c_get_system_status;
5929: /* Bug 9159158
5930: IF l_system_status_code IN ('OPEN_ASGMT_CANCEL','OPEN_ASGMT_FILLED','STAFFED_ASGMT_CANCEL') THEN
5931: l_error_flag_local := 'Y' ;
5932: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_CP_STATUS'); -- New message
5933: END IF;
5934: */
5935: END IF;
5936: CLOSE c_derive_values;
5955: l_privilege := 'PA_PRM_DEFINE_TEAM_TEMPLATE';
5956: l_object_name := null;
5957: l_object_key := null;*/
5958: ELSE -- This wont happen though (using hard coded english for internal reference)
5959: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
5960: raise FND_API.G_EXC_ERROR;
5961: END IF;
5962:
5963: l_return_status := FND_API.G_RET_STS_SUCCESS;
5975:
5976: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5977: -- This message does not have token defined, but intentionally putting token
5978: -- because we still want to show the privilege name which is missing
5979: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_COPY_TM_RO'
5980: ,'MISSING_PRIVILEGE', l_privilege);
5981: l_error_flag_local := 'Y';
5982: END IF;
5983:
6048: -- Always delete at first location in stack i.e. l_start_msg_count+1
6049: -- Because stack moves down after delete
6050: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
6051:
6052: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
6053: 'RECORD_NO', i,
6054: 'MESSAGE', l_data);
6055: END LOOP;
6056: END IF;
6538: l_validate, l_start_date_status, l_end_date_status);
6539:
6540: If l_validate = 'Y' and l_start_date_status = 'I' Then
6541:
6542: pa_utils.add_message
6543: ( p_app_short_name => 'PA'
6544: ,p_msg_name => 'PA_PJR_DATE_START_ERROR'
6545: ,p_token1 => 'PROJ_TXN_START_DATE'
6546: ,p_value1 => GET_PROJECT_START_DATE(l_asgn_rec.project_id)
6554: End If;
6555:
6556: If l_validate = 'Y' and l_end_date_status = 'I' Then
6557:
6558: pa_utils.add_message
6559: ( p_app_short_name => 'PA'
6560: ,p_msg_name => 'PA_PJR_DATE_FINISH_ERROR'
6561: ,p_token1 => 'PROJ_TXN_END_DATE'
6562: ,p_value1 => GET_PROJECT_COMPLETION_DATE(l_asgn_rec.project_id)
7010: ,x_return_status => l_return_status
7011: );
7012:
7013: IF l_out_location_id IS NULL THEN
7014: PA_UTILS.ADD_MESSAGE('PA','PA_AMG_RES_INV_CRC_COMB');
7015: l_error_flag_local := 'Y'; -- 5148975
7016: ELSE
7017: l_asgn_rec.location_id := l_out_location_id;
7018: END IF;
7113: pa_debug.write(l_module, 'Mandatory parameter validation over. List of Missing Parameters='||l_missing_params, l_log_level);
7114: END IF;
7115:
7116: IF l_missing_params IS NOT NULL THEN
7117: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
7118: 'INVALID_PARAMS', l_missing_params);
7119: l_error_flag_local := 'Y';
7120: END IF;
7121:
7142: ,x_return_status => l_return_status
7143: ,x_error_message_code => l_error_message_code );
7144:
7145: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7146: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
7147: l_error_flag_local := 'Y';
7148: END IF;
7149: END IF;
7150: IF l_asgn_rec.project_name IS NOT NULL THEN
7159: ,x_return_status => l_return_status
7160: ,x_error_msg_code => l_error_message_code );
7161:
7162: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7163: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
7164: l_error_flag_local := 'Y';
7165: END IF;
7166: END IF;
7167: END IF; -- l_error_flag_local <> 'Y' AND l_asgn_rec.team_template_id IS NULL
7257: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
7258: END IF;
7259:
7260: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7261: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
7262: l_error_flag_local := 'Y';
7263: END IF;
7264:
7265: IF l_debug_mode = 'Y' THEN
7310:
7311: IF l_asgn_rec.bill_rate_option = 'RATE' THEN
7312: IF l_br_override_flag <> 'Y' OR l_asgn_rec.bill_rate_override <= 0 THEN /* OR l_asgn_rec.bill_rate_override > 100 - Removed for Bug 5703021*/
7313: IF l_br_override_flag <> 'Y' THEN
7314: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
7315: l_error_flag_local := 'Y';
7316: ELSE
7317: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
7318: l_error_flag_local := 'Y';
7313: IF l_br_override_flag <> 'Y' THEN
7314: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
7315: l_error_flag_local := 'Y';
7316: ELSE
7317: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
7318: l_error_flag_local := 'Y';
7319: END IF;
7320: END IF;
7321: -- 5144288, 5144369 : Added bill rate currency check below
7344: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
7345: END IF;
7346:
7347: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7348: PA_UTILS.ADD_MESSAGE('PA', 'PA_CISI_CURRENCY_NULL');
7349: l_error_flag_local := 'Y';
7350: END IF;
7351: END IF;
7352: -- 5144288, 5144369 : End
7354: -- 5144675 Changed l_asgn_rec.markup_percent_override <=0 to < 0
7355: IF l_br_override_flag <> 'Y' OR l_asgn_rec.markup_percent_override < 0
7356: OR l_asgn_rec.markup_percent_override > 100 THEN
7357: IF l_br_override_flag <> 'Y' THEN
7358: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
7359: l_error_flag_local := 'Y';
7360: ELSE
7361: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
7362: l_error_flag_local := 'Y';
7357: IF l_br_override_flag <> 'Y' THEN
7358: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
7359: l_error_flag_local := 'Y';
7360: ELSE
7361: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
7362: l_error_flag_local := 'Y';
7363: END IF;
7364: END IF;
7365: ELSIF l_asgn_rec.bill_rate_option = 'DISCOUNT' THEN
7366: -- 5144675 Changed l_asgn_rec.discount_percentage <= 0 to < 0
7367: IF l_br_discount_override_flag <> 'Y' OR l_asgn_rec.discount_percentage < 0
7368: OR l_asgn_rec.discount_percentage > 100 THEN
7369: IF l_br_discount_override_flag <> 'Y' THEN
7370: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
7371: l_error_flag_local := 'Y';
7372: ELSE
7373: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
7374: l_error_flag_local := 'Y';
7369: IF l_br_discount_override_flag <> 'Y' THEN
7370: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
7371: l_error_flag_local := 'Y';
7372: ELSE
7373: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
7374: l_error_flag_local := 'Y';
7375: END IF;
7376: END IF;
7377: END IF;
7379: IF (l_rate_discount_reason_flag ='Y' AND (l_br_override_flag ='Y' OR l_br_discount_override_flag='Y') AND
7380: (l_asgn_rec.bill_rate_override IS NOT NULL OR l_asgn_rec.markup_percent_override IS NOT NULL OR l_asgn_rec.discount_percentage IS NOT NULL)
7381: )
7382: THEN
7383: PA_UTILS.ADD_MESSAGE('PA', 'PA_RATE_DISC_REASON_REQUIRED');
7384: l_error_flag_local := 'Y';
7385: END IF;
7386: ELSE
7387: l_valid_flag := 'N';
7388: OPEN c_get_lookup_exists('RATE AND DISCOUNT REASON', l_asgn_rec.rate_disc_reason_code);
7389: FETCH c_get_lookup_exists INTO l_valid_flag;
7390: CLOSE c_get_lookup_exists;
7391: IF nvl(l_valid_flag,'N') <> 'Y' THEN
7392: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_RSN_INVALID');
7393: l_error_flag_local := 'Y';
7394: END IF;
7395: END IF;
7396:
7410:
7411: IF l_asgn_rec.tp_rate_option = 'RATE' THEN
7412: -- 5144675 Changed l_asgn_rec.tp_rate_override <= to < 0
7413: IF l_asgn_rec.tp_rate_override < 0 OR l_asgn_rec.tp_rate_override > 100 THEN
7414: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_TP_RATE_OVRD');
7415: l_error_flag_local := 'Y';
7416: END IF;
7417:
7418: l_return_status := FND_API.G_RET_STS_SUCCESS;
7437: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
7438: END IF;
7439:
7440: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7441: PA_UTILS.ADD_MESSAGE('PA', 'PA_CURR_NOT_VALID');
7442: l_error_flag_local := 'Y';
7443: END IF;
7444: ELSIF l_asgn_rec.tp_rate_option = 'BASIS' THEN
7445: -- 5144675 Changed l_asgn_rec.tp_percent_applied_override <= to < 0
7443: END IF;
7444: ELSIF l_asgn_rec.tp_rate_option = 'BASIS' THEN
7445: -- 5144675 Changed l_asgn_rec.tp_percent_applied_override <= to < 0
7446: IF l_asgn_rec.tp_percent_applied_override < 0 OR l_asgn_rec.tp_percent_applied_override > 100 THEN
7447: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_APPLY_BASIS_PERCENT');
7448: l_error_flag_local := 'Y';
7449: END IF;
7450: l_valid_flag := 'N';
7451: IF l_debug_mode = 'Y' THEN
7461: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
7462: END IF;
7463:
7464: IF nvl(l_valid_flag,'N') <> 'Y' THEN
7465: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_TP_BASIS_INVALID');
7466: l_error_flag_local := 'Y';
7467: END IF;
7468: END IF;
7469:
7491: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
7492: END IF;
7493:
7494: IF nvl(l_valid_flag,'N') <> 'Y' THEN
7495: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_EXP_OWNER_INVALID');
7496: l_error_flag_local := 'Y';
7497: END IF;
7498: END IF;
7499: END IF; -- l_error_flag_local <> 'Y' AND l_asgn_rec.assignment_type = 'STAFFED_ASSIGNMENT'
7539:
7540: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7541: -- This message does not have toekn defined, still it is ok to pass token as the value
7542: -- returned by flex APIs because token are appended as it is
7543: PA_UTILS.ADD_MESSAGE('PA', 'PA_DFF_VALIDATION_FAILED',
7544: 'MESSAGE', l_msg_data );
7545: l_error_flag_local := 'Y';
7546: END IF;
7547: END IF; -- l_error_flag_local <> 'Y'
7634:
7635: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7636: -- This message does not have token defined, but intentionally putting token
7637: -- bcoz we still want to show the privielge name which is missing
7638: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_CR_DL'
7639: ,'MISSING_PRIVILEGE', l_privilege);
7640: l_error_flag_local := 'Y';
7641: END IF;
7642: END IF;
7838: -- Always delete at first location in stack i.e. l_start_msg_count+1
7839: -- Because stack moves down after delete
7840: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
7841:
7842: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
7843: 'RECORD_NO', i,
7844: 'MESSAGE', l_data);
7845: END LOOP;
7846: IF l_debug_mode = 'Y' THEN
8168: l_validate, l_start_date_status, l_end_date_status);
8169:
8170: If l_validate = 'Y' and l_start_date_status = 'I' Then
8171:
8172: pa_utils.add_message
8173: ( p_app_short_name => 'PA'
8174: ,p_msg_name => 'PA_PJR_DATE_START_ERROR'
8175: ,p_token1 => 'PROJ_TXN_START_DATE'
8176: ,p_value1 => GET_PROJECT_START_DATE(l_asgn_rec.project_id)
8184: End If;
8185:
8186: If l_validate = 'Y' and l_end_date_status = 'I' Then
8187:
8188: pa_utils.add_message
8189: ( p_app_short_name => 'PA'
8190: ,p_msg_name => 'PA_PJR_DATE_FINISH_ERROR'
8191: ,p_token1 => 'PROJ_TXN_END_DATE'
8192: ,p_value1 => GET_PROJECT_COMPLETION_DATE(l_asgn_rec.project_id)
8229: CLOSE c_sys_status_code ;
8230:
8231: IF l_apprvl_sys_status_code in ('ASGMT_APPRVL_CANCELED','ASGMT_APPRVL_SUBMITTED') THEN
8232: l_error_flag_local := 'Y';
8233: PA_UTILS.ADD_MESSAGE('PA','PA_AMG_RES_INV_UP_ASG_STATUS') ;-- Need new msg
8234: -- Discuss with Amit
8235: END IF;
8236:
8237: IF nvl(l_asgn_db_values_rec.mass_wf_in_progress_flag, 'N') = 'Y' THEN
8234: -- Discuss with Amit
8235: END IF;
8236:
8237: IF nvl(l_asgn_db_values_rec.mass_wf_in_progress_flag, 'N') = 'Y' THEN
8238: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
8239: l_error_flag_local := 'Y';
8240: END IF;
8241:
8242: END IF;
8387: -- In DB,No Country has been specified yet.
8388: -- User is not passing Country Value
8389: -- But user is trying to specify State or City
8390: -- We should nt allow it
8391: --PA_UTILS.ADD_MESSAGE('PA','PA_COUNTRY_INVALID');
8392: l_missing_params := l_missing_params||', LOCATION_COUNTRY_CODE, LOCATION_COUNTRY_NAME';
8393: l_valid_country := 'N';
8394: END IF;
8395: ELSIF l_asgn_rec.location_country_code IS NOT NULL
8475: ,x_return_status => l_return_status
8476: );
8477:
8478: IF l_out_location_id IS NULL THEN
8479: PA_UTILS.ADD_MESSAGE('PA','PA_AMG_RES_INV_CRC_COMB'); -- New message to say ,Invalid comb
8480: l_error_flag_local := 'Y'; -- 5148975
8481: END IF;
8482: END IF;
8483: --
8488: pa_debug.write(l_module, 'Mandatory parameter validation over.List of Missing Parameters='||l_missing_params, l_log_level);
8489: END IF;
8490:
8491: IF l_missing_params IS NOT NULL THEN
8492: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
8493: 'INVALID_PARAMS', l_missing_params);
8494: l_error_flag_local := 'Y';
8495: END IF;
8496:
8808:
8809: IF l_asgn_rec.bill_rate_option = 'RATE' THEN
8810: IF l_br_override_flag <> 'Y' OR l_asgn_rec.bill_rate_override <= 0 THEN /* OR l_asgn_rec.bill_rate_override > 100 - Removed for Bug 5703021*/
8811: IF l_br_override_flag <> 'Y' THEN
8812: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
8813: l_error_flag_local := 'Y';
8814: ELSE
8815: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
8816: l_error_flag_local := 'Y';
8811: IF l_br_override_flag <> 'Y' THEN
8812: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
8813: l_error_flag_local := 'Y';
8814: ELSE
8815: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
8816: l_error_flag_local := 'Y';
8817: END IF;
8818: END IF;
8819: -- 5144288, 5144369 : Begin
8845: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
8846: END IF;
8847:
8848: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8849: PA_UTILS.ADD_MESSAGE('PA', 'PA_CISI_CURRENCY_NULL');
8850: l_error_flag_local := 'Y';
8851: END IF;
8852: END IF;
8853: -- 5144288, 5144369 : End
8855: -- 5144675 Changed l_asgn_rec.markup_percent_override <=0 to < 0
8856: IF l_br_override_flag <> 'Y' OR l_asgn_rec.markup_percent_override < 0
8857: OR l_asgn_rec.markup_percent_override > 100 THEN
8858: IF l_br_override_flag <> 'Y' THEN
8859: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
8860: l_error_flag_local := 'Y';
8861: ELSE
8862: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
8863: l_error_flag_local := 'Y';
8858: IF l_br_override_flag <> 'Y' THEN
8859: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
8860: l_error_flag_local := 'Y';
8861: ELSE
8862: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
8863: l_error_flag_local := 'Y';
8864: END IF;
8865: END IF;
8866: ELSIF l_asgn_rec.bill_rate_option = 'DISCOUNT' THEN
8867: -- 5144675 Changed l_asgn_rec.discount_percentage <= 0 to < 0
8868: IF l_br_discount_override_flag <> 'Y' OR l_asgn_rec.discount_percentage < 0
8869: OR l_asgn_rec.discount_percentage > 100 THEN
8870: IF l_br_discount_override_flag <> 'Y' THEN
8871: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
8872: l_error_flag_local := 'Y';
8873: ELSE
8874: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
8875: l_error_flag_local := 'Y';
8870: IF l_br_discount_override_flag <> 'Y' THEN
8871: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
8872: l_error_flag_local := 'Y';
8873: ELSE
8874: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
8875: l_error_flag_local := 'Y';
8876: END IF;
8877: END IF;
8878: END IF;
8881: IF (l_rate_discount_reason_flag ='Y' AND (l_br_override_flag ='Y' OR l_br_discount_override_flag='Y') AND
8882: (l_asgn_rec.bill_rate_override IS NOT NULL OR l_asgn_rec.markup_percent_override IS NOT NULL OR l_asgn_rec.discount_percentage IS NOT NULL)
8883: )
8884: THEN
8885: PA_UTILS.ADD_MESSAGE('PA', 'PA_RATE_DISC_REASON_REQUIRED');
8886: l_error_flag_local := 'Y';
8887: END IF;
8888: ELSE
8889: l_valid_flag := 'N';
8890: OPEN c_get_lookup_exists('RATE AND DISCOUNT REASON', l_asgn_rec.rate_disc_reason_code);
8891: FETCH c_get_lookup_exists INTO l_valid_flag;
8892: CLOSE c_get_lookup_exists;
8893: IF nvl(l_valid_flag,'N') <> 'Y' THEN
8894: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_RSN_INVALID');
8895: l_error_flag_local := 'Y';
8896: END IF;
8897: END IF;
8898:
8927: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
8928: END IF;
8929:
8930: IF nvl(l_valid_flag,'N') <> 'Y' THEN
8931: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_TP_BASIS_INVALID');
8932: l_error_flag_local := 'Y';
8933: END IF;
8934: END IF;
8935:
8957: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
8958: END IF;
8959:
8960: IF nvl(l_valid_flag,'N') <> 'Y' THEN
8961: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_EXP_OWNER_INVALID');
8962: l_error_flag_local := 'Y';
8963: END IF;
8964: END IF;
8965: IF l_debug_mode = 'Y' THEN
9002:
9003: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9004: -- This message does not have toekn defined, still it is ok to pass token as the value
9005: -- returned by flex APIs because token are appended as it is
9006: PA_UTILS.ADD_MESSAGE('PA', 'PA_DFF_VALIDATION_FAILED',
9007: 'MESSAGE', l_msg_data );
9008: l_error_flag_local := 'Y';
9009: END IF;
9010: END IF;
9147: END IF ;
9148: END IF;
9149:
9150: IF nvl(l_ret_code,'F') <> 'T' OR (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
9151: PA_UTILS.ADD_MESSAGE('PA', 'PA_UPD_ASGN_BASIC_INFO'
9152: ,'MISSING_PRIVILEGE', l_privilege);
9153: l_error_flag_local := 'Y';
9154: END IF;
9155: END IF; -- End If basic info changed
9222: END IF ;
9223: END IF;
9224:
9225: IF nvl(l_ret_code,'F') <> 'T' OR (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
9226: PA_UTILS.ADD_MESSAGE('PA', 'PA_UPD_ASGN_FIN_INFO'
9227: ,'MISSING_PRIVILEGE', l_privilege);
9228: l_error_flag_local := 'Y';
9229: END IF;
9230:
9287: END IF ;
9288: END IF;
9289:
9290: IF nvl(l_ret_code,'F') <> 'T' OR (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
9291: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UPD_ASGN_BR_INFO'
9292: ,'MISSING_PRIVILEGE', l_privilege);
9293: l_error_flag_local := 'Y';
9294: END IF;
9295: END IF ; -- End If l_fin_bill_rate_info_changed
9352: END IF ;
9353: END IF;
9354:
9355: IF nvl(l_ret_code,'F') <> 'T' OR (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
9356: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UPD_ASGN_TP_INFO'
9357: ,'MISSING_PRIVILEGE', l_privilege);
9358: l_error_flag_local := 'Y';
9359: END IF;
9360: END IF;-- l_fin_tp_rate_info_changed = 'Y'
9549: -- Always delete at first location in stack i.e. l_start_msg_count+1
9550: -- Because stack moves down after delete
9551: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
9552:
9553: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
9554: 'RECORD_NO', i,
9555: 'MESSAGE', l_data);
9556: END LOOP;
9557: IF l_debug_mode = 'Y' THEN
9883: END IF;
9884:
9885: IF l_missing_params IS NOT NULL THEN
9886: l_error_flag_local := 'Y';
9887: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
9888: 'INVALID_PARAMS', l_missing_params);
9889: END IF;
9890:
9891: l_assignment_id := l_req_rec.assignment_id;
9895: FETCH CUR_ASSIGNMENT_DETAILS INTO l_assignment_row_id, l_assignment_type, l_status_code, l_project_id,l_record_version_number, l_assignment_number, l_resource_id, l_start_date,l_mass_wf_in_progress_flag, l_apprvl_status_code;
9896:
9897: IF CUR_ASSIGNMENT_DETAILS%NOTFOUND THEN
9898: l_error_flag_local := 'Y';
9899: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
9900: 'INVALID_PARAMS', 'ASSIGNMENT_ID');
9901: END IF;
9902:
9903: CLOSE CUR_ASSIGNMENT_DETAILS;
9918: IF l_system_status_code = 'STAFFED_ASGMT_CANCEL'
9919: OR l_apprvl_sys_status_code IN ('ASGMT_APPRVL_SUBMITTED','ASGMT_APPRVL_CANCELED')
9920: OR NVL(l_mass_wf_in_progress_flag,'N') = 'Y' THEN
9921: --- Need more specific Generic Message.
9922: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
9923: l_error_flag_local := 'Y';
9924: END IF;
9925:
9926: IF l_error_flag_local <> 'Y' THEN
9966: , x_msg_data => l_msg_data
9967: , p_init_msg_list => FND_API.G_FALSE);
9968: END IF;
9969: ELSE
9970: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
9971: raise FND_API.G_EXC_ERROR;
9972: END IF;
9973:
9974: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9973:
9974: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9975: -- This message does not have token defined, but intentionally putting token
9976: -- because we still want to show the privilege name which is missing
9977: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_CR_DL'
9978: ,'MISSING_PRIVILEGE', l_privilege);
9979: l_error_flag_local := 'Y';
9980: END IF;
9981: END IF;
10027: -- Always delete at first location in stack i.e. l_start_msg_count+1
10028: -- Because stack moves down after delete
10029: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
10030:
10031: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
10032: 'RECORD_NO', i,
10033: 'MESSAGE', l_data);
10034: END LOOP;
10035: END IF;
10376: END IF;
10377:
10378: IF l_missing_params IS NOT NULL THEN
10379: l_error_flag_local := 'Y';
10380: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
10381: 'INVALID_PARAMS', l_missing_params);
10382: END IF;
10383:
10384: IF l_error_flag_local <> 'Y' THEN --------- (1)
10389: FETCH c_valid_asgn_id into l_project_id ,l_resource_id,l_start_date,l_assignment_type,l_mass_wf_in_progress_flag ,l_apprvl_status_code,l_record_version_number;
10390: IF c_valid_asgn_id%NOTFOUND THEN
10391: l_missing_params := l_missing_params||' ,ASSIGNMENT_ID' ;
10392: l_error_flag_local := 'Y';
10393: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
10394: 'INVALID_PARAMS', l_missing_params);
10395: ELSE -- The passed Id is a valid assignment
10396:
10397: IF nvl(l_mass_wf_in_progress_flag,'N') = 'Y' THEN
10394: 'INVALID_PARAMS', l_missing_params);
10395: ELSE -- The passed Id is a valid assignment
10396:
10397: IF nvl(l_mass_wf_in_progress_flag,'N') = 'Y' THEN
10398: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
10399: l_error_flag_local := 'Y';
10400: END IF;
10401:
10402: OPEN c_sys_status_code(l_apprvl_status_code);
10405:
10406: IF l_apprvl_sys_status_code in ('ASGMT_APPRVL_CANCELED','ASGMT_APPRVL_SUBMITTED','ASGMT_APPRVL_APPROVED')
10407: THEN
10408: -- We can submit only if the approval status is Working or Requires resubmission
10409: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
10410: l_error_flag_local := 'Y'; -- Modify above new err msg for Approved also
10411: END IF;
10412: END IF;
10413: CLOSE c_valid_asgn_id ;
10414:
10415: -- Validate the flag value passed for Auto Approve
10416: IF l_asgn_rec.auto_approve not in ('Y','N') THEN
10417: l_error_flag_local := 'Y';
10418: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS','INVALID_PARAMS','AUTO_APPROVE');
10419: END IF;
10420: --------------------------------------------------------
10421: -- Derive x_new_assignment_flag and x_approval_required
10422: --------------------------------------------------------
10445: -- So, Just rely on (l_after_api_msg_count - l_before_api_msg_count) value
10446:
10447: IF (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
10448: l_error_flag_local := 'Y';
10449: -- PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
10450: END IF;
10451:
10452: END IF;
10453: ------------------------------------------------------------------
10506: pa_debug.write(l_module, 'Populating PA_ASGN_CONFIRM_NOT_ALLOWED',l_log_level);
10507: END IF;
10508:
10509: l_error_flag_local := 'Y';
10510: PA_UTILS.Add_Message ( 'PA','PA_ASGN_CONFIRM_NOT_ALLOWED');
10511: -- Can we use PA_ASGN_CONFIRM_NOT_ALLOWED
10512: -- In TAD its given as PA_NO_RESOURCE_AUTHORITY ,its not appropriate
10513: END IF;
10514:
10579: OR
10580: (l_apr_person_id_1 is NULL AND l_apr_person_id_2 is NULL)
10581: THEN
10582: l_error_flag_local := 'Y';
10583: PA_UTILS.ADD_MESSAGE('PA','PA_NO_NON_EXCLUDED_APR');
10584: END IF;
10585:
10586: -- Bug 5175869 : Start
10587: IF l_apr_person_id_1 IS NOT NULL THEN
10588: l_valid := 'N';
10589: l_valid := IS_VALID_APPROVER(l_apr_person_id_1,l_resource_id,l_start_date);
10590: IF l_valid = 'N' THEN
10591: l_error_flag_local := 'Y';
10592: PA_UTILS.ADD_MESSAGE('PA','PA_INVALID_APPRVR'
10593: ,'APPROVER_ID',l_apr_person_id_1);
10594: END IF;
10595: END IF;
10596:
10598: l_valid := 'N';
10599: l_valid := IS_VALID_APPROVER(l_apr_person_id_2,l_resource_id,l_start_date);
10600: IF l_valid = 'N' THEN
10601: l_error_flag_local := 'Y';
10602: PA_UTILS.ADD_MESSAGE('PA','PA_INVALID_APPRVR'
10603: ,'APPROVER_ID',l_apr_person_id_2);
10604: END IF;
10605: END IF;
10606:
10718: -- Always delete at first location in stack i.e. l_start_msg_count+1
10719: -- Because stack moves down after delete
10720: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
10721:
10722: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
10723: 'RECORD_NO', i,
10724: 'MESSAGE', l_data);
10725: END LOOP;
10726: IF l_debug_mode = 'Y' THEN
11064: END IF ;
11065:
11066: IF l_miss_params IS NOT NULL THEN
11067: l_local_error_flag :='Y';
11068: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
11069: 'INVALID_PARAMS', l_miss_params);
11070: END IF ;
11071:
11072: IF l_debug_mode = 'Y' THEN
11086:
11087: IF cur_assign_info%NOTFOUND THEN
11088: l_local_error_flag := 'Y';
11089: l_miss_params := l_miss_params||', REQUIREMENT_ID';
11090: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
11091: 'INVALID_PARAMS', l_miss_params);
11092: END IF;
11093:
11094: CLOSE cur_assign_info;
11114: l_object_name := 'PA_PROJECTS';
11115: l_object_key := l_project_id;
11116: ELSE
11117: -- This should never happen.
11118: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
11119: raise FND_API.G_EXC_ERROR;
11120: END IF;
11121:
11122: IF l_debug_mode = 'Y' THEN
11177: IF l_debug_mode = 'Y' THEN
11178: pa_debug.write(l_module, 'User Dont have Privillege to modify this Requirement', l_debug_level);
11179: END IF ;
11180:
11181: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_COMP'
11182: ,'MISSING_PRIVILEGE', l_privilege);
11183: l_local_error_flag := 'Y';
11184: END IF ;
11185: -- checking Requiremnet Status
11183: l_local_error_flag := 'Y';
11184: END IF ;
11185: -- checking Requiremnet Status
11186: IF l_req_sys_status_code IN ('ASGMT_APPRVL_SUBMITTED','OPEN_ASGMT_FILLED', 'ASGMT_APPRVL_CANCELED') THEN
11187: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
11188: l_local_error_flag := 'Y';
11189: END IF ;
11190: -- Checking WF status..
11191: IF l_wf_progress_flag = 'Y' THEN
11188: l_local_error_flag := 'Y';
11189: END IF ;
11190: -- Checking WF status..
11191: IF l_wf_progress_flag = 'Y' THEN
11192: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
11193: l_local_error_flag := 'Y';
11194: END IF;
11195:
11196: IF l_debug_mode = 'Y' THEN
11268: , p_msg_index_out => l_msg_index_out );
11269:
11270: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
11271: -- Adding Record Number to The Message.
11272: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
11273: 'RECORD_NO', i,
11274: 'MESSAGE', l_data);
11275: END LOOP;
11276:
11593: END IF;
11594:
11595: IF l_miss_params IS NOT NULL THEN
11596: l_local_error_flag := 'Y';
11597: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
11598: 'INVALID_PARAMS', l_miss_params);
11599: END IF;
11600:
11601: IF l_local_error_flag <> 'Y' THEN
11613: -- checking the validity of l_competence_element_id
11614: IF cur_competence_details%NOTFOUND THEN
11615: l_local_error_flag := 'Y';
11616: l_miss_params := l_miss_params || 'P_COMPETENCE_ELEMENT_ID';
11617: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
11618: 'INVALID_PARAMS', l_miss_params);
11619: END IF;
11620: -- closing the cursor
11621: CLOSE cur_competence_details;
11626: FETCH cur_competence_details_alt INTO l_cur_competence_in_rec;
11627: -- checking the validity of l_requirement_id,l_competence_id
11628: IF cur_competence_details_alt%NOTFOUND THEN
11629: l_local_error_flag := 'Y';
11630: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_ASGMT_ID');
11631: END IF;
11632: --Closing the cursor
11633: CLOSE cur_competence_details_alt;
11634: -- Populating the competence element id
11714: l_object_name := null;
11715: l_object_key := null;
11716: ELSE
11717: -- This should never happen.
11718: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
11719: raise FND_API.G_EXC_ERROR;
11720: END IF;
11721:
11722: IF l_debug_mode = 'Y' THEN
11772:
11773: IF (nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11774: -- This message does not have token defined, but intentionally putting token
11775: -- bcoz we still want to show the privielge name which is missing
11776: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_COMP'
11777: ,'MISSING_PRIVILEGE', l_privilege);
11778: l_local_error_flag := 'Y';
11779: END IF ;
11780: -- checking Assignment Status.
11778: l_local_error_flag := 'Y';
11779: END IF ;
11780: -- checking Assignment Status.
11781: IF l_req_sys_status_code IN ('ASGMT_APPRVL_SUBMITTED', 'OPEN_ASGMT_FILLED', 'ASGMT_APPRVL_CANCELED') THEN
11782: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
11783: l_local_error_flag := 'Y';
11784: END IF ;
11785: -- Checking WF status..
11786: IF l_wf_progress_flag = 'Y' THEN
11783: l_local_error_flag := 'Y';
11784: END IF ;
11785: -- Checking WF status..
11786: IF l_wf_progress_flag = 'Y' THEN
11787: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
11788: l_local_error_flag := 'Y';
11789: END IF;
11790:
11791: IF l_debug_mode = 'Y' THEN
11847: , p_msg_index_out => l_msg_index_out );
11848:
11849: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
11850: -- Adding Record Number to The Message.
11851: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
11852: 'RECORD_NO', i,
11853: 'MESSAGE', l_data);
11854:
11855: END LOOP;
12160: END IF;
12161:
12162: IF l_miss_params IS NOT NULL THEN
12163: l_local_error_flag := 'Y';
12164: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
12165: 'INVALID_PARAMS', l_miss_params);
12166: END IF;
12167:
12168: IF l_local_error_flag <> 'Y' THEN
12171: -- Checking for the validity of competence id
12172: IF cur_competence_details%NOTFOUND THEN
12173: l_local_error_flag := 'Y';
12174: l_miss_params := l_miss_params || 'COMPETENCE_ELEMENT_ID';
12175: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
12176: 'INVALID_PARAMS', l_miss_params);
12177: END IF;
12178:
12179: CLOSE cur_competence_details;
12212: l_object_name := null;
12213: l_object_key := null;
12214: ELSE
12215: -- This should never happen.
12216: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
12217: raise FND_API.G_EXC_ERROR;
12218: END IF;
12219:
12220: IF l_debug_mode = 'Y' THEN
12271:
12272: IF (nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12273: -- This message does not have token defined, but intentionally putting token
12274: -- bcoz we still want to show the privielge name which is missing
12275: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_COMP'
12276: ,'MISSING_PRIVILEGE', l_privilege);
12277: l_local_error_flag := 'Y';
12278: END IF ;
12279: -- checking Assignment Status.
12278: END IF ;
12279: -- checking Assignment Status.
12280: IF l_req_sys_status_code IN ('ASGMT_APPRVL_SUBMITTED','OPEN_ASGMT_FILLED', 'ASGMT_APPRVL_CANCELED') THEN
12281: -- Need more specific message saying.. cant edit assignment.
12282: PA_UTILS.ADD_MESSAGE('PA','PA_ASSIGNMENT_WF');
12283: l_local_error_flag := 'Y';
12284: END IF ;
12285: -- Checking WF status..
12286: IF l_wf_progress_flag = 'Y' THEN
12283: l_local_error_flag := 'Y';
12284: END IF ;
12285: -- Checking WF status..
12286: IF l_wf_progress_flag = 'Y' THEN
12287: PA_UTILS.ADD_MESSAGE('PA','PA_ASSIGNMENT_WF');
12288: l_local_error_flag := 'Y';
12289: END IF;
12290:
12291: IF l_debug_mode = 'Y' THEN
12352: , p_msg_index_out => l_msg_index_out );
12353:
12354: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
12355: -- Adding Record Number to The Message.
12356: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
12357: 'RECORD_NO', i,
12358: 'MESSAGE', l_data);
12359: END LOOP;
12360: END IF;
12725: FETCH c_get_system_status_code INTO l_system_status_code;
12726: CLOSE c_get_system_status_code;
12727:
12728: IF l_system_status_code IN ('OPEN_ASGMT_FILLED','OPEN_ASGMT_CANCEL') THEN
12729: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
12730: l_error_flag_local := 'Y';
12731: END IF;
12732:
12733: IF nvl(l_mass_wf_in_progress_flag, 'N') = 'Y' THEN
12730: l_error_flag_local := 'Y';
12731: END IF;
12732:
12733: IF nvl(l_mass_wf_in_progress_flag, 'N') = 'Y' THEN
12734: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
12735: l_error_flag_local := 'Y';
12736: END IF;
12737: END IF;
12738: CLOSE c_get_requirement_info;
12757: END IF;
12758:
12759: IF l_missing_params IS NOT NULL THEN
12760: l_error_flag_local := 'Y';
12761: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
12762: 'INVALID_PARAMS', l_missing_params);
12763: END IF;
12764:
12765:
12770: OPEN c_get_resource_info(l_candidate_in_rec.resource_id);
12771: FETCH c_get_resource_info INTO l_person_id;
12772: IF c_get_resource_info%NOTFOUND IS NULL THEN
12773: l_error_flag_local := 'Y';
12774: PA_UTILS.ADD_MESSAGE ( p_app_short_name => 'PA'
12775: ,p_msg_name => 'PA_RESOURCE_INVALID_AMBIGUOUS' );
12776: END IF;
12777: CLOSE c_get_resource_info;
12778: ELSIF l_candidate_in_rec.person_id IS NOT NULL THEN
12828: END IF;
12829: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12830: -- This message does not have token defined, but intentionally putting token
12831: -- bcoz we still want to show the privielge name which is missing
12832: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_CAND'
12833: ,'MISSING_PRIVILEGE', l_privilege);
12834: l_error_flag_local := 'Y';
12835: END IF;
12836:
12868: x_msg_data => l_msg_data);
12869:
12870: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12871: l_error_flag_local := 'Y';
12872: PA_UTILS.ADD_MESSAGE ( p_app_short_name => 'PA'
12873: ,p_msg_name => 'PA_NO_RESOURCE_AUTHORITY' );
12874: END IF;
12875:
12876: IF l_debug_mode = 'Y' THEN
12961: -- Always delete at first location in stack i.e. l_start_msg_count+1
12962: -- Because stack moves down after delete
12963: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
12964:
12965: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
12966: 'RECORD_NO', i,
12967: 'MESSAGE', l_data);
12968: END LOOP;
12969:
13293: pa_debug.write(l_module, 'Mandatory parameter validation over. List of Missing Parameters='||l_missing_params, l_log_level);
13294: END IF;
13295:
13296: IF l_missing_params IS NOT NULL THEN
13297: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
13298: 'INVALID_PARAMS', l_missing_params);
13299: l_error_flag_local := 'Y';
13300: END IF;
13301:
13347:
13348: IF l_project_id IS NULL THEN -- Check for requirement id valid and assignment type OPEN_ASSIGNMENT
13349: l_error_flag_local := 'Y';
13350: l_missing_params := l_missing_params||', REQUIREMENT_ID';
13351: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
13352: 'INVALID_PARAMS', l_missing_params);
13353: END IF;
13354:
13355: END IF;
13400: END IF;
13401: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13402: -- This message does not have token defined, but intentionally putting token
13403: -- bcoz we still want to show the privielge name which is missing
13404: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_CAND'
13405: ,'MISSING_PRIVILEGE', l_privilege);
13406: l_error_flag_local := 'Y';
13407: END IF;
13408:
13497: -- Always delete at first location in stack i.e. l_start_msg_count+1
13498: -- Because stack moves down after delete
13499: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
13500:
13501: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
13502: 'RECORD_NO', i,
13503: 'MESSAGE', l_data);
13504: END LOOP;
13505:
13765: END IF;
13766:
13767: IF l_missing_params IS NOT NULL THEN
13768: l_error_flag_local := 'Y';
13769: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
13770: 'INVALID_PARAMS', l_missing_params);
13771: END IF;
13772:
13773: IF l_error_flag_local <> 'Y' THEN
13779: -- IF l_project_id IS NULL THEN -- Check for requirement id valid and assignment type OPEN_ASSIGNMENT -- Commented for Bug 5178399
13780: IF c_get_requirement_info%NOTFOUND THEN -- Check for requirement id valid and assignment type OPEN_ASSIGNMENT -- Added for Bug 5178399
13781: l_error_flag_local := 'Y';
13782: l_missing_params := l_missing_params||', REQUIREMENT_ID';
13783: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
13784: 'INVALID_PARAMS', l_missing_params);
13785: END IF;
13786:
13787: CLOSE c_get_requirement_info; -- Added for Bug 5178399
13844: END IF;
13845: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13846: -- This message does not have token defined, but intentionally putting token
13847: -- bcoz we still want to show the privielge name which is missing
13848: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_CAND'
13849: ,'MISSING_PRIVILEGE', l_privilege);
13850: l_error_flag_local := 'Y';
13851: END IF;
13852:
13938: -- Always delete at first location in stack i.e. l_start_msg_count+1
13939: -- Because stack moves down after delete
13940: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
13941:
13942: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
13943: 'RECORD_NO', i,
13944: 'MESSAGE', l_data);
13945: END LOOP;
13946:
14258: pa_debug.write(l_module, 'Mandatory parameter validation over. List of Missing Parameters='||l_missing_params, l_log_level);
14259: END IF;
14260:
14261: IF l_missing_params IS NOT NULL THEN
14262: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
14263: 'INVALID_PARAMS', l_missing_params);
14264: l_error_flag_local := 'Y';
14265: END IF;
14266:
14316: END IF;
14317: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14318: -- This message does not have token defined, but intentionally putting token
14319: -- bcoz we still want to show the privielge name which is missing
14320: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_CAND_LOG'
14321: ,'MISSING_PRIVILEGE', l_privilege);
14322: l_error_flag_local := 'Y';
14323: END IF;
14324:
14418: -- Always delete at first location in stack i.e. l_start_msg_count+1
14419: -- Because stack moves down after delete
14420: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
14421:
14422: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
14423: 'RECORD_NO', i,
14424: 'MESSAGE', l_data);
14425: END LOOP;
14426: