[Home] [Help]
269: x_valid := TRUE;
270:
271: SELECT COUNT(*)
272: INTO l_count
273: FROM hz_party_sites hps, ap_suppliers aps
274: WHERE aps.vendor_id = p_vendor_id
275: AND hps.party_id = aps.party_id
276: AND UPPER(hps.party_site_name) = UPPER(p_vendor_site_code);
277:
558: l_count NUMBER := 1;
559:
560: BEGIN
561: x_valid := TRUE;
562: --Bug 7526020 Validating SEGMENT1 against ap_suppliers instead of ap_suppliers_int
563: SELECT COUNT(*)
564: INTO l_count
565: FROM ap_suppliers
566: WHERE segment1 = p_segment1;
561: x_valid := TRUE;
562: --Bug 7526020 Validating SEGMENT1 against ap_suppliers instead of ap_suppliers_int
563: SELECT COUNT(*)
564: INTO l_count
565: FROM ap_suppliers
566: WHERE segment1 = p_segment1;
567:
568: IF l_count > 1 THEN
569: x_valid := FALSE;
592: x_valid := TRUE;
593:
594: SELECT COUNT(*)
595: INTO l_count
596: FROM ap_suppliers_int
597: WHERE UPPER(vendor_name) = UPPER(p_vendor_name);
598:
599: IF l_count > 1 THEN
600: x_valid := FALSE;
629: -- Bug 7596921 - Start
630: /*
631: SELECT COUNT(*)
632: INTO l_count
633: FROM ap_suppliers
634: WHERE UPPER(vendor_name) = UPPER(p_vendor_name)
635: AND (p_vendor_id IS NULL OR vendor_id <> p_vendor_id); --bug 5606948
636: */
637:
637:
638: BEGIN
639: SELECT 1
640: INTO l_count
641: FROM ap_suppliers
642: WHERE UPPER(vendor_name) = UPPER(p_vendor_name)
643: AND (p_vendor_id IS NULL OR vendor_id <> p_vendor_id)
644: --bug 13629613
645: AND nvl(VENDOR_TYPE_LOOKUP_CODE,'nonemp') <> 'EMPLOYEE'
653:
654: /*
655: SELECT COUNT(*)
656: INTO l_count
657: FROM ap_suppliers
658: WHERE UPPER(vendor_name) = UPPER(p_vendor_name)
659: AND (p_vendor_id IS NULL OR vendor_id <> p_vendor_id)
660: --bug 6939863 - changed <> to = for employee_id
661: AND (p_employee_id IS NULL OR employee_id = p_employee_id);
663:
664: BEGIN
665: SELECT 1
666: INTO l_count
667: FROM ap_suppliers
668: WHERE UPPER(vendor_name) = UPPER(p_vendor_name)
669: AND (p_vendor_id IS NULL OR vendor_id <> p_vendor_id)
670: --bug 6939863 - changed <> to = for employee_id
671: AND (p_employee_id IS NULL OR employee_id = p_employee_id)
928: -- Bug 7596921-Start
929: /*
930: SELECT COUNT(*)
931: INTO l_count
932: FROM ap_suppliers
933: WHERE UPPER(vendor_name) = UPPER(p_vendor_name)
934: AND (p_vendor_id IS NULL OR vendor_id <> p_vendor_id); --bug 5606948
935: */
936:
936:
937: BEGIN
938: SELECT 1
939: INTO l_count
940: FROM ap_suppliers
941: WHERE UPPER(vendor_name) = UPPER(p_vendor_name)
942: AND (p_vendor_id IS NULL OR vendor_id <> p_vendor_id)
943: --bug 13629613
944: AND nvl(VENDOR_TYPE_LOOKUP_CODE,'nonemp') <> 'EMPLOYEE'
952:
953: /*
954: SELECT COUNT(*)
955: INTO l_count
956: FROM ap_suppliers
957: WHERE UPPER(vendor_name) = UPPER(p_vendor_name)
958: AND (p_vendor_id IS NULL OR vendor_id <> p_vendor_id)
959: --bug 6939863 - changed <> to = for employee_id
960: AND (p_employee_id IS NULL OR employee_id = p_employee_id);
962:
963: BEGIN
964: SELECT 1
965: INTO l_count
966: FROM ap_suppliers
967: WHERE UPPER(vendor_name) = UPPER(p_vendor_name)
968: AND (p_vendor_id IS NULL OR vendor_id <> p_vendor_id)
969: --bug 6939863 - changed <> to = for employee_id
970: AND (p_employee_id IS NULL OR employee_id = p_employee_id)
2749: x_valid := TRUE;
2750: SELECT Count(*)
2751: INTO l_dummy
2752: FROM hz_party_sites hps,
2753: ap_suppliers aps /* Bug 12590128 */
2754: WHERE ( hps.location_id = nvl(p_location_id, hps.location_id)
2755: AND hps.party_site_id = p_party_site_id)
2756: AND aps.party_id = hps.party_id
2757: AND aps.vendor_id = p_vendor_id;
3126: if(p_party_site_id is not null) then
3127:
3128: select count(party_site_id) into l_match_sitename_cnt
3129: from hz_party_sites hzps,
3130: ap_suppliers aps
3131: where hzps.party_id = aps.party_id
3132: and aps.vendor_id = p_vendor_id
3133: AND hzps.party_site_id = p_party_site_id
3134: and hzps.party_site_name = p_party_site_name;
3136: IF l_match_sitename_cnt = 1 THEN
3137: select hzps.party_site_name, hzps.party_site_id
3138: INTO l_party_site_name,p_party_site_id
3139: from hz_party_sites hzps,
3140: ap_suppliers aps
3141: where hzps.party_id = aps.party_id
3142: and aps.vendor_id = p_vendor_id
3143: AND hzps.party_site_id = p_party_site_id
3144: and hzps.party_site_name = p_party_site_name;
3145: END IF;
3146: elsif (p_party_site_id is null) then
3147: select count(party_site_id) into l_match_sitename_cnt
3148: from hz_party_sites hps,
3149: ap_suppliers aps
3150: where hps.party_id = aps.party_id
3151: and aps.vendor_id = p_vendor_id
3152: and hps.party_site_name = p_party_site_name;
3153:
3154: IF l_match_sitename_cnt = 1 THEN
3155: select hps.party_site_name, hps.party_site_id
3156: INTO l_party_site_name,p_party_site_id
3157: from hz_party_sites hps,
3158: ap_suppliers aps
3159: where hps.party_id = aps.party_id
3160: and aps.vendor_id = p_vendor_id
3161: and hps.party_site_name = p_party_site_name;
3162: END IF;
3177:
3178: if(p_party_site_id is not null) then
3179: SELECT hzps.party_site_name, hzps.party_site_id
3180: INTO l_party_site_name,p_party_site_id
3181: FROM hz_party_sites hzps, ap_suppliers aps
3182: WHERE hzps.party_site_name = p_party_site_name
3183: AND hzps.party_site_id = p_party_site_id
3184: AND aps.vendor_id = p_vendor_id;
3185: else
3379: x_return_status OUT NOCOPY VARCHAR2 ,
3380: x_msg_count OUT NOCOPY NUMBER,
3381: x_msg_data OUT NOCOPY VARCHAR2,
3382: p_vendor_rec IN r_vendor_rec_type,
3383: x_vendor_id OUT NOCOPY AP_SUPPLIERS.VENDOR_ID%TYPE,
3384: x_party_id OUT NOCOPY HZ_PARTIES.PARTY_ID%TYPE
3385: )
3386: IS
3387:
3667: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3668:
3669: IF l_party_valid = 'N' THEN -- party_id was null
3670:
3671: l_org_rec.created_by_module := 'AP_SUPPLIERS_API';
3672: l_org_rec.application_id := 200;
3673: l_org_rec.organization_name := l_vendor_rec.vendor_name;
3674: l_org_rec.organization_name_phonetic :=
3675: l_vendor_rec.vendor_name_alt;
3675: l_vendor_rec.vendor_name_alt;
3676:
3677: --bug6050423.Pass null value to jgzz_fiscal_code in hz_parties for
3678: --individual contractors and employees.
3679: --taxpayer id of individual contractors is stored only in ap_suppliers.
3680: --bug6691916.commented the below if clause and added the one below that.
3681: --as per analysis,only organization lookup code of type individual
3682: --and foreign individual belong to individual suppliers category.
3683:
3740:
3741: --populate contact point record
3742: l_contact_point_rec.owner_table_name := 'HZ_PARTIES' ;
3743: l_contact_point_rec.owner_table_id := l_vendor_rec.party_id ;
3744: l_contact_point_rec.created_by_module := 'AP_SUPPLIERS_API' ;
3745: l_contact_point_rec.application_id := 200 ;
3746:
3747: --populate url record
3748:
3778: --Bug6677806
3779: l_party_usg_validation_level := HZ_PARTY_USG_ASSIGNMENT_PVT.G_VALID_LEVEL_NONE;
3780: l_party_usg_rec.party_id := nvl(l_vendor_rec.party_id,l_org_party_id);
3781: l_party_usg_rec.party_usage_code := 'SUPPLIER';
3782: l_party_usg_rec.created_by_module := 'AP_SUPPLIERS_API';--Bug6678590
3783:
3784: HZ_PARTY_USG_ASSIGNMENT_PVT.assign_party_usage (
3785: p_validation_level => l_party_usg_validation_level,
3786: p_party_usg_assignment_rec => l_party_usg_rec,
4552: ,decode(l_vendor_rec.terms_id,
4553: ap_null_num,NULL,
4554: nvl(l_vendor_rec.terms_id, terms_id ))
4555: --bug6050423 starts.system inserts taxpayer id
4556: --of individual contractors into ap_suppliers
4557: ,decode(l_vendor_rec.jgzz_fiscal_code,
4558: ap_null_char,NULL,
4559: nvl(l_vendor_rec.jgzz_fiscal_code,nvl(individual_1099,num_1099)))
4560: --bug6050423 ends
4867: IF NOT x_valid THEN
4868: x_return_status := FND_API.G_RET_STS_ERROR;
4869: IF g_source = 'IMPORT' THEN
4870: IF (Insert_Rejections(
4871: 'AP_SUPPLIERS_INT',
4872: p_vendor_rec.vendor_interface_id,
4873: 'AP_INVALID_INSP_REQ_FLAG',
4874: g_user_id,
4875: g_login_id,
4919: IF l_status = 0 THEN
4920: x_return_status := FND_API.G_RET_STS_ERROR;
4921: IF g_source = 'IMPORT' THEN
4922: IF (Insert_Rejections(
4923: 'AP_SUPPLIERS_INT',
4924: p_vendor_rec.vendor_interface_id,
4925: 'AP_INVALID_VAT_CODE',
4926: g_user_id,
4927: g_login_id,
4970: IF NOT x_valid THEN
4971: x_return_status := FND_API.G_RET_STS_ERROR;
4972: IF g_source = 'IMPORT' THEN
4973: IF (Insert_Rejections(
4974: 'AP_SUPPLIERS_INT',
4975: p_vendor_rec.vendor_interface_id,
4976: 'AP_INVALID_REC_REQ_FLAG',
4977: g_user_id,
4978: g_login_id,
5014: IF NOT x_valid THEN
5015: x_return_status := FND_API.G_RET_STS_ERROR;
5016: IF g_source = 'IMPORT' THEN
5017: IF (Insert_Rejections(
5018: 'AP_SUPPLIERS_INT',
5019: p_vendor_rec.vendor_interface_id,
5020: 'AP_INVALID_PAYMENT_PRIORITY',
5021: g_user_id,
5022: g_login_id,
5057: IF NOT x_valid THEN
5058: x_return_status := FND_API.G_RET_STS_ERROR;
5059: IF g_source = 'IMPORT' THEN
5060: IF (Insert_Rejections(
5061: 'AP_SUPPLIERS_INT',
5062: p_vendor_rec.vendor_interface_id,
5063: 'AP_INCONSISTENT_1099_TYPE',
5064: g_user_id,
5065: g_login_id,
5125:
5126: -- Added for Bug 6852552
5127: IF g_source = 'IMPORT' THEN
5128: IF (Insert_Rejections(
5129: 'AP_SUPPLIERS_INT',
5130: p_vendor_rec.vendor_interface_id,
5131: 'AP_DEFAULT_COUNTRY_CODE_NULL',
5132: g_user_id,
5133: g_login_id,
5156:
5157: x_return_status := FND_API.G_RET_STS_ERROR;
5158: IF g_source = 'IMPORT' THEN
5159: IF (Insert_Rejections(
5160: 'AP_SUPPLIERS_INT',
5161: p_vendor_rec.vendor_interface_id,
5162: 'AP_INVALID_TAXPAYER_ID',
5163: g_user_id,
5164: g_login_id,
5197: UPPER(p_vendor_rec.vendor_type_lookup_code)='EMPLOYEE') THEN
5198: x_return_status := FND_API.G_RET_STS_ERROR;
5199: IF g_source = 'IMPORT' THEN
5200: IF (Insert_Rejections(
5201: 'AP_SUPPLIERS_INT',
5202: p_vendor_rec.vendor_interface_id,
5203: 'AP_INVALID_EMPLOYEE_ID',
5204: g_user_id,
5205: g_login_id,
5225: IF NOT x_valid THEN
5226: x_return_status := FND_API.G_RET_STS_ERROR;
5227: IF g_source = 'IMPORT' THEN
5228: IF (Insert_Rejections(
5229: 'AP_SUPPLIERS_INT',
5230: p_vendor_rec.vendor_interface_id,
5231: 'AP_INVALID_EMPLOYEE_ID',
5232: g_user_id,
5233: g_login_id,
5261: WHEN OTHERS THEN
5262: x_return_status := FND_API.G_RET_STS_ERROR;
5263: IF g_source = 'IMPORT' THEN
5264: IF (Insert_Rejections(
5265: 'AP_SUPPLIERS_INT',
5266: p_vendor_rec.vendor_interface_id,
5267: 'AP_INVALID_EMPLOYEE_ID',
5268: g_user_id,
5269: g_login_id,
5308: IF NOT x_valid THEN
5309: x_return_status := FND_API.G_RET_STS_ERROR;
5310: IF g_source = 'IMPORT' THEN
5311: IF (Insert_Rejections(
5312: 'AP_SUPPLIERS_INT',
5313: p_vendor_rec.vendor_interface_id,
5314: 'AP_INCONSISTENT_INSPEC_RECEIPT',
5315: g_user_id,
5316: g_login_id,
5350: IF NOT x_valid THEN
5351: x_return_status := FND_API.G_RET_STS_ERROR;
5352: IF g_source = 'IMPORT' THEN
5353: IF (Insert_Rejections(
5354: 'AP_SUPPLIERS_INT',
5355: p_vendor_rec.vendor_interface_id,
5356: 'AP_INVALID_NAME_CONTROL',
5357: g_user_id,
5358: g_login_id,
5398: IF NOT x_valid THEN
5399: x_return_status := FND_API.G_RET_STS_ERROR;
5400: IF g_source = 'IMPORT' THEN
5401: IF (Insert_Rejections(
5402: 'AP_SUPPLIERS_INT',
5403: p_vendor_rec.vendor_interface_id,
5404: 'AP_INCONSISTENT_SHIP_INVENTORY',
5405: g_user_id,
5406: g_login_id,
5442: IF NOT x_valid THEN
5443: x_return_status := FND_API.G_RET_STS_ERROR;
5444: IF g_source = 'IMPORT' THEN
5445: IF (Insert_Rejections(
5446: 'AP_SUPPLIERS_INT',
5447: p_vendor_rec.vendor_interface_id,
5448: 'AP_INVALID_SOB',
5449: g_user_id,
5450: g_login_id,
5505: IF NOT x_valid THEN
5506: x_return_status := FND_API.G_RET_STS_ERROR;
5507: IF g_source = 'IMPORT' THEN
5508: IF (Insert_Rejections(
5509: 'AP_SUPPLIERS_INT',
5510: p_vendor_rec.vendor_interface_id,
5511: --'DUPLICATE SEGMENT1 INT',
5512: 'AP_INVALID_SEGMENT1_INT',
5513: g_user_id,
5570: x_return_status := FND_API.G_RET_STS_ERROR;
5571: --bug 5606948
5572: IF g_source = 'IMPORT' THEN
5573: IF (Insert_Rejections(
5574: 'AP_SUPPLIERS_INT',
5575: p_vendor_rec.vendor_interface_id,
5576: 'AP_VEN_DUPLICATE_VEN_NUM',
5577: g_user_id,
5578: g_login_id,
5607: IF NOT x_valid THEN
5608: x_return_status := FND_API.G_RET_STS_ERROR;
5609: IF g_source = 'IMPORT' THEN
5610: IF (Insert_Rejections(
5611: 'AP_SUPPLIERS_INT',
5612: p_vendor_rec.vendor_interface_id,
5613: 'AP_INVALID_RCV_ROUTING',
5614: g_user_id,
5615: g_login_id,
5654: IF NOT x_valid THEN
5655: x_return_status := FND_API.G_RET_STS_ERROR;
5656: IF g_source = 'IMPORT' THEN
5657: IF (Insert_Rejections(
5658: 'AP_SUPPLIERS_INT',
5659: p_vendor_rec.vendor_interface_id,
5660: 'AP_INCONSISTENT_VENDOR_TYPE',
5661: g_user_id,
5662: g_login_id,
5696: IF NOT x_valid THEN
5697: x_return_status := FND_API.G_RET_STS_ERROR;
5698: IF g_source = 'IMPORT' THEN
5699: IF (Insert_Rejections(
5700: 'AP_SUPPLIERS_INT',
5701: p_vendor_rec.vendor_interface_id,
5702: 'AP_INVALID_INV_CURRENCY',
5703: g_user_id,
5704: g_login_id,
5737: IF NOT x_valid THEN
5738: x_return_status := FND_API.G_RET_STS_ERROR;
5739: IF g_source = 'IMPORT' THEN
5740: IF (Insert_Rejections(
5741: 'AP_SUPPLIERS_INT',
5742: p_vendor_rec.vendor_interface_id,
5743: 'AP_INVALID_PAY_CURRENCY',
5744: g_user_id,
5745: g_login_id,
5781: IF NOT x_valid THEN
5782: x_return_status := FND_API.G_RET_STS_ERROR;
5783: IF g_source = 'IMPORT' THEN
5784: IF (Insert_Rejections(
5785: 'AP_SUPPLIERS_INT',
5786: p_vendor_rec.vendor_interface_id,
5787: 'AP_INVALID_TYPE_1099',
5788: g_user_id,
5789: g_login_id,
5827: x_return_status := FND_API.G_RET_STS_ERROR;
5828:
5829: IF g_source = 'IMPORT' THEN
5830: IF (Insert_Rejections(
5831: 'AP_SUPPLIERS_INT',
5832: p_vendor_rec.vendor_interface_id,
5833: 'AP_INCORRECT_GTAS_INFO',
5834: g_user_id,
5835: g_login_id,
5857: Global_Attribute_Category /*Bug#15977829*/
5858: INTO p_vendor_rec.Global_Attribute4,
5859: p_vendor_rec.Global_Attribute5,
5860: p_vendor_rec.Global_Attribute_Category
5861: FROM AP_SUPPLIERS_INT
5862: WHERE vendor_interface_id =
5863: p_vendor_rec.vendor_interface_id;
5864:
5865: END IF;
5914: IF NOT x_valid THEN
5915: x_return_status := FND_API.G_RET_STS_ERROR;
5916: IF g_source = 'IMPORT' THEN
5917: IF (Insert_Rejections(
5918: 'AP_SUPPLIERS_INT',
5919: p_vendor_rec.vendor_interface_id,
5920: 'AP_CCR_NO_UPDATE',
5921: g_user_id,
5922: g_login_id,
5966: x_return_status := FND_API.G_RET_STS_ERROR;
5967:
5968:
5969: IF (Insert_Rejections(
5970: 'AP_SUPPLIERS_INT',
5971: p_vendor_rec.vendor_interface_id,
5972: 'AP_VEN_DUPLICATE_NAME',
5973: g_user_id,
5974: g_login_id,
6018: x_payee_valid := 'F';
6019: x_return_status := l_payee_return_status;
6020: IF g_source = 'IMPORT' THEN
6021: IF (Insert_Rejections(
6022: 'AP_SUPPLIERS_INT',
6023: p_vendor_rec.vendor_interface_id,
6024: --'AP_INVALID_PAYEE',
6025: 'AP_INVALID_PAYEE_INFO',/*bug 7572325*/
6026: g_user_id,
6097: x_party_valid := 'F';
6098: x_return_status := FND_API.G_RET_STS_ERROR;
6099: IF g_source = 'IMPORT' THEN
6100: IF (Insert_Rejections(
6101: 'AP_SUPPLIERS_INT',
6102: p_vendor_rec.vendor_interface_id,
6103: 'AP_INVALID_PARTY_ID',
6104: g_user_id,
6105: g_login_id,
6148: IF NOT x_valid THEN
6149: x_return_status := FND_API.G_RET_STS_ERROR;
6150: IF g_source = 'IMPORT' THEN
6151: IF (Insert_Rejections(
6152: 'AP_SUPPLIERS_INT',
6153: p_vendor_rec.vendor_interface_id,
6154: 'AP_NULL_VENDOR_NUMBER', --bug 5568861
6155: g_user_id,
6156: g_login_id,
6197: IF NOT x_valid THEN
6198: x_return_status := FND_API.G_RET_STS_ERROR;
6199: IF g_source = 'IMPORT' THEN
6200: IF (Insert_Rejections(
6201: 'AP_SUPPLIERS_INT',
6202: p_vendor_rec.vendor_interface_id,
6203: 'AP_INVALID_ONE_TIME_FLAG',
6204: g_user_id,
6205: g_login_id,
6243: IF NOT x_valid THEN
6244: x_return_status := FND_API.G_RET_STS_ERROR;
6245: IF g_source = 'IMPORT' THEN
6246: IF (Insert_Rejections(
6247: 'AP_SUPPLIERS_INT',
6248: p_vendor_rec.vendor_interface_id,
6249: 'AP_INVALID_SUMMARY_FLAG',
6250: g_user_id,
6251: g_login_id,
6287: IF NOT x_valid THEN
6288: x_return_status := FND_API.G_RET_STS_ERROR;
6289: IF g_source = 'IMPORT' THEN
6290: IF (Insert_Rejections(
6291: 'AP_SUPPLIERS_INT',
6292: p_vendor_rec.vendor_interface_id,
6293: 'AP_INVALID_ENABLED_FLAG',
6294: g_user_id,
6295: g_login_id,
6331: IF NOT x_valid THEN
6332: x_return_status := FND_API.G_RET_STS_ERROR;
6333: IF g_source = 'IMPORT' THEN
6334: IF (Insert_Rejections(
6335: 'AP_SUPPLIERS_INT',
6336: p_vendor_rec.vendor_interface_id,
6337: 'AP_INVALID_VENDOR_TYPE',
6338: g_user_id,
6339: g_login_id,
6376: IF NOT x_valid THEN
6377: x_return_status := FND_API.G_RET_STS_ERROR;
6378: IF g_source = 'IMPORT' THEN
6379: IF (Insert_Rejections(
6380: 'AP_SUPPLIERS_INT',
6381: p_vendor_rec.vendor_interface_id,
6382: 'AP_INVALID_PAY_DATE_BASIS',
6383: g_user_id,
6384: g_login_id,
6420: IF NOT x_valid THEN
6421: x_return_status := FND_API.G_RET_STS_ERROR;
6422: IF g_source = 'IMPORT' THEN
6423: IF (Insert_Rejections(
6424: 'AP_SUPPLIERS_INT',
6425: p_vendor_rec.vendor_interface_id,
6426: 'AP_INVALID_PAY_GROUP',
6427: g_user_id,
6428: g_login_id,
6467: IF NOT x_valid THEN
6468: x_return_status := FND_API.G_RET_STS_ERROR;
6469: IF g_source = 'IMPORT' THEN
6470: IF (Insert_Rejections(
6471: 'AP_SUPPLIERS_INT',
6472: p_vendor_rec.vendor_interface_id,
6473: 'AP_INVALID_ORG_TYPE',
6474: g_user_id,
6475: g_login_id,
6512: IF NOT x_valid THEN
6513: x_return_status := FND_API.G_RET_STS_ERROR;
6514: IF g_source = 'IMPORT' THEN
6515: IF (Insert_Rejections(
6516: 'AP_SUPPLIERS_INT',
6517: p_vendor_rec.vendor_interface_id,
6518: 'AP_INVALID_MINORITY_GROUP',
6519: g_user_id,
6520: g_login_id,
6557: IF NOT x_valid THEN
6558: x_return_status := FND_API.G_RET_STS_ERROR;
6559: IF g_source = 'IMPORT' THEN
6560: IF (Insert_Rejections(
6561: 'AP_SUPPLIERS_INT',
6562: p_vendor_rec.vendor_interface_id,
6563: 'AP_INVALID_TERMS_DATE',
6564: g_user_id,
6565: g_login_id,
6602: IF NOT x_valid THEN
6603: x_return_status := FND_API.G_RET_STS_ERROR;
6604: IF g_source = 'IMPORT' THEN
6605: IF (Insert_Rejections(
6606: 'AP_SUPPLIERS_INT',
6607: p_vendor_rec.vendor_interface_id,
6608: 'AP_INVALID_QTY_RCV_OPTION',
6609: g_user_id,
6610: g_login_id,
6647: IF NOT x_valid THEN
6648: x_return_status := FND_API.G_RET_STS_ERROR;
6649: IF g_source = 'IMPORT' THEN
6650: IF (Insert_Rejections(
6651: 'AP_SUPPLIERS_INT',
6652: p_vendor_rec.vendor_interface_id,
6653: 'AP_INVALID_SHIP_RCV_OPTION',
6654: g_user_id,
6655: g_login_id,
6692: IF NOT x_valid THEN
6693: x_return_status := FND_API.G_RET_STS_ERROR;
6694: IF g_source = 'IMPORT' THEN
6695: IF (Insert_Rejections(
6696: 'AP_SUPPLIERS_INT',
6697: p_vendor_rec.vendor_interface_id,
6698: 'AP_INVALID_REC_RCV_OPTION',
6699: g_user_id,
6700: g_login_id,
6737: IF NOT x_valid THEN
6738: x_return_status := FND_API.G_RET_STS_ERROR;
6739: IF g_source = 'IMPORT' THEN
6740: IF (Insert_Rejections(
6741: 'AP_SUPPLIERS_INT',
6742: p_vendor_rec.vendor_interface_id,
6743: 'AP_INVALID_DEBIT_MEMO',
6744: g_user_id,
6745: g_login_id,
6782: IF NOT x_valid THEN
6783: x_return_status := FND_API.G_RET_STS_ERROR;
6784: IF g_source = 'IMPORT' THEN
6785: IF (Insert_Rejections(
6786: 'AP_SUPPLIERS_INT',
6787: p_vendor_rec.vendor_interface_id,
6788: 'AP_INVALID_FED_REPORTABLE',
6789: g_user_id,
6790: g_login_id,
6827: IF NOT x_valid THEN
6828: x_return_status := FND_API.G_RET_STS_ERROR;
6829: IF g_source = 'IMPORT' THEN
6830: IF (Insert_Rejections(
6831: 'AP_SUPPLIERS_INT',
6832: p_vendor_rec.vendor_interface_id,
6833: 'AP_INVALID_STATE_REPORTABLE',
6834: g_user_id,
6835: g_login_id,
6872: IF NOT x_valid THEN
6873: x_return_status := FND_API.G_RET_STS_ERROR;
6874: IF g_source = 'IMPORT' THEN
6875: IF (Insert_Rejections(
6876: 'AP_SUPPLIERS_INT',
6877: p_vendor_rec.vendor_interface_id,
6878: 'AP_INVALID_CALC_INT',
6879: g_user_id,
6880: g_login_id,
6917: IF NOT x_valid THEN
6918: x_return_status := FND_API.G_RET_STS_ERROR;
6919: IF g_source = 'IMPORT' THEN
6920: IF (Insert_Rejections(
6921: 'AP_SUPPLIERS_INT',
6922: p_vendor_rec.vendor_interface_id,
6923: 'AP_INVALID_EXC_FR_DISC',
6924: g_user_id,
6925: g_login_id,
6962: IF NOT x_valid THEN
6963: x_return_status := FND_API.G_RET_STS_ERROR;
6964: IF g_source = 'IMPORT' THEN
6965: IF (Insert_Rejections(
6966: 'AP_SUPPLIERS_INT',
6967: p_vendor_rec.vendor_interface_id,
6968: 'AP_INVALID_HOLD_UNMAT_INV',
6969: g_user_id,
6970: g_login_id,
7007: IF NOT x_valid THEN
7008: x_return_status := FND_API.G_RET_STS_ERROR;
7009: IF g_source = 'IMPORT' THEN
7010: IF (Insert_Rejections(
7011: 'AP_SUPPLIERS_INT',
7012: p_vendor_rec.vendor_interface_id,
7013: 'AP_INVALID_UNORD_RCV',
7014: g_user_id,
7015: g_login_id,
7053: IF NOT x_valid THEN
7054: x_return_status := FND_API.G_RET_STS_ERROR;
7055: IF g_source = 'IMPORT' THEN
7056: IF (Insert_Rejections(
7057: 'AP_SUPPLIERS_INT',
7058: p_vendor_rec.vendor_interface_id,
7059: 'AP_INVALID_SUBS_RCV',
7060: g_user_id,
7061: g_login_id,
7098: IF NOT x_valid THEN
7099: x_return_status := FND_API.G_RET_STS_ERROR;
7100: IF g_source = 'IMPORT' THEN
7101: IF (Insert_Rejections(
7102: 'AP_SUPPLIERS_INT',
7103: p_vendor_rec.vendor_interface_id,
7104: 'AP_INVALID_HOLD',
7105: g_user_id,
7106: g_login_id,
7143: IF NOT x_valid THEN
7144: x_return_status := FND_API.G_RET_STS_ERROR;
7145: IF g_source = 'IMPORT' THEN
7146: IF (Insert_Rejections(
7147: 'AP_SUPPLIERS_INT',
7148: p_vendor_rec.vendor_interface_id,
7149: 'AP_INVALID_SMALL_BUSINESS',
7150: g_user_id,
7151: g_login_id,
7188: IF NOT x_valid THEN
7189: x_return_status := FND_API.G_RET_STS_ERROR;
7190: IF g_source = 'IMPORT' THEN
7191: IF (Insert_Rejections(
7192: 'AP_SUPPLIERS_INT',
7193: p_vendor_rec.vendor_interface_id,
7194: 'AP_INVALID_WOMEN_OWNED',
7195: g_user_id,
7196: g_login_id,
7233: IF NOT x_valid THEN
7234: x_return_status := FND_API.G_RET_STS_ERROR;
7235: IF g_source = 'IMPORT' THEN
7236: IF (Insert_Rejections(
7237: 'AP_SUPPLIERS_INT',
7238: p_vendor_rec.vendor_interface_id,
7239: 'AP_INVALID_HOLD_FUT_PAY',
7240: g_user_id,
7241: g_login_id,
7278: IF NOT x_valid THEN
7279: x_return_status := FND_API.G_RET_STS_ERROR;
7280: IF g_source = 'IMPORT' THEN
7281: IF (Insert_Rejections(
7282: 'AP_SUPPLIERS_INT',
7283: p_vendor_rec.vendor_interface_id,
7284: 'AP_INVALID_HOLD_ALL_PAY',
7285: g_user_id,
7286: g_login_id,
7323: IF NOT x_valid THEN
7324: x_return_status := FND_API.G_RET_STS_ERROR;
7325: IF g_source = 'IMPORT' THEN
7326: IF (Insert_Rejections(
7327: 'AP_SUPPLIERS_INT',
7328: p_vendor_rec.vendor_interface_id,
7329: 'AP_INVALID_TAKE_DISC',
7330: g_user_id,
7331: g_login_id,
7367: IF NOT x_valid THEN
7368: x_return_status := FND_API.G_RET_STS_ERROR;
7369: IF g_source = 'IMPORT' THEN
7370: IF (Insert_Rejections(
7371: 'AP_SUPPLIERS_INT',
7372: p_vendor_rec.vendor_interface_id,
7373: 'AP_NULL_VENDOR_NUMBER', --bug5568861
7374: g_user_id,
7375: g_login_id,
7409: IF NOT x_valid THEN
7410: x_return_status := FND_API.G_RET_STS_ERROR;
7411: IF g_source = 'IMPORT' THEN
7412: IF (Insert_Rejections(
7413: 'AP_SUPPLIERS_INT',
7414: p_vendor_rec.vendor_interface_id,
7415: 'AP_INVALID_MATCH_OPTION',
7416: g_user_id,
7417: g_login_id,
7461: IF NOT x_valid THEN
7462: x_return_status := FND_API.G_RET_STS_ERROR;
7463: IF g_source = 'IMPORT' THEN
7464: IF (Insert_Rejections(
7465: 'AP_SUPPLIERS_INT',
7466: p_vendor_rec.vendor_interface_id,
7467: 'AP_INCONSISTENT_AWT_GROUP',
7468: g_user_id,
7469: g_login_id,
7517: IF NOT x_valid THEN
7518: x_return_status := FND_API.G_RET_STS_ERROR;
7519: IF g_source = 'IMPORT' THEN
7520: IF (Insert_Rejections(
7521: 'AP_SUPPLIERS_INT',
7522: p_vendor_rec.vendor_interface_id,
7523: 'AP_INCONSISTENT_AWT_GROUP',
7524: g_user_id,
7525: g_login_id,
7590: IF NOT x_valid THEN
7591: x_return_status := FND_API.G_RET_STS_ERROR;
7592: IF g_source = 'IMPORT' THEN
7593: IF (Insert_Rejections(
7594: 'AP_SUPPLIERS_INT',
7595: p_vendor_rec.vendor_interface_id,
7596: 'AP_INCONSISTENT_TERM',
7597: g_user_id,
7598: g_login_id,
7922: L_Zic_tax_classification_code ZX_PARTY_TAX_PROFILE.TAX_CLASSIFICATION_CODE%TYPE;
7923: VAT_CODE_EXCEPTION EXCEPTION;
7924: /* Bug11664523 end */
7925:
7926: l_employee_id ap_suppliers.employee_id%type; --bug 12835899
7927: l_create_awt_dists_type ap_system_parameters_all.create_awt_dists_type%type; --bug 13092500
7928:
7929: /* Bug 12334398 start */
7930: l_party_site_use_rec HZ_PARTY_SITE_V2PUB.party_site_use_rec_type;
8110:
8111: --bug 12835899
8112: select employee_id
8113: into l_employee_id
8114: from ap_suppliers
8115: where vendor_id = l_vendor_site_rec.vendor_id;
8116: --end of bug 12835899
8117:
8118: ap_apxvdmvd_pkg.initialize(
8460: -- locations are created only if the validation passes successfully.
8461: IF l_location_valid = 'N' AND nvl(l_val_return_status,FND_API.G_RET_STS_SUCCESS) =
8462: FND_API.G_RET_STS_SUCCESS THEN -- location_id was null
8463:
8464: l_location_rec.created_by_module := 'AP_SUPPLIERS_API';
8465: l_location_rec.application_id := 200;
8466: l_location_rec.address_style := l_vendor_site_rec.address_style;
8467: l_location_rec.province := l_vendor_site_rec.province;
8468: l_location_rec.country := l_vendor_site_rec.country;
8577: FND_API.G_RET_STS_SUCCESS THEN
8578:
8579: --populate party site record
8580: l_party_site_rec.location_id := l_vendor_site_rec.location_id;
8581: l_party_site_rec.created_by_module := 'AP_SUPPLIERS_API';
8582: l_party_site_rec.application_id := 200;
8583: l_party_site_rec.party_id := l_party_id;
8584:
8585: --Uncommenting the line below for the R12 FSIO gap,
8634: ) THEN
8635:
8636: l_party_site_use_rec.party_site_id := l_party_site_id;
8637: l_party_site_use_rec.status := 'A';
8638: l_party_site_use_rec.created_by_module:= 'AP_SUPPLIERS_API';
8639: l_party_site_use_rec.application_id :=200;
8640:
8641: IF(l_vendor_site_rec.pay_site_flag = 'Y') THEN
8642: l_party_site_use_rec.SITE_USE_TYPE := 'PAY';
10018: /* Bug 9804982 Start */
10019: BEGIN
10020: SELECT vendor_type_lookup_code
10021: INTO G_vendor_type_lookup_code
10022: FROM ap_suppliers
10023: WHERE vendor_id = p_vendor_site_rec.vendor_id;
10024:
10025: EXCEPTION
10026: WHEN NO_DATA_FOUND THEN
13951: l_per_rec.person_last_name := l_vendor_contact_rec.person_last_name;
13952: l_per_rec.person_title := l_vendor_contact_rec.person_title;
13953: l_per_rec.person_first_name_phonetic := l_vendor_contact_rec.person_first_name_phonetic;
13954: l_per_rec.person_last_name_phonetic := l_vendor_contact_rec.person_last_name_phonetic;
13955: l_per_rec.created_by_module := 'AP_SUPPLIERS_API';
13956: l_per_rec.application_id := 200;
13957:
13958: -- bug 6745669 - added attribute_category
13959: l_per_rec.attribute_category := l_vendor_contact_rec.attribute_category;
14066:
14067: /*checking proper approach
14068: l_party_usg_rec.party_id := l_per_party_id;
14069: l_party_usg_rec.party_usage_code := 'ORG_CONTACT';
14070: l_party_usg_rec.created_by_module := 'AP_SUPPLIERS_API';
14071:
14072: HZ_PARTY_USG_ASSIGNMENT_PVT.assign_party_usage(
14073: p_init_msg_list => FND_API.G_FALSE,
14074: p_party_usg_assignment_rec => l_party_usg_rec,
14088: l_rel_rec.object_table_name := 'HZ_PARTIES';
14089: l_rel_rec.relationship_code := 'CONTACT_OF';
14090: l_rel_rec.relationship_type := 'CONTACT';
14091: l_rel_rec.start_date := sysdate;
14092: l_rel_rec.created_by_module := 'AP_SUPPLIERS_API';
14093: l_rel_rec.application_id := 200;
14094:
14095: fnd_profile.get('HZ_GENERATE_PARTY_NUMBER', l_party_num);
14096: IF nvl(l_party_num, 'Y') = 'N' THEN
14105: l_org_contact_rec.department := l_vendor_contact_rec.department;
14106: -- job title [Bug 6648967]
14107: l_org_contact_rec.job_title := l_vendor_contact_rec.person_title;
14108: --contact_number
14109: l_org_contact_rec.created_by_module := 'AP_SUPPLIERS_API';
14110: l_org_contact_rec.application_id := 200;
14111: l_org_contact_rec.party_rel_rec := l_rel_rec;
14112:
14113: hz_party_contact_v2pub.create_org_contact(
14191:
14192: --populate party site record
14193: l_party_site_rec.mailstop := l_vendor_contact_rec.mail_stop;
14194: l_party_site_rec.location_id := l_location_id;
14195: l_party_site_rec.created_by_module := 'AP_SUPPLIERS_API';
14196: l_party_site_rec.application_id := 200;
14197: l_party_site_rec.party_id := l_vendor_contact_rec.rel_party_id;
14198: -- udhenuko Bug 6823885 start. Party site number populated based on profile.
14199: fnd_profile.get('HZ_GENERATE_PARTY_SITE_NUMBER', l_party_site_num);
14282:
14283: --populate contact point record
14284: l_contact_point_rec.owner_table_name := 'HZ_PARTIES';
14285: l_contact_point_rec.owner_table_id := l_vendor_contact_rec.rel_party_id;
14286: l_contact_point_rec.created_by_module := 'AP_SUPPLIERS_API';
14287: l_contact_point_rec.application_id := 200;
14288:
14289: IF l_vendor_contact_rec.phone IS NOT NULL THEN
14290:
15258: p_vendor_contact_rec.PARTY_SITE_NAME IS NULL and
15259: p_vendor_contact_rec.vendor_id IS NOT NULL THEN
15260: SELECT aps.party_id
15261: INTO x_org_party_id
15262: FROM AP_SUPPLIERS aps
15263: WHERE aps.vendor_id = p_vendor_contact_rec.vendor_id;
15264:
15265: x_party_site_valid := 'V';
15266: x_valid := TRUE;
15383: --
15384: -- first, get party_id of the Vendor for the vendor-site
15385: --
15386: Select party_id into l_vend_party_id
15387: from ap_suppliers
15388: where vendor_id = p_vendor_contact_rec.vendor_id ;
15389:
15390: -- populate all contact related details for the contact-vendor relationship.
15391: x_per_party_valid := 'V' ;
15740: l_party_id NUMBER;
15741:
15742: CURSOR vendor_int_cur IS
15743: SELECT *
15744: FROM Ap_Suppliers_Int
15745: WHERE import_request_id = l_request_id
15746: AND vendor_interface_id IS NOT NULL
15747: ORDER BY segment1;
15748:
15812: ELSE
15813:
15814: --udhenuko Bug 6823885 This update statement resets the unprocessed rows so
15815: -- that they get picked in the current run.
15816: UPDATE Ap_Suppliers_Int api
15817: SET import_request_id = NULL
15818: WHERE import_request_id IS NOT NULL
15819: AND NVL(status,'NEW') IN ('NEW', 'REJECTED')
15820: AND EXISTS
15824: AND fcr.phase_code = 'C' );
15825: -- udhenuko Bug 6823885 End
15826: --bug 5591652
15827: DELETE AP_SUPPLIER_INT_REJECTIONS
15828: WHERE PARENT_TABLE='AP_SUPPLIERS_INT';
15829: -- Updating Interface Record with request id
15830:
15831: UPDATE Ap_Suppliers_Int
15832: SET import_request_id = l_request_id
15827: DELETE AP_SUPPLIER_INT_REJECTIONS
15828: WHERE PARENT_TABLE='AP_SUPPLIERS_INT';
15829: -- Updating Interface Record with request id
15830:
15831: UPDATE Ap_Suppliers_Int
15832: SET import_request_id = l_request_id
15833: WHERE import_request_id IS NULL AND
15834: ((p_what_to_import = 'ALL' AND nvl(status,'NEW') in ('NEW', 'REJECTED')) OR
15835: (p_what_to_import = 'NEW' AND nvl(status,'NEW') = 'NEW') OR
15876:
15877: /* Added for bug#7711402 Start */
15878: IF length(vendor_int_rec.num_1099) > 20 THEN
15879:
15880: UPDATE Ap_Suppliers_Int
15881: SET status = 'REJECTED'
15882: WHERE vendor_interface_id = vendor_int_rec.vendor_interface_id;
15883:
15884: IF ( Insert_Rejections(
15881: SET status = 'REJECTED'
15882: WHERE vendor_interface_id = vendor_int_rec.vendor_interface_id;
15883:
15884: IF ( Insert_Rejections(
15885: 'AP_SUPPLIERS_INT',
15886: vendor_int_rec.vendor_interface_id,
15887: 'AP_INVALID_NUM_1099',
15888: g_user_id,
15889: g_login_id,
15932:
15933: IF l_unique <> 'Y'
15934: THEN
15935:
15936: UPDATE Ap_Suppliers_Int
15937: SET status = 'REJECTED'
15938: WHERE vendor_interface_id = vendor_int_rec.vendor_interface_id;
15939:
15940: IF ( Insert_Rejections(
15937: SET status = 'REJECTED'
15938: WHERE vendor_interface_id = vendor_int_rec.vendor_interface_id;
15939:
15940: IF ( Insert_Rejections(
15941: 'AP_SUPPLIERS_INT',
15942: vendor_int_rec.vendor_interface_id,
15943: 'POS_SPM_CREATE_SUPP_ERR2',
15944: g_user_id,
15945: g_login_id,
16068:
16069: IF l_unique <> 'Y'
16070: THEN
16071:
16072: UPDATE Ap_Suppliers_Int
16073: SET status = 'REJECTED'
16074: WHERE vendor_interface_id = vendor_int_rec.vendor_interface_id;
16075:
16076: IF ( Insert_Rejections(
16073: SET status = 'REJECTED'
16074: WHERE vendor_interface_id = vendor_int_rec.vendor_interface_id;
16075:
16076: IF ( Insert_Rejections(
16077: 'AP_SUPPLIERS_INT',
16078: vendor_int_rec.vendor_interface_id,
16079: 'POS_SPM_CREATE_SUPP_ERR1',
16080: g_user_id,
16081: g_login_id,
16211: x_party_id => l_party_id);
16212:
16213: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
16214:
16215: UPDATE Ap_Suppliers_Int
16216: SET status = 'PROCESSED'
16217: WHERE vendor_interface_id = vendor_rec.vendor_interface_id;
16218:
16219: UPDATE Ap_Supplier_Sites_Int
16315: If l_rollback_vendor = 'Y' then
16316:
16317: ROLLBACK TO Import_Vendor_PUB2;
16318:
16319: UPDATE Ap_Suppliers_Int
16320: SET status = 'REJECTED'
16321: WHERE vendor_interface_id = vendor_rec.vendor_interface_id;
16322:
16323: UPDATE iby_temp_ext_bank_accts
16365: -- Bug 9259355 End
16366:
16367: IF (Insert_Rejections(
16368: --'IBY_TEMP_EXT_BANK_ACCTS',
16369: 'AP_SUPPLIERS_INT', --bug 8275512
16370: vendor_rec.vendor_interface_id,
16371: 'AP_INVALID_BANK_ACCT_INFO',
16372: g_user_id,
16373: g_login_id,
16388: END IF;
16389: /*Bug 8275512 end*/
16390: ELSE
16391: IF (Insert_Rejections(
16392: 'AP_SUPPLIERS_INT',
16393: vendor_rec.vendor_interface_id,
16394: 'AP_PAYEE_CREATION',
16395: g_user_id,
16396: g_login_id,
16454: END IF;
16455: -- Bug 9259355 End
16456:
16457: IF (Insert_Rejections(
16458: 'AP_SUPPLIERS_INT',
16459: vendor_rec.vendor_interface_id,
16460: --'AP_INVALID_PAYEE',
16461: 'AP_INVALID_PAYEE_INFO',/*bug 7572325*/
16462: g_user_id,
16513: END IF; -- Payee Validation API
16514:
16515: ELSE
16516:
16517: UPDATE Ap_Suppliers_Int
16518: SET status = 'REJECTED'
16519: WHERE vendor_interface_id = vendor_rec.vendor_interface_id;
16520:
16521: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17552: FROM Ap_Sup_Site_Contact_Int
17553: WHERE import_request_id = l_request_id
17554: AND vendor_id IS NOT NULL
17555: --AND (org_id IS NOT NULL OR operating_unit_name IS NOT NULL ) /* Bug 12590128 */
17556: AND vendor_id not in(select vendor_id from ap_suppliers
17557: where vendor_type_lookup_code = 'EMPLOYEE') --Bug6648405
17558: -- Bug 7013954 Contacts can be created at Supplier level. So cannot mandate
17559: -- the site information to be present.
17560: -- AND (vendor_site_code IS NOT NULL OR vendor_site_id IS NOT NULL)
17620: -- Bug 7013954 Vendor site info no longer used for validation
17621: -- (vendor_site_code IS NULL and vendor_site_id IS NULL) OR
17622: (last_name IS NULL) OR
17623: --Bug7390094 - rejecting contacts for Employee type suppliers.
17624: (vendor_id in(select vendor_id from ap_suppliers
17625: where vendor_type_lookup_code = 'EMPLOYEE')));
17626:
17627: --bug 5591652
17628: insert into ap_supplier_int_rejections
17663: g_user_id,SYSDATE,g_login_id,g_user_id,SYSDATE
17664: from ap_sup_site_contact_int
17665: where status='REJECTED'
17666: AND import_request_id=l_request_id
17667: AND vendor_id in(select vendor_id from ap_suppliers
17668: where vendor_type_lookup_code = 'EMPLOYEE'));
17669:
17670: COMMIT;
17671:
17974: l_debug_info VARCHAR2(2000);
17975: l_parameter_list wf_parameter_list_t;
17976: l_event_key VARCHAR2(100);
17977: l_event_name VARCHAR2(100) := 'oracle.apps.ap.supplier.event';
17978: l_vendor_id AP_SUPPLIERS.vendor_id%TYPE;
17979: BEGIN
17980: l_debug_info := 'Called with parameters : i_vendor_id = '
17981: || to_char(i_vendor_id) || ', i_vendor_site_id = '
17982: || to_char(i_vendor_site_id) || ', i_vendor_contact_id = '
18106:
18107: AP_INVOICES_UTILITY_PKG.CHECK_GDF_VALID
18108: (p_vendor_id, --P_id
18109: 'SUP_IMP', --P_calling_mode
18110: 'AP_SUPPLIERS_INT', --P_table_name
18111: l_hold_reject_exists_flag, --P_hold_reject_exists_flag
18112: l_return_code, --p_return_code
18113: current_calling_sequence); --p_calling_sequence
18114: