DBA Data[Home] [Help]

APPS.CST_SLA_UPDATE_PKG dependencies on FND_API

Line 201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

197: AND fcr.phase_code IN ('I','P','R');
198:
199: if (l_reqid_count <> 0 ) then
200: X_errbuf := 'Another Costing Upgrade Manager is running. Check Request: '||l_reqid_count;
201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
202: end if;
203:
204: IF X_Application_Id NOT IN (201, 401) THEN
205: X_errbuf := 'Incorrect Application ID. X_Application_Id = '||X_Application_Id;

Line 206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

202: end if;
203:
204: IF X_Application_Id NOT IN (201, 401) THEN
205: X_errbuf := 'Incorrect Application ID. X_Application_Id = '||X_Application_Id;
206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: END IF;
208:
209: x_retcode := FND_API.G_RET_STS_SUCCESS;
210:

Line 209: x_retcode := FND_API.G_RET_STS_SUCCESS;

205: X_errbuf := 'Incorrect Application ID. X_Application_Id = '||X_Application_Id;
206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: END IF;
208:
209: x_retcode := FND_API.G_RET_STS_SUCCESS;
210:
211: IF X_Application_Id = 401 THEN
212: l_stmt_num :=10;
213: l_inv_req_id := FND_REQUEST.submit_request(

Line 244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

240: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'> Upgrade Historical Work In Process Transactions for Subledger Accounting [CSTUWIPM] -> Request: '||l_wip_req_id );
241:
242: IF (l_inv_req_id = 0 AND l_wip_req_id = 0 ) THEN
243: X_errbuf := 'Failure in Sub-Request Submission';
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: END IF;
246:
247: ELSIF X_Application_Id = 201 THEN
248:

Line 266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

262: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'> Upgrade Historical Receiving Transactions for Subledger Accounting [CSTURCVM] -> Request: '||l_rcv_req_id);
263:
264: IF (l_rcv_req_id = 0 ) THEN
265: X_errbuf := 'Failure in Sub-Request Submission';
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: END IF;
268:
269: END IF;
270:

Line 321: x_retcode := FND_API.G_RET_STS_SUCCESS;

317:
318: l_stmt_num :=40;
319:
320: /* Checking whether the child requests completed succesful */
321: x_retcode := FND_API.G_RET_STS_SUCCESS;
322: for i IN 1..l_sub_reqtab.COUNT() loop
323: if (l_sub_reqtab(i).dev_status <> 'NORMAL') then
324: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Concurrent Request: '||l_sub_reqtab(i).request_id||' -> Status: '||l_sub_reqtab(i).dev_status);
325: X_retcode := FND_API.g_ret_sts_unexp_error;

Line 325: X_retcode := FND_API.g_ret_sts_unexp_error;

321: x_retcode := FND_API.G_RET_STS_SUCCESS;
322: for i IN 1..l_sub_reqtab.COUNT() loop
323: if (l_sub_reqtab(i).dev_status <> 'NORMAL') then
324: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Concurrent Request: '||l_sub_reqtab(i).request_id||' -> Status: '||l_sub_reqtab(i).dev_status);
325: X_retcode := FND_API.g_ret_sts_unexp_error;
326: end if;
327: end loop;
328:
329: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then

Line 329: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then

325: X_retcode := FND_API.g_ret_sts_unexp_error;
326: end if;
327: end loop;
328:
329: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then
330: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>All Concurrent Sub-Requests Successfull');
331: l_stmt_num :=50;
332: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Setting Migration Status Code in GPS as ''U'' for Application ID '||X_Application_Id);
333: l_ret_code := XLA_UPGRADE_PUB.set_migration_status_code(

Line 340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

336: p_period_name =>null,
337: p_period_year =>null);
338: else
339: X_errbuf := 'One or More of Upgrade Sub-Managers completed in Error';
340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
341: end if;
342:
343: COMMIT;
344:

Line 357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

353: END IF;
354:
355: EXCEPTION
356:
357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
358: X_retcode := FND_API.g_ret_sts_unexp_error;
359: handle_error ( X_module => l_module||'.'||l_stmt_num,
360: X_message => 'ERROR: '||X_errbuf,
361: X_reqerror => FALSE,

Line 358: X_retcode := FND_API.g_ret_sts_unexp_error;

354:
355: EXCEPTION
356:
357: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
358: X_retcode := FND_API.g_ret_sts_unexp_error;
359: handle_error ( X_module => l_module||'.'||l_stmt_num,
360: X_message => 'ERROR: '||X_errbuf,
361: X_reqerror => FALSE,
362: X_errbuf => X_errbuf );

Line 365: X_retcode := FND_API.g_ret_sts_unexp_error;

361: X_reqerror => FALSE,
362: X_errbuf => X_errbuf );
363:
364: WHEN OTHERS THEN
365: X_retcode := FND_API.g_ret_sts_unexp_error;
366: handle_error ( X_module => l_module||'.'||l_stmt_num,
367: X_message => 'EXCEPTION: '||SQLERRM,
368: X_reqerror => FALSE,
369: X_errbuf => X_errbuf );

Line 489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

485: AND fcr.phase_code IN ('I','P','R');
486:
487: if (l_reqid_count <> gRequestId) then
488: X_errbuf := 'Another Costing Upgrade Manager is running. Check Request: '||l_reqid_count;
489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
490: end if;
491:
492: -- Standard call to check for call compatibility
493: IF NOT FND_API.Compatible_API_Call (

Line 493: IF NOT FND_API.Compatible_API_Call (

489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
490: end if;
491:
492: -- Standard call to check for call compatibility
493: IF NOT FND_API.Compatible_API_Call (
494: l_api_version,
495: X_api_version,
496: l_api_name,
497: G_PKG_NAME ) THEN

Line 499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

495: X_api_version,
496: l_api_name,
497: G_PKG_NAME ) THEN
498: X_errbuf := 'Incompatible API Call.';
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
501:
502: req_data := fnd_conc_global.request_data;
503:

Line 513: IF FND_API.to_Boolean(X_init_msg_list) THEN

509:
510: if (submit_req = TRUE) then
511:
512: -- Initialize message list if X_init_msg_list is set to TRUE
513: IF FND_API.to_Boolean(X_init_msg_list) THEN
514: FND_MSG_PUB.initialize;
515: END IF;
516:
517: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Submitting Concurrent Sub-Requests....');

Line 519: x_retcode := FND_API.G_RET_STS_SUCCESS;

515: END IF;
516:
517: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Submitting Concurrent Sub-Requests....');
518:
519: x_retcode := FND_API.G_RET_STS_SUCCESS;
520:
521: l_stmt_num :=10;
522: l_inv_req_id := FND_REQUEST.submit_request(
523: application => 'BOM',

Line 565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

561: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'> Upgrade Historical Receiving Transactions for Subledger Accounting [CSTURCVM] -> Request: '||l_rcv_req_id);
562:
563: IF (l_inv_req_id = 0 AND l_wip_req_id = 0 AND l_rcv_req_id = 0) THEN
564: X_errbuf := 'Failure in Sub-Request Submission';
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566: END IF;
567:
568: l_stmt_num :=40;
569: fnd_conc_global.set_req_globals(conc_status=>'PAUSED',

Line 585: x_retcode := FND_API.G_RET_STS_SUCCESS;

581: -- restart case
582: --
583: l_stmt_num :=50;
584: l_sub_reqtab := fnd_concurrent.get_sub_requests(gRequestId);
585: x_retcode := FND_API.G_RET_STS_SUCCESS;
586:
587: for i IN 1..l_sub_reqtab.COUNT()
588: loop
589: if (l_sub_reqtab(i).dev_status <> 'NORMAL') then

Line 591: X_retcode := FND_API.g_ret_sts_unexp_error;

587: for i IN 1..l_sub_reqtab.COUNT()
588: loop
589: if (l_sub_reqtab(i).dev_status <> 'NORMAL') then
590: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Concurrent Request: '||l_sub_reqtab(i).request_id||' -> Status: '||l_sub_reqtab(i).dev_status);
591: X_retcode := FND_API.g_ret_sts_unexp_error;
592: end if;
593: end loop;
594:
595: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then

Line 595: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then

591: X_retcode := FND_API.g_ret_sts_unexp_error;
592: end if;
593: end loop;
594:
595: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then
596: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>All Concurrent Sub-Requests Successfull');
597: else
598: X_errbuf := 'One or More of Upgrade Sub-Managers completed in Error';
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

595: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then
596: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>All Concurrent Sub-Requests Successfull');
597: else
598: X_errbuf := 'One or More of Upgrade Sub-Managers completed in Error';
599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
600: end if;
601:
602: commit;
603: end if;

Line 619: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

615: END IF;
616:
617: EXCEPTION
618:
619: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
620: X_retcode := FND_API.g_ret_sts_unexp_error;
621: handle_error ( X_module => l_module||'.'||l_stmt_num,
622: X_message => 'ERROR: '||X_errbuf,
623: X_reqerror => TRUE,

Line 620: X_retcode := FND_API.g_ret_sts_unexp_error;

616:
617: EXCEPTION
618:
619: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
620: X_retcode := FND_API.g_ret_sts_unexp_error;
621: handle_error ( X_module => l_module||'.'||l_stmt_num,
622: X_message => 'ERROR: '||X_errbuf,
623: X_reqerror => TRUE,
624: X_errbuf => X_errbuf );

Line 627: X_retcode := FND_API.g_ret_sts_unexp_error;

623: X_reqerror => TRUE,
624: X_errbuf => X_errbuf );
625:
626: WHEN OTHERS THEN
627: X_retcode := FND_API.g_ret_sts_unexp_error;
628: handle_error ( X_module => l_module||'.'||l_stmt_num,
629: X_message => 'EXCEPTION: '||SQLERRM,
630: X_reqerror => TRUE,
631: X_errbuf => X_errbuf );

Line 730: IF NOT FND_API.Compatible_API_Call (

726: raise_application_error(-20001, 'SUBMIT_SUBREQUESTS() must be called from a concurrent request');
727: end if;
728:
729: -- Standard call to check for call compatibility
730: IF NOT FND_API.Compatible_API_Call (
731: l_api_version,
732: X_api_version,
733: l_api_name,
734: G_PKG_NAME ) THEN

Line 736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

732: X_api_version,
733: l_api_name,
734: G_PKG_NAME ) THEN
735: X_errbuf := 'Incompatible API Call.';
736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
737: END IF;
738:
739: req_data := fnd_conc_global.request_data;
740:

Line 750: IF FND_API.to_Boolean(X_init_msg_list) THEN

746:
747: if (submit_req = TRUE) then
748:
749: -- Initialize message list if X_init_msg_list is set to TRUE
750: IF FND_API.to_Boolean(X_init_msg_list) THEN
751: FND_MSG_PUB.initialize;
752: END IF;
753:
754: x_retcode := FND_API.G_RET_STS_SUCCESS;

Line 754: x_retcode := FND_API.G_RET_STS_SUCCESS;

750: IF FND_API.to_Boolean(X_init_msg_list) THEN
751: FND_MSG_PUB.initialize;
752: END IF;
753:
754: x_retcode := FND_API.G_RET_STS_SUCCESS;
755:
756: --
757: -- get schema name of the table for ID range processing
758: --

Line 794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

790: X_Argument10 => null);
791:
792: if (X_retcode <>AD_CONC_UTILS_PKG.CONC_SUCCESS) THEN
793: X_errbuf := 'Submission of INV Upgrade Workers failed -> X_retcode = '||X_retcode;
794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
795: end if;
796:
797: l_stmt_num :=30;
798:

Line 813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

809: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'No Data Found in XUD');
810: end;
811: else
812: X_errbuf := 'Cannot get schema name for product : '||l_product;
813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
814: end if;
815:
816: /* can not update migration_status_code until WIP upgrade is done, because they share the same period.*/
817:

Line 826: x_retcode := FND_API.G_RET_STS_SUCCESS;

822: --
823: l_stmt_num :=40;
824: l_sub_reqtab := fnd_concurrent.get_sub_requests(gRequestId);
825:
826: x_retcode := FND_API.G_RET_STS_SUCCESS;
827: for i IN 1..l_sub_reqtab.COUNT()
828: loop
829: if (l_sub_reqtab(i).dev_status <> 'NORMAL') then
830: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Concurrent Request: '||l_sub_reqtab(i).request_id||' -> Status: '||l_sub_reqtab(i).dev_status);

Line 831: X_retcode := FND_API.g_ret_sts_unexp_error;

827: for i IN 1..l_sub_reqtab.COUNT()
828: loop
829: if (l_sub_reqtab(i).dev_status <> 'NORMAL') then
830: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Concurrent Request: '||l_sub_reqtab(i).request_id||' -> Status: '||l_sub_reqtab(i).dev_status);
831: X_retcode := FND_API.g_ret_sts_unexp_error;
832: end if;
833: end loop;
834:
835: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then

Line 835: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then

831: X_retcode := FND_API.g_ret_sts_unexp_error;
832: end if;
833: end loop;
834:
835: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then
836: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>All Child Workers are Successfull');
837: else
838: X_errbuf := 'One or More of Child Workers completed in Error';
839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

835: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then
836: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>All Child Workers are Successfull');
837: else
838: X_errbuf := 'One or More of Child Workers completed in Error';
839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
840: end if;
841:
842: commit;
843: end if;

Line 859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

855: END IF;
856:
857: EXCEPTION
858:
859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
860: X_retcode := FND_API.g_ret_sts_unexp_error;
861: handle_error ( X_module => l_module||'.'||l_stmt_num,
862: X_message => 'ERROR: '||X_errbuf,
863: X_reqerror => TRUE,

Line 860: X_retcode := FND_API.g_ret_sts_unexp_error;

856:
857: EXCEPTION
858:
859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
860: X_retcode := FND_API.g_ret_sts_unexp_error;
861: handle_error ( X_module => l_module||'.'||l_stmt_num,
862: X_message => 'ERROR: '||X_errbuf,
863: X_reqerror => TRUE,
864: X_errbuf => X_errbuf );

Line 867: X_retcode := FND_API.g_ret_sts_unexp_error;

863: X_reqerror => TRUE,
864: X_errbuf => X_errbuf );
865:
866: WHEN OTHERS THEN
867: X_retcode := FND_API.g_ret_sts_unexp_error;
868: handle_error ( X_module => l_module||'.'||l_stmt_num,
869: X_message => 'EXCEPTION: '||SQLERRM,
870: X_reqerror => TRUE,
871: X_errbuf => X_errbuf );

