[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
1575: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1576: END IF;
1577:
1578: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1579: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1580: l_error_flag_local := 'Y';
1581: END IF;
1582:
1583: IF l_debug_mode = 'Y' THEN
1630: 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))
1631: 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))
1632: 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))
1633: THEN
1634: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MATCH_WEIGHTING');
1635: l_error_flag_local := 'Y';
1636: END IF;
1637:
1638: 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)
1636: END IF;
1637:
1638: 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)
1639: THEN
1640: PA_UTILS.ADD_MESSAGE('PA', 'PA_MIN_AVAIL_INVALID');
1641: l_error_flag_local := 'Y';
1642: END IF;
1643:
1644: 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 )
1642: END IF;
1643:
1644: 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 )
1645: THEN
1646: PA_UTILS.ADD_MESSAGE('PA', 'PA_MIN_CAN_SCORE_INVALID');
1647: l_error_flag_local := 'Y';
1648: END IF;
1649:
1650: IF (l_req_rec.search_country_code IS NOT NULL AND l_req_rec.search_country_code <> FND_API.G_MISS_CHAR)
1672: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1673: END IF;
1674:
1675: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1676: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1677: l_error_flag_local := 'Y';
1678: END IF;
1679: END IF; -- l_req_rec.search_country_code IS NOT NULL
1680:
1702: END IF;
1703:
1704:
1705: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1706: -- PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1707: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_SRCH_ORG_HIER_NA'); -- Changed for Bug 5148154
1708: l_error_flag_local := 'Y';
1709: ELSE
1710: l_return_status := FND_API.G_RET_STS_SUCCESS;
1703:
1704:
1705: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1706: -- PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1707: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_SRCH_ORG_HIER_NA'); -- Changed for Bug 5148154
1708: l_error_flag_local := 'Y';
1709: ELSE
1710: l_return_status := FND_API.G_RET_STS_SUCCESS;
1711: l_error_message_code := null;
1726: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1727: END IF;
1728:
1729: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1730: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1731: l_error_flag_local := 'Y';
1732: END IF;
1733: END IF;
1734: END IF; -- l_req_rec.search_exp_org_hier_name IS NOT NULL
1756: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1757: END IF;
1758:
1759: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1760: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1761: l_error_flag_local := 'Y';
1762: ELSE
1763: l_return_status := FND_API.G_RET_STS_SUCCESS;
1764: l_error_message_code := null;
1779: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1780: END IF;
1781:
1782: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1783: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1784: l_error_flag_local := 'Y';
1785: END IF;
1786: END IF;
1787: END IF; -- l_req_rec.search_exp_start_org_name IS NOT NULL
1807: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1808: END IF;
1809:
1810: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1811: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1812: l_error_flag_local := 'Y';
1813: END IF;
1814: END IF;
1815:
1839: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1840: END IF;
1841:
1842: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1843: PA_UTILS.ADD_MESSAGE('PA', 'PA_EXP_OU_INVALID');
1844: l_error_flag_local := 'Y';
1845: ELSE
1846: l_return_status := FND_API.G_RET_STS_SUCCESS;
1847: l_error_message_code := null;
1861: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1862: END IF;
1863:
1864: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1865: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1866: l_error_flag_local := 'Y';
1867: -- Start 1: Changed for Bug 5202329
1868: ELSE
1869: SELECT business_group_id
1904: IF l_error_message_code = 'PA_ORG_NOT_UNIQUE' AND l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1905: OPEN c_get_exp_organization_id(l_business_group_id, l_req_rec.expenditure_organization_name);
1906: FETCH c_get_exp_organization_id INTO l_req_rec.expenditure_organization_id;
1907: IF c_get_exp_organization_id%NOTFOUND IS NULL THEN
1908: PA_UTILS.ADD_MESSAGE('PA', 'PA_EXP_ORG_INVALID');
1909: l_error_flag_local := 'Y';
1910: END IF;
1911: CLOSE c_get_exp_organization_id;
1912: END IF;
1912: END IF;
1913: IF l_error_message_code <> 'PA_ORG_NOT_UNIQUE' AND l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1914: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1915: -- End 2: Changes for Bug 5202329
1916: PA_UTILS.ADD_MESSAGE('PA', 'PA_EXP_ORG_INVALID');
1917: l_error_flag_local := 'Y';
1918: ELSE
1919: l_valid_flag := null;
1920:
1921: IF l_debug_mode = 'Y' THEN
1922: pa_debug.write(l_module, 'Validating Expenditure Organization to be used in PA', l_log_level);
1923: END IF;
1924:
1925: l_valid_flag := PA_UTILS2.CHECKEXPORG
1926: (x_org_id => l_req_rec.expenditure_organization_id,
1927: x_txn_date => l_req_rec.start_date);
1928:
1929: IF l_debug_mode = 'Y' THEN
1931: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
1932: END IF;
1933:
1934: IF l_valid_flag <> 'Y' THEN
1935: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_EXP_ORG');
1936: l_error_flag_local := 'Y';
1937: END IF;
1938: END IF;
1939: END IF; -- l_req_rec.expenditure_organization_id IS NOT NULL
1966: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1967: END IF;
1968:
1969: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1970: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
1971: l_error_flag_local := 'Y';
1972: END IF;
1973: END IF;
1974:
1998: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
1999: END IF;
2000:
2001: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2002: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
2003: l_error_flag_local := 'Y';
2004: END IF;
2005: END IF;
2006:
2026: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
2027: END IF;
2028:
2029: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2030: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
2031: l_error_flag_local := 'Y';
2032: END IF;
2033: END IF;
2034:
2054:
2055: IF l_req_rec.bill_rate_option = 'RATE' THEN
2056: 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*/
2057: IF l_br_override_flag <> 'Y' THEN
2058: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
2059: l_error_flag_local := 'Y';
2060: ELSE
2061: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
2062: l_error_flag_local := 'Y';
2057: IF l_br_override_flag <> 'Y' THEN
2058: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
2059: l_error_flag_local := 'Y';
2060: ELSE
2061: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
2062: l_error_flag_local := 'Y';
2063: END IF;
2064: END IF;
2065:
2089: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
2090: END IF;
2091:
2092: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2093: PA_UTILS.ADD_MESSAGE('PA', 'PA_CISI_CURRENCY_NULL');
2094: l_error_flag_local := 'Y';
2095: END IF;
2096: END IF;
2097: -- 5144288, 5144369 : End
2099: -- 5144675 Changed l_req_rec.markup_percent_override <= 0 to < 0
2100: IF l_br_override_flag <> 'Y' OR l_req_rec.markup_percent_override < 0
2101: OR l_req_rec.markup_percent_override > 100 THEN
2102: IF l_br_override_flag <> 'Y' THEN
2103: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
2104: l_error_flag_local := 'Y';
2105: ELSE
2106: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
2107: l_error_flag_local := 'Y';
2102: IF l_br_override_flag <> 'Y' THEN
2103: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
2104: l_error_flag_local := 'Y';
2105: ELSE
2106: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
2107: l_error_flag_local := 'Y';
2108: END IF;
2109: END IF;
2110: ELSIF l_req_rec.bill_rate_option = 'DISCOUNT' THEN
2111: -- 5144675 Changed l_req_rec.discount_percentage <=0 to < 0
2112: IF l_br_discount_override_flag <> 'Y' OR l_req_rec.discount_percentage < 0
2113: OR l_req_rec.discount_percentage > 100 THEN
2114: IF l_br_override_flag <> 'Y' THEN
2115: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
2116: l_error_flag_local := 'Y';
2117: ELSE
2118: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
2119: l_error_flag_local := 'Y';
2114: IF l_br_override_flag <> 'Y' THEN
2115: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
2116: l_error_flag_local := 'Y';
2117: ELSE
2118: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
2119: l_error_flag_local := 'Y';
2120: END IF;
2121: END IF;
2122: END IF;
2124: IF (l_rate_discount_reason_flag ='Y' AND (l_br_override_flag ='Y' OR l_br_discount_override_flag='Y') AND
2125: (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)
2126: )
2127: THEN
2128: PA_UTILS.ADD_MESSAGE('PA', 'PA_RATE_DISC_REASON_REQUIRED');
2129: l_error_flag_local := 'Y';
2130: END IF;
2131: ELSE
2132: l_valid_flag := 'N';
2134: FETCH c_get_lookup_exists INTO l_valid_flag;
2135: CLOSE c_get_lookup_exists;
2136: IF nvl(l_valid_flag,'N') <> 'Y' THEN
2137: -- This is a new message, define it
2138: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_RSN_INVALID');
2139: l_error_flag_local := 'Y';
2140: END IF;
2141: END IF;
2142:
2156:
2157: IF l_req_rec.tp_rate_option = 'RATE' THEN
2158: -- 5144675 Changed l_req_rec.tp_rate_override <= 0 to < 0
2159: IF l_req_rec.tp_rate_override < 0 OR l_req_rec.tp_rate_override > 100 THEN
2160: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_TP_RATE_OVRD');
2161: l_error_flag_local := 'Y';
2162: END IF;
2163:
2164: l_return_status := FND_API.G_RET_STS_SUCCESS;
2183: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
2184: END IF;
2185:
2186: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2187: PA_UTILS.ADD_MESSAGE('PA', 'PA_CURR_NOT_VALID');
2188: l_error_flag_local := 'Y';
2189: END IF;
2190: ELSIF l_req_rec.tp_rate_option = 'BASIS' THEN
2191: -- 5144675 Changed l_req_rec.tp_percent_applied_override <=0 to < 0
2189: END IF;
2190: ELSIF l_req_rec.tp_rate_option = 'BASIS' THEN
2191: -- 5144675 Changed l_req_rec.tp_percent_applied_override <=0 to < 0
2192: IF l_req_rec.tp_percent_applied_override < 0 OR l_req_rec.tp_percent_applied_override > 100 THEN
2193: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_APPLY_BASIS_PERCENT');
2194: l_error_flag_local := 'Y';
2195: END IF;
2196: l_valid_flag := 'N';
2197: IF l_debug_mode = 'Y' THEN
2207: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
2208: END IF;
2209:
2210: IF nvl(l_valid_flag,'N') <> 'Y' THEN
2211: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_TP_BASIS_INVALID');
2212: l_error_flag_local := 'Y';
2213: END IF;
2214: END IF;
2215:
2237: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
2238: END IF;
2239:
2240: IF nvl(l_valid_flag,'N') <> 'Y' THEN
2241: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_EXP_OWNER_INVALID');
2242: l_error_flag_local := 'Y';
2243: END IF;
2244: END IF;
2245: END IF; -- l_error_flag_local <> 'Y' AND l_req_rec.project_id IS NOT NULL
2285:
2286: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2287: -- This message does not have toekn defined, still it is ok to pass token as the value
2288: -- returned by flex APIs because token are appended as it is
2289: PA_UTILS.ADD_MESSAGE('PA', 'PA_DFF_VALIDATION_FAILED',
2290: 'ERROR_MESSAGE', l_msg_data );
2291: l_error_flag_local := 'Y';
2292: END IF;
2293: END IF; -- l_error_flag_local <> 'Y'
2309: l_privilege := 'PA_ASN_CR_AND_DL';
2310: l_object_name := 'PA_PROJECTS';
2311: l_object_key := null;
2312: ELSE
2313: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
2314: raise FND_API.G_EXC_ERROR;
2315: END IF;
2316:
2317: IF l_debug_mode = 'Y' THEN
2340:
2341: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2342: -- This message does not have token defined, but intentionally putting token
2343: -- bcoz we still want to show the privielge name which is missing
2344: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_CR_DL'
2345: ,'MISSING_PRIVILEGE', l_privilege);
2346: l_error_flag_local := 'Y';
2347: END IF;
2348: END IF;
2547: -- Always delete at first location in stack i.e. l_start_msg_count+1
2548: -- Because stack moves down after delete
2549: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
2550:
2551: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
2552: 'RECORD_NO', i,
2553: 'MESSAGE', l_data);
2554: END LOOP;
2555: IF l_debug_mode = 'Y' THEN
2990: l_validate, l_start_date_status, l_end_date_status);
2991:
2992: If l_validate = 'Y' and l_start_date_status = 'I' Then
2993:
2994: pa_utils.add_message
2995: ( p_app_short_name => 'PA'
2996: ,p_msg_name => 'PA_PJR_DATE_START_ERROR'
2997: ,p_token1 => 'PROJ_TXN_START_DATE'
2998: ,p_value1 => GET_PROJECT_START_DATE(l_req_rec.project_id)
3006: End If;
3007:
3008: If l_validate = 'Y' and l_end_date_status = 'I' Then
3009:
3010: pa_utils.add_message
3011: ( p_app_short_name => 'PA'
3012: ,p_msg_name => 'PA_PJR_DATE_FINISH_ERROR'
3013: ,p_token1 => 'PROJ_TXN_END_DATE'
3014: ,p_value1 => GET_PROJECT_COMPLETION_DATE(l_req_rec.project_id)
3036: FETCH c_get_system_status_code INTO l_system_status_code;
3037: CLOSE c_get_system_status_code;
3038:
3039: IF l_system_status_code IN ('OPEN_ASGMT_FILLED','OPEN_ASGMT_CANCEL') THEN
3040: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
3041: l_error_flag_local := 'Y';
3042: END IF;
3043:
3044: IF nvl(l_req_dtls_csr.mass_wf_in_progress_flag, 'N') = 'Y' THEN
3041: l_error_flag_local := 'Y';
3042: END IF;
3043:
3044: IF nvl(l_req_dtls_csr.mass_wf_in_progress_flag, 'N') = 'Y' THEN
3045: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
3046: l_error_flag_local := 'Y';
3047: END IF;
3048: END IF;
3049:
3137: ,x_return_status => l_return_status
3138: );
3139:
3140: IF l_out_location_id IS NULL THEN
3141: PA_UTILS.ADD_MESSAGE('PA','PA_AMG_RES_INV_CRC_COMB');
3142: l_error_flag_local := 'Y'; -- 5148975
3143: ELSE
3144: l_req_rec.location_id := l_out_location_id;
3145: END IF;
3313: pa_debug.write(l_module, 'Mandatory parameter validation over. List of Missing Parameters='||l_missing_params, l_log_level);
3314: END IF;
3315:
3316: IF l_missing_params IS NOT NULL THEN
3317: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
3318: 'INVALID_PARAMS', l_missing_params);
3319: l_error_flag_local := 'Y';
3320: END IF;
3321:
3754: IF l_req_rec.bill_rate_option = 'RATE' THEN
3755:
3756: 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*/
3757: IF l_br_override_flag <> 'Y' THEN
3758: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
3759: l_error_flag_local := 'Y';
3760: ELSE
3761: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
3762: l_error_flag_local := 'Y';
3757: IF l_br_override_flag <> 'Y' THEN
3758: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
3759: l_error_flag_local := 'Y';
3760: ELSE
3761: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
3762: l_error_flag_local := 'Y';
3763: END IF;
3764: END IF;
3765:
3792: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
3793: END IF;
3794:
3795: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3796: PA_UTILS.ADD_MESSAGE('PA', 'PA_CISI_CURRENCY_NULL');
3797: l_error_flag_local := 'Y';
3798: END IF;
3799: END IF;
3800: -- 5144288, 5144369 : End
3802: -- 5144675 Changed l_req_rec.markup_percent_override <= 0 to < 0
3803: IF l_br_override_flag <> 'Y' OR l_req_rec.markup_percent_override < 0
3804: OR l_req_rec.markup_percent_override > 100 THEN
3805: IF l_br_override_flag <> 'Y' THEN
3806: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
3807: l_error_flag_local := 'Y';
3808: ELSE
3809: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
3810: l_error_flag_local := 'Y';
3805: IF l_br_override_flag <> 'Y' THEN
3806: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
3807: l_error_flag_local := 'Y';
3808: ELSE
3809: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
3810: l_error_flag_local := 'Y';
3811: END IF;
3812: END IF;
3813: ELSIF l_req_rec.bill_rate_option = 'DISCOUNT' THEN
3814: -- 5144675 Changed l_req_rec.discount_percentage <= 0 to < 0
3815: IF l_br_discount_override_flag <> 'Y' OR l_req_rec.discount_percentage < 0
3816: OR l_req_rec.discount_percentage > 100 THEN
3817: IF l_br_discount_override_flag <> 'Y' THEN
3818: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
3819: l_error_flag_local := 'Y';
3820: ELSE
3821: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
3822: l_error_flag_local := 'Y';
3817: IF l_br_discount_override_flag <> 'Y' THEN
3818: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
3819: l_error_flag_local := 'Y';
3820: ELSE
3821: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
3822: l_error_flag_local := 'Y';
3823: END IF;
3824: END IF;
3825: END IF;
3828: IF (l_rate_discount_reason_flag ='Y' AND (l_br_override_flag ='Y' OR l_br_discount_override_flag='Y') AND
3829: (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)
3830: )
3831: THEN
3832: PA_UTILS.ADD_MESSAGE('PA', 'PA_RATE_DISC_REASON_REQUIRED');
3833: l_error_flag_local := 'Y';
3834: END IF;
3835: ELSE
3836: l_valid_flag := 'N';
3837: OPEN c_get_lookup_exists('RATE AND DISCOUNT REASON', l_req_rec.rate_disc_reason_code);
3838: FETCH c_get_lookup_exists INTO l_valid_flag;
3839: CLOSE c_get_lookup_exists;
3840: IF nvl(l_valid_flag,'N') <> 'Y' THEN
3841: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_RSN_INVALID');
3842: l_error_flag_local := 'Y';
3843: END IF;
3844: END IF;
3845:
3873: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
3874: END IF;
3875:
3876: IF nvl(l_valid_flag,'N') <> 'Y' THEN
3877: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_TP_BASIS_INVALID');
3878: l_error_flag_local := 'Y';
3879: END IF;
3880: END IF;
3881:
3903: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
3904: END IF;
3905:
3906: IF nvl(l_valid_flag,'N') <> 'Y' THEN
3907: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_EXP_OWNER_INVALID');
3908: l_error_flag_local := 'Y';
3909: END IF;
3910: END IF;
3911: END IF; -- l_error_flag_local <> 'Y' AND nvl(l_req_dtls_csr.template_flag,'N') = 'N'
3951:
3952: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3953: -- This message does not have toekn defined, still it is ok to pass token as the value
3954: -- returned by flex APIs because token are appended as it is
3955: PA_UTILS.ADD_MESSAGE('PA', 'PA_DFF_VALIDATION_FAILED',
3956: 'MESSAGE', l_msg_data );
3957: l_error_flag_local := 'Y';
3958: END IF;
3959: END IF; -- l_error_flag_local <> 'Y'
4080: END IF ;
4081: END IF;
4082:
4083: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4084: PA_UTILS.ADD_MESSAGE('PA', 'PA_UPD_ASGN_BASIC_INFO'
4085: ,'MISSING_PRIVILEGE', l_privilege);
4086: l_error_flag_local := 'Y';
4087: END IF;
4088:
4143: END IF ;
4144: END IF;
4145:
4146: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4147: PA_UTILS.ADD_MESSAGE('PA', 'PA_UPD_ASGN_CANDIDATE'
4148: ,'MISSING_PRIVILEGE', l_privilege);
4149: l_error_flag_local := 'Y';
4150: END IF;
4151:
4206: END IF ;
4207: END IF;
4208:
4209: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4210: PA_UTILS.ADD_MESSAGE('PA', 'PA_UPD_ASGN_FIN_INFO'
4211: ,'MISSING_PRIVILEGE', l_privilege);
4212: l_error_flag_local := 'Y';
4213: END IF;
4214:
4270: END IF ;
4271: END IF;
4272:
4273: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4274: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UPD_ASGN_BR_INFO'
4275: ,'MISSING_PRIVILEGE', l_privilege);
4276: l_error_flag_local := 'Y';
4277: END IF;
4278:
4333: END IF ;
4334: END IF;
4335:
4336: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4337: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UPD_ASGN_TP_INFO'
4338: ,'MISSING_PRIVILEGE', l_privilege);
4339: l_error_flag_local := 'Y';
4340: END IF;
4341: END IF;-- l_fin_tp_rate_info_changed = 'Y'
4366: pa_debug.write(l_module,'Team Template Security l_return_status='||l_return_status, l_log_level);
4367: END IF ;
4368:
4369: IF nvl(l_ret_code,'F') <> 'T' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4370: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_UPD'
4371: ,'MISSING_PRIVILEGE', l_privilege);
4372: l_error_flag_local := 'Y';
4373: END IF;
4374: END IF; -- l_error_flag_local <> 'Y' AND nvl(l_req_dtls_csr.template_flag,'N') = 'N'
4556: -- Always delete at first location in stack i.e. l_start_msg_count+1
4557: -- Because stack moves down after delete
4558: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
4559:
4560: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
4561: 'RECORD_NO', i,
4562: 'MESSAGE', l_data);
4563: END LOOP;
4564: IF l_debug_mode = 'Y' THEN
4828: END IF;
4829:
4830: IF l_missing_params IS NOT NULL THEN
4831: l_error_flag_local := 'Y';
4832: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
4833: 'INVALID_PARAMS', l_missing_params);
4834: END IF;
4835:
4836: IF l_error_flag_local <> 'Y' THEN
4841: 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;
4842: IF c_derive_values%NOTFOUND THEN
4843: l_missing_params := l_missing_params||'REQUIREMENT_ID ' ;
4844: l_error_flag_local := 'Y';
4845: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
4846: 'INVALID_PARAMS', l_missing_params);
4847: END IF;
4848: CLOSE c_derive_values;
4849:
4856:
4857: --IF l_system_status_code IN ('OPEN_ASGMT_CANCEL','OPEN_ASGMT_FILLED') THEN --Bug 7638990
4858: IF l_system_status_code IN ('OPEN_ASGMT_FILLED') THEN --Bug 7638990
4859: l_error_flag_local := 'Y' ;
4860: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
4861: END IF;
4862:
4863: -- Security Check
4864: IF l_debug_mode = 'Y' THEN
4873: l_privilege := 'PA_PRM_DEFINE_TEAM_TEMPLATE';
4874: l_object_name := null;
4875: l_object_key := null;
4876: ELSE -- This wont happen
4877: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
4878: raise FND_API.G_EXC_ERROR;
4879: END IF;
4880:
4881: l_return_status := FND_API.G_RET_STS_SUCCESS;
4893:
4894: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4895: -- This message does not have token defined, but intentionally putting token
4896: -- because we still want to show the privilege name which is missing
4897: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_CR_DL'
4898: ,'MISSING_PRIVILEGE', l_privilege);
4899: l_error_flag_local := 'Y';
4900: END IF;
4901:
4950: -- Always delete at first location in stack i.e. l_start_msg_count+1
4951: -- Because stack moves down after delete
4952: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
4953:
4954: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
4955: 'RECORD_NO', i,
4956: 'MESSAGE', l_data);
4957: END LOOP;
4958: END IF;
5370: END IF;
5371:
5372: IF l_missing_params IS NOT NULL THEN
5373: l_error_flag_local := 'Y';
5374: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
5375: 'INVALID_PARAMS', l_missing_params);
5376: IF l_debug_mode = 'Y' THEN
5377: pa_debug.write(l_module, 'The missing parameters are '||l_missing_params, l_log_level);
5378: END IF;
5386: FETCH c_derive_values INTO l_project_id,l_team_template_id,l_status_code,l_db_start_date,l_db_end_date;
5387: IF c_derive_values%NOTFOUND THEN
5388: l_error_flag_local := 'Y' ;
5389: l_missing_params := l_missing_params||'SOURCE_REQUIREMENT_ID' ;
5390: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
5391: 'INVALID_PARAMS', l_missing_params);
5392: ELSE
5393: -- If the requirement exists ,determine the mode and validate status values passed
5394: -- Logic got from AssignResourceVORowImpl.java
5417:
5418: IF c_valid_status_code%NOTFOUND THEN
5419: -- Invalid status code has been passed.
5420: l_error_flag_local := 'Y' ;
5421: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_ASG_STATUS',--New message
5422: 'SOURCE_REQUIREMENT_ID',l_source_requirement_id,'STATUS_CODE',l_assignment_status_code);
5423: END IF;
5424: CLOSE c_valid_status_code ;
5425: ELSE -- if status code is NULL
5430:
5431: IF c_valid_status_name%NOTFOUND THEN
5432: -- Invalid status name has been passed .Here ,code is also nt passed
5433: l_error_flag_local := 'Y' ;
5434: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_ASG_STATUS',
5435: 'SOURCE_REQUIREMENT_ID',l_source_requirement_id,'STATUS_NAME',l_assignment_status_name);
5436: END IF;
5437: CLOSE c_valid_status_name ;
5438: END IF;
5455:
5456: IF c_valid_unfilled_status_code%NOTFOUND THEN
5457: -- Invalid statuscode has been passed.
5458: l_error_flag_local := 'Y' ;
5459: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UNFILL_INV_STATUS',--New message
5460: 'SOURCE_REQUIREMENT_ID',l_source_requirement_id,'UNFILLED_STATUS_CODE',l_unfilled_assign_status_code);
5461: END IF;
5462: CLOSE c_valid_unfilled_status_code;
5463: ELSE -- if unfilled status code is NULL
5467: FETCH c_valid_unfilled_status_name into l_unfilled_assign_status_code;
5468: IF c_valid_unfilled_status_name%NOTFOUND THEN
5469: -- Invalid unfilled status name has been passed .Here ,code is also nt passed
5470: l_error_flag_local := 'Y' ;
5471: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UNFILL_INV_STATUS',
5472: 'SOURCE_REQUIREMENT_ID',l_source_requirement_id,'UNFILLED_STATUS_NAME',l_unfilled_assign_status_name);
5473: END IF;
5474: CLOSE c_valid_unfilled_status_name;
5475: END IF;
5490: l_privilege := 'PA_PRM_DEFINE_TEAM_TEMPLATE';
5491: l_object_name := null;
5492: l_object_key := null;
5493: ELSE -- This wont happen though (using hard coded english for internal reference)
5494: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
5495: raise FND_API.G_EXC_ERROR;
5496: END IF;
5497:
5498: l_return_status := FND_API.G_RET_STS_SUCCESS;
5510: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5511:
5512: -- This message does not have token defined, but intentionally putting token
5513: -- because we still want to show the privilege name which is missing
5514: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_STAFF'
5515: ,'MISSING_PRIVILEGE', l_privilege);
5516: l_error_flag_local := 'Y';
5517: END IF;
5518: END IF;
5600: -- Always delete at first location in stack i.e. l_start_msg_count+1
5601: -- Because stack moves down after delete
5602: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
5603:
5604: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
5605: 'RECORD_NO', i,'MESSAGE', l_data);
5606: END LOOP;
5607: END IF;
5608: ---------------------------------------------------------------------------------------------
5908: END IF;
5909:
5910: IF l_missing_params IS NOT NULL THEN
5911: l_error_flag_local := 'Y';
5912: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
5913: 'INVALID_PARAMS', l_missing_params);
5914: END IF;
5915:
5916: IF l_error_flag_local <> 'Y' THEN
5918: FETCH c_derive_values INTO l_project_id ,l_team_template_id,l_status_code ;
5919: IF c_derive_values%NOTFOUND THEN
5920:
5921: l_error_flag_local := 'Y' ;
5922: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS'
5923: ,'TEAM_ROLE_ID',l_req_asgn_id); -- New message to say invalid team role
5924: ELSE -- If team role exists
5925: OPEN c_get_system_status ;
5926: FETCH c_get_system_status INTO l_system_status_code ;
5927: CLOSE c_get_system_status;
5928:
5929: IF l_system_status_code IN ('OPEN_ASGMT_CANCEL','OPEN_ASGMT_FILLED','STAFFED_ASGMT_CANCEL') THEN
5930: l_error_flag_local := 'Y' ;
5931: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_CP_STATUS'); -- New message
5932: END IF;
5933:
5934: END IF;
5935: CLOSE c_derive_values;
5954: l_privilege := 'PA_PRM_DEFINE_TEAM_TEMPLATE';
5955: l_object_name := null;
5956: l_object_key := null;*/
5957: ELSE -- This wont happen though (using hard coded english for internal reference)
5958: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
5959: raise FND_API.G_EXC_ERROR;
5960: END IF;
5961:
5962: l_return_status := FND_API.G_RET_STS_SUCCESS;
5974:
5975: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5976: -- This message does not have token defined, but intentionally putting token
5977: -- because we still want to show the privilege name which is missing
5978: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_COPY_TM_RO'
5979: ,'MISSING_PRIVILEGE', l_privilege);
5980: l_error_flag_local := 'Y';
5981: END IF;
5982:
6047: -- Always delete at first location in stack i.e. l_start_msg_count+1
6048: -- Because stack moves down after delete
6049: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
6050:
6051: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
6052: 'RECORD_NO', i,
6053: 'MESSAGE', l_data);
6054: END LOOP;
6055: END IF;
6537: l_validate, l_start_date_status, l_end_date_status);
6538:
6539: If l_validate = 'Y' and l_start_date_status = 'I' Then
6540:
6541: pa_utils.add_message
6542: ( p_app_short_name => 'PA'
6543: ,p_msg_name => 'PA_PJR_DATE_START_ERROR'
6544: ,p_token1 => 'PROJ_TXN_START_DATE'
6545: ,p_value1 => GET_PROJECT_START_DATE(l_asgn_rec.project_id)
6553: End If;
6554:
6555: If l_validate = 'Y' and l_end_date_status = 'I' Then
6556:
6557: pa_utils.add_message
6558: ( p_app_short_name => 'PA'
6559: ,p_msg_name => 'PA_PJR_DATE_FINISH_ERROR'
6560: ,p_token1 => 'PROJ_TXN_END_DATE'
6561: ,p_value1 => GET_PROJECT_COMPLETION_DATE(l_asgn_rec.project_id)
7009: ,x_return_status => l_return_status
7010: );
7011:
7012: IF l_out_location_id IS NULL THEN
7013: PA_UTILS.ADD_MESSAGE('PA','PA_AMG_RES_INV_CRC_COMB');
7014: l_error_flag_local := 'Y'; -- 5148975
7015: ELSE
7016: l_asgn_rec.location_id := l_out_location_id;
7017: END IF;
7112: pa_debug.write(l_module, 'Mandatory parameter validation over. List of Missing Parameters='||l_missing_params, l_log_level);
7113: END IF;
7114:
7115: IF l_missing_params IS NOT NULL THEN
7116: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
7117: 'INVALID_PARAMS', l_missing_params);
7118: l_error_flag_local := 'Y';
7119: END IF;
7120:
7141: ,x_return_status => l_return_status
7142: ,x_error_message_code => l_error_message_code );
7143:
7144: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7145: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
7146: l_error_flag_local := 'Y';
7147: END IF;
7148: END IF;
7149: IF l_asgn_rec.project_name IS NOT NULL THEN
7158: ,x_return_status => l_return_status
7159: ,x_error_msg_code => l_error_message_code );
7160:
7161: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7162: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
7163: l_error_flag_local := 'Y';
7164: END IF;
7165: END IF;
7166: END IF; -- l_error_flag_local <> 'Y' AND l_asgn_rec.team_template_id IS NULL
7255: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
7256: END IF;
7257:
7258: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7259: PA_UTILS.ADD_MESSAGE('PA', l_error_message_code);
7260: l_error_flag_local := 'Y';
7261: END IF;
7262:
7263: IF l_debug_mode = 'Y' THEN
7308:
7309: IF l_asgn_rec.bill_rate_option = 'RATE' THEN
7310: 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*/
7311: IF l_br_override_flag <> 'Y' THEN
7312: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
7313: l_error_flag_local := 'Y';
7314: ELSE
7315: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
7316: l_error_flag_local := 'Y';
7311: IF l_br_override_flag <> 'Y' THEN
7312: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
7313: l_error_flag_local := 'Y';
7314: ELSE
7315: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
7316: l_error_flag_local := 'Y';
7317: END IF;
7318: END IF;
7319: -- 5144288, 5144369 : Added bill rate currency check below
7342: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
7343: END IF;
7344:
7345: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7346: PA_UTILS.ADD_MESSAGE('PA', 'PA_CISI_CURRENCY_NULL');
7347: l_error_flag_local := 'Y';
7348: END IF;
7349: END IF;
7350: -- 5144288, 5144369 : End
7352: -- 5144675 Changed l_asgn_rec.markup_percent_override <=0 to < 0
7353: IF l_br_override_flag <> 'Y' OR l_asgn_rec.markup_percent_override < 0
7354: OR l_asgn_rec.markup_percent_override > 100 THEN
7355: IF l_br_override_flag <> 'Y' THEN
7356: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
7357: l_error_flag_local := 'Y';
7358: ELSE
7359: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
7360: l_error_flag_local := 'Y';
7355: IF l_br_override_flag <> 'Y' THEN
7356: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
7357: l_error_flag_local := 'Y';
7358: ELSE
7359: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
7360: l_error_flag_local := 'Y';
7361: END IF;
7362: END IF;
7363: ELSIF l_asgn_rec.bill_rate_option = 'DISCOUNT' THEN
7364: -- 5144675 Changed l_asgn_rec.discount_percentage <= 0 to < 0
7365: IF l_br_discount_override_flag <> 'Y' OR l_asgn_rec.discount_percentage < 0
7366: OR l_asgn_rec.discount_percentage > 100 THEN
7367: IF l_br_discount_override_flag <> 'Y' THEN
7368: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
7369: l_error_flag_local := 'Y';
7370: ELSE
7371: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
7372: l_error_flag_local := 'Y';
7367: IF l_br_discount_override_flag <> 'Y' THEN
7368: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
7369: l_error_flag_local := 'Y';
7370: ELSE
7371: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
7372: l_error_flag_local := 'Y';
7373: END IF;
7374: END IF;
7375: END IF;
7377: IF (l_rate_discount_reason_flag ='Y' AND (l_br_override_flag ='Y' OR l_br_discount_override_flag='Y') AND
7378: (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)
7379: )
7380: THEN
7381: PA_UTILS.ADD_MESSAGE('PA', 'PA_RATE_DISC_REASON_REQUIRED');
7382: l_error_flag_local := 'Y';
7383: END IF;
7384: ELSE
7385: l_valid_flag := 'N';
7386: OPEN c_get_lookup_exists('RATE AND DISCOUNT REASON', l_asgn_rec.rate_disc_reason_code);
7387: FETCH c_get_lookup_exists INTO l_valid_flag;
7388: CLOSE c_get_lookup_exists;
7389: IF nvl(l_valid_flag,'N') <> 'Y' THEN
7390: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_RSN_INVALID');
7391: l_error_flag_local := 'Y';
7392: END IF;
7393: END IF;
7394:
7408:
7409: IF l_asgn_rec.tp_rate_option = 'RATE' THEN
7410: -- 5144675 Changed l_asgn_rec.tp_rate_override <= to < 0
7411: IF l_asgn_rec.tp_rate_override < 0 OR l_asgn_rec.tp_rate_override > 100 THEN
7412: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_TP_RATE_OVRD');
7413: l_error_flag_local := 'Y';
7414: END IF;
7415:
7416: l_return_status := FND_API.G_RET_STS_SUCCESS;
7435: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
7436: END IF;
7437:
7438: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7439: PA_UTILS.ADD_MESSAGE('PA', 'PA_CURR_NOT_VALID');
7440: l_error_flag_local := 'Y';
7441: END IF;
7442: ELSIF l_asgn_rec.tp_rate_option = 'BASIS' THEN
7443: -- 5144675 Changed l_asgn_rec.tp_percent_applied_override <= to < 0
7441: END IF;
7442: ELSIF l_asgn_rec.tp_rate_option = 'BASIS' THEN
7443: -- 5144675 Changed l_asgn_rec.tp_percent_applied_override <= to < 0
7444: IF l_asgn_rec.tp_percent_applied_override < 0 OR l_asgn_rec.tp_percent_applied_override > 100 THEN
7445: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_APPLY_BASIS_PERCENT');
7446: l_error_flag_local := 'Y';
7447: END IF;
7448: l_valid_flag := 'N';
7449: IF l_debug_mode = 'Y' THEN
7459: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
7460: END IF;
7461:
7462: IF nvl(l_valid_flag,'N') <> 'Y' THEN
7463: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_TP_BASIS_INVALID');
7464: l_error_flag_local := 'Y';
7465: END IF;
7466: END IF;
7467:
7489: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
7490: END IF;
7491:
7492: IF nvl(l_valid_flag,'N') <> 'Y' THEN
7493: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_EXP_OWNER_INVALID');
7494: l_error_flag_local := 'Y';
7495: END IF;
7496: END IF;
7497: END IF; -- l_error_flag_local <> 'Y' AND l_asgn_rec.assignment_type = 'STAFFED_ASSIGNMENT'
7537:
7538: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7539: -- This message does not have toekn defined, still it is ok to pass token as the value
7540: -- returned by flex APIs because token are appended as it is
7541: PA_UTILS.ADD_MESSAGE('PA', 'PA_DFF_VALIDATION_FAILED',
7542: 'MESSAGE', l_msg_data );
7543: l_error_flag_local := 'Y';
7544: END IF;
7545: END IF; -- l_error_flag_local <> 'Y'
7632:
7633: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7634: -- This message does not have token defined, but intentionally putting token
7635: -- bcoz we still want to show the privielge name which is missing
7636: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_CR_DL'
7637: ,'MISSING_PRIVILEGE', l_privilege);
7638: l_error_flag_local := 'Y';
7639: END IF;
7640: END IF;
7836: -- Always delete at first location in stack i.e. l_start_msg_count+1
7837: -- Because stack moves down after delete
7838: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
7839:
7840: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
7841: 'RECORD_NO', i,
7842: 'MESSAGE', l_data);
7843: END LOOP;
7844: IF l_debug_mode = 'Y' THEN
8166: l_validate, l_start_date_status, l_end_date_status);
8167:
8168: If l_validate = 'Y' and l_start_date_status = 'I' Then
8169:
8170: pa_utils.add_message
8171: ( p_app_short_name => 'PA'
8172: ,p_msg_name => 'PA_PJR_DATE_START_ERROR'
8173: ,p_token1 => 'PROJ_TXN_START_DATE'
8174: ,p_value1 => GET_PROJECT_START_DATE(l_asgn_rec.project_id)
8182: End If;
8183:
8184: If l_validate = 'Y' and l_end_date_status = 'I' Then
8185:
8186: pa_utils.add_message
8187: ( p_app_short_name => 'PA'
8188: ,p_msg_name => 'PA_PJR_DATE_FINISH_ERROR'
8189: ,p_token1 => 'PROJ_TXN_END_DATE'
8190: ,p_value1 => GET_PROJECT_COMPLETION_DATE(l_asgn_rec.project_id)
8227: CLOSE c_sys_status_code ;
8228:
8229: IF l_apprvl_sys_status_code in ('ASGMT_APPRVL_CANCELED','ASGMT_APPRVL_SUBMITTED') THEN
8230: l_error_flag_local := 'Y';
8231: PA_UTILS.ADD_MESSAGE('PA','PA_AMG_RES_INV_UP_ASG_STATUS') ;-- Need new msg
8232: -- Discuss with Amit
8233: END IF;
8234:
8235: IF nvl(l_asgn_db_values_rec.mass_wf_in_progress_flag, 'N') = 'Y' THEN
8232: -- Discuss with Amit
8233: END IF;
8234:
8235: IF nvl(l_asgn_db_values_rec.mass_wf_in_progress_flag, 'N') = 'Y' THEN
8236: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
8237: l_error_flag_local := 'Y';
8238: END IF;
8239:
8240: END IF;
8385: -- In DB,No Country has been specified yet.
8386: -- User is not passing Country Value
8387: -- But user is trying to specify State or City
8388: -- We should nt allow it
8389: --PA_UTILS.ADD_MESSAGE('PA','PA_COUNTRY_INVALID');
8390: l_missing_params := l_missing_params||', LOCATION_COUNTRY_CODE, LOCATION_COUNTRY_NAME';
8391: l_valid_country := 'N';
8392: END IF;
8393: ELSIF l_asgn_rec.location_country_code IS NOT NULL
8473: ,x_return_status => l_return_status
8474: );
8475:
8476: IF l_out_location_id IS NULL THEN
8477: PA_UTILS.ADD_MESSAGE('PA','PA_AMG_RES_INV_CRC_COMB'); -- New message to say ,Invalid comb
8478: l_error_flag_local := 'Y'; -- 5148975
8479: END IF;
8480: END IF;
8481: --
8486: pa_debug.write(l_module, 'Mandatory parameter validation over.List of Missing Parameters='||l_missing_params, l_log_level);
8487: END IF;
8488:
8489: IF l_missing_params IS NOT NULL THEN
8490: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
8491: 'INVALID_PARAMS', l_missing_params);
8492: l_error_flag_local := 'Y';
8493: END IF;
8494:
8806:
8807: IF l_asgn_rec.bill_rate_option = 'RATE' THEN
8808: 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*/
8809: IF l_br_override_flag <> 'Y' THEN
8810: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
8811: l_error_flag_local := 'Y';
8812: ELSE
8813: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
8814: l_error_flag_local := 'Y';
8809: IF l_br_override_flag <> 'Y' THEN
8810: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
8811: l_error_flag_local := 'Y';
8812: ELSE
8813: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_BILL_RATE_OVRD');
8814: l_error_flag_local := 'Y';
8815: END IF;
8816: END IF;
8817: -- 5144288, 5144369 : Begin
8843: pa_debug.write(l_module, 'l_error_message_code='||l_error_message_code, l_log_level);
8844: END IF;
8845:
8846: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8847: PA_UTILS.ADD_MESSAGE('PA', 'PA_CISI_CURRENCY_NULL');
8848: l_error_flag_local := 'Y';
8849: END IF;
8850: END IF;
8851: -- 5144288, 5144369 : End
8853: -- 5144675 Changed l_asgn_rec.markup_percent_override <=0 to < 0
8854: IF l_br_override_flag <> 'Y' OR l_asgn_rec.markup_percent_override < 0
8855: OR l_asgn_rec.markup_percent_override > 100 THEN
8856: IF l_br_override_flag <> 'Y' THEN
8857: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
8858: l_error_flag_local := 'Y';
8859: ELSE
8860: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
8861: l_error_flag_local := 'Y';
8856: IF l_br_override_flag <> 'Y' THEN
8857: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_BILL_RATE_OVRD_NA');
8858: l_error_flag_local := 'Y';
8859: ELSE
8860: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_MARKUP_PERCENT');
8861: l_error_flag_local := 'Y';
8862: END IF;
8863: END IF;
8864: ELSIF l_asgn_rec.bill_rate_option = 'DISCOUNT' THEN
8865: -- 5144675 Changed l_asgn_rec.discount_percentage <= 0 to < 0
8866: IF l_br_discount_override_flag <> 'Y' OR l_asgn_rec.discount_percentage < 0
8867: OR l_asgn_rec.discount_percentage > 100 THEN
8868: IF l_br_discount_override_flag <> 'Y' THEN
8869: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
8870: l_error_flag_local := 'Y';
8871: ELSE
8872: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
8873: l_error_flag_local := 'Y';
8868: IF l_br_discount_override_flag <> 'Y' THEN
8869: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_OVRD_NA');
8870: l_error_flag_local := 'Y';
8871: ELSE
8872: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_DISCOUNT_PERCENT');
8873: l_error_flag_local := 'Y';
8874: END IF;
8875: END IF;
8876: END IF;
8879: IF (l_rate_discount_reason_flag ='Y' AND (l_br_override_flag ='Y' OR l_br_discount_override_flag='Y') AND
8880: (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)
8881: )
8882: THEN
8883: PA_UTILS.ADD_MESSAGE('PA', 'PA_RATE_DISC_REASON_REQUIRED');
8884: l_error_flag_local := 'Y';
8885: END IF;
8886: ELSE
8887: l_valid_flag := 'N';
8888: OPEN c_get_lookup_exists('RATE AND DISCOUNT REASON', l_asgn_rec.rate_disc_reason_code);
8889: FETCH c_get_lookup_exists INTO l_valid_flag;
8890: CLOSE c_get_lookup_exists;
8891: IF nvl(l_valid_flag,'N') <> 'Y' THEN
8892: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_DISC_RSN_INVALID');
8893: l_error_flag_local := 'Y';
8894: END IF;
8895: END IF;
8896:
8925: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
8926: END IF;
8927:
8928: IF nvl(l_valid_flag,'N') <> 'Y' THEN
8929: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_TP_BASIS_INVALID');
8930: l_error_flag_local := 'Y';
8931: END IF;
8932: END IF;
8933:
8955: pa_debug.write(l_module, 'l_valid_flag='||l_valid_flag, l_log_level);
8956: END IF;
8957:
8958: IF nvl(l_valid_flag,'N') <> 'Y' THEN
8959: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_EXP_OWNER_INVALID');
8960: l_error_flag_local := 'Y';
8961: END IF;
8962: END IF;
8963: IF l_debug_mode = 'Y' THEN
9000:
9001: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9002: -- This message does not have toekn defined, still it is ok to pass token as the value
9003: -- returned by flex APIs because token are appended as it is
9004: PA_UTILS.ADD_MESSAGE('PA', 'PA_DFF_VALIDATION_FAILED',
9005: 'MESSAGE', l_msg_data );
9006: l_error_flag_local := 'Y';
9007: END IF;
9008: END IF;
9145: END IF ;
9146: END IF;
9147:
9148: IF nvl(l_ret_code,'F') <> 'T' OR (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
9149: PA_UTILS.ADD_MESSAGE('PA', 'PA_UPD_ASGN_BASIC_INFO'
9150: ,'MISSING_PRIVILEGE', l_privilege);
9151: l_error_flag_local := 'Y';
9152: END IF;
9153: END IF; -- End If basic info changed
9220: END IF ;
9221: END IF;
9222:
9223: IF nvl(l_ret_code,'F') <> 'T' OR (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
9224: PA_UTILS.ADD_MESSAGE('PA', 'PA_UPD_ASGN_FIN_INFO'
9225: ,'MISSING_PRIVILEGE', l_privilege);
9226: l_error_flag_local := 'Y';
9227: END IF;
9228:
9285: END IF ;
9286: END IF;
9287:
9288: IF nvl(l_ret_code,'F') <> 'T' OR (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
9289: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UPD_ASGN_BR_INFO'
9290: ,'MISSING_PRIVILEGE', l_privilege);
9291: l_error_flag_local := 'Y';
9292: END IF;
9293: END IF ; -- End If l_fin_bill_rate_info_changed
9350: END IF ;
9351: END IF;
9352:
9353: IF nvl(l_ret_code,'F') <> 'T' OR (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
9354: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_UPD_ASGN_TP_INFO'
9355: ,'MISSING_PRIVILEGE', l_privilege);
9356: l_error_flag_local := 'Y';
9357: END IF;
9358: END IF;-- l_fin_tp_rate_info_changed = 'Y'
9547: -- Always delete at first location in stack i.e. l_start_msg_count+1
9548: -- Because stack moves down after delete
9549: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
9550:
9551: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
9552: 'RECORD_NO', i,
9553: 'MESSAGE', l_data);
9554: END LOOP;
9555: IF l_debug_mode = 'Y' THEN
9881: END IF;
9882:
9883: IF l_missing_params IS NOT NULL THEN
9884: l_error_flag_local := 'Y';
9885: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
9886: 'INVALID_PARAMS', l_missing_params);
9887: END IF;
9888:
9889: l_assignment_id := l_req_rec.assignment_id;
9893: 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;
9894:
9895: IF CUR_ASSIGNMENT_DETAILS%NOTFOUND THEN
9896: l_error_flag_local := 'Y';
9897: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
9898: 'INVALID_PARAMS', 'ASSIGNMENT_ID');
9899: END IF;
9900:
9901: CLOSE CUR_ASSIGNMENT_DETAILS;
9916: IF l_system_status_code = 'STAFFED_ASGMT_CANCEL'
9917: OR l_apprvl_sys_status_code IN ('ASGMT_APPRVL_SUBMITTED','ASGMT_APPRVL_CANCELED')
9918: OR NVL(l_mass_wf_in_progress_flag,'N') = 'Y' THEN
9919: --- Need more specific Generic Message.
9920: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
9921: l_error_flag_local := 'Y';
9922: END IF;
9923:
9924: IF l_error_flag_local <> 'Y' THEN
9964: , x_msg_data => l_msg_data
9965: , p_init_msg_list => FND_API.G_FALSE);
9966: END IF;
9967: ELSE
9968: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
9969: raise FND_API.G_EXC_ERROR;
9970: END IF;
9971:
9972: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9971:
9972: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9973: -- This message does not have token defined, but intentionally putting token
9974: -- because we still want to show the privilege name which is missing
9975: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_CR_DL'
9976: ,'MISSING_PRIVILEGE', l_privilege);
9977: l_error_flag_local := 'Y';
9978: END IF;
9979: END IF;
10025: -- Always delete at first location in stack i.e. l_start_msg_count+1
10026: -- Because stack moves down after delete
10027: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
10028:
10029: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
10030: 'RECORD_NO', i,
10031: 'MESSAGE', l_data);
10032: END LOOP;
10033: END IF;
10374: END IF;
10375:
10376: IF l_missing_params IS NOT NULL THEN
10377: l_error_flag_local := 'Y';
10378: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
10379: 'INVALID_PARAMS', l_missing_params);
10380: END IF;
10381:
10382: IF l_error_flag_local <> 'Y' THEN --------- (1)
10387: 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;
10388: IF c_valid_asgn_id%NOTFOUND THEN
10389: l_missing_params := l_missing_params||' ,ASSIGNMENT_ID' ;
10390: l_error_flag_local := 'Y';
10391: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
10392: 'INVALID_PARAMS', l_missing_params);
10393: ELSE -- The passed Id is a valid assignment
10394:
10395: IF nvl(l_mass_wf_in_progress_flag,'N') = 'Y' THEN
10392: 'INVALID_PARAMS', l_missing_params);
10393: ELSE -- The passed Id is a valid assignment
10394:
10395: IF nvl(l_mass_wf_in_progress_flag,'N') = 'Y' THEN
10396: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
10397: l_error_flag_local := 'Y';
10398: END IF;
10399:
10400: OPEN c_sys_status_code(l_apprvl_status_code);
10403:
10404: IF l_apprvl_sys_status_code in ('ASGMT_APPRVL_CANCELED','ASGMT_APPRVL_SUBMITTED','ASGMT_APPRVL_APPROVED')
10405: THEN
10406: -- We can submit only if the approval status is Working or Requires resubmission
10407: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
10408: l_error_flag_local := 'Y'; -- Modify above new err msg for Approved also
10409: END IF;
10410: END IF;
10411: CLOSE c_valid_asgn_id ;
10412:
10413: -- Validate the flag value passed for Auto Approve
10414: IF l_asgn_rec.auto_approve not in ('Y','N') THEN
10415: l_error_flag_local := 'Y';
10416: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS','INVALID_PARAMS','AUTO_APPROVE');
10417: END IF;
10418: --------------------------------------------------------
10419: -- Derive x_new_assignment_flag and x_approval_required
10420: --------------------------------------------------------
10443: -- So, Just rely on (l_after_api_msg_count - l_before_api_msg_count) value
10444:
10445: IF (l_after_api_msg_count - l_before_api_msg_count) > 0 THEN
10446: l_error_flag_local := 'Y';
10447: -- PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
10448: END IF;
10449:
10450: END IF;
10451: ------------------------------------------------------------------
10504: pa_debug.write(l_module, 'Populating PA_ASGN_CONFIRM_NOT_ALLOWED',l_log_level);
10505: END IF;
10506:
10507: l_error_flag_local := 'Y';
10508: PA_UTILS.Add_Message ( 'PA','PA_ASGN_CONFIRM_NOT_ALLOWED');
10509: -- Can we use PA_ASGN_CONFIRM_NOT_ALLOWED
10510: -- In TAD its given as PA_NO_RESOURCE_AUTHORITY ,its not appropriate
10511: END IF;
10512:
10577: OR
10578: (l_apr_person_id_1 is NULL AND l_apr_person_id_2 is NULL)
10579: THEN
10580: l_error_flag_local := 'Y';
10581: PA_UTILS.ADD_MESSAGE('PA','PA_NO_NON_EXCLUDED_APR');
10582: END IF;
10583:
10584: -- Bug 5175869 : Start
10585: IF l_apr_person_id_1 IS NOT NULL THEN
10586: l_valid := 'N';
10587: l_valid := IS_VALID_APPROVER(l_apr_person_id_1,l_resource_id,l_start_date);
10588: IF l_valid = 'N' THEN
10589: l_error_flag_local := 'Y';
10590: PA_UTILS.ADD_MESSAGE('PA','PA_INVALID_APPRVR'
10591: ,'APPROVER_ID',l_apr_person_id_1);
10592: END IF;
10593: END IF;
10594:
10596: l_valid := 'N';
10597: l_valid := IS_VALID_APPROVER(l_apr_person_id_2,l_resource_id,l_start_date);
10598: IF l_valid = 'N' THEN
10599: l_error_flag_local := 'Y';
10600: PA_UTILS.ADD_MESSAGE('PA','PA_INVALID_APPRVR'
10601: ,'APPROVER_ID',l_apr_person_id_2);
10602: END IF;
10603: END IF;
10604:
10716: -- Always delete at first location in stack i.e. l_start_msg_count+1
10717: -- Because stack moves down after delete
10718: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
10719:
10720: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
10721: 'RECORD_NO', i,
10722: 'MESSAGE', l_data);
10723: END LOOP;
10724: IF l_debug_mode = 'Y' THEN
11062: END IF ;
11063:
11064: IF l_miss_params IS NOT NULL THEN
11065: l_local_error_flag :='Y';
11066: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
11067: 'INVALID_PARAMS', l_miss_params);
11068: END IF ;
11069:
11070: IF l_debug_mode = 'Y' THEN
11084:
11085: IF cur_assign_info%NOTFOUND THEN
11086: l_local_error_flag := 'Y';
11087: l_miss_params := l_miss_params||', REQUIREMENT_ID';
11088: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
11089: 'INVALID_PARAMS', l_miss_params);
11090: END IF;
11091:
11092: CLOSE cur_assign_info;
11112: l_object_name := 'PA_PROJECTS';
11113: l_object_key := l_project_id;
11114: ELSE
11115: -- This should never happen.
11116: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
11117: raise FND_API.G_EXC_ERROR;
11118: END IF;
11119:
11120: IF l_debug_mode = 'Y' THEN
11175: IF l_debug_mode = 'Y' THEN
11176: pa_debug.write(l_module, 'User Dont have Privillege to modify this Requirement', l_debug_level);
11177: END IF ;
11178:
11179: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_COMP'
11180: ,'MISSING_PRIVILEGE', l_privilege);
11181: l_local_error_flag := 'Y';
11182: END IF ;
11183: -- checking Requiremnet Status
11181: l_local_error_flag := 'Y';
11182: END IF ;
11183: -- checking Requiremnet Status
11184: IF l_req_sys_status_code IN ('ASGMT_APPRVL_SUBMITTED','OPEN_ASGMT_FILLED', 'ASGMT_APPRVL_CANCELED') THEN
11185: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
11186: l_local_error_flag := 'Y';
11187: END IF ;
11188: -- Checking WF status..
11189: IF l_wf_progress_flag = 'Y' THEN
11186: l_local_error_flag := 'Y';
11187: END IF ;
11188: -- Checking WF status..
11189: IF l_wf_progress_flag = 'Y' THEN
11190: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
11191: l_local_error_flag := 'Y';
11192: END IF;
11193:
11194: IF l_debug_mode = 'Y' THEN
11266: , p_msg_index_out => l_msg_index_out );
11267:
11268: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
11269: -- Adding Record Number to The Message.
11270: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
11271: 'RECORD_NO', i,
11272: 'MESSAGE', l_data);
11273: END LOOP;
11274:
11591: END IF;
11592:
11593: IF l_miss_params IS NOT NULL THEN
11594: l_local_error_flag := 'Y';
11595: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
11596: 'INVALID_PARAMS', l_miss_params);
11597: END IF;
11598:
11599: IF l_local_error_flag <> 'Y' THEN
11611: -- checking the validity of l_competence_element_id
11612: IF cur_competence_details%NOTFOUND THEN
11613: l_local_error_flag := 'Y';
11614: l_miss_params := l_miss_params || 'P_COMPETENCE_ELEMENT_ID';
11615: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
11616: 'INVALID_PARAMS', l_miss_params);
11617: END IF;
11618: -- closing the cursor
11619: CLOSE cur_competence_details;
11624: FETCH cur_competence_details_alt INTO l_cur_competence_in_rec;
11625: -- checking the validity of l_requirement_id,l_competence_id
11626: IF cur_competence_details_alt%NOTFOUND THEN
11627: l_local_error_flag := 'Y';
11628: PA_UTILS.ADD_MESSAGE('PA', 'PA_INVALID_ASGMT_ID');
11629: END IF;
11630: --Closing the cursor
11631: CLOSE cur_competence_details_alt;
11632: -- Populating the competence element id
11712: l_object_name := null;
11713: l_object_key := null;
11714: ELSE
11715: -- This should never happen.
11716: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
11717: raise FND_API.G_EXC_ERROR;
11718: END IF;
11719:
11720: IF l_debug_mode = 'Y' THEN
11770:
11771: IF (nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
11772: -- This message does not have token defined, but intentionally putting token
11773: -- bcoz we still want to show the privielge name which is missing
11774: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_COMP'
11775: ,'MISSING_PRIVILEGE', l_privilege);
11776: l_local_error_flag := 'Y';
11777: END IF ;
11778: -- checking Assignment Status.
11776: l_local_error_flag := 'Y';
11777: END IF ;
11778: -- checking Assignment Status.
11779: IF l_req_sys_status_code IN ('ASGMT_APPRVL_SUBMITTED', 'OPEN_ASGMT_FILLED', 'ASGMT_APPRVL_CANCELED') THEN
11780: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
11781: l_local_error_flag := 'Y';
11782: END IF ;
11783: -- Checking WF status..
11784: IF l_wf_progress_flag = 'Y' THEN
11781: l_local_error_flag := 'Y';
11782: END IF ;
11783: -- Checking WF status..
11784: IF l_wf_progress_flag = 'Y' THEN
11785: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
11786: l_local_error_flag := 'Y';
11787: END IF;
11788:
11789: IF l_debug_mode = 'Y' THEN
11845: , p_msg_index_out => l_msg_index_out );
11846:
11847: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
11848: -- Adding Record Number to The Message.
11849: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
11850: 'RECORD_NO', i,
11851: 'MESSAGE', l_data);
11852:
11853: END LOOP;
12158: END IF;
12159:
12160: IF l_miss_params IS NOT NULL THEN
12161: l_local_error_flag := 'Y';
12162: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
12163: 'INVALID_PARAMS', l_miss_params);
12164: END IF;
12165:
12166: IF l_local_error_flag <> 'Y' THEN
12169: -- Checking for the validity of competence id
12170: IF cur_competence_details%NOTFOUND THEN
12171: l_local_error_flag := 'Y';
12172: l_miss_params := l_miss_params || 'COMPETENCE_ELEMENT_ID';
12173: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
12174: 'INVALID_PARAMS', l_miss_params);
12175: END IF;
12176:
12177: CLOSE cur_competence_details;
12210: l_object_name := null;
12211: l_object_key := null;
12212: ELSE
12213: -- This should never happen.
12214: PA_UTILS.ADD_MESSAGE('PA', 'PA_UNEXPECTED ERROR');
12215: raise FND_API.G_EXC_ERROR;
12216: END IF;
12217:
12218: IF l_debug_mode = 'Y' THEN
12269:
12270: IF (nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12271: -- This message does not have token defined, but intentionally putting token
12272: -- bcoz we still want to show the privielge name which is missing
12273: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_COMP'
12274: ,'MISSING_PRIVILEGE', l_privilege);
12275: l_local_error_flag := 'Y';
12276: END IF ;
12277: -- checking Assignment Status.
12276: END IF ;
12277: -- checking Assignment Status.
12278: IF l_req_sys_status_code IN ('ASGMT_APPRVL_SUBMITTED','OPEN_ASGMT_FILLED', 'ASGMT_APPRVL_CANCELED') THEN
12279: -- Need more specific message saying.. cant edit assignment.
12280: PA_UTILS.ADD_MESSAGE('PA','PA_ASSIGNMENT_WF');
12281: l_local_error_flag := 'Y';
12282: END IF ;
12283: -- Checking WF status..
12284: IF l_wf_progress_flag = 'Y' THEN
12281: l_local_error_flag := 'Y';
12282: END IF ;
12283: -- Checking WF status..
12284: IF l_wf_progress_flag = 'Y' THEN
12285: PA_UTILS.ADD_MESSAGE('PA','PA_ASSIGNMENT_WF');
12286: l_local_error_flag := 'Y';
12287: END IF;
12288:
12289: IF l_debug_mode = 'Y' THEN
12350: , p_msg_index_out => l_msg_index_out );
12351:
12352: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
12353: -- Adding Record Number to The Message.
12354: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
12355: 'RECORD_NO', i,
12356: 'MESSAGE', l_data);
12357: END LOOP;
12358: END IF;
12723: FETCH c_get_system_status_code INTO l_system_status_code;
12724: CLOSE c_get_system_status_code;
12725:
12726: IF l_system_status_code IN ('OPEN_ASGMT_FILLED','OPEN_ASGMT_CANCEL') THEN
12727: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_STS_ACT_NOT_ALLW');
12728: l_error_flag_local := 'Y';
12729: END IF;
12730:
12731: IF nvl(l_mass_wf_in_progress_flag, 'N') = 'Y' THEN
12728: l_error_flag_local := 'Y';
12729: END IF;
12730:
12731: IF nvl(l_mass_wf_in_progress_flag, 'N') = 'Y' THEN
12732: PA_UTILS.ADD_MESSAGE('PA', 'PA_ASSIGNMENT_WF');
12733: l_error_flag_local := 'Y';
12734: END IF;
12735: END IF;
12736: CLOSE c_get_requirement_info;
12755: END IF;
12756:
12757: IF l_missing_params IS NOT NULL THEN
12758: l_error_flag_local := 'Y';
12759: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
12760: 'INVALID_PARAMS', l_missing_params);
12761: END IF;
12762:
12763:
12768: OPEN c_get_resource_info(l_candidate_in_rec.resource_id);
12769: FETCH c_get_resource_info INTO l_person_id;
12770: IF c_get_resource_info%NOTFOUND IS NULL THEN
12771: l_error_flag_local := 'Y';
12772: PA_UTILS.ADD_MESSAGE ( p_app_short_name => 'PA'
12773: ,p_msg_name => 'PA_RESOURCE_INVALID_AMBIGUOUS' );
12774: END IF;
12775: CLOSE c_get_resource_info;
12776: ELSIF l_candidate_in_rec.person_id IS NOT NULL THEN
12826: END IF;
12827: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12828: -- This message does not have token defined, but intentionally putting token
12829: -- bcoz we still want to show the privielge name which is missing
12830: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_CAND'
12831: ,'MISSING_PRIVILEGE', l_privilege);
12832: l_error_flag_local := 'Y';
12833: END IF;
12834:
12866: x_msg_data => l_msg_data);
12867:
12868: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12869: l_error_flag_local := 'Y';
12870: PA_UTILS.ADD_MESSAGE ( p_app_short_name => 'PA'
12871: ,p_msg_name => 'PA_NO_RESOURCE_AUTHORITY' );
12872: END IF;
12873:
12874: IF l_debug_mode = 'Y' THEN
12940: -- Always delete at first location in stack i.e. l_start_msg_count+1
12941: -- Because stack moves down after delete
12942: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
12943:
12944: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
12945: 'RECORD_NO', i,
12946: 'MESSAGE', l_data);
12947: END LOOP;
12948:
13272: pa_debug.write(l_module, 'Mandatory parameter validation over. List of Missing Parameters='||l_missing_params, l_log_level);
13273: END IF;
13274:
13275: IF l_missing_params IS NOT NULL THEN
13276: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
13277: 'INVALID_PARAMS', l_missing_params);
13278: l_error_flag_local := 'Y';
13279: END IF;
13280:
13326:
13327: IF l_project_id IS NULL THEN -- Check for requirement id valid and assignment type OPEN_ASSIGNMENT
13328: l_error_flag_local := 'Y';
13329: l_missing_params := l_missing_params||', REQUIREMENT_ID';
13330: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
13331: 'INVALID_PARAMS', l_missing_params);
13332: END IF;
13333:
13334: END IF;
13379: END IF;
13380: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13381: -- This message does not have token defined, but intentionally putting token
13382: -- bcoz we still want to show the privielge name which is missing
13383: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_CAND'
13384: ,'MISSING_PRIVILEGE', l_privilege);
13385: l_error_flag_local := 'Y';
13386: END IF;
13387:
13459: -- Always delete at first location in stack i.e. l_start_msg_count+1
13460: -- Because stack moves down after delete
13461: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
13462:
13463: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
13464: 'RECORD_NO', i,
13465: 'MESSAGE', l_data);
13466: END LOOP;
13467:
13727: END IF;
13728:
13729: IF l_missing_params IS NOT NULL THEN
13730: l_error_flag_local := 'Y';
13731: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
13732: 'INVALID_PARAMS', l_missing_params);
13733: END IF;
13734:
13735: IF l_error_flag_local <> 'Y' THEN
13741: -- IF l_project_id IS NULL THEN -- Check for requirement id valid and assignment type OPEN_ASSIGNMENT -- Commented for Bug 5178399
13742: IF c_get_requirement_info%NOTFOUND THEN -- Check for requirement id valid and assignment type OPEN_ASSIGNMENT -- Added for Bug 5178399
13743: l_error_flag_local := 'Y';
13744: l_missing_params := l_missing_params||', REQUIREMENT_ID';
13745: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
13746: 'INVALID_PARAMS', l_missing_params);
13747: END IF;
13748:
13749: CLOSE c_get_requirement_info; -- Added for Bug 5178399
13806: END IF;
13807: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13808: -- This message does not have token defined, but intentionally putting token
13809: -- bcoz we still want to show the privielge name which is missing
13810: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_CAND'
13811: ,'MISSING_PRIVILEGE', l_privilege);
13812: l_error_flag_local := 'Y';
13813: END IF;
13814:
13900: -- Always delete at first location in stack i.e. l_start_msg_count+1
13901: -- Because stack moves down after delete
13902: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
13903:
13904: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
13905: 'RECORD_NO', i,
13906: 'MESSAGE', l_data);
13907: END LOOP;
13908:
14220: pa_debug.write(l_module, 'Mandatory parameter validation over. List of Missing Parameters='||l_missing_params, l_log_level);
14221: END IF;
14222:
14223: IF l_missing_params IS NOT NULL THEN
14224: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
14225: 'INVALID_PARAMS', l_missing_params);
14226: l_error_flag_local := 'Y';
14227: END IF;
14228:
14278: END IF;
14279: IF nvl(l_ret_code, 'F') = 'F' OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14280: -- This message does not have token defined, but intentionally putting token
14281: -- bcoz we still want to show the privielge name which is missing
14282: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_REQ_ADD_CAND_LOG'
14283: ,'MISSING_PRIVILEGE', l_privilege);
14284: l_error_flag_local := 'Y';
14285: END IF;
14286:
14363: -- Always delete at first location in stack i.e. l_start_msg_count+1
14364: -- Because stack moves down after delete
14365: FND_MSG_PUB.DELETE_MSG(p_msg_index => l_start_msg_count+1);
14366:
14367: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_ERROR_MSG',
14368: 'RECORD_NO', i,
14369: 'MESSAGE', l_data);
14370: END LOOP;
14371: