[Home] [Help]
84:
85: IF l_project_id_csr%NOTFOUND
86: THEN
87: CLOSE l_project_id_csr;
88: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_PROJ_ID',
89: x_err_code => x_err_code,
90: x_err_buff => x_err_stage);
91:
92: APP_EXCEPTION.RAISE_EXCEPTION;
103:
104: IF l_project_number_csr%NOTFOUND
105: THEN
106: CLOSE l_project_number_csr;
107: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_PROJ_NUM',
108: x_err_code => x_err_code,
109: x_err_buff => x_err_stage);
110:
111: APP_EXCEPTION.RAISE_EXCEPTION;
113:
114: CLOSE l_project_number_csr;
115:
116: ELSE
117: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJECT_REF_AND_ID_MISSING',
118: x_err_code => x_err_code,
119: x_err_buff => x_err_stage);
120:
121: APP_EXCEPTION.RAISE_EXCEPTION;
125:
126: EXCEPTION
127: WHEN OTHERS
128: THEN
129: gms_error_pkg.gms_message(x_err_name => 'GMS_UNEXPECTED_ERROR',
130: x_token_name1 => 'SQLCODE',
131: x_token_val1 => sqlcode,
132: x_token_name2 => 'SQLERRM',
133: x_token_val2 => sqlerrm,
184:
185: IF l_task_id_csr%NOTFOUND
186: THEN
187: CLOSE l_task_id_csr;
188: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_PROJ_TASK_ID',
189: x_err_code => x_err_code,
190: x_err_buff => x_err_stage);
191:
192: APP_EXCEPTION.RAISE_EXCEPTION;
203:
204: IF l_task_number_csr%NOTFOUND
205: THEN
206: CLOSE l_task_number_csr;
207: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_PROJ_TASK_NUM',
208: x_err_code => x_err_code,
209: x_err_buff => x_err_stage);
210:
211: APP_EXCEPTION.RAISE_EXCEPTION;
213:
214: CLOSE l_task_number_csr;
215:
216: ELSE
217: gms_error_pkg.gms_message(x_err_name => 'GMS_TASK_NUM_AND_ID_MISSING',
218: x_err_code => x_err_code,
219: x_err_buff => x_err_stage);
220:
221: APP_EXCEPTION.RAISE_EXCEPTION;
225:
226: EXCEPTION
227: WHEN OTHERS
228: THEN
229: gms_error_pkg.gms_message(x_err_name => 'GMS_UNEXPECTED_ERROR',
230: x_token_name1 => 'SQLCODE',
231: x_token_val1 => sqlcode,
232: x_token_name2 => 'SQLERRM',
233: x_token_val2 => sqlerrm,
282:
283: IF l_award_id_csr%NOTFOUND
284: THEN
285: CLOSE l_award_id_csr;
286: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_AWARD_ID',
287: x_err_code => x_err_code,
288: x_err_buff => x_err_stage);
289:
290: APP_EXCEPTION.RAISE_EXCEPTION;
301:
302: IF l_award_number_csr%NOTFOUND
303: THEN
304: CLOSE l_award_number_csr;
305: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_AWARD_NUM',
306: x_err_code => x_err_code,
307: x_err_buff => x_err_stage);
308:
309: APP_EXCEPTION.RAISE_EXCEPTION;
311:
312: CLOSE l_award_number_csr;
313:
314: ELSE
315: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_AND_ID_MISSING',
316: x_err_code => x_err_code,
317: x_err_buff => x_err_stage);
318:
319: APP_EXCEPTION.RAISE_EXCEPTION;
323:
324: EXCEPTION
325: WHEN OTHERS
326: THEN
327: gms_error_pkg.gms_message(x_err_name => 'GMS_UNEXPECTED_ERROR',
328: x_token_name1 => 'SQLCODE',
329: x_token_val1 => sqlcode,
330: x_token_name2 => 'SQLERRM',
331: x_token_val2 => sqlerrm,
378:
379: IF l_resource_list_id_csr%NOTFOUND
380: THEN
381: CLOSE l_resource_list_id_csr;
382: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_RESLIST_ID',
383: x_err_code => x_err_code,
384: x_err_buff => x_err_stage);
385:
386: APP_EXCEPTION.RAISE_EXCEPTION;
397:
398: IF l_resource_list_name_csr%NOTFOUND
399: THEN
400: CLOSE l_resource_list_name_csr;
401: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_RESLIST_NAME',
402: x_err_code => x_err_code,
403: x_err_buff => x_err_stage);
404:
405: APP_EXCEPTION.RAISE_EXCEPTION;
407:
408: CLOSE l_resource_list_name_csr;
409:
410: ELSE
411: gms_error_pkg.gms_message(x_err_name => 'GMS_RESNAME_AND_ID_MISSING',
412: x_err_code => x_err_code,
413: x_err_buff => x_err_stage);
414:
415: APP_EXCEPTION.RAISE_EXCEPTION;
419:
420: EXCEPTION
421: WHEN OTHERS
422: THEN
423: gms_error_pkg.gms_message(x_err_name => 'GMS_UNEXPECTED_ERROR',
424: x_token_name1 => 'SQLCODE',
425: x_token_val1 => sqlcode,
426: x_token_name2 => 'SQLERRM',
427: x_token_val2 => sqlerrm,
478:
479: IF l_resource_list_member_id_csr%NOTFOUND
480: THEN
481: CLOSE l_resource_list_member_id_csr;
482: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_RESLIST_MEM_ID',
483: x_err_code => x_err_code,
484: x_err_buff => x_err_stage);
485:
486: APP_EXCEPTION.RAISE_EXCEPTION;
497:
498: IF l_reslist_member_alias_csr%NOTFOUND
499: THEN
500: CLOSE l_reslist_member_alias_csr;
501: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_RESLIST_ALIAS',
502: x_err_code => x_err_code,
503: x_err_buff => x_err_stage);
504:
505: APP_EXCEPTION.RAISE_EXCEPTION;
507:
508: CLOSE l_reslist_member_alias_csr;
509:
510: ELSE
511: gms_error_pkg.gms_message(x_err_name => 'GMS_RES_ALIAS_AND_ID_MISSING',
512: x_err_code => x_err_code,
513: x_err_buff => x_err_stage);
514:
515: APP_EXCEPTION.RAISE_EXCEPTION;
519:
520: EXCEPTION
521: WHEN OTHERS
522: THEN
523: gms_error_pkg.gms_message(x_err_name => 'GMS_UNEXPECTED_ERROR',
524: x_token_name1 => 'SQLCODE',
525: x_token_val1 => sqlcode,
526: x_token_name2 => 'SQLERRM',
527: x_token_val2 => sqlerrm,
703:
704: BEGIN
705:
706: IF L_DEBUG = 'Y' THEN
707: gms_error_pkg.gms_debug('*** Start of IS_FC_REQUIRED ***','C');
708: END IF;
709:
710: open l_budgetary_controls_csr(p_project_id, p_award_id);
711: fetch l_budgetary_controls_csr
796: l_old_stack varchar2(630);
797: begin
798:
799: IF L_DEBUG = 'Y' THEN
800: gms_error_pkg.gms_debug('*** Start of GMS_BUDGET_PUB.SUMMERIZE_PROJECT_TOTALS ***','C');
801: END IF;
802:
803: x_err_code := 0;
804: l_old_stack := x_err_stack;
839:
840: x_err_stack := l_old_stack;
841:
842: IF L_DEBUG = 'Y' THEN
843: gms_error_pkg.gms_debug('*** End of GMS_BUDGET_PUB.SUMMERIZE_PROJECT_TOTALS ***','C');
844: END IF;
845:
846: exception
847: when others then
847: when others then
848: -- Modified for bug 2587078
849: --x_err_code := SQLCODE;
850: x_err_stage := 'GMS_BUDGET_PUB.SUMMERIZE_PROJECT_TOTALS - In when others exception';
851: gms_error_pkg.gms_message( x_err_name => 'GMS_BU_SUMM_BUDG_LINES_FAIL',
852: x_err_code => x_err_code,
853: x_err_buff => x_err_stage);
854: fnd_msg_pub.add;
855: return;
1029: x_return_status := 1 ;
1030: return;
1031: end if ;
1032:
1033: gms_error_pkg.gms_message(x_err_name => 'GMS_BU_BUDGAMT_FAILURE',
1034: x_err_code => x_err_code,
1035: x_err_buff => x_err_stage);
1036:
1037: x_return_status := 1; -- validation FAILED
1209: return;
1210: end if ;
1211: if x_categorization_code = 'R' then
1212: if x_period_type = 'R' then -- for a Date Range Budget
1213: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALIDATE_FAIL_RES_DR',
1214: x_token_name1 => 'X_START_DATE',
1215: x_token_val1 => x_start_date,
1216: x_token_name2 => 'X_END_DATE',
1217: x_token_val2 => x_end_date,
1223: x_token_val5 => x_project_number,
1224: x_err_code => x_err_code,
1225: x_err_buff => x_err_stage);
1226: elsif x_period_type = 'N' then -- for a No Time Phased budget
1227: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALIDATE_FAIL_RES_NT',
1228: x_token_name1 => 'X_RES_NAME',
1229: x_token_val1 => x_resource_name,
1230: x_token_name2 => 'X_OVERFLOW_AMT',
1231: x_token_val2 => to_char(x_carry_over_budget),
1233: x_token_val3 => x_project_number,
1234: x_err_code => x_err_code,
1235: x_err_buff => x_err_stage);
1236: else -- for either GL or PA period
1237: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALIDATE_FAIL_RES',
1238: x_token_name1 => 'X_PERIOD_NAME',
1239: x_token_val1 => x_period_name,
1240: x_token_name2 => 'X_RES_NAME',
1241: x_token_val2 => x_resource_name,
1248:
1249: end if;
1250: else
1251: if x_period_type = 'R' then -- for a Date Range Budget
1252: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALID_FAIL_NO_RES_DR',
1253: x_token_name1 => 'X_START_DATE',
1254: x_token_val1 => x_start_date,
1255: x_token_name2 => 'X_END_DATE',
1256: x_token_val2 => x_end_date,
1260: x_token_val4 => x_project_number,
1261: x_err_code => x_err_code,
1262: x_err_buff => x_err_stage);
1263: elsif x_period_type = 'N' then -- for a No Time Phased budget
1264: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALID_FAIL_NO_RES_NT',
1265: x_token_name1 => 'X_OVERFLOW_AMT',
1266: x_token_val1 =>to_char(x_carry_over_budget),
1267: x_token_name2 => 'X_PROJECT_NUM',
1268: x_token_val2 => x_project_number,
1268: x_token_val2 => x_project_number,
1269: x_err_code => x_err_code,
1270: x_err_buff => x_err_stage);
1271: else -- for either GL or PA period
1272: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALIDATE_FAIL_NO_RES',
1273: x_token_name1 => 'X_PERIOD_NAME',
1274: x_token_val1 => x_period_name,
1275: x_token_name2 => 'X_OVERFLOW_AMT',
1276: x_token_val2 =>to_char(x_carry_over_budget),
1379: (curr_date_range_rec.start_date > other_date_range_rec.end_date and curr_date_range_rec.end_date > other_date_range_rec.end_date)OR
1380: (curr_date_range_rec.start_date = other_date_range_rec.start_date and curr_date_range_rec.end_date = other_date_range_rec.end_date) then
1381: null;
1382: else
1383: gms_error_pkg.gms_message(x_err_name => 'GMS_BU_DATE_OVERLAP',
1384: x_err_code => x_err_code,
1385: x_err_buff => x_err_stage);
1386:
1387: x_return_status := 1; -- validation failed
1494: -- Midified for GMS enhancement 5583170 as we are allowing user to enter different BEM
1495: -- in Award budget form.
1496: NULL ;
1497: /*
1498: gms_error_pkg.gms_message(x_err_name => 'GMS_CANT_CHANGE_BEM',
1499: x_err_code => x_err_code,
1500: x_err_buff => x_err_stage);
1501:
1502: APP_EXCEPTION.RAISE_EXCEPTION;
1541:
1542: if ((l_categorization_code = 'N' and l_uncategorized_flag <> 'Y') or
1543: (l_categorization_code = 'R' and l_uncategorized_flag = 'Y')) then
1544:
1545: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_BEM_RESOURCE_LIST',
1546: x_err_code => x_err_code,
1547: x_err_buff => x_err_stage);
1548:
1549: APP_EXCEPTION.RAISE_EXCEPTION;
1742: l_api_name ,
1743: G_PKG_NAME )
1744: THEN
1745:
1746: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
1747: x_err_code => x_err_code,
1748: x_err_buff => x_err_stage);
1749:
1750: APP_EXCEPTION.RAISE_EXCEPTION;
1756:
1757: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
1758: OR p_pm_product_code IS NULL
1759: THEN
1760: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_IS_MISSING',
1761: x_err_code => x_err_code,
1762: x_err_buff => x_err_stage);
1763:
1764: APP_EXCEPTION.RAISE_EXCEPTION;
1788: return;
1789: END IF;
1790: ELSE
1791:
1792: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
1793: x_err_code => x_err_code,
1794: x_err_buff => x_err_stage);
1795:
1796: APP_EXCEPTION.RAISE_EXCEPTION;
1841: return;
1842: END IF;
1843:
1844: ELSE
1845: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
1846: x_err_code => x_err_code,
1847: x_err_buff => x_err_stage);
1848:
1849: APP_EXCEPTION.RAISE_EXCEPTION;
1861:
1862: -- The user does not have query privileges on this award
1863: -- Hence, cannot create a draft budget.Raise error
1864:
1865: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
1866: x_err_code => x_err_code,
1867: x_err_buff => x_err_stage);
1868:
1869: APP_EXCEPTION.RAISE_EXCEPTION;
1875:
1876: -- The user does not have update privileges on this award
1877: -- Hence , raise error
1878:
1879: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
1880: x_err_code => x_err_code,
1881: x_err_buff => x_err_stage);
1882:
1883: APP_EXCEPTION.RAISE_EXCEPTION;
1891: IF p_budget_type_code IS NULL
1892: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
1893: THEN
1894:
1895: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
1896: x_err_code => x_err_code,
1897: x_err_buff => x_err_stage);
1898:
1899: APP_EXCEPTION.RAISE_EXCEPTION;
1906:
1907: IF l_budget_amount_code_csr%NOTFOUND
1908: THEN
1909: CLOSE l_budget_amount_code_csr;
1910: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
1911: x_err_code => x_err_code,
1912: x_err_buff => x_err_stage);
1913:
1914: APP_EXCEPTION.RAISE_EXCEPTION;
1922:
1923: IF p_entry_method_code IS NULL
1924: OR p_entry_method_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
1925: THEN
1926: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_MISSING',
1927: x_err_code => x_err_code,
1928: x_err_buff => x_err_stage);
1929:
1930: APP_EXCEPTION.RAISE_EXCEPTION;
1939: IF l_budget_entry_method_csr%NOTFOUND
1940: THEN
1941:
1942: CLOSE l_budget_entry_method_csr;
1943: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_INVALID',
1944: x_err_code => x_err_code,
1945: x_err_buff => x_err_stage);
1946:
1947: APP_EXCEPTION.RAISE_EXCEPTION;
1960: p_err_code => x_err_code,
1961: p_err_stage => x_err_stage,
1962: p_err_stack => x_err_stack );
1963: IF x_err_code <> 0 THEN
1964: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_UNCATEGORIZED_LIST',
1965: x_err_code => x_err_code,
1966: x_err_buff => x_err_stage);
1967:
1968: APP_EXCEPTION.RAISE_EXCEPTION;
1990: ,x_err_stack => x_err_stack);
1991:
1992: IF x_err_code <> 0
1993: THEN
1994: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_RESOURCE_LIST_NAME',
1995: x_err_code => x_err_code,
1996: x_err_buff => x_err_stage);
1997:
1998: APP_EXCEPTION.RAISE_EXCEPTION;
1998: APP_EXCEPTION.RAISE_EXCEPTION;
1999: END IF;
2000:
2001: ELSE
2002: gms_error_pkg.gms_message(x_err_name => 'GMS_RESLIST_ID_NAME_MISSING',
2003: x_err_code => x_err_code,
2004: x_err_buff => x_err_stage);
2005:
2006: APP_EXCEPTION.RAISE_EXCEPTION;
2047:
2048: IF l_budget_change_reason_csr%NOTFOUND THEN
2049:
2050: CLOSE l_budget_change_reason_csr;
2051: gms_error_pkg.gms_message(x_err_name => 'GMS_CHANGE_REASON_INVALID',
2052: x_err_code => x_err_code,
2053: x_err_buff => x_err_stage);
2054:
2055: APP_EXCEPTION.RAISE_EXCEPTION;
2185: --if working bugdet is submitted no new working budget can be created
2186:
2187: IF l_budget_status_code = 'S'
2188: THEN
2189: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_IS_SUBMITTED',
2190: x_err_code => x_err_code,
2191: x_err_buff => x_err_stage);
2192:
2193: APP_EXCEPTION.RAISE_EXCEPTION;
2216:
2217: OPEN l_budget_periods_csr(p_first_budget_period,l_budget_entry_method_rec.time_phased_type_code);
2218: FETCH l_budget_periods_csr into l_first_budget_period;
2219: IF l_budget_periods_csr%NOTFOUND THEN
2220: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_PERIOD_IS_INVALID',
2221: x_err_code => x_err_code,
2222: x_err_buff => x_err_stage);
2223:
2224: APP_EXCEPTION.RAISE_EXCEPTION;
2257: from gms_budget_versions
2258: where budget_version_id = l_baselined_version_id;
2259:
2260: if (l_resource_list_id <> l_baselined_resource_list_id) then
2261: gms_error_pkg.gms_message(x_err_name => 'GMS_BU_BASE_RES_LIST_EXISTS',
2262: x_err_code => x_err_code,
2263: x_err_buff => x_err_stage);
2264:
2265: APP_EXCEPTION.RAISE_EXCEPTION;
2295: ,x_err_stack => x_err_stack);
2296:
2297: if x_err_code <> 0 -- this err code is from delete_draft_budget
2298: then
2299: gms_error_pkg.gms_message(x_err_name => 'GMS_DELETE_DRAFT_FAIL',
2300: x_err_code => x_err_code,
2301: x_err_buff => x_err_stage);
2302:
2303: APP_EXCEPTION.RAISE_EXCEPTION;
2512:
2513: begin
2514:
2515: IF L_DEBUG = 'Y' THEN
2516: gms_error_pkg.gms_debug('*** Start of GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET ***','C');
2517: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET - Calling gms_budget_pub.baseline_budget','C');
2518: END IF;
2519:
2520: /* Bug 3651888 */
2513: begin
2514:
2515: IF L_DEBUG = 'Y' THEN
2516: gms_error_pkg.gms_debug('*** Start of GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET ***','C');
2517: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET - Calling gms_budget_pub.baseline_budget','C');
2518: END IF;
2519:
2520: /* Bug 3651888 */
2521: Select award_id
2536: p_budget_type_code => 'AC',
2537: p_mark_as_original => p_mark_as_original);
2538:
2539: IF L_DEBUG = 'Y' THEN
2540: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET - Call to gms_budget_pub.baseline_budget returned l_err_code : '||l_err_code,'C');
2541: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET - Call to gms_budget_pub.baseline_budget returned l_err_stage : '||l_err_stage,'C');
2542: END IF;
2543:
2544: -- Bug 3022766 : Introduced error code = 3 to represent fundscheck failure status.
2537: p_mark_as_original => p_mark_as_original);
2538:
2539: IF L_DEBUG = 'Y' THEN
2540: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET - Call to gms_budget_pub.baseline_budget returned l_err_code : '||l_err_code,'C');
2541: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET - Call to gms_budget_pub.baseline_budget returned l_err_stage : '||l_err_stage,'C');
2542: END IF;
2543:
2544: -- Bug 3022766 : Introduced error code = 3 to represent fundscheck failure status.
2545: -- Baseline_budget procedure returns following statuses
2566:
2567: end if;
2568:
2569: IF L_DEBUG = 'Y' THEN
2570: gms_error_pkg.gms_debug('*** End of GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET ***','C');
2571: END IF;
2572:
2573: exception
2574: when OTHERS then
2574: when OTHERS then
2575: RETCODE := 2;
2576: ERRBUFF := SQLCODE ||'-'||SQLERRM;
2577: IF L_DEBUG = 'Y' THEN
2578: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET - Exception :'||ERRBUFF,'C');
2579: END IF;
2580:
2581: end;
2582:
2785: l_funds_check_at_submit VARCHAR2(1) := NVL(FND_PROFILE.value('GMS_ENABLE_FUNDS_CHECK_AT_SUBMIT'),'Y'); -- Bug 2290959
2786: l_wf_enabled_flag VARCHAR2(1);--Added for bug 5620089
2787: BEGIN
2788:
2789: gms_error_pkg.set_debug_context; -- Added for Bug: 2510024
2790:
2791: IF L_DEBUG = 'Y' THEN
2792: gms_error_pkg.gms_debug('*** Start of GMS_BUDGET_PUB.BASELINE_BUDGET ***','C');
2793: END IF;
2788:
2789: gms_error_pkg.set_debug_context; -- Added for Bug: 2510024
2790:
2791: IF L_DEBUG = 'Y' THEN
2792: gms_error_pkg.gms_debug('*** Start of GMS_BUDGET_PUB.BASELINE_BUDGET ***','C');
2793: END IF;
2794:
2795: x_err_code := 0;
2796: x_err_stage := NULL; -- Bug 2587078
2817: l_api_name ,
2818: G_PKG_NAME )
2819: THEN
2820: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in FND_API.Compatible_API_Call';
2821: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
2822: x_err_code => x_err_code,
2823: x_err_buff => x_err_stage);
2824: fnd_msg_pub.add; -- Bug 2587078
2825:
2833: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
2834: OR p_pm_product_code IS NULL
2835: THEN
2836: x_err_stage := 'Error occured while validating product_code';
2837: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_IS_MISSING',
2838: x_err_code => x_err_code,
2839: x_err_buff => x_err_stage);
2840: fnd_msg_pub.add; -- Bug 2587078
2841: APP_EXCEPTION.RAISE_EXCEPTION;
2853: AND p_award_id IS NOT NULL)
2854: THEN
2855:
2856: IF L_DEBUG = 'Y' THEN
2857: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling convert_awardnum_to_id','C');
2858: END IF;
2859:
2860: convert_awardnum_to_id(p_award_number_in => p_award_number
2861: ,p_award_id_in => p_award_id
2866:
2867: IF x_err_code <> 0
2868: THEN
2869: IF L_DEBUG = 'Y' THEN
2870: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Call to convert_awardnum_to_id returned x_err_code : '||x_err_code ||' x_err_stage :'||x_err_stage,'C');
2871: END IF;
2872: return;
2873: END IF;
2874: ELSE
2872: return;
2873: END IF;
2874: ELSE
2875: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Award information';
2876: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
2877: x_err_code => x_err_code,
2878: x_err_buff => x_err_stage);
2879: fnd_msg_pub.add; -- Bug 2587078
2880: APP_EXCEPTION.RAISE_EXCEPTION;
2898: -- If a user does not have privileges to update the award, then
2899: -- cannot baseline the budget
2900:
2901: IF L_DEBUG = 'Y' THEN
2902: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_security.initialize','C');
2903: END IF;
2904:
2905: gms_security.initialize (X_user_id => l_user_id,
2906: X_calling_module => l_module_name);
2926: OR (p_project_id <> GMS_BUDGET_PUB.G_PA_MISS_NUM
2927: AND p_project_id IS NOT NULL)
2928: THEN
2929: IF L_DEBUG = 'Y' THEN
2930: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling convert_projnum_to_id','C');
2931: END IF;
2932: convert_projnum_to_id(p_project_number_in => p_project_number
2933: ,p_project_id_in => p_project_id
2934: ,p_project_id_out => l_project_id
2938:
2939: IF x_err_code <> 0
2940: THEN
2941: IF L_DEBUG = 'Y' THEN
2942: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Call to convert_projnum_to_id returned x_err_code : '||x_err_code ||' x_err_stage :'||x_err_stage,'C');
2943: END IF;
2944: return;
2945: END IF;
2946:
2945: END IF;
2946:
2947: ELSE
2948: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Project information';
2949: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJECT_IS_MISSING', -- 'GMS_PROJ_NUM_ID_MISSING', Bug 2587078
2950: x_err_code => x_err_code,
2951: x_err_buff => x_err_stage);
2952: fnd_msg_pub.add; -- Bug 2587078
2953: APP_EXCEPTION.RAISE_EXCEPTION;
2964:
2965: IF l_project_id IS NULL --never happens because previous procedure checks this.
2966: THEN
2967: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Project information';
2968: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_REF_AND_ID_MISSING', --'GMS_INVALID_PROJ_NUMBER', bug 2587078
2969: x_err_code => x_err_code,
2970: x_err_buff => x_err_stage);
2971: fnd_msg_pub.add; -- Bug 2587078
2972: APP_EXCEPTION.RAISE_EXCEPTION;
2977: IF p_budget_type_code IS NULL
2978: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
2979: THEN
2980: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Budget type information';
2981: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
2982: x_err_code => x_err_code,
2983: x_err_buff => x_err_stage);
2984: fnd_msg_pub.add; -- Bug 2587078
2985: APP_EXCEPTION.RAISE_EXCEPTION;
2994: THEN
2995:
2996: CLOSE l_budget_types_csr;
2997: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Budget type information';
2998: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
2999: x_err_code => x_err_code,
3000: x_err_buff => x_err_stage);
3001: fnd_msg_pub.add; -- Bug 2587078
3002: APP_EXCEPTION.RAISE_EXCEPTION;
3035:
3036: END IF;
3037:
3038: IF L_DEBUG = 'Y' THEN
3039: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_mark_as_original : '||l_mark_as_original,'C');
3040: END IF;
3041:
3042: -- get the budget version ID associated with this project / budget_type_code combination
3043:
3051: IF l_budget_versions_csr%NOTFOUND
3052: THEN
3053: CLOSE l_budget_versions_csr;
3054: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Budget version information';
3055: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
3056: x_err_code => x_err_code,
3057: x_err_buff => x_err_stage);
3058: fnd_msg_pub.add; -- Bug 2587078
3059: APP_EXCEPTION.RAISE_EXCEPTION;
3072: IF l_resource_assignments_csr%NOTFOUND
3073: THEN
3074: CLOSE l_resource_assignments_csr;
3075: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Budget lines information';
3076: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_LINES',
3077: x_err_code => x_err_code,
3078: x_err_buff => x_err_stage);
3079: fnd_msg_pub.add; -- Bug 2587078
3080: APP_EXCEPTION.RAISE_EXCEPTION;
3089: IF l_time_phased_type_csr%NOTFOUND
3090: THEN
3091: CLOSE l_time_phased_type_csr;
3092: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Time phase information';
3093: gms_error_pkg.gms_message(x_err_name => 'GMS_TIME_PHASED_TYPE_CODE_MISS',
3094: x_err_code => x_err_code,
3095: x_err_buff => x_err_stage);
3096: fnd_msg_pub.add; -- Bug 2587078
3097: APP_EXCEPTION.RAISE_EXCEPTION;
3099:
3100: -- Dummy call !
3101:
3102: IF L_DEBUG = 'Y' THEN
3103: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_budget_core.verify', 'C');
3104: END IF;
3105:
3106: gms_budget_core.verify( x_budget_version_id => l_budget_version_id
3107: ,x_err_code => x_err_code
3110:
3111: IF x_err_code <> 0
3112: THEN
3113: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in gms_budget_core.verify';
3114: gms_error_pkg.gms_message(x_err_name => 'GMS_VERIFY_FAILED',
3115: x_err_code => x_err_code,
3116: x_err_buff => x_err_stage);
3117: fnd_msg_pub.add; -- Bug 2587078
3118: APP_EXCEPTION.RAISE_EXCEPTION;
3135: THEN
3136:
3137: CLOSE l_budget_rules_csr;
3138: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Budget rules information';
3139: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_RULES_ATTR',
3140: x_err_code => x_err_code,
3141: x_err_buff => x_err_stage);
3142: fnd_msg_pub.add; -- Bug 2587078
3143: APP_EXCEPTION.RAISE_EXCEPTION;
3172: if is_fc_required (p_project_id => l_project_id,
3173: p_award_id => l_award_id)
3174: then
3175: IF L_DEBUG = 'Y' THEN
3176: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Call to is_fc_required returned TRUE ', 'C');
3177: END IF;
3178:
3179: UPDATE gms_budget_versions
3180: SET fc_required_flag = 'Y'
3183: AND budget_type_code = p_budget_type_code
3184: AND budget_status_code in ('W','S');
3185: else
3186: IF L_DEBUG = 'Y' THEN
3187: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Call to is_fc_required returned FALSE ', 'C');
3188: END IF;
3189:
3190: UPDATE gms_budget_versions
3191: SET fc_required_flag = 'N'
3199: IF l_budget_status_code = 'W'
3200: THEN
3201:
3202: IF L_DEBUG = 'Y' THEN
3203: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Start of Submit process', 'C');
3204: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES - Submit mode', 'C');
3205: END IF;
3206:
3207: -- this is also a dummy call ...
3200: THEN
3201:
3202: IF L_DEBUG = 'Y' THEN
3203: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Start of Submit process', 'C');
3204: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES - Submit mode', 'C');
3205: END IF;
3206:
3207: -- this is also a dummy call ...
3208: GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES
3233: THEN
3234: IF (l_warnings_only_flag <> 'Y')
3235: THEN
3236: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES - Submit';
3237: gms_error_pkg.gms_message(x_err_name => 'GMS_VERIFY_BUDGET_FAIL_S',
3238: x_err_code => x_err_code,
3239: x_err_buff => x_err_stage);
3240: fnd_msg_pub.add; -- Bug 25870708
3241: APP_EXCEPTION.RAISE_EXCEPTION;
3244:
3245:
3246: -- LOCK DRAFT BUDGET VERSION Since Primary Verification Finished
3247: IF L_DEBUG = 'Y' THEN
3248: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Locking the budget', 'C');
3249: END IF;
3250:
3251: OPEN l_lock_budget_csr(l_budget_version_id);
3252: CLOSE l_lock_budget_csr;
3253:
3254: -- BASELINE RULES -------------------------------------------------------------
3255:
3256: IF L_DEBUG = 'Y' THEN
3257: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES - Baseline mode', 'C');
3258: END IF;
3259:
3260: GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES
3261: (p_draft_version_id => l_budget_version_id
3285: THEN
3286: IF (l_warnings_only_flag <> 'Y')
3287: THEN
3288: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES - Baseline ';
3289: gms_error_pkg.gms_message(x_err_name => 'GMS_VERIFY_BUDGET_FAIL_B',
3290: x_err_code => x_err_code,
3291: x_err_buff => x_err_stage);
3292: fnd_msg_pub.add; -- Bug 2587078
3293: APP_EXCEPTION.RAISE_EXCEPTION;
3297:
3298: -- CHECKING IF WORKFLOW IS ENABLED FOR THIS AWARD
3299:
3300: IF L_DEBUG = 'Y' THEN
3301: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_wf_pkg.is_budget_wf_used', 'C');
3302: END IF;
3303:
3304: GMS_WF_PKG.Is_Budget_Wf_Used
3305: ( p_project_id => l_project_id
3314:
3315: IF (x_err_code <> 0)
3316: THEN
3317: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in gms_wf_pkg.is_budget_wf_used';
3318: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_WF_CHECK_FAIL',
3319: x_err_code => x_err_code,
3320: x_err_buff => x_err_stage);
3321: fnd_msg_pub.add; -- Bug 2587078
3322: APP_EXCEPTION.RAISE_EXCEPTION;
3322: APP_EXCEPTION.RAISE_EXCEPTION;
3323: END IF;
3324:
3325: IF L_DEBUG = 'Y' THEN
3326: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_workflow_is_used : '||l_workflow_is_used, 'C');
3327: END IF;
3328:
3329: IF (l_workflow_is_used = 'T' ) THEN -- WORKFLOW IS ENABLED FOR THIS AWARD
3330:
3338: conc_request_id = l_conc_request_id
3339: WHERE budget_version_id = l_budget_version_id;
3340:
3341: IF L_DEBUG = 'Y' THEN
3342: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_wf_pkg.start_budget_wf', 'C');
3343: END IF;
3344:
3345: GMS_WF_PKG.Start_Budget_Wf
3346: ( p_draft_version_id => l_budget_version_id
3355:
3356: IF (x_err_code <> 0)
3357: THEN
3358: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in gms_wf_pkg.start_budget_wf';
3359: gms_error_pkg.gms_message(x_err_name => 'GMS_START_BUDG_WF_FAIL',
3360: x_err_code => x_err_code,
3361: x_err_buff => x_err_stage);
3362: fnd_msg_pub.add; -- Bug 2587078
3363: APP_EXCEPTION.RAISE_EXCEPTION;
3374: COMMIT;
3375: END IF;
3376:
3377: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Budget workflow started ';
3378: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_WF_STARTED',
3379: x_token_name1 => 'AWARD_NUMBER',
3380: x_token_val1 => l_award_number,
3381: x_token_name2 => 'PROJECT_NUMBER',
3382: x_token_val2 => l_project_number,
3386: fnd_msg_pub.add; --2587078
3387: x_err_code := 0; -- setting x_err_code to zero since this is not an error condition.
3388:
3389: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
3390: gms_error_pkg.gms_output(x_output => x_err_stage);
3391:
3392: ELSE -- WORKFLOW IS NOT ENABLED FOR THIS AWARD
3393:
3394: IF L_DEBUG = 'Y' THEN
3391:
3392: ELSE -- WORKFLOW IS NOT ENABLED FOR THIS AWARD
3393:
3394: IF L_DEBUG = 'Y' THEN
3395: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_funds_check_at_submit : '||l_funds_check_at_submit,'C');
3396: END IF;
3397:
3398: IF l_funds_check_at_submit = 'Y' THEN --Bug 2290959 : Perform fundscheck only if the profile 'GMS : Enable funds check for budget Submission' is set to Yes.
3399:
3410:
3411: SAVEPOINT baseline_budget_pub;
3412:
3413: IF L_DEBUG = 'Y' THEN
3414: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_fc_return_code : '||l_fc_return_code, 'C');
3415: END IF;
3416:
3417:
3418: END IF; --Bug 2290959
3419:
3420: IF ((l_fc_return_code = 'S' AND l_funds_check_at_submit = 'Y') OR l_funds_check_at_submit = 'N' )THEN --Bug 2290959
3421:
3422: IF L_DEBUG = 'Y' THEN
3423: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating Budget to Submitted status', 'C');
3424: END IF;
3425:
3426: UPDATE gms_budget_versions
3427: SET budget_status_code = 'S',
3429: conc_request_id = l_conc_request_id,
3430: current_original_flag = l_mark_as_original -- Added for Bug:1578992
3431: WHERE budget_version_id = l_budget_version_id;
3432: x_err_stage := NULL;
3433: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_SUBMITTED',
3434: x_token_name1 => 'AWARD_NUMBER',
3435: x_token_val1 => l_award_number,
3436: x_token_name2 => 'PROJECT_NUMBER',
3437: x_token_val2 => l_project_number,
3441:
3442: x_err_code := 0; -- setting x_err_code to zero since this is not an error condition.
3443:
3444: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
3445: gms_error_pkg.gms_output(x_output => x_err_stage);
3446:
3447: ELSE
3448: x_err_stage := NULL;
3449: gms_error_pkg.gms_message(x_err_name => 'GMS_FC_FAIL_SUBMIT',
3445: gms_error_pkg.gms_output(x_output => x_err_stage);
3446:
3447: ELSE
3448: x_err_stage := NULL;
3449: gms_error_pkg.gms_message(x_err_name => 'GMS_FC_FAIL_SUBMIT',
3450: x_token_name1 => 'AWARD_NUMBER',
3451: x_token_val1 => l_award_number,
3452: x_token_name2 => 'PROJECT_NUMBER',
3453: x_token_val2 => l_project_number,
3461:
3462: -- End of code changes done for bug 3022766
3463:
3464: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
3465: gms_error_pkg.gms_output(x_output => x_err_stage);
3466: rollback to baseline_budget_pub;
3467:
3468: IF L_DEBUG = 'Y' THEN
3469: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - End of Submit process', 'C');
3465: gms_error_pkg.gms_output(x_output => x_err_stage);
3466: rollback to baseline_budget_pub;
3467:
3468: IF L_DEBUG = 'Y' THEN
3469: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - End of Submit process', 'C');
3470: END IF;
3471: return;
3472: END IF;
3473:
3472: END IF;
3473:
3474: END IF; -- (l_workflow_is_used = 'T' )
3475: IF L_DEBUG = 'Y' THEN
3476: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - End of Submit process', 'C');
3477: END IF;
3478: ---------------------------------------------------------------------------------------
3479: ELSE -- Budget status is 'S', so Baseline the budget
3480:
3478: ---------------------------------------------------------------------------------------
3479: ELSE -- Budget status is 'S', so Baseline the budget
3480:
3481: IF L_DEBUG = 'Y' THEN
3482: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Start of Baseline process', 'C');
3483: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_budget_core.baseline', 'C');
3484: END IF;
3485: gms_budget_core.baseline ( x_draft_version_id => l_budget_version_id
3486: ,x_mark_as_original => l_mark_as_original
3479: ELSE -- Budget status is 'S', so Baseline the budget
3480:
3481: IF L_DEBUG = 'Y' THEN
3482: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Start of Baseline process', 'C');
3483: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_budget_core.baseline', 'C');
3484: END IF;
3485: gms_budget_core.baseline ( x_draft_version_id => l_budget_version_id
3486: ,x_mark_as_original => l_mark_as_original
3487: ,x_verify_budget_rules => 'N'
3491:
3492: IF x_err_code <> 0
3493: THEN
3494: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in gms_budget_core.baseline';
3495: gms_error_pkg.gms_message(x_err_name => 'GMS_BASELINE_FAILED',
3496: x_err_code => x_err_code,
3497: x_err_buff => x_err_stage);
3498: fnd_msg_pub.add; -- Bug 2587078
3499: APP_EXCEPTION.RAISE_EXCEPTION;
3507: -- First get the budget_version_id of the previously baselined budget. In case there is an error we need to set the current_flag
3508: -- for this line to Y
3509:
3510: IF L_DEBUG = 'Y' THEN
3511: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Fetching previous budget_version_id', 'C');
3512: END IF;
3513:
3514:
3515: select bv.budget_version_id,
3525: and bv.current_flag = 'R'
3526: and bv.budget_entry_method_code = bem.budget_entry_method_code;
3527:
3528: IF L_DEBUG = 'Y' THEN
3529: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Fetched previous budget_version_id '||l_prev_baselined_version_id, 'C');
3530: END IF;
3531:
3532:
3533: exception
3535: -- this means that there did not exist any baselined budget earlier
3536: l_prev_baselined_version_id := null;
3537: l_prev_entry_level_code := null;
3538: IF L_DEBUG = 'Y' THEN
3539: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - There exists no baselined budget earlier', 'C');
3540: END IF;
3541:
3542: when OTHERS then
3543: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - While fetching previous version id, when others exception ';
3540: END IF;
3541:
3542: when OTHERS then
3543: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - While fetching previous version id, when others exception ';
3544: gms_error_pkg.gms_message( x_err_name => 'GMS_UNEXPECTED_ERROR',
3545: x_token_name1 => 'SQLCODE',
3546: x_token_val1 => sqlcode,
3547: x_token_name2 => 'SQLERRM',
3548: x_token_val2 => sqlerrm,
3558:
3559: -- Bug 5162777 : The budgetary control records are created before invoking fundscheck process.
3560: ----------------------- START OF BC RECORD CREATION -------------------------
3561:
3562: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_budg_cont_setup.bud_ctrl_create', 'C');
3563: gms_budg_cont_setup.bud_ctrl_create(p_project_id => l_project_id
3564: ,p_award_id => l_award_id
3565: ,p_prev_entry_level_code => l_prev_entry_level_code
3566: ,p_entry_level_code => l_entry_level_code
3571:
3572: if x_err_code <> 0
3573: then
3574: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occurred in gms_budg_cont_setup.bud_ctrl_create';
3575: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_CONTROL_SETUP_FAIL',
3576: x_err_code => x_err_code,
3577: x_err_buff => x_err_stage);
3578:
3579: SAVEPOINT baseline_budget_pub;
3584: ----------------------- END OF BC RECORD CREATION -------------------------
3585:
3586: -- CALLING THE FUNDSCHECK PROCESS ...
3587: IF L_DEBUG = 'Y' THEN
3588: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_budget_balance.update_gms_balance','C');
3589: END IF;
3590:
3591: gms_budget_balance.update_gms_balance( x_project_id => l_project_id
3592: , x_award_id => l_award_id
3599:
3600: SAVEPOINT baseline_budget_pub;
3601:
3602: IF L_DEBUG = 'Y' THEN
3603: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_fc_return_code : '||l_fc_return_code, 'C');
3604: END IF;
3605:
3606: IF l_fc_return_code = 'S'
3607: THEN -- Funds check passed
3609: -- after calling BASELINE, set the budget_status_code back to 'W' (Working)
3610: -- the concept of submitting budget is not available in the public API's!
3611:
3612: IF L_DEBUG = 'Y' THEN
3613: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating Budget to Working status', 'C');
3614: END IF;
3615:
3616: UPDATE gms_budget_versions
3617: SET budget_status_code = 'W', conc_request_id = l_conc_request_id
3629:
3630: -- 1. set the current_flag = 'N' for the previously baselined budget (whose current_flag was set to 'R' earlier)
3631:
3632: IF L_DEBUG = 'Y' THEN
3633: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to N on previous baselined budget version', 'C');
3634: END IF;
3635:
3636: update gms_budget_versions
3637: set current_flag = 'N'
3645:
3646: -- Corrected the query for Bug:2542827
3647:
3648: IF L_DEBUG = 'Y' THEN
3649: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to Y on newly created budget version', 'C');
3650: END IF;
3651:
3652: update gms_budget_versions
3653: set current_flag = 'Y'
3673: and budget_status_code = 'B'
3674: and current_flag = 'Y';
3675:
3676: IF L_DEBUG = 'Y' THEN
3677: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_baselined_version_id '||l_baselined_version_id, 'C');
3678: END IF;
3679:
3680: exception
3681: when OTHERS
3680: exception
3681: when OTHERS
3682: then
3683: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - While fetching baselined version id, when others exception ';
3684: gms_error_pkg.gms_message( x_err_name => 'GMS_UNEXPECTED_ERROR',
3685: x_token_name1 => 'SQLCODE',
3686: x_token_val1 => sqlcode,
3687: x_token_name2 => 'SQLERRM',
3688: x_token_val2 => sqlerrm,
3700:
3701: -- 4. call gms_sweeper - added for Bug: 1666853
3702:
3703: IF L_DEBUG = 'Y' THEN
3704: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_sweeper.upd_act_enc_bal', 'C');
3705: END IF;
3706:
3707:
3708: -- get the packet id for the budget and pass it on to the sweeper process.
3732: x_award_id => l_award_id);
3733:
3734: if x_err_code <> 0 then -- Changed from 'S' to 0 (zero) for Bug:2464800
3735: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occurred in gms_sweeper.upd_act_enc_bal';
3736: gms_error_pkg.gms_message(x_err_name => 'GMS_BU_SWEEP_FAILED',
3737: x_err_code => x_err_code,
3738: x_err_buff => x_err_stage);
3739:
3740: IF L_DEBUG = 'Y' THEN
3737: x_err_code => x_err_code,
3738: x_err_buff => x_err_stage);
3739:
3740: IF L_DEBUG = 'Y' THEN
3741: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to Y on previous baselined budget version', 'C');
3742: END IF;
3743:
3744: -- Bug 2386041
3745: update gms_budget_versions
3746: set current_flag = 'Y'
3747: where budget_version_id = l_prev_baselined_version_id;
3748:
3749: IF L_DEBUG = 'Y' THEN
3750: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to N on newly baselined budget version id', 'C');
3751: END IF;
3752:
3753: update gms_budget_versions
3754: set current_flag = 'N'
3754: set current_flag = 'N'
3755: where budget_version_id = l_baselined_version_id;
3756:
3757: IF L_DEBUG = 'Y' THEN
3758: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating budget to submitted status', 'C');
3759: END IF;
3760:
3761: UPDATE gms_budget_versions
3762: SET budget_status_code = 'S'
3778:
3779: -- 5. Summarize the Project Budget.
3780:
3781: IF L_DEBUG = 'Y' THEN
3782: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Start of Project Budget Summarization ', 'C');
3783: END IF;
3784:
3785: -- Bug 2386041
3786: l_user_profile_value1 := fnd_profile.value_specific('PA_SUPER_PROJECT', fnd_global.user_id, fnd_global.resp_id, fnd_global.resp_appl_id);
3839: end if;
3840:
3841:
3842: IF L_DEBUG = 'Y' THEN
3843: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_summarize_budgets.summarize_baselined_versions', 'C');
3844: END IF;
3845:
3846: -- Bug 2386041
3847: gms_summarize_budgets.summarize_baselined_versions( x_project_id => l_project_id
3863: --IF l_return_status <> 'S'
3864: IF l_return_status NOT in ( 'S','X') THEN
3865:
3866: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in gms_summarize_budgets.summarize_baselined_versions';
3867: gms_error_pkg.gms_message(x_err_name => 'GMS_SUMMARIZE_PA_BUDG_FAIL',
3868: x_err_code => x_err_code,
3869: x_err_buff => x_err_stage);
3870:
3871: IF L_DEBUG = 'Y' THEN
3868: x_err_code => x_err_code,
3869: x_err_buff => x_err_stage);
3870:
3871: IF L_DEBUG = 'Y' THEN
3872: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to Y on previous baselined budget version', 'C');
3873: END IF;
3874:
3875: -- Bug 2386041
3876: update gms_budget_versions
3877: set current_flag = 'Y'
3878: where budget_version_id = l_prev_baselined_version_id;
3879:
3880: IF L_DEBUG = 'Y' THEN
3881: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to N on newly baselined budget version id', 'C');
3882: END IF;
3883:
3884: update gms_budget_versions
3885: set current_flag = 'N'
3885: set current_flag = 'N'
3886: where budget_version_id = l_baselined_version_id;
3887:
3888: IF L_DEBUG = 'Y' THEN
3889: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating budget to submitted status', 'C');
3890: END IF;
3891:
3892: UPDATE gms_budget_versions
3893: SET budget_status_code = 'S'
3903:
3904: -- 6. call Workflow process to send notification
3905:
3906: IF L_DEBUG = 'Y' THEN
3907: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET -Sending workflow notifictaion', 'C');
3908: END IF;
3909:
3910: open l_wf_notif_role_csr (p_award_id => l_award_id);
3911: fetch l_wf_notif_role_csr into l_row_found;
3917:
3918: if l_wf_notif_role_csr%FOUND AND l_wf_enabled_flag = 'Y' then --One more condition added for bug 5620089
3919:
3920: IF L_DEBUG = 'Y' THEN
3921: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_wf_pkg.start_budget_wf_ntfy_only', 'C');
3922: END IF;
3923:
3924: GMS_WF_PKG.Start_Budget_Wf_Ntfy_Only
3925: ( p_draft_version_id => l_budget_version_id
3932: , p_err_stack => x_err_stack);
3933:
3934: if (x_err_code <> 0) then
3935: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occurred in gms_wf_pkg.start_budget_wf_ntfy_only' ;
3936: gms_error_pkg.gms_message(x_err_name => 'GMS_BU_WF_NTFY_FAIL', -- 'GMS_NTFY_BUDG_WF_FAIL', Bug 2587078
3937: x_err_code => x_err_code,
3938: x_err_buff => x_err_stage,
3939: x_exec_type => 'C');
3940: x_err_code := 4; -- to show a WARNING in the concurrent request window.
3939: x_exec_type => 'C');
3940: x_err_code := 4; -- to show a WARNING in the concurrent request window.
3941:
3942: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
3943: gms_error_pkg.gms_output(x_output => x_err_stage);
3944: return;
3945:
3946: -- We don't have to stop the baseline process if the WF Notification process fails.
3947: -- APP_EXCEPTION.RAISE_EXCEPTION;
3952: close l_wf_notif_role_csr;
3953:
3954: --------------------------------------------- ----------------------------------------------------------------------------------
3955: -- GMS enhancement for R12 : 5583170
3956: gms_error_pkg.gms_debug('GMS_SUMMARIZE_BUDGETS.SUMMARIZE_BASELINED_VERSIONS - l_return_status IS ==== : '|| l_return_status,'C');
3957: If l_return_status = 'S' then
3958: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Baselining successful ' ;
3959: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_BASELINED',
3960: x_token_name1 => 'PROJECT_NUMBER',
3955: -- GMS enhancement for R12 : 5583170
3956: gms_error_pkg.gms_debug('GMS_SUMMARIZE_BUDGETS.SUMMARIZE_BASELINED_VERSIONS - l_return_status IS ==== : '|| l_return_status,'C');
3957: If l_return_status = 'S' then
3958: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Baselining successful ' ;
3959: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_BASELINED',
3960: x_token_name1 => 'PROJECT_NUMBER',
3961: x_token_val1 => l_project_number,
3962: x_exec_type => 'C', -- for concurrent process
3963: x_err_code => x_err_code,
3963: x_err_code => x_err_code,
3964: x_err_buff => x_err_stage);
3965:
3966: x_err_code := 0; -- setting x_err_code to zero since this is not an error condition.
3967: gms_error_pkg.gms_output(x_output => x_err_stage);
3968: end if ;
3969:
3970: if l_return_status = 'X' then -- fix for bug : 5511910
3971: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_BASELINED_ONLY',
3967: gms_error_pkg.gms_output(x_output => x_err_stage);
3968: end if ;
3969:
3970: if l_return_status = 'X' then -- fix for bug : 5511910
3971: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_BASELINED_ONLY',
3972: x_exec_type => 'C', -- for concurrent process
3973: x_err_code => x_err_code,
3974: x_err_buff => x_err_stage);
3975:
3973: x_err_code => x_err_code,
3974: x_err_buff => x_err_stage);
3975:
3976: x_err_code := 0; -- setting x_err_code to zero since this is not an error condition.
3977: gms_error_pkg.gms_output(x_output => x_err_stage);
3978:
3979: end if;
3980: -- end of GMS enhancement
3981:
3986:
3987: -- since Funds check failed the previously baselined budget (whose current_flag was set to 'R' earlier) has to be restored
3988:
3989: IF L_DEBUG = 'Y' THEN
3990: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current_flag to Y on previously baselined budget', 'C');
3991: END IF;
3992:
3993: update gms_budget_versions
3994: set current_flag = 'Y'
4005: -- Redefining the savepoint since the above commit will clear all previously defined savepoints
4006:
4007: SAVEPOINT baseline_budget_pub;
4008: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Fundscheck failed' ;
4009: gms_error_pkg.gms_message(x_err_name => 'GMS_FC_FAIL_BASELINE',
4010: x_token_name1 => 'AWARD_NUMBER',
4011: x_token_val1 => l_award_number,
4012: x_token_name2 => 'PROJECT_NUMBER',
4013: x_token_val2 => l_project_number,
4015: x_err_code => x_err_code,
4016: x_err_buff => x_err_stage);
4017: fnd_msg_pub.add; -- Bug 2587078
4018: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
4019: gms_error_pkg.gms_output(x_output => x_err_stage);
4020:
4021: -- Bug 3022766 : Introduced error code = 3 to represent fundscheck failure status
4022: -- and commented below code.
4023: --x_err_code := 0; -- Since we don't have to error out NOCOPY the Concurrent Process.
4030:
4031: ELSE -- l_fc_return_code = 'H' or 'L' - Unexpected Error Occured
4032:
4033: IF L_DEBUG = 'Y' THEN
4034: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current_flag to Y on previously baselined budget', 'C');
4035: END IF;
4036:
4037: -- since Funds check failed the previously baselined budget (whose current_flag was set to 'R' earlier) has to be restored
4038:
4051: -- Redefining the savepoint since the above commit will clear all previously defined savepoints
4052:
4053: SAVEPOINT baseline_budget_pub;
4054: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET -Unexpected error' ;
4055: gms_error_pkg.gms_message(x_err_name => 'GMS_UNEXPECTED_ERROR',
4056: x_token_name1 => 'SQLCODE',
4057: x_token_val1 => sqlcode,
4058: x_token_name2 => 'SQLERRM',
4059: x_token_val2 => sqlerrm,
4060: x_err_code => x_err_code,
4061: x_err_buff => x_err_stage);
4062: fnd_msg_pub.add; -- Bug 2587078
4063: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
4064: gms_error_pkg.gms_output(x_output => x_err_stage);
4065:
4066: rollback to baseline_budget_pub;
4067: return;
4068:
4068:
4069: END IF;
4070:
4071: IF L_DEBUG = 'Y' THEN
4072: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - End of Baseline process', 'C');
4073: END IF;
4074:
4075: END IF; --
4076:
4074:
4075: END IF; --
4076:
4077: IF L_DEBUG = 'Y' THEN
4078: gms_error_pkg.gms_debug('*** End of GMS_BUDGET_PUB.BASELINE_BUDGET ***','C');
4079: END IF;
4080:
4081: EXCEPTION
4082: WHEN OTHERS
4082: WHEN OTHERS
4083: THEN
4084: x_err_stage :='GMS_BUDGET_PUB.BASELINE_BUDGET - In when others exception';
4085:
4086: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_FAILED', -- Bug 2587078
4087: x_err_code => x_err_code,
4088: x_err_buff => x_err_stage);
4089: fnd_msg_pub.add;
4090: ROLLBACK TO baseline_budget_pub;
4270: l_api_name ,
4271: G_PKG_NAME )
4272: THEN
4273:
4274: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
4275: x_err_code => x_err_code,
4276: x_err_buff => x_err_stage);
4277:
4278: APP_EXCEPTION.RAISE_EXCEPTION;
4300:
4301: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
4302: OR p_pm_product_code IS NULL
4303: THEN
4304: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_MISSING',
4305: x_err_code => x_err_code,
4306: x_err_buff => x_err_stage);
4307:
4308: APP_EXCEPTION.RAISE_EXCEPTION;
4328: THEN
4329: return;
4330: END IF;
4331: ELSE
4332: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
4333: x_err_code => x_err_code,
4334: x_err_buff => x_err_stage);
4335:
4336: APP_EXCEPTION.RAISE_EXCEPTION;
4359: return;
4360: END IF;
4361:
4362: ELSE
4363: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
4364: x_err_code => x_err_code,
4365: x_err_buff => x_err_stage);
4366:
4367: APP_EXCEPTION.RAISE_EXCEPTION;
4371: -- dbms_output.put_line('GMS_BUDGET_PUB.ADD_BUDGET_LINE - after project info validation');
4372:
4373: IF l_project_id IS NULL
4374: THEN
4375: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJECT_IS_MISSING',
4376: x_err_code => x_err_code,
4377: x_err_buff => x_err_stage);
4378:
4379: APP_EXCEPTION.RAISE_EXCEPTION;
4388:
4389: -- The user does not have query privileges on this award
4390: -- Hence, cannot update the award. Raise error
4391:
4392: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
4393: x_err_code => x_err_code,
4394: x_err_buff => x_err_stage);
4395:
4396: APP_EXCEPTION.RAISE_EXCEPTION;
4401: IF gms_security.allow_update (x_award_id => l_award_id ) = 'N' THEN
4402:
4403: -- The user does not have update privileges on this award
4404: -- Hence , raise error
4405: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
4406: x_err_code => x_err_code,
4407: x_err_buff => x_err_stage);
4408:
4409: APP_EXCEPTION.RAISE_EXCEPTION;
4415: -- budget type code is mandatory
4416:
4417: IF p_budget_type_code IS NULL
4418: THEN
4419: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
4420: x_err_code => x_err_code,
4421: x_err_buff => x_err_stage);
4422:
4423: APP_EXCEPTION.RAISE_EXCEPTION;
4429:
4430: IF l_budget_amount_code_csr%NOTFOUND
4431: THEN
4432: CLOSE l_budget_amount_code_csr;
4433: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
4434: x_err_code => x_err_code,
4435: x_err_buff => x_err_stage);
4436:
4437: APP_EXCEPTION.RAISE_EXCEPTION;
4453:
4454: IF l_budget_version_csr%NOTFOUND
4455: THEN
4456: CLOSE l_budget_version_csr;
4457: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
4458: x_err_code => x_err_code,
4459: x_err_buff => x_err_stage);
4460:
4461: APP_EXCEPTION.RAISE_EXCEPTION;
4468: -- entry method code is mandatory (and a nullible field in table gms_budget_versions)
4469:
4470: IF l_budget_entry_method_code IS NULL
4471: THEN
4472: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_MISSING',
4473: x_err_code => x_err_code,
4474: x_err_buff => x_err_stage);
4475:
4476: APP_EXCEPTION.RAISE_EXCEPTION;
4483:
4484: IF l_budget_entry_method_csr%NOTFOUND
4485: THEN
4486: CLOSE l_budget_entry_method_csr;
4487: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_INVALID',
4488: x_err_code => x_err_code,
4489: x_err_buff => x_err_stage);
4490:
4491: APP_EXCEPTION.RAISE_EXCEPTION;
4521: -- dbms_output.put_line('GMS_BUDGET_PUB.ADD_BUDGET_LINE - after convert_tasknum_to_id = '||to_char(l_task_id));
4522:
4523: IF x_err_code <> 0
4524: THEN
4525: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_TASK_NUMBER',
4526: x_err_code => x_err_code,
4527: x_err_buff => x_err_stage);
4528:
4529: APP_EXCEPTION.RAISE_EXCEPTION;
4533:
4534: IF l_budget_entry_method_rec.entry_level_code = 'T' THEN -- then check whether it is top task
4535:
4536: IF l_task_id <> pa_task_utils.get_top_task_id( l_task_id ) THEN
4537: gms_error_pkg.gms_message(x_err_name => 'GMS_TASK_IS_NOT_TOP',
4538: x_err_code => x_err_code,
4539: x_err_buff => x_err_stage);
4540:
4541: APP_EXCEPTION.RAISE_EXCEPTION;
4545: THEN
4546: pa_tasks_pkg.verify_lowest_level_task( l_return_status_task,
4547: l_task_id);
4548: IF l_return_status_task <> 0 THEN
4549: gms_error_pkg.gms_message(x_err_name => 'GMS_TASK_IS_NOT_LOWEST',
4550: x_err_code => x_err_code,
4551: x_err_buff => x_err_stage);
4552:
4553: APP_EXCEPTION.RAISE_EXCEPTION;
4559: IF l_task_id <> pa_task_utils.get_top_task_id( l_task_id ) THEN
4560: pa_tasks_pkg.verify_lowest_level_task( l_return_status_task
4561: , l_task_id);
4562: IF l_return_status_task <> 0 THEN
4563: gms_error_pkg.gms_message(x_err_name => 'GMS_TASK_IS_NOT_TOP_OR_LOWEST',
4564: x_err_code => x_err_code,
4565: x_err_buff => x_err_stage);
4566:
4567: APP_EXCEPTION.RAISE_EXCEPTION;
4586: ,x_err_stage => x_err_stage );
4587:
4588: IF x_err_code <> 0
4589: THEN
4590: gms_error_pkg.gms_message(x_err_name => 'GMS_GET_PERIOD_DATE_FAIL',
4591: x_err_code => x_err_code,
4592: x_err_buff => x_err_stage);
4593:
4594: APP_EXCEPTION.RAISE_EXCEPTION;
4608: ,x_err_stage => x_err_stage );
4609:
4610: IF x_err_code <> 0
4611: THEN
4612: gms_error_pkg.gms_message(x_err_name => 'GMS_CHK_ENTRYMETHOD_FAIL',
4613: x_err_code => x_err_code,
4614: x_err_buff => x_err_stage);
4615:
4616: APP_EXCEPTION.RAISE_EXCEPTION;
4672: return;
4673: END IF;
4674:
4675: ELSE
4676: gms_error_pkg.gms_message(x_err_name => 'GMS_RESOURCE_MISSING',
4677: x_err_code => x_err_code,
4678: x_err_buff => x_err_stage);
4679:
4680: APP_EXCEPTION.RAISE_EXCEPTION;
4896: l_unit_of_measure,
4897: l_track_as_labor_flag);
4898:
4899: when OTHERS then
4900: gms_error_pkg.gms_message(x_err_name => 'GMS_UNEXPECTED_ERROR',
4901: x_token_name1 => 'SQLCODE',
4902: x_token_val1 => sqlcode,
4903: x_token_name2 => 'SQLERRM',
4904: x_token_val2 => sqlerrm,
5026: ,x_err_code => x_err_code );
5027:
5028: IF x_err_code <> 0
5029: THEN
5030: gms_error_pkg.gms_message(x_err_name => 'GMS_CHECK_DATES_FAILED',
5031: x_err_code => x_err_code,
5032: x_err_buff => x_err_stage);
5033:
5034: APP_EXCEPTION.RAISE_EXCEPTION;
5050:
5051:
5052: IF x_err_code <> 0
5053: THEN
5054: gms_error_pkg.gms_message(x_err_name => 'GMS_SUMMERIZE_TOTALS_FAILED',
5055: x_err_code => x_err_code,
5056: x_err_buff => x_err_stage);
5057:
5058: APP_EXCEPTION.RAISE_EXCEPTION;
5209: p_api_version_number ,
5210: l_api_name ,
5211: G_PKG_NAME )
5212: THEN
5213: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
5214: x_err_code => x_err_code,
5215: x_err_buff => x_err_stage);
5216:
5217: APP_EXCEPTION.RAISE_EXCEPTION;
5221:
5222: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
5223: OR p_pm_product_code IS NULL
5224: THEN
5225: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_IS_MISSING',
5226: x_err_code => x_err_code,
5227: x_err_buff => x_err_stage);
5228:
5229: APP_EXCEPTION.RAISE_EXCEPTION;
5251: THEN
5252: return;
5253: END IF;
5254: ELSE
5255: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
5256: x_err_code => x_err_code,
5257: x_err_buff => x_err_stage);
5258:
5259: APP_EXCEPTION.RAISE_EXCEPTION;
5301: return;
5302: END IF;
5303:
5304: ELSE
5305: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
5306: x_err_code => x_err_code,
5307: x_err_buff => x_err_stage);
5308:
5309: APP_EXCEPTION.RAISE_EXCEPTION;
5319:
5320: -- The user does not have query privileges on this award
5321: -- Hence, cannot update the award. Raise error
5322:
5323: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
5324: x_err_code => x_err_code,
5325: x_err_buff => x_err_stage);
5326:
5327: APP_EXCEPTION.RAISE_EXCEPTION;
5332: IF gms_security.allow_update (x_award_id => l_award_id ) = 'N' THEN
5333:
5334: -- The user does not have update privileges on this award
5335: -- Hence , raise error
5336: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
5337: x_err_code => x_err_code,
5338: x_err_buff => x_err_stage);
5339:
5340: APP_EXCEPTION.RAISE_EXCEPTION;
5347:
5348: IF p_budget_type_code IS NULL
5349: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
5350: THEN
5351: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
5352: x_err_code => x_err_code,
5353: x_err_buff => x_err_stage);
5354:
5355: APP_EXCEPTION.RAISE_EXCEPTION;
5361:
5362: IF l_budget_type_csr%NOTFOUND
5363: THEN
5364: CLOSE l_budget_type_csr;
5365: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
5366: x_err_code => x_err_code,
5367: x_err_buff => x_err_stage);
5368:
5369: APP_EXCEPTION.RAISE_EXCEPTION;
5387: IF l_budget_version_csr%NOTFOUND
5388: THEN
5389:
5390: CLOSE l_budget_version_csr;
5391: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
5392: x_err_code => x_err_code,
5393: x_err_buff => x_err_stage);
5394:
5395: APP_EXCEPTION.RAISE_EXCEPTION;
5438: ,x_err_stack => x_err_stack);
5439:
5440: if x_err_code <> 0
5441: then
5442: gms_error_pkg.gms_message(x_err_name => 'GMS_DELETE_BUDGET_LINE_FAIL',
5443: x_err_code => x_err_code,
5444: x_err_buff => x_err_stage);
5445:
5446: APP_EXCEPTION.RAISE_EXCEPTION;
5453: where budget_version_id = l_budget_version_id;
5454: exception
5455: when NO_DATA_FOUND
5456: then
5457: gms_error_pkg.gms_message(x_err_name => 'GMS_DELETE_DRAFT_FAIL',
5458: x_err_code => x_err_code,
5459: x_err_buff => x_err_stage);
5460:
5461: APP_EXCEPTION.RAISE_EXCEPTION;
5668: p_api_version_number ,
5669: l_api_name ,
5670: G_PKG_NAME )
5671: THEN
5672: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
5673: x_err_code => x_err_code,
5674: x_err_buff => x_err_stage);
5675:
5676: APP_EXCEPTION.RAISE_EXCEPTION;
5680:
5681: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
5682: OR p_pm_product_code IS NULL
5683: THEN
5684: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_IS_MISSING',
5685: x_err_code => x_err_code,
5686: x_err_buff => x_err_stage);
5687:
5688: APP_EXCEPTION.RAISE_EXCEPTION;
5709: THEN
5710: return;
5711: END IF;
5712: ELSE
5713: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
5714: x_err_code => x_err_code,
5715: x_err_buff => x_err_stage);
5716:
5717: APP_EXCEPTION.RAISE_EXCEPTION;
5755: return;
5756: END IF;
5757:
5758: ELSE
5759: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
5760: x_err_code => x_err_code,
5761: x_err_buff => x_err_stage);
5762:
5763: APP_EXCEPTION.RAISE_EXCEPTION;
5772: IF gms_security.allow_query (x_award_id => l_award_id ) = 'N' THEN
5773:
5774: -- The user does not have query privileges on this award
5775: -- Hence, cannot update the award. Raise error
5776: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
5777: x_err_code => x_err_code,
5778: x_err_buff => x_err_stage);
5779:
5780: APP_EXCEPTION.RAISE_EXCEPTION;
5786:
5787: -- The user does not have update privileges on this award
5788: -- Hence , raise error
5789:
5790: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
5791: x_err_code => x_err_code,
5792: x_err_buff => x_err_stage);
5793:
5794: APP_EXCEPTION.RAISE_EXCEPTION;
5801:
5802: IF p_budget_type_code IS NULL
5803: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
5804: THEN
5805: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
5806: x_err_code => x_err_code,
5807: x_err_buff => x_err_stage);
5808:
5809: APP_EXCEPTION.RAISE_EXCEPTION;
5837:
5838: IF l_budget_version_csr%NOTFOUND
5839: THEN
5840: CLOSE l_budget_version_csr;
5841: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
5842: x_err_code => x_err_code,
5843: x_err_buff => x_err_stage);
5844:
5845: APP_EXCEPTION.RAISE_EXCEPTION;
5869: ,x_err_stage => x_err_stage
5870: ,x_err_stack => x_err_stack);
5871: IF x_err_code <> 0
5872: THEN
5873: gms_error_pkg.gms_message(x_err_name => 'GMS_TASK_VALIDATE_FAIL', -- jjj - check message tag
5874: x_err_code => x_err_code,
5875: x_err_buff => x_err_stage);
5876:
5877: APP_EXCEPTION.RAISE_EXCEPTION;
5903: ,x_err_stack => x_err_stack);
5904:
5905: IF x_err_code <> 0
5906: THEN
5907: gms_error_pkg.gms_message(x_err_name => 'GMS_RES_VALIDATE_FAIL',
5908: x_err_code => x_err_code,
5909: x_err_buff => x_err_stage);
5910:
5911: APP_EXCEPTION.RAISE_EXCEPTION;
5929:
5930: IF l_resource_assignment_csr%NOTFOUND
5931: THEN
5932: CLOSE l_resource_assignment_csr;
5933: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_RESOURCE_ASSIGNMENT',
5934: x_err_code => x_err_code,
5935: x_err_buff => x_err_stage);
5936:
5937: APP_EXCEPTION.RAISE_EXCEPTION;
5956:
5957: IF l_budget_periods_csr%NOTFOUND
5958: THEN
5959: CLOSE l_budget_periods_csr;
5960: gms_error_pkg.gms_message(x_err_name => 'GMS_PERIOD_NAME_INVALID',
5961: x_err_code => x_err_code,
5962: x_err_buff => x_err_stage);
5963:
5964: APP_EXCEPTION.RAISE_EXCEPTION;
5981:
5982: IF l_start_date_csr%NOTFOUND
5983: THEN
5984: CLOSE l_start_date_csr;
5985: gms_error_pkg.gms_message(x_err_name => 'GMS_START_DATE_INVALID',
5986: x_err_code => x_err_code,
5987: x_err_buff => x_err_stage);
5988:
5989: APP_EXCEPTION.RAISE_EXCEPTION;
6007:
6008: IF l_budget_line_rowid_csr%NOTFOUND
6009: THEN
6010: CLOSE l_budget_line_rowid_csr;
6011: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_LINE_NOT_FOUND',
6012: x_err_code => x_err_code,
6013: x_err_buff => x_err_stage);
6014:
6015: APP_EXCEPTION.RAISE_EXCEPTION;
6091: WHEN OTHERS
6092: THEN
6093: CLOSE l_budget_line_rowid_csr;
6094:
6095: gms_error_pkg.gms_message(x_err_name => 'GMS_UNEXPECTED_ERROR',
6096: x_token_name1 => 'SQLCODE',
6097: x_token_val1 => sqlcode,
6098: x_token_name2 => 'SQLERRM',
6099: x_token_val2 => sqlerrm,
6120:
6121:
6122: IF x_err_code <> 0
6123: THEN
6124: gms_error_pkg.gms_message(x_err_name => 'GMS_SUMMERIZE_TOTALS_FAILED',
6125: x_err_code => x_err_code,
6126: x_err_buff => x_err_stage);
6127:
6128: APP_EXCEPTION.RAISE_EXCEPTION;
6444: p_api_version_number ,
6445: l_api_name ,
6446: G_PKG_NAME )
6447: THEN
6448: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
6449: x_err_code => x_err_code,
6450: x_err_buff => x_err_stage);
6451:
6452: APP_EXCEPTION.RAISE_EXCEPTION;
6456:
6457: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
6458: OR p_pm_product_code IS NULL
6459: THEN
6460: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_IS_MISSING',
6461: x_err_code => x_err_code,
6462: x_err_buff => x_err_stage);
6463:
6464: APP_EXCEPTION.RAISE_EXCEPTION;
6485: THEN
6486: return;
6487: END IF;
6488: ELSE
6489: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
6490: x_err_code => x_err_code,
6491: x_err_buff => x_err_stage);
6492:
6493: APP_EXCEPTION.RAISE_EXCEPTION;
6538: return;
6539: END IF;
6540:
6541: ELSE
6542: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
6543: x_err_code => x_err_code,
6544: x_err_buff => x_err_stage);
6545:
6546: APP_EXCEPTION.RAISE_EXCEPTION;
6556: IF gms_security.allow_query (x_award_id => l_award_id ) = 'N' THEN
6557:
6558: -- The user does not have query privileges on this award
6559: -- Hence, cannot update the award. Raise error
6560: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
6561: x_err_code => x_err_code,
6562: x_err_buff => x_err_stage);
6563:
6564: APP_EXCEPTION.RAISE_EXCEPTION;
6571:
6572: -- The user does not have update privileges on this award
6573: -- Hence , raise error
6574:
6575: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
6576: x_err_code => x_err_code,
6577: x_err_buff => x_err_stage);
6578:
6579: APP_EXCEPTION.RAISE_EXCEPTION;
6585:
6586: IF p_budget_type_code IS NULL
6587: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
6588: THEN
6589: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_MISSING',
6590: x_err_code => x_err_code,
6591: x_err_buff => x_err_stage);
6592:
6593: APP_EXCEPTION.RAISE_EXCEPTION;
6600: IF l_budget_type_csr%NOTFOUND
6601: THEN
6602:
6603: CLOSE l_budget_type_csr;
6604: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
6605: x_err_code => x_err_code,
6606: x_err_buff => x_err_stage);
6607:
6608: APP_EXCEPTION.RAISE_EXCEPTION;
6626:
6627: IF l_budget_version_csr%NOTFOUND
6628: THEN
6629: CLOSE l_budget_version_csr;
6630: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
6631: x_err_code => x_err_code,
6632: x_err_buff => x_err_stage);
6633:
6634: APP_EXCEPTION.RAISE_EXCEPTION;
6657:
6658: IF l_budget_change_reason_csr%NOTFOUND THEN
6659:
6660: CLOSE l_budget_change_reason_csr;
6661: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_CHANGE_REASON',
6662: x_err_code => x_err_code,
6663: x_err_buff => x_err_stage);
6664:
6665: APP_EXCEPTION.RAISE_EXCEPTION;
6692:
6693: OPEN l_budget_periods_csr(p_first_budget_period,l_time_phased_type_code);
6694: FETCH l_budget_periods_csr into l_first_budget_period;
6695: IF l_budget_periods_csr%NOTFOUND THEN
6696: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_PERIOD_IS_INVALID',
6697: x_err_code => x_err_code,
6698: x_err_buff => x_err_stage);
6699:
6700: APP_EXCEPTION.RAISE_EXCEPTION;
6820: ,x_err_code => x_err_code );
6821:
6822: IF x_err_code <> 0
6823: THEN
6824: gms_error_pkg.gms_message(x_err_name => 'GMS_CHECK_DATES_FAILED',
6825: x_err_code => x_err_code,
6826: x_err_buff => x_err_stage);
6827:
6828: APP_EXCEPTION.RAISE_EXCEPTION;
6840:
6841:
6842: IF x_err_code <> 0
6843: THEN
6844: gms_error_pkg.gms_message(x_err_name => 'GMS_SUMMERIZE_TOTALS_FAILED',
6845: x_err_code => x_err_code,
6846: x_err_buff => x_err_stage);
6847:
6848: APP_EXCEPTION.RAISE_EXCEPTION;
7130: p_api_version_number ,
7131: l_api_name ,
7132: G_PKG_NAME )
7133: THEN
7134: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
7135: x_err_code => x_err_code,
7136: x_err_buff => x_err_stage);
7137:
7138: APP_EXCEPTION.RAISE_EXCEPTION;
7142:
7143: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
7144: OR p_pm_product_code IS NULL
7145: THEN
7146: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_MISSING',
7147: x_err_code => x_err_code,
7148: x_err_buff => x_err_stage);
7149:
7150: APP_EXCEPTION.RAISE_EXCEPTION;
7171: THEN
7172: return;
7173: END IF;
7174: ELSE
7175: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
7176: x_err_code => x_err_code,
7177: x_err_buff => x_err_stage);
7178:
7179: APP_EXCEPTION.RAISE_EXCEPTION;
7220: return;
7221: END IF;
7222:
7223: ELSE
7224: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
7225: x_err_code => x_err_code,
7226: x_err_buff => x_err_stage);
7227:
7228: APP_EXCEPTION.RAISE_EXCEPTION;
7232: -- dbms_output.put_line('GMS_BUDGET_PUB.UPDATE_BUDGET_LINE - after project info validation');
7233:
7234: IF l_project_id IS NULL
7235: THEN
7236: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJECT_MISSING',
7237: x_err_code => x_err_code,
7238: x_err_buff => x_err_stage);
7239:
7240: APP_EXCEPTION.RAISE_EXCEPTION;
7248: IF gms_security.allow_query (x_award_id => l_award_id ) = 'N' THEN
7249:
7250: -- The user does not have query privileges on this award
7251: -- Hence, cannot update the award. Raise error
7252: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
7253: x_err_code => x_err_code,
7254: x_err_buff => x_err_stage);
7255:
7256: APP_EXCEPTION.RAISE_EXCEPTION;
7262:
7263: -- The user does not have update privileges on this award
7264: -- Hence , raise error
7265:
7266: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
7267: x_err_code => x_err_code,
7268: x_err_buff => x_err_stage);
7269:
7270: APP_EXCEPTION.RAISE_EXCEPTION;
7278:
7279: IF p_budget_type_code IS NULL
7280: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
7281: THEN
7282: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
7283: x_err_code => x_err_code,
7284: x_err_buff => x_err_stage);
7285:
7286: APP_EXCEPTION.RAISE_EXCEPTION;
7291: INTO l_budget_amount_code; --will be used later on during validation of Budget lines.
7292:
7293: IF l_budget_amount_code_csr%NOTFOUND
7294: THEN
7295: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
7296: x_err_code => x_err_code,
7297: x_err_buff => x_err_stage);
7298:
7299: APP_EXCEPTION.RAISE_EXCEPTION;
7316: , l_resource_list_id;
7317:
7318: IF l_budget_version_csr%NOTFOUND
7319: THEN
7320: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
7321: x_err_code => x_err_code,
7322: x_err_buff => x_err_stage);
7323:
7324: APP_EXCEPTION.RAISE_EXCEPTION;
7330: -- entry method code is mandatory (and a nullible field in table pa_budget_versions)
7331:
7332: IF l_budget_entry_method_code IS NULL
7333: THEN
7334: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_MISSING',
7335: x_err_code => x_err_code,
7336: x_err_buff => x_err_stage);
7337:
7338: APP_EXCEPTION.RAISE_EXCEPTION;
7345: FETCH l_budget_entry_method_csr INTO l_budget_entry_method_rec;
7346:
7347: IF l_budget_entry_method_csr%NOTFOUND
7348: THEN
7349: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_INVALID',
7350: x_err_code => x_err_code,
7351: x_err_buff => x_err_stage);
7352:
7353: APP_EXCEPTION.RAISE_EXCEPTION;
7365: FETCH l_budget_periods_csr INTO l_budget_start_date, l_budget_end_date; -- l_budget_end_date added new
7366:
7367: IF l_budget_periods_csr%NOTFOUND
7368: THEN
7369: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_PERIOD_IS_INVALID',
7370: x_err_code => x_err_code,
7371: x_err_buff => x_err_stage);
7372:
7373: APP_EXCEPTION.RAISE_EXCEPTION;
7387: THEN
7388: l_budget_end_date := trunc(p_budget_end_date);
7389: END IF;
7390: ELSE
7391: gms_error_pkg.gms_message(x_err_name => 'GMS_START_DATE_MISSING',
7392: x_err_code => x_err_code,
7393: x_err_buff => x_err_stage);
7394:
7395: APP_EXCEPTION.RAISE_EXCEPTION;
7418: ,x_err_stack => x_err_stack);
7419:
7420: IF x_err_code <> 0
7421: THEN
7422: gms_error_pkg.gms_message(x_err_name => 'GMS_TASK_VALIDATE_FAIL', -- jjj - check message tag
7423: x_err_code => x_err_code,
7424: x_err_buff => x_err_stage);
7425:
7426: APP_EXCEPTION.RAISE_EXCEPTION;
7451: ,x_err_stack => x_err_stack);
7452:
7453: IF x_err_code <> 0
7454: THEN
7455: gms_error_pkg.gms_message(x_err_name => 'GMS_RES_VALIDATE_FAIL', -- jjj - check message tag
7456: x_err_code => x_err_code,
7457: x_err_buff => x_err_stage);
7458:
7459: APP_EXCEPTION.RAISE_EXCEPTION;
7474: CLOSE l_uncat_list_member_csr;
7475:
7476: ELSIF l_budget_entry_method_rec.categorization_code = 'R'
7477: THEN
7478: gms_error_pkg.gms_message(x_err_name => 'GMS_RESOURCE_IS_MISSING',
7479: x_err_code => x_err_code,
7480: x_err_buff => x_err_stage);
7481:
7482: APP_EXCEPTION.RAISE_EXCEPTION;
7494: IF l_resource_csr%NOTFOUND
7495: THEN
7496:
7497: CLOSE l_resource_csr;
7498: gms_error_pkg.gms_message(x_err_name => 'GMS_LIST_MEMBER_INVALID',
7499: x_err_code => x_err_code,
7500: x_err_buff => x_err_stage);
7501:
7502: APP_EXCEPTION.RAISE_EXCEPTION;
7516:
7517: IF l_resource_assignment_csr%NOTFOUND
7518: THEN
7519: CLOSE l_resource_assignment_csr;
7520: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_RESOURCE_ASSIGNMENT',
7521: x_err_code => x_err_code,
7522: x_err_buff => x_err_stage);
7523:
7524: APP_EXCEPTION.RAISE_EXCEPTION;
7537: IF l_budget_line_csr%NOTFOUND
7538: THEN
7539:
7540: CLOSE l_budget_line_csr;
7541: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_LINE_NOT_FOUND',
7542: x_err_code => x_err_code,
7543: x_err_buff => x_err_stage);
7544:
7545: APP_EXCEPTION.RAISE_EXCEPTION;
7557:
7558: IF l_budget_change_reason_csr%NOTFOUND THEN
7559:
7560: CLOSE l_budget_change_reason_csr;
7561: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_CHANGE_REASON',
7562: x_err_code => x_err_code,
7563: x_err_buff => x_err_stage);
7564:
7565: APP_EXCEPTION.RAISE_EXCEPTION;
7673:
7674:
7675: IF x_err_code <> 0
7676: THEN
7677: gms_error_pkg.gms_message(x_err_name => 'GMS_SUMMERIZE_TOTALS_FAILED',
7678: x_err_code => x_err_code,
7679: x_err_buff => x_err_stage);
7680:
7681: APP_EXCEPTION.RAISE_EXCEPTION;