Line 969: IF NOT FND_API.Compatible_API_Call (

965: raise_application_error(-20001, 'SUBMIT_SUBREQUESTS() must be called from a concurrent request');
966: end if;
967:
968: -- Standard call to check for call compatibility
969: IF NOT FND_API.Compatible_API_Call (
970: l_api_version,
971: X_api_version,
972: l_api_name,
973: G_PKG_NAME ) THEN

Line 975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

971: X_api_version,
972: l_api_name,
973: G_PKG_NAME ) THEN
974: X_errbuf := 'Incompatible API Call.';
975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
976: END IF;
977:
978: req_data := fnd_conc_global.request_data;
979:

Line 989: IF FND_API.to_Boolean(X_init_msg_list) THEN

985:
986: if (submit_req = TRUE) then
987:
988: -- Initialize message list if X_init_msg_list is set to TRUE
989: IF FND_API.to_Boolean(X_init_msg_list) THEN
990: FND_MSG_PUB.initialize;
991: END IF;
992:
993: x_retcode := FND_API.G_RET_STS_SUCCESS;

Line 993: x_retcode := FND_API.G_RET_STS_SUCCESS;

989: IF FND_API.to_Boolean(X_init_msg_list) THEN
990: FND_MSG_PUB.initialize;
991: END IF;
992:
993: x_retcode := FND_API.G_RET_STS_SUCCESS;
994:
995: --
996: -- get schema name of the table for ID range processing
997: --

Line 1033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1029: X_Argument10 => null );
1030:
1031: if (X_retcode <>AD_CONC_UTILS_PKG.CONC_SUCCESS) THEN
1032: X_errbuf := 'Submission of WIP Upgrade Workers failed -> X_retcode = '||X_retcode;
1033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1034: end if;
1035:
1036: l_stmt_num :=30;
1037:

Line 1051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1047: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'No Data Found in XUD');
1048: end;
1049: else
1050: X_errbuf := 'Cannot get schema name for product : '||l_product;
1051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1052: end if;
1053:
1054: /* can not update migration_status_code until Inventory upgrade is done, because they share the same period.*/
1055:

Line 1064: x_retcode := FND_API.G_RET_STS_SUCCESS;

1060: --
1061: l_stmt_num :=40;
1062: l_sub_reqtab := fnd_concurrent.get_sub_requests(gRequestId);
1063:
1064: x_retcode := FND_API.G_RET_STS_SUCCESS;
1065: for i IN 1..l_sub_reqtab.COUNT()
1066: loop
1067: if (l_sub_reqtab(i).dev_status <> 'NORMAL') then
1068: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Concurrent Request: '||l_sub_reqtab(i).request_id||' -> Status: '||l_sub_reqtab(i).dev_status);

Line 1069: X_retcode := FND_API.g_ret_sts_unexp_error;

1065: for i IN 1..l_sub_reqtab.COUNT()
1066: loop
1067: if (l_sub_reqtab(i).dev_status <> 'NORMAL') then
1068: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Concurrent Request: '||l_sub_reqtab(i).request_id||' -> Status: '||l_sub_reqtab(i).dev_status);
1069: X_retcode := FND_API.g_ret_sts_unexp_error;
1070: end if;
1071: end loop;
1072:
1073: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then

Line 1073: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then

1069: X_retcode := FND_API.g_ret_sts_unexp_error;
1070: end if;
1071: end loop;
1072:
1073: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then
1074: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>All Child Workers are Successfull');
1075: else
1076: X_errbuf := 'One or More of Child Workers completed in Error';
1077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1073: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then
1074: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>All Child Workers are Successfull');
1075: else
1076: X_errbuf := 'One or More of Child Workers completed in Error';
1077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1078: end if;
1079:
1080: commit;
1081: end if;

Line 1097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1093: END IF;
1094:
1095: EXCEPTION
1096:
1097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1098: X_retcode := FND_API.g_ret_sts_unexp_error;
1099: handle_error ( X_module => l_module||'.'||l_stmt_num,
1100: X_message => 'ERROR: '||X_errbuf,
1101: X_reqerror => TRUE,

Line 1098: X_retcode := FND_API.g_ret_sts_unexp_error;

1094:
1095: EXCEPTION
1096:
1097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1098: X_retcode := FND_API.g_ret_sts_unexp_error;
1099: handle_error ( X_module => l_module||'.'||l_stmt_num,
1100: X_message => 'ERROR: '||X_errbuf,
1101: X_reqerror => TRUE,
1102: X_errbuf => X_errbuf );

Line 1105: X_retcode := FND_API.g_ret_sts_unexp_error;

1101: X_reqerror => TRUE,
1102: X_errbuf => X_errbuf );
1103:
1104: WHEN OTHERS THEN
1105: X_retcode := FND_API.g_ret_sts_unexp_error;
1106: handle_error ( X_module => l_module||'.'||l_stmt_num,
1107: X_message => 'EXCEPTION: '||SQLERRM,
1108: X_reqerror => TRUE,
1109: X_errbuf => X_errbuf );

