APPS.PO_AP_PURGE_UTIL_PVT dependencies on FND_API

Line 183: x_return_status := FND_API.G_RET_STS_SUCCESS;

179: );
180: END IF;
181: END IF;
182:
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
184:
185: IF (p_purge_category = PO_AP_PURGE_GRP.G_PUR_CAT_SIMPLE_PO) THEN
186:
187: l_progress := '010';

Line 419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

415: END IF;
416:
417: EXCEPTION
418: WHEN OTHERS THEN
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
420:
421: FND_MSG_PUB.add_exc_msg
422: ( p_pkg_name => g_pkg_name,
423: p_procedure_name => l_api_name || '.' || l_progress

Line 475: x_return_status := FND_API.G_RET_STS_SUCCESS;

471: );
472: END IF;
473: END IF;
474:
475: x_return_status := FND_API.G_RET_STS_SUCCESS;
476:
477: l_progress := '010';
478:
479: filter_req_pon_validation

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

479: filter_req_pon_validation
480: ( x_return_status => l_return_status
481: );
482:
483: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: END IF;
486:
487: IF (g_fnd_debug = 'Y') THEN

Line 484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

480: ( x_return_status => l_return_status
481: );
482:
483: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
485: END IF;
486:
487: IF (g_fnd_debug = 'Y') THEN
488: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

Line 499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

495: END IF;
496:
497: EXCEPTION
498: WHEN OTHERS THEN
499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
500: FND_MSG_PUB.add_exc_msg
501: ( p_pkg_name => g_pkg_name,
502: p_procedure_name => l_api_name || '.' || l_progress
503: );

Line 553: x_return_status := FND_API.G_RET_STS_SUCCESS;

549: );
550: END IF;
551: END IF;
552:
553: x_return_status := FND_API.G_RET_STS_SUCCESS;
554:
555: filter_po_fte_validation
556: ( x_return_status => l_return_status
557: );

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

555: filter_po_fte_validation
556: ( x_return_status => l_return_status
557: );
558:
559: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
561: END IF;
562:
563: l_progress := '010';

Line 560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

556: ( x_return_status => l_return_status
557: );
558:
559: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
561: END IF;
562:
563: l_progress := '010';
564:

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

565: filter_po_cst_validation
566: ( x_return_status => l_return_status
567: );
568:
569: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
571: END IF;
572:
573: l_progress := '020';

Line 570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

566: ( x_return_status => l_return_status
567: );
568:
569: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
571: END IF;
572:
573: l_progress := '020';
574:

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

575: filter_po_oe_validation
576: ( x_return_status => l_return_status
577: );
578:
579: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: END IF;
582:
583: l_progress := '030';

Line 580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

576: ( x_return_status => l_return_status
577: );
578:
579: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: END IF;
582:
583: l_progress := '030';
584:

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

585: filter_po_pon_validation
586: ( x_return_status => l_return_status
587: );
588:
589: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: END IF;
592:
593: -- bug3365311

Line 590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

586: ( x_return_status => l_return_status
587: );
588:
589: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: END IF;
592:
593: -- bug3365311
594: -- removed filter_po_gms_validation as the check is unnecessary

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

598: filter_po_hr_validation
599: ( x_return_status => l_return_status
600: );
601:
602: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
606: IF (g_fnd_debug = 'Y') THEN

Line 603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

599: ( x_return_status => l_return_status
600: );
601:
602: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
606: IF (g_fnd_debug = 'Y') THEN
607: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

Line 618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

614: END IF;
615:
616: EXCEPTION
617: WHEN OTHERS THEN
618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
619: FND_MSG_PUB.add_exc_msg
620: ( p_pkg_name => g_pkg_name,
621: p_procedure_name => l_api_name || '.' || l_progress
622: );

Line 678: x_return_status := FND_API.G_RET_STS_SUCCESS;

674: );
675: END IF;
676: END IF;
677:
678: x_return_status := FND_API.G_RET_STS_SUCCESS;
679:
680: l_progress := '010';
681:
682: delete_price_differentials

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

685: p_range_low => p_range_low,
686: p_range_high => p_range_high
687: );
688:
689: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
691: END IF;
692:
693: l_progress := '020';

Line 690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

686: p_range_high => p_range_high
687: );
688:
689: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
691: END IF;
692:
693: l_progress := '020';
694:

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

698: p_range_low => p_range_low,
699: p_range_high => p_range_high
700: );
701:
702: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
703: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
704: END IF;
705:
706: l_progress := '030';

Line 703: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

699: p_range_high => p_range_high
700: );
701:
702: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
703: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
704: END IF;
705:
706: l_progress := '030';
707:

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

712: p_range_low => p_range_low,
713: p_range_high => p_range_high
714: );
715:
716: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
718: END IF;
719:
720: l_progress := '040';

Line 717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

713: p_range_high => p_range_high
714: );
715:
716: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
718: END IF;
719:
720: l_progress := '040';
721:

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

724: p_range_low => p_range_low,
725: p_range_high => p_range_high
726: );
727:
728: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
730: END IF;
731:
732: IF (g_fnd_debug = 'Y') THEN

Line 729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

725: p_range_high => p_range_high
726: );
727:
728: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
730: END IF;
731:
732: IF (g_fnd_debug = 'Y') THEN
733: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

Line 744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

740: END IF;
741:
742: EXCEPTION
743: WHEN OTHERS THEN
744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
745: FND_MSG_PUB.add_exc_msg
746: ( p_pkg_name => g_pkg_name,
747: p_procedure_name => l_api_name || '.' || l_progress
748: );

Line 804: x_return_status := FND_API.G_RET_STS_SUCCESS;

800: );
801: END IF;
802: END IF;
803:
804: x_return_status := FND_API.G_RET_STS_SUCCESS;
805:
806: l_progress := '010';
807:
808: delete_asl_ref

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

810: p_range_low => p_range_low,
811: p_range_high => p_range_high
812: );
813:
814: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
816: END IF;
817:
818: l_progress := '020';

Line 815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

811: p_range_high => p_range_high
812: );
813:
814: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
816: END IF;
817:
818: l_progress := '020';
819:

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

822: p_range_low => p_range_low,
823: p_range_high => p_range_high
824: );
825:
826: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
828: END IF;
829:
830: l_progress := '030';

Line 827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

823: p_range_high => p_range_high
824: );
825:
826: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
828: END IF;
829:
830: l_progress := '030';
831:

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

834: p_range_low => p_range_low,
835: p_range_high => p_range_high
836: );
837:
838: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
840: END IF;
841:
842: l_progress := '040';

Line 839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

835: p_range_high => p_range_high
836: );
837:
838: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
840: END IF;
841:
842: l_progress := '040';
843:

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

846: p_range_low => p_range_low,
847: p_range_high => p_range_high
848: );
849:
850: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
852: END IF;
853:
854: l_progress := '050';

Line 851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

847: p_range_high => p_range_high
848: );
849:
850: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
852: END IF;
853:
854: l_progress := '050';
855:

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

859: p_range_low => p_range_low,
860: p_range_high => p_range_high
861: );
862:
863: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
865: END IF;
866:
867: l_progress := '060';

Line 864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

860: p_range_high => p_range_high
861: );
862:
863: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
865: END IF;
866:
867: l_progress := '060';
868:

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

871: p_range_low => p_range_low,
872: p_range_high => p_range_high
873: );
874:
875: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END IF;
878:
879: -- bug3365311

Line 876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

872: p_range_high => p_range_high
873: );
874:
875: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END IF;
878:
879: -- bug3365311
880: -- deleted the procedure delete_gms as the call is unnecessary

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

889: p_range_low => p_range_low,
890: p_range_high => p_range_high
891: );
892:
893: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
895: END IF;
896:
897: --

Line 894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

890: p_range_high => p_range_high
891: );
892:
893: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
895: END IF;
896:
897: --
898: l_progress := '100';

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

902: p_range_low => p_range_low,
903: p_range_high => p_range_high
904: );
905:
906: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908: END IF;
909: --
910:

Line 907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

903: p_range_high => p_range_high
904: );
905:
906: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908: END IF;
909: --
910:
911: l_progress := '110';

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

915: p_range_low => p_range_low,
916: p_range_high => p_range_high
917: );
918:
919: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
921: END IF;
922:
923: l_progress := '120';

Line 920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

916: p_range_high => p_range_high
917: );
918:
919: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
921: END IF;
922:
923: l_progress := '120';
924:

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

931: );
932:
933: --
934:
935: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
937: END IF;
938:
939: IF (g_fnd_debug = 'Y') THEN

Line 936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

932:
933: --
934:
935: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
937: END IF;
938:
939: IF (g_fnd_debug = 'Y') THEN
940: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

Line 951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

947: END IF;
948:
949: EXCEPTION
950: WHEN OTHERS THEN
951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
952: FND_MSG_PUB.add_exc_msg
953: ( p_pkg_name => g_pkg_name,
954: p_procedure_name => l_api_name || '.' || l_progress
955: );

Line 1022: x_return_status := FND_API.G_RET_STS_SUCCESS;

1018: );
1019: END IF;
1020: END IF;
1021:
1022: x_return_status := FND_API.G_RET_STS_SUCCESS;
1023:
1024: l_in_rec.entity_name := 'PO_REQUISITION_HEADERS';
1025:
1026: OPEN c_po_list;

Line 1041: p_init_msg_list => FND_API.G_TRUE,

1037: l_progress := '020';
1038:
1039: PON_PO_INTEGRATION_GRP.validate_po_purge
1040: ( p_api_version => 1.0,
1041: p_init_msg_list => FND_API.G_TRUE,
1042: p_commit => FND_API.G_FALSE,
1043: x_return_status => l_return_status,
1044: x_msg_count => l_msg_count,
1045: x_msg_data => l_msg_data,

Line 1042: p_commit => FND_API.G_FALSE,

1038:
1039: PON_PO_INTEGRATION_GRP.validate_po_purge
1040: ( p_api_version => 1.0,
1041: p_init_msg_list => FND_API.G_TRUE,
1042: p_commit => FND_API.G_FALSE,
1043: x_return_status => l_return_status,
1044: x_msg_count => l_msg_count,
1045: x_msg_data => l_msg_data,
1046: p_in_rec => l_in_rec,

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

1057: );
1058: END IF;
1059: END IF;
1060:
1061: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1063: END IF;
1064:
1065: l_progress := '030';

Line 1062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1058: END IF;
1059: END IF;
1060:
1061: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1063: END IF;
1064:
1065: l_progress := '030';
1066:

Line 1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1096: IF (c_po_list%ISOPEN) THEN
1097: CLOSE c_po_list;
1098: END IF;
1099:
1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1101: FND_MSG_PUB.add_exc_msg
1102: ( p_pkg_name => g_pkg_name,
1103: p_procedure_name => l_api_name || '.' || l_progress
1104: );

Line 1163: x_return_status := FND_API.G_RET_STS_SUCCESS;

1159: );
1160: END IF;
1161: END IF;
1162:
1163: x_return_status := FND_API.G_RET_STS_SUCCESS;
1164:
1165: -- Do not call FTE API if FTE is not installed or their code level
1166: -- is lower than that of 11.5.10
1167:

Line 1203: p_init_msg_list => FND_API.G_TRUE,

1199: l_progress := '020';
1200:
1201: WSH_PO_INTEGRATION_GRP.Check_Purge
1202: ( p_api_version_number => 1.0,
1203: p_init_msg_list => FND_API.G_TRUE,
1204: p_commit => FND_API.G_FALSE,
1205: x_return_status => l_return_status,
1206: x_msg_count => l_msg_count,
1207: x_msg_data => l_msg_data,

Line 1204: p_commit => FND_API.G_FALSE,

1200:
1201: WSH_PO_INTEGRATION_GRP.Check_Purge
1202: ( p_api_version_number => 1.0,
1203: p_init_msg_list => FND_API.G_TRUE,
1204: p_commit => FND_API.G_FALSE,
1205: x_return_status => l_return_status,
1206: x_msg_count => l_msg_count,
1207: x_msg_data => l_msg_data,
1208: p_in_rec => l_in_rec,

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

1219: );
1220: END IF;
1221: END IF;
1222:
1223: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226:
1227: l_progress := '030';

Line 1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1220: END IF;
1221: END IF;
1222:
1223: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1225: END IF;
1226:
1227: l_progress := '030';
1228:

Line 1262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1258: IF (c_po_list%ISOPEN) THEN
1259: CLOSE c_po_list;
1260: END IF;
1261:
1262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1263: FND_MSG_PUB.add_exc_msg
1264: ( p_pkg_name => g_pkg_name,
1265: p_procedure_name => l_api_name || '.' || l_progress
1266: );

Line 1329: x_return_status := FND_API.G_RET_STS_SUCCESS;

1325: );
1326: END IF;
1327: END IF;
1328:
1329: x_return_status := FND_API.G_RET_STS_SUCCESS;
1330:
1331: OPEN c_po_list;
1332:
1333: LOOP

Line 1346: p_init_msg_list => FND_API.G_TRUE,

1342: l_progress := '020';
1343:
1344: RCV_AccrualUtilities_GRP.Validate_PO_Purge
1345: ( p_api_version => 1.0,
1346: p_init_msg_list => FND_API.G_TRUE,
1347: p_commit => FND_API.G_FALSE,
1348: x_return_status => l_return_status,
1349: x_msg_count => l_msg_count,
1350: x_msg_data => l_msg_data,

Line 1347: p_commit => FND_API.G_FALSE,

1343:
1344: RCV_AccrualUtilities_GRP.Validate_PO_Purge
1345: ( p_api_version => 1.0,
1346: p_init_msg_list => FND_API.G_TRUE,
1347: p_commit => FND_API.G_FALSE,
1348: x_return_status => l_return_status,
1349: x_msg_count => l_msg_count,
1350: x_msg_data => l_msg_data,
1351: p_purge_entity_type => 'PO_HEADERS',

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

1363: );
1364: END IF;
1365: END IF;
1366:
1367: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1369: END IF;
1370:
1371: l_progress := '030';

Line 1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1364: END IF;
1365: END IF;
1366:
1367: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1369: END IF;
1370:
1371: l_progress := '030';
1372:

Line 1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1402: IF (c_po_list%ISOPEN) THEN
1403: CLOSE c_po_list;
1404: END IF;
1405:
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: FND_MSG_PUB.add_exc_msg
1408: ( p_pkg_name => g_pkg_name,
1409: p_procedure_name => l_api_name || '.' || l_progress
1410: );

Line 1473: x_return_status := FND_API.G_RET_STS_SUCCESS;

1469: );
1470: END IF;
1471: END IF;
1472:
1473: x_return_status := FND_API.G_RET_STS_SUCCESS;
1474:
1475: -- No need to do validation if PO or OM is not at FPJ level or above
1476:
1477: IF (PO_CODE_RELEASE_GRP.Current_Release <

Line 1513: p_init_msg_list => FND_API.G_TRUE,

1509: l_purge_allowed_tbl := OE_DROP_SHIP_GRP.VAL_STATUS_TBL_TYPE();
1510:
1511: OE_DROP_SHIP_GRP.purge_drop_ship_po_validation
1512: ( p_api_version => 1.0,
1513: p_init_msg_list => FND_API.G_TRUE,
1514: p_commit => FND_API.G_FALSE,
1515: x_return_status => l_return_status,
1516: x_msg_count => l_msg_count,
1517: x_msg_data => l_msg_data,

Line 1514: p_commit => FND_API.G_FALSE,

1510:
1511: OE_DROP_SHIP_GRP.purge_drop_ship_po_validation
1512: ( p_api_version => 1.0,
1513: p_init_msg_list => FND_API.G_TRUE,
1514: p_commit => FND_API.G_FALSE,
1515: x_return_status => l_return_status,
1516: x_msg_count => l_msg_count,
1517: x_msg_data => l_msg_data,
1518: p_entity => 'PO_HEADERS',

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

1530: );
1531: END IF;
1532: END IF;
1533:
1534: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1536: END IF;
1537:
1538: l_progress := '030';

Line 1535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1531: END IF;
1532: END IF;
1533:
1534: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1536: END IF;
1537:
1538: l_progress := '030';
1539:

Line 1577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1573: IF (c_po_list%ISOPEN) THEN
1574: CLOSE c_po_list;
1575: END IF;
1576:
1577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1578: FND_MSG_PUB.add_exc_msg
1579: ( p_pkg_name => g_pkg_name,
1580: p_procedure_name => l_api_name || '.' || l_progress
1581: );

Line 1644: x_return_status := FND_API.G_RET_STS_SUCCESS;

1640: );
1641: END IF;
1642: END IF;
1643:
1644: x_return_status := FND_API.G_RET_STS_SUCCESS;
1645:
1646: l_in_rec.entity_name := 'PO_HEADERS';
1647:
1648: OPEN c_po_list;

Line 1663: p_init_msg_list => FND_API.G_TRUE,

1659: l_progress := '020';
1660:
1661: PON_PO_INTEGRATION_GRP.validate_po_purge
1662: ( p_api_version => 1.0,
1663: p_init_msg_list => FND_API.G_TRUE,
1664: p_commit => FND_API.G_FALSE,
1665: x_return_status => l_return_status,
1666: x_msg_count => l_msg_count,
1667: x_msg_data => l_msg_data,

Line 1664: p_commit => FND_API.G_FALSE,

1660:
1661: PON_PO_INTEGRATION_GRP.validate_po_purge
1662: ( p_api_version => 1.0,
1663: p_init_msg_list => FND_API.G_TRUE,
1664: p_commit => FND_API.G_FALSE,
1665: x_return_status => l_return_status,
1666: x_msg_count => l_msg_count,
1667: x_msg_data => l_msg_data,
1668: p_in_rec => l_in_rec,

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

1679: );
1680: END IF;
1681: END IF;
1682:
1683: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1685: END IF;
1686:
1687: l_progress := '030';

Line 1684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1680: END IF;
1681: END IF;
1682:
1683: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1685: END IF;
1686:
1687: l_progress := '030';
1688:

Line 1722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1718: IF (c_po_list%ISOPEN) THEN
1719: CLOSE c_po_list;
1720: END IF;
1721:
1722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1723: FND_MSG_PUB.add_exc_msg
1724: ( p_pkg_name => g_pkg_name,
1725: p_procedure_name => l_api_name || '.' || l_progress
1726: );

Line 1784: x_return_status := FND_API.G_RET_STS_SUCCESS;

1780: );
1781: END IF;
1782: END IF;
1783:
1784: x_return_status := FND_API.G_RET_STS_SUCCESS;
1785:
1786: OPEN c_po_list;
1787:
1788: LOOP

Line 1848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1844: IF (c_po_list%ISOPEN) THEN
1845: CLOSE c_po_list;
1846: END IF;
1847:
1848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1849: FND_MSG_PUB.add_exc_msg
1850: ( p_pkg_name => g_pkg_name,
1851: p_procedure_name => l_api_name || '.' || l_progress
1852: );

Line 1908: x_return_status := FND_API.G_RET_STS_SUCCESS;

1904: );
1905: END IF;
1906: END IF;
1907:
1908: x_return_status := FND_API.G_RET_STS_SUCCESS;
1909:
1910: -- bug3256316
1911: -- We should be selecting PPL.po_Header_id instead of NULL
1912:

Line 1938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1934: END IF;
1935:
1936: EXCEPTION
1937: WHEN OTHERS THEN
1938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1939: FND_MSG_PUB.add_exc_msg
1940: ( p_pkg_name => g_pkg_name,
1941: p_procedure_name => l_api_name || '.' || l_progress
1942: );

Line 1997: x_return_status := FND_API.G_RET_STS_SUCCESS;

1993: );
1994: END IF;
1995: END IF;
1996:
1997: x_return_status := FND_API.G_RET_STS_SUCCESS;
1998:
1999: DELETE
2000: FROM po_ga_org_assignments PGOA
2001: WHERE PGOA.po_header_id IN

