eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PO_AP_PURGE_PVT dependencies on FND_API

Line 17: g_set_product_inst_status VARCHAR2(1) := FND_API.G_FALSE;

13: g_mrp_install_status VARCHAR2(1);
14: g_chv_install_status VARCHAR2(1);
15: g_pa_install_status VARCHAR2(1);
16: g_pjm_install_status VARCHAR2(1);
17: g_set_product_inst_status VARCHAR2(1) := FND_API.G_FALSE;
18:
19:
20: --*********************************************************************
21: ----------------- Private Procedure Prototypes-------------------------

Line 144: -- FND_API.G_TRUE: initialize the message list

140: --IN:
141: --p_api_version
142: -- Version of the api the caller is assuming
143: --p_init_msg_list
144: -- FND_API.G_TRUE: initialize the message list
145: -- FND_API.G_FALSE: do not initialize the message list
146: --p_commit
147: -- Whether the API should commit
148: --p_purge_name

Line 145: -- FND_API.G_FALSE: do not initialize the message list

141: --p_api_version
142: -- Version of the api the caller is assuming
143: --p_init_msg_list
144: -- FND_API.G_TRUE: initialize the message list
145: -- FND_API.G_FALSE: do not initialize the message list
146: --p_commit
147: -- Whether the API should commit
148: --p_purge_name
149: -- Name of this purge process

Line 199: IF (FND_API.to_boolean(p_init_msg_list)) THEN

195: END IF;
196:
197: SAVEPOINT seed_records_pvt;
198:
199: IF (FND_API.to_boolean(p_init_msg_list)) THEN
200: FND_MSG_PUB.initialize;
201: END IF;
202:
203: l_msg_idx := FND_MSG_PUB.count_msg + 1;

Line 205: IF (NOT FND_API.Compatible_API_Call

201: END IF;
202:
203: l_msg_idx := FND_MSG_PUB.count_msg + 1;
204:
205: IF (NOT FND_API.Compatible_API_Call
206: ( p_current_version_number => l_api_version,
207: p_caller_version_number => p_api_version,
208: p_api_name => l_api_name,
209: p_pkg_name => g_pkg_name

Line 213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

209: p_pkg_name => g_pkg_name
210: )
211: ) THEN
212:
213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
214: END IF; -- not compatible_api
215:
216: x_return_status := FND_API.G_RET_STS_SUCCESS;
217:

Line 216: x_return_status := FND_API.G_RET_STS_SUCCESS;

212:
213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
214: END IF; -- not compatible_api
215:
216: x_return_status := FND_API.G_RET_STS_SUCCESS;
217:
218: l_progress := '010';
219:
220: IF (p_purge_category = PO_AP_PURGE_GRP.G_PUR_CAT_SIMPLE_REQ) THEN

Line 251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

247: ( p_pkg_name => g_pkg_name,
248: p_procedure_name => l_api_name || '.' || l_progress,
249: p_error_text => l_progress || ': Param Mismatch' );
250:
251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
252:
253: END IF; -- p_purge_category
254:
255: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

Line 255: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
252:
253: END IF; -- p_purge_category
254:
255: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
256:
257: l_progress := '050';
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259:

Line 258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

254:
255: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
256:
257: l_progress := '050';
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259:
260: END IF;
261:
262: IF (FND_API.to_boolean(p_commit)) THEN

Line 262: IF (FND_API.to_boolean(p_commit)) THEN

258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259:
260: END IF;
261:
262: IF (FND_API.to_boolean(p_commit)) THEN
263:
264: l_progress := '060';
265: COMMIT;
266:

Line 282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

278:
279: EXCEPTION
280: WHEN OTHERS THEN
281: ROLLBACK TO seed_records_pvt;
282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
283: FND_MSG_PUB.add_exc_msg
284: ( p_pkg_name => g_pkg_name,
285: p_procedure_name => l_api_name || '.' || l_progress
286:

Line 310: -- FND_API.G_TRUE: initialize the message list

306: --IN:
307: --p_api_version
308: -- Version of the api the caller is assuming
309: --p_init_msg_list
310: -- FND_API.G_TRUE: initialize the message list
311: -- FND_API.G_FALSE: do not initialize the message list
312: --p_commit
313: -- FND_API.G_TRUE: commit changes
314: -- FND_API.G_FALSE: do not commit changes

Line 311: -- FND_API.G_FALSE: do not initialize the message list

307: --p_api_version
308: -- Version of the api the caller is assuming
309: --p_init_msg_list
310: -- FND_API.G_TRUE: initialize the message list
311: -- FND_API.G_FALSE: do not initialize the message list
312: --p_commit
313: -- FND_API.G_TRUE: commit changes
314: -- FND_API.G_FALSE: do not commit changes
315: --p_purge_status

Line 313: -- FND_API.G_TRUE: commit changes

309: --p_init_msg_list
310: -- FND_API.G_TRUE: initialize the message list
311: -- FND_API.G_FALSE: do not initialize the message list
312: --p_commit
313: -- FND_API.G_TRUE: commit changes
314: -- FND_API.G_FALSE: do not commit changes
315: --p_purge_status
316: -- Current stage of the purge process
317: --p_purge_name

Line 314: -- FND_API.G_FALSE: do not commit changes

310: -- FND_API.G_TRUE: initialize the message list
311: -- FND_API.G_FALSE: do not initialize the message list
312: --p_commit
313: -- FND_API.G_TRUE: commit changes
314: -- FND_API.G_FALSE: do not commit changes
315: --p_purge_status
316: -- Current stage of the purge process
317: --p_purge_name
318: -- Name of this purge process

Line 384: IF (FND_API.to_boolean(p_init_msg_list)) THEN

380: END IF;
381:
382: SAVEPOINT filter_records_pvt;
383:
384: IF (FND_API.to_boolean(p_init_msg_list)) THEN
385: FND_MSG_PUB.initialize;
386: END IF;
387:
388: l_msg_idx := FND_MSG_PUB.count_msg + 1;

Line 390: IF (NOT FND_API.Compatible_API_Call

386: END IF;
387:
388: l_msg_idx := FND_MSG_PUB.count_msg + 1;
389:
390: IF (NOT FND_API.Compatible_API_Call
391: ( p_current_version_number => l_api_version,
392: p_caller_version_number => p_api_version,
393: p_api_name => l_api_name,
394: p_pkg_name => g_pkg_name

Line 398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

394: p_pkg_name => g_pkg_name
395: )
396: ) THEN
397:
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
399: END IF; -- not compatible_api
400:
401: x_return_status := FND_API.G_RET_STS_SUCCESS;
402:

Line 401: x_return_status := FND_API.G_RET_STS_SUCCESS;

397:
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
399: END IF; -- not compatible_api
400:
401: x_return_status := FND_API.G_RET_STS_SUCCESS;
402:
403: x_po_records_filtered := FND_API.G_FALSE;
404:
405: l_progress := '010';

Line 403: x_po_records_filtered := FND_API.G_FALSE;

399: END IF; -- not compatible_api
400:
401: x_return_status := FND_API.G_RET_STS_SUCCESS;
402:
403: x_po_records_filtered := FND_API.G_FALSE;
404:
405: l_progress := '010';
406:
407: -- if product installation statuses have not been set, set them

Line 408: IF (NOT FND_API.to_boolean(g_set_product_inst_status)) THEN

404:
405: l_progress := '010';
406:
407: -- if product installation statuses have not been set, set them
408: IF (NOT FND_API.to_boolean(g_set_product_inst_status)) THEN
409: l_progress := '020';
410:
411: set_product_inst_status
412: ( x_return_status => l_return_status

Line 415: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

411: set_product_inst_status
412: ( x_return_status => l_return_status
413: );
414:
415: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418: END IF; -- not g_set_product_inst_status
419:

Line 416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

412: ( x_return_status => l_return_status
413: );
414:
415: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418: END IF; -- not g_set_product_inst_status
419:
420: IF (p_purge_category = PO_AP_PURGE_GRP.G_PUR_CAT_SIMPLE_REQ) THEN

Line 430: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN

426: l_progress := '040';
427:
428: filter_referenced_req (x_return_status => l_return_status);
429:
430: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
431:
432: filter_referenced_po (x_return_status => l_return_status);
433: END IF;
434:

Line 435: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN

431:
432: filter_referenced_po (x_return_status => l_return_status);
433: END IF;
434:
435: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
436:
437: filter_dependent_po_req_list
438: ( x_return_status => l_return_status,
439: x_po_records_filtered => x_po_records_filtered);

Line 451: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN

447:
448: filter_referenced_req
449: ( x_return_status => l_return_status );
450:
451: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
452: l_progress := '070';
453:
454: filter_referenced_po
455: ( x_return_status => l_return_status );

Line 479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

475: ( p_pkg_name => g_pkg_name,
476: p_procedure_name => l_api_name || '.' || l_progress,
477: p_error_text => l_progress || ': Param Mismatch' );
478:
479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
480: END IF; -- p_action = ...
481:
482: ELSE
483: l_progress := '110';

Line 490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

486: ( p_pkg_name => g_pkg_name,
487: p_procedure_name => l_api_name || '.' || l_progress,
488: p_error_text => l_progress || ': Param Mismatch' );
489:
490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
491: END IF; -- p_purge_category
492:
493: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 493: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

489:
490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
491: END IF; -- p_purge_category
492:
493: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
496:
497: l_progress := '120';

Line 494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
491: END IF; -- p_purge_category
492:
493: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
496:
497: l_progress := '120';
498:

Line 507: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

503: ( x_return_status => l_return_status,
504: p_purge_category => p_purge_category
505: );
506:
507: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: END IF;
510:
511: END IF; -- p_purge_status = 'INITIATING'

Line 508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

504: p_purge_category => p_purge_category
505: );
506:
507: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: END IF;
510:
511: END IF; -- p_purge_status = 'INITIATING'
512:

Line 513: IF (FND_API.to_boolean(p_commit)) THEN

509: END IF;
510:
511: END IF; -- p_purge_status = 'INITIATING'
512:
513: IF (FND_API.to_boolean(p_commit)) THEN
514: COMMIT;
515: END IF;
516:
517: IF (g_fnd_debug = 'Y') THEN

Line 530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

526:
527: EXCEPTION
528: WHEN OTHERS THEN
529: ROLLBACK TO filter_records_pvt;
530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
531: FND_MSG_PUB.add_exc_msg
532: ( p_pkg_name => g_pkg_name,
533: p_procedure_name => l_api_name || '.' || l_progress
534:

Line 559: -- FND_API.G_TRUE: initialize the message list

555: --IN:
556: --p_api_version
557: -- Version of the api the caller is assuming
558: --p_init_msg_list
559: -- FND_API.G_TRUE: initialize the message list
560: -- FND_API.G_FALSE: do not initialize the message list
561: --p_commit
562: -- FND_API.G_TRUE: procedure should commit
563: -- FND_API.G_FALSE: procedure should not commit

Line 560: -- FND_API.G_FALSE: do not initialize the message list

556: --p_api_version
557: -- Version of the api the caller is assuming
558: --p_init_msg_list
559: -- FND_API.G_TRUE: initialize the message list
560: -- FND_API.G_FALSE: do not initialize the message list
561: --p_commit
562: -- FND_API.G_TRUE: procedure should commit
563: -- FND_API.G_FALSE: procedure should not commit
564: --p_purge_name

Line 562: -- FND_API.G_TRUE: procedure should commit

558: --p_init_msg_list
559: -- FND_API.G_TRUE: initialize the message list
560: -- FND_API.G_FALSE: do not initialize the message list
561: --p_commit
562: -- FND_API.G_TRUE: procedure should commit
563: -- FND_API.G_FALSE: procedure should not commit
564: --p_purge_name
565: -- Name of the purge
566: --p_purge_category

Line 563: -- FND_API.G_FALSE: procedure should not commit

559: -- FND_API.G_TRUE: initialize the message list
560: -- FND_API.G_FALSE: do not initialize the message list
561: --p_commit
562: -- FND_API.G_TRUE: procedure should commit
563: -- FND_API.G_FALSE: procedure should not commit
564: --p_purge_name
565: -- Name of the purge
566: --p_purge_category
567: -- Purge Category

Line 615: IF (FND_API.to_boolean(p_init_msg_list)) THEN

611: END IF;
612:
613: SAVEPOINT confirm_records_pvt;
614:
615: IF (FND_API.to_boolean(p_init_msg_list)) THEN
616: FND_MSG_PUB.initialize;
617: END IF;
618:
619: l_msg_idx := FND_MSG_PUB.count_msg + 1;

Line 621: IF (NOT FND_API.Compatible_API_Call

617: END IF;
618:
619: l_msg_idx := FND_MSG_PUB.count_msg + 1;
620:
621: IF (NOT FND_API.Compatible_API_Call
622: ( p_current_version_number => l_api_version,
623: p_caller_version_number => p_api_version,
624: p_api_name => l_api_name,
625: p_pkg_name => g_pkg_name

Line 629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

625: p_pkg_name => g_pkg_name
626: )
627: ) THEN
628:
629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
630: END IF;
631:
632: x_return_status := FND_API.G_RET_STS_SUCCESS;
633:

Line 632: x_return_status := FND_API.G_RET_STS_SUCCESS;

628:
629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
630: END IF;
631:
632: x_return_status := FND_API.G_RET_STS_SUCCESS;
633:
634: l_progress := '010';
635:
636: IF (p_purge_category = PO_AP_PURGE_GRP.G_PUR_CAT_SIMPLE_REQ) THEN

Line 660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

656: ( p_pkg_name => g_pkg_name,
657: p_procedure_name => l_api_name || '.' || l_progress,
658: p_error_text => l_progress || ': Param Mismatch' );
659:
660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
661: END IF; -- p_purge_category
662:
663: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 663: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

659:
660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
661: END IF; -- p_purge_category
662:
663: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: END IF;
666:
667: IF (FND_API.to_boolean(p_commit)) THEN

Line 664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
661: END IF; -- p_purge_category
662:
663: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: END IF;
666:
667: IF (FND_API.to_boolean(p_commit)) THEN
668: COMMIT;

Line 667: IF (FND_API.to_boolean(p_commit)) THEN

663: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: END IF;
666:
667: IF (FND_API.to_boolean(p_commit)) THEN
668: COMMIT;
669: END IF;
670:
671: IF (g_fnd_debug = 'Y') THEN

Line 684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

680:
681: EXCEPTION
682: WHEN OTHERS THEN
683: ROLLBACK TO confirm_records_pvt;
684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
685: FND_MSG_PUB.add_exc_msg
686: ( p_pkg_name => g_pkg_name,
687: p_procedure_name => l_api_name || '.' || l_progress
688: );

Line 713: -- FND_API.G_TRUE: initialize the message list

709: --IN:
710: --p_api_version
711: -- Version of the api the caller is assuming
712: --p_init_msg_list
713: -- FND_API.G_TRUE: initialize the message list
714: -- FND_API.G_FALSE: do not initialize the message list
715: --p_commit
716: -- FND_API.G_TRUE: procedure should commit
717: -- FND_API.G_FALSE: procedure should not commit

Line 714: -- FND_API.G_FALSE: do not initialize the message list

710: --p_api_version
711: -- Version of the api the caller is assuming
712: --p_init_msg_list
713: -- FND_API.G_TRUE: initialize the message list
714: -- FND_API.G_FALSE: do not initialize the message list
715: --p_commit
716: -- FND_API.G_TRUE: procedure should commit
717: -- FND_API.G_FALSE: procedure should not commit
718: --p_purge_name

Line 716: -- FND_API.G_TRUE: procedure should commit

712: --p_init_msg_list
713: -- FND_API.G_TRUE: initialize the message list
714: -- FND_API.G_FALSE: do not initialize the message list
715: --p_commit
716: -- FND_API.G_TRUE: procedure should commit
717: -- FND_API.G_FALSE: procedure should not commit
718: --p_purge_name
719: -- Name of the purge
720: --p_purge_category

Line 717: -- FND_API.G_FALSE: procedure should not commit

713: -- FND_API.G_TRUE: initialize the message list
714: -- FND_API.G_FALSE: do not initialize the message list
715: --p_commit
716: -- FND_API.G_TRUE: procedure should commit
717: -- FND_API.G_FALSE: procedure should not commit
718: --p_purge_name
719: -- Name of the purge
720: --p_purge_category
721: -- Purge Category

Line 774: IF (FND_API.to_boolean(p_init_msg_list)) THEN

770: );
771: END IF;
772: END IF;
773:
774: IF (FND_API.to_boolean(p_init_msg_list)) THEN
775: FND_MSG_PUB.initialize;
776: END IF;
777:
778: l_msg_idx := FND_MSG_PUB.count_msg + 1;

Line 780: IF (NOT FND_API.Compatible_API_Call

776: END IF;
777:
778: l_msg_idx := FND_MSG_PUB.count_msg + 1;
779:
780: IF (NOT FND_API.Compatible_API_Call
781: ( p_current_version_number => l_api_version,
782: p_caller_version_number => p_api_version,
783: p_api_name => l_api_name,
784: p_pkg_name => g_pkg_name

Line 788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

784: p_pkg_name => g_pkg_name
785: )
786: ) THEN
787:
788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
789: END IF;
790:
791: x_return_status := FND_API.G_RET_STS_SUCCESS;
792:

Line 791: x_return_status := FND_API.G_RET_STS_SUCCESS;

787:
788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
789: END IF;
790:
791: x_return_status := FND_API.G_RET_STS_SUCCESS;
792:
793: l_progress := '010';
794:
795: -- This API will commit for each batch it processes. The p_commit

Line 796: -- parameter has to be FND_API.G_TRUE

792:
793: l_progress := '010';
794:
795: -- This API will commit for each batch it processes. The p_commit
796: -- parameter has to be FND_API.G_TRUE
797:
798: IF (p_commit <> FND_API.G_TRUE) THEN
799:
800: FND_MSG_PUB.add_exc_msg

Line 798: IF (p_commit <> FND_API.G_TRUE) THEN

794:
795: -- This API will commit for each batch it processes. The p_commit
796: -- parameter has to be FND_API.G_TRUE
797:
798: IF (p_commit <> FND_API.G_TRUE) THEN
799:
800: FND_MSG_PUB.add_exc_msg
801: ( p_pkg_name => g_pkg_name,
802: p_procedure_name => l_api_name || '.' || l_progress,

Line 806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

802: p_procedure_name => l_api_name || '.' || l_progress,
803: p_error_text => 'Internal Error. summarize_records must commit'
804: );
805:
806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
807: END IF;
808:
809: l_progress := '020';
810:

Line 818: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

814: x_lower_limit => l_req_lower_limit,
815: x_upper_limit => l_req_upper_limit
816: );
817:
818: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
820: END IF;
821:
822: summarize_reqs

Line 819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

815: x_upper_limit => l_req_upper_limit
816: );
817:
818: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
820: END IF;
821:
822: summarize_reqs
823: ( x_return_status => l_return_status,

Line 840: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

836: );
837: END IF;
838: END IF;
839:
840: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
842: END IF;
843:
844: IF (p_purge_category IN (PO_AP_PURGE_GRP.G_PUR_CAT_SIMPLE_PO,

Line 841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

837: END IF;
838: END IF;
839:
840: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
842: END IF;
843:
844: IF (p_purge_category IN (PO_AP_PURGE_GRP.G_PUR_CAT_SIMPLE_PO,
845: PO_AP_PURGE_GRP.G_PUR_CAT_MATCHED_PO_INV)) THEN

Line 856: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

852: x_lower_limit => l_po_lower_limit,
853: x_upper_limit => l_po_upper_limit
854: );
855:
856: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
858: END IF;
859:
860: l_progress := '040';

Line 857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

853: x_upper_limit => l_po_upper_limit
854: );
855:
856: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
858: END IF;
859:
860: l_progress := '040';
861:

Line 880: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

876: );
877: END IF;
878: END IF;
879:
880: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: END IF;
883:
884: l_progress := '050';

Line 881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

877: END IF;
878: END IF;
879:
880: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: END IF;
883:
884: l_progress := '050';
885:

Line 904: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

900: );
901: END IF;
902: END IF;
903:
904: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: END IF;
907:
908: END IF; -- p_purge_category IN (simple_po, matched_po_inv)

Line 905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

901: END IF;
902: END IF;
903:
904: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: END IF;
907:
908: END IF; -- p_purge_category IN (simple_po, matched_po_inv)
909:

Line 922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

918: END IF;
919:
920: EXCEPTION
921: WHEN OTHERS THEN
922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
923:
924: IF (g_fnd_debug = 'Y') THEN
925: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
926: FND_LOG.string

Line 961: -- FND_API.G_TRUE: initialize the message list

957: --IN:
958: --p_api_version
959: -- Version of the api the caller is assuming
960: --p_init_msg_list
961: -- FND_API.G_TRUE: initialize the message list
962: -- FND_API.G_FALSE: do not initialize the message list
963: --p_commit
964: -- FND_API.G_TRUE: procedure should commit
965: -- FND_API.G_FALSE: procedure should not commit

Line 962: -- FND_API.G_FALSE: do not initialize the message list

958: --p_api_version
959: -- Version of the api the caller is assuming
960: --p_init_msg_list
961: -- FND_API.G_TRUE: initialize the message list
962: -- FND_API.G_FALSE: do not initialize the message list
963: --p_commit
964: -- FND_API.G_TRUE: procedure should commit
965: -- FND_API.G_FALSE: procedure should not commit
966: --p_purge_name

Line 964: -- FND_API.G_TRUE: procedure should commit

960: --p_init_msg_list
961: -- FND_API.G_TRUE: initialize the message list
962: -- FND_API.G_FALSE: do not initialize the message list
963: --p_commit
964: -- FND_API.G_TRUE: procedure should commit
965: -- FND_API.G_FALSE: procedure should not commit
966: --p_purge_name
967: -- Name of the purge
968: --p_purge_category

Line 965: -- FND_API.G_FALSE: procedure should not commit

961: -- FND_API.G_TRUE: initialize the message list
962: -- FND_API.G_FALSE: do not initialize the message list
963: --p_commit
964: -- FND_API.G_TRUE: procedure should commit
965: -- FND_API.G_FALSE: procedure should not commit
966: --p_purge_name
967: -- Name of the purge
968: --p_purge_category
969: -- Purge Category

Line 1023: IF (FND_API.to_boolean(p_init_msg_list)) THEN

1019: );
1020: END IF;
1021: END IF;
1022:
1023: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1024: FND_MSG_PUB.initialize;
1025: END IF;
1026:
1027: l_msg_idx := FND_MSG_PUB.count_msg + 1;

Line 1029: IF (NOT FND_API.Compatible_API_Call

1025: END IF;
1026:
1027: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1028:
1029: IF (NOT FND_API.Compatible_API_Call
1030: ( p_current_version_number => l_api_version,
1031: p_caller_version_number => p_api_version,
1032: p_api_name => l_api_name,
1033: p_pkg_name => g_pkg_name

Line 1037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1033: p_pkg_name => g_pkg_name
1034: )
1035: ) THEN
1036:
1037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1038: END IF;
1039:
1040: x_return_status := FND_API.G_RET_STS_SUCCESS;
1041:

Line 1040: x_return_status := FND_API.G_RET_STS_SUCCESS;

1036:
1037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1038: END IF;
1039:
1040: x_return_status := FND_API.G_RET_STS_SUCCESS;
1041:
1042: l_progress := '010';
1043:
1044: -- This API will commit for each batch it processes. The p_commit

Line 1045: -- parameter has to be FND_API.G_TRUE

1041:
1042: l_progress := '010';
1043:
1044: -- This API will commit for each batch it processes. The p_commit
1045: -- parameter has to be FND_API.G_TRUE
1046: IF (p_commit <> FND_API.G_TRUE) THEN
1047:
1048: FND_MSG_PUB.add_exc_msg
1049: ( p_pkg_name => g_pkg_name,

Line 1046: IF (p_commit <> FND_API.G_TRUE) THEN

1042: l_progress := '010';
1043:
1044: -- This API will commit for each batch it processes. The p_commit
1045: -- parameter has to be FND_API.G_TRUE
1046: IF (p_commit <> FND_API.G_TRUE) THEN
1047:
1048: FND_MSG_PUB.add_exc_msg
1049: ( p_pkg_name => g_pkg_name,
1050: p_procedure_name => l_api_name || '.' || l_progress,

Line 1054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1050: p_procedure_name => l_api_name || '.' || l_progress,
1051: p_error_text => 'Internal Error. delete_records must commit'
1052: );
1053:
1054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1055: END IF;
1056:
1057: l_progress := '020';
1058:

Line 1066: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1062: x_lower_limit => l_req_lower_limit,
1063: x_upper_limit => l_req_upper_limit
1064: );
1065:
1066: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1068: END IF;
1069:
1070: delete_reqs

Line 1067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1063: x_upper_limit => l_req_upper_limit
1064: );
1065:
1066: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1068: END IF;
1069:
1070: delete_reqs
1071: ( x_return_status => l_return_status,

Line 1077: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1073: p_req_lower_limit => l_req_lower_limit,
1074: p_req_upper_limit => l_req_upper_limit
1075: );
1076:
1077: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1079: END IF;
1080:
1081: IF (p_purge_category IN (PO_AP_PURGE_GRP.G_PUR_CAT_SIMPLE_PO,

Line 1078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1074: p_req_upper_limit => l_req_upper_limit
1075: );
1076:
1077: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1079: END IF;
1080:
1081: IF (p_purge_category IN (PO_AP_PURGE_GRP.G_PUR_CAT_SIMPLE_PO,
1082: PO_AP_PURGE_GRP.G_PUR_CAT_MATCHED_PO_INV)) THEN

Line 1093: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1089: x_lower_limit => l_po_lower_limit,
1090: x_upper_limit => l_po_upper_limit
1091: );
1092:
1093: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1095: END IF;
1096:
1097: l_progress := '040';

Line 1094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1090: x_upper_limit => l_po_upper_limit
1091: );
1092:
1093: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1095: END IF;
1096:
1097: l_progress := '040';
1098:

Line 1106: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1102: p_po_lower_limit => l_po_lower_limit,
1103: p_po_upper_limit => l_po_upper_limit
1104: );
1105:
1106: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1108: END IF;
1109:
1110: l_progress := '050';

Line 1107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1103: p_po_upper_limit => l_po_upper_limit
1104: );
1105:
1106: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1108: END IF;
1109:
1110: l_progress := '050';
1111:

Line 1119: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1115: p_po_lower_limit => l_po_lower_limit,
1116: p_po_upper_limit => l_po_upper_limit
1117: );
1118:
1119: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1121: END IF;
1122:
1123: END IF; -- if purge category = simple_po or matched po_inv

Line 1120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1116: p_po_upper_limit => l_po_upper_limit
1117: );
1118:
1119: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1121: END IF;
1122:
1123: END IF; -- if purge category = simple_po or matched po_inv
1124:

Line 1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1133: END IF;
1134:
1135: EXCEPTION
1136: WHEN OTHERS THEN
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: FND_MSG_PUB.add_exc_msg
1139: ( p_pkg_name => g_pkg_name,
1140: p_procedure_name => l_api_name || '.' || l_progress
1141: );

Line 1163: -- FND_API.G_TRUE: initialize the message list

1159: --IN:
1160: --p_api_version
1161: -- Version of the api the caller is assuming
1162: --p_init_msg_list
1163: -- FND_API.G_TRUE: initialize the message list
1164: -- FND_API.G_FALSE: do not initialize the message list
1165: --p_commit
1166: -- FND_API.G_TRUE: procedure should commit
1167: -- FND_API.G_FALSE: procedure should not commit

Line 1164: -- FND_API.G_FALSE: do not initialize the message list

1160: --p_api_version
1161: -- Version of the api the caller is assuming
1162: --p_init_msg_list
1163: -- FND_API.G_TRUE: initialize the message list
1164: -- FND_API.G_FALSE: do not initialize the message list
1165: --p_commit
1166: -- FND_API.G_TRUE: procedure should commit
1167: -- FND_API.G_FALSE: procedure should not commit
1168: --p_purge_name

Line 1166: -- FND_API.G_TRUE: procedure should commit

1162: --p_init_msg_list
1163: -- FND_API.G_TRUE: initialize the message list
1164: -- FND_API.G_FALSE: do not initialize the message list
1165: --p_commit
1166: -- FND_API.G_TRUE: procedure should commit
1167: -- FND_API.G_FALSE: procedure should not commit
1168: --p_purge_name
1169: -- Name of the purge
1170: --IN OUT:

Line 1167: -- FND_API.G_FALSE: procedure should not commit

1163: -- FND_API.G_TRUE: initialize the message list
1164: -- FND_API.G_FALSE: do not initialize the message list
1165: --p_commit
1166: -- FND_API.G_TRUE: procedure should commit
1167: -- FND_API.G_FALSE: procedure should not commit
1168: --p_purge_name
1169: -- Name of the purge
1170: --IN OUT:
1171: --OUT:

Line 1215: IF (FND_API.to_boolean(p_init_msg_list)) THEN

1211: END IF;
1212:
1213: SAVEPOINT delete_purge_lists_pvt;
1214:
1215: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1216: FND_MSG_PUB.initialize;
1217: END IF;
1218:
1219: l_msg_idx := FND_MSG_PUB.count_msg + 1;

Line 1221: IF (NOT FND_API.Compatible_API_Call

1217: END IF;
1218:
1219: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1220:
1221: IF (NOT FND_API.Compatible_API_Call
1222: ( p_current_version_number => l_api_version,
1223: p_caller_version_number => p_api_version,
1224: p_api_name => l_api_name,
1225: p_pkg_name => g_pkg_name

Line 1229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1225: p_pkg_name => g_pkg_name
1226: )
1227: ) THEN
1228:
1229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1230: END IF;
1231:
1232: x_return_status := FND_API.G_RET_STS_SUCCESS;
1233:

Line 1232: x_return_status := FND_API.G_RET_STS_SUCCESS;

1228:
1229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1230: END IF;
1231:
1232: x_return_status := FND_API.G_RET_STS_SUCCESS;
1233:
1234: l_progress := '010';
1235:
1236: -- clear the purge lists

Line 1244: IF (FND_API.to_boolean(p_commit)) THEN

1240:
1241: DELETE
1242: FROM po_purge_po_list;
1243:
1244: IF (FND_API.to_boolean(p_commit)) THEN
1245: COMMIT;
1246: END IF;
1247:
1248: IF (g_fnd_debug = 'Y') THEN

Line 1261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1257:
1258: EXCEPTION
1259: WHEN OTHERS THEN
1260: ROLLBACK TO delete_purge_lists_pvt;
1261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1262: FND_MSG_PUB.add_exc_msg
1263: ( p_pkg_name => g_pkg_name,
1264: p_procedure_name => l_api_name || '.' || l_progress
1265: );

Line 1288: -- FND_API.G_TRUE: initialize the message list

1284: --IN:
1285: --p_api_version
1286: -- Version of the api the caller is assuming
1287: --p_init_msg_list
1288: -- FND_API.G_TRUE: initialize the message list
1289: -- FND_API.G_FALSE: do not initialize the message list
1290: --p_commit
1291: -- FND_API.G_TRUE: procedure should commit
1292: -- FND_API.G_FALSE: procedure should not commit

Line 1289: -- FND_API.G_FALSE: do not initialize the message list

1285: --p_api_version
1286: -- Version of the api the caller is assuming
1287: --p_init_msg_list
1288: -- FND_API.G_TRUE: initialize the message list
1289: -- FND_API.G_FALSE: do not initialize the message list
1290: --p_commit
1291: -- FND_API.G_TRUE: procedure should commit
1292: -- FND_API.G_FALSE: procedure should not commit
1293: --p_purge_name

Line 1291: -- FND_API.G_TRUE: procedure should commit

1287: --p_init_msg_list
1288: -- FND_API.G_TRUE: initialize the message list
1289: -- FND_API.G_FALSE: do not initialize the message list
1290: --p_commit
1291: -- FND_API.G_TRUE: procedure should commit
1292: -- FND_API.G_FALSE: procedure should not commit
1293: --p_purge_name
1294: -- Name of the purge
1295: --IN OUT:

Line 1292: -- FND_API.G_FALSE: procedure should not commit

1288: -- FND_API.G_TRUE: initialize the message list
1289: -- FND_API.G_FALSE: do not initialize the message list
1290: --p_commit
1291: -- FND_API.G_TRUE: procedure should commit
1292: -- FND_API.G_FALSE: procedure should not commit
1293: --p_purge_name
1294: -- Name of the purge
1295: --IN OUT:
1296: --OUT:

Line 1343: IF (FND_API.to_boolean(p_init_msg_list)) THEN

1339: SAVEPOINT delete_history_tables_pvt;
1340:
1341: l_progress := '010';
1342:
1343: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1344: FND_MSG_PUB.initialize;
1345: END IF;
1346:
1347: l_msg_idx := FND_MSG_PUB.count_msg + 1;

Line 1349: IF (NOT FND_API.Compatible_API_Call

1345: END IF;
1346:
1347: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1348:
1349: IF (NOT FND_API.Compatible_API_Call
1350: ( p_current_version_number => l_api_version,
1351: p_caller_version_number => p_api_version,
1352: p_api_name => l_api_name,
1353: p_pkg_name => g_pkg_name

Line 1357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1353: p_pkg_name => g_pkg_name
1354: )
1355: ) THEN
1356:
1357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1358: END IF;
1359:
1360: x_return_status := FND_API.G_RET_STS_SUCCESS;
1361:

Line 1360: x_return_status := FND_API.G_RET_STS_SUCCESS;

1356:
1357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1358: END IF;
1359:
1360: x_return_status := FND_API.G_RET_STS_SUCCESS;
1361:
1362: l_progress := '020';
1363:
1364: DELETE

Line 1380: IF (FND_API.to_boolean(p_commit)) THEN

1376: DELETE
1377: FROM po_history_receipts
1378: WHERE purge_name = p_purge_name;
1379:
1380: IF (FND_API.to_boolean(p_commit)) THEN
1381: COMMIT;
1382: END IF;
1383:
1384: IF (g_fnd_debug = 'Y') THEN

Line 1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1393:
1394: EXCEPTION
1395: WHEN OTHERS THEN
1396: ROLLBACK TO delete_history_tables_pvt;
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: FND_MSG_PUB.add_exc_msg
1399: ( p_pkg_name => g_pkg_name,
1400: p_procedure_name => l_api_name || '.' || l_progress
1401: );

Line 1420: -- FND_API.G_TRUE: initialize the message list

1416: --Parameters:
1417: --p_api_version
1418: -- Version of the api the caller is assuming
1419: --p_init_msg_list
1420: -- FND_API.G_TRUE: initialize the message list
1421: -- FND_API.G_FALSE: do not initialize the message list
1422: --IN OUT:
1423: --OUT:
1424: --x_return_status

Line 1421: -- FND_API.G_FALSE: do not initialize the message list

1417: --p_api_version
1418: -- Version of the api the caller is assuming
1419: --p_init_msg_list
1420: -- FND_API.G_TRUE: initialize the message list
1421: -- FND_API.G_FALSE: do not initialize the message list
1422: --IN OUT:
1423: --OUT:
1424: --x_return_status
1425: -- status of the procedure

Line 1484: IF (FND_API.to_boolean(p_init_msg_list)) THEN

1480: );
1481: END IF;
1482: END IF;
1483:
1484: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1485: FND_MSG_PUB.initialize;
1486: END IF;
1487:
1488: l_msg_idx := FND_MSG_PUB.count_msg + 1;

Line 1490: IF (NOT FND_API.Compatible_API_Call

1486: END IF;
1487:
1488: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1489:
1490: IF (NOT FND_API.Compatible_API_Call
1491: ( p_current_version_number => l_api_version,
1492: p_caller_version_number => p_api_version,
1493: p_api_name => l_api_name,
1494: p_pkg_name => g_pkg_name

Line 1498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1494: p_pkg_name => g_pkg_name
1495: )
1496: ) THEN
1497:
1498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1499: END IF;
1500:
1501: x_return_status := FND_API.G_RET_STS_SUCCESS;
1502:

Line 1501: x_return_status := FND_API.G_RET_STS_SUCCESS;

1497:
1498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1499: END IF;
1500:
1501: x_return_status := FND_API.G_RET_STS_SUCCESS;
1502:
1503: SELECT COUNT(1)
1504: INTO x_po_hdr_count
1505: FROM po_headers;

Line 1555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1551: END IF;
1552:
1553: EXCEPTION
1554: WHEN OTHERS THEN
1555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1556: FND_MSG_PUB.add_exc_msg
1557: ( p_pkg_name => g_pkg_name,
1558: p_procedure_name => l_api_name || '.' || l_progress
1559: );

Line 1621: x_return_status := FND_API.G_RET_STS_SUCCESS;

1617: );
1618: END IF;
1619: END IF;
1620:
1621: x_return_status := FND_API.G_RET_STS_SUCCESS;
1622:
1623: -- SQL What: Generate a list of requisitions that are eligible for purging
1624: -- SQL Why: This is the initial list of reqs to be purged. Later on the
1625: -- records in this list will be removed if the records are no

Line 1696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1692: END IF;
1693:
1694: EXCEPTION
1695: WHEN OTHERS THEN
1696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1697: FND_MSG_PUB.add_exc_msg
1698: ( p_pkg_name => g_pkg_name,
1699: p_procedure_name => l_api_name || '.' || l_progress
1700: );

Line 1761: x_return_status := FND_API.G_RET_STS_SUCCESS;

1757: );
1758: END IF;
1759: END IF;
1760:
1761: x_return_status := FND_API.G_RET_STS_SUCCESS;
1762:
1763: --
1764: --Initiated by: BAO
1765: --The check for Code Level below will be unnecessary in 11iX.

Line 1986: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1982: p_purge_name => p_purge_name,
1983: p_last_activity_date => p_last_activity_date
1984: );
1985:
1986: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1988: END IF;
1989:
1990: END IF; -- current release < 11i FPJ

Line 1987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1983: p_last_activity_date => p_last_activity_date
1984: );
1985:
1986: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1988: END IF;
1989:
1990: END IF; -- current release < 11i FPJ
1991:

Line 2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2013: END IF;
2014:
2015: EXCEPTION
2016: WHEN OTHERS THEN
2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2018: FND_MSG_PUB.add_exc_msg
2019: ( p_pkg_name => g_pkg_name,
2020: p_procedure_name => l_api_name || '.' || l_progress
2021: );

Line 2071: x_return_status := FND_API.G_RET_STS_SUCCESS;

2067: );
2068: END IF;
2069: END IF;
2070:
2071: x_return_status := FND_API.G_RET_STS_SUCCESS;
2072:
2073: -- inv installation status
2074: get_installation_status
2075: ( x_return_status => l_return_status,

Line 2080: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2076: p_appl_id => 401,
2077: x_inst_status => g_inv_install_status
2078: );
2079:
2080: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2082: END IF;
2083: l_progress := '000';
2084:

Line 2081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2077: x_inst_status => g_inv_install_status
2078: );
2079:
2080: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2082: END IF;
2083: l_progress := '000';
2084:
2085: -- wip installation status

Line 2092: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2088: p_appl_id => 706,
2089: x_inst_status => g_wip_install_status
2090: );
2091:
2092: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2093: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2094: END IF;
2095: l_progress := '000';
2096:

Line 2093: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2089: x_inst_status => g_wip_install_status
2090: );
2091:
2092: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2093: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2094: END IF;
2095: l_progress := '000';
2096:
2097: -- mrp installation status

Line 2104: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2100: p_appl_id => 704,
2101: x_inst_status => g_mrp_install_status
2102: );
2103:
2104: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2106: END IF;
2107: l_progress := '000';
2108:

Line 2105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2101: x_inst_status => g_mrp_install_status
2102: );
2103:
2104: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2106: END IF;
2107: l_progress := '000';
2108:
2109: -- pa installation status

Line 2116: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2112: p_appl_id => 275,
2113: x_inst_status => g_pa_install_status
2114: );
2115:
2116: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2117: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2118: END IF;
2119: l_progress := '000';
2120:

Line 2117: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2113: x_inst_status => g_pa_install_status
2114: );
2115:
2116: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2117: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2118: END IF;
2119: l_progress := '000';
2120:
2121: -- chv installation status

Line 2128: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2124: p_appl_id => 202,
2125: x_inst_status => g_chv_install_status
2126: );
2127:
2128: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2130: END IF;
2131: l_progress := '000';
2132:

Line 2129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2125: x_inst_status => g_chv_install_status
2126: );
2127:
2128: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2130: END IF;
2131: l_progress := '000';
2132:
2133: -- pjm installation_status

Line 2155: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2151: );
2152: END IF;
2153: END IF;
2154:
2155: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2157: END IF;
2158: l_progress := '010';
2159:

Line 2156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2152: END IF;
2153: END IF;
2154:
2155: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2157: END IF;
2158: l_progress := '010';
2159:
2160: -- set g_set_product_inst_status to true to indicate that this procedure

Line 2162: g_set_product_inst_status := FND_API.G_TRUE;

2158: l_progress := '010';
2159:
2160: -- set g_set_product_inst_status to true to indicate that this procedure
2161: -- has been called and all the product installation status have been set
2162: g_set_product_inst_status := FND_API.G_TRUE;
2163:
2164: IF (g_fnd_debug = 'Y') THEN
2165: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2166: FND_LOG.string

Line 2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2172: END IF;
2173:
2174: EXCEPTION
2175: WHEN OTHERS THEN
2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2177: FND_MSG_PUB.add_exc_msg
2178: ( p_pkg_name => g_pkg_name,
2179: p_procedure_name => l_api_name || '.' || l_progress
2180: );

Line 2240: x_return_status := FND_API.G_RET_STS_SUCCESS;

2236: );
2237: END IF;
2238: END IF;
2239:
2240: x_return_status := FND_API.G_RET_STS_SUCCESS;
2241:
2242: IF (FND_INSTALLATION.get( appl_id => p_appl_id,
2243: dep_appl_id => p_appl_id,
2244: status => l_inst_check,

Line 2275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2271: END IF;
2272:
2273: EXCEPTION
2274: WHEN OTHERS THEN
2275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2276: FND_MSG_PUB.add_exc_msg
2277: ( p_pkg_name => g_pkg_name,
2278: p_procedure_name => l_api_name || '.' || l_progress
2279: );

Line 2331: x_return_status := FND_API.G_RET_STS_SUCCESS;

2327: );
2328: END IF;
2329: END IF;
2330:
2331: x_return_status := FND_API.G_RET_STS_SUCCESS;
2332:
2333: IF (g_chv_install_status = 'Y') THEN
2334: l_progress := '010';
2335:

Line 2436: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2432: PO_AP_PURGE_UTIL_PVT.filter_more_referenced_req
2433: ( x_return_status => l_return_status
2434: );
2435:
2436: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2438: END IF;
2439:
2440: l_progress := '050';

Line 2437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2433: ( x_return_status => l_return_status
2434: );
2435:
2436: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2438: END IF;
2439:
2440: l_progress := '050';
2441:

Line 2459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2455: END IF;
2456:
2457: EXCEPTION
2458: WHEN OTHERS THEN
2459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2460: FND_MSG_PUB.add_exc_msg
2461: ( p_pkg_name => g_pkg_name,
2462: p_procedure_name => l_api_name || '.' || l_progress
2463: );

Line 2514: x_return_status := FND_API.G_RET_STS_SUCCESS;

2510: );
2511: END IF;
2512: END IF;
2513:
2514: x_return_status := FND_API.G_RET_STS_SUCCESS;
2515:
2516: IF (g_inv_install_status = 'Y') THEN
2517: l_progress := '010';
2518:

Line 2696: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2692: PO_AP_PURGE_UTIL_PVT.filter_more_referenced_po
2693: ( x_return_status => l_return_status
2694: );
2695:
2696: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2698: END IF;
2699:
2700: PO_AP_PURGE_UTIL_PVT.log_purge_list_count

Line 2697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2693: ( x_return_status => l_return_status
2694: );
2695:
2696: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2698: END IF;
2699:
2700: PO_AP_PURGE_UTIL_PVT.log_purge_list_count
2701: ( p_module => l_module || l_progress,

Line 2717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2713: END IF;
2714:
2715: EXCEPTION
2716: WHEN OTHERS THEN
2717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2718: FND_MSG_PUB.add_exc_msg
2719: ( p_pkg_name => g_pkg_name,
2720: p_procedure_name => l_api_name || '.' || l_progress
2721: );

Line 2777: x_return_status := FND_API.G_RET_STS_SUCCESS;

2773: );
2774: END IF;
2775: END IF;
2776:
2777: x_return_status := FND_API.G_RET_STS_SUCCESS;
2778:
2779: x_po_records_filtered := FND_API.G_FALSE;
2780:
2781: LOOP

Line 2779: x_po_records_filtered := FND_API.G_FALSE;

2775: END IF;
2776:
2777: x_return_status := FND_API.G_RET_STS_SUCCESS;
2778:
2779: x_po_records_filtered := FND_API.G_FALSE;
2780:
2781: LOOP
2782:
2783: -- SQL What: 1) Remove PO from purge list if the corresponding

Line 2904: x_po_records_filtered := FND_API.G_TRUE;

2900: END IF;
2901: END IF;
2902:
2903: IF (l_po_count > 0) THEN
2904: x_po_records_filtered := FND_API.G_TRUE;
2905: END IF;
2906:
2907: PO_AP_PURGE_UTIL_PVT.log_purge_list_count
2908: ( p_module => l_module || l_progress,

Line 2935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2931: END IF;
2932:
2933: EXCEPTION
2934: WHEN OTHERS THEN
2935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2936: FND_MSG_PUB.add_exc_msg
2937: ( p_pkg_name => g_pkg_name,
2938: p_procedure_name => l_api_name || '.' || l_progress
2939: );

Line 2992: x_return_status := FND_API.G_RET_STS_SUCCESS;

2988: );
2989: END IF;
2990: END IF;
2991:
2992: x_return_status := FND_API.G_RET_STS_SUCCESS;
2993:
2994: x_po_records_filtered := FND_API.G_FALSE;
2995:
2996: -- SQL What: Remove PO from purge list if the Invoices referencing it

Line 2994: x_po_records_filtered := FND_API.G_FALSE;

2990: END IF;
2991:
2992: x_return_status := FND_API.G_RET_STS_SUCCESS;
2993:
2994: x_po_records_filtered := FND_API.G_FALSE;
2995:
2996: -- SQL What: Remove PO from purge list if the Invoices referencing it
2997: -- is not in the po purge list
2998: -- SQL Why: If PO and Invoice are linked, either both of them are

Line 3028: x_po_records_filtered := FND_API.G_TRUE;

3024: END IF;
3025: END IF;
3026:
3027: IF (l_po_count > 0) THEN
3028: x_po_records_filtered := FND_API.G_TRUE;
3029: END IF;
3030:
3031: PO_AP_PURGE_UTIL_PVT.log_purge_list_count
3032: ( p_module => l_module || l_progress,

Line 3048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3044: END IF;
3045:
3046: EXCEPTION
3047: WHEN OTHERS THEN
3048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3049: FND_MSG_PUB.add_exc_msg
3050: ( p_pkg_name => g_pkg_name,
3051: p_procedure_name => l_api_name || '.' || l_progress
3052: );

Line 3105: x_return_status := FND_API.G_RET_STS_SUCCESS;

3101: );
3102: END IF;
3103: END IF;
3104:
3105: x_return_status := FND_API.G_RET_STS_SUCCESS;
3106:
3107: DELETE FROM po_purge_req_list
3108: WHERE double_check_flag = 'N';
3109:

Line 3153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3149: END IF;
3150:
3151: EXCEPTION
3152: WHEN OTHERS THEN
3153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3154: FND_MSG_PUB.add_exc_msg
3155: ( p_pkg_name => g_pkg_name,
3156: p_procedure_name => l_api_name || '.' || l_progress
3157: );

Line 3210: x_return_status := FND_API.G_RET_STS_SUCCESS;

3206: );
3207: END IF;
3208: END IF;
3209:
3210: x_return_status := FND_API.G_RET_STS_SUCCESS;
3211:
3212: -- SQL What: Exclude Reqs that are no longer eligible for purging. The logic
3213: -- is similar to the one during initiation stage, but this time
3214: -- we are excluding records that are not eligible rather than

Line 3289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3285: END IF;
3286:
3287: EXCEPTION
3288: WHEN OTHERS THEN
3289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3290: FND_MSG_PUB.add_exc_msg
3291: ( p_pkg_name => g_pkg_name,
3292: p_procedure_name => l_api_name || '.' || l_progress
3293: );

Line 3349: x_return_status := FND_API.G_RET_STS_SUCCESS;

3345: );
3346: END IF;
3347: END IF;
3348:
3349: x_return_status := FND_API.G_RET_STS_SUCCESS;
3350:
3351: IF (p_purge_category = PO_AP_PURGE_GRP.G_PUR_CAT_SIMPLE_PO) THEN
3352:
3353: l_progress := '010';

Line 3579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3575: END IF;
3576:
3577: EXCEPTION
3578: WHEN OTHERS THEN
3579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3580: FND_MSG_PUB.add_exc_msg
3581: ( p_pkg_name => g_pkg_name,
3582: p_procedure_name => l_api_name || '.' || l_progress
3583: );

Line 3642: x_return_status := FND_API.G_RET_STS_SUCCESS;

3638: );
3639: END IF;
3640: END IF;
3641:
3642: x_return_status := FND_API.G_RET_STS_SUCCESS;
3643:
3644: IF (p_category = 'REQ') THEN
3645: l_progress := '010';
3646:

Line 3696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3692: END IF;
3693:
3694: EXCEPTION
3695: WHEN OTHERS THEN
3696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3697: FND_MSG_PUB.add_exc_msg
3698: ( p_pkg_name => g_pkg_name,
3699: p_procedure_name => l_api_name || '.' || l_progress
3700: );

Line 3766: x_return_status := FND_API.G_RET_STS_SUCCESS;

3762: );
3763: END IF;
3764: END IF;
3765:
3766: x_return_status := FND_API.G_RET_STS_SUCCESS;
3767:
3768: IF (p_req_lower_limit = -1) THEN
3769: RETURN;
3770: END IF;

Line 3899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3895: END IF;
3896:
3897: EXCEPTION
3898: WHEN OTHERS THEN
3899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3900: FND_MSG_PUB.add_exc_msg
3901: ( p_pkg_name => g_pkg_name,
3902: p_procedure_name => l_api_name || '.' || l_progress
3903: );

Line 3969: x_return_status := FND_API.G_RET_STS_SUCCESS;

3965: );
3966: END IF;
3967: END IF;
3968:
3969: x_return_status := FND_API.G_RET_STS_SUCCESS;
3970:
3971: IF (p_po_lower_limit = -1) THEN
3972: RETURN;
3973: END IF;

Line 4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4355: END IF;
4356:
4357: EXCEPTION
4358: WHEN OTHERS THEN
4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4360: FND_MSG_PUB.add_exc_msg
4361: ( p_pkg_name => g_pkg_name,
4362: p_procedure_name => l_api_name || '.' || l_progress
4363: );

Line 4429: x_return_status := FND_API.G_RET_STS_SUCCESS;

4425: );
4426: END IF;
4427: END IF;
4428:
4429: x_return_status := FND_API.G_RET_STS_SUCCESS;
4430:
4431: IF (p_req_lower_limit = -1) THEN
4432: RETURN;
4433: END IF;

Line 4483: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

4479: p_range_low => l_range_low,
4480: p_range_high => l_range_high
4481: );
4482:
4483: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4485: END IF;
4486:
4487: l_progress := '020';

Line 4484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4480: p_range_high => l_range_high
4481: );
4482:
4483: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4485: END IF;
4486:
4487: l_progress := '020';
4488:

Line 4609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4605: END IF;
4606:
4607: EXCEPTION
4608: WHEN OTHERS THEN
4609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4610: FND_MSG_PUB.add_exc_msg
4611: ( p_pkg_name => g_pkg_name,
4612: p_procedure_name => l_api_name || '.' || l_progress
4613: );

Line 4688: x_return_status := FND_API.G_RET_STS_SUCCESS;

4684: );
4685: END IF;
4686: END IF;
4687:
4688: x_return_status := FND_API.G_RET_STS_SUCCESS;
4689:
4690: IF (p_po_lower_limit = -1) THEN
4691: RETURN;
4692: END IF;

Line 4742: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

4738: p_range_low => l_range_low,
4739: p_range_high => l_range_high
4740: );
4741:
4742: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4744: END IF;
4745:
4746: l_progress := '020';

Line 4743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4739: p_range_high => l_range_high
4740: );
4741:
4742: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4744: END IF;
4745:
4746: l_progress := '020';
4747:

Line 5197: p_init_msg_list => FND_API.G_FALSE,

5193:
5194: -- call ZX_API_PUB.PURGE_TAX_REPOSITORY in PURGE mode
5195: ZX_API_PUB.PURGE_TAX_REPOSITORY(
5196: p_api_version => 1.0,
5197: p_init_msg_list => FND_API.G_FALSE,
5198: p_commit => FND_API.G_FALSE,
5199: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5200: x_return_status => l_return_status,
5201: x_msg_count => l_msg_count,

Line 5198: p_commit => FND_API.G_FALSE,

5194: -- call ZX_API_PUB.PURGE_TAX_REPOSITORY in PURGE mode
5195: ZX_API_PUB.PURGE_TAX_REPOSITORY(
5196: p_api_version => 1.0,
5197: p_init_msg_list => FND_API.G_FALSE,
5198: p_commit => FND_API.G_FALSE,
5199: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5200: x_return_status => l_return_status,
5201: x_msg_count => l_msg_count,
5202: x_msg_data => l_msg_data );

Line 5199: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

5195: ZX_API_PUB.PURGE_TAX_REPOSITORY(
5196: p_api_version => 1.0,
5197: p_init_msg_list => FND_API.G_FALSE,
5198: p_commit => FND_API.G_FALSE,
5199: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5200: x_return_status => l_return_status,
5201: x_msg_count => l_msg_count,
5202: x_msg_data => l_msg_data );
5203:

Line 5285: l_return_status := FND_API.G_RET_STS_SUCCESS;

5281: USING OUT l_return_status;
5282: EXCEPTION
5283: WHEN OTHERS THEN
5284: IF (SQLCODE = -6550) THEN
5285: l_return_status := FND_API.G_RET_STS_SUCCESS;
5286:
5287: IF (g_fnd_debug = 'Y') THEN
5288: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
5289: FND_LOG.string

Line 5316: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

5312: END IF; -- Current Release < FPJ
5313:
5314: --
5315:
5316: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5318: END IF;
5319:
5320: IF (g_fnd_debug = 'Y') THEN

Line 5317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

5313:
5314: --
5315:
5316: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5318: END IF;
5319:
5320: IF (g_fnd_debug = 'Y') THEN
5321: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

Line 5332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

5328: END IF;
5329:
5330: EXCEPTION
5331: WHEN OTHERS THEN
5332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5333: FND_MSG_PUB.add_exc_msg
5334: ( p_pkg_name => g_pkg_name,
5335: p_procedure_name => l_api_name || '.' || l_progress
5336: );