Line 1207: IF NOT FND_API.Compatible_API_Call (

1203: raise_application_error(-20001, 'SUBMIT_SUBREQUESTS() must be called from a concurrent request');
1204: end if;
1205:
1206: -- Standard call to check for call compatibility
1207: IF NOT FND_API.Compatible_API_Call (
1208: l_api_version,
1209: X_api_version,
1210: l_api_name,
1211: G_PKG_NAME ) THEN

Line 1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1209: X_api_version,
1210: l_api_name,
1211: G_PKG_NAME ) THEN
1212: X_errbuf := 'Incompatible API Call.';
1213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1214: END IF;
1215:
1216: req_data := fnd_conc_global.request_data;
1217:

Line 1227: IF FND_API.to_Boolean(X_init_msg_list) THEN

1223:
1224: if (submit_req = TRUE) then
1225:
1226: -- Initialize message list if X_init_msg_list is set to TRUE
1227: IF FND_API.to_Boolean(X_init_msg_list) THEN
1228: FND_MSG_PUB.initialize;
1229: END IF;
1230:
1231: x_retcode := FND_API.G_RET_STS_SUCCESS;

Line 1231: x_retcode := FND_API.G_RET_STS_SUCCESS;

1227: IF FND_API.to_Boolean(X_init_msg_list) THEN
1228: FND_MSG_PUB.initialize;
1229: END IF;
1230:
1231: x_retcode := FND_API.G_RET_STS_SUCCESS;
1232:
1233: --
1234: -- get schema name of the table for ID range processing
1235: --

Line 1271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1267: X_Argument10 => null );
1268:
1269: if (X_retcode <>AD_CONC_UTILS_PKG.CONC_SUCCESS) THEN
1270: X_errbuf := 'Submission of RCV Upgrade Workers failed -> X_retcode = '||X_retcode;
1271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1272: end if;
1273:
1274: l_stmt_num :=30;
1275:

Line 1289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1285: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'No Data Found in XUD');
1286: end;
1287: else
1288: X_errbuf := 'Cannot get schema name for product : '||l_product;
1289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1290: end if;
1291:
1292: --update migration_status_code and je_from_sla_flag
1293:

Line 1302: x_retcode := FND_API.G_RET_STS_SUCCESS;

1298: --
1299: l_stmt_num :=40;
1300: l_sub_reqtab := fnd_concurrent.get_sub_requests(gRequestId);
1301:
1302: x_retcode := FND_API.G_RET_STS_SUCCESS;
1303: for i IN 1..l_sub_reqtab.COUNT()
1304: loop
1305: if (l_sub_reqtab(i).dev_status <> 'NORMAL') then
1306: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Concurrent Request: '||l_sub_reqtab(i).request_id||' -> Status: '||l_sub_reqtab(i).dev_status);

Line 1307: X_retcode := FND_API.g_ret_sts_unexp_error;

1303: for i IN 1..l_sub_reqtab.COUNT()
1304: loop
1305: if (l_sub_reqtab(i).dev_status <> 'NORMAL') then
1306: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>Concurrent Request: '||l_sub_reqtab(i).request_id||' -> Status: '||l_sub_reqtab(i).dev_status);
1307: X_retcode := FND_API.g_ret_sts_unexp_error;
1308: end if;
1309: end loop;
1310:
1311: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then

Line 1311: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then

1307: X_retcode := FND_API.g_ret_sts_unexp_error;
1308: end if;
1309: end loop;
1310:
1311: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then
1312: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>All Child Workers are Successfull');
1313: else
1314: X_errbuf := 'One or More of Child Workers completed in Error';
1315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1311: if (X_retcode = FND_API.G_RET_STS_SUCCESS) then
1312: fnd_file.put_line(fnd_file.log, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS')||'>All Child Workers are Successfull');
1313: else
1314: X_errbuf := 'One or More of Child Workers completed in Error';
1315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1316: end if;
1317:
1318: commit;
1319: end if;

Line 1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1331: END IF;
1332:
1333: EXCEPTION
1334:
1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1336: X_retcode := FND_API.g_ret_sts_unexp_error;
1337: handle_error ( X_module => l_module||'.'||l_stmt_num,
1338: X_message => 'ERROR: '||X_errbuf,
1339: X_reqerror => TRUE,

Line 1336: X_retcode := FND_API.g_ret_sts_unexp_error;

1332:
1333: EXCEPTION
1334:
1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1336: X_retcode := FND_API.g_ret_sts_unexp_error;
1337: handle_error ( X_module => l_module||'.'||l_stmt_num,
1338: X_message => 'ERROR: '||X_errbuf,
1339: X_reqerror => TRUE,
1340: X_errbuf => X_errbuf );

Line 1343: X_retcode := FND_API.g_ret_sts_unexp_error;

1339: X_reqerror => TRUE,
1340: X_errbuf => X_errbuf );
1341:
1342: WHEN OTHERS THEN
1343: X_retcode := FND_API.g_ret_sts_unexp_error;
1344: handle_error ( X_module => l_module||'.'||l_stmt_num,
1345: X_message => 'EXCEPTION: '||SQLERRM,
1346: X_reqerror => TRUE,
1347: X_errbuf => X_errbuf );

Line 1506: IF (X_retcode <> FND_API.G_RET_STS_SUCCESS) then

1502: X_retcode=>X_retcode,
1503: X_min_id=>l_start_id,
1504: X_max_id=>l_end_id);
1505:
1506: IF (X_retcode <> FND_API.G_RET_STS_SUCCESS) then
1507: X_errbuf := 'Failure while updating INV Subledger rows from '|| l_start_id || ' To ' || l_end_id;
1508: fnd_file.put_line(fnd_file.LOG, 'RETCODE := ' || X_retcode || '. ' ||x_errbuf);
1509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1510: ELSE

Line 1509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1505:
1506: IF (X_retcode <> FND_API.G_RET_STS_SUCCESS) then
1507: X_errbuf := 'Failure while updating INV Subledger rows from '|| l_start_id || ' To ' || l_end_id;
1508: fnd_file.put_line(fnd_file.LOG, 'RETCODE := ' || X_retcode || '. ' ||x_errbuf);
1509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1510: ELSE
1511: fnd_file.put_line(fnd_file.LOG, 'Inventory upgrade completed successfully for Range : ' || l_start_id || ' To ' || l_end_id);
1512: END IF;
1513:

Line 1558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1554: END IF;
1555:
1556: EXCEPTION
1557:
1558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1559: ROLLBACK;
1560: fnd_file.put_line(fnd_file.LOG, 'Unexpected error encountered. RETCODE:= ' || x_retcode || '. ' || x_errbuf);
1561: X_retcode := FND_API.g_ret_sts_unexp_error;
1562: handle_error ( X_module => l_module||'.'||l_stmt_num,

Line 1561: X_retcode := FND_API.g_ret_sts_unexp_error;

1557:
1558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1559: ROLLBACK;
1560: fnd_file.put_line(fnd_file.LOG, 'Unexpected error encountered. RETCODE:= ' || x_retcode || '. ' || x_errbuf);
1561: X_retcode := FND_API.g_ret_sts_unexp_error;
1562: handle_error ( X_module => l_module||'.'||l_stmt_num,
1563: X_message => 'ERROR: '||X_errbuf,
1564: X_reqerror => TRUE,
1565: X_errbuf => X_errbuf );

Line 1570: X_retcode := FND_API.g_ret_sts_unexp_error;

1566:
1567: WHEN OTHERS THEN
1568: fnd_file.put_line(fnd_file.LOG, 'Exception encountered. RETCODE:= ' || x_retcode || '. ' || x_errbuf);
1569: ROLLBACK;
1570: X_retcode := FND_API.g_ret_sts_unexp_error;
1571: handle_error ( X_module => l_module||'.'||l_stmt_num,
1572: X_message => 'EXCEPTION: '||SQLERRM,
1573: X_reqerror => TRUE,
1574: X_errbuf => X_errbuf );

Line 1733: IF (X_retcode <>FND_API.G_RET_STS_SUCCESS) then

1729: X_retcode=>X_retcode,
1730: X_min_id=>l_start_id,
1731: X_max_id=>l_end_id);
1732:
1733: IF (X_retcode <>FND_API.G_RET_STS_SUCCESS) then
1734: X_errbuf := 'Failure while updating WIP Subledger from '|| l_start_id || ' To ' || l_end_id;
1735: fnd_file.put_line(fnd_file.LOG, 'RETCODE := ' || X_retcode || '. ' ||x_errbuf);
1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1737: ELSE

Line 1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;

1732:
1733: IF (X_retcode <>FND_API.G_RET_STS_SUCCESS) then
1734: X_errbuf := 'Failure while updating WIP Subledger from '|| l_start_id || ' To ' || l_end_id;
1735: fnd_file.put_line(fnd_file.LOG, 'RETCODE := ' || X_retcode || '. ' ||x_errbuf);
1736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1737: ELSE
1738: fnd_file.put_line(fnd_file.LOG, 'WIP upgrade completed successfully for Range : ' || l_start_id || ' To ' || l_end_id);
1739: END IF;
1740:

