189: -- Close the cursor.
190:
191: END LOOP;
192: close lookups_c;
193: p_return_status := fnd_api.g_ret_sts_success;
194:
195: EXCEPTION
196: -- WHEN NO_ROWS_FOUND THEN
197: -- p_return_status := fnd_api.g_ret_sts_success;
193: p_return_status := fnd_api.g_ret_sts_success;
194:
195: EXCEPTION
196: -- WHEN NO_ROWS_FOUND THEN
197: -- p_return_status := fnd_api.g_ret_sts_success;
198: WHEN OTHERS THEN
199: -- Close the cursor.
200: dbms_sql.close_cursor(v_CursorID);
201: close lookups_c;
199: -- Close the cursor.
200: dbms_sql.close_cursor(v_CursorID);
201: close lookups_c;
202: g_error_api_path := 'DynamicQuery:WHEN OTHERS:'||g_error_api_path;
203: p_return_status := fnd_api.g_ret_sts_unexp_error;
204: END DynamicQuery;
205:
206:
207: /********************************************************************************
808: IF (l_seg_no >nsegs) OR (l_seg_no IS NULL) THEN
809: --dbms_output.put_line('to test failure on exp type');
810: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: PSP_AUTOP_SEG_NUM');
811: FND_MESSAGE.SET_NAME('PSP','PSP_AUTOP_SEG_NUM');
812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
813: END IF;
814: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: before IF ccid_exists = TRUE l_segment_num ='|| l_segment_num || 'segs(l_seg_no)='|| segs(l_seg_no)||'p_set_of_books_id='|| p_set_of_books_id ||'p_business_group_id='|| p_business_group_id);
815:
816: IF ccid_exists = TRUE THEN
830: CLOSE by_pass_na_cur;
831: ELSE
832: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: FND_FLEX_EXT.get_segments:CCID'||p_gl_code_combination_id||' passed in does not exist'||':'||g_error_api_path);
833: g_error_api_path := 'FND_FLEX_EXT.get_segments:CCID'||p_gl_code_combination_id||' passed in does not exist'||':'||g_error_api_path;
834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
835: END IF; -- end of if_ccid_exists
836: --End of Fix for Bug :1907209 : Natural By Pass Account -lveerubh
837: END IF; -- end of p_acct_type='N' -- subha for correction of bug fix 1907209
838:
902: );
903: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: after Calling Dynamic Queny l_return_status= '|| l_return_status);
904:
905:
906: IF l_return_status <> fnd_api.g_ret_sts_success THEN
907: g_error_api_path := 'DYNAMIC QUERY='||to_char(l_lookup_id)||':'||g_error_api_path;
908: --dbms_output.put_line(g_error_api_path);
909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
910: END IF;
905:
906: IF l_return_status <> fnd_api.g_ret_sts_success THEN
907: g_error_api_path := 'DYNAMIC QUERY='||to_char(l_lookup_id)||':'||g_error_api_path;
908: --dbms_output.put_line(g_error_api_path);
909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
910: END IF;
911: --dbms_output.put_line('after return from dynamic query');
912:
913: IF p_acct_type = 'E' THEN
1015: l_ret_varchar => l_varchar_results,
1016: l_ret_number => l_number_results,
1017: l_ret_date => l_date_results,
1018: p_return_status => l_return_status);
1019: IF l_return_status != fnd_api.g_ret_sts_success THEN
1020: CLOSE params_c;
1021: CLOSE exp_accts_c;
1022: g_error_api_path := 'LOOKUP_ID='||to_char(l_lookup_id)||':'||g_error_api_path;
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1019: IF l_return_status != fnd_api.g_ret_sts_success THEN
1020: CLOSE params_c;
1021: CLOSE exp_accts_c;
1022: g_error_api_path := 'LOOKUP_ID='||to_char(l_lookup_id)||':'||g_error_api_path;
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: END IF;
1025: END IF;
1026: -- Compare the current system value returned from
1027: -- the call to DynamicQuery with the user value
1232:
1233: ELSE
1234: g_error_api_path := 'Invalid Datatype:LOOKUP_ID='||to_char(l_lookup_id)||':'||g_error_api_path;
1235: CLOSE params_c;
1236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1237: END IF;
1238:
1239: END LOOP;
1240: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: after Loop');
1250:
1251: IF last_line_num IS NULL THEN
1252: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: NO PARAMETERS:ACCT_ID='||to_char(l_acct_id)||':'||g_error_api_path);
1253: g_error_api_path := 'NO PARAMETERS:ACCT_ID='||to_char(l_acct_id)||':'||g_error_api_path;
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: END IF;
1256:
1257: /* added to fix the case of the v_counter looping thru to 1,
1258: when 1 may not exist :- Subha July19, 2000
1274: close rules_c;
1275: g_error_api_path := 'NO RULE:ACCT_ID='||to_char(l_acct_id)||':'||g_error_api_path;
1276: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: cursor rules_c not found l_calculator_rule' || l_calculator_rule);
1277:
1278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1279: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: after l_cal_rule Raised FND_API.G_EXC_UNEXPECTED_ERROR');
1280: END IF;
1281: close rules_c;
1282:
1275: g_error_api_path := 'NO RULE:ACCT_ID='||to_char(l_acct_id)||':'||g_error_api_path;
1276: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: cursor rules_c not found l_calculator_rule' || l_calculator_rule);
1277:
1278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1279: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: after l_cal_rule Raised FND_API.G_EXC_UNEXPECTED_ERROR');
1280: END IF;
1281: close rules_c;
1282:
1283: -- Use the values of the resolved parameter
1395: ELSE
1396: g_error_api_path := 'FND_FLEX_EXT.get_combination_id:Error creating new ccid with old CCID = '
1397: ||p_gl_code_combination_id||': Object_code = '||l_natural_account||':'||g_error_api_path;
1398: hr_utility.trace('Autodebug Message:PSP_AUTOPOP:'|| g_error_api_path);
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1401: /* For Bug 1907209 : Natural Bypass Account : Call to get the original segments has been moved to the top
1402: becase of the enhancement -lveerubh
1403:
1403:
1404: ELSE
1405: g_error_api_path := 'FND_FLEX_EXT.get_segments:CCID'||p_gl_code_combination_id||' passed in does not exist'
1406: ||':'||g_error_api_path;
1407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1408: END IF;
1409: */
1410: END IF;
1411:
1408: END IF;
1409: */
1410: END IF;
1411:
1412: retcode := FND_API.G_RET_STS_SUCCESS;
1413: -- --dbms_output.put_line('Rule was found!!!');
1414: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: SUCCESS RULE FOUND');
1415: ELSE
1416: retcode := FND_API.G_RET_STS_ERROR;
1412: retcode := FND_API.G_RET_STS_SUCCESS;
1413: -- --dbms_output.put_line('Rule was found!!!');
1414: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: SUCCESS RULE FOUND');
1415: ELSE
1416: retcode := FND_API.G_RET_STS_ERROR;
1417: -- --dbms_output.put_line('No rule found that matched.');
1418: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: NO RULE FOUND');
1419: END IF;
1420: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: END MAIN with out Exception'||retcode);
1422:
1423: EXCEPTION
1424: WHEN BY_PASS_FOUND THEN
1425: ret_expenditure_type := p_expenditure_type;
1426: retcode := FND_API.G_RET_STS_SUCCESS;
1427: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: EXCEPTIOn BY_PASS_FOUND');
1428:
1429: WHEN NO_PERIOD_TYPE THEN
1430: retcode := FND_API.G_RET_STS_UNEXP_ERROR;
1426: retcode := FND_API.G_RET_STS_SUCCESS;
1427: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: EXCEPTIOn BY_PASS_FOUND');
1428:
1429: WHEN NO_PERIOD_TYPE THEN
1430: retcode := FND_API.G_RET_STS_UNEXP_ERROR;
1431: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: EXCEPTIOn NO_PERIOD_TYPE');
1432:
1433: -- For Bug 1907209 : Natrual Bypass Account Enhancement - Added the following Exception -lveerubh
1434: WHEN BY_PASS_NA_FOUND THEN
1432:
1433: -- For Bug 1907209 : Natrual Bypass Account Enhancement - Added the following Exception -lveerubh
1434: WHEN BY_PASS_NA_FOUND THEN
1435: ret_gl_code_combination_id := p_gl_code_combination_id;
1436: retcode := FND_API.G_RET_STS_SUCCESS;
1437: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: EXCEPTIOn BY_PASS_NA_FOUND');
1438: WHEN OTHERS THEN
1439: --dbms_output.put_line('Exception in Auto-Population:PSP_AUTOPOP:'||g_error_api_path);
1440: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: EXCEPTIOn OTHERS');
1438: WHEN OTHERS THEN
1439: --dbms_output.put_line('Exception in Auto-Population:PSP_AUTOPOP:'||g_error_api_path);
1440: hr_utility.trace('Autodebug Message:PSP_AUTOPOP: EXCEPTIOn OTHERS');
1441:
1442: retcode := FND_API.G_RET_STS_UNEXP_ERROR;
1443: END main;
1444:
1445: END;