7: (p_vendor_rec IN ap_vendor_pub_pkg.r_vendor_rec_type, p_flow IN VARCHAR2)
8: IS
9: BEGIN
10:
11: IF (fnd_log.level_procedure < fnd_log.g_current_runtime_level) THEN
12: RETURN;
13: END IF;
14:
15: pos_log.set_msg_prefix(p_flow || ': p_vendor_rec');
142: PROCEDURE log_vendor_site_rec
143: (p_vendor_site_rec IN ap_vendor_pub_pkg.r_vendor_site_rec_type, p_flow IN VARCHAR2)
144: IS
145: BEGIN
146: IF (fnd_log.level_procedure < fnd_log.g_current_runtime_level) THEN
147: RETURN;
148: END IF;
149:
150: pos_log.set_msg_prefix(p_flow || ': p_vendor_site_rec');
444: BEGIN
445:
446: savepoint crt_vndr_a;
447:
448: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
449: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
450: , g_module_name
451: , 'Enter Create Vendor Procedure'
452: );
445:
446: savepoint crt_vndr_a;
447:
448: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
449: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
450: , g_module_name
451: , 'Enter Create Vendor Procedure'
452: );
453: END IF;
489: x_return_status => x_return_status,
490: x_msg_count => x_msg_count,
491: x_msg_data => x_msg_data
492: );
493: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
494: fnd_log.string(FND_LOG.LEVEL_ERROR
495: , g_module_name
496: , l_step
497: || ' x_return_status = ' || x_return_status
490: x_msg_count => x_msg_count,
491: x_msg_data => x_msg_data
492: );
493: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
494: fnd_log.string(FND_LOG.LEVEL_ERROR
495: , g_module_name
496: , l_step
497: || ' x_return_status = ' || x_return_status
498: || ', x_msg_count = ' || x_msg_count
528:
529: IF x_return_status IS NOT NULL AND
530: x_return_status = FND_API.g_ret_sts_success THEN
531: -- succeed
532: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
533: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
534: , g_module_name
535: , l_step
536: || ' x_return_status = ' || x_return_status
529: IF x_return_status IS NOT NULL AND
530: x_return_status = FND_API.g_ret_sts_success THEN
531: -- succeed
532: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
533: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
534: , g_module_name
535: , l_step
536: || ' x_return_status = ' || x_return_status
537: || ', x_vendor_id = ' || x_vendor_id
539: END IF;
540: ELSE
541: -- failed
542: rollback to crt_vndr_a;
543: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
544: fnd_log.string(FND_LOG.LEVEL_ERROR
545: , g_module_name
546: , l_step
547: || ' x_return_status = ' || x_return_status
540: ELSE
541: -- failed
542: rollback to crt_vndr_a;
543: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
544: fnd_log.string(FND_LOG.LEVEL_ERROR
545: , g_module_name
546: , l_step
547: || ' x_return_status = ' || x_return_status
548: || ', x_msg_count = ' || x_msg_count
563: x_msg_data OUT NOCOPY VARCHAR2
564: ) IS
565: l_step VARCHAR2(100);
566: BEGIN
567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
568: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
569: , g_module_name
570: , 'Enter Update Vendor Procedure'
571: );
564: ) IS
565: l_step VARCHAR2(100);
566: BEGIN
567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
568: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
569: , g_module_name
570: , 'Enter Update Vendor Procedure'
571: );
572: END IF;
592:
593: IF x_return_status IS NOT NULL AND
594: x_return_status = FND_API.g_ret_sts_success THEN
595: -- succeed
596: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
597: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
598: , g_module_name
599: , l_step
600: || ' x_return_status = ' || x_return_status
593: IF x_return_status IS NOT NULL AND
594: x_return_status = FND_API.g_ret_sts_success THEN
595: -- succeed
596: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
597: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
598: , g_module_name
599: , l_step
600: || ' x_return_status = ' || x_return_status
601: );
602: END IF;
603: ELSE
604: -- failed
605: rollback to upd_vndr_a;
606: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
607: fnd_log.string(FND_LOG.LEVEL_ERROR
608: , g_module_name
609: , l_step
610: || ' x_return_status = ' || x_return_status
603: ELSE
604: -- failed
605: rollback to upd_vndr_a;
606: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
607: fnd_log.string(FND_LOG.LEVEL_ERROR
608: , g_module_name
609: , l_step
610: || ' x_return_status = ' || x_return_status
611: || ', x_msg_count = ' || x_msg_count
633: ) IS
634: l_step VARCHAR2(100);
635: l_payee_valid VARCHAR2(1);
636: BEGIN
637: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
638: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
639: , g_module_name
640: , 'Enter Validate Vendor Procedure'
641: );
634: l_step VARCHAR2(100);
635: l_payee_valid VARCHAR2(1);
636: BEGIN
637: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
638: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
639: , g_module_name
640: , 'Enter Validate Vendor Procedure'
641: );
642: END IF;
644: l_step := 'Log vendor rec values';
645:
646: log_vendor_rec (p_vendor_rec, 'validate vendor');
647:
648: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
649: fnd_log.string(FND_LOG.LEVEL_STATEMENT
650: , g_module_name
651: , 'p_mode = ' || p_mode
652: );
645:
646: log_vendor_rec (p_vendor_rec, 'validate vendor');
647:
648: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
649: fnd_log.string(FND_LOG.LEVEL_STATEMENT
650: , g_module_name
651: , 'p_mode = ' || p_mode
652: );
653: END IF;
681:
682: IF x_return_status IS NOT NULL AND
683: x_return_status = FND_API.g_ret_sts_success THEN
684: -- succeed
685: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
686: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
687: , g_module_name
688: , l_step
689: || ' x_return_status = ' || x_return_status
682: IF x_return_status IS NOT NULL AND
683: x_return_status = FND_API.g_ret_sts_success THEN
684: -- succeed
685: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
686: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
687: , g_module_name
688: , l_step
689: || ' x_return_status = ' || x_return_status
690: || ', x_party_valid = ' || x_party_valid);
690: || ', x_party_valid = ' || x_party_valid);
691: END IF;
692: ELSE
693: -- failed
694: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
695: fnd_log.string(FND_LOG.LEVEL_ERROR
696: , g_module_name
697: , l_step
698: || ' x_return_status = ' || x_return_status
691: END IF;
692: ELSE
693: -- failed
694: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
695: fnd_log.string(FND_LOG.LEVEL_ERROR
696: , g_module_name
697: , l_step
698: || ' x_return_status = ' || x_return_status
699: || ', x_msg_count = ' || x_msg_count
788: ) IS
789: l_step VARCHAR2(100);
790: l_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;
791: BEGIN
792: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
793: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
794: , g_module_name
795: , 'Enter Create_Vendor_Site Procedure'
796: );
789: l_step VARCHAR2(100);
790: l_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;
791: BEGIN
792: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
793: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
794: , g_module_name
795: , 'Enter Create_Vendor_Site Procedure'
796: );
797: END IF;
810: x_msg_count, x_msg_data );
811:
812: IF ( (x_return_status IS NULL) OR (x_return_status <> FND_API.g_ret_sts_success) ) THEN
813: -- Found an error in validation
814: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
815: fnd_log.string(FND_LOG.LEVEL_ERROR
816: , g_module_name
817: , l_step
818: || ' x_return_status = ' || x_return_status
811:
812: IF ( (x_return_status IS NULL) OR (x_return_status <> FND_API.g_ret_sts_success) ) THEN
813: -- Found an error in validation
814: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
815: fnd_log.string(FND_LOG.LEVEL_ERROR
816: , g_module_name
817: , l_step
818: || ' x_return_status = ' || x_return_status
819: || ', x_msg_count = ' || x_msg_count
841:
842: IF x_return_status IS NOT NULL AND
843: x_return_status = FND_API.g_ret_sts_success THEN
844: -- succeed
845: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
846: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
847: , g_module_name
848: , l_step
849: || ' x_return_status = ' || x_return_status
842: IF x_return_status IS NOT NULL AND
843: x_return_status = FND_API.g_ret_sts_success THEN
844: -- succeed
845: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
846: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
847: , g_module_name
848: , l_step
849: || ' x_return_status = ' || x_return_status
850: || ', x_vendor_site_id = ' || x_vendor_site_id
853: END IF;
854: ELSE
855: -- failed
856: rollback to crt_vndr_st_a;
857: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
858: fnd_log.string(FND_LOG.LEVEL_ERROR
859: , g_module_name
860: , l_step
861: || ' x_return_status = ' || x_return_status
854: ELSE
855: -- failed
856: rollback to crt_vndr_st_a;
857: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
858: fnd_log.string(FND_LOG.LEVEL_ERROR
859: , g_module_name
860: , l_step
861: || ' x_return_status = ' || x_return_status
862: || ', x_msg_count = ' || x_msg_count
878: x_msg_data OUT NOCOPY VARCHAR2
879: ) IS
880: l_step VARCHAR2(100);
881: BEGIN
882: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
883: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
884: , g_module_name
885: , 'Enter Update_Vendor_Site Procedure'
886: );
879: ) IS
880: l_step VARCHAR2(100);
881: BEGIN
882: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
883: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
884: , g_module_name
885: , 'Enter Update_Vendor_Site Procedure'
886: );
887: END IF;
898: x_msg_count, x_msg_data );
899:
900: IF ( (x_return_status IS NULL) OR (x_return_status <> FND_API.g_ret_sts_success) ) THEN
901: -- Found an error in validation
902: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
903: fnd_log.string(FND_LOG.LEVEL_ERROR
904: , g_module_name
905: , l_step
906: || ' x_return_status = ' || x_return_status
899:
900: IF ( (x_return_status IS NULL) OR (x_return_status <> FND_API.g_ret_sts_success) ) THEN
901: -- Found an error in validation
902: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
903: fnd_log.string(FND_LOG.LEVEL_ERROR
904: , g_module_name
905: , l_step
906: || ' x_return_status = ' || x_return_status
907: || ', x_msg_count = ' || x_msg_count
926:
927: IF x_return_status IS NOT NULL AND
928: x_return_status = FND_API.g_ret_sts_success THEN
929: -- succeed
930: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
931: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
932: , g_module_name
933: , l_step
934: || ' x_return_status = ' || x_return_status
927: IF x_return_status IS NOT NULL AND
928: x_return_status = FND_API.g_ret_sts_success THEN
929: -- succeed
930: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
931: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
932: , g_module_name
933: , l_step
934: || ' x_return_status = ' || x_return_status
935: );
936: END IF;
937: ELSE
938: -- failed
939: rollback to upd_vndr_st_a;
940: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
941: fnd_log.string(FND_LOG.LEVEL_ERROR
942: , g_module_name
943: , l_step
944: || ' x_return_status = ' || x_return_status
937: ELSE
938: -- failed
939: rollback to upd_vndr_st_a;
940: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
941: fnd_log.string(FND_LOG.LEVEL_ERROR
942: , g_module_name
943: , l_step
944: || ' x_return_status = ' || x_return_status
945: || ', x_msg_count = ' || x_msg_count
968: ) IS
969: l_step VARCHAR2(100);
970: l_payee_valid VARCHAR2(1);
971: BEGIN
972: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
973: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
974: , g_module_name
975: , 'Enter Validate_Vendor_Site Procedure'
976: );
969: l_step VARCHAR2(100);
970: l_payee_valid VARCHAR2(1);
971: BEGIN
972: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
973: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
974: , g_module_name
975: , 'Enter Validate_Vendor_Site Procedure'
976: );
977: END IF;
979: l_step := 'Log vendor site rec values';
980:
981: log_vendor_site_rec (p_vendor_site_rec, 'validate vendor site');
982:
983: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
984: fnd_log.string(FND_LOG.LEVEL_STATEMENT
985: , g_module_name
986: , 'p_mode = ' || p_mode
987: );
980:
981: log_vendor_site_rec (p_vendor_site_rec, 'validate vendor site');
982:
983: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
984: fnd_log.string(FND_LOG.LEVEL_STATEMENT
985: , g_module_name
986: , 'p_mode = ' || p_mode
987: );
988: END IF;
1017:
1018: IF x_return_status IS NOT NULL AND
1019: x_return_status = FND_API.g_ret_sts_success THEN
1020: -- succeed
1021: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1022: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
1023: , g_module_name
1024: , l_step
1025: || ' x_return_status = ' || x_return_status
1018: IF x_return_status IS NOT NULL AND
1019: x_return_status = FND_API.g_ret_sts_success THEN
1020: -- succeed
1021: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1022: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
1023: , g_module_name
1024: , l_step
1025: || ' x_return_status = ' || x_return_status
1026: || ', x_party_site_valid = ' || x_party_site_valid
1028: );
1029: END IF;
1030: ELSE
1031: -- failed
1032: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1033: fnd_log.string(FND_LOG.LEVEL_ERROR
1034: , g_module_name
1035: , l_step
1036: || ' x_return_status = ' || x_return_status
1029: END IF;
1030: ELSE
1031: -- failed
1032: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1033: fnd_log.string(FND_LOG.LEVEL_ERROR
1034: , g_module_name
1035: , l_step
1036: || ' x_return_status = ' || x_return_status
1037: || ', x_msg_count = ' || x_msg_count
1076:
1077: IF x_return_status IS NOT NULL AND
1078: x_return_status = FND_API.g_ret_sts_success THEN
1079: -- succeed
1080: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1081: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
1082: , g_module_name
1083: , l_step
1084: || ' x_return_status = ' || x_return_status
1077: IF x_return_status IS NOT NULL AND
1078: x_return_status = FND_API.g_ret_sts_success THEN
1079: -- succeed
1080: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1081: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
1082: , g_module_name
1083: , l_step
1084: || ' x_return_status = ' || x_return_status
1085: || ' x_vendor_contact_id = ' || x_vendor_contact_id
1091: );
1092: END IF;
1093: ELSE
1094: -- failed
1095: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1096: fnd_log.string(FND_LOG.LEVEL_ERROR
1097: , g_module_name
1098: , l_step
1099: || ' x_return_status = ' || x_return_status
1092: END IF;
1093: ELSE
1094: -- failed
1095: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1096: fnd_log.string(FND_LOG.LEVEL_ERROR
1097: , g_module_name
1098: , l_step
1099: || ' x_return_status = ' || x_return_status
1100: || ', x_msg_count = ' || x_msg_count