Line 1784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1780: END IF;
1781:
1782: EXCEPTION
1783:
1784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1785: fnd_file.put_line(fnd_file.LOG, 'Unexpected error encountered. RETCODE:= ' || x_retcode || '. ' || x_errbuf);
1786: ROLLBACK;
1787: X_retcode := FND_API.g_ret_sts_unexp_error;
1788: handle_error ( X_module => l_module||'.'||l_stmt_num,

Line 1787: X_retcode := FND_API.g_ret_sts_unexp_error;

1783:
1784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1785: fnd_file.put_line(fnd_file.LOG, 'Unexpected error encountered. RETCODE:= ' || x_retcode || '. ' || x_errbuf);
1786: ROLLBACK;
1787: X_retcode := FND_API.g_ret_sts_unexp_error;
1788: handle_error ( X_module => l_module||'.'||l_stmt_num,
1789: X_message => 'ERROR: '||X_errbuf,
1790: X_reqerror => TRUE,
1791: X_errbuf => X_errbuf );

Line 1796: X_retcode := FND_API.g_ret_sts_unexp_error;

1792:
1793: WHEN OTHERS THEN
1794: ROLLBACK;
1795: fnd_file.put_line(fnd_file.LOG, 'Exception encountered. RETCODE:= ' || x_retcode || '. ' || x_errbuf);
1796: X_retcode := FND_API.g_ret_sts_unexp_error;
1797: handle_error ( X_module => l_module||'.'||l_stmt_num,
1798: X_message => 'EXCEPTION: '||SQLERRM,
1799: X_reqerror => TRUE,
1800: X_errbuf => X_errbuf );

Line 1982: IF (X_retcode <>FND_API.G_RET_STS_SUCCESS) then

1978: X_retcode=>X_retcode,
1979: X_min_id=>l_start_id,
1980: X_max_id=>l_end_id);
1981:
1982: IF (X_retcode <>FND_API.G_RET_STS_SUCCESS) then
1983: X_errbuf := 'Failure while updating RCV Subledger from '|| l_start_id || ' To ' || l_end_id;
1984: fnd_file.put_line(fnd_file.LOG, 'RETCODE := ' || X_retcode || '. ' ||x_errbuf);
1985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1986: ELSE

Line 1985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1981:
1982: IF (X_retcode <>FND_API.G_RET_STS_SUCCESS) then
1983: X_errbuf := 'Failure while updating RCV Subledger from '|| l_start_id || ' To ' || l_end_id;
1984: fnd_file.put_line(fnd_file.LOG, 'RETCODE := ' || X_retcode || '. ' ||x_errbuf);
1985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1986: ELSE
1987: fnd_file.put_line(fnd_file.LOG, 'Receiving upgrade completed successfully for Range : ' || l_start_id || ' To ' || l_end_id);
1988: END IF;
1989:

Line 2033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2029: END IF;
2030:
2031: EXCEPTION
2032:
2033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2034: fnd_file.put_line(fnd_file.LOG, 'Unexpected error encountered. RETCODE:= ' || x_retcode || '. ' || x_errbuf);
2035: ROLLBACK;
2036: X_retcode := FND_API.g_ret_sts_unexp_error;
2037: handle_error ( X_module => l_module||'.'||l_stmt_num,

Line 2036: X_retcode := FND_API.g_ret_sts_unexp_error;

2032:
2033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2034: fnd_file.put_line(fnd_file.LOG, 'Unexpected error encountered. RETCODE:= ' || x_retcode || '. ' || x_errbuf);
2035: ROLLBACK;
2036: X_retcode := FND_API.g_ret_sts_unexp_error;
2037: handle_error ( X_module => l_module||'.'||l_stmt_num,
2038: X_message => 'ERROR: '||X_errbuf,
2039: X_reqerror => TRUE,
2040: X_errbuf => X_errbuf );

Line 2045: X_retcode := FND_API.g_ret_sts_unexp_error;

2041:
2042: WHEN OTHERS THEN
2043: fnd_file.put_line(fnd_file.LOG, 'Exception encountered. RETCODE:= ' || x_retcode || '. ' || x_errbuf);
2044: ROLLBACK;
2045: X_retcode := FND_API.g_ret_sts_unexp_error;
2046: handle_error ( X_module => l_module||'.'||l_stmt_num,
2047: X_message => 'EXCEPTION: '||SQLERRM,
2048: X_reqerror => TRUE,
2049: X_errbuf => X_errbuf );

Line 2124: x_retcode := FND_API.G_RET_STS_SUCCESS;

2120: header_id NUMBER,
2121: legal_entity number,
2122: org_id number) ON COMMIT DELETE ROWS';*/
2123:
2124: x_retcode := FND_API.G_RET_STS_SUCCESS;
2125:
2126: /* one (txn_id,org_id,txn_src_type_id) -> one entity_id -> one event_id -> one header_id */
2127: /* one mta line -> one xla_ae_line -> one xla_distribution_link */
2128:

Line 2855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2851: END IF;
2852:
2853: EXCEPTION
2854:
2855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2856: ROLLBACK;
2857: X_retcode := FND_API.g_ret_sts_unexp_error;
2858: handle_error ( X_module => l_module||'.'||l_stmt_num,
2859: X_message => 'ERROR: '||X_errbuf,

Line 2857: X_retcode := FND_API.g_ret_sts_unexp_error;

2853: EXCEPTION
2854:
2855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2856: ROLLBACK;
2857: X_retcode := FND_API.g_ret_sts_unexp_error;
2858: handle_error ( X_module => l_module||'.'||l_stmt_num,
2859: X_message => 'ERROR: '||X_errbuf,
2860: X_reqerror => FALSE,
2861: X_errbuf => X_errbuf );

Line 2865: X_retcode := FND_API.g_ret_sts_unexp_error;

2861: X_errbuf => X_errbuf );
2862:
2863: WHEN OTHERS THEN
2864: ROLLBACK;
2865: X_retcode := FND_API.g_ret_sts_unexp_error;
2866: handle_error ( X_module => l_module||'.'||l_stmt_num,
2867: X_message => 'EXCEPTION: '||SQLERRM,
2868: X_reqerror => FALSE,
2869: X_errbuf => X_errbuf );

Line 2930: x_retcode := FND_API.G_RET_STS_SUCCESS;

2926: END IF;
2927:
2928: l_je_category_name := 'WIP';
2929:
2930: x_retcode := FND_API.G_RET_STS_SUCCESS;
2931:
2932: /* one (txn_id,org_id,txn_src_type_id) -> one entity_id -> one event_id -> one header_id */
2933: /* one wta line -> one xla_ae_line -> one xla_distribution_link */
2934:

Line 3424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3420: END IF;
3421:
3422: EXCEPTION
3423:
3424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3425: ROLLBACK;
3426: X_retcode := FND_API.g_ret_sts_unexp_error;
3427: handle_error ( X_module => l_module||'.'||l_stmt_num,
3428: X_message => 'ERROR: '||X_errbuf,

Line 3426: X_retcode := FND_API.g_ret_sts_unexp_error;

3422: EXCEPTION
3423:
3424: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3425: ROLLBACK;
3426: X_retcode := FND_API.g_ret_sts_unexp_error;
3427: handle_error ( X_module => l_module||'.'||l_stmt_num,
3428: X_message => 'ERROR: '||X_errbuf,
3429: X_reqerror => FALSE,
3430: X_errbuf => X_errbuf );

Line 3434: X_retcode := FND_API.g_ret_sts_unexp_error;

3430: X_errbuf => X_errbuf );
3431:
3432: WHEN OTHERS THEN
3433: ROLLBACK;
3434: X_retcode := FND_API.g_ret_sts_unexp_error;
3435: handle_error ( X_module => l_module||'.'||l_stmt_num,
3436: X_message => 'EXCEPTION: '||SQLERRM,
3437: X_reqerror => FALSE,
3438: X_errbuf => X_errbuf );

Line 3503: x_retcode := FND_API.G_RET_STS_SUCCESS;

3499: END IF;
3500:
3501: l_je_category_name :='Receiving';
3502:
3503: x_retcode := FND_API.G_RET_STS_SUCCESS;
3504:
3505: SELECT MULTI_ORG_FLAG
3506: INTO l_multi_org_flag
3507: FROM FND_PRODUCT_GROUPS;

Line 3945: if (X_retcode <> FND_API.G_RET_STS_SUCCESS) then

3941: RCV_SLA_MRC_UPDATE_PKG.Update_Receiving_MRC_Subledger(X_errbuf => X_errbuf,
3942: X_retcode => X_retcode,
3943: X_upg_batch_id => l_upg_batch_id,
3944: X_je_category_name => l_je_category_name);
3945: if (X_retcode <> FND_API.G_RET_STS_SUCCESS) then
3946: raise CST_RCV_MRC_UPG_EXCEPTION;
3947: end if;
3948: end if;
3949:

Line 3966: X_retcode := FND_API.g_ret_sts_unexp_error;

3962: EXCEPTION
3963:
3964: WHEN CST_RCV_MRC_UPG_EXCEPTION THEN
3965: ROLLBACK;
3966: X_retcode := FND_API.g_ret_sts_unexp_error;
3967: handle_error ( X_module => l_module||'.'||l_stmt_num,
3968: X_message => 'ERROR: An exception has occurred in upgrade of receiving MRC table.',
3969: X_reqerror => FALSE,
3970: X_errbuf => X_errbuf );

Line 3972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3968: X_message => 'ERROR: An exception has occurred in upgrade of receiving MRC table.',
3969: X_reqerror => FALSE,
3970: X_errbuf => X_errbuf );
3971:
3972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3973: ROLLBACK;
3974: X_retcode := FND_API.g_ret_sts_unexp_error;
3975: handle_error ( X_module => l_module||'.'||l_stmt_num,
3976: X_message => 'ERROR: '||X_errbuf,

Line 3974: X_retcode := FND_API.g_ret_sts_unexp_error;

3970: X_errbuf => X_errbuf );
3971:
3972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3973: ROLLBACK;
3974: X_retcode := FND_API.g_ret_sts_unexp_error;
3975: handle_error ( X_module => l_module||'.'||l_stmt_num,
3976: X_message => 'ERROR: '||X_errbuf,
3977: X_reqerror => FALSE,
3978: X_errbuf => X_errbuf );

Line 3982: X_retcode := FND_API.g_ret_sts_unexp_error;

3978: X_errbuf => X_errbuf );
3979:
3980: WHEN OTHERS THEN
3981: ROLLBACK;
3982: X_retcode := FND_API.g_ret_sts_unexp_error;
3983: handle_error ( X_module => l_module||'.'||l_stmt_num,
3984: X_message => 'EXCEPTION: '||SQLERRM,
3985: X_reqerror => FALSE,
3986: X_errbuf => X_errbuf );