[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
1208: return;
1209: end if ;
1210: if x_categorization_code = 'R' then
1211: if x_period_type = 'R' then -- for a Date Range Budget
1212: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALIDATE_FAIL_RES_DR',
1213: x_token_name1 => 'X_START_DATE',
1214: x_token_val1 => x_start_date,
1215: x_token_name2 => 'X_END_DATE',
1216: x_token_val2 => x_end_date,
1222: x_token_val5 => x_project_number,
1223: x_err_code => x_err_code,
1224: x_err_buff => x_err_stage);
1225: elsif x_period_type = 'N' then -- for a No Time Phased budget
1226: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALIDATE_FAIL_RES_NT',
1227: x_token_name1 => 'X_RES_NAME',
1228: x_token_val1 => x_resource_name,
1229: x_token_name2 => 'X_OVERFLOW_AMT',
1230: x_token_val2 => to_char(x_carry_over_budget),
1232: x_token_val3 => x_project_number,
1233: x_err_code => x_err_code,
1234: x_err_buff => x_err_stage);
1235: else -- for either GL or PA period
1236: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALIDATE_FAIL_RES',
1237: x_token_name1 => 'X_PERIOD_NAME',
1238: x_token_val1 => x_period_name,
1239: x_token_name2 => 'X_RES_NAME',
1240: x_token_val2 => x_resource_name,
1247:
1248: end if;
1249: else
1250: if x_period_type = 'R' then -- for a Date Range Budget
1251: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALID_FAIL_NO_RES_DR',
1252: x_token_name1 => 'X_START_DATE',
1253: x_token_val1 => x_start_date,
1254: x_token_name2 => 'X_END_DATE',
1255: x_token_val2 => x_end_date,
1259: x_token_val4 => x_project_number,
1260: x_err_code => x_err_code,
1261: x_err_buff => x_err_stage);
1262: elsif x_period_type = 'N' then -- for a No Time Phased budget
1263: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALID_FAIL_NO_RES_NT',
1264: x_token_name1 => 'X_OVERFLOW_AMT',
1265: x_token_val1 =>to_char(x_carry_over_budget),
1266: x_token_name2 => 'X_PROJECT_NUM',
1267: x_token_val2 => x_project_number,
1267: x_token_val2 => x_project_number,
1268: x_err_code => x_err_code,
1269: x_err_buff => x_err_stage);
1270: else -- for either GL or PA period
1271: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_VALIDATE_FAIL_NO_RES',
1272: x_token_name1 => 'X_PERIOD_NAME',
1273: x_token_val1 => x_period_name,
1274: x_token_name2 => 'X_OVERFLOW_AMT',
1275: x_token_val2 =>to_char(x_carry_over_budget),
1378: (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
1379: (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
1380: null;
1381: else
1382: gms_error_pkg.gms_message(x_err_name => 'GMS_BU_DATE_OVERLAP',
1383: x_err_code => x_err_code,
1384: x_err_buff => x_err_stage);
1385:
1386: x_return_status := 1; -- validation failed
1493: -- Midified for GMS enhancement 5583170 as we are allowing user to enter different BEM
1494: -- in Award budget form.
1495: NULL ;
1496: /*
1497: gms_error_pkg.gms_message(x_err_name => 'GMS_CANT_CHANGE_BEM',
1498: x_err_code => x_err_code,
1499: x_err_buff => x_err_stage);
1500:
1501: APP_EXCEPTION.RAISE_EXCEPTION;
1540:
1541: if ((l_categorization_code = 'N' and l_uncategorized_flag <> 'Y') or
1542: (l_categorization_code = 'R' and l_uncategorized_flag = 'Y')) then
1543:
1544: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_BEM_RESOURCE_LIST',
1545: x_err_code => x_err_code,
1546: x_err_buff => x_err_stage);
1547:
1548: APP_EXCEPTION.RAISE_EXCEPTION;
1741: l_api_name ,
1742: G_PKG_NAME )
1743: THEN
1744:
1745: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
1746: x_err_code => x_err_code,
1747: x_err_buff => x_err_stage);
1748:
1749: APP_EXCEPTION.RAISE_EXCEPTION;
1755:
1756: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
1757: OR p_pm_product_code IS NULL
1758: THEN
1759: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_IS_MISSING',
1760: x_err_code => x_err_code,
1761: x_err_buff => x_err_stage);
1762:
1763: APP_EXCEPTION.RAISE_EXCEPTION;
1787: return;
1788: END IF;
1789: ELSE
1790:
1791: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
1792: x_err_code => x_err_code,
1793: x_err_buff => x_err_stage);
1794:
1795: APP_EXCEPTION.RAISE_EXCEPTION;
1840: return;
1841: END IF;
1842:
1843: ELSE
1844: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
1845: x_err_code => x_err_code,
1846: x_err_buff => x_err_stage);
1847:
1848: APP_EXCEPTION.RAISE_EXCEPTION;
1860:
1861: -- The user does not have query privileges on this award
1862: -- Hence, cannot create a draft budget.Raise error
1863:
1864: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
1865: x_err_code => x_err_code,
1866: x_err_buff => x_err_stage);
1867:
1868: APP_EXCEPTION.RAISE_EXCEPTION;
1874:
1875: -- The user does not have update privileges on this award
1876: -- Hence , raise error
1877:
1878: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
1879: x_err_code => x_err_code,
1880: x_err_buff => x_err_stage);
1881:
1882: APP_EXCEPTION.RAISE_EXCEPTION;
1890: IF p_budget_type_code IS NULL
1891: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
1892: THEN
1893:
1894: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
1895: x_err_code => x_err_code,
1896: x_err_buff => x_err_stage);
1897:
1898: APP_EXCEPTION.RAISE_EXCEPTION;
1905:
1906: IF l_budget_amount_code_csr%NOTFOUND
1907: THEN
1908: CLOSE l_budget_amount_code_csr;
1909: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
1910: x_err_code => x_err_code,
1911: x_err_buff => x_err_stage);
1912:
1913: APP_EXCEPTION.RAISE_EXCEPTION;
1921:
1922: IF p_entry_method_code IS NULL
1923: OR p_entry_method_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
1924: THEN
1925: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_MISSING',
1926: x_err_code => x_err_code,
1927: x_err_buff => x_err_stage);
1928:
1929: APP_EXCEPTION.RAISE_EXCEPTION;
1938: IF l_budget_entry_method_csr%NOTFOUND
1939: THEN
1940:
1941: CLOSE l_budget_entry_method_csr;
1942: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_INVALID',
1943: x_err_code => x_err_code,
1944: x_err_buff => x_err_stage);
1945:
1946: APP_EXCEPTION.RAISE_EXCEPTION;
1959: p_err_code => x_err_code,
1960: p_err_stage => x_err_stage,
1961: p_err_stack => x_err_stack );
1962: IF x_err_code <> 0 THEN
1963: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_UNCATEGORIZED_LIST',
1964: x_err_code => x_err_code,
1965: x_err_buff => x_err_stage);
1966:
1967: APP_EXCEPTION.RAISE_EXCEPTION;
1989: ,x_err_stack => x_err_stack);
1990:
1991: IF x_err_code <> 0
1992: THEN
1993: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_RESOURCE_LIST_NAME',
1994: x_err_code => x_err_code,
1995: x_err_buff => x_err_stage);
1996:
1997: APP_EXCEPTION.RAISE_EXCEPTION;
1997: APP_EXCEPTION.RAISE_EXCEPTION;
1998: END IF;
1999:
2000: ELSE
2001: gms_error_pkg.gms_message(x_err_name => 'GMS_RESLIST_ID_NAME_MISSING',
2002: x_err_code => x_err_code,
2003: x_err_buff => x_err_stage);
2004:
2005: APP_EXCEPTION.RAISE_EXCEPTION;
2046:
2047: IF l_budget_change_reason_csr%NOTFOUND THEN
2048:
2049: CLOSE l_budget_change_reason_csr;
2050: gms_error_pkg.gms_message(x_err_name => 'GMS_CHANGE_REASON_INVALID',
2051: x_err_code => x_err_code,
2052: x_err_buff => x_err_stage);
2053:
2054: APP_EXCEPTION.RAISE_EXCEPTION;
2184: --if working bugdet is submitted no new working budget can be created
2185:
2186: IF l_budget_status_code = 'S'
2187: THEN
2188: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_IS_SUBMITTED',
2189: x_err_code => x_err_code,
2190: x_err_buff => x_err_stage);
2191:
2192: APP_EXCEPTION.RAISE_EXCEPTION;
2215:
2216: OPEN l_budget_periods_csr(p_first_budget_period,l_budget_entry_method_rec.time_phased_type_code);
2217: FETCH l_budget_periods_csr into l_first_budget_period;
2218: IF l_budget_periods_csr%NOTFOUND THEN
2219: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_PERIOD_IS_INVALID',
2220: x_err_code => x_err_code,
2221: x_err_buff => x_err_stage);
2222:
2223: APP_EXCEPTION.RAISE_EXCEPTION;
2256: from gms_budget_versions
2257: where budget_version_id = l_baselined_version_id;
2258:
2259: if (l_resource_list_id <> l_baselined_resource_list_id) then
2260: gms_error_pkg.gms_message(x_err_name => 'GMS_BU_BASE_RES_LIST_EXISTS',
2261: x_err_code => x_err_code,
2262: x_err_buff => x_err_stage);
2263:
2264: APP_EXCEPTION.RAISE_EXCEPTION;
2294: ,x_err_stack => x_err_stack);
2295:
2296: if x_err_code <> 0 -- this err code is from delete_draft_budget
2297: then
2298: gms_error_pkg.gms_message(x_err_name => 'GMS_DELETE_DRAFT_FAIL',
2299: x_err_code => x_err_code,
2300: x_err_buff => x_err_stage);
2301:
2302: APP_EXCEPTION.RAISE_EXCEPTION;
2511:
2512: begin
2513:
2514: IF L_DEBUG = 'Y' THEN
2515: gms_error_pkg.gms_debug('*** Start of GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET ***','C');
2516: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET - Calling gms_budget_pub.baseline_budget','C');
2517: END IF;
2518:
2519: /* Bug 3651888 */
2512: begin
2513:
2514: IF L_DEBUG = 'Y' THEN
2515: gms_error_pkg.gms_debug('*** Start of GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET ***','C');
2516: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET - Calling gms_budget_pub.baseline_budget','C');
2517: END IF;
2518:
2519: /* Bug 3651888 */
2520: Select award_id
2535: p_budget_type_code => 'AC',
2536: p_mark_as_original => p_mark_as_original);
2537:
2538: IF L_DEBUG = 'Y' THEN
2539: 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');
2540: 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');
2541: END IF;
2542:
2543: -- Bug 3022766 : Introduced error code = 3 to represent fundscheck failure status.
2536: p_mark_as_original => p_mark_as_original);
2537:
2538: IF L_DEBUG = 'Y' THEN
2539: 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');
2540: 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');
2541: END IF;
2542:
2543: -- Bug 3022766 : Introduced error code = 3 to represent fundscheck failure status.
2544: -- Baseline_budget procedure returns following statuses
2565:
2566: end if;
2567:
2568: IF L_DEBUG = 'Y' THEN
2569: gms_error_pkg.gms_debug('*** End of GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET ***','C');
2570: END IF;
2571:
2572: exception
2573: when OTHERS then
2573: when OTHERS then
2574: RETCODE := 2;
2575: ERRBUFF := SQLCODE ||'-'||SQLERRM;
2576: IF L_DEBUG = 'Y' THEN
2577: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.SUBMIT_BASELINE_BUDGET - Exception :'||ERRBUFF,'C');
2578: END IF;
2579:
2580: end;
2581:
2784: l_funds_check_at_submit VARCHAR2(1) := NVL(FND_PROFILE.value('GMS_ENABLE_FUNDS_CHECK_AT_SUBMIT'),'Y'); -- Bug 2290959
2785: l_wf_enabled_flag VARCHAR2(1);--Added for bug 5620089
2786: BEGIN
2787:
2788: gms_error_pkg.set_debug_context; -- Added for Bug: 2510024
2789:
2790: IF L_DEBUG = 'Y' THEN
2791: gms_error_pkg.gms_debug('*** Start of GMS_BUDGET_PUB.BASELINE_BUDGET ***','C');
2792: END IF;
2787:
2788: gms_error_pkg.set_debug_context; -- Added for Bug: 2510024
2789:
2790: IF L_DEBUG = 'Y' THEN
2791: gms_error_pkg.gms_debug('*** Start of GMS_BUDGET_PUB.BASELINE_BUDGET ***','C');
2792: END IF;
2793:
2794: x_err_code := 0;
2795: x_err_stage := NULL; -- Bug 2587078
2816: l_api_name ,
2817: G_PKG_NAME )
2818: THEN
2819: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in FND_API.Compatible_API_Call';
2820: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
2821: x_err_code => x_err_code,
2822: x_err_buff => x_err_stage);
2823: fnd_msg_pub.add; -- Bug 2587078
2824:
2832: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
2833: OR p_pm_product_code IS NULL
2834: THEN
2835: x_err_stage := 'Error occured while validating product_code';
2836: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_IS_MISSING',
2837: x_err_code => x_err_code,
2838: x_err_buff => x_err_stage);
2839: fnd_msg_pub.add; -- Bug 2587078
2840: APP_EXCEPTION.RAISE_EXCEPTION;
2852: AND p_award_id IS NOT NULL)
2853: THEN
2854:
2855: IF L_DEBUG = 'Y' THEN
2856: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling convert_awardnum_to_id','C');
2857: END IF;
2858:
2859: convert_awardnum_to_id(p_award_number_in => p_award_number
2860: ,p_award_id_in => p_award_id
2865:
2866: IF x_err_code <> 0
2867: THEN
2868: IF L_DEBUG = 'Y' THEN
2869: 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');
2870: END IF;
2871: return;
2872: END IF;
2873: ELSE
2871: return;
2872: END IF;
2873: ELSE
2874: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Award information';
2875: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
2876: x_err_code => x_err_code,
2877: x_err_buff => x_err_stage);
2878: fnd_msg_pub.add; -- Bug 2587078
2879: APP_EXCEPTION.RAISE_EXCEPTION;
2897: -- If a user does not have privileges to update the award, then
2898: -- cannot baseline the budget
2899:
2900: IF L_DEBUG = 'Y' THEN
2901: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_security.initialize','C');
2902: END IF;
2903:
2904: gms_security.initialize (X_user_id => l_user_id,
2905: X_calling_module => l_module_name);
2925: OR (p_project_id <> GMS_BUDGET_PUB.G_PA_MISS_NUM
2926: AND p_project_id IS NOT NULL)
2927: THEN
2928: IF L_DEBUG = 'Y' THEN
2929: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling convert_projnum_to_id','C');
2930: END IF;
2931: convert_projnum_to_id(p_project_number_in => p_project_number
2932: ,p_project_id_in => p_project_id
2933: ,p_project_id_out => l_project_id
2937:
2938: IF x_err_code <> 0
2939: THEN
2940: IF L_DEBUG = 'Y' THEN
2941: 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');
2942: END IF;
2943: return;
2944: END IF;
2945:
2944: END IF;
2945:
2946: ELSE
2947: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Project information';
2948: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJECT_IS_MISSING', -- 'GMS_PROJ_NUM_ID_MISSING', Bug 2587078
2949: x_err_code => x_err_code,
2950: x_err_buff => x_err_stage);
2951: fnd_msg_pub.add; -- Bug 2587078
2952: APP_EXCEPTION.RAISE_EXCEPTION;
2963:
2964: IF l_project_id IS NULL --never happens because previous procedure checks this.
2965: THEN
2966: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Project information';
2967: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_REF_AND_ID_MISSING', --'GMS_INVALID_PROJ_NUMBER', bug 2587078
2968: x_err_code => x_err_code,
2969: x_err_buff => x_err_stage);
2970: fnd_msg_pub.add; -- Bug 2587078
2971: APP_EXCEPTION.RAISE_EXCEPTION;
2976: IF p_budget_type_code IS NULL
2977: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
2978: THEN
2979: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Budget type information';
2980: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
2981: x_err_code => x_err_code,
2982: x_err_buff => x_err_stage);
2983: fnd_msg_pub.add; -- Bug 2587078
2984: APP_EXCEPTION.RAISE_EXCEPTION;
2993: THEN
2994:
2995: CLOSE l_budget_types_csr;
2996: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Budget type information';
2997: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
2998: x_err_code => x_err_code,
2999: x_err_buff => x_err_stage);
3000: fnd_msg_pub.add; -- Bug 2587078
3001: APP_EXCEPTION.RAISE_EXCEPTION;
3034:
3035: END IF;
3036:
3037: IF L_DEBUG = 'Y' THEN
3038: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_mark_as_original : '||l_mark_as_original,'C');
3039: END IF;
3040:
3041: -- get the budget version ID associated with this project / budget_type_code combination
3042:
3050: IF l_budget_versions_csr%NOTFOUND
3051: THEN
3052: CLOSE l_budget_versions_csr;
3053: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Budget version information';
3054: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
3055: x_err_code => x_err_code,
3056: x_err_buff => x_err_stage);
3057: fnd_msg_pub.add; -- Bug 2587078
3058: APP_EXCEPTION.RAISE_EXCEPTION;
3071: IF l_resource_assignments_csr%NOTFOUND
3072: THEN
3073: CLOSE l_resource_assignments_csr;
3074: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Budget lines information';
3075: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_LINES',
3076: x_err_code => x_err_code,
3077: x_err_buff => x_err_stage);
3078: fnd_msg_pub.add; -- Bug 2587078
3079: APP_EXCEPTION.RAISE_EXCEPTION;
3088: IF l_time_phased_type_csr%NOTFOUND
3089: THEN
3090: CLOSE l_time_phased_type_csr;
3091: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Time phase information';
3092: gms_error_pkg.gms_message(x_err_name => 'GMS_TIME_PHASED_TYPE_CODE_MISS',
3093: x_err_code => x_err_code,
3094: x_err_buff => x_err_stage);
3095: fnd_msg_pub.add; -- Bug 2587078
3096: APP_EXCEPTION.RAISE_EXCEPTION;
3098:
3099: -- Dummy call !
3100:
3101: IF L_DEBUG = 'Y' THEN
3102: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_budget_core.verify', 'C');
3103: END IF;
3104:
3105: gms_budget_core.verify( x_budget_version_id => l_budget_version_id
3106: ,x_err_code => x_err_code
3109:
3110: IF x_err_code <> 0
3111: THEN
3112: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in gms_budget_core.verify';
3113: gms_error_pkg.gms_message(x_err_name => 'GMS_VERIFY_FAILED',
3114: x_err_code => x_err_code,
3115: x_err_buff => x_err_stage);
3116: fnd_msg_pub.add; -- Bug 2587078
3117: APP_EXCEPTION.RAISE_EXCEPTION;
3134: THEN
3135:
3136: CLOSE l_budget_rules_csr;
3137: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured while validating Budget rules information';
3138: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_RULES_ATTR',
3139: x_err_code => x_err_code,
3140: x_err_buff => x_err_stage);
3141: fnd_msg_pub.add; -- Bug 2587078
3142: APP_EXCEPTION.RAISE_EXCEPTION;
3171: if is_fc_required (p_project_id => l_project_id,
3172: p_award_id => l_award_id)
3173: then
3174: IF L_DEBUG = 'Y' THEN
3175: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Call to is_fc_required returned TRUE ', 'C');
3176: END IF;
3177:
3178: UPDATE gms_budget_versions
3179: SET fc_required_flag = 'Y'
3182: AND budget_type_code = p_budget_type_code
3183: AND budget_status_code in ('W','S');
3184: else
3185: IF L_DEBUG = 'Y' THEN
3186: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Call to is_fc_required returned FALSE ', 'C');
3187: END IF;
3188:
3189: UPDATE gms_budget_versions
3190: SET fc_required_flag = 'N'
3198: IF l_budget_status_code = 'W'
3199: THEN
3200:
3201: IF L_DEBUG = 'Y' THEN
3202: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Start of Submit process', 'C');
3203: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES - Submit mode', 'C');
3204: END IF;
3205:
3206: -- this is also a dummy call ...
3199: THEN
3200:
3201: IF L_DEBUG = 'Y' THEN
3202: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Start of Submit process', 'C');
3203: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES - Submit mode', 'C');
3204: END IF;
3205:
3206: -- this is also a dummy call ...
3207: GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES
3232: THEN
3233: IF (l_warnings_only_flag <> 'Y')
3234: THEN
3235: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES - Submit';
3236: gms_error_pkg.gms_message(x_err_name => 'GMS_VERIFY_BUDGET_FAIL_S',
3237: x_err_code => x_err_code,
3238: x_err_buff => x_err_stage);
3239: fnd_msg_pub.add; -- Bug 25870708
3240: APP_EXCEPTION.RAISE_EXCEPTION;
3243:
3244:
3245: -- LOCK DRAFT BUDGET VERSION Since Primary Verification Finished
3246: IF L_DEBUG = 'Y' THEN
3247: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Locking the budget', 'C');
3248: END IF;
3249:
3250: OPEN l_lock_budget_csr(l_budget_version_id);
3251: CLOSE l_lock_budget_csr;
3252:
3253: -- BASELINE RULES -------------------------------------------------------------
3254:
3255: IF L_DEBUG = 'Y' THEN
3256: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES - Baseline mode', 'C');
3257: END IF;
3258:
3259: GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES
3260: (p_draft_version_id => l_budget_version_id
3284: THEN
3285: IF (l_warnings_only_flag <> 'Y')
3286: THEN
3287: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in GMS_BUDGET_UTILS.VERIFY_BUDGET_RULES - Baseline ';
3288: gms_error_pkg.gms_message(x_err_name => 'GMS_VERIFY_BUDGET_FAIL_B',
3289: x_err_code => x_err_code,
3290: x_err_buff => x_err_stage);
3291: fnd_msg_pub.add; -- Bug 2587078
3292: APP_EXCEPTION.RAISE_EXCEPTION;
3296:
3297: -- CHECKING IF WORKFLOW IS ENABLED FOR THIS AWARD
3298:
3299: IF L_DEBUG = 'Y' THEN
3300: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_wf_pkg.is_budget_wf_used', 'C');
3301: END IF;
3302:
3303: GMS_WF_PKG.Is_Budget_Wf_Used
3304: ( p_project_id => l_project_id
3313:
3314: IF (x_err_code <> 0)
3315: THEN
3316: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in gms_wf_pkg.is_budget_wf_used';
3317: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_WF_CHECK_FAIL',
3318: x_err_code => x_err_code,
3319: x_err_buff => x_err_stage);
3320: fnd_msg_pub.add; -- Bug 2587078
3321: APP_EXCEPTION.RAISE_EXCEPTION;
3321: APP_EXCEPTION.RAISE_EXCEPTION;
3322: END IF;
3323:
3324: IF L_DEBUG = 'Y' THEN
3325: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_workflow_is_used : '||l_workflow_is_used, 'C');
3326: END IF;
3327:
3328: IF (l_workflow_is_used = 'T' ) THEN -- WORKFLOW IS ENABLED FOR THIS AWARD
3329:
3337: conc_request_id = l_conc_request_id
3338: WHERE budget_version_id = l_budget_version_id;
3339:
3340: IF L_DEBUG = 'Y' THEN
3341: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_wf_pkg.start_budget_wf', 'C');
3342: END IF;
3343:
3344: GMS_WF_PKG.Start_Budget_Wf
3345: ( p_draft_version_id => l_budget_version_id
3354:
3355: IF (x_err_code <> 0)
3356: THEN
3357: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in gms_wf_pkg.start_budget_wf';
3358: gms_error_pkg.gms_message(x_err_name => 'GMS_START_BUDG_WF_FAIL',
3359: x_err_code => x_err_code,
3360: x_err_buff => x_err_stage);
3361: fnd_msg_pub.add; -- Bug 2587078
3362: APP_EXCEPTION.RAISE_EXCEPTION;
3373: COMMIT;
3374: END IF;
3375:
3376: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Budget workflow started ';
3377: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_WF_STARTED',
3378: x_token_name1 => 'AWARD_NUMBER',
3379: x_token_val1 => l_award_number,
3380: x_token_name2 => 'PROJECT_NUMBER',
3381: x_token_val2 => l_project_number,
3385: fnd_msg_pub.add; --2587078
3386: x_err_code := 0; -- setting x_err_code to zero since this is not an error condition.
3387:
3388: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
3389: gms_error_pkg.gms_output(x_output => x_err_stage);
3390:
3391: ELSE -- WORKFLOW IS NOT ENABLED FOR THIS AWARD
3392:
3393: IF L_DEBUG = 'Y' THEN
3390:
3391: ELSE -- WORKFLOW IS NOT ENABLED FOR THIS AWARD
3392:
3393: IF L_DEBUG = 'Y' THEN
3394: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_funds_check_at_submit : '||l_funds_check_at_submit,'C');
3395: END IF;
3396:
3397: 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.
3398:
3409:
3410: SAVEPOINT baseline_budget_pub;
3411:
3412: IF L_DEBUG = 'Y' THEN
3413: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_fc_return_code : '||l_fc_return_code, 'C');
3414: END IF;
3415:
3416:
3417: END IF; --Bug 2290959
3418:
3419: IF ((l_fc_return_code = 'S' AND l_funds_check_at_submit = 'Y') OR l_funds_check_at_submit = 'N' )THEN --Bug 2290959
3420:
3421: IF L_DEBUG = 'Y' THEN
3422: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating Budget to Submitted status', 'C');
3423: END IF;
3424:
3425: UPDATE gms_budget_versions
3426: SET budget_status_code = 'S',
3428: conc_request_id = l_conc_request_id,
3429: current_original_flag = l_mark_as_original -- Added for Bug:1578992
3430: WHERE budget_version_id = l_budget_version_id;
3431: x_err_stage := NULL;
3432: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_SUBMITTED',
3433: x_token_name1 => 'AWARD_NUMBER',
3434: x_token_val1 => l_award_number,
3435: x_token_name2 => 'PROJECT_NUMBER',
3436: x_token_val2 => l_project_number,
3440:
3441: x_err_code := 0; -- setting x_err_code to zero since this is not an error condition.
3442:
3443: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
3444: gms_error_pkg.gms_output(x_output => x_err_stage);
3445:
3446: ELSE
3447: x_err_stage := NULL;
3448: gms_error_pkg.gms_message(x_err_name => 'GMS_FC_FAIL_SUBMIT',
3444: gms_error_pkg.gms_output(x_output => x_err_stage);
3445:
3446: ELSE
3447: x_err_stage := NULL;
3448: gms_error_pkg.gms_message(x_err_name => 'GMS_FC_FAIL_SUBMIT',
3449: x_token_name1 => 'AWARD_NUMBER',
3450: x_token_val1 => l_award_number,
3451: x_token_name2 => 'PROJECT_NUMBER',
3452: x_token_val2 => l_project_number,
3460:
3461: -- End of code changes done for bug 3022766
3462:
3463: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
3464: gms_error_pkg.gms_output(x_output => x_err_stage);
3465: rollback to baseline_budget_pub;
3466:
3467: IF L_DEBUG = 'Y' THEN
3468: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - End of Submit process', 'C');
3464: gms_error_pkg.gms_output(x_output => x_err_stage);
3465: rollback to baseline_budget_pub;
3466:
3467: IF L_DEBUG = 'Y' THEN
3468: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - End of Submit process', 'C');
3469: END IF;
3470: return;
3471: END IF;
3472:
3471: END IF;
3472:
3473: END IF; -- (l_workflow_is_used = 'T' )
3474: IF L_DEBUG = 'Y' THEN
3475: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - End of Submit process', 'C');
3476: END IF;
3477: ---------------------------------------------------------------------------------------
3478: ELSE -- Budget status is 'S', so Baseline the budget
3479:
3477: ---------------------------------------------------------------------------------------
3478: ELSE -- Budget status is 'S', so Baseline the budget
3479:
3480: IF L_DEBUG = 'Y' THEN
3481: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Start of Baseline process', 'C');
3482: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_budget_core.baseline', 'C');
3483: END IF;
3484: gms_budget_core.baseline ( x_draft_version_id => l_budget_version_id
3485: ,x_mark_as_original => l_mark_as_original
3478: ELSE -- Budget status is 'S', so Baseline the budget
3479:
3480: IF L_DEBUG = 'Y' THEN
3481: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Start of Baseline process', 'C');
3482: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_budget_core.baseline', 'C');
3483: END IF;
3484: gms_budget_core.baseline ( x_draft_version_id => l_budget_version_id
3485: ,x_mark_as_original => l_mark_as_original
3486: ,x_verify_budget_rules => 'N'
3490:
3491: IF x_err_code <> 0
3492: THEN
3493: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in gms_budget_core.baseline';
3494: gms_error_pkg.gms_message(x_err_name => 'GMS_BASELINE_FAILED',
3495: x_err_code => x_err_code,
3496: x_err_buff => x_err_stage);
3497: fnd_msg_pub.add; -- Bug 2587078
3498: APP_EXCEPTION.RAISE_EXCEPTION;
3506: -- First get the budget_version_id of the previously baselined budget. In case there is an error we need to set the current_flag
3507: -- for this line to Y
3508:
3509: IF L_DEBUG = 'Y' THEN
3510: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Fetching previous budget_version_id', 'C');
3511: END IF;
3512:
3513:
3514: select bv.budget_version_id,
3524: and bv.current_flag = 'R'
3525: and bv.budget_entry_method_code = bem.budget_entry_method_code;
3526:
3527: IF L_DEBUG = 'Y' THEN
3528: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Fetched previous budget_version_id '||l_prev_baselined_version_id, 'C');
3529: END IF;
3530:
3531:
3532: exception
3534: -- this means that there did not exist any baselined budget earlier
3535: l_prev_baselined_version_id := null;
3536: l_prev_entry_level_code := null;
3537: IF L_DEBUG = 'Y' THEN
3538: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - There exists no baselined budget earlier', 'C');
3539: END IF;
3540:
3541: when OTHERS then
3542: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - While fetching previous version id, when others exception ';
3539: END IF;
3540:
3541: when OTHERS then
3542: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - While fetching previous version id, when others exception ';
3543: gms_error_pkg.gms_message( x_err_name => 'GMS_UNEXPECTED_ERROR',
3544: x_token_name1 => 'SQLCODE',
3545: x_token_val1 => sqlcode,
3546: x_token_name2 => 'SQLERRM',
3547: x_token_val2 => sqlerrm,
3557:
3558: -- Bug 5162777 : The budgetary control records are created before invoking fundscheck process.
3559: ----------------------- START OF BC RECORD CREATION -------------------------
3560:
3561: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_budg_cont_setup.bud_ctrl_create', 'C');
3562: gms_budg_cont_setup.bud_ctrl_create(p_project_id => l_project_id
3563: ,p_award_id => l_award_id
3564: ,p_prev_entry_level_code => l_prev_entry_level_code
3565: ,p_entry_level_code => l_entry_level_code
3570:
3571: if x_err_code <> 0
3572: then
3573: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occurred in gms_budg_cont_setup.bud_ctrl_create';
3574: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDG_CONTROL_SETUP_FAIL',
3575: x_err_code => x_err_code,
3576: x_err_buff => x_err_stage);
3577:
3578: SAVEPOINT baseline_budget_pub;
3583: ----------------------- END OF BC RECORD CREATION -------------------------
3584:
3585: -- CALLING THE FUNDSCHECK PROCESS ...
3586: IF L_DEBUG = 'Y' THEN
3587: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_budget_balance.update_gms_balance','C');
3588: END IF;
3589:
3590: gms_budget_balance.update_gms_balance( x_project_id => l_project_id
3591: , x_award_id => l_award_id
3598:
3599: SAVEPOINT baseline_budget_pub;
3600:
3601: IF L_DEBUG = 'Y' THEN
3602: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_fc_return_code : '||l_fc_return_code, 'C');
3603: END IF;
3604:
3605: IF l_fc_return_code = 'S'
3606: THEN -- Funds check passed
3608: -- after calling BASELINE, set the budget_status_code back to 'W' (Working)
3609: -- the concept of submitting budget is not available in the public API's!
3610:
3611: IF L_DEBUG = 'Y' THEN
3612: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating Budget to Working status', 'C');
3613: END IF;
3614:
3615: UPDATE gms_budget_versions
3616: SET budget_status_code = 'W', conc_request_id = l_conc_request_id
3628:
3629: -- 1. set the current_flag = 'N' for the previously baselined budget (whose current_flag was set to 'R' earlier)
3630:
3631: IF L_DEBUG = 'Y' THEN
3632: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to N on previous baselined budget version', 'C');
3633: END IF;
3634:
3635: update gms_budget_versions
3636: set current_flag = 'N'
3644:
3645: -- Corrected the query for Bug:2542827
3646:
3647: IF L_DEBUG = 'Y' THEN
3648: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to Y on newly created budget version', 'C');
3649: END IF;
3650:
3651: update gms_budget_versions
3652: set current_flag = 'Y'
3672: and budget_status_code = 'B'
3673: and current_flag = 'Y';
3674:
3675: IF L_DEBUG = 'Y' THEN
3676: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - l_baselined_version_id '||l_baselined_version_id, 'C');
3677: END IF;
3678:
3679: exception
3680: when OTHERS
3679: exception
3680: when OTHERS
3681: then
3682: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - While fetching baselined version id, when others exception ';
3683: gms_error_pkg.gms_message( x_err_name => 'GMS_UNEXPECTED_ERROR',
3684: x_token_name1 => 'SQLCODE',
3685: x_token_val1 => sqlcode,
3686: x_token_name2 => 'SQLERRM',
3687: x_token_val2 => sqlerrm,
3699:
3700: -- 4. call gms_sweeper - added for Bug: 1666853
3701:
3702: IF L_DEBUG = 'Y' THEN
3703: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_sweeper.upd_act_enc_bal', 'C');
3704: END IF;
3705:
3706:
3707: -- get the packet id for the budget and pass it on to the sweeper process.
3731: x_award_id => l_award_id);
3732:
3733: if x_err_code <> 0 then -- Changed from 'S' to 0 (zero) for Bug:2464800
3734: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occurred in gms_sweeper.upd_act_enc_bal';
3735: gms_error_pkg.gms_message(x_err_name => 'GMS_BU_SWEEP_FAILED',
3736: x_err_code => x_err_code,
3737: x_err_buff => x_err_stage);
3738:
3739: IF L_DEBUG = 'Y' THEN
3736: x_err_code => x_err_code,
3737: x_err_buff => x_err_stage);
3738:
3739: IF L_DEBUG = 'Y' THEN
3740: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to Y on previous baselined budget version', 'C');
3741: END IF;
3742:
3743: -- Bug 2386041
3744: update gms_budget_versions
3745: set current_flag = 'Y'
3746: where budget_version_id = l_prev_baselined_version_id;
3747:
3748: IF L_DEBUG = 'Y' THEN
3749: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to N on newly baselined budget version id', 'C');
3750: END IF;
3751:
3752: update gms_budget_versions
3753: set current_flag = 'N'
3753: set current_flag = 'N'
3754: where budget_version_id = l_baselined_version_id;
3755:
3756: IF L_DEBUG = 'Y' THEN
3757: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating budget to submitted status', 'C');
3758: END IF;
3759:
3760: UPDATE gms_budget_versions
3761: SET budget_status_code = 'S'
3777:
3778: -- 5. Summarize the Project Budget.
3779:
3780: IF L_DEBUG = 'Y' THEN
3781: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Start of Project Budget Summarization ', 'C');
3782: END IF;
3783:
3784: -- Bug 2386041
3785: l_user_profile_value1 := fnd_profile.value_specific('PA_SUPER_PROJECT', fnd_global.user_id, fnd_global.resp_id, fnd_global.resp_appl_id);
3838: end if;
3839:
3840:
3841: IF L_DEBUG = 'Y' THEN
3842: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_summarize_budgets.summarize_baselined_versions', 'C');
3843: END IF;
3844:
3845: -- Bug 2386041
3846: gms_summarize_budgets.summarize_baselined_versions( x_project_id => l_project_id
3862: --IF l_return_status <> 'S'
3863: IF l_return_status NOT in ( 'S','X') THEN
3864:
3865: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occured in gms_summarize_budgets.summarize_baselined_versions';
3866: gms_error_pkg.gms_message(x_err_name => 'GMS_SUMMARIZE_PA_BUDG_FAIL',
3867: x_err_code => x_err_code,
3868: x_err_buff => x_err_stage);
3869:
3870: IF L_DEBUG = 'Y' THEN
3867: x_err_code => x_err_code,
3868: x_err_buff => x_err_stage);
3869:
3870: IF L_DEBUG = 'Y' THEN
3871: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to Y on previous baselined budget version', 'C');
3872: END IF;
3873:
3874: -- Bug 2386041
3875: update gms_budget_versions
3876: set current_flag = 'Y'
3877: where budget_version_id = l_prev_baselined_version_id;
3878:
3879: IF L_DEBUG = 'Y' THEN
3880: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current flag to N on newly baselined budget version id', 'C');
3881: END IF;
3882:
3883: update gms_budget_versions
3884: set current_flag = 'N'
3884: set current_flag = 'N'
3885: where budget_version_id = l_baselined_version_id;
3886:
3887: IF L_DEBUG = 'Y' THEN
3888: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating budget to submitted status', 'C');
3889: END IF;
3890:
3891: UPDATE gms_budget_versions
3892: SET budget_status_code = 'S'
3902:
3903: -- 6. call Workflow process to send notification
3904:
3905: IF L_DEBUG = 'Y' THEN
3906: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET -Sending workflow notifictaion', 'C');
3907: END IF;
3908:
3909: open l_wf_notif_role_csr (p_award_id => l_award_id);
3910: fetch l_wf_notif_role_csr into l_row_found;
3916:
3917: if l_wf_notif_role_csr%FOUND AND l_wf_enabled_flag = 'Y' then --One more condition added for bug 5620089
3918:
3919: IF L_DEBUG = 'Y' THEN
3920: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Calling gms_wf_pkg.start_budget_wf_ntfy_only', 'C');
3921: END IF;
3922:
3923: GMS_WF_PKG.Start_Budget_Wf_Ntfy_Only
3924: ( p_draft_version_id => l_budget_version_id
3931: , p_err_stack => x_err_stack);
3932:
3933: if (x_err_code <> 0) then
3934: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Error occurred in gms_wf_pkg.start_budget_wf_ntfy_only' ;
3935: gms_error_pkg.gms_message(x_err_name => 'GMS_BU_WF_NTFY_FAIL', -- 'GMS_NTFY_BUDG_WF_FAIL', Bug 2587078
3936: x_err_code => x_err_code,
3937: x_err_buff => x_err_stage,
3938: x_exec_type => 'C');
3939: x_err_code := 4; -- to show a WARNING in the concurrent request window.
3938: x_exec_type => 'C');
3939: x_err_code := 4; -- to show a WARNING in the concurrent request window.
3940:
3941: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
3942: gms_error_pkg.gms_output(x_output => x_err_stage);
3943: return;
3944:
3945: -- We don't have to stop the baseline process if the WF Notification process fails.
3946: -- APP_EXCEPTION.RAISE_EXCEPTION;
3951: close l_wf_notif_role_csr;
3952:
3953: --------------------------------------------- ----------------------------------------------------------------------------------
3954: -- GMS enhancement for R12 : 5583170
3955: gms_error_pkg.gms_debug('GMS_SUMMARIZE_BUDGETS.SUMMARIZE_BASELINED_VERSIONS - l_return_status IS ==== : '|| l_return_status,'C');
3956: If l_return_status = 'S' then
3957: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Baselining successful ' ;
3958: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_BASELINED',
3959: x_token_name1 => 'PROJECT_NUMBER',
3954: -- GMS enhancement for R12 : 5583170
3955: gms_error_pkg.gms_debug('GMS_SUMMARIZE_BUDGETS.SUMMARIZE_BASELINED_VERSIONS - l_return_status IS ==== : '|| l_return_status,'C');
3956: If l_return_status = 'S' then
3957: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Baselining successful ' ;
3958: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_BASELINED',
3959: x_token_name1 => 'PROJECT_NUMBER',
3960: x_token_val1 => l_project_number,
3961: x_exec_type => 'C', -- for concurrent process
3962: x_err_code => x_err_code,
3962: x_err_code => x_err_code,
3963: x_err_buff => x_err_stage);
3964:
3965: x_err_code := 0; -- setting x_err_code to zero since this is not an error condition.
3966: gms_error_pkg.gms_output(x_output => x_err_stage);
3967: end if ;
3968:
3969: if l_return_status = 'X' then -- fix for bug : 5511910
3970: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_BASELINED_ONLY',
3966: gms_error_pkg.gms_output(x_output => x_err_stage);
3967: end if ;
3968:
3969: if l_return_status = 'X' then -- fix for bug : 5511910
3970: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_BASELINED_ONLY',
3971: x_exec_type => 'C', -- for concurrent process
3972: x_err_code => x_err_code,
3973: x_err_buff => x_err_stage);
3974:
3972: x_err_code => x_err_code,
3973: x_err_buff => x_err_stage);
3974:
3975: x_err_code := 0; -- setting x_err_code to zero since this is not an error condition.
3976: gms_error_pkg.gms_output(x_output => x_err_stage);
3977:
3978: end if;
3979: -- end of GMS enhancement
3980:
3985:
3986: -- since Funds check failed the previously baselined budget (whose current_flag was set to 'R' earlier) has to be restored
3987:
3988: IF L_DEBUG = 'Y' THEN
3989: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current_flag to Y on previously baselined budget', 'C');
3990: END IF;
3991:
3992: update gms_budget_versions
3993: set current_flag = 'Y'
4004: -- Redefining the savepoint since the above commit will clear all previously defined savepoints
4005:
4006: SAVEPOINT baseline_budget_pub;
4007: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET - Fundscheck failed' ;
4008: gms_error_pkg.gms_message(x_err_name => 'GMS_FC_FAIL_BASELINE',
4009: x_token_name1 => 'AWARD_NUMBER',
4010: x_token_val1 => l_award_number,
4011: x_token_name2 => 'PROJECT_NUMBER',
4012: x_token_val2 => l_project_number,
4014: x_err_code => x_err_code,
4015: x_err_buff => x_err_stage);
4016: fnd_msg_pub.add; -- Bug 2587078
4017: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
4018: gms_error_pkg.gms_output(x_output => x_err_stage);
4019:
4020: -- Bug 3022766 : Introduced error code = 3 to represent fundscheck failure status
4021: -- and commented below code.
4022: --x_err_code := 0; -- Since we don't have to error out NOCOPY the Concurrent Process.
4029:
4030: ELSE -- l_fc_return_code = 'H' or 'L' - Unexpected Error Occured
4031:
4032: IF L_DEBUG = 'Y' THEN
4033: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - Updating current_flag to Y on previously baselined budget', 'C');
4034: END IF;
4035:
4036: -- since Funds check failed the previously baselined budget (whose current_flag was set to 'R' earlier) has to be restored
4037:
4050: -- Redefining the savepoint since the above commit will clear all previously defined savepoints
4051:
4052: SAVEPOINT baseline_budget_pub;
4053: x_err_stage := 'GMS_BUDGET_PUB.BASELINE_BUDGET -Unexpected error' ;
4054: gms_error_pkg.gms_message(x_err_name => 'GMS_UNEXPECTED_ERROR',
4055: x_token_name1 => 'SQLCODE',
4056: x_token_val1 => sqlcode,
4057: x_token_name2 => 'SQLERRM',
4058: x_token_val2 => sqlerrm,
4059: x_err_code => x_err_code,
4060: x_err_buff => x_err_stage);
4061: fnd_msg_pub.add; -- Bug 2587078
4062: --fnd_file.put_line(FND_FILE.OUTPUT, x_err_stage);
4063: gms_error_pkg.gms_output(x_output => x_err_stage);
4064:
4065: rollback to baseline_budget_pub;
4066: return;
4067:
4067:
4068: END IF;
4069:
4070: IF L_DEBUG = 'Y' THEN
4071: gms_error_pkg.gms_debug('GMS_BUDGET_PUB.BASELINE_BUDGET - End of Baseline process', 'C');
4072: END IF;
4073:
4074: END IF; --
4075:
4073:
4074: END IF; --
4075:
4076: IF L_DEBUG = 'Y' THEN
4077: gms_error_pkg.gms_debug('*** End of GMS_BUDGET_PUB.BASELINE_BUDGET ***','C');
4078: END IF;
4079:
4080: EXCEPTION
4081: WHEN OTHERS
4081: WHEN OTHERS
4082: THEN
4083: x_err_stage :='GMS_BUDGET_PUB.BASELINE_BUDGET - In when others exception';
4084:
4085: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_FAILED', -- Bug 2587078
4086: x_err_code => x_err_code,
4087: x_err_buff => x_err_stage);
4088: fnd_msg_pub.add;
4089: ROLLBACK TO baseline_budget_pub;
4269: l_api_name ,
4270: G_PKG_NAME )
4271: THEN
4272:
4273: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
4274: x_err_code => x_err_code,
4275: x_err_buff => x_err_stage);
4276:
4277: APP_EXCEPTION.RAISE_EXCEPTION;
4299:
4300: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
4301: OR p_pm_product_code IS NULL
4302: THEN
4303: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_MISSING',
4304: x_err_code => x_err_code,
4305: x_err_buff => x_err_stage);
4306:
4307: APP_EXCEPTION.RAISE_EXCEPTION;
4327: THEN
4328: return;
4329: END IF;
4330: ELSE
4331: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
4332: x_err_code => x_err_code,
4333: x_err_buff => x_err_stage);
4334:
4335: APP_EXCEPTION.RAISE_EXCEPTION;
4358: return;
4359: END IF;
4360:
4361: ELSE
4362: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
4363: x_err_code => x_err_code,
4364: x_err_buff => x_err_stage);
4365:
4366: APP_EXCEPTION.RAISE_EXCEPTION;
4370: -- dbms_output.put_line('GMS_BUDGET_PUB.ADD_BUDGET_LINE - after project info validation');
4371:
4372: IF l_project_id IS NULL
4373: THEN
4374: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJECT_IS_MISSING',
4375: x_err_code => x_err_code,
4376: x_err_buff => x_err_stage);
4377:
4378: APP_EXCEPTION.RAISE_EXCEPTION;
4387:
4388: -- The user does not have query privileges on this award
4389: -- Hence, cannot update the award. Raise error
4390:
4391: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
4392: x_err_code => x_err_code,
4393: x_err_buff => x_err_stage);
4394:
4395: APP_EXCEPTION.RAISE_EXCEPTION;
4400: IF gms_security.allow_update (x_award_id => l_award_id ) = 'N' THEN
4401:
4402: -- The user does not have update privileges on this award
4403: -- Hence , raise error
4404: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
4405: x_err_code => x_err_code,
4406: x_err_buff => x_err_stage);
4407:
4408: APP_EXCEPTION.RAISE_EXCEPTION;
4414: -- budget type code is mandatory
4415:
4416: IF p_budget_type_code IS NULL
4417: THEN
4418: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
4419: x_err_code => x_err_code,
4420: x_err_buff => x_err_stage);
4421:
4422: APP_EXCEPTION.RAISE_EXCEPTION;
4428:
4429: IF l_budget_amount_code_csr%NOTFOUND
4430: THEN
4431: CLOSE l_budget_amount_code_csr;
4432: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
4433: x_err_code => x_err_code,
4434: x_err_buff => x_err_stage);
4435:
4436: APP_EXCEPTION.RAISE_EXCEPTION;
4452:
4453: IF l_budget_version_csr%NOTFOUND
4454: THEN
4455: CLOSE l_budget_version_csr;
4456: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
4457: x_err_code => x_err_code,
4458: x_err_buff => x_err_stage);
4459:
4460: APP_EXCEPTION.RAISE_EXCEPTION;
4467: -- entry method code is mandatory (and a nullible field in table gms_budget_versions)
4468:
4469: IF l_budget_entry_method_code IS NULL
4470: THEN
4471: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_MISSING',
4472: x_err_code => x_err_code,
4473: x_err_buff => x_err_stage);
4474:
4475: APP_EXCEPTION.RAISE_EXCEPTION;
4482:
4483: IF l_budget_entry_method_csr%NOTFOUND
4484: THEN
4485: CLOSE l_budget_entry_method_csr;
4486: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_INVALID',
4487: x_err_code => x_err_code,
4488: x_err_buff => x_err_stage);
4489:
4490: APP_EXCEPTION.RAISE_EXCEPTION;
4520: -- dbms_output.put_line('GMS_BUDGET_PUB.ADD_BUDGET_LINE - after convert_tasknum_to_id = '||to_char(l_task_id));
4521:
4522: IF x_err_code <> 0
4523: THEN
4524: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_TASK_NUMBER',
4525: x_err_code => x_err_code,
4526: x_err_buff => x_err_stage);
4527:
4528: APP_EXCEPTION.RAISE_EXCEPTION;
4532:
4533: IF l_budget_entry_method_rec.entry_level_code = 'T' THEN -- then check whether it is top task
4534:
4535: IF l_task_id <> pa_task_utils.get_top_task_id( l_task_id ) THEN
4536: gms_error_pkg.gms_message(x_err_name => 'GMS_TASK_IS_NOT_TOP',
4537: x_err_code => x_err_code,
4538: x_err_buff => x_err_stage);
4539:
4540: APP_EXCEPTION.RAISE_EXCEPTION;
4544: THEN
4545: pa_tasks_pkg.verify_lowest_level_task( l_return_status_task,
4546: l_task_id);
4547: IF l_return_status_task <> 0 THEN
4548: gms_error_pkg.gms_message(x_err_name => 'GMS_TASK_IS_NOT_LOWEST',
4549: x_err_code => x_err_code,
4550: x_err_buff => x_err_stage);
4551:
4552: APP_EXCEPTION.RAISE_EXCEPTION;
4558: IF l_task_id <> pa_task_utils.get_top_task_id( l_task_id ) THEN
4559: pa_tasks_pkg.verify_lowest_level_task( l_return_status_task
4560: , l_task_id);
4561: IF l_return_status_task <> 0 THEN
4562: gms_error_pkg.gms_message(x_err_name => 'GMS_TASK_IS_NOT_TOP_OR_LOWEST',
4563: x_err_code => x_err_code,
4564: x_err_buff => x_err_stage);
4565:
4566: APP_EXCEPTION.RAISE_EXCEPTION;
4585: ,x_err_stage => x_err_stage );
4586:
4587: IF x_err_code <> 0
4588: THEN
4589: gms_error_pkg.gms_message(x_err_name => 'GMS_GET_PERIOD_DATE_FAIL',
4590: x_err_code => x_err_code,
4591: x_err_buff => x_err_stage);
4592:
4593: APP_EXCEPTION.RAISE_EXCEPTION;
4607: ,x_err_stage => x_err_stage );
4608:
4609: IF x_err_code <> 0
4610: THEN
4611: gms_error_pkg.gms_message(x_err_name => 'GMS_CHK_ENTRYMETHOD_FAIL',
4612: x_err_code => x_err_code,
4613: x_err_buff => x_err_stage);
4614:
4615: APP_EXCEPTION.RAISE_EXCEPTION;
4671: return;
4672: END IF;
4673:
4674: ELSE
4675: gms_error_pkg.gms_message(x_err_name => 'GMS_RESOURCE_MISSING',
4676: x_err_code => x_err_code,
4677: x_err_buff => x_err_stage);
4678:
4679: APP_EXCEPTION.RAISE_EXCEPTION;
4895: l_unit_of_measure,
4896: l_track_as_labor_flag);
4897:
4898: when OTHERS then
4899: gms_error_pkg.gms_message(x_err_name => 'GMS_UNEXPECTED_ERROR',
4900: x_token_name1 => 'SQLCODE',
4901: x_token_val1 => sqlcode,
4902: x_token_name2 => 'SQLERRM',
4903: x_token_val2 => sqlerrm,
5025: ,x_err_code => x_err_code );
5026:
5027: IF x_err_code <> 0
5028: THEN
5029: gms_error_pkg.gms_message(x_err_name => 'GMS_CHECK_DATES_FAILED',
5030: x_err_code => x_err_code,
5031: x_err_buff => x_err_stage);
5032:
5033: APP_EXCEPTION.RAISE_EXCEPTION;
5049:
5050:
5051: IF x_err_code <> 0
5052: THEN
5053: gms_error_pkg.gms_message(x_err_name => 'GMS_SUMMERIZE_TOTALS_FAILED',
5054: x_err_code => x_err_code,
5055: x_err_buff => x_err_stage);
5056:
5057: APP_EXCEPTION.RAISE_EXCEPTION;
5208: p_api_version_number ,
5209: l_api_name ,
5210: G_PKG_NAME )
5211: THEN
5212: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
5213: x_err_code => x_err_code,
5214: x_err_buff => x_err_stage);
5215:
5216: APP_EXCEPTION.RAISE_EXCEPTION;
5220:
5221: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
5222: OR p_pm_product_code IS NULL
5223: THEN
5224: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_IS_MISSING',
5225: x_err_code => x_err_code,
5226: x_err_buff => x_err_stage);
5227:
5228: APP_EXCEPTION.RAISE_EXCEPTION;
5250: THEN
5251: return;
5252: END IF;
5253: ELSE
5254: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
5255: x_err_code => x_err_code,
5256: x_err_buff => x_err_stage);
5257:
5258: APP_EXCEPTION.RAISE_EXCEPTION;
5300: return;
5301: END IF;
5302:
5303: ELSE
5304: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
5305: x_err_code => x_err_code,
5306: x_err_buff => x_err_stage);
5307:
5308: APP_EXCEPTION.RAISE_EXCEPTION;
5318:
5319: -- The user does not have query privileges on this award
5320: -- Hence, cannot update the award. Raise error
5321:
5322: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
5323: x_err_code => x_err_code,
5324: x_err_buff => x_err_stage);
5325:
5326: APP_EXCEPTION.RAISE_EXCEPTION;
5331: IF gms_security.allow_update (x_award_id => l_award_id ) = 'N' THEN
5332:
5333: -- The user does not have update privileges on this award
5334: -- Hence , raise error
5335: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
5336: x_err_code => x_err_code,
5337: x_err_buff => x_err_stage);
5338:
5339: APP_EXCEPTION.RAISE_EXCEPTION;
5346:
5347: IF p_budget_type_code IS NULL
5348: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
5349: THEN
5350: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
5351: x_err_code => x_err_code,
5352: x_err_buff => x_err_stage);
5353:
5354: APP_EXCEPTION.RAISE_EXCEPTION;
5360:
5361: IF l_budget_type_csr%NOTFOUND
5362: THEN
5363: CLOSE l_budget_type_csr;
5364: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
5365: x_err_code => x_err_code,
5366: x_err_buff => x_err_stage);
5367:
5368: APP_EXCEPTION.RAISE_EXCEPTION;
5386: IF l_budget_version_csr%NOTFOUND
5387: THEN
5388:
5389: CLOSE l_budget_version_csr;
5390: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
5391: x_err_code => x_err_code,
5392: x_err_buff => x_err_stage);
5393:
5394: APP_EXCEPTION.RAISE_EXCEPTION;
5437: ,x_err_stack => x_err_stack);
5438:
5439: if x_err_code <> 0
5440: then
5441: gms_error_pkg.gms_message(x_err_name => 'GMS_DELETE_BUDGET_LINE_FAIL',
5442: x_err_code => x_err_code,
5443: x_err_buff => x_err_stage);
5444:
5445: APP_EXCEPTION.RAISE_EXCEPTION;
5452: where budget_version_id = l_budget_version_id;
5453: exception
5454: when NO_DATA_FOUND
5455: then
5456: gms_error_pkg.gms_message(x_err_name => 'GMS_DELETE_DRAFT_FAIL',
5457: x_err_code => x_err_code,
5458: x_err_buff => x_err_stage);
5459:
5460: APP_EXCEPTION.RAISE_EXCEPTION;
5667: p_api_version_number ,
5668: l_api_name ,
5669: G_PKG_NAME )
5670: THEN
5671: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
5672: x_err_code => x_err_code,
5673: x_err_buff => x_err_stage);
5674:
5675: APP_EXCEPTION.RAISE_EXCEPTION;
5679:
5680: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
5681: OR p_pm_product_code IS NULL
5682: THEN
5683: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_IS_MISSING',
5684: x_err_code => x_err_code,
5685: x_err_buff => x_err_stage);
5686:
5687: APP_EXCEPTION.RAISE_EXCEPTION;
5708: THEN
5709: return;
5710: END IF;
5711: ELSE
5712: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
5713: x_err_code => x_err_code,
5714: x_err_buff => x_err_stage);
5715:
5716: APP_EXCEPTION.RAISE_EXCEPTION;
5754: return;
5755: END IF;
5756:
5757: ELSE
5758: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
5759: x_err_code => x_err_code,
5760: x_err_buff => x_err_stage);
5761:
5762: APP_EXCEPTION.RAISE_EXCEPTION;
5771: IF gms_security.allow_query (x_award_id => l_award_id ) = 'N' THEN
5772:
5773: -- The user does not have query privileges on this award
5774: -- Hence, cannot update the award. Raise error
5775: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
5776: x_err_code => x_err_code,
5777: x_err_buff => x_err_stage);
5778:
5779: APP_EXCEPTION.RAISE_EXCEPTION;
5785:
5786: -- The user does not have update privileges on this award
5787: -- Hence , raise error
5788:
5789: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
5790: x_err_code => x_err_code,
5791: x_err_buff => x_err_stage);
5792:
5793: APP_EXCEPTION.RAISE_EXCEPTION;
5800:
5801: IF p_budget_type_code IS NULL
5802: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
5803: THEN
5804: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
5805: x_err_code => x_err_code,
5806: x_err_buff => x_err_stage);
5807:
5808: APP_EXCEPTION.RAISE_EXCEPTION;
5836:
5837: IF l_budget_version_csr%NOTFOUND
5838: THEN
5839: CLOSE l_budget_version_csr;
5840: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
5841: x_err_code => x_err_code,
5842: x_err_buff => x_err_stage);
5843:
5844: APP_EXCEPTION.RAISE_EXCEPTION;
5868: ,x_err_stage => x_err_stage
5869: ,x_err_stack => x_err_stack);
5870: IF x_err_code <> 0
5871: THEN
5872: gms_error_pkg.gms_message(x_err_name => 'GMS_TASK_VALIDATE_FAIL', -- jjj - check message tag
5873: x_err_code => x_err_code,
5874: x_err_buff => x_err_stage);
5875:
5876: APP_EXCEPTION.RAISE_EXCEPTION;
5902: ,x_err_stack => x_err_stack);
5903:
5904: IF x_err_code <> 0
5905: THEN
5906: gms_error_pkg.gms_message(x_err_name => 'GMS_RES_VALIDATE_FAIL',
5907: x_err_code => x_err_code,
5908: x_err_buff => x_err_stage);
5909:
5910: APP_EXCEPTION.RAISE_EXCEPTION;
5928:
5929: IF l_resource_assignment_csr%NOTFOUND
5930: THEN
5931: CLOSE l_resource_assignment_csr;
5932: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_RESOURCE_ASSIGNMENT',
5933: x_err_code => x_err_code,
5934: x_err_buff => x_err_stage);
5935:
5936: APP_EXCEPTION.RAISE_EXCEPTION;
5955:
5956: IF l_budget_periods_csr%NOTFOUND
5957: THEN
5958: CLOSE l_budget_periods_csr;
5959: gms_error_pkg.gms_message(x_err_name => 'GMS_PERIOD_NAME_INVALID',
5960: x_err_code => x_err_code,
5961: x_err_buff => x_err_stage);
5962:
5963: APP_EXCEPTION.RAISE_EXCEPTION;
5980:
5981: IF l_start_date_csr%NOTFOUND
5982: THEN
5983: CLOSE l_start_date_csr;
5984: gms_error_pkg.gms_message(x_err_name => 'GMS_START_DATE_INVALID',
5985: x_err_code => x_err_code,
5986: x_err_buff => x_err_stage);
5987:
5988: APP_EXCEPTION.RAISE_EXCEPTION;
6006:
6007: IF l_budget_line_rowid_csr%NOTFOUND
6008: THEN
6009: CLOSE l_budget_line_rowid_csr;
6010: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_LINE_NOT_FOUND',
6011: x_err_code => x_err_code,
6012: x_err_buff => x_err_stage);
6013:
6014: APP_EXCEPTION.RAISE_EXCEPTION;
6090: WHEN OTHERS
6091: THEN
6092: CLOSE l_budget_line_rowid_csr;
6093:
6094: gms_error_pkg.gms_message(x_err_name => 'GMS_UNEXPECTED_ERROR',
6095: x_token_name1 => 'SQLCODE',
6096: x_token_val1 => sqlcode,
6097: x_token_name2 => 'SQLERRM',
6098: x_token_val2 => sqlerrm,
6119:
6120:
6121: IF x_err_code <> 0
6122: THEN
6123: gms_error_pkg.gms_message(x_err_name => 'GMS_SUMMERIZE_TOTALS_FAILED',
6124: x_err_code => x_err_code,
6125: x_err_buff => x_err_stage);
6126:
6127: APP_EXCEPTION.RAISE_EXCEPTION;
6443: p_api_version_number ,
6444: l_api_name ,
6445: G_PKG_NAME )
6446: THEN
6447: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
6448: x_err_code => x_err_code,
6449: x_err_buff => x_err_stage);
6450:
6451: APP_EXCEPTION.RAISE_EXCEPTION;
6455:
6456: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
6457: OR p_pm_product_code IS NULL
6458: THEN
6459: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_IS_MISSING',
6460: x_err_code => x_err_code,
6461: x_err_buff => x_err_stage);
6462:
6463: APP_EXCEPTION.RAISE_EXCEPTION;
6484: THEN
6485: return;
6486: END IF;
6487: ELSE
6488: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
6489: x_err_code => x_err_code,
6490: x_err_buff => x_err_stage);
6491:
6492: APP_EXCEPTION.RAISE_EXCEPTION;
6537: return;
6538: END IF;
6539:
6540: ELSE
6541: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
6542: x_err_code => x_err_code,
6543: x_err_buff => x_err_stage);
6544:
6545: APP_EXCEPTION.RAISE_EXCEPTION;
6555: IF gms_security.allow_query (x_award_id => l_award_id ) = 'N' THEN
6556:
6557: -- The user does not have query privileges on this award
6558: -- Hence, cannot update the award. Raise error
6559: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
6560: x_err_code => x_err_code,
6561: x_err_buff => x_err_stage);
6562:
6563: APP_EXCEPTION.RAISE_EXCEPTION;
6570:
6571: -- The user does not have update privileges on this award
6572: -- Hence , raise error
6573:
6574: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
6575: x_err_code => x_err_code,
6576: x_err_buff => x_err_stage);
6577:
6578: APP_EXCEPTION.RAISE_EXCEPTION;
6584:
6585: IF p_budget_type_code IS NULL
6586: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
6587: THEN
6588: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_MISSING',
6589: x_err_code => x_err_code,
6590: x_err_buff => x_err_stage);
6591:
6592: APP_EXCEPTION.RAISE_EXCEPTION;
6599: IF l_budget_type_csr%NOTFOUND
6600: THEN
6601:
6602: CLOSE l_budget_type_csr;
6603: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
6604: x_err_code => x_err_code,
6605: x_err_buff => x_err_stage);
6606:
6607: APP_EXCEPTION.RAISE_EXCEPTION;
6625:
6626: IF l_budget_version_csr%NOTFOUND
6627: THEN
6628: CLOSE l_budget_version_csr;
6629: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
6630: x_err_code => x_err_code,
6631: x_err_buff => x_err_stage);
6632:
6633: APP_EXCEPTION.RAISE_EXCEPTION;
6656:
6657: IF l_budget_change_reason_csr%NOTFOUND THEN
6658:
6659: CLOSE l_budget_change_reason_csr;
6660: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_CHANGE_REASON',
6661: x_err_code => x_err_code,
6662: x_err_buff => x_err_stage);
6663:
6664: APP_EXCEPTION.RAISE_EXCEPTION;
6691:
6692: OPEN l_budget_periods_csr(p_first_budget_period,l_time_phased_type_code);
6693: FETCH l_budget_periods_csr into l_first_budget_period;
6694: IF l_budget_periods_csr%NOTFOUND THEN
6695: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_PERIOD_IS_INVALID',
6696: x_err_code => x_err_code,
6697: x_err_buff => x_err_stage);
6698:
6699: APP_EXCEPTION.RAISE_EXCEPTION;
6819: ,x_err_code => x_err_code );
6820:
6821: IF x_err_code <> 0
6822: THEN
6823: gms_error_pkg.gms_message(x_err_name => 'GMS_CHECK_DATES_FAILED',
6824: x_err_code => x_err_code,
6825: x_err_buff => x_err_stage);
6826:
6827: APP_EXCEPTION.RAISE_EXCEPTION;
6839:
6840:
6841: IF x_err_code <> 0
6842: THEN
6843: gms_error_pkg.gms_message(x_err_name => 'GMS_SUMMERIZE_TOTALS_FAILED',
6844: x_err_code => x_err_code,
6845: x_err_buff => x_err_stage);
6846:
6847: APP_EXCEPTION.RAISE_EXCEPTION;
7129: p_api_version_number ,
7130: l_api_name ,
7131: G_PKG_NAME )
7132: THEN
7133: gms_error_pkg.gms_message(x_err_name => 'GMS_INCOMPATIBLE_API_CALL',
7134: x_err_code => x_err_code,
7135: x_err_buff => x_err_stage);
7136:
7137: APP_EXCEPTION.RAISE_EXCEPTION;
7141:
7142: IF p_pm_product_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
7143: OR p_pm_product_code IS NULL
7144: THEN
7145: gms_error_pkg.gms_message(x_err_name => 'GMS_PRODUCT_CODE_MISSING',
7146: x_err_code => x_err_code,
7147: x_err_buff => x_err_stage);
7148:
7149: APP_EXCEPTION.RAISE_EXCEPTION;
7170: THEN
7171: return;
7172: END IF;
7173: ELSE
7174: gms_error_pkg.gms_message(x_err_name => 'GMS_AWARD_NUM_ID_MISSING',
7175: x_err_code => x_err_code,
7176: x_err_buff => x_err_stage);
7177:
7178: APP_EXCEPTION.RAISE_EXCEPTION;
7219: return;
7220: END IF;
7221:
7222: ELSE
7223: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJ_NUM_ID_MISSING',
7224: x_err_code => x_err_code,
7225: x_err_buff => x_err_stage);
7226:
7227: APP_EXCEPTION.RAISE_EXCEPTION;
7231: -- dbms_output.put_line('GMS_BUDGET_PUB.UPDATE_BUDGET_LINE - after project info validation');
7232:
7233: IF l_project_id IS NULL
7234: THEN
7235: gms_error_pkg.gms_message(x_err_name => 'GMS_PROJECT_MISSING',
7236: x_err_code => x_err_code,
7237: x_err_buff => x_err_stage);
7238:
7239: APP_EXCEPTION.RAISE_EXCEPTION;
7247: IF gms_security.allow_query (x_award_id => l_award_id ) = 'N' THEN
7248:
7249: -- The user does not have query privileges on this award
7250: -- Hence, cannot update the award. Raise error
7251: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_QRY',
7252: x_err_code => x_err_code,
7253: x_err_buff => x_err_stage);
7254:
7255: APP_EXCEPTION.RAISE_EXCEPTION;
7261:
7262: -- The user does not have update privileges on this award
7263: -- Hence , raise error
7264:
7265: gms_error_pkg.gms_message(x_err_name => 'GMS_AWD_SECURITY_ENFORCED_UPD',
7266: x_err_code => x_err_code,
7267: x_err_buff => x_err_stage);
7268:
7269: APP_EXCEPTION.RAISE_EXCEPTION;
7277:
7278: IF p_budget_type_code IS NULL
7279: OR p_budget_type_code = GMS_BUDGET_PUB.G_PA_MISS_CHAR
7280: THEN
7281: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_MISSING',
7282: x_err_code => x_err_code,
7283: x_err_buff => x_err_stage);
7284:
7285: APP_EXCEPTION.RAISE_EXCEPTION;
7290: INTO l_budget_amount_code; --will be used later on during validation of Budget lines.
7291:
7292: IF l_budget_amount_code_csr%NOTFOUND
7293: THEN
7294: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_TYPE_IS_INVALID',
7295: x_err_code => x_err_code,
7296: x_err_buff => x_err_stage);
7297:
7298: APP_EXCEPTION.RAISE_EXCEPTION;
7315: , l_resource_list_id;
7316:
7317: IF l_budget_version_csr%NOTFOUND
7318: THEN
7319: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_BUDGET_VERSION',
7320: x_err_code => x_err_code,
7321: x_err_buff => x_err_stage);
7322:
7323: APP_EXCEPTION.RAISE_EXCEPTION;
7329: -- entry method code is mandatory (and a nullible field in table pa_budget_versions)
7330:
7331: IF l_budget_entry_method_code IS NULL
7332: THEN
7333: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_MISSING',
7334: x_err_code => x_err_code,
7335: x_err_buff => x_err_stage);
7336:
7337: APP_EXCEPTION.RAISE_EXCEPTION;
7344: FETCH l_budget_entry_method_csr INTO l_budget_entry_method_rec;
7345:
7346: IF l_budget_entry_method_csr%NOTFOUND
7347: THEN
7348: gms_error_pkg.gms_message(x_err_name => 'GMS_ENTRY_METHOD_IS_INVALID',
7349: x_err_code => x_err_code,
7350: x_err_buff => x_err_stage);
7351:
7352: APP_EXCEPTION.RAISE_EXCEPTION;
7364: FETCH l_budget_periods_csr INTO l_budget_start_date, l_budget_end_date; -- l_budget_end_date added new
7365:
7366: IF l_budget_periods_csr%NOTFOUND
7367: THEN
7368: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_PERIOD_IS_INVALID',
7369: x_err_code => x_err_code,
7370: x_err_buff => x_err_stage);
7371:
7372: APP_EXCEPTION.RAISE_EXCEPTION;
7386: THEN
7387: l_budget_end_date := trunc(p_budget_end_date);
7388: END IF;
7389: ELSE
7390: gms_error_pkg.gms_message(x_err_name => 'GMS_START_DATE_MISSING',
7391: x_err_code => x_err_code,
7392: x_err_buff => x_err_stage);
7393:
7394: APP_EXCEPTION.RAISE_EXCEPTION;
7417: ,x_err_stack => x_err_stack);
7418:
7419: IF x_err_code <> 0
7420: THEN
7421: gms_error_pkg.gms_message(x_err_name => 'GMS_TASK_VALIDATE_FAIL', -- jjj - check message tag
7422: x_err_code => x_err_code,
7423: x_err_buff => x_err_stage);
7424:
7425: APP_EXCEPTION.RAISE_EXCEPTION;
7450: ,x_err_stack => x_err_stack);
7451:
7452: IF x_err_code <> 0
7453: THEN
7454: gms_error_pkg.gms_message(x_err_name => 'GMS_RES_VALIDATE_FAIL', -- jjj - check message tag
7455: x_err_code => x_err_code,
7456: x_err_buff => x_err_stage);
7457:
7458: APP_EXCEPTION.RAISE_EXCEPTION;
7473: CLOSE l_uncat_list_member_csr;
7474:
7475: ELSIF l_budget_entry_method_rec.categorization_code = 'R'
7476: THEN
7477: gms_error_pkg.gms_message(x_err_name => 'GMS_RESOURCE_IS_MISSING',
7478: x_err_code => x_err_code,
7479: x_err_buff => x_err_stage);
7480:
7481: APP_EXCEPTION.RAISE_EXCEPTION;
7493: IF l_resource_csr%NOTFOUND
7494: THEN
7495:
7496: CLOSE l_resource_csr;
7497: gms_error_pkg.gms_message(x_err_name => 'GMS_LIST_MEMBER_INVALID',
7498: x_err_code => x_err_code,
7499: x_err_buff => x_err_stage);
7500:
7501: APP_EXCEPTION.RAISE_EXCEPTION;
7515:
7516: IF l_resource_assignment_csr%NOTFOUND
7517: THEN
7518: CLOSE l_resource_assignment_csr;
7519: gms_error_pkg.gms_message(x_err_name => 'GMS_NO_RESOURCE_ASSIGNMENT',
7520: x_err_code => x_err_code,
7521: x_err_buff => x_err_stage);
7522:
7523: APP_EXCEPTION.RAISE_EXCEPTION;
7536: IF l_budget_line_csr%NOTFOUND
7537: THEN
7538:
7539: CLOSE l_budget_line_csr;
7540: gms_error_pkg.gms_message(x_err_name => 'GMS_BUDGET_LINE_NOT_FOUND',
7541: x_err_code => x_err_code,
7542: x_err_buff => x_err_stage);
7543:
7544: APP_EXCEPTION.RAISE_EXCEPTION;
7556:
7557: IF l_budget_change_reason_csr%NOTFOUND THEN
7558:
7559: CLOSE l_budget_change_reason_csr;
7560: gms_error_pkg.gms_message(x_err_name => 'GMS_INVALID_CHANGE_REASON',
7561: x_err_code => x_err_code,
7562: x_err_buff => x_err_stage);
7563:
7564: APP_EXCEPTION.RAISE_EXCEPTION;
7672:
7673:
7674: IF x_err_code <> 0
7675: THEN
7676: gms_error_pkg.gms_message(x_err_name => 'GMS_SUMMERIZE_TOTALS_FAILED',
7677: x_err_code => x_err_code,
7678: x_err_buff => x_err_stage);
7679:
7680: APP_EXCEPTION.RAISE_EXCEPTION;