10:
11:
12: -- replace * with column listing
13: PROCEDURE get_vendorsite_rec(
14: x IN OUT NOCOPY AP_VENDOR_PUB_PKG.r_vendor_site_rec_type,
15: p_vendorsite_id IN NUMBER,
16: p_vendor_id IN NUMBER) IS
17: BEGIN
18:
114: END;
115:
116: -- replace * with column listing
117: PROCEDURE get_vendor_rec(
118: x IN OUT NOCOPY AP_VENDOR_PUB_PKG.r_vendor_rec_type,
119: p_vendor_id IN NUMBER) IS
120: BEGIN
121: g_action := 'vendor details lookup';
122: IF l_debug_level <= 1 then
368: END;
369:
370:
371: PROCEDURE default_vendor_params
372: (r_vendor_rec IN OUT NOCOPY AP_VENDOR_PUB_PKG.r_vendor_rec_type,
373: vinfo_rec IN OUT NOCOPY vinfo_rec_type,
374: x_org IN OUT NOCOPY VARCHAR2)
375: IS
376: l_dummy_char VARCHAR2(200);
490: p_date IN DATE := NULL, /* controlarea.datetime */
491: p_org IN VARCHAR2, /* MOAC */
492: x_vinfo_rec OUT NOCOPY vinfo_rec_type
493: ) IS
494: r_vendor_rec AP_VENDOR_PUB_PKG.r_vendor_rec_type;
495: l_org_rec HZ_PARTY_V2PUB.organization_rec_type; --To Fix Bug :5186022
496: l_party_object_version_number NUMBER;
497: l_profile_id number;
498: l_party_number VARCHAR2(30);
622: IF l_debug_level <= 1 THEN
623: itg_debug_pub.add('Call to create vendor',1);
624: END IF;
625:
626: ap_vendor_pub_pkg.Create_Vendor(
627: p_api_version => '1.0',
628: x_return_status => l_ret_status,
629: x_msg_count => l_ret_count,
630: x_msg_data => l_ret_msg,
642: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
643: IF l_debug_level <= 6 THEN
644: itg_debug_pub.add('Error occured in Create Vendor',6);
645: END IF;
646: itg_msg.apicallret('Ap_vendor_pub_pkg.Create_Vendor',l_ret_status,substr(l_ret_msg,1,200));
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649:
650: g_action := 'verifying vendor_number';
743: IF (l_Debug_Level <= 1) THEN
744: itg_debug_pub.Add('SV - vendor_id'||r_vendor_rec.vendor_id ,1);
745: END IF;
746:
747: ap_vendor_pub_pkg.update_vendor(
748: p_api_version => '1.0',
749: x_return_status => l_ret_status,
750: x_msg_count => l_ret_count,
751: x_msg_data => l_ret_msg,
809: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
810: IF l_debug_level <= 6 THEN
811: itg_debug_pub.add('Error occured in update Vendor or update organization',6);
812: END IF;
813: itg_msg.apicallret('ap_vendor_pub_pkg.Update_vendor or hz_party_v2pub.update_organization returns-',l_ret_status,substr(l_ret_msg,1,200));
814: RAISE FND_API.G_EXC_ERROR;
815: END IF;
816:
817:
962: l_party_id NUMBER;
963: l_location_id NUMBER;
964: l_ven_rec ap_vendors_v%ROWTYPE;
965: l_api_name VARCHAR2(50);
966: l_vendorsite_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;
967: p_location_rec HZ_LOCATION_V2PUB.LOCATION_REC_TYPE;
968: p_object_version_number NUMBER;
969: l_ship_to_location_id financials_system_params_all.ship_to_location_id%TYPE;
970: l_bill_to_location_id financials_system_params_all.bill_to_location_id%TYPE;
1164: l_vendorsite_rec.match_option := 'P';
1165: l_vendorsite_rec.vendor_id := p_vinfo_rec.vendor_id;
1166: l_vendorsite_rec.org_id := p_org;
1167:
1168: l_api_name := 'ap_vendor_pub_pkg.create_vendor_site';
1169: ap_vendor_pub_pkg.create_vendor_site
1170: (
1171: p_api_version => '1.0',
1172: x_return_status => l_return_status,
1165: l_vendorsite_rec.vendor_id := p_vinfo_rec.vendor_id;
1166: l_vendorsite_rec.org_id := p_org;
1167:
1168: l_api_name := 'ap_vendor_pub_pkg.create_vendor_site';
1169: ap_vendor_pub_pkg.create_vendor_site
1170: (
1171: p_api_version => '1.0',
1172: x_return_status => l_return_status,
1173: x_msg_count => l_msg_count,
1228:
1229: IF (l_Debug_Level <= 1) THEN
1230: itg_debug_pub.add('Calling ap_vendors_pub_pkg.update_vendor_site');
1231: END IF;
1232: l_api_name := 'ap_vendor_pub_pkg.update_vendor_site';
1233: ap_vendor_pub_pkg.update_vendor_site
1234: (
1235: p_api_version => '1.0',
1236: x_return_status => l_return_status,
1229: IF (l_Debug_Level <= 1) THEN
1230: itg_debug_pub.add('Calling ap_vendors_pub_pkg.update_vendor_site');
1231: END IF;
1232: l_api_name := 'ap_vendor_pub_pkg.update_vendor_site';
1233: ap_vendor_pub_pkg.update_vendor_site
1234: (
1235: p_api_version => '1.0',
1236: x_return_status => l_return_status,
1237: x_msg_count => l_msg_count,
1380: p_site_code IN VARCHAR2, /* userarea.ref_sitecode */
1381:
1382: p_vinfo_rec IN vinfo_rec_type
1383: ) IS
1384: r_vendor_contact_rec ap_vendor_pub_pkg.r_vendor_contact_rec_type;
1385: l_found Boolean;
1386: l_ret_status varchar2(20);
1387: l_msg_data varchar2(2000);
1388: l_ret_msg varchar2(2000);
1479: r_vendor_contact_rec.VENDOR_SITE_ID := l_vsite_id;
1480: r_vendor_contact_rec.VENDOR_ID := p_vinfo_rec.vendor_id;
1481: r_vendor_contact_rec.PERSON_TITLE := p_title;
1482:
1483: Ap_vendor_pub_pkg.Create_Vendor_Contact
1484: (
1485: p_api_version => 1.0,
1486: x_return_status => l_ret_status,
1487: x_msg_count => l_msg_count,
1504: itg_debug_pub.Add('l_party_site_id - ' || l_party_site_id,1 );
1505: END IF;
1506:
1507: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1508: itg_msg.apicallret('Ap_vendor_pub_pkg.Create_Vendor_Contact',l_ret_status,l_msg_data);
1509: RAISE FND_API.G_EXC_ERROR;
1510: END IF;
1511: ELSE
1512: g_action := 'Vendor-contact record update';