Line 2051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2047: END IF;
2048:
2049: EXCEPTION
2050: WHEN OTHERS THEN
2051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2052: FND_MSG_PUB.add_exc_msg
2053: ( p_pkg_name => g_pkg_name,
2054: p_procedure_name => l_api_name || '.' || l_progress
2055: );

Line 2115: x_return_status := FND_API.G_RET_STS_SUCCESS;

2111: );
2112: END IF;
2113: END IF;
2114:
2115: x_return_status := FND_API.G_RET_STS_SUCCESS;
2116:
2117: SELECT PPL.po_header_id
2118: BULK COLLECT
2119: INTO l_po_hdr_tbl

Line 2137: p_init_msg_list => FND_API.G_TRUE,

2133: l_progress := '020';
2134:
2135: OE_DROP_SHIP_GRP.purge_drop_ship_po_links
2136: ( p_api_version => 1.0,
2137: p_init_msg_list => FND_API.G_TRUE,
2138: p_commit => FND_API.G_FALSE,
2139: x_return_status => l_return_status,
2140: x_msg_count => l_msg_count,
2141: x_msg_data => l_msg_data,

Line 2138: p_commit => FND_API.G_FALSE,

2134:
2135: OE_DROP_SHIP_GRP.purge_drop_ship_po_links
2136: ( p_api_version => 1.0,
2137: p_init_msg_list => FND_API.G_TRUE,
2138: p_commit => FND_API.G_FALSE,
2139: x_return_status => l_return_status,
2140: x_msg_count => l_msg_count,
2141: x_msg_data => l_msg_data,
2142: p_entity => 'PO_HEADERS',

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

2153: );
2154: END IF;
2155: END IF;
2156:
2157: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2159: END IF;
2160:
2161: END IF; -- IF PO Level > FPJ and OM level > 110510

Line 2158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2154: END IF;
2155: END IF;
2156:
2157: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2159: END IF;
2160:
2161: END IF; -- IF PO Level > FPJ and OM level > 110510
2162:

Line 2175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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

Line 2237: x_return_status := FND_API.G_RET_STS_SUCCESS;

2233: );
2234: END IF;
2235: END IF;
2236:
2237: x_return_status := FND_API.G_RET_STS_SUCCESS;
2238:
2239: IF (PO_CORE_S.get_product_install_status('FTE') <> 'I'
2240: OR
2241: WSH_CODE_CONTROL.Get_Code_Release_Level < '110510') THEN

Line 2270: p_init_msg_list => FND_API.G_TRUE,

2266: l_progress := '010';
2267:
2268: WSH_PO_INTEGRATION_GRP.purge
2269: ( p_api_version_number => 1.0,
2270: p_init_msg_list => FND_API.G_TRUE,
2271: p_commit => FND_API.G_FALSE,
2272: x_return_status => l_return_status,
2273: x_msg_count => l_msg_count,
2274: x_msg_data => l_msg_data,

Line 2271: p_commit => FND_API.G_FALSE,

2267:
2268: WSH_PO_INTEGRATION_GRP.purge
2269: ( p_api_version_number => 1.0,
2270: p_init_msg_list => FND_API.G_TRUE,
2271: p_commit => FND_API.G_FALSE,
2272: x_return_status => l_return_status,
2273: x_msg_count => l_msg_count,
2274: x_msg_data => l_msg_data,
2275: p_in_rec => l_fte_in_rec

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

2285: );
2286: END IF;
2287: END IF;
2288:
2289: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2291: END IF;
2292:
2293: IF (g_fnd_debug = 'Y') THEN

Line 2290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2286: END IF;
2287: END IF;
2288:
2289: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2291: END IF;
2292:
2293: IF (g_fnd_debug = 'Y') THEN
2294: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

Line 2305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2301: END IF;
2302:
2303: EXCEPTION
2304: WHEN OTHERS THEN
2305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2306: FND_MSG_PUB.add_exc_msg
2307: ( p_pkg_name => g_pkg_name,
2308: p_procedure_name => l_api_name || '.' || l_progress
2309: );

Line 2371: x_return_status := FND_API.G_RET_STS_SUCCESS;

2367: );
2368: END IF;
2369: END IF;
2370:
2371: x_return_status := FND_API.G_RET_STS_SUCCESS;
2372:
2373: IF (p_purge_entity = 'PO') THEN
2374: l_in_rec.entity_name := 'PO_HEADERS';
2375:

Line 2400: p_init_msg_list => FND_API.G_TRUE,

2396: END IF;
2397:
2398: PON_PO_INTEGRATION_GRP.po_purge
2399: ( p_api_version => 1.0,
2400: p_init_msg_list => FND_API.G_TRUE,
2401: p_commit => FND_API.G_FALSE,
2402: x_return_status => l_return_status,
2403: x_msg_count => l_msg_count,
2404: x_msg_data => l_msg_data,

Line 2401: p_commit => FND_API.G_FALSE,

2397:
2398: PON_PO_INTEGRATION_GRP.po_purge
2399: ( p_api_version => 1.0,
2400: p_init_msg_list => FND_API.G_TRUE,
2401: p_commit => FND_API.G_FALSE,
2402: x_return_status => l_return_status,
2403: x_msg_count => l_msg_count,
2404: x_msg_data => l_msg_data,
2405: p_in_rec => l_in_rec

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

2415: );
2416: END IF;
2417: END IF;
2418:
2419: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2421: END IF;
2422:
2423: IF (g_fnd_debug = 'Y') THEN

Line 2420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2416: END IF;
2417: END IF;
2418:
2419: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2421: END IF;
2422:
2423: IF (g_fnd_debug = 'Y') THEN
2424: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

Line 2435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2431: END IF;
2432:
2433: EXCEPTION
2434: WHEN OTHERS THEN
2435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2436: FND_MSG_PUB.add_exc_msg
2437: ( p_pkg_name => g_pkg_name,
2438: p_procedure_name => l_api_name || '.' || l_progress
2439: );

Line 2524: x_return_status := FND_API.G_RET_STS_SUCCESS;

2520: );
2521: END IF;
2522: END IF;
2523:
2524: x_return_status := FND_API.G_RET_STS_SUCCESS;
2525:
2526: IF (PO_CONTERMS_UTL_GRP.is_contracts_enabled = 'N') THEN
2527: IF (g_fnd_debug = 'Y') THEN
2528: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

Line 2557: p_init_msg_list => FND_API.G_TRUE,

2553: END IF;
2554:
2555: OKC_TERMS_UTIL_GRP.purge_doc
2556: ( p_api_version => 1.0,
2557: p_init_msg_list => FND_API.G_TRUE,
2558: p_commit => FND_API.G_FALSE,
2559: x_return_status => l_return_status,
2560: x_msg_data => l_msg_data,
2561: x_msg_count => l_msg_count,

Line 2558: p_commit => FND_API.G_FALSE,

2554:
2555: OKC_TERMS_UTIL_GRP.purge_doc
2556: ( p_api_version => 1.0,
2557: p_init_msg_list => FND_API.G_TRUE,
2558: p_commit => FND_API.G_FALSE,
2559: x_return_status => l_return_status,
2560: x_msg_data => l_msg_data,
2561: x_msg_count => l_msg_count,
2562: p_doc_tbl => l_header_tbl

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

2572: );
2573: END IF;
2574: END IF;
2575:
2576: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2578: END IF;
2579:
2580: IF (g_fnd_debug = 'Y') THEN

Line 2577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2573: END IF;
2574: END IF;
2575:
2576: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2578: END IF;
2579:
2580: IF (g_fnd_debug = 'Y') THEN
2581: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN

Line 2592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2588: END IF;
2589:
2590: EXCEPTION
2591: WHEN OTHERS THEN
2592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2593: FND_MSG_PUB.add_exc_msg
2594: ( p_pkg_name => g_pkg_name,
2595: p_procedure_name => l_api_name || '.' || l_progress
2596: );

Line 2656: x_return_status := FND_API.G_RET_STS_SUCCESS;

2652: );
2653: END IF;
2654: END IF;
2655:
2656: x_return_status := FND_API.G_RET_STS_SUCCESS;
2657:
2658: IF (p_purge_entity = 'REQ') THEN
2659: l_progress := '010';
2660:

Line 2800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2796: END IF;
2797:
2798: EXCEPTION
2799: WHEN OTHERS THEN
2800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2801: FND_MSG_PUB.add_exc_msg
2802: ( p_pkg_name => g_pkg_name,
2803: p_procedure_name => l_api_name || '.' || l_progress
2804: );

Line 2861: x_return_status := FND_API.G_RET_STS_SUCCESS;

2857: );
2858: END IF;
2859: END IF;
2860:
2861: x_return_status := FND_API.G_RET_STS_SUCCESS;
2862:
2863: l_progress := '010';
2864:
2865: DELETE

Line 2946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2942: END IF;
2943:
2944: EXCEPTION
2945: WHEN OTHERS THEN
2946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2947: FND_MSG_PUB.add_exc_msg
2948: ( p_pkg_name => g_pkg_name,
2949: p_procedure_name => l_api_name || '.' || l_progress
2950: );

Line 3020: x_return_status := FND_API.G_RET_STS_SUCCESS;

3016: );
3017: END IF;
3018: END IF;
3019:
3020: x_return_status := FND_API.G_RET_STS_SUCCESS;
3021:
3022: -- Delete Req Header Attachments
3023:
3024: FOR rec IN c_req_header LOOP

Line 3062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3058: END IF;
3059:
3060: EXCEPTION
3061: WHEN OTHERS THEN
3062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3063:
3064: IF (c_req_header%ISOPEN) THEN
3065: CLOSE c_req_header;
3066: END IF;

Line 3161: x_return_status := FND_API.G_RET_STS_SUCCESS;

3157: );
3158: END IF;
3159: END IF;
3160:
3161: x_return_status := FND_API.G_RET_STS_SUCCESS;
3162:
3163: -- Delete po header attachments
3164:
3165: FOR rec IN c_po_header LOOP

Line 3262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3258: END IF;
3259:
3260: EXCEPTION
3261: WHEN OTHERS THEN
3262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3263:
3264: IF (c_po_header%ISOPEN) THEN
3265: CLOSE c_po_header;
3266: END IF;

Line 3341: x_return_status := FND_API.G_RET_STS_SUCCESS;

3337: );
3338: END IF;
3339: END IF;
3340:
3341: x_return_status := FND_API.G_RET_STS_SUCCESS;
3342:
3343: SELECT DFT.draft_id
3344: BULK COLLECT
3345: INTO l_dft_id_tbl

Line 3356: p_exclude_ctrl_tbl => FND_API.G_FALSE,

3352: -- Delete all drafts for documents in purge list
3353: FOR i IN 1..l_dft_id_tbl.COUNT LOOP
3354: PO_DRAFTS_PVT.remove_draft_changes
3355: ( p_draft_id => l_dft_id_tbl(i),
3356: p_exclude_ctrl_tbl => FND_API.G_FALSE,
3357: x_return_status => x_return_status
3358: );
3359: END LOOP;
3360:

Line 3373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3369: END IF;
3370:
3371: EXCEPTION
3372: WHEN OTHERS THEN
3373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3374:
3375: FND_MSG_PUB.add_exc_msg
3376: ( p_pkg_name => g_pkg_name,
3377: p_procedure_name => l_api_name || '.' || l_progress

Line 3439: x_return_status := FND_API.G_RET_STS_SUCCESS;

3435: );
3436: END IF;
3437: END IF;
3438:
3439: x_return_status := FND_API.G_RET_STS_SUCCESS;
3440:
3441: IF (p_purge_entity = 'REQ') THEN
3442: l_progress := '010';
3443:

Line 3509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3505: END IF;
3506:
3507: EXCEPTION
3508: WHEN OTHERS THEN
3509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3510: FND_MSG_PUB.add_exc_msg
3511: ( p_pkg_name => g_pkg_name,
3512: p_procedure_name => l_api_name || '.' || l_progress
3513: );