[Home] [Help]
22:
23: G_Vendor_Type_Lookup_Code VARCHAR2(30);
24:
25: -- Global Constants to set null
26: ap_null_num CONSTANT NUMBER := FND_API.G_NULL_NUM;
27: ap_null_char CONSTANT VARCHAR2(1) := FND_API.G_NULL_CHAR;
28: ap_null_date CONSTANT DATE := FND_API.G_NULL_DATE;
29:
30: --Function: Insert_Rejections
23: G_Vendor_Type_Lookup_Code VARCHAR2(30);
24:
25: -- Global Constants to set null
26: ap_null_num CONSTANT NUMBER := FND_API.G_NULL_NUM;
27: ap_null_char CONSTANT VARCHAR2(1) := FND_API.G_NULL_CHAR;
28: ap_null_date CONSTANT DATE := FND_API.G_NULL_DATE;
29:
30: --Function: Insert_Rejections
31: --This function is called whenever the process needs to insert a
24:
25: -- Global Constants to set null
26: ap_null_num CONSTANT NUMBER := FND_API.G_NULL_NUM;
27: ap_null_char CONSTANT VARCHAR2(1) := FND_API.G_NULL_CHAR;
28: ap_null_date CONSTANT DATE := FND_API.G_NULL_DATE;
29:
30: --Function: Insert_Rejections
31: --This function is called whenever the process needs to insert a
32: --rejection into new supplier interface rejection table.
1041: BEGIN
1042: l_ret_value := 'Y';
1043: l_legislative_cat_code := 'INCOME_TAX';
1044: l_required_flag := 'Y'; --7442513
1045: l_return_status := FND_API.G_RET_STS_SUCCESS;
1046:
1047: IF (p_country = 'US') THEN
1048: FV_AP_TIN_PKG.TIN_VALIDATE(p_taxpayer_id, l_outcome, l_out_msg);
1049: ELSIF (p_country = 'IT') THEN
1086: l_ret_value := 'N';
1087: END IF;
1088: END IF;
1089: IF p_country IN ('IT','ES','PT') THEN
1090: IF l_return_status = FND_API.G_RET_STS_ERROR
1091: THEN
1092: FND_MESSAGE.SET_NAME('XLE', 'XLE_INVALID_REG_NUM_ERR');
1093: FND_MESSAGE.SET_TOKEN('REG_CODE', l_registration_code);
1094: FND_MESSAGE.SET_TOKEN('REG_NUM', p_taxpayer_id);
1952:
1953: BEGIN
1954: x_valid := TRUE;
1955:
1956: IF ((p_pay_on_receipt_summary_code is NULL) or(p_pay_on_receipt_summary_code=fnd_api.g_null_char )) THEN --Bug8512030
1957: p_pay_on_receipt_summary_code := 'PAY_SITE';
1958:
1959: ELSIF p_pay_on_receipt_summary_code is NOT NULL THEN
1960:
3371:
3372:
3373: PROCEDURE Create_Vendor
3374: ( p_api_version IN NUMBER,
3375: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
3376: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3377: p_validation_level IN NUMBER :=
3378: FND_API.G_VALID_LEVEL_FULL,
3379: x_return_status OUT NOCOPY VARCHAR2 ,
3372:
3373: PROCEDURE Create_Vendor
3374: ( p_api_version IN NUMBER,
3375: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
3376: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3377: p_validation_level IN NUMBER :=
3378: FND_API.G_VALID_LEVEL_FULL,
3379: x_return_status OUT NOCOPY VARCHAR2 ,
3380: x_msg_count OUT NOCOPY NUMBER,
3374: ( p_api_version IN NUMBER,
3375: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
3376: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3377: p_validation_level IN NUMBER :=
3378: FND_API.G_VALID_LEVEL_FULL,
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,
3514: l_debug_info VARCHAR2(500); -- Bug 6823885
3515:
3516: l_contact_point_rec HZ_CONTACT_POINT_V2PUB.contact_point_rec_type; --B 7831956
3517: l_url_rec HZ_CONTACT_POINT_V2PUB.web_rec_type; --B 7831956
3518: l_url_return_status VARCHAR2(50) := FND_API.G_RET_STS_SUCCESS; --B 7831956
3519: l_url_msg_count NUMBER; --B 7831956
3520: l_url_msg_data VARCHAR2(1000); --B 7831956
3521: l_url_contact_point_id NUMBER; --B 7831956
3522:
3531: -- Standard Start of API savepoint
3532: SAVEPOINT Create_Vendor_PUB;
3533:
3534: -- Standard call to check for call compatibility.
3535: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3536: p_api_version ,
3537: l_api_name ,
3538: G_PKG_NAME )
3539: THEN
3536: p_api_version ,
3537: l_api_name ,
3538: G_PKG_NAME )
3539: THEN
3540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3541: END IF;
3542:
3543: -- Initialize message list if p_init_msg_list is set to TRUE.
3544: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3541: END IF;
3542:
3543: -- Initialize message list if p_init_msg_list is set to TRUE.
3544: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3545: FND_MSG_PUB.initialize;
3546: END IF;
3547:
3548: -- Initialize API return status to success
3545: FND_MSG_PUB.initialize;
3546: END IF;
3547:
3548: -- Initialize API return status to success
3549: x_return_status := FND_API.G_RET_STS_SUCCESS;
3550: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
3551: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
3552: l_pay_return_status := FND_API.G_RET_STS_SUCCESS;
3553: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
3546: END IF;
3547:
3548: -- Initialize API return status to success
3549: x_return_status := FND_API.G_RET_STS_SUCCESS;
3550: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
3551: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
3552: l_pay_return_status := FND_API.G_RET_STS_SUCCESS;
3553: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
3554:
3547:
3548: -- Initialize API return status to success
3549: x_return_status := FND_API.G_RET_STS_SUCCESS;
3550: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
3551: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
3552: l_pay_return_status := FND_API.G_RET_STS_SUCCESS;
3553: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
3554:
3555: -- API body
3548: -- Initialize API return status to success
3549: x_return_status := FND_API.G_RET_STS_SUCCESS;
3550: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
3551: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
3552: l_pay_return_status := FND_API.G_RET_STS_SUCCESS;
3553: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
3554:
3555: -- API body
3556:
3549: x_return_status := FND_API.G_RET_STS_SUCCESS;
3550: l_org_return_status := FND_API.G_RET_STS_SUCCESS;
3551: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
3552: l_pay_return_status := FND_API.G_RET_STS_SUCCESS;
3553: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
3554:
3555: -- API body
3556:
3557: -- Run initialize and get required default values
3647: l_vendor_rec.exclude_freight_from_discount
3648: := nvl(l_vendor_rec.exclude_freight_from_discount, 'N');
3649:
3650: validate_vendor(p_api_version => 1.0,
3651: p_init_msg_list => FND_API.G_FALSE,
3652: p_commit => FND_API.G_FALSE,
3653: x_return_status => l_val_return_status,
3654: x_msg_count => l_val_msg_count,
3655: x_msg_data => l_val_msg_data,
3648: := nvl(l_vendor_rec.exclude_freight_from_discount, 'N');
3649:
3650: validate_vendor(p_api_version => 1.0,
3651: p_init_msg_list => FND_API.G_FALSE,
3652: p_commit => FND_API.G_FALSE,
3653: x_return_status => l_val_return_status,
3654: x_msg_count => l_val_msg_count,
3655: x_msg_data => l_val_msg_data,
3656: p_vendor_rec => l_vendor_rec,
3663:
3664: --bug 6371419.Added the below if clause to create a party in hz,external payee
3665: --in iby,tax code assignment in zx,supplier in AP only if the
3666: --SUPPLIER IS VALID.
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';
3710: l_org_rec.ceo_name := l_vendor_rec.ceo_name ; -- B 9081643
3711: l_org_rec.ceo_title := l_vendor_rec.ceo_title ; -- B 9081643
3712:
3713: hz_party_v2pub.create_organization(
3714: p_init_msg_list => FND_API.G_FALSE,
3715: p_organization_rec => l_org_rec,
3716: p_party_usage_code => 'SUPPLIER',
3717: -- p_commit => FND_API.G_FALSE,
3718: x_return_status => l_org_return_status,
3713: hz_party_v2pub.create_organization(
3714: p_init_msg_list => FND_API.G_FALSE,
3715: p_organization_rec => l_org_rec,
3716: p_party_usage_code => 'SUPPLIER',
3717: -- p_commit => FND_API.G_FALSE,
3718: x_return_status => l_org_return_status,
3719: x_msg_count => l_org_msg_count,
3720: x_msg_data => l_org_msg_data,
3721: x_party_id => l_org_party_id,
3720: x_msg_data => l_org_msg_data,
3721: x_party_id => l_org_party_id,
3722: x_party_number => l_org_party_number,
3723: x_profile_id => l_org_profile_id);
3724: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3725: ------------------------------------------------------------------------
3726: l_debug_info := 'After call to hz_party_v2pub.create_organization';
3727: l_debug_info := l_debug_info||' Return status : '||l_org_return_status||' Error : '||l_org_msg_data;
3728: ------------------------------------------------------------------------
3754: l_url_rec.web_type := 'HTTP';
3755: l_url_rec.url := l_vendor_rec.url ;
3756:
3757: hz_contact_point_v2pub.create_web_contact_point(
3758: p_init_msg_list => FND_API.G_FALSE,
3759: p_contact_point_rec => l_contact_point_rec,
3760: p_web_rec => l_url_rec,
3761: --p_commit => FND_API.G_FALSE,
3762: x_return_status => l_url_return_status,
3757: hz_contact_point_v2pub.create_web_contact_point(
3758: p_init_msg_list => FND_API.G_FALSE,
3759: p_contact_point_rec => l_contact_point_rec,
3760: p_web_rec => l_url_rec,
3761: --p_commit => FND_API.G_FALSE,
3762: x_return_status => l_url_return_status,
3763: x_msg_count => l_url_msg_count,
3764: x_msg_data => l_url_msg_data,
3765: x_contact_point_id => l_url_contact_point_id);
3762: x_return_status => l_url_return_status,
3763: x_msg_count => l_url_msg_count,
3764: x_msg_data => l_url_msg_data,
3765: x_contact_point_id => l_url_contact_point_id);
3766: IF l_url_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3767: ------------------------------------------------------------------------
3768: l_debug_info := 'After call to hz_contact_point_v2pub.create_web_contact_point';
3769: l_debug_info := l_debug_info||' Return status : '||l_url_return_status||' Error : '||l_url_msg_data;
3770: ------------------------------------------------------------------------
3786: p_party_usg_assignment_rec => l_party_usg_rec,
3787: x_return_status => l_org_return_status,
3788: x_msg_count => l_org_msg_count,
3789: x_msg_data => l_org_msg_data);
3790: IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3791: ------------------------------------------------------------------------
3792: l_debug_info := 'After call to HZ_PARTY_USG_ASSIGNMENT_PVT.assign_party_usage';
3793: l_debug_info := l_debug_info||' Return status : '||l_org_return_status||' Error : '||l_org_msg_data;
3794: ------------------------------------------------------------------------
3843:
3844: /* Calling IBY Payee Creation API */
3845: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee
3846: ( p_api_version => 1.0,
3847: p_init_msg_list => FND_API.G_FALSE,
3848: p_ext_payee_tab => ext_payee_tab,
3849: x_return_status => l_pay_return_status,
3850: x_msg_count => l_pay_msg_count,
3851: x_msg_data => l_pay_msg_data,
3850: x_msg_count => l_pay_msg_count,
3851: x_msg_data => l_pay_msg_data,
3852: x_ext_payee_id_tab => ext_payee_id_tab,
3853: X_Ext_Payee_Status_Tab => Ext_Payee_Create_Tab);
3854: IF l_pay_return_status <> FND_API.G_RET_STS_SUCCESS THEN /*Bug9955876*/
3855: ------------------------------------------------------------------------
3856: l_debug_info := 'After call to IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee';
3857: l_debug_info := l_debug_info||' Return status : '||l_pay_return_status||' Error : '||l_pay_msg_data;
3858: ------------------------------------------------------------------------
3855: ------------------------------------------------------------------------
3856: l_debug_info := 'After call to IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee';
3857: l_debug_info := l_debug_info||' Return status : '||l_pay_return_status||' Error : '||l_pay_msg_data;
3858: ------------------------------------------------------------------------
3859: Raise FND_API.G_EXC_UNEXPECTED_ERROR ; /*Bug9955876 */
3860:
3861: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3862: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3863: END IF;
3874: p_class_code => p_vendor_rec.vendor_type_lookup_code,
3875: x_return_status => l_zx_return_status,
3876: x_msg_count => l_zx_msg_count,
3877: x_msg_data => l_zx_msg_data );
3878: IF l_zx_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3879: ------------------------------------------------------------------------
3880: l_debug_info := 'After call to zx_tcm_bes_registration_pvt.synch_ptp_code_assigment';
3881: l_debug_info := l_debug_info||' Return status : '||l_zx_return_status||' Error : '||l_zx_msg_data;
3882: ------------------------------------------------------------------------
3975: P_REGISTRATION_TYPE_CODE => null,
3976: P_COUNTRY_CODE => null
3977: );
3978:
3979: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3980: l_debug_info := 'ZX_PARTY_TAX_PROFILE_PKG.update_row';
3981: l_debug_info := l_debug_info||' Return status : '||l_return_status;
3982: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3983: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3987: END IF;
3988: -- B 9202909 ... end
3989:
3990: --bug 6371419.commented the below condition as it was checked already
3991: -- IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) AND
3992: IF (l_org_return_status = FND_API.G_RET_STS_SUCCESS) AND
3993: (l_payee_valid = 'N' OR
3994: l_pay_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3995:
3988: -- B 9202909 ... end
3989:
3990: --bug 6371419.commented the below condition as it was checked already
3991: -- IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) AND
3992: IF (l_org_return_status = FND_API.G_RET_STS_SUCCESS) AND
3993: (l_payee_valid = 'N' OR
3994: l_pay_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3995:
3996: ap_vendors_pkg.insert_row(
3990: --bug 6371419.commented the below condition as it was checked already
3991: -- IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) AND
3992: IF (l_org_return_status = FND_API.G_RET_STS_SUCCESS) AND
3993: (l_payee_valid = 'N' OR
3994: l_pay_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3995:
3996: ap_vendors_pkg.insert_row(
3997: p_vendor_rec => l_vendor_rec
3998: ,p_last_update_date => sysdate
4021: l_sync_return_status,
4022: l_sync_msg_count,
4023: l_sync_msg_data,
4024: l_vendor_rec.party_id);
4025: IF l_sync_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4026: ------------------------------------------------------------------------
4027: l_debug_info := 'After call to AP_TCA_SUPPLIER_SYNC_PKG.SYNC_Supplier';
4028: l_debug_info := l_debug_info||' Return status : '||l_sync_return_status||' Error : '||l_sync_msg_data;
4029: ------------------------------------------------------------------------
4031: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
4032: END IF;
4033: END IF;
4034:
4035: IF l_sync_return_status = FND_API.G_RET_STS_SUCCESS THEN
4036: Raise_Supplier_Event( i_vendor_id => l_vendor_id ); -- Bug 7307669
4037: x_return_status := FND_API.G_RET_STS_SUCCESS;
4038: END IF;
4039: -- Bug 5570585
4033: END IF;
4034:
4035: IF l_sync_return_status = FND_API.G_RET_STS_SUCCESS THEN
4036: Raise_Supplier_Event( i_vendor_id => l_vendor_id ); -- Bug 7307669
4037: x_return_status := FND_API.G_RET_STS_SUCCESS;
4038: END IF;
4039: -- Bug 5570585
4040: x_party_id := nvl(l_vendor_rec.party_id,l_org_party_id);
4041: x_vendor_id := l_vendor_id;
4041: x_vendor_id := l_vendor_id;
4042:
4043: END IF; --bug6371419.end of l_org_return_status SUCCESS
4044:
4045: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4046: (l_org_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4047: (l_pay_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4048: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4049:
4042:
4043: END IF; --bug6371419.end of l_org_return_status SUCCESS
4044:
4045: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4046: (l_org_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4047: (l_pay_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4048: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4049:
4050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4043: END IF; --bug6371419.end of l_org_return_status SUCCESS
4044:
4045: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4046: (l_org_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4047: (l_pay_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4048: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4049:
4050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4051:
4044:
4045: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4046: (l_org_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4047: (l_pay_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4048: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4049:
4050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4051:
4052: ELSE
4046: (l_org_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4047: (l_pay_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
4048: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4049:
4050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4051:
4052: ELSE
4053:
4054: x_return_status := FND_API.G_RET_STS_ERROR;
4050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4051:
4052: ELSE
4053:
4054: x_return_status := FND_API.G_RET_STS_ERROR;
4055: END IF; --Supplier Valid
4056:
4057: -- End of API body.
4058:
4056:
4057: -- End of API body.
4058:
4059: -- Standard check of p_commit.
4060: IF FND_API.To_Boolean( p_commit ) THEN
4061: COMMIT WORK;
4062: END IF;
4063:
4064: -- Standard call to get message count and if count is 1,
4068: p_data => x_msg_data
4069: );
4070:
4071: EXCEPTION
4072: WHEN FND_API.G_EXC_ERROR THEN
4073: ROLLBACK TO Create_Vendor_PUB;
4074: x_return_status := FND_API.G_RET_STS_ERROR ;
4075: FND_MSG_PUB.Count_And_Get
4076: ( p_count => x_msg_count,
4070:
4071: EXCEPTION
4072: WHEN FND_API.G_EXC_ERROR THEN
4073: ROLLBACK TO Create_Vendor_PUB;
4074: x_return_status := FND_API.G_RET_STS_ERROR ;
4075: FND_MSG_PUB.Count_And_Get
4076: ( p_count => x_msg_count,
4077: p_data => x_msg_data
4078: );
4075: FND_MSG_PUB.Count_And_Get
4076: ( p_count => x_msg_count,
4077: p_data => x_msg_data
4078: );
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4080: ROLLBACK TO Create_Vendor_PUB;
4081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4082: FND_MSG_PUB.Count_And_Get
4083: ( p_count => x_msg_count,
4077: p_data => x_msg_data
4078: );
4079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4080: ROLLBACK TO Create_Vendor_PUB;
4081: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4082: FND_MSG_PUB.Count_And_Get
4083: ( p_count => x_msg_count,
4084: p_data => x_msg_data
4085: );
4084: p_data => x_msg_data
4085: );
4086: WHEN OTHERS THEN
4087: ROLLBACK TO Create_Vendor_PUB;
4088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4089: IF FND_MSG_PUB.Check_Msg_Level
4090: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4091: FND_MSG_PUB.Add_Exc_Msg
4092: ( G_PKG_NAME ,
4100: END Create_Vendor;
4101:
4102: PROCEDURE Update_Vendor
4103: ( p_api_version IN NUMBER,
4104: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
4105: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4106: p_validation_level IN NUMBER :=
4107: FND_API.G_VALID_LEVEL_FULL,
4108: x_return_status OUT NOCOPY VARCHAR2 ,
4101:
4102: PROCEDURE Update_Vendor
4103: ( p_api_version IN NUMBER,
4104: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
4105: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4106: p_validation_level IN NUMBER :=
4107: FND_API.G_VALID_LEVEL_FULL,
4108: x_return_status OUT NOCOPY VARCHAR2 ,
4109: x_msg_count OUT NOCOPY NUMBER,
4103: ( p_api_version IN NUMBER,
4104: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
4105: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4106: p_validation_level IN NUMBER :=
4107: FND_API.G_VALID_LEVEL_FULL,
4108: x_return_status OUT NOCOPY VARCHAR2 ,
4109: x_msg_count OUT NOCOPY NUMBER,
4110: x_msg_data OUT NOCOPY VARCHAR2,
4111: p_vendor_rec IN r_vendor_rec_type,
4142: -- Standard Start of API savepoint
4143: SAVEPOINT Update_Vendor_PUB;
4144:
4145: -- Standard call to check for call compatibility.
4146: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
4147: p_api_version ,
4148: l_api_name ,
4149: G_PKG_NAME )
4150: THEN
4147: p_api_version ,
4148: l_api_name ,
4149: G_PKG_NAME )
4150: THEN
4151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4152: END IF;
4153:
4154: -- Initialize message list if p_init_msg_list is set to TRUE.
4155: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4152: END IF;
4153:
4154: -- Initialize message list if p_init_msg_list is set to TRUE.
4155: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4156: FND_MSG_PUB.initialize;
4157: END IF;
4158:
4159: -- Initialize API return status to success
4156: FND_MSG_PUB.initialize;
4157: END IF;
4158:
4159: -- Initialize API return status to success
4160: x_return_status := FND_API.G_RET_STS_SUCCESS;
4161: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
4162:
4163:
4164: -- API body
4157: END IF;
4158:
4159: -- Initialize API return status to success
4160: x_return_status := FND_API.G_RET_STS_SUCCESS;
4161: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
4162:
4163:
4164: -- API body
4165:
4173:
4174: l_vendor_rec := p_vendor_rec;
4175:
4176: validate_vendor(p_api_version => 1.0,
4177: p_init_msg_list => FND_API.G_FALSE,
4178: p_commit => FND_API.G_FALSE,
4179: x_return_status => l_val_return_status,
4180: x_msg_count => l_val_msg_count,
4181: x_msg_data => l_val_msg_data,
4174: l_vendor_rec := p_vendor_rec;
4175:
4176: validate_vendor(p_api_version => 1.0,
4177: p_init_msg_list => FND_API.G_FALSE,
4178: p_commit => FND_API.G_FALSE,
4179: x_return_status => l_val_return_status,
4180: x_msg_count => l_val_msg_count,
4181: x_msg_data => l_val_msg_data,
4182: p_vendor_rec => l_vendor_rec,
4185: x_party_valid => l_party_valid,
4186: x_payee_valid => l_payee_valid,
4187: p_vendor_id => p_vendor_id );
4188:
4189: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4190:
4191: -- Select all the values needed to pass to update_row
4192: -- from PO_VENDORS
4193: SELECT
4722: l_sync_msg_count,
4723: l_sync_msg_data,
4724: l_vendor_rec.party_id);
4725:
4726: IF l_sync_return_status = FND_API.G_RET_STS_SUCCESS THEN
4727: Raise_Supplier_Event( i_vendor_id => p_vendor_id ); -- Bug 7307669
4728: x_return_status := FND_API.G_RET_STS_SUCCESS;
4729: END IF;
4730:
4724: l_vendor_rec.party_id);
4725:
4726: IF l_sync_return_status = FND_API.G_RET_STS_SUCCESS THEN
4727: Raise_Supplier_Event( i_vendor_id => p_vendor_id ); -- Bug 7307669
4728: x_return_status := FND_API.G_RET_STS_SUCCESS;
4729: END IF;
4730:
4731: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4732: l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4727: Raise_Supplier_Event( i_vendor_id => p_vendor_id ); -- Bug 7307669
4728: x_return_status := FND_API.G_RET_STS_SUCCESS;
4729: END IF;
4730:
4731: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4732: l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4733:
4734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4735:
4728: x_return_status := FND_API.G_RET_STS_SUCCESS;
4729: END IF;
4730:
4731: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4732: l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4733:
4734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4735:
4736: ELSE
4730:
4731: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
4732: l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4733:
4734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4735:
4736: ELSE
4737:
4738: x_return_status := FND_API.G_RET_STS_ERROR;
4734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4735:
4736: ELSE
4737:
4738: x_return_status := FND_API.G_RET_STS_ERROR;
4739: END IF;
4740:
4741: --set access mode back to original value
4742: IF l_org_context <> mo_global.get_access_mode THEN
4745:
4746: -- End of API body.
4747:
4748: -- Standard check of p_commit.
4749: IF FND_API.To_Boolean( p_commit ) THEN
4750: COMMIT WORK;
4751: END IF;
4752:
4753: -- Standard call to get message count and if count is 1,
4757: p_data => x_msg_data
4758: );
4759:
4760: EXCEPTION
4761: WHEN FND_API.G_EXC_ERROR THEN
4762: ROLLBACK TO Update_Vendor_PUB;
4763: x_return_status := FND_API.G_RET_STS_ERROR ;
4764: FND_MSG_PUB.Count_And_Get
4765: ( p_count => x_msg_count,
4759:
4760: EXCEPTION
4761: WHEN FND_API.G_EXC_ERROR THEN
4762: ROLLBACK TO Update_Vendor_PUB;
4763: x_return_status := FND_API.G_RET_STS_ERROR ;
4764: FND_MSG_PUB.Count_And_Get
4765: ( p_count => x_msg_count,
4766: p_data => x_msg_data
4767: );
4764: FND_MSG_PUB.Count_And_Get
4765: ( p_count => x_msg_count,
4766: p_data => x_msg_data
4767: );
4768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4769: ROLLBACK TO Update_Vendor_PUB;
4770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4771: FND_MSG_PUB.Count_And_Get
4772: ( p_count => x_msg_count,
4766: p_data => x_msg_data
4767: );
4768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4769: ROLLBACK TO Update_Vendor_PUB;
4770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4771: FND_MSG_PUB.Count_And_Get
4772: ( p_count => x_msg_count,
4773: p_data => x_msg_data
4774: );
4773: p_data => x_msg_data
4774: );
4775: WHEN OTHERS THEN
4776: ROLLBACK TO Update_Vendor_PUB;
4777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4778: IF FND_MSG_PUB.Check_Msg_Level
4779: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4780: FND_MSG_PUB.Add_Exc_Msg
4781: ( G_PKG_NAME ,
4789: END Update_Vendor;
4790:
4791: PROCEDURE Validate_Vendor
4792: ( p_api_version IN NUMBER,
4793: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
4794: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4795: p_validation_level IN NUMBER :=
4796: FND_API.G_VALID_LEVEL_FULL,
4797: x_return_status OUT NOCOPY VARCHAR2 ,
4790:
4791: PROCEDURE Validate_Vendor
4792: ( p_api_version IN NUMBER,
4793: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
4794: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4795: p_validation_level IN NUMBER :=
4796: FND_API.G_VALID_LEVEL_FULL,
4797: x_return_status OUT NOCOPY VARCHAR2 ,
4798: x_msg_count OUT NOCOPY NUMBER,
4792: ( p_api_version IN NUMBER,
4793: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
4794: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4795: p_validation_level IN NUMBER :=
4796: FND_API.G_VALID_LEVEL_FULL,
4797: x_return_status OUT NOCOPY VARCHAR2 ,
4798: x_msg_count OUT NOCOPY NUMBER,
4799: x_msg_data OUT NOCOPY VARCHAR2,
4800: p_vendor_rec IN OUT NOCOPY r_vendor_rec_type,
4829: -- Standard Start of API savepoint
4830: SAVEPOINT Validate_Vendor_PUB;
4831:
4832: -- Standard call to check for call compatibility.
4833: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
4834: p_api_version ,
4835: l_api_name ,
4836: G_PKG_NAME )
4837: THEN
4834: p_api_version ,
4835: l_api_name ,
4836: G_PKG_NAME )
4837: THEN
4838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4839: END IF;
4840:
4841: -- Initialize message list if p_init_msg_list is set to TRUE.
4842: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4839: END IF;
4840:
4841: -- Initialize message list if p_init_msg_list is set to TRUE.
4842: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4843: FND_MSG_PUB.initialize;
4844: END IF;
4845:
4846: -- Initialize API return status to success
4843: FND_MSG_PUB.initialize;
4844: END IF;
4845:
4846: -- Initialize API return status to success
4847: x_return_status := FND_API.G_RET_STS_SUCCESS;
4848:
4849: -- API body
4850:
4851: -- Open Issue 7 Call eTax Validation
4864:
4865: Validate_Lookups( 'INSPECTION_REQUIRED_FLAG', p_vendor_rec.inspection_required_flag,'YES/NO',
4866: 'PO_LOOKUP_CODES',x_valid);
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,
4916: AND LOOKUP_CODE = p_vendor_rec.VAT_CODE );
4917:
4918:
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,
4967:
4968: Validate_Lookups( 'RECEIPT_REQUIRED_FLAG', p_vendor_rec.receipt_required_flag,'YES/NO',
4969: 'PO_LOOKUP_CODES',x_valid);
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,
5011: Check_payment_priority(p_vendor_rec.payment_priority,
5012: x_valid
5013: );
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,
5054: p_vendor_rec.federal_reportable_flag,
5055: x_valid
5056: );
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,
5153:
5154: IF(is_taxpayer_id_valid(p_vendor_rec.jgzz_fiscal_code,
5155: l_default_country_code) = 'N') THEN
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,
5194: --
5195: -- start added by abhsaxen for bug 7147735
5196: IF (p_vendor_rec.employee_id is null AND
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,
5218: END IF;
5219: END IF;
5220: -- end added by abhsaxen for bug 7147735
5221: IF p_vendor_rec.employee_id is NOT NULL
5222: AND p_vendor_rec.employee_id <> fnd_api.g_miss_num THEN
5223: Check_Valid_Employee (p_vendor_rec.employee_id,
5224: x_valid);
5225: IF NOT x_valid THEN
5226: x_return_status := FND_API.G_RET_STS_ERROR;
5222: AND p_vendor_rec.employee_id <> fnd_api.g_miss_num THEN
5223: Check_Valid_Employee (p_vendor_rec.employee_id,
5224: x_valid);
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,
5258: TRUNC(ppf.effective_start_date) AND
5259: TRUNC(ppf.effective_end_date);
5260: EXCEPTION
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,
5305: p_vendor_rec.receipt_required_flag,
5306: x_valid
5307: );
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,
5347: AND p_vendor_rec.name_control <> ap_null_char THEN
5348: Check_Valid_name_control(p_vendor_rec.name_control,
5349: x_valid);
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,
5395: x_valid
5396: );
5397:
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,
5439: Check_Valid_Sob_Id(p_vendor_rec.set_of_books_id,
5440: x_valid);
5441:
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,
5482: p_vendor_rec.employee_id,
5483: x_valid);
5484:
5485: IF NOT x_valid THEN
5486: x_return_status := FND_API.G_RET_STS_ERROR;
5487: END IF;
5488: END IF;
5489:
5490: ------------------------------------------------------------------------
5502: Chk_Dup_segment1_int(p_vendor_rec.segment1,
5503: x_valid);
5504:
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,
5545: Chk_Dup_Vendor_Name_new(p_vendor_rec.vendor_name,
5546: x_valid);
5547:
5548: IF NOT x_valid THEN
5549: x_return_status := FND_API.G_RET_STS_ERROR;
5550: END IF;
5551: END IF;
5552: */
5553:
5566: Chk_Dup_Vendor_Number(p_vendor_id,
5567: p_vendor_rec.segment1,
5568: x_valid);
5569: IF NOT x_valid THEN
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',
5604:
5605: Chk_rcv_routing_id(p_vendor_rec.receiving_routing_id ,
5606: x_valid);
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,
5651: x_valid
5652: );
5653:
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,
5693: and p_vendor_rec.invoice_currency_code <> ap_null_char) THEN
5694: val_currency_code(p_vendor_rec.invoice_currency_code,
5695: x_valid);
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,
5734: p_vendor_rec.invoice_currency_code,
5735: x_valid);
5736:
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,
5778: p_vendor_rec.type_1099 <> ap_null_char THEN
5779: Val_Income_Tax_Type(p_vendor_rec.type_1099,
5780: x_valid);
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,
5823: x_valid,
5824: current_calling_sequence);
5825:
5826: IF NOT x_valid THEN
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',
5888: p_vendor_id,
5889: x_valid);
5890:
5891: IF NOT x_valid THEN
5892: x_return_status := FND_API.G_RET_STS_ERROR;
5893: END IF;
5894: END IF;
5895: */
5896: null;
5911: p_calling_prog,
5912: x_valid);
5913:
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,
5962: p_vendor_rec.employee_id,
5963: x_valid);
5964:
5965: IF NOT x_valid THEN
5966: x_return_status := FND_API.G_RET_STS_ERROR;
5967:
5968:
5969: IF (Insert_Rejections(
5970: 'AP_SUPPLIERS_INT',
6005: p_data => l_msg_data);
6006:
6007: IBY_DISBURSEMENT_SETUP_PUB.Validate_External_Payee
6008: ( p_api_version => 1.0,
6009: p_init_msg_list => FND_API.G_FALSE,
6010: p_ext_payee_rec => p_vendor_rec.ext_payee_rec,
6011: x_return_status => l_payee_return_status,
6012: x_msg_count => l_payee_msg_count,
6013: x_msg_data => l_payee_msg_data);
6011: x_return_status => l_payee_return_status,
6012: x_msg_count => l_payee_msg_count,
6013: x_msg_data => l_payee_msg_data);
6014:
6015: IF l_payee_return_status = FND_API.G_RET_STS_SUCCESS THEN
6016: x_payee_valid := 'V';
6017: ELSE
6018: x_payee_valid := 'F';
6019: x_return_status := l_payee_return_status;
6094: x_valid);
6095:
6096: IF NOT x_valid THEN
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,
6145: p_vendor_rec.segment1 <> ap_null_char THEN
6146: Chk_Null_Vendor_Number(p_vendor_rec.segment1,
6147: x_valid);
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,
6194: Validate_Lookups(
6195: 'ONE_TIME_FLAG',p_vendor_rec.one_time_flag,'YES/NO',
6196: 'PO_LOOKUP_CODES',x_valid);
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,
6240: Validate_Lookups(
6241: 'SUMMARY_FLAG',p_vendor_rec.summary_flag,'YES/NO',
6242: 'PO_LOOKUP_CODES',x_valid);
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,
6284: Validate_Lookups(
6285: 'ENABLED_FLAG',p_vendor_rec.enabled_flag,'YES/NO',
6286: 'PO_LOOKUP_CODES',x_valid);
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,
6328: Validate_Lookups( 'VENDOR_TYPE_LOOKUP_CODE',
6329: p_vendor_rec.vendor_type_lookup_code,'VENDOR TYPE',
6330: 'PO_LOOKUP_CODES',x_valid);
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,
6373: p_vendor_rec.pay_date_basis_lookup_code,
6374: 'PAY DATE BASIS',
6375: 'PO_LOOKUP_CODES',x_valid);
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,
6417: Validate_Lookups( 'PAY_GROUP_LOOKUP_CODE',
6418: p_vendor_rec.pay_group_lookup_code,'PAY GROUP',
6419: 'PO_LOOKUP_CODES',x_valid);
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,
6464: p_vendor_rec.organization_type_lookup_code,
6465: 'ORGANIZATION TYPE',
6466: 'PO_LOOKUP_CODES',x_valid);
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,
6509: Validate_Lookups( 'MINORITY_GROUP_LOOKUP_CODE',
6510: p_vendor_rec.minority_group_lookup_code,'MINORITY GROUP',
6511: 'PO_LOOKUP_CODES',x_valid);
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,
6554: Validate_Lookups( 'TERMS_DATE_BASIS',
6555: p_vendor_rec.terms_date_basis,'TERMS DATE BASIS',
6556: 'AP_LOOKUP_CODES',x_valid);
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,
6599: Validate_Lookups( 'QTY_RCV_EXCEPTION_CODE',
6600: p_vendor_rec.qty_rcv_exception_code,'RCV OPTION',
6601: 'PO_LOOKUP_CODES',x_valid);
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,
6644: Validate_Lookups( 'ENFORCE_SHIP_TO_LOCATION_CODE',
6645: p_vendor_rec.enforce_ship_to_location_code,'RCV OPTION',
6646: 'PO_LOOKUP_CODES',x_valid);
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,
6689: Validate_Lookups( 'RECEIPT_DAYS_EXCEPTION_CODE',
6690: p_vendor_rec.receipt_days_exception_code,'RCV OPTION',
6691: 'PO_LOOKUP_CODES',x_valid);
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,
6734: Validate_Lookups( 'CREATE_DEBIT_MEMO_FLAG',
6735: p_vendor_rec.create_debit_memo_flag ,'YES/NO',
6736: 'PO_LOOKUP_CODES',x_valid);
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,
6779: Validate_Lookups( 'FEDERAL_REPORTABLE_FLAG',
6780: p_vendor_rec.federal_reportable_flag ,'YES/NO',
6781: 'PO_LOOKUP_CODES',x_valid);
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,
6824: Validate_Lookups('STATE_REPORTABLE_FLAG',
6825: p_vendor_rec.state_reportable_flag ,'YES/NO',
6826: 'PO_LOOKUP_CODES', x_valid);
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,
6869: Validate_Lookups('AUTO_CALCULATE_INTEREST_FLAG',
6870: p_vendor_rec.auto_calculate_interest_flag,'YES/NO',
6871: 'PO_LOOKUP_CODES', x_valid);
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,
6914: Validate_Lookups( 'EXCLUDE_FREIGHT_FROM_DISCOUNT',
6915: p_vendor_rec.exclude_freight_from_discount ,'YES/NO',
6916: 'PO_LOOKUP_CODES',x_valid);
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,
6959: Validate_Lookups('HOLD_UNMATCHED_INVOICES_FLAG',
6960: p_vendor_rec.hold_unmatched_invoices_flag ,'YES/NO',
6961: 'PO_LOOKUP_CODES',x_valid);
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,
7004: Validate_Lookups('ALLOW_UNORDERED_RECEIPTS_FLAG',
7005: p_vendor_rec.allow_unordered_receipts_flag,'YES/NO',
7006: 'PO_LOOKUP_CODES', x_valid);
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,
7050: Validate_Lookups('ALLOW_SUBSTITUTE_RECEIPTS_FLAG',
7051: p_vendor_rec.allow_substitute_receipts_flag,'YES/NO',
7052: 'PO_LOOKUP_CODES', x_valid);
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,
7095: Validate_Lookups('HOLD_FLAG', p_vendor_rec.hold_flag,
7096: 'YES/NO',
7097: 'PO_LOOKUP_CODES', x_valid);
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,
7140: Validate_Lookups('SMALL_BUSINESS_FLAG',
7141: p_vendor_rec.small_business_flag,'YES/NO',
7142: 'PO_LOOKUP_CODES',x_valid);
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,
7185: Validate_Lookups('WOMEN_OWNED_FLAG',
7186: p_vendor_rec.women_owned_flag,'YES/NO',
7187: 'PO_LOOKUP_CODES', x_valid);
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,
7230: Validate_Lookups('HOLD_FUTURE_PAYMENTS_FLAG',
7231: p_vendor_rec.hold_future_payments_flag,'YES/NO',
7232: 'PO_LOOKUP_CODES', x_valid);
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,
7275: Validate_Lookups('HOLD_ALL_PAYMENTS_FLAG',
7276: p_vendor_rec.hold_all_payments_flag,'YES/NO',
7277: 'PO_LOOKUP_CODES', x_valid);
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,
7320: Validate_Lookups( 'ALWAYS_TAKE_DISC_FLAG',
7321: p_vendor_rec.always_take_disc_flag,'YES/NO',
7322: 'PO_LOOKUP_CODES', x_valid);
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,
7364: Check_valid_vendor_num(l_segment1,
7365: x_valid);
7366:
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,
7406: Check_Valid_Match_Option(p_vendor_rec.match_option,
7407: x_valid
7408: );
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,
7458: x_valid
7459: );
7460:
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,
7514: x_valid
7515: );
7516:
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,
7559: Check_Valid_Hold_by (p_vendor_rec.hold_by,
7560: x_valid);
7561:
7562: IF NOT x_valid THEN
7563: x_return_status := FND_API.G_RET_STS_ERROR;
7564: END IF;
7565: END IF;
7566:
7567: ------------------------------------------------------------------------
7587: p_vendor_rec.default_terms_id,
7588: x_valid);
7589:
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,
7622:
7623: -- End of API body
7624:
7625: -- Standard check of p_commit.
7626: IF FND_API.To_Boolean( p_commit ) THEN
7627: COMMIT WORK;
7628: END IF;
7629:
7630: -- Standard call to get message count and if count is 1,
7635: );
7636:
7637:
7638: EXCEPTION
7639: WHEN FND_API.G_EXC_ERROR THEN
7640: ROLLBACK TO Validate_Vendor_PUB;
7641: x_return_status := FND_API.G_RET_STS_ERROR ;
7642: FND_MSG_PUB.Count_And_Get
7643: ( p_count => x_msg_count,
7637:
7638: EXCEPTION
7639: WHEN FND_API.G_EXC_ERROR THEN
7640: ROLLBACK TO Validate_Vendor_PUB;
7641: x_return_status := FND_API.G_RET_STS_ERROR ;
7642: FND_MSG_PUB.Count_And_Get
7643: ( p_count => x_msg_count,
7644: p_data => x_msg_data
7645: );
7642: FND_MSG_PUB.Count_And_Get
7643: ( p_count => x_msg_count,
7644: p_data => x_msg_data
7645: );
7646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7647: ROLLBACK TO Validate_Vendor_PUB;
7648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7649: FND_MSG_PUB.Count_And_Get
7650: ( p_count => x_msg_count,
7644: p_data => x_msg_data
7645: );
7646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7647: ROLLBACK TO Validate_Vendor_PUB;
7648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7649: FND_MSG_PUB.Count_And_Get
7650: ( p_count => x_msg_count,
7651: p_data => x_msg_data
7652: );
7651: p_data => x_msg_data
7652: );
7653: WHEN OTHERS THEN
7654: ROLLBACK TO Validate_Vendor_PUB;
7655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7656: IF FND_MSG_PUB.Check_Msg_Level
7657: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7658: FND_MSG_PUB.Add_Exc_Msg
7659: ( G_PKG_NAME ,
7667: END Validate_Vendor;
7668:
7669: PROCEDURE Create_Vendor_Site
7670: ( p_api_version IN NUMBER,
7671: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
7672: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7673: p_validation_level IN NUMBER :=
7674: FND_API.G_VALID_LEVEL_FULL,
7675: x_return_status OUT NOCOPY VARCHAR2 ,
7668:
7669: PROCEDURE Create_Vendor_Site
7670: ( p_api_version IN NUMBER,
7671: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
7672: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7673: p_validation_level IN NUMBER :=
7674: FND_API.G_VALID_LEVEL_FULL,
7675: x_return_status OUT NOCOPY VARCHAR2 ,
7676: x_msg_count OUT NOCOPY NUMBER,
7670: ( p_api_version IN NUMBER,
7671: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
7672: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7673: p_validation_level IN NUMBER :=
7674: FND_API.G_VALID_LEVEL_FULL,
7675: x_return_status OUT NOCOPY VARCHAR2 ,
7676: x_msg_count OUT NOCOPY NUMBER,
7677: x_msg_data OUT NOCOPY VARCHAR2,
7678: p_vendor_site_rec IN r_vendor_site_rec_type,
7936: BEGIN
7937: -- Standard Start of API savepoint
7938: SAVEPOINT Create_Vendor_Site_PUB;
7939:
7940: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
7941: p_api_version ,
7942: l_api_name ,
7943: G_PKG_NAME )
7944: THEN
7941: p_api_version ,
7942: l_api_name ,
7943: G_PKG_NAME )
7944: THEN
7945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7946: END IF;
7947:
7948: -- Initialize message list if p_init_msg_list is set to TRUE.
7949: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7946: END IF;
7947:
7948: -- Initialize message list if p_init_msg_list is set to TRUE.
7949: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7950: FND_MSG_PUB.initialize;
7951: END IF;
7952: -- Bug 5055120
7953: -- This call is incorrect. The correct call is to have the calling
7962: MO_GLOBAL.INIT ('SQLAP');
7963: end if;
7964:
7965: -- Initialize API return status to success
7966: x_return_status := FND_API.G_RET_STS_SUCCESS;
7967: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
7968: l_loc_return_status := FND_API.G_RET_STS_SUCCESS;
7969: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
7970: l_pay_return_status := FND_API.G_RET_STS_SUCCESS;
7963: end if;
7964:
7965: -- Initialize API return status to success
7966: x_return_status := FND_API.G_RET_STS_SUCCESS;
7967: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
7968: l_loc_return_status := FND_API.G_RET_STS_SUCCESS;
7969: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
7970: l_pay_return_status := FND_API.G_RET_STS_SUCCESS;
7971: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
7964:
7965: -- Initialize API return status to success
7966: x_return_status := FND_API.G_RET_STS_SUCCESS;
7967: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
7968: l_loc_return_status := FND_API.G_RET_STS_SUCCESS;
7969: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
7970: l_pay_return_status := FND_API.G_RET_STS_SUCCESS;
7971: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
7972:
7965: -- Initialize API return status to success
7966: x_return_status := FND_API.G_RET_STS_SUCCESS;
7967: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
7968: l_loc_return_status := FND_API.G_RET_STS_SUCCESS;
7969: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
7970: l_pay_return_status := FND_API.G_RET_STS_SUCCESS;
7971: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
7972:
7973: -- API body
7966: x_return_status := FND_API.G_RET_STS_SUCCESS;
7967: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
7968: l_loc_return_status := FND_API.G_RET_STS_SUCCESS;
7969: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
7970: l_pay_return_status := FND_API.G_RET_STS_SUCCESS;
7971: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
7972:
7973: -- API body
7974: ------------------------------------------------------------------------
7967: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
7968: l_loc_return_status := FND_API.G_RET_STS_SUCCESS;
7969: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
7970: l_pay_return_status := FND_API.G_RET_STS_SUCCESS;
7971: l_sync_return_status := FND_API.G_RET_STS_SUCCESS;
7972:
7973: -- API body
7974: ------------------------------------------------------------------------
7975: l_debug_info := 'Call Org_Id and Operating_unit_name validation for Import';
7992: p_vendor_site_rec.vendor_site_interface_id,
7993: x_valid);
7994:
7995: IF NOT x_valid THEN
7996: x_return_status := FND_API.G_RET_STS_ERROR;
7997: END IF;
7998:
7999: END IF;
8000:
8004: l_def_org_id := p_vendor_site_rec.org_id;
8005: END IF;
8006:
8007: IF l_def_org_id IS NULL THEN
8008: x_return_status := FND_API.G_RET_STS_ERROR;
8009: IF g_source = 'IMPORT' THEN
8010: IF (Insert_Rejections(
8011: 'AP_SUPPLIER_SITES_INT',
8012: p_vendor_site_rec.vendor_site_interface_id,
8036: END IF;
8037: -- Bug 8438716 End
8038:
8039: END IF;
8040: -- RAISE FND_API.G_EXC_ERROR; BUG 6739544
8041: RAISE ORG_ID_EXCEPTION; -- BUG 6739544
8042: END IF;
8043: -- Bug 5055120
8044: -- Added validation of org_id
8079: ||' ,Vendor_Site_Code: '||p_vendor_site_rec.vendor_site_code);
8080: END IF;
8081: -- Bug 8438716 End
8082: END IF;
8083: -- RAISE FND_API.G_EXC_ERROR;
8084: RAISE ORG_ID_EXCEPTION; -- BUG 6739544
8085: END;
8086:
8087:
8442: l_vendor_site_rec.duns_number
8443: := nvl(l_vendor_site_rec.duns_number, l_duns_number);
8444:
8445: validate_vendor_site(p_api_version => 1.0,
8446: p_init_msg_list => FND_API.G_FALSE,
8447: p_commit => FND_API.G_FALSE,
8448: x_return_status => l_val_return_status,
8449: x_msg_count => l_val_msg_count,
8450: x_msg_data => l_val_msg_data,
8443: := nvl(l_vendor_site_rec.duns_number, l_duns_number);
8444:
8445: validate_vendor_site(p_api_version => 1.0,
8446: p_init_msg_list => FND_API.G_FALSE,
8447: p_commit => FND_API.G_FALSE,
8448: x_return_status => l_val_return_status,
8449: x_msg_count => l_val_msg_count,
8450: x_msg_data => l_val_msg_data,
8451: p_vendor_site_rec => l_vendor_site_rec,
8457: p_vendor_site_id => x_vendor_site_id);
8458:
8459: -- Bug 7429668 Adding condition of l_val_return_status to ensure that
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;
8458:
8459: -- Bug 7429668 Adding condition of l_val_return_status to ensure that
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;
8497: --Bug6648405
8498: --Bug 6753822 - Added NVL on vendor_type_lookup_code
8499: IF (NVL(l_vendor_type_lookup_code,'DUMMY') <> 'EMPLOYEE') then
8500: hz_location_v2pub.create_location(
8501: p_init_msg_list => FND_API.G_FALSE,
8502: p_location_rec => l_location_rec,
8503: p_do_addr_val => 'Y', -- bug 9128869
8504: x_addr_val_status => l_addr_val_status, -- bug 9128869
8505: x_addr_warn_msg => l_addr_warn_msg, -- bug 9128869
8502: p_location_rec => l_location_rec,
8503: p_do_addr_val => 'Y', -- bug 9128869
8504: x_addr_val_status => l_addr_val_status, -- bug 9128869
8505: x_addr_warn_msg => l_addr_warn_msg, -- bug 9128869
8506: -- p_commit => FND_API.G_FALSE,
8507: x_return_status => l_loc_return_status,
8508: x_msg_count => l_loc_msg_count,
8509: x_msg_data => l_loc_msg_data,
8510: x_location_id => l_loc_id);
8510: x_location_id => l_loc_id);
8511:
8512: -- Bug 9128869 Start
8513:
8514: IF l_addr_val_status <> FND_API.G_RET_STS_SUCCESS THEN
8515:
8516: ------------------------------------------------------------------------
8517: l_debug_info := ' Address Validation status : '||l_addr_val_status;
8518: l_debug_info := l_debug_info ||' Address Warning message : '||l_addr_warn_msg;
8526: END IF;
8527:
8528: IF l_addr_val_status not in ('S','W') THEN
8529:
8530: x_return_status := FND_API.G_RET_STS_ERROR; -- If address validation fails then
8531: -- throw the error message.
8532: IF g_source = 'IMPORT' THEN
8533: IF (Insert_Rejections(
8534: 'AP_SUPPLIER_SITES_INT',
8553:
8554: END IF;
8555: -- Bug 9128869 End
8556:
8557: IF l_loc_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8558: ------------------------------------------------------------------------
8559: l_debug_info := 'After call to hz_location_v2pub.create_location';
8560: l_debug_info := l_debug_info||' Return status : '||l_loc_return_status||' Error : '||l_loc_msg_data;
8561: ------------------------------------------------------------------------
8569: END IF; --location_id was null
8570:
8571: IF l_party_site_valid = 'N' and
8572: l_location_valid <> 'F' and
8573: nvl(l_loc_return_status,FND_API.G_RET_STS_SUCCESS) =
8574: FND_API.G_RET_STS_SUCCESS AND
8575: -- Bug 7429668
8576: nvl(l_val_return_status,FND_API.G_RET_STS_SUCCESS) =
8577: FND_API.G_RET_STS_SUCCESS THEN
8570:
8571: IF l_party_site_valid = 'N' and
8572: l_location_valid <> 'F' and
8573: nvl(l_loc_return_status,FND_API.G_RET_STS_SUCCESS) =
8574: FND_API.G_RET_STS_SUCCESS AND
8575: -- Bug 7429668
8576: nvl(l_val_return_status,FND_API.G_RET_STS_SUCCESS) =
8577: FND_API.G_RET_STS_SUCCESS THEN
8578:
8572: l_location_valid <> 'F' and
8573: nvl(l_loc_return_status,FND_API.G_RET_STS_SUCCESS) =
8574: FND_API.G_RET_STS_SUCCESS AND
8575: -- Bug 7429668
8576: nvl(l_val_return_status,FND_API.G_RET_STS_SUCCESS) =
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;
8573: nvl(l_loc_return_status,FND_API.G_RET_STS_SUCCESS) =
8574: FND_API.G_RET_STS_SUCCESS AND
8575: -- Bug 7429668
8576: nvl(l_val_return_status,FND_API.G_RET_STS_SUCCESS) =
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';
8608: FROM DUAL;
8609: END IF;
8610: -- udhenuko Bug 6823885 End
8611: hz_party_site_v2pub.create_party_site(
8612: p_init_msg_list => FND_API.G_FALSE,
8613: p_party_site_rec => l_party_site_rec,
8614: --p_commit => FND_API.G_FALSE,
8615: x_return_status => l_site_return_status,
8616: x_msg_count => l_site_msg_count,
8610: -- udhenuko Bug 6823885 End
8611: hz_party_site_v2pub.create_party_site(
8612: p_init_msg_list => FND_API.G_FALSE,
8613: p_party_site_rec => l_party_site_rec,
8614: --p_commit => FND_API.G_FALSE,
8615: x_return_status => l_site_return_status,
8616: x_msg_count => l_site_msg_count,
8617: x_msg_data => l_site_msg_data,
8618: x_party_site_id => l_party_site_id,
8616: x_msg_count => l_site_msg_count,
8617: x_msg_data => l_site_msg_data,
8618: x_party_site_id => l_party_site_id,
8619: x_party_site_number => l_party_site_number);
8620: IF l_site_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8621: ------------------------------------------------------------------------
8622: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site';
8623: l_debug_info := l_debug_info||' Return status : '||l_site_return_status||' Error : '||l_site_msg_data;
8624: ------------------------------------------------------------------------
8646: x_party_site_use_id => l_party_site_use_id,
8647: x_return_status => l_site_use_return_status,
8648: x_msg_count => l_site_use_msg_count,
8649: x_msg_data => l_site_use_msg_data);
8650: IF l_site_use_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8651: ------------------------------------------------------------------------
8652: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site_use for PAY';
8653: l_debug_info := l_debug_info||' Return status : ' || l_site_use_return_status ||' Error : '|| l_site_use_msg_data;
8654: ------------------------------------------------------------------------
8666: x_party_site_use_id => l_party_site_use_id,
8667: x_return_status => l_site_use_return_status,
8668: x_msg_count => l_site_use_msg_count,
8669: x_msg_data => l_site_use_msg_data);
8670: IF l_site_use_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8671: ------------------------------------------------------------------------
8672: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site_use for RFQ';
8673: l_debug_info := l_debug_info||' Return status : ' || l_site_use_return_status ||' Error : ' || l_site_use_msg_data;
8674: ------------------------------------------------------------------------
8686: x_party_site_use_id => l_party_site_use_id,
8687: x_return_status => l_site_use_return_status,
8688: x_msg_count => l_site_use_msg_count,
8689: x_msg_data => l_site_use_msg_data);
8690: IF l_site_use_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8691: ------------------------------------------------------------------------
8692: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site_use for PURCHASING';
8693: l_debug_info := l_debug_info||' Return status : ' || l_site_use_return_status ||' Error : ' || l_site_use_msg_data;
8694: ------------------------------------------------------------------------
8756: END IF;
8757: END;
8758: IF (L_Zic_tax_classification_code is not null and
8759: sysdate not between nvl(Zic_start_date_active, sysdate-1) and nvl(Zic_end_date_Active, sysdate+1)) THEN
8760: x_return_status := FND_API.G_RET_STS_ERROR;
8761: IF g_source = 'IMPORT' THEN
8762: IF (Insert_Rejections(
8763: 'AP_SUPPLIER_SITES_INT',
8764: p_vendor_site_rec.vendor_site_interface_id,
8825: or L_ROUNDING_LEVEL_CODE is not null
8826: or L_ROUNDING_RULE_CODE is not null
8827: or L_INCLUSIVE_TAX_FLAG is not null) then /* B 9530837 end */
8828:
8829: IF ( (l_location_valid = 'V' OR (l_location_valid = 'N' and l_loc_return_status = FND_API.G_RET_STS_SUCCESS))
8830: AND (l_party_site_valid = 'V' OR (l_party_site_valid = 'N' and l_site_return_status =
8831: FND_API.G_RET_STS_SUCCESS)) ) THEN
8832:
8833: BEGIN
8827: or L_INCLUSIVE_TAX_FLAG is not null) then /* B 9530837 end */
8828:
8829: IF ( (l_location_valid = 'V' OR (l_location_valid = 'N' and l_loc_return_status = FND_API.G_RET_STS_SUCCESS))
8830: AND (l_party_site_valid = 'V' OR (l_party_site_valid = 'N' and l_site_return_status =
8831: FND_API.G_RET_STS_SUCCESS)) ) THEN
8832:
8833: BEGIN
8834: SELECT PARTY_TAX_PROFILE_ID INTO L_PARTY_TAX_PROFILE_ID
8835: FROM ZX_PARTY_TAX_PROFILE
8893: X_RETURN_STATUS => l_return_status,
8894: P_REGISTRATION_TYPE_CODE => null,
8895: P_COUNTRY_CODE => null
8896: );
8897: IF l_return_status <> fnd_api.g_ret_sts_success THEN
8898: l_debug_info := 'ZX_PARTY_TAX_PROFILE_PKG.update_row';
8899: l_debug_info := l_debug_info||' Return status : '||l_return_status;
8900: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8901: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
8910: -- Allow the vendor site creation even if we do not have
8911: -- location or party site IDs and the vendor type is
8912: -- Employee.
8913:
8914: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) AND
8915: ((l_loc_return_status = FND_API.G_RET_STS_SUCCESS) OR
8916: (l_loc_return_status <> FND_API.G_RET_STS_SUCCESS AND
8917: l_vendor_site_rec.location_id IS NULL AND
8918: l_vendor_type_lookup_code = 'EMPLOYEE')) AND
8911: -- location or party site IDs and the vendor type is
8912: -- Employee.
8913:
8914: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) AND
8915: ((l_loc_return_status = FND_API.G_RET_STS_SUCCESS) OR
8916: (l_loc_return_status <> FND_API.G_RET_STS_SUCCESS AND
8917: l_vendor_site_rec.location_id IS NULL AND
8918: l_vendor_type_lookup_code = 'EMPLOYEE')) AND
8919: ((l_site_return_status = FND_API.G_RET_STS_SUCCESS) OR
8912: -- Employee.
8913:
8914: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) AND
8915: ((l_loc_return_status = FND_API.G_RET_STS_SUCCESS) OR
8916: (l_loc_return_status <> FND_API.G_RET_STS_SUCCESS AND
8917: l_vendor_site_rec.location_id IS NULL AND
8918: l_vendor_type_lookup_code = 'EMPLOYEE')) AND
8919: ((l_site_return_status = FND_API.G_RET_STS_SUCCESS) OR
8920: (l_site_return_status <> FND_API.G_RET_STS_SUCCESS AND
8915: ((l_loc_return_status = FND_API.G_RET_STS_SUCCESS) OR
8916: (l_loc_return_status <> FND_API.G_RET_STS_SUCCESS AND
8917: l_vendor_site_rec.location_id IS NULL AND
8918: l_vendor_type_lookup_code = 'EMPLOYEE')) AND
8919: ((l_site_return_status = FND_API.G_RET_STS_SUCCESS) OR
8920: (l_site_return_status <> FND_API.G_RET_STS_SUCCESS AND
8921: l_vendor_site_rec.party_site_id IS NULL AND
8922: l_vendor_type_lookup_code = 'EMPLOYEE')) AND
8923: (l_payee_valid = 'N' OR
8916: (l_loc_return_status <> FND_API.G_RET_STS_SUCCESS AND
8917: l_vendor_site_rec.location_id IS NULL AND
8918: l_vendor_type_lookup_code = 'EMPLOYEE')) AND
8919: ((l_site_return_status = FND_API.G_RET_STS_SUCCESS) OR
8920: (l_site_return_status <> FND_API.G_RET_STS_SUCCESS AND
8921: l_vendor_site_rec.party_site_id IS NULL AND
8922: l_vendor_type_lookup_code = 'EMPLOYEE')) AND
8923: (l_payee_valid = 'N' OR
8924: l_pay_return_status = FND_API.G_RET_STS_SUCCESS) THEN
8920: (l_site_return_status <> FND_API.G_RET_STS_SUCCESS AND
8921: l_vendor_site_rec.party_site_id IS NULL AND
8922: l_vendor_type_lookup_code = 'EMPLOYEE')) AND
8923: (l_payee_valid = 'N' OR
8924: l_pay_return_status = FND_API.G_RET_STS_SUCCESS) THEN
8925:
8926: ap_vendor_sites_pkg.insert_row(
8927: p_vendor_site_rec => l_vendor_site_rec,
8928: p_last_update_date => sysdate,
8955: l_vendor_site_rec.location_id,
8956: l_vendor_site_rec.party_site_id,
8957: l_vendor_site_id); --bug 12733929
8958:
8959: IF l_sync_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8960: ------------------------------------------------------------------------
8961: l_debug_info := 'After call to AP_TCA_SUPPLIER_SYNC_PKG.SYNC_Supplier_Sites';
8962: l_debug_info := l_debug_info||' Return status : '||l_sync_return_status||' Error : '||l_sync_msg_data;
8963: ------------------------------------------------------------------------
8966: END IF;
8967: END IF;
8968: END IF;
8969:
8970: IF l_sync_return_status = FND_API.G_RET_STS_SUCCESS THEN
8971: Raise_Supplier_Event( i_vendor_site_id => l_vendor_site_id ); -- Bug 7307669
8972: x_return_status := FND_API.G_RET_STS_SUCCESS;
8973: END IF;
8974: x_party_site_id := l_party_site_id;
8968: END IF;
8969:
8970: IF l_sync_return_status = FND_API.G_RET_STS_SUCCESS THEN
8971: Raise_Supplier_Event( i_vendor_site_id => l_vendor_site_id ); -- Bug 7307669
8972: x_return_status := FND_API.G_RET_STS_SUCCESS;
8973: END IF;
8974: x_party_site_id := l_party_site_id;
8975: x_location_id := l_loc_id;
8976: x_vendor_site_id := l_vendor_site_id;
8974: x_party_site_id := l_party_site_id;
8975: x_location_id := l_loc_id;
8976: x_vendor_site_id := l_vendor_site_id;
8977:
8978: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
8979: ((l_loc_return_status = FND_API.G_RET_STS_UNEXP_ERROR) AND
8980: (l_vendor_type_lookup_code <> 'EMPLOYEE') AND
8981: (l_vendor_site_rec.location_id IS NULL)) OR
8982: ((l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) AND
8975: x_location_id := l_loc_id;
8976: x_vendor_site_id := l_vendor_site_id;
8977:
8978: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
8979: ((l_loc_return_status = FND_API.G_RET_STS_UNEXP_ERROR) AND
8980: (l_vendor_type_lookup_code <> 'EMPLOYEE') AND
8981: (l_vendor_site_rec.location_id IS NULL)) OR
8982: ((l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) AND
8983: (l_vendor_type_lookup_code <> 'EMPLOYEE') AND
8978: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
8979: ((l_loc_return_status = FND_API.G_RET_STS_UNEXP_ERROR) AND
8980: (l_vendor_type_lookup_code <> 'EMPLOYEE') AND
8981: (l_vendor_site_rec.location_id IS NULL)) OR
8982: ((l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) AND
8983: (l_vendor_type_lookup_code <> 'EMPLOYEE') AND
8984: (l_vendor_site_rec.party_site_id IS NULL)) OR
8985: (l_pay_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
8986: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8981: (l_vendor_site_rec.location_id IS NULL)) OR
8982: ((l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) AND
8983: (l_vendor_type_lookup_code <> 'EMPLOYEE') AND
8984: (l_vendor_site_rec.party_site_id IS NULL)) OR
8985: (l_pay_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
8986: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8987:
8988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8989:
8982: ((l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) AND
8983: (l_vendor_type_lookup_code <> 'EMPLOYEE') AND
8984: (l_vendor_site_rec.party_site_id IS NULL)) OR
8985: (l_pay_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
8986: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8987:
8988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8989:
8990: ELSE
8984: (l_vendor_site_rec.party_site_id IS NULL)) OR
8985: (l_pay_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
8986: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
8987:
8988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8989:
8990: ELSE
8991:
8992: x_return_status := FND_API.G_RET_STS_ERROR;
8988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8989:
8990: ELSE
8991:
8992: x_return_status := FND_API.G_RET_STS_ERROR;
8993: END IF;
8994:
8995: IF l_payee_valid = 'N' THEN --payee record is valid
8996:
9099:
9100: /* Calling IBY Payee Creation API */
9101: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee
9102: ( p_api_version => 1.0,
9103: p_init_msg_list => FND_API.G_FALSE,
9104: p_ext_payee_tab => ext_payee_tab,
9105: x_return_status => l_pay_return_status,
9106: x_msg_count => l_pay_msg_count,
9107: x_msg_data => l_pay_msg_data,
9106: x_msg_count => l_pay_msg_count,
9107: x_msg_data => l_pay_msg_data,
9108: x_ext_payee_id_tab => ext_payee_id_tab,
9109: x_ext_payee_status_tab => ext_payee_create_tab);
9110: IF l_pay_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9111: ------------------------------------------------------------------------
9112: l_debug_info := 'After call to IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee';
9113: l_debug_info := l_debug_info||' Return status : '||l_pay_return_status||' Error : '||l_pay_msg_data;
9114: ------------------------------------------------------------------------
9112: l_debug_info := 'After call to IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee';
9113: l_debug_info := l_debug_info||' Return status : '||l_pay_return_status||' Error : '||l_pay_msg_data;
9114: ------------------------------------------------------------------------
9115:
9116: Raise FND_API.G_EXC_UNEXPECTED_ERROR ; /* Bug9955876 */
9117:
9118: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9119: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
9120: END IF;
9128:
9129: -- End of API body.
9130:
9131: -- Standard check of p_commit.
9132: IF FND_API.To_Boolean( p_commit ) THEN
9133: COMMIT WORK;
9134: END IF;
9135:
9136: -- Standard call to get message count and if count is 1,
9140: p_data => x_msg_data
9141: );
9142:
9143: EXCEPTION
9144: WHEN FND_API.G_EXC_ERROR THEN
9145: ROLLBACK TO Create_Vendor_Site_PUB;
9146: x_return_status := FND_API.G_RET_STS_ERROR ;
9147: FND_MSG_PUB.Count_And_Get
9148: ( p_count => x_msg_count,
9142:
9143: EXCEPTION
9144: WHEN FND_API.G_EXC_ERROR THEN
9145: ROLLBACK TO Create_Vendor_Site_PUB;
9146: x_return_status := FND_API.G_RET_STS_ERROR ;
9147: FND_MSG_PUB.Count_And_Get
9148: ( p_count => x_msg_count,
9149: p_data => x_msg_data
9150: );
9147: FND_MSG_PUB.Count_And_Get
9148: ( p_count => x_msg_count,
9149: p_data => x_msg_data
9150: );
9151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9152: ROLLBACK TO Create_Vendor_Site_PUB;
9153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9154: FND_MSG_PUB.Count_And_Get
9155: ( p_count => x_msg_count,
9149: p_data => x_msg_data
9150: );
9151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9152: ROLLBACK TO Create_Vendor_Site_PUB;
9153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9154: FND_MSG_PUB.Count_And_Get
9155: ( p_count => x_msg_count,
9156: p_data => x_msg_data
9157: );
9157: );
9158: /* BUG 11664523 */
9159: WHEN VAT_CODE_EXCEPTION THEN
9160: ROLLBACK TO Create_Vendor_Site_PUB;
9161: x_return_status := FND_API.G_RET_STS_ERROR;
9162: FND_MSG_PUB.Count_And_Get
9163: ( p_count => x_msg_count,
9164: p_data => x_msg_data
9165: );
9164: p_data => x_msg_data
9165: );
9166: -- BUG 6739544 START
9167: WHEN ORG_ID_EXCEPTION THEN
9168: x_return_status := FND_API.G_RET_STS_ERROR ;
9169: FND_MSG_PUB.Count_And_Get
9170: ( p_count => x_msg_count,
9171: p_data => x_msg_data
9172: );
9172: );
9173: -- BUG 6739544 END.
9174: WHEN OTHERS THEN
9175: ROLLBACK TO Create_Vendor_Site_PUB;
9176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9177: IF FND_MSG_PUB.Check_Msg_Level
9178: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9179: FND_MSG_PUB.Add_Exc_Msg
9180: ( G_PKG_NAME ,
9188: END Create_Vendor_Site;
9189:
9190: PROCEDURE Update_Vendor_Site
9191: ( p_api_version IN NUMBER,
9192: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
9193: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9194: p_validation_level IN NUMBER :=
9195: FND_API.G_VALID_LEVEL_FULL,
9196: x_return_status OUT NOCOPY VARCHAR2 ,
9189:
9190: PROCEDURE Update_Vendor_Site
9191: ( p_api_version IN NUMBER,
9192: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
9193: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9194: p_validation_level IN NUMBER :=
9195: FND_API.G_VALID_LEVEL_FULL,
9196: x_return_status OUT NOCOPY VARCHAR2 ,
9197: x_msg_count OUT NOCOPY NUMBER,
9191: ( p_api_version IN NUMBER,
9192: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
9193: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9194: p_validation_level IN NUMBER :=
9195: FND_API.G_VALID_LEVEL_FULL,
9196: x_return_status OUT NOCOPY VARCHAR2 ,
9197: x_msg_count OUT NOCOPY NUMBER,
9198: x_msg_data OUT NOCOPY VARCHAR2,
9199: p_vendor_site_rec IN r_vendor_site_rec_type,
9231: -- Standard Start of API savepoint
9232: SAVEPOINT Update_Vendor_Site_PUB;
9233:
9234: -- Standard call to check for call compatibility.
9235: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
9236: p_api_version ,
9237: l_api_name ,
9238: G_PKG_NAME )
9239: THEN
9236: p_api_version ,
9237: l_api_name ,
9238: G_PKG_NAME )
9239: THEN
9240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9241: END IF;
9242:
9243: -- Initialize message list if p_init_msg_list is set to TRUE.
9244: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9241: END IF;
9242:
9243: -- Initialize message list if p_init_msg_list is set to TRUE.
9244: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9245: FND_MSG_PUB.initialize;
9246: END IF;
9247:
9248: -- Initialize API return status to success
9245: FND_MSG_PUB.initialize;
9246: END IF;
9247:
9248: -- Initialize API return status to success
9249: x_return_status := FND_API.G_RET_STS_SUCCESS;
9250: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
9251:
9252: -- API body
9253:
9246: END IF;
9247:
9248: -- Initialize API return status to success
9249: x_return_status := FND_API.G_RET_STS_SUCCESS;
9250: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
9251:
9252: -- API body
9253:
9254: -- Bug 5055120
9284: l_vendor_site_rec.org_id := l_org_id;
9285: END IF;
9286:
9287: validate_vendor_site(p_api_version => 1.0,
9288: p_init_msg_list => FND_API.G_FALSE,
9289: p_commit => FND_API.G_FALSE,
9290: x_return_status => l_val_return_status,
9291: x_msg_count => l_val_msg_count,
9292: x_msg_data => l_val_msg_data,
9285: END IF;
9286:
9287: validate_vendor_site(p_api_version => 1.0,
9288: p_init_msg_list => FND_API.G_FALSE,
9289: p_commit => FND_API.G_FALSE,
9290: x_return_status => l_val_return_status,
9291: x_msg_count => l_val_msg_count,
9292: x_msg_data => l_val_msg_data,
9293: p_vendor_site_rec => l_vendor_site_rec,
9298: x_payee_valid => l_payee_valid,
9299: p_vendor_site_id => p_vendor_site_id);
9300:
9301:
9302: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) THEN
9303: --populate existing values
9304: SELECT
9305: decode(l_vendor_site_rec.AREA_CODE,
9306: ap_null_char,NULL,
9851: l_vendor_site_rec.location_id,
9852: l_vendor_site_rec.party_site_id,
9853: p_vendor_site_id); --bug 8723400
9854:
9855: IF l_sync_return_status = FND_API.G_RET_STS_SUCCESS THEN
9856: Raise_Supplier_Event( i_vendor_site_id => p_vendor_site_id ); -- Bug 7307669
9857: x_return_status := FND_API.G_RET_STS_SUCCESS;
9858: END IF;
9859:
9853: p_vendor_site_id); --bug 8723400
9854:
9855: IF l_sync_return_status = FND_API.G_RET_STS_SUCCESS THEN
9856: Raise_Supplier_Event( i_vendor_site_id => p_vendor_site_id ); -- Bug 7307669
9857: x_return_status := FND_API.G_RET_STS_SUCCESS;
9858: END IF;
9859:
9860: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
9861: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR)THEN
9856: Raise_Supplier_Event( i_vendor_site_id => p_vendor_site_id ); -- Bug 7307669
9857: x_return_status := FND_API.G_RET_STS_SUCCESS;
9858: END IF;
9859:
9860: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
9861: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR)THEN
9862:
9863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9864:
9857: x_return_status := FND_API.G_RET_STS_SUCCESS;
9858: END IF;
9859:
9860: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
9861: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR)THEN
9862:
9863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9864:
9865: ELSE
9859:
9860: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
9861: (l_sync_return_status = FND_API.G_RET_STS_UNEXP_ERROR)THEN
9862:
9863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9864:
9865: ELSE
9866:
9867: x_return_status := FND_API.G_RET_STS_ERROR;
9863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9864:
9865: ELSE
9866:
9867: x_return_status := FND_API.G_RET_STS_ERROR;
9868: END IF;
9869:
9870: --set access mode back to original value
9871: IF l_org_context <> mo_global.get_access_mode THEN
9874:
9875: -- End of API body.
9876:
9877: -- Standard check of p_commit.
9878: IF FND_API.To_Boolean( p_commit ) THEN
9879: COMMIT WORK;
9880: END IF;
9881:
9882: -- Standard call to get message count and if count is 1,
9886: p_data => x_msg_data
9887: );
9888:
9889: EXCEPTION
9890: WHEN FND_API.G_EXC_ERROR THEN
9891: ROLLBACK TO Update_Vendor_Site_PUB;
9892: x_return_status := FND_API.G_RET_STS_ERROR ;
9893: FND_MSG_PUB.Count_And_Get
9894: ( p_count => x_msg_count,
9888:
9889: EXCEPTION
9890: WHEN FND_API.G_EXC_ERROR THEN
9891: ROLLBACK TO Update_Vendor_Site_PUB;
9892: x_return_status := FND_API.G_RET_STS_ERROR ;
9893: FND_MSG_PUB.Count_And_Get
9894: ( p_count => x_msg_count,
9895: p_data => x_msg_data
9896: );
9893: FND_MSG_PUB.Count_And_Get
9894: ( p_count => x_msg_count,
9895: p_data => x_msg_data
9896: );
9897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9898: ROLLBACK TO Update_Vendor_Site_PUB;
9899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9900: FND_MSG_PUB.Count_And_Get
9901: ( p_count => x_msg_count,
9895: p_data => x_msg_data
9896: );
9897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9898: ROLLBACK TO Update_Vendor_Site_PUB;
9899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9900: FND_MSG_PUB.Count_And_Get
9901: ( p_count => x_msg_count,
9902: p_data => x_msg_data
9903: );
9902: p_data => x_msg_data
9903: );
9904: WHEN OTHERS THEN
9905: ROLLBACK TO Update_Vendor_Site_PUB;
9906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9907: IF FND_MSG_PUB.Check_Msg_Level
9908: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9909: FND_MSG_PUB.Add_Exc_Msg
9910: ( G_PKG_NAME ,
9918: END Update_Vendor_Site;
9919:
9920: PROCEDURE Validate_Vendor_Site
9921: ( p_api_version IN NUMBER,
9922: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
9923: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9924: p_validation_level IN NUMBER :=
9925: FND_API.G_VALID_LEVEL_FULL,
9926: x_return_status OUT NOCOPY VARCHAR2 ,
9919:
9920: PROCEDURE Validate_Vendor_Site
9921: ( p_api_version IN NUMBER,
9922: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
9923: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9924: p_validation_level IN NUMBER :=
9925: FND_API.G_VALID_LEVEL_FULL,
9926: x_return_status OUT NOCOPY VARCHAR2 ,
9927: x_msg_count OUT NOCOPY NUMBER,
9921: ( p_api_version IN NUMBER,
9922: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
9923: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9924: p_validation_level IN NUMBER :=
9925: FND_API.G_VALID_LEVEL_FULL,
9926: x_return_status OUT NOCOPY VARCHAR2 ,
9927: x_msg_count OUT NOCOPY NUMBER,
9928: x_msg_data OUT NOCOPY VARCHAR2,
9929: p_vendor_site_rec IN OUT NOCOPY r_vendor_site_rec_type,
9986: -- Standard Start of API savepoint
9987: SAVEPOINT Validate_Vendor_Site_PUB;
9988:
9989: -- Standard call to check for call compatibility.
9990: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
9991: p_api_version ,
9992: l_api_name ,
9993: G_PKG_NAME )
9994: THEN
9991: p_api_version ,
9992: l_api_name ,
9993: G_PKG_NAME )
9994: THEN
9995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9996: END IF;
9997:
9998: -- Initialize message list if p_init_msg_list is set to TRUE.
9999: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9996: END IF;
9997:
9998: -- Initialize message list if p_init_msg_list is set to TRUE.
9999: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10000: FND_MSG_PUB.initialize;
10001: END IF;
10002:
10003: -- Initialize API return status to success
10000: FND_MSG_PUB.initialize;
10001: END IF;
10002:
10003: -- Initialize API return status to success
10004: x_return_status := FND_API.G_RET_STS_SUCCESS;
10005:
10006: -- API body
10007:
10008: --get sob
10046: Validate_Lookups('HOLD_UNMATCHED_INVOICES_FLAG',
10047: p_vendor_site_rec.hold_unmatched_invoices_flag ,'YES/NO',
10048: 'PO_LOOKUP_CODES',x_valid);
10049: IF NOT x_valid THEN
10050: x_return_status := FND_API.G_RET_STS_ERROR;
10051: IF g_source = 'IMPORT' THEN
10052: IF (Insert_Rejections(
10053: 'AP_SUPPLIER_SITES_INT',
10054: p_vendor_site_rec.vendor_site_interface_id,
10099: AND p_vendor_site_rec.vendor_site_code <> 'HOME'
10100: AND p_vendor_site_rec.vendor_site_code <> 'OFFICE'
10101: AND p_vendor_site_rec.vendor_site_code <> 'PROVISIONAL'
10102: THEN
10103: x_return_status := FND_API.G_RET_STS_ERROR;
10104: IF g_source = 'IMPORT' THEN
10105: IF (Insert_Rejections(
10106: 'AP_SUPPLIER_SITES_INT',
10107: p_vendor_site_rec.vendor_site_interface_id,
10159: Validate_Lookups( 'TAX_REPORTING_SITE_FLAG',
10160: p_vendor_site_rec.tax_reporting_site_flag ,'YES/NO',
10161: 'PO_LOOKUP_CODES',x_valid);
10162: IF NOT x_valid THEN
10163: x_return_status := FND_API.G_RET_STS_ERROR;
10164: IF g_source = 'IMPORT' THEN
10165: IF (Insert_Rejections(
10166: 'AP_SUPPLIER_SITES_INT',
10167: p_vendor_site_rec.vendor_site_interface_id,
10219: AND LOOKUP_CODE = p_vendor_site_rec.VAT_CODE );
10220:
10221:
10222: IF l_status = 0 THEN
10223: x_return_status := FND_API.G_RET_STS_ERROR;
10224: IF g_source = 'IMPORT' THEN
10225: IF (Insert_Rejections(
10226: 'AP_SUPPLIER_SITES_INT',
10227: p_vendor_site_rec.vendor_site_interface_id,
10274: p_vendor_site_rec.org_id,
10275: x_valid
10276: );
10277: IF NOT x_valid THEN
10278: x_return_status := FND_API.G_RET_STS_ERROR;
10279: IF g_source = 'IMPORT' THEN
10280: IF (Insert_Rejections(
10281: 'AP_SUPPLIER_SITES_INT',
10282: p_vendor_site_rec.vendor_site_interface_id,
10335: p_vendor_site_rec.org_name,
10336: p_vendor_site_rec.org_id,
10337: x_valid);
10338: IF NOT x_valid THEN
10339: x_return_status := FND_API.G_RET_STS_ERROR;
10340: IF g_source = 'IMPORT' THEN
10341: IF (Insert_Rejections(
10342: 'AP_SUPPLIER_SITES_INT',
10343: p_vendor_site_rec.vendor_site_interface_id,
10396: p_vendor_site_rec.ece_tp_location_code,
10397: x_valid);
10398:
10399: IF NOT x_valid THEN
10400: x_return_status := FND_API.G_RET_STS_ERROR;
10401: IF g_source = 'IMPORT' THEN
10402: IF (Insert_Rejections(
10403: 'AP_SUPPLIER_SITES_INT',
10404: p_vendor_site_rec.vendor_site_interface_id,
10459: p_vendor_site_rec.vendor_site_interface_id,
10460: x_valid);
10461:
10462: IF NOT x_valid THEN
10463: x_return_status := FND_API.G_RET_STS_ERROR;
10464: -- Bug 8438716 Start
10465: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
10466: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||
10467: l_api_name,'Call after Check_org_id_name... Parameters: '
10490: Check_pay_on_rec_sum_code(p_vendor_site_rec.pay_on_code,
10491: p_vendor_site_rec.pay_on_receipt_summary_code,
10492: x_valid);
10493: IF NOT x_valid THEN
10494: x_return_status := FND_API.G_RET_STS_ERROR;
10495: IF g_source = 'IMPORT' THEN
10496: IF (Insert_Rejections(
10497: 'AP_SUPPLIER_SITES_INT',
10498: p_vendor_site_rec.vendor_site_interface_id,
10546: x_valid
10547: );
10548:
10549: IF NOT x_valid THEN
10550: x_return_status := FND_API.G_RET_STS_ERROR;
10551: IF g_source = 'IMPORT' THEN
10552: IF (Insert_Rejections(
10553: 'AP_SUPPLIER_SITES_INT',
10554: p_vendor_site_rec.vendor_site_interface_id,
10603: p_vendor_site_rec.terms_name,
10604: p_vendor_site_rec.default_terms_id,
10605: x_valid);
10606: IF NOT x_valid THEN
10607: x_return_status := FND_API.G_RET_STS_ERROR;
10608: IF g_source = 'IMPORT' THEN
10609: IF (Insert_Rejections(
10610: 'AP_SUPPLIER_SITES_INT',
10611: p_vendor_site_rec.vendor_site_interface_id,
10661: p_vendor_site_rec.default_pay_site_id,
10662: x_valid);
10663:
10664: IF NOT x_valid THEN
10665: x_return_status := FND_API.G_RET_STS_ERROR;
10666: IF g_source = 'IMPORT' THEN
10667: IF (Insert_Rejections(
10668: 'AP_SUPPLIER_SITES_INT',
10669: p_vendor_site_rec.vendor_site_interface_id,
10715: pay_on_receipt_summary_valid(p_vendor_site_rec.pay_on_receipt_summary_code,
10716: p_vendor_site_rec.pay_on_code,
10717: x_valid);
10718: IF NOT x_valid THEN
10719: x_return_status := FND_API.G_RET_STS_ERROR;
10720: IF g_source = 'IMPORT' THEN
10721: IF (Insert_Rejections(
10722: 'AP_SUPPLIER_SITES_INT',
10723: p_vendor_site_rec.vendor_site_interface_id,
10770: Check_payment_priority(p_vendor_site_rec.payment_priority,
10771: x_valid
10772: );
10773: IF NOT x_valid THEN
10774: x_return_status := FND_API.G_RET_STS_ERROR;
10775: IF g_source = 'IMPORT' THEN
10776: IF (Insert_Rejections(
10777: 'AP_SUPPLIER_SITES_INT',
10778: p_vendor_site_rec.vendor_site_interface_id,
10817: p_vendor_site_rec.invoice_currency_code <> ap_null_char) THEN
10818: val_currency_code(p_vendor_site_rec.invoice_currency_code,
10819: x_valid);
10820: IF NOT x_valid THEN
10821: x_return_status := FND_API.G_RET_STS_ERROR;
10822: IF g_source = 'IMPORT' THEN
10823: IF (Insert_Rejections(
10824: 'AP_SUPPLIER_SITES_INT',
10825: p_vendor_site_rec.vendor_site_interface_id,
10867: payment_currency_code_valid(p_vendor_site_rec.payment_currency_code,
10868: p_vendor_site_rec.invoice_currency_code,
10869: x_valid);
10870: IF NOT x_valid THEN
10871: x_return_status := FND_API.G_RET_STS_ERROR;
10872: IF g_source = 'IMPORT' THEN
10873: IF (Insert_Rejections(
10874: 'AP_SUPPLIER_SITES_INT',
10875: p_vendor_site_rec.vendor_site_interface_id,
10920: Validate_CCIDs('ACCTS_PAY_CCID',
10921: p_vendor_site_rec.accts_pay_code_combination_id, l_sob,
10922: x_valid);
10923: IF NOT x_valid THEN
10924: x_return_status := FND_API.G_RET_STS_ERROR;
10925: IF g_source = 'IMPORT' THEN
10926: IF (Insert_Rejections(
10927: 'AP_SUPPLIER_SITES_INT',
10928: p_vendor_site_rec.vendor_site_interface_id,
10974: Validate_CCIDs( 'PREPAY_CCID',
10975: p_vendor_site_rec.prepay_code_combination_id, l_sob,
10976: x_valid);
10977: IF NOT x_valid THEN
10978: x_return_status := FND_API.G_RET_STS_ERROR;
10979: IF g_source = 'IMPORT' THEN
10980: IF (Insert_Rejections(
10981: 'AP_SUPPLIER_SITES_INT',
10982: p_vendor_site_rec.vendor_site_interface_id,
11028: Validate_CCIDs( 'FUTURE_DATED_PAYMENT_CCID',
11029: p_vendor_site_rec.future_dated_payment_ccid, l_sob,
11030: x_valid);
11031: IF NOT x_valid THEN
11032: x_return_status := FND_API.G_RET_STS_ERROR;
11033: IF g_source = 'IMPORT' THEN
11034: IF (Insert_Rejections(
11035: 'AP_SUPPLIER_SITES_INT',
11036: p_vendor_site_rec.vendor_site_interface_id,
11085: Chk_new_duns_number(p_vendor_site_rec.duns_number,
11086: x_valid);
11087:
11088: IF NOT x_valid THEN
11089: x_return_status := FND_API.G_RET_STS_ERROR;
11090: IF g_source = 'IMPORT' THEN
11091: IF (Insert_Rejections(
11092: 'AP_SUPPLIER_SITES_INT',
11093: p_vendor_site_rec.vendor_site_interface_id,
11139: OR p_vendor_site_rec.ccr_comments is not null
11140: OR p_vendor_site_rec.debarment_start_date is not null
11141: OR p_vendor_site_rec.debarment_end_date is not null
11142: )) THEN
11143: x_return_status := FND_API.G_RET_STS_ERROR;
11144: IF g_source = 'IMPORT' THEN
11145: IF (Insert_Rejections(
11146: 'AP_SUPPLIER_SITES_INT',
11147: p_vendor_site_rec.vendor_site_interface_id,
11178: ,'SMALL_NOT_SMALL_BUSINESS_CODE'
11179: ,'AP_LOOKUP_CODES'
11180: ,x_valid);
11181: IF (NOT x_valid) THEN
11182: x_return_status := FND_API.G_RET_STS_ERROR;
11183: IF g_source = 'IMPORT' THEN
11184: IF (Insert_Rejections( 'AP_SUPPLIER_SITES_INT',
11185: p_vendor_site_rec.vendor_site_interface_id,
11186: 'AP_INVALID_SMALL_NSMALL_CODE',
11228: p_calling_prog,
11229: x_valid);
11230:
11231: IF NOT x_valid THEN
11232: x_return_status := FND_API.G_RET_STS_ERROR;
11233: IF g_source = 'IMPORT' THEN
11234: IF (Insert_Rejections(
11235: 'AP_SUPPLIER_SITES_INT',
11236: p_vendor_site_rec.vendor_site_interface_id,
11285: p_data => l_msg_data);
11286:
11287: IBY_DISBURSEMENT_SETUP_PUB.Validate_External_Payee
11288: ( p_api_version => 1.0,
11289: p_init_msg_list => FND_API.G_FALSE,
11290: p_ext_payee_rec => p_vendor_site_rec.ext_payee_rec,
11291: x_return_status => l_payee_return_status,
11292: x_msg_count => l_payee_msg_count,
11293: x_msg_data => l_payee_msg_data);
11291: x_return_status => l_payee_return_status,
11292: x_msg_count => l_payee_msg_count,
11293: x_msg_data => l_payee_msg_data);
11294:
11295: IF l_payee_return_status = FND_API.G_RET_STS_SUCCESS THEN
11296: x_payee_valid := 'V';
11297: ELSE
11298: x_payee_valid := 'F';
11299: x_return_status := l_payee_return_status;
11391: x_valid := FALSE;
11392: END;
11393:
11394: IF NOT x_valid THEN
11395: x_return_status := FND_API.G_RET_STS_ERROR;
11396: IF g_source = 'IMPORT' THEN
11397: IF (Insert_Rejections
11398: (
11399: 'AP_SUPPLIER_SITES_INT',
11446:
11447: x_valid := TRUE; /* Bug9916291 */
11448:
11449: /* IF NOT x_valid THEN
11450: x_return_status := FND_API.G_RET_STS_ERROR;
11451: IF g_source = 'IMPORT' THEN
11452: IF (Insert_Rejections(
11453: 'AP_SUPPLIER_SITES_INT',
11454: p_vendor_site_rec.vendor_site_interface_id,
11550: -- Bug 5491139 hkaniven end --
11551: END IF;
11552: -- We have to ensure that no new locations are created in this case.
11553: x_location_valid := 'F';
11554: x_return_status := FND_API.G_RET_STS_ERROR;
11555: ELSE
11556: IF(l_installed_flag='D')
11557: THEN
11558: valid_language_flag := False;
11581: -- Bug 5491139 hkaniven end --
11582: END IF;
11583: -- We have to ensure that no new locations are created in this case.
11584: x_location_valid := 'F';
11585: x_return_status := FND_API.G_RET_STS_ERROR;
11586:
11587: END IF;
11588:
11589: CLOSE c_lang_is;
11621: -- Bug 7429668 Start
11622: IF x_loc_count > 1 THEN
11623: -- We have to ensure that no new locations are created in this case.
11624: x_location_valid := 'F';
11625: x_return_status := FND_API.G_RET_STS_ERROR;
11626:
11627: IF g_source = 'IMPORT' THEN
11628:
11629: IF (Insert_Rejections(
11660: ELSIF x_loc_count = 0 AND
11661: p_vendor_site_rec.party_site_id IS NOT NULL THEN
11662: -- We have to ensure that no new locations are created in this case.
11663: x_location_valid := 'F';
11664: x_return_status := FND_API.G_RET_STS_ERROR;
11665:
11666: IF g_source = 'IMPORT' THEN
11667:
11668: IF (Insert_Rejections(
11702: Country and address_line1 coulumns are not null*/
11703: IF(p_vendor_site_rec.country IS NULL)
11704: AND (NVL(G_Vendor_Type_Lookup_Code,'DUMMY') <> 'EMPLOYEE') THEN
11705:
11706: x_return_status := FND_API.G_RET_STS_ERROR;
11707:
11708: IF g_source = 'IMPORT' THEN
11709:
11710: IF (Insert_Rejections(
11744:
11745: IF(p_vendor_site_rec.address_line1 IS NULL)
11746: AND (NVL(G_Vendor_Type_Lookup_Code,'DUMMY') <> 'EMPLOYEE') THEN
11747:
11748: x_return_status := FND_API.G_RET_STS_ERROR;
11749:
11750: IF g_source = 'IMPORT' THEN
11751:
11752: IF (Insert_Rejections(
11840: p_vendor_site_rec.vendor_site_code,
11841: x_valid);
11842:
11843: IF NOT x_valid THEN
11844: x_return_status := FND_API.G_RET_STS_ERROR;
11845: IF g_source = 'IMPORT' THEN
11846:
11847: IF (Insert_Rejections(
11848: 'AP_SUPPLIER_SITES_INT',
11901: p_vendor_site_rec.org_name,
11902: x_valid
11903: );
11904: IF NOT x_valid THEN
11905: x_return_status := FND_API.G_RET_STS_ERROR;
11906: IF g_source = 'IMPORT' THEN
11907: IF (Insert_Rejections(
11908: 'AP_SUPPLIER_SITES_INT',
11909: p_vendor_site_rec.vendor_site_interface_id,
11951: IF (p_vendor_site_rec.country_of_origin_code is not null) THEN
11952: country_of_origin_valid(p_vendor_site_rec.country_of_origin_code,
11953: x_valid);
11954: IF NOT x_valid THEN
11955: x_return_status := FND_API.G_RET_STS_ERROR;
11956: IF g_source = 'IMPORT' THEN
11957: IF (Insert_Rejections(
11958: 'AP_SUPPLIER_SITES_INT',
11959: p_vendor_site_rec.vendor_site_interface_id,
12004:
12005: Validate_Lookups( 'PCARD_SITE_FLAG', p_vendor_site_rec.pcard_site_flag ,'YES/NO',
12006: 'PO_LOOKUP_CODES',x_valid);
12007: IF NOT x_valid THEN
12008: x_return_status := FND_API.G_RET_STS_ERROR;
12009: IF g_source = 'IMPORT' THEN
12010: IF (Insert_Rejections(
12011: 'AP_SUPPLIER_SITES_INT',
12012: p_vendor_site_rec.vendor_site_interface_id,
12057:
12058: Validate_Lookups( 'PURCHASING_SITE_FLAG', p_vendor_site_rec.purchasing_site_flag,'YES/NO',
12059: 'PO_LOOKUP_CODES', x_valid);
12060: IF NOT x_valid THEN
12061: x_return_status := FND_API.G_RET_STS_ERROR;
12062: IF g_source = 'IMPORT' THEN
12063: IF (Insert_Rejections(
12064: 'AP_SUPPLIER_SITES_INT',
12065: p_vendor_site_rec.vendor_site_interface_id,
12110:
12111: Validate_Lookups( 'RFQ_ONLY_SITE_FLAG', p_vendor_site_rec.rfq_only_site_flag,'YES/NO',
12112: 'PO_LOOKUP_CODES', x_valid);
12113: IF NOT x_valid THEN
12114: x_return_status := FND_API.G_RET_STS_ERROR;
12115: IF g_source = 'IMPORT' THEN
12116: IF (Insert_Rejections(
12117: 'AP_SUPPLIER_SITES_INT',
12118: p_vendor_site_rec.vendor_site_interface_id,
12163:
12164: Validate_Lookups( 'PAY_SITE_FLAG', p_vendor_site_rec.pay_site_flag,'YES/NO',
12165: 'PO_LOOKUP_CODES', x_valid);
12166: IF NOT x_valid THEN
12167: x_return_status := FND_API.G_RET_STS_ERROR;
12168: IF g_source = 'IMPORT' THEN
12169: IF (Insert_Rejections(
12170: 'AP_SUPPLIER_SITES_INT',
12171: p_vendor_site_rec.vendor_site_interface_id,
12216:
12217: Validate_Lookups( 'ATTENTION_AR_FLAG', p_vendor_site_rec.attention_ar_flag,'YES/NO',
12218: 'PO_LOOKUP_CODES', x_valid);
12219: IF NOT x_valid THEN
12220: x_return_status := FND_API.G_RET_STS_ERROR;
12221: IF g_source = 'IMPORT' THEN
12222: IF (Insert_Rejections(
12223: 'AP_SUPPLIER_SITES_INT',
12224: p_vendor_site_rec.vendor_site_interface_id,
12269:
12270: Validate_Lookups( 'PRIMARY_PAY_SITE_FLAG', p_vendor_site_rec.primary_pay_site_flag,'YES/NO',
12271: 'PO_LOOKUP_CODES',x_valid);
12272: IF NOT x_valid THEN
12273: x_return_status := FND_API.G_RET_STS_ERROR;
12274: IF g_source = 'IMPORT' THEN
12275: IF (Insert_Rejections(
12276: 'AP_SUPPLIER_SITES_INT',
12277: p_vendor_site_rec.vendor_site_interface_id,
12323: Validate_Lookups( 'FREIGHT_TERMS_LOOKUP_CODE',
12324: p_vendor_site_rec.freight_terms_lookup_code,'FREIGHT TERMS',
12325: 'PO_LOOKUP_CODES',x_valid);
12326: IF NOT x_valid THEN
12327: x_return_status := FND_API.G_RET_STS_ERROR;
12328: IF g_source = 'IMPORT' THEN
12329: IF (Insert_Rejections(
12330: 'AP_SUPPLIER_SITES_INT',
12331: p_vendor_site_rec.vendor_site_interface_id,
12376:
12377: Validate_Lookups( 'FOB_LOOKUP_CODE',p_vendor_site_rec.fob_lookup_code,'FOB',
12378: 'PO_LOOKUP_CODES',x_valid);
12379: IF NOT x_valid THEN
12380: x_return_status := FND_API.G_RET_STS_ERROR;
12381: IF g_source = 'IMPORT' THEN
12382: IF (Insert_Rejections(
12383: 'AP_SUPPLIER_SITES_INT',
12384: p_vendor_site_rec.vendor_site_interface_id,
12430: Validate_Lookups( 'PAY_DATE_BASIS_LOOKUP_CODE',
12431: p_vendor_site_rec.pay_date_basis_lookup_code,'PAY DATE BASIS',
12432: 'PO_LOOKUP_CODES',x_valid);
12433: IF NOT x_valid THEN
12434: x_return_status := FND_API.G_RET_STS_ERROR;
12435: IF g_source = 'IMPORT' THEN
12436: IF (Insert_Rejections(
12437: 'AP_SUPPLIER_SITES_INT',
12438: p_vendor_site_rec.vendor_site_interface_id,
12484: Validate_Lookups( 'PAY_GROUP_LOOKUP_CODE',
12485: p_vendor_site_rec.pay_group_lookup_code,'PAY GROUP',
12486: 'PO_LOOKUP_CODES',x_valid);
12487: IF NOT x_valid THEN
12488: x_return_status := FND_API.G_RET_STS_ERROR;
12489: IF g_source = 'IMPORT' THEN
12490: IF (Insert_Rejections(
12491: 'AP_SUPPLIER_SITES_INT',
12492: p_vendor_site_rec.vendor_site_interface_id,
12537:
12538: Validate_Lookups( 'TERMS_DATE_BASIS',p_vendor_site_rec.terms_date_basis,'TERMS DATE BASIS',
12539: 'AP_LOOKUP_CODES',x_valid);
12540: IF NOT x_valid THEN
12541: x_return_status := FND_API.G_RET_STS_ERROR;
12542: IF g_source = 'IMPORT' THEN
12543: IF (Insert_Rejections(
12544: 'AP_SUPPLIER_SITES_INT',
12545: p_vendor_site_rec.vendor_site_interface_id,
12592: Validate_Lookups( 'CREATE_DEBIT_MEMO_FLAG',
12593: p_vendor_site_rec.create_debit_memo_flag ,'YES/NO',
12594: 'PO_LOOKUP_CODES',x_valid);
12595: IF NOT x_valid THEN
12596: x_return_status := FND_API.G_RET_STS_ERROR;
12597: IF g_source = 'IMPORT' THEN
12598: IF (Insert_Rejections(
12599: 'AP_SUPPLIER_SITES_INT',
12600: p_vendor_site_rec.vendor_site_interface_id,
12646: Validate_Lookups( 'EXCLUDE_FREIGHT_FROM_DISCOUNT',
12647: p_vendor_site_rec.exclude_freight_from_discount ,'YES/NO',
12648: 'PO_LOOKUP_CODES',x_valid);
12649: IF NOT x_valid THEN
12650: x_return_status := FND_API.G_RET_STS_ERROR;
12651: IF g_source = 'IMPORT' THEN
12652: IF (Insert_Rejections(
12653: 'AP_SUPPLIER_SITES_INT',
12654: p_vendor_site_rec.vendor_site_interface_id,
12700:
12701: Validate_Lookups('HOLD_FUTURE_PAYMENTS_FLAG', p_vendor_site_rec.hold_future_payments_flag,'YES/NO',
12702: 'PO_LOOKUP_CODES', x_valid);
12703: IF NOT x_valid THEN
12704: x_return_status := FND_API.G_RET_STS_ERROR;
12705: IF g_source = 'IMPORT' THEN
12706: IF (Insert_Rejections(
12707: 'AP_SUPPLIER_SITES_INT',
12708: p_vendor_site_rec.vendor_site_interface_id,
12753:
12754: Validate_Lookups('HOLD_ALL_PAYMENTS_FLAG', p_vendor_site_rec.hold_all_payments_flag,'YES/NO',
12755: 'PO_LOOKUP_CODES', x_valid);
12756: IF NOT x_valid THEN
12757: x_return_status := FND_API.G_RET_STS_ERROR;
12758: IF g_source = 'IMPORT' THEN
12759: IF (Insert_Rejections(
12760: 'AP_SUPPLIER_SITES_INT',
12761: p_vendor_site_rec.vendor_site_interface_id,
12806:
12807: Validate_Lookups( 'ALWAYS_TAKE_DISC_FLAG', p_vendor_site_rec.always_take_disc_flag,'YES/NO',
12808: 'PO_LOOKUP_CODES', x_valid);
12809: IF NOT x_valid THEN
12810: x_return_status := FND_API.G_RET_STS_ERROR;
12811: IF g_source = 'IMPORT' THEN
12812: IF (Insert_Rejections(
12813: 'AP_SUPPLIER_SITES_INT',
12814: p_vendor_site_rec.vendor_site_interface_id,
12860: Check_Valid_Match_Option(p_vendor_site_rec.match_option,
12861: x_valid
12862: );
12863: IF NOT x_valid THEN
12864: x_return_status := FND_API.G_RET_STS_ERROR;
12865: IF g_source = 'IMPORT' THEN
12866: IF (Insert_Rejections(
12867: 'AP_SUPPLIER_SITES_INT',
12868: p_vendor_site_rec.vendor_site_interface_id,
12915: p_vendor_site_rec.org_id,
12916: x_valid
12917: );
12918: IF NOT x_valid THEN
12919: x_return_status := FND_API.G_RET_STS_ERROR;
12920: IF g_source = 'IMPORT' THEN
12921: IF (Insert_Rejections(
12922: 'AP_SUPPLIER_SITES_INT',
12923: p_vendor_site_rec.vendor_site_interface_id,
12977: p_vendor_site_rec.allow_awt_flag,
12978: x_valid
12979: );
12980: IF NOT x_valid THEN
12981: x_return_status := FND_API.G_RET_STS_ERROR;
12982: IF g_source = 'IMPORT' THEN
12983: IF (Insert_Rejections(
12984: 'AP_SUPPLIER_SITES_INT',
12985: p_vendor_site_rec.vendor_site_interface_id,
13045: p_vendor_site_rec.allow_awt_flag,
13046: x_valid
13047: );
13048: IF NOT x_valid THEN
13049: x_return_status := FND_API.G_RET_STS_ERROR;
13050: IF g_source = 'IMPORT' THEN
13051: IF (Insert_Rejections(
13052: 'AP_SUPPLIER_SITES_INT',
13053: p_vendor_site_rec.vendor_site_interface_id,
13104: p_vendor_site_rec.distribution_set_name,
13105: p_vendor_site_rec.default_dist_set_id,
13106: x_valid);
13107: IF NOT x_valid THEN
13108: x_return_status := FND_API.G_RET_STS_ERROR;
13109: IF g_source = 'IMPORT' THEN
13110: IF (Insert_Rejections(
13111: 'AP_SUPPLIER_SITES_INT',
13112: p_vendor_site_rec.vendor_site_interface_id,
13168: p_vendor_site_rec.ship_to_location_code,
13169: p_vendor_site_rec.default_ship_to_loc_id,
13170: x_valid);
13171: IF NOT x_valid THEN
13172: x_return_status := FND_API.G_RET_STS_ERROR;
13173: IF g_source = 'IMPORT' THEN
13174: IF (Insert_Rejections(
13175: 'AP_SUPPLIER_SITES_INT',
13176: p_vendor_site_rec.vendor_site_interface_id,
13232: p_vendor_site_rec.bill_to_location_code,
13233: p_vendor_site_rec.default_bill_to_loc_id,
13234: x_valid);
13235: IF NOT x_valid THEN
13236: x_return_status := FND_API.G_RET_STS_ERROR;
13237: IF g_source = 'IMPORT' THEN
13238: IF (Insert_Rejections(
13239: 'AP_SUPPLIER_SITES_INT',
13240: p_vendor_site_rec.vendor_site_interface_id,
13294: Check_Valid_Sup_Notif_Method(p_vendor_site_rec.supplier_notif_method,
13295: x_valid
13296: );
13297: IF NOT x_valid THEN
13298: x_return_status := FND_API.G_RET_STS_ERROR;
13299: IF g_source = 'IMPORT' THEN
13300: IF (Insert_Rejections(
13301: 'AP_SUPPLIER_SITES_INT',
13302: p_vendor_site_rec.vendor_site_interface_id,
13349: Check_Valid_Remit_Adv_Del_Mthd(p_vendor_site_rec.remit_advice_delivery_method,
13350: x_valid
13351: );
13352: IF NOT x_valid THEN
13353: x_return_status := FND_API.G_RET_STS_ERROR;
13354: IF g_source = 'IMPORT' THEN
13355: IF (Insert_Rejections(
13356: 'AP_SUPPLIER_SITES_INT',
13357: p_vendor_site_rec.vendor_site_interface_id,
13409: x_valid,
13410: l_tolerance_type
13411: );
13412: IF NOT x_valid THEN
13413: x_return_status := FND_API.G_RET_STS_ERROR;
13414: IF g_source = 'IMPORT' THEN
13415: IF (Insert_Rejections(
13416: 'AP_SUPPLIER_SITES_INT',
13417: p_vendor_site_rec.vendor_site_interface_id,
13470: x_valid,
13471: l_tolerance_type
13472: );
13473: IF NOT x_valid THEN
13474: x_return_status := FND_API.G_RET_STS_ERROR;
13475: IF g_source = 'IMPORT' THEN
13476: IF (Insert_Rejections(
13477: 'AP_SUPPLIER_SITES_INT',
13478: p_vendor_site_rec.vendor_site_interface_id,
13526: --IF NOT (p_vendor_site_rec.retainage_rate < 0 OR
13527: IF (p_vendor_site_rec.retainage_rate < 0 OR
13528: p_vendor_site_rec.retainage_rate > 100) THEN
13529:
13530: x_return_status := FND_API.G_RET_STS_ERROR;
13531: IF g_source = 'IMPORT' THEN
13532: IF (Insert_Rejections(
13533: 'AP_SUPPLIER_SITES_INT',
13534: p_vendor_site_rec.vendor_site_interface_id,
13581: p_vendor_site_rec.org_id,
13582: x_valid
13583: );
13584: IF NOT x_valid THEN
13585: x_return_status := FND_API.G_RET_STS_ERROR;
13586: IF g_source = 'IMPORT' THEN
13587: IF (Insert_Rejections(
13588: 'AP_SUPPLIER_SITES_INT',
13589: p_vendor_site_rec.vendor_site_interface_id,
13639: p_vendor_site_rec.org_name,
13640: x_valid
13641: );
13642: IF NOT x_valid THEN
13643: x_return_status := FND_API.G_RET_STS_ERROR;
13644: IF g_source = 'IMPORT' THEN
13645: IF (Insert_Rejections(
13646: 'AP_SUPPLIER_SITES_INT',
13647: p_vendor_site_rec.vendor_site_interface_id,
13696: p_vendor_site_rec.vendor_id,--Bug5260465
13697: x_valid);
13698:
13699: IF NOT x_valid THEN
13700: x_return_status := FND_API.G_RET_STS_ERROR;
13701: IF g_source = 'IMPORT' THEN
13702: IF (Insert_Rejections(
13703: 'AP_SUPPLIER_SITES_INT',
13704: p_vendor_site_rec.vendor_site_interface_id,
13747:
13748: -- End of API body.
13749:
13750: -- Standard check of p_commit.
13751: IF FND_API.To_Boolean( p_commit ) THEN
13752: COMMIT WORK;
13753: END IF;
13754:
13755: -- Standard call to get message count and if count is 1,
13759: p_data => x_msg_data
13760: );
13761:
13762: EXCEPTION
13763: WHEN FND_API.G_EXC_ERROR THEN
13764: ROLLBACK TO Validate_Vendor_Site_PUB;
13765: x_return_status := FND_API.G_RET_STS_ERROR ;
13766: FND_MSG_PUB.Count_And_Get
13767: ( p_count => x_msg_count,
13761:
13762: EXCEPTION
13763: WHEN FND_API.G_EXC_ERROR THEN
13764: ROLLBACK TO Validate_Vendor_Site_PUB;
13765: x_return_status := FND_API.G_RET_STS_ERROR ;
13766: FND_MSG_PUB.Count_And_Get
13767: ( p_count => x_msg_count,
13768: p_data => x_msg_data
13769: );
13766: FND_MSG_PUB.Count_And_Get
13767: ( p_count => x_msg_count,
13768: p_data => x_msg_data
13769: );
13770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13771: ROLLBACK TO Validate_Vendor_Site_PUB;
13772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13773: FND_MSG_PUB.Count_And_Get
13774: ( p_count => x_msg_count,
13768: p_data => x_msg_data
13769: );
13770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13771: ROLLBACK TO Validate_Vendor_Site_PUB;
13772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13773: FND_MSG_PUB.Count_And_Get
13774: ( p_count => x_msg_count,
13775: p_data => x_msg_data
13776: );
13775: p_data => x_msg_data
13776: );
13777: WHEN OTHERS THEN
13778: ROLLBACK TO Validate_Vendor_Site_PUB;
13779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13780: IF FND_MSG_PUB.Check_Msg_Level
13781: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13782: FND_MSG_PUB.Add_Exc_Msg
13783: ( G_PKG_NAME ,
13791: END Validate_Vendor_Site;
13792:
13793: PROCEDURE Create_Vendor_Contact
13794: ( p_api_version IN NUMBER,
13795: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
13796: p_commit IN VARCHAR2 := FND_API.G_FALSE,
13797: p_validation_level IN NUMBER :=
13798: FND_API.G_VALID_LEVEL_FULL,
13799: x_return_status OUT NOCOPY VARCHAR2 ,
13792:
13793: PROCEDURE Create_Vendor_Contact
13794: ( p_api_version IN NUMBER,
13795: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
13796: p_commit IN VARCHAR2 := FND_API.G_FALSE,
13797: p_validation_level IN NUMBER :=
13798: FND_API.G_VALID_LEVEL_FULL,
13799: x_return_status OUT NOCOPY VARCHAR2 ,
13800: x_msg_count OUT NOCOPY NUMBER,
13794: ( p_api_version IN NUMBER,
13795: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
13796: p_commit IN VARCHAR2 := FND_API.G_FALSE,
13797: p_validation_level IN NUMBER :=
13798: FND_API.G_VALID_LEVEL_FULL,
13799: x_return_status OUT NOCOPY VARCHAR2 ,
13800: x_msg_count OUT NOCOPY NUMBER,
13801: x_msg_data OUT NOCOPY VARCHAR2,
13802: p_vendor_contact_rec IN r_vendor_contact_rec_type,
13895: -- Standard Start of API savepoint
13896: SAVEPOINT Create_Vendor_Contact_PUB;
13897:
13898: -- Standard call to check for call compatibility.
13899: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
13900: p_api_version ,
13901: l_api_name ,
13902: G_PKG_NAME )
13903: THEN
13900: p_api_version ,
13901: l_api_name ,
13902: G_PKG_NAME )
13903: THEN
13904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13905: END IF;
13906:
13907: -- Initialize message list if p_init_msg_list is set to TRUE.
13908: IF FND_API.to_Boolean( p_init_msg_list ) THEN
13904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13905: END IF;
13906:
13907: -- Initialize message list if p_init_msg_list is set to TRUE.
13908: IF FND_API.to_Boolean( p_init_msg_list ) THEN
13909: FND_MSG_PUB.initialize;
13910: END IF;
13911:
13912: -- Initialize API return status to success
13909: FND_MSG_PUB.initialize;
13910: END IF;
13911:
13912: -- Initialize API return status to success
13913: x_return_status := FND_API.G_RET_STS_SUCCESS;
13914:
13915: -- API body
13916:
13917: --default return stati
13914:
13915: -- API body
13916:
13917: --default return stati
13918: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
13919: l_per_return_status := FND_API.G_RET_STS_SUCCESS;
13920: l_org_contact_return_status := FND_API.G_RET_STS_SUCCESS;
13921: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
13922: l_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13915: -- API body
13916:
13917: --default return stati
13918: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
13919: l_per_return_status := FND_API.G_RET_STS_SUCCESS;
13920: l_org_contact_return_status := FND_API.G_RET_STS_SUCCESS;
13921: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
13922: l_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13923: l_alt_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13916:
13917: --default return stati
13918: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
13919: l_per_return_status := FND_API.G_RET_STS_SUCCESS;
13920: l_org_contact_return_status := FND_API.G_RET_STS_SUCCESS;
13921: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
13922: l_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13923: l_alt_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13924: l_fax_return_status := FND_API.G_RET_STS_SUCCESS;
13917: --default return stati
13918: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
13919: l_per_return_status := FND_API.G_RET_STS_SUCCESS;
13920: l_org_contact_return_status := FND_API.G_RET_STS_SUCCESS;
13921: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
13922: l_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13923: l_alt_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13924: l_fax_return_status := FND_API.G_RET_STS_SUCCESS;
13925: l_email_return_status := FND_API.G_RET_STS_SUCCESS;
13918: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
13919: l_per_return_status := FND_API.G_RET_STS_SUCCESS;
13920: l_org_contact_return_status := FND_API.G_RET_STS_SUCCESS;
13921: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
13922: l_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13923: l_alt_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13924: l_fax_return_status := FND_API.G_RET_STS_SUCCESS;
13925: l_email_return_status := FND_API.G_RET_STS_SUCCESS;
13926: l_url_return_status := FND_API.G_RET_STS_SUCCESS;
13919: l_per_return_status := FND_API.G_RET_STS_SUCCESS;
13920: l_org_contact_return_status := FND_API.G_RET_STS_SUCCESS;
13921: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
13922: l_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13923: l_alt_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13924: l_fax_return_status := FND_API.G_RET_STS_SUCCESS;
13925: l_email_return_status := FND_API.G_RET_STS_SUCCESS;
13926: l_url_return_status := FND_API.G_RET_STS_SUCCESS;
13927:
13920: l_org_contact_return_status := FND_API.G_RET_STS_SUCCESS;
13921: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
13922: l_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13923: l_alt_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13924: l_fax_return_status := FND_API.G_RET_STS_SUCCESS;
13925: l_email_return_status := FND_API.G_RET_STS_SUCCESS;
13926: l_url_return_status := FND_API.G_RET_STS_SUCCESS;
13927:
13928: l_vendor_contact_rec := p_vendor_contact_rec;
13921: l_site_return_status := FND_API.G_RET_STS_SUCCESS;
13922: l_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13923: l_alt_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13924: l_fax_return_status := FND_API.G_RET_STS_SUCCESS;
13925: l_email_return_status := FND_API.G_RET_STS_SUCCESS;
13926: l_url_return_status := FND_API.G_RET_STS_SUCCESS;
13927:
13928: l_vendor_contact_rec := p_vendor_contact_rec;
13929: validate_vendor_contact(p_api_version => 1.0,
13922: l_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13923: l_alt_phone_return_status := FND_API.G_RET_STS_SUCCESS;
13924: l_fax_return_status := FND_API.G_RET_STS_SUCCESS;
13925: l_email_return_status := FND_API.G_RET_STS_SUCCESS;
13926: l_url_return_status := FND_API.G_RET_STS_SUCCESS;
13927:
13928: l_vendor_contact_rec := p_vendor_contact_rec;
13929: validate_vendor_contact(p_api_version => 1.0,
13930: p_init_msg_list => FND_API.G_FALSE,
13926: l_url_return_status := FND_API.G_RET_STS_SUCCESS;
13927:
13928: l_vendor_contact_rec := p_vendor_contact_rec;
13929: validate_vendor_contact(p_api_version => 1.0,
13930: p_init_msg_list => FND_API.G_FALSE,
13931: p_commit => FND_API.G_FALSE,
13932: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
13933: x_return_status => l_val_return_status,
13934: x_msg_count => l_val_msg_count,
13927:
13928: l_vendor_contact_rec := p_vendor_contact_rec;
13929: validate_vendor_contact(p_api_version => 1.0,
13930: p_init_msg_list => FND_API.G_FALSE,
13931: p_commit => FND_API.G_FALSE,
13932: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
13933: x_return_status => l_val_return_status,
13934: x_msg_count => l_val_msg_count,
13935: x_msg_data => l_val_msg_data,
13928: l_vendor_contact_rec := p_vendor_contact_rec;
13929: validate_vendor_contact(p_api_version => 1.0,
13930: p_init_msg_list => FND_API.G_FALSE,
13931: p_commit => FND_API.G_FALSE,
13932: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
13933: x_return_status => l_val_return_status,
13934: x_msg_count => l_val_msg_count,
13935: x_msg_data => l_val_msg_data,
13936: p_vendor_contact_rec => l_vendor_contact_rec,
13941: x_org_contact_valid => l_org_contact_valid,
13942: x_org_party_id => l_org_party_id,
13943: x_location_id => l_location_id);
13944:
13945: IF (l_val_msg_count = 0 AND l_val_return_status = FND_API.G_RET_STS_SUCCESS) THEN /* Bug 12590128 */
13946: IF l_per_party_valid = 'N' THEN
13947: -- create new party record
13948:
13949: l_per_rec.person_first_name := l_vendor_contact_rec.person_first_name;
13988: END IF;
13989:
13990: l_per_rec.party_rec := l_party_rec;
13991: hz_party_v2pub.create_person(
13992: p_init_msg_list => FND_API.G_FALSE,
13993: p_person_rec => l_per_rec,
13994: p_party_usage_code => 'SUPPLIER_CONTACT',
13995: --p_commit => FND_API.G_FALSE,
13996: x_return_status => l_per_return_status,
13991: hz_party_v2pub.create_person(
13992: p_init_msg_list => FND_API.G_FALSE,
13993: p_person_rec => l_per_rec,
13994: p_party_usage_code => 'SUPPLIER_CONTACT',
13995: --p_commit => FND_API.G_FALSE,
13996: x_return_status => l_per_return_status,
13997: x_msg_count => l_per_msg_count,
13998: x_msg_data => l_per_msg_data,
13999: x_party_id => l_per_party_id,
13999: x_party_id => l_per_party_id,
14000: x_party_number => l_per_party_number,
14001: x_profile_id => l_per_profile_id);
14002:
14003: IF l_per_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14004: ------------------------------------------------------------------------
14005: l_debug_info := 'After call to hz_party_v2pub.create_person';
14006: l_debug_info := l_debug_info||' Return status : '||l_per_return_status||' Error : '||l_per_msg_data;
14007: ------------------------------------------------------------------------
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,
14075: x_return_status => l_per_return_status,
14076: x_msg_count => l_per_msg_count,
14077: x_msg_data => l_per_msg_data);
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(
14114: p_init_msg_list => FND_API.G_FALSE,
14115: p_org_contact_rec => l_org_contact_rec,
14116: --p_commit => FND_API.G_FALSE,
14117: x_return_status => l_org_contact_return_status,
14118: x_msg_count => l_org_contact_msg_count,
14112:
14113: hz_party_contact_v2pub.create_org_contact(
14114: p_init_msg_list => FND_API.G_FALSE,
14115: p_org_contact_rec => l_org_contact_rec,
14116: --p_commit => FND_API.G_FALSE,
14117: x_return_status => l_org_contact_return_status,
14118: x_msg_count => l_org_contact_msg_count,
14119: x_msg_data => l_org_contact_msg_data,
14120: x_org_contact_id => l_org_contact_id,
14121: x_party_rel_id => l_rel_id,
14122: x_party_id => l_rel_party_id,
14123: x_party_number => l_rel_party_number);
14124:
14125: IF l_org_contact_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14126: ------------------------------------------------------------------------
14127: l_debug_info := 'After call to hz_party_contact_v2pub.create_org_contact';
14128: l_debug_info := l_debug_info||' Return status : '||l_org_contact_return_status||' Error : '||l_org_contact_msg_data;
14129: ------------------------------------------------------------------------
14204: END IF;
14205: -- udhenuko Bug 6823885 End
14206:
14207: hz_party_site_v2pub.create_party_site(
14208: p_init_msg_list => FND_API.G_FALSE,
14209: p_party_site_rec => l_party_site_rec,
14210: --p_commit => FND_API.G_FALSE,
14211: x_return_status => l_site_return_status,
14212: x_msg_count => l_site_msg_count,
14206:
14207: hz_party_site_v2pub.create_party_site(
14208: p_init_msg_list => FND_API.G_FALSE,
14209: p_party_site_rec => l_party_site_rec,
14210: --p_commit => FND_API.G_FALSE,
14211: x_return_status => l_site_return_status,
14212: x_msg_count => l_site_msg_count,
14213: x_msg_data => l_site_msg_data,
14214: x_party_site_id => l_party_site_id,
14213: x_msg_data => l_site_msg_data,
14214: x_party_site_id => l_party_site_id,
14215: x_party_site_number => l_party_site_number);
14216:
14217: IF l_site_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14218: ------------------------------------------------------------------------
14219: l_debug_info := 'After call to hz_party_site_v2pub.create_party_site';
14220: l_debug_info := l_debug_info||' Return status : '||l_site_return_status||' Error : '||l_site_msg_data;
14221: ------------------------------------------------------------------------
14302: --
14303: l_phone_rec.phone_line_type := 'GEN';
14304:
14305: hz_contact_point_v2pub.create_phone_contact_point(
14306: p_init_msg_list => FND_API.G_FALSE,
14307: p_contact_point_rec => l_contact_point_rec,
14308: p_phone_rec => l_phone_rec,
14309: --p_commit => FND_API.G_FALSE,
14310: x_return_status => l_phone_return_status,
14305: hz_contact_point_v2pub.create_phone_contact_point(
14306: p_init_msg_list => FND_API.G_FALSE,
14307: p_contact_point_rec => l_contact_point_rec,
14308: p_phone_rec => l_phone_rec,
14309: --p_commit => FND_API.G_FALSE,
14310: x_return_status => l_phone_return_status,
14311: x_msg_count => l_phone_msg_count,
14312: x_msg_data => l_phone_msg_data,
14313: x_contact_point_id => l_phone_contact_point_id);
14311: x_msg_count => l_phone_msg_count,
14312: x_msg_data => l_phone_msg_data,
14313: x_contact_point_id => l_phone_contact_point_id);
14314:
14315: IF l_phone_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14316: ------------------------------------------------------------------------
14317: l_debug_info := 'After call to hz_contact_point_v2pub.create_phone_contact_point Primary Phone';
14318: l_debug_info := l_debug_info||' Return status : '||l_phone_return_status||' Error : '||l_phone_msg_data;
14319: ------------------------------------------------------------------------
14387: --
14388: l_alt_phone_rec.phone_line_type := 'GEN';
14389:
14390: hz_contact_point_v2pub.create_phone_contact_point(
14391: p_init_msg_list => FND_API.G_FALSE,
14392: p_contact_point_rec => l_contact_point_rec,
14393: p_phone_rec => l_alt_phone_rec,
14394: --p_commit => FND_API.G_FALSE,
14395: x_return_status => l_alt_phone_return_status,
14390: hz_contact_point_v2pub.create_phone_contact_point(
14391: p_init_msg_list => FND_API.G_FALSE,
14392: p_contact_point_rec => l_contact_point_rec,
14393: p_phone_rec => l_alt_phone_rec,
14394: --p_commit => FND_API.G_FALSE,
14395: x_return_status => l_alt_phone_return_status,
14396: x_msg_count => l_alt_phone_msg_count,
14397: x_msg_data => l_alt_phone_msg_data,
14398: x_contact_point_id => l_alt_phone_contact_point_id);
14396: x_msg_count => l_alt_phone_msg_count,
14397: x_msg_data => l_alt_phone_msg_data,
14398: x_contact_point_id => l_alt_phone_contact_point_id);
14399:
14400: IF l_alt_phone_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14401: ------------------------------------------------------------------------
14402: l_debug_info := 'After call to hz_contact_point_v2pub.create_phone_contact_point Alt Phone';
14403: l_debug_info := l_debug_info||' Return status : '||l_alt_phone_return_status||' Error : '||l_alt_phone_msg_data;
14404: ------------------------------------------------------------------------
14468: l_fax_rec.phone_number := l_vendor_contact_rec.fax_phone;
14469: l_fax_rec.phone_line_type := 'FAX';
14470:
14471: hz_contact_point_v2pub.create_phone_contact_point(
14472: p_init_msg_list => FND_API.G_FALSE,
14473: p_contact_point_rec => l_contact_point_rec,
14474: p_phone_rec => l_fax_rec,
14475: --p_commit => FND_API.G_FALSE,
14476: x_return_status => l_fax_return_status,
14471: hz_contact_point_v2pub.create_phone_contact_point(
14472: p_init_msg_list => FND_API.G_FALSE,
14473: p_contact_point_rec => l_contact_point_rec,
14474: p_phone_rec => l_fax_rec,
14475: --p_commit => FND_API.G_FALSE,
14476: x_return_status => l_fax_return_status,
14477: x_msg_count => l_fax_msg_count,
14478: x_msg_data => l_fax_msg_data,
14479: x_contact_point_id => l_fax_contact_point_id);
14477: x_msg_count => l_fax_msg_count,
14478: x_msg_data => l_fax_msg_data,
14479: x_contact_point_id => l_fax_contact_point_id);
14480:
14481: IF l_fax_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14482: ------------------------------------------------------------------------
14483: l_debug_info := 'After call to hz_contact_point_v2pub.create_phone_contact_point Fax Phone';
14484: l_debug_info := l_debug_info||' Return status : '||l_fax_return_status||' Error : '||l_fax_msg_data;
14485: ------------------------------------------------------------------------
14546: l_contact_point_rec.primary_by_purpose := 'N';
14547: l_email_rec.email_address := l_vendor_contact_rec.email_address;
14548:
14549: hz_contact_point_v2pub.create_email_contact_point(
14550: p_init_msg_list => FND_API.G_FALSE,
14551: p_contact_point_rec => l_contact_point_rec,
14552: p_email_rec => l_email_rec,
14553: --p_commit => FND_API.G_FALSE,
14554: x_return_status => l_email_return_status,
14549: hz_contact_point_v2pub.create_email_contact_point(
14550: p_init_msg_list => FND_API.G_FALSE,
14551: p_contact_point_rec => l_contact_point_rec,
14552: p_email_rec => l_email_rec,
14553: --p_commit => FND_API.G_FALSE,
14554: x_return_status => l_email_return_status,
14555: x_msg_count => l_email_msg_count,
14556: x_msg_data => l_email_msg_data,
14557: x_contact_point_id => l_email_contact_point_id);
14555: x_msg_count => l_email_msg_count,
14556: x_msg_data => l_email_msg_data,
14557: x_contact_point_id => l_email_contact_point_id);
14558:
14559: IF l_email_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14560: ------------------------------------------------------------------------
14561: l_debug_info := 'After call to hz_contact_point_v2pub.create_email_contact_point';
14562: l_debug_info := l_debug_info||' Return status : '||l_email_return_status||' Error : '||l_email_msg_data;
14563: ------------------------------------------------------------------------
14626: l_url_rec.web_type := 'HTTP';
14627: l_url_rec.url := l_vendor_contact_rec.url;
14628:
14629: hz_contact_point_v2pub.create_web_contact_point(
14630: p_init_msg_list => FND_API.G_FALSE,
14631: p_contact_point_rec => l_contact_point_rec,
14632: p_web_rec => l_url_rec,
14633: --p_commit => FND_API.G_FALSE,
14634: x_return_status => l_url_return_status,
14629: hz_contact_point_v2pub.create_web_contact_point(
14630: p_init_msg_list => FND_API.G_FALSE,
14631: p_contact_point_rec => l_contact_point_rec,
14632: p_web_rec => l_url_rec,
14633: --p_commit => FND_API.G_FALSE,
14634: x_return_status => l_url_return_status,
14635: x_msg_count => l_url_msg_count,
14636: x_msg_data => l_url_msg_data,
14637: x_contact_point_id => l_url_contact_point_id);
14635: x_msg_count => l_url_msg_count,
14636: x_msg_data => l_url_msg_data,
14637: x_contact_point_id => l_url_contact_point_id);
14638:
14639: IF l_url_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14640: ------------------------------------------------------------------------
14641: l_debug_info := 'After call to hz_contact_point_v2pub.create_web_contact_point';
14642: l_debug_info := l_debug_info||' Return status : '||l_url_return_status||' Error : '||l_url_msg_data;
14643: ------------------------------------------------------------------------
14695: END IF; --url
14696:
14697: END IF; --contact points
14698:
14699: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) AND
14700: (l_per_return_status = FND_API.G_RET_STS_SUCCESS) AND
14701: (l_org_contact_return_status = FND_API.G_RET_STS_SUCCESS) AND
14702: (l_site_return_status = FND_API.G_RET_STS_SUCCESS) AND
14703: (l_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14696:
14697: END IF; --contact points
14698:
14699: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) AND
14700: (l_per_return_status = FND_API.G_RET_STS_SUCCESS) AND
14701: (l_org_contact_return_status = FND_API.G_RET_STS_SUCCESS) AND
14702: (l_site_return_status = FND_API.G_RET_STS_SUCCESS) AND
14703: (l_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14704: (l_alt_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14697: END IF; --contact points
14698:
14699: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) AND
14700: (l_per_return_status = FND_API.G_RET_STS_SUCCESS) AND
14701: (l_org_contact_return_status = FND_API.G_RET_STS_SUCCESS) AND
14702: (l_site_return_status = FND_API.G_RET_STS_SUCCESS) AND
14703: (l_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14704: (l_alt_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14705: (l_fax_return_status = FND_API.G_RET_STS_SUCCESS) AND
14698:
14699: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) AND
14700: (l_per_return_status = FND_API.G_RET_STS_SUCCESS) AND
14701: (l_org_contact_return_status = FND_API.G_RET_STS_SUCCESS) AND
14702: (l_site_return_status = FND_API.G_RET_STS_SUCCESS) AND
14703: (l_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14704: (l_alt_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14705: (l_fax_return_status = FND_API.G_RET_STS_SUCCESS) AND
14706: (l_email_return_status = FND_API.G_RET_STS_SUCCESS) AND
14699: IF (l_val_return_status = FND_API.G_RET_STS_SUCCESS) AND
14700: (l_per_return_status = FND_API.G_RET_STS_SUCCESS) AND
14701: (l_org_contact_return_status = FND_API.G_RET_STS_SUCCESS) AND
14702: (l_site_return_status = FND_API.G_RET_STS_SUCCESS) AND
14703: (l_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14704: (l_alt_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14705: (l_fax_return_status = FND_API.G_RET_STS_SUCCESS) AND
14706: (l_email_return_status = FND_API.G_RET_STS_SUCCESS) AND
14707: (l_url_return_status = FND_API.G_RET_STS_SUCCESS) THEN
14700: (l_per_return_status = FND_API.G_RET_STS_SUCCESS) AND
14701: (l_org_contact_return_status = FND_API.G_RET_STS_SUCCESS) AND
14702: (l_site_return_status = FND_API.G_RET_STS_SUCCESS) AND
14703: (l_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14704: (l_alt_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14705: (l_fax_return_status = FND_API.G_RET_STS_SUCCESS) AND
14706: (l_email_return_status = FND_API.G_RET_STS_SUCCESS) AND
14707: (l_url_return_status = FND_API.G_RET_STS_SUCCESS) THEN
14708:
14701: (l_org_contact_return_status = FND_API.G_RET_STS_SUCCESS) AND
14702: (l_site_return_status = FND_API.G_RET_STS_SUCCESS) AND
14703: (l_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14704: (l_alt_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14705: (l_fax_return_status = FND_API.G_RET_STS_SUCCESS) AND
14706: (l_email_return_status = FND_API.G_RET_STS_SUCCESS) AND
14707: (l_url_return_status = FND_API.G_RET_STS_SUCCESS) THEN
14708:
14709:
14702: (l_site_return_status = FND_API.G_RET_STS_SUCCESS) AND
14703: (l_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14704: (l_alt_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14705: (l_fax_return_status = FND_API.G_RET_STS_SUCCESS) AND
14706: (l_email_return_status = FND_API.G_RET_STS_SUCCESS) AND
14707: (l_url_return_status = FND_API.G_RET_STS_SUCCESS) THEN
14708:
14709:
14710: SELECT po_vendor_contacts_s.nextval
14703: (l_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14704: (l_alt_phone_return_status = FND_API.G_RET_STS_SUCCESS) AND
14705: (l_fax_return_status = FND_API.G_RET_STS_SUCCESS) AND
14706: (l_email_return_status = FND_API.G_RET_STS_SUCCESS) AND
14707: (l_url_return_status = FND_API.G_RET_STS_SUCCESS) THEN
14708:
14709:
14710: SELECT po_vendor_contacts_s.nextval
14711: INTO l_vendor_contact_rec.vendor_contact_id
14792: x_party_site_id := l_vendor_contact_rec.party_site_id;
14793:
14794: Raise_Supplier_Event( i_vendor_contact_id => x_vendor_contact_id ); -- Bug 7307669
14795:
14796: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14797: (l_per_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14798: (l_org_contact_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14799: (l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14800: (l_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14793:
14794: Raise_Supplier_Event( i_vendor_contact_id => x_vendor_contact_id ); -- Bug 7307669
14795:
14796: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14797: (l_per_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14798: (l_org_contact_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14799: (l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14800: (l_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14801: (l_alt_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14794: Raise_Supplier_Event( i_vendor_contact_id => x_vendor_contact_id ); -- Bug 7307669
14795:
14796: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14797: (l_per_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14798: (l_org_contact_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14799: (l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14800: (l_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14801: (l_alt_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14802: (l_fax_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14795:
14796: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14797: (l_per_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14798: (l_org_contact_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14799: (l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14800: (l_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14801: (l_alt_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14802: (l_fax_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14803: (l_email_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14796: ELSIF (l_val_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14797: (l_per_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14798: (l_org_contact_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14799: (l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14800: (l_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14801: (l_alt_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14802: (l_fax_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14803: (l_email_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14804: (l_url_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
14797: (l_per_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14798: (l_org_contact_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14799: (l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14800: (l_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14801: (l_alt_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14802: (l_fax_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14803: (l_email_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14804: (l_url_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
14805:
14798: (l_org_contact_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14799: (l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14800: (l_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14801: (l_alt_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14802: (l_fax_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14803: (l_email_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14804: (l_url_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
14805:
14806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14799: (l_site_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14800: (l_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14801: (l_alt_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14802: (l_fax_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14803: (l_email_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14804: (l_url_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
14805:
14806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14807:
14800: (l_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14801: (l_alt_phone_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14802: (l_fax_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14803: (l_email_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14804: (l_url_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
14805:
14806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14807:
14808: ELSE
14802: (l_fax_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14803: (l_email_return_status = FND_API.G_RET_STS_UNEXP_ERROR) OR
14804: (l_url_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
14805:
14806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14807:
14808: ELSE
14809:
14810: x_return_status := FND_API.G_RET_STS_ERROR;
14806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14807:
14808: ELSE
14809:
14810: x_return_status := FND_API.G_RET_STS_ERROR;
14811: END IF;
14812:
14813: -- End of API body.
14814:
14812:
14813: -- End of API body.
14814:
14815: -- Standard check of p_commit.
14816: IF FND_API.To_Boolean( p_commit ) THEN
14817: COMMIT WORK;
14818: END IF;
14819: /* Bug 12590128 start */
14820: ELSE
14817: COMMIT WORK;
14818: END IF;
14819: /* Bug 12590128 start */
14820: ELSE
14821: x_return_status := FND_API.G_RET_STS_ERROR;
14822:
14823: IF ( NVL(l_val_msg_count, 0) > 1 ) THEN
14824: FOR i IN 1..l_val_msg_count
14825: LOOP
14843: p_data => x_msg_data
14844: );
14845:
14846: EXCEPTION
14847: WHEN FND_API.G_EXC_ERROR THEN
14848: ROLLBACK TO Create_Vendor_Contact_PUB;
14849: x_return_status := FND_API.G_RET_STS_ERROR ;
14850: FND_MSG_PUB.Count_And_Get
14851: ( p_count => x_msg_count,
14845:
14846: EXCEPTION
14847: WHEN FND_API.G_EXC_ERROR THEN
14848: ROLLBACK TO Create_Vendor_Contact_PUB;
14849: x_return_status := FND_API.G_RET_STS_ERROR ;
14850: FND_MSG_PUB.Count_And_Get
14851: ( p_count => x_msg_count,
14852: p_data => x_msg_data
14853: );
14850: FND_MSG_PUB.Count_And_Get
14851: ( p_count => x_msg_count,
14852: p_data => x_msg_data
14853: );
14854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14855: ROLLBACK TO Create_Vendor_Contact_PUB;
14856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14857: FND_MSG_PUB.Count_And_Get
14858: ( p_count => x_msg_count,
14852: p_data => x_msg_data
14853: );
14854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14855: ROLLBACK TO Create_Vendor_Contact_PUB;
14856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14857: FND_MSG_PUB.Count_And_Get
14858: ( p_count => x_msg_count,
14859: p_data => x_msg_data
14860: );
14859: p_data => x_msg_data
14860: );
14861: WHEN OTHERS THEN
14862: ROLLBACK TO Create_Vendor_Contact_PUB;
14863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14864: IF FND_MSG_PUB.Check_Msg_Level
14865: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14866: FND_MSG_PUB.Add_Exc_Msg
14867: ( G_PKG_NAME ,
14875: END Create_Vendor_Contact;
14876:
14877: PROCEDURE Update_Vendor_Contact
14878: ( p_api_version IN NUMBER,
14879: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
14880: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14881: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14882: p_vendor_contact_rec IN r_vendor_contact_rec_type,
14883: x_return_status OUT NOCOPY VARCHAR2 ,
14876:
14877: PROCEDURE Update_Vendor_Contact
14878: ( p_api_version IN NUMBER,
14879: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
14880: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14881: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14882: p_vendor_contact_rec IN r_vendor_contact_rec_type,
14883: x_return_status OUT NOCOPY VARCHAR2 ,
14884: x_msg_count OUT NOCOPY NUMBER,
14877: PROCEDURE Update_Vendor_Contact
14878: ( p_api_version IN NUMBER,
14879: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
14880: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14881: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14882: p_vendor_contact_rec IN r_vendor_contact_rec_type,
14883: x_return_status OUT NOCOPY VARCHAR2 ,
14884: x_msg_count OUT NOCOPY NUMBER,
14885: x_msg_data OUT NOCOPY VARCHAR2
14893: -- Standard Start of API savepoint
14894: SAVEPOINT Update_Vendor_Contact_PUB;
14895:
14896: -- Standard call to check for call compatibility.
14897: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
14898: p_api_version ,
14899: l_api_name ,
14900: G_PKG_NAME )
14901: THEN
14898: p_api_version ,
14899: l_api_name ,
14900: G_PKG_NAME )
14901: THEN
14902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14903: END IF;
14904:
14905: -- Initialize message list if p_init_msg_list is set to TRUE.
14906: IF FND_API.to_Boolean( p_init_msg_list ) THEN
14902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14903: END IF;
14904:
14905: -- Initialize message list if p_init_msg_list is set to TRUE.
14906: IF FND_API.to_Boolean( p_init_msg_list ) THEN
14907: FND_MSG_PUB.initialize;
14908: END IF;
14909:
14910: -- Initialize API return status to success
14907: FND_MSG_PUB.initialize;
14908: END IF;
14909:
14910: -- Initialize API return status to success
14911: x_return_status := FND_API.G_RET_STS_SUCCESS;
14912:
14913: -- API body
14914:
14915: IF ( p_vendor_contact_rec.PER_PARTY_ID IS NOT NULL AND
14935:
14936: Raise_Supplier_Event( i_vendor_contact_id => p_vendor_contact_rec.vendor_contact_id ); -- Bug 7307669
14937:
14938: ELSE
14939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14940: END IF;
14941:
14942: -- End of API body.
14943:
14941:
14942: -- End of API body.
14943:
14944: -- Standard check of p_commit.
14945: IF FND_API.To_Boolean( p_commit ) THEN
14946: COMMIT WORK;
14947: END IF;
14948:
14949: -- Standard call to get message count and if count is 1,
14953: p_data => x_msg_data
14954: );
14955:
14956: EXCEPTION
14957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14958: ROLLBACK TO Update_Vendor_Contact_PUB;
14959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14960: FND_MSG_PUB.Count_And_Get
14961: ( p_count => x_msg_count,
14955:
14956: EXCEPTION
14957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14958: ROLLBACK TO Update_Vendor_Contact_PUB;
14959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14960: FND_MSG_PUB.Count_And_Get
14961: ( p_count => x_msg_count,
14962: p_data => x_msg_data
14963: );
14962: p_data => x_msg_data
14963: );
14964: WHEN OTHERS THEN
14965: ROLLBACK TO Update_Vendor_Contact_PUB;
14966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14967: IF FND_MSG_PUB.Check_Msg_Level
14968: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14969: FND_MSG_PUB.Add_Exc_Msg
14970: ( G_PKG_NAME ,
14979:
14980:
14981: PROCEDURE Validate_Vendor_Contact
14982: ( p_api_version IN NUMBER,
14983: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
14984: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14985: p_validation_level IN NUMBER :=
14986: FND_API.G_VALID_LEVEL_FULL,
14987: x_return_status OUT NOCOPY VARCHAR2 ,
14980:
14981: PROCEDURE Validate_Vendor_Contact
14982: ( p_api_version IN NUMBER,
14983: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
14984: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14985: p_validation_level IN NUMBER :=
14986: FND_API.G_VALID_LEVEL_FULL,
14987: x_return_status OUT NOCOPY VARCHAR2 ,
14988: x_msg_count OUT NOCOPY NUMBER,
14982: ( p_api_version IN NUMBER,
14983: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
14984: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14985: p_validation_level IN NUMBER :=
14986: FND_API.G_VALID_LEVEL_FULL,
14987: x_return_status OUT NOCOPY VARCHAR2 ,
14988: x_msg_count OUT NOCOPY NUMBER,
14989: x_msg_data OUT NOCOPY VARCHAR2,
14990: p_vendor_contact_rec IN OUT NOCOPY r_vendor_contact_rec_type,
15019: -- Standard Start of API savepoint
15020: SAVEPOINT Validate_Vendor_Contact_PUB;
15021:
15022: -- Standard call to check for call compatibility.
15023: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
15024: p_api_version ,
15025: l_api_name ,
15026: G_PKG_NAME )
15027: THEN
15024: p_api_version ,
15025: l_api_name ,
15026: G_PKG_NAME )
15027: THEN
15028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15029: END IF;
15030:
15031: -- Initialize message list if p_init_msg_list is set to TRUE.
15032: IF FND_API.to_Boolean( p_init_msg_list ) THEN
15028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15029: END IF;
15030:
15031: -- Initialize message list if p_init_msg_list is set to TRUE.
15032: IF FND_API.to_Boolean( p_init_msg_list ) THEN
15033: FND_MSG_PUB.initialize;
15034: END IF;
15035:
15036: -- Initialize API return status to success
15033: FND_MSG_PUB.initialize;
15034: END IF;
15035:
15036: -- Initialize API return status to success
15037: x_return_status := FND_API.G_RET_STS_SUCCESS;
15038:
15039: -- API body
15040:
15041: -- Special logic for Import
15055: 'AP_SUP_SITE_CONTACT_INT',
15056: p_vendor_contact_rec.vendor_contact_interface_id,
15057: x_valid);
15058: IF NOT x_valid THEN
15059: x_return_status := FND_API.G_RET_STS_ERROR;
15060: END IF;
15061: END IF;
15062:
15063: -- Bug 7013954 If Party_Site_Name is provided, derive the party_site_id.
15076: p_vendor_contact_rec.vendor_contact_interface_id,
15077: x_valid);
15078: IF NOT x_valid THEN
15079:
15080: x_return_status := FND_API.G_RET_STS_ERROR;
15081: /* Bug 12590128 start*/
15082: IF g_source = 'IMPORT' THEN
15083: IF (Insert_Rejections(
15084: 'AP_SUP_SITE_CONTACT_INT',
15115: p_vendor_contact_rec.vendor_contact_interface_id,
15116: x_valid);
15117: IF NOT x_valid THEN
15118:
15119: x_return_status := FND_API.G_RET_STS_ERROR;
15120: ELSE
15121: SELECT hps.party_id,
15122: hps.location_id
15123: INTO x_org_party_id,
15148: p_vendor_contact_rec.vendor_contact_interface_id,
15149: x_valid);
15150: IF NOT x_valid THEN
15151:
15152: x_return_status := FND_API.G_RET_STS_ERROR;
15153: -- B# 8219586
15154: ELSE
15155: SELECT hps.party_id,
15156: hps.location_id
15189:
15190: IF NOT x_valid THEN
15191:
15192: --party_site_id does not exist
15193: x_return_status := FND_API.G_RET_STS_ERROR;
15194: x_party_site_valid := 'F';
15195: -- Special logic for Import
15196: IF g_source = 'IMPORT' THEN
15197: IF (Insert_Rejections(
15265: x_party_site_valid := 'V';
15266: x_valid := TRUE;
15267: /*
15268: -- new message
15269: x_return_status := FND_API.G_RET_STS_ERROR;
15270: -- Special logic for Import
15271: IF g_source = 'IMPORT' THEN
15272: IF (Insert_Rejections(
15273: 'AP_SUP_SITE_CONTACT_INT',
15298: -- valid. If x_valid is false then the party site info is invalid.
15299: IF NOT x_valid THEN
15300:
15301: --party_site_id does not exist
15302: x_return_status := FND_API.G_RET_STS_ERROR;
15303: -- Special logic for Import
15304: IF g_source = 'IMPORT' THEN
15305:
15306: IF (Insert_Rejections(
15345: x_valid);
15346:
15347: IF NOT x_valid THEN
15348:
15349: x_return_status := FND_API.G_RET_STS_ERROR;
15350: x_per_party_valid := 'F';
15351: -- Special logic for Import
15352: IF g_source = 'IMPORT' THEN
15353: IF (Insert_Rejections(
15462: -- NVL used because contacts can be directly associated
15463: -- can be directly associated to supplier. In such cases org_party_site_id would be null.
15464: IF l_combo_ct > 0 THEN
15465: -- throw duplicate contact for same supplier error.
15466: x_return_status := FND_API.G_RET_STS_ERROR;
15467: x_per_party_valid := 'F';
15468: -- Special logic for Import
15469: IF g_source = 'IMPORT' THEN
15470: IF (Insert_Rejections(
15533: Check_Valid_Party_ID(p_vendor_contact_rec.rel_party_id,
15534: x_valid);
15535:
15536: IF NOT x_valid THEN
15537: x_return_status := FND_API.G_RET_STS_ERROR;
15538: x_rel_party_valid := 'F';
15539: -- Special logic for Import
15540: IF g_source = 'IMPORT' THEN
15541: IF (Insert_Rejections(
15585: Check_Valid_Relationship_ID(p_vendor_contact_rec.relationship_id,
15586: x_valid);
15587:
15588: IF NOT x_valid THEN
15589: x_return_status := FND_API.G_RET_STS_ERROR;
15590: x_rel_valid := 'F';
15591: IF g_source = 'IMPORT' THEN
15592: IF (Insert_Rejections(
15593: 'AP_SUP_SITE_CONTACT_INT',
15636: Check_Valid_Org_Contact_ID(p_vendor_contact_rec.org_contact_id,
15637: x_valid);
15638:
15639: IF NOT x_valid THEN
15640: x_return_status := FND_API.G_RET_STS_ERROR;
15641: x_org_contact_valid := 'F';
15642: -- Special logic for Import
15643: IF g_source = 'IMPORT' THEN
15644: IF (Insert_Rejections(
15672: END IF;
15673: -- End of API body.
15674:
15675: -- Standard check of p_commit.
15676: IF FND_API.To_Boolean( p_commit ) THEN
15677: COMMIT WORK;
15678: END IF;
15679:
15680: -- Standard call to get message count and if count is 1,
15684: p_data => x_msg_data
15685: );
15686:
15687: EXCEPTION
15688: WHEN FND_API.G_EXC_ERROR THEN
15689: ROLLBACK TO Validate_Vendor_Contact_PUB;
15690: x_return_status := FND_API.G_RET_STS_ERROR ;
15691: FND_MSG_PUB.Count_And_Get
15692: ( p_count => x_msg_count,
15686:
15687: EXCEPTION
15688: WHEN FND_API.G_EXC_ERROR THEN
15689: ROLLBACK TO Validate_Vendor_Contact_PUB;
15690: x_return_status := FND_API.G_RET_STS_ERROR ;
15691: FND_MSG_PUB.Count_And_Get
15692: ( p_count => x_msg_count,
15693: p_data => x_msg_data
15694: );
15691: FND_MSG_PUB.Count_And_Get
15692: ( p_count => x_msg_count,
15693: p_data => x_msg_data
15694: );
15695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15696: ROLLBACK TO Validate_Vendor_Contact_PUB;
15697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15698: FND_MSG_PUB.Count_And_Get
15699: ( p_count => x_msg_count,
15693: p_data => x_msg_data
15694: );
15695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15696: ROLLBACK TO Validate_Vendor_Contact_PUB;
15697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15698: FND_MSG_PUB.Count_And_Get
15699: ( p_count => x_msg_count,
15700: p_data => x_msg_data
15701: );
15700: p_data => x_msg_data
15701: );
15702: WHEN OTHERS THEN
15703: ROLLBACK TO Validate_Vendor_Contact_PUB;
15704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15705: IF FND_MSG_PUB.Check_Msg_Level
15706: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
15707: FND_MSG_PUB.Add_Exc_Msg
15708: ( G_PKG_NAME ,
15788: -- Standard Start of API savepoint
15789: SAVEPOINT Import_Vendor_PUB;
15790:
15791: -- Standard call to check for call compatibility.
15792: IF NOT FND_API.Compatible_API_Call (l_api_version,
15793: p_api_version,
15794: l_api_name,
15795: G_PKG_NAME )
15796: THEN
15793: p_api_version,
15794: l_api_name,
15795: G_PKG_NAME )
15796: THEN
15797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15798: END IF;
15799:
15800: FND_MSG_PUB.initialize;
15801:
15802: g_user_id := FND_GLOBAL.USER_ID;
15803: g_login_id := FND_GLOBAL.LOGIN_ID;
15804: g_source := p_source;
15805: -- Initialize API return status to success
15806: x_return_status := FND_API.G_RET_STS_SUCCESS;
15807:
15808: -- API body
15809:
15810: IF g_source <> 'IMPORT' THEN
16199: /*bug 8275512 end*/
16200:
16201: Create_Vendor
16202: ( p_api_version => 1.0,
16203: p_init_msg_list => FND_API.G_FALSE,
16204: p_commit => FND_API.G_FALSE,
16205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
16206: x_return_status => l_return_status,
16207: x_msg_count => l_msg_count,
16200:
16201: Create_Vendor
16202: ( p_api_version => 1.0,
16203: p_init_msg_list => FND_API.G_FALSE,
16204: p_commit => FND_API.G_FALSE,
16205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
16206: x_return_status => l_return_status,
16207: x_msg_count => l_msg_count,
16208: x_msg_data => l_msg_data,
16201: Create_Vendor
16202: ( p_api_version => 1.0,
16203: p_init_msg_list => FND_API.G_FALSE,
16204: p_commit => FND_API.G_FALSE,
16205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
16206: x_return_status => l_return_status,
16207: x_msg_count => l_msg_count,
16208: x_msg_data => l_msg_data,
16209: p_vendor_rec => vendor_rec,
16209: p_vendor_rec => vendor_rec,
16210: x_vendor_id => l_vendor_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;
16233:
16234: /* Calling IBY Payee Validation API */
16235: IBY_DISBURSEMENT_SETUP_PUB.Validate_External_Payee
16236: ( p_api_version => 1.0,
16237: p_init_msg_list => FND_API.G_FALSE,
16238: p_ext_payee_rec => ext_payee_rec,
16239: x_return_status => l_return_status,
16240: x_msg_count => l_msg_count,
16241: x_msg_data => l_msg_data);
16239: x_return_status => l_return_status,
16240: x_msg_count => l_msg_count,
16241: x_msg_data => l_msg_data);
16242:
16243: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
16244:
16245: --bug 5568861 ext_payee_tab(ext_payee_tab.first) := ext_payee_rec;
16246: ext_payee_tab(1) := ext_payee_rec;
16247:
16247:
16248: /*Calling IBY Payee Creation API */
16249: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee
16250: ( p_api_version => 1.0,
16251: p_init_msg_list => FND_API.G_FALSE,
16252: p_ext_payee_tab => ext_payee_tab,
16253: x_return_status => l_return_status,
16254: x_msg_count => l_msg_count,
16255: x_msg_data => l_msg_data,
16255: x_msg_data => l_msg_data,
16256: x_ext_payee_id_tab => ext_payee_id_tab,
16257: x_ext_payee_status_tab => ext_payee_create_tab);
16258:
16259: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
16260: --bug 5568861
16261: l_ext_payee_id := ext_payee_id_tab(1).ext_payee_id;
16262:
16263: UPDATE IBY_TEMP_EXT_BANK_ACCTS
16278: -- which will create the association between
16279: -- supplier and bank account.
16280: IBY_DISBURSEMENT_SETUP_PUB.Create_Temp_Ext_Bank_Acct
16281: ( p_api_version => 1.0,
16282: p_init_msg_list => FND_API.G_FALSE,
16283: x_return_status => l_return_status,
16284: x_msg_count => l_msg_count,
16285: x_msg_data => l_msg_data,
16286: p_temp_ext_acct_id => l_temp_ext_acct_id,
16291: p_org_type => null, -- veramach added p_org_type as a new paramter for bug 7153777
16292: x_bank_acc_id => l_bank_acct_id,
16293: x_response => ext_response_rec);
16294:
16295: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
16296: UPDATE iby_temp_ext_bank_accts
16297: SET status = 'PROCESSED'
16298: WHERE temp_ext_bank_acct_id = l_temp_ext_acct_id;
16299:
16324: SET status = 'REJECTED'
16325: WHERE temp_ext_bank_acct_id = l_temp_ext_acct_id;
16326:
16327: -- Bug 9259355 Start
16328: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
16329: p_count => l_msg_count,
16330: p_data => l_msg_data);
16331:
16332: IF ( NVL(l_msg_count, 0) > 1 ) THEN
16414: END IF; -- Payee Creation API
16415:
16416: ELSE
16417: -- Bug 9259355 Start
16418: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
16419: p_count => l_msg_count,
16420: p_data => l_msg_data);
16421:
16422: IF ( NVL(l_msg_count, 0) > 1 ) THEN
16544: p_data => x_msg_data
16545: );
16546:
16547: EXCEPTION
16548: WHEN FND_API.G_EXC_ERROR THEN
16549: ROLLBACK TO Import_Vendor_PUB;
16550: x_return_status := FND_API.G_RET_STS_ERROR ;
16551: FND_MSG_PUB.Count_And_Get
16552: ( p_count => x_msg_count,
16546:
16547: EXCEPTION
16548: WHEN FND_API.G_EXC_ERROR THEN
16549: ROLLBACK TO Import_Vendor_PUB;
16550: x_return_status := FND_API.G_RET_STS_ERROR ;
16551: FND_MSG_PUB.Count_And_Get
16552: ( p_count => x_msg_count,
16553: p_data => x_msg_data
16554: );
16551: FND_MSG_PUB.Count_And_Get
16552: ( p_count => x_msg_count,
16553: p_data => x_msg_data
16554: );
16555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16556: ROLLBACK TO Import_Vendor_PUB;
16557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16558: FND_MSG_PUB.Count_And_Get
16559: ( p_count => x_msg_count,
16553: p_data => x_msg_data
16554: );
16555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16556: ROLLBACK TO Import_Vendor_PUB;
16557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16558: FND_MSG_PUB.Count_And_Get
16559: ( p_count => x_msg_count,
16560: p_data => x_msg_data
16561: );
16560: p_data => x_msg_data
16561: );
16562: WHEN OTHERS THEN
16563: ROLLBACK TO Import_Vendor_PUB;
16564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16565: IF FND_MSG_PUB.Check_Msg_Level
16566: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
16567: FND_MSG_PUB.Add_Exc_Msg
16568: ( G_PKG_NAME,
16649: -- Standard Start of API savepoint
16650: SAVEPOINT Import_Vendor_Sites_PUB;
16651:
16652: -- Standard call to check for call compatibility.
16653: IF NOT FND_API.Compatible_API_Call (l_api_version,
16654: p_api_version,
16655: l_api_name,
16656: G_PKG_NAME )
16657: THEN
16654: p_api_version,
16655: l_api_name,
16656: G_PKG_NAME )
16657: THEN
16658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16659: END IF;
16660:
16661: FND_MSG_PUB.initialize;
16662:
16663: g_user_id := FND_GLOBAL.USER_ID;
16664: g_login_id := FND_GLOBAL.LOGIN_ID;
16665: g_source := p_source;
16666: -- Initialize API return status to success
16667: x_return_status := FND_API.G_RET_STS_SUCCESS;
16668:
16669: IF g_source <> 'IMPORT' THEN
16670: NULL;
16671: ELSE
16998: /*bug 8275512 end*/
16999:
17000: Create_Vendor_Site
17001: ( p_api_version => 1.0,
17002: p_init_msg_list => FND_API.G_FALSE,
17003: p_commit => FND_API.G_FALSE,
17004: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
17005: x_return_status => l_return_status,
17006: x_msg_count => l_msg_count,
16999:
17000: Create_Vendor_Site
17001: ( p_api_version => 1.0,
17002: p_init_msg_list => FND_API.G_FALSE,
17003: p_commit => FND_API.G_FALSE,
17004: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
17005: x_return_status => l_return_status,
17006: x_msg_count => l_msg_count,
17007: x_msg_data => l_msg_data,
17000: Create_Vendor_Site
17001: ( p_api_version => 1.0,
17002: p_init_msg_list => FND_API.G_FALSE,
17003: p_commit => FND_API.G_FALSE,
17004: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
17005: x_return_status => l_return_status,
17006: x_msg_count => l_msg_count,
17007: x_msg_data => l_msg_data,
17008: p_vendor_site_rec => site_rec,
17009: x_vendor_site_id => l_vendor_site_id,
17010: x_party_site_id => l_party_site_id,
17011: x_location_id => l_location_id);
17012:
17013: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
17014:
17015: UPDATE Ap_Supplier_Sites_Int
17016: SET status = 'PROCESSED'
17017: WHERE vendor_site_interface_id =
17053:
17054: /* Calling IBY Payee Validation API */
17055: IBY_DISBURSEMENT_SETUP_PUB.Validate_External_Payee
17056: ( p_api_version => 1.0,
17057: p_init_msg_list => FND_API.G_FALSE,
17058: p_ext_payee_rec => ext_payee_rec,
17059: x_return_status => l_return_status,
17060: x_msg_count => l_msg_count,
17061: x_msg_data => l_msg_data);
17059: x_return_status => l_return_status,
17060: x_msg_count => l_msg_count,
17061: x_msg_data => l_msg_data);
17062:
17063: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
17064:
17065:
17066: -- B# 7339389
17067: --ext_payee_rec.remit_advice_delivery_method := site_int_rec.supplier_notif_method; .. Bug 8422781
17073:
17074: /* Calling IBY Payee Creation API */
17075: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee
17076: ( p_api_version => 1.0,
17077: p_init_msg_list => FND_API.G_FALSE,
17078: p_ext_payee_tab => ext_payee_tab,
17079: x_return_status => l_return_status,
17080: x_msg_count => l_msg_count,
17081: x_msg_data => l_msg_data,
17081: x_msg_data => l_msg_data,
17082: x_ext_payee_id_tab => ext_payee_id_tab,
17083: x_ext_payee_status_tab => ext_payee_create_tab);
17084:
17085: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
17086: --bug 5568861 l_ext_payee_id := ext_payee_id_tab(ext_payee_id_tab.first).ext_payee_id;
17087: l_ext_payee_id := ext_payee_id_tab(1).ext_payee_id;
17088:
17089: UPDATE IBY_TEMP_EXT_BANK_ACCTS
17102: /* Calling IBY Bank Account Validation API */
17103: --commented for Bug 9012321
17104: /* IBY_DISBURSEMENT_SETUP_PUB.Validate_Temp_Ext_Bank_Acct
17105: ( p_api_version => 1.0,
17106: p_init_msg_list => FND_API.G_FALSE,
17107: x_return_status => l_return_status,
17108: x_msg_count => l_msg_count,
17109: x_msg_data => l_msg_data,
17110: p_temp_ext_acct_id => l_temp_ext_acct_id);
17108: x_msg_count => l_msg_count,
17109: x_msg_data => l_msg_data,
17110: p_temp_ext_acct_id => l_temp_ext_acct_id);
17111:
17112: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN */ --Commented for Bug 9012321
17113: /* Calling IBY Bank Account Creation API */
17114: -- Bug 6845995. Calling overloaded procedure
17115: -- which will create the association between
17116: -- supplier site and bank account.
17115: -- which will create the association between
17116: -- supplier site and bank account.
17117: IBY_DISBURSEMENT_SETUP_PUB.Create_Temp_Ext_Bank_Acct
17118: ( p_api_version => 1.0,
17119: p_init_msg_list => FND_API.G_FALSE,
17120: x_return_status => l_return_status,
17121: x_msg_count => l_msg_count,
17122: x_msg_data => l_msg_data,
17123: p_temp_ext_acct_id => l_temp_ext_acct_id,
17128: p_org_type => 'OPERATING_UNIT', -- veramach added p_org_type as a new paramter for bug 7153777
17129: x_bank_acc_id => l_bank_acct_id,
17130: x_response => ext_response_rec);
17131:
17132: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
17133: UPDATE iby_temp_ext_bank_accts
17134: SET status = 'PROCESSED'
17135: WHERE temp_ext_bank_acct_id = l_temp_ext_acct_id;
17136:
17222: SET status = 'REJECTED'
17223: WHERE temp_ext_bank_acct_id = l_temp_ext_acct_id;
17224:
17225: -- Bug 9259355 Start
17226: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
17227: p_count => l_msg_count,
17228: p_data => l_msg_data);
17229:
17230: IF ( NVL(l_msg_count, 0) > 1 ) THEN
17288:
17289: ELSE -- Payee Creation API
17290:
17291: -- Bug 9259355 Start
17292: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
17293: p_count => l_msg_count,
17294: p_data => l_msg_data);
17295:
17296: IF ( NVL(l_msg_count, 0) > 1 ) THEN
17355:
17356: ELSE -- Payee Validation API
17357:
17358: -- Bug 9259355 Start
17359: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
17360: p_count => l_msg_count,
17361: p_data => l_msg_data);
17362:
17363: IF ( NVL(l_msg_count, 0) > 1 ) THEN
17488: p_data => x_msg_data
17489: );
17490:
17491: EXCEPTION
17492: WHEN FND_API.G_EXC_ERROR THEN
17493: ROLLBACK TO Import_Vendor_Sites_PUB;
17494: x_return_status := FND_API.G_RET_STS_ERROR ;
17495: FND_MSG_PUB.Count_And_Get
17496: ( p_count => x_msg_count,
17490:
17491: EXCEPTION
17492: WHEN FND_API.G_EXC_ERROR THEN
17493: ROLLBACK TO Import_Vendor_Sites_PUB;
17494: x_return_status := FND_API.G_RET_STS_ERROR ;
17495: FND_MSG_PUB.Count_And_Get
17496: ( p_count => x_msg_count,
17497: p_data => x_msg_data
17498: );
17495: FND_MSG_PUB.Count_And_Get
17496: ( p_count => x_msg_count,
17497: p_data => x_msg_data
17498: );
17499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17500: ROLLBACK TO Import_Vendor_Sites_PUB;
17501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17502: FND_MSG_PUB.Count_And_Get
17503: ( p_count => x_msg_count,
17497: p_data => x_msg_data
17498: );
17499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17500: ROLLBACK TO Import_Vendor_Sites_PUB;
17501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17502: FND_MSG_PUB.Count_And_Get
17503: ( p_count => x_msg_count,
17504: p_data => x_msg_data
17505: );
17504: p_data => x_msg_data
17505: );
17506: WHEN OTHERS THEN
17507: ROLLBACK TO Import_Vendor_Sites_PUB;
17508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17509: IF FND_MSG_PUB.Check_Msg_Level
17510: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17511: FND_MSG_PUB.Add_Exc_Msg
17512: ( G_PKG_NAME,
17566:
17567: BEGIN
17568:
17569: -- Standard call to check for call compatibility.
17570: IF NOT FND_API.Compatible_API_Call (l_api_version,
17571: p_api_version,
17572: l_api_name,
17573: G_PKG_NAME )
17574: THEN
17571: p_api_version,
17572: l_api_name,
17573: G_PKG_NAME )
17574: THEN
17575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17576: END IF;
17577:
17578: FND_MSG_PUB.initialize;
17579:
17580: g_user_id := FND_GLOBAL.USER_ID;
17581: g_login_id := FND_GLOBAL.LOGIN_ID;
17582: g_source := p_source;
17583: -- Initialize API return status to success
17584: x_return_status := FND_API.G_RET_STS_SUCCESS;
17585:
17586: -- API body
17587:
17588: IF g_source <> 'IMPORT' THEN
17717: -- Bug 7013954 end
17718:
17719: Create_Vendor_Contact
17720: ( p_api_version => 1.0,
17721: p_init_msg_list => FND_API.G_FALSE,
17722: p_commit => FND_API.G_FALSE,
17723: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
17724: x_return_status => l_return_status,
17725: x_msg_count => l_msg_count,
17718:
17719: Create_Vendor_Contact
17720: ( p_api_version => 1.0,
17721: p_init_msg_list => FND_API.G_FALSE,
17722: p_commit => FND_API.G_FALSE,
17723: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
17724: x_return_status => l_return_status,
17725: x_msg_count => l_msg_count,
17726: x_msg_data => l_msg_data,
17719: Create_Vendor_Contact
17720: ( p_api_version => 1.0,
17721: p_init_msg_list => FND_API.G_FALSE,
17722: p_commit => FND_API.G_FALSE,
17723: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
17724: x_return_status => l_return_status,
17725: x_msg_count => l_msg_count,
17726: x_msg_data => l_msg_data,
17727: p_vendor_contact_rec => vendor_contact_rec,
17731: x_rel_id => l_rel_id,
17732: x_org_contact_id => l_org_contact_id,
17733: x_party_site_id => l_party_site_id);
17734:
17735: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
17736:
17737: UPDATE Ap_Sup_Site_Contact_Int
17738: SET status = 'PROCESSED'
17739: WHERE CURRENT OF contact_int_cur; --Bug6413297
17774: p_data => x_msg_data
17775: );
17776:
17777: EXCEPTION
17778: WHEN FND_API.G_EXC_ERROR THEN
17779: ROLLBACK TO Import_Vendor_Contact_PUB;
17780: x_return_status := FND_API.G_RET_STS_ERROR ;
17781: FND_MSG_PUB.Count_And_Get
17782: ( p_count => x_msg_count,
17776:
17777: EXCEPTION
17778: WHEN FND_API.G_EXC_ERROR THEN
17779: ROLLBACK TO Import_Vendor_Contact_PUB;
17780: x_return_status := FND_API.G_RET_STS_ERROR ;
17781: FND_MSG_PUB.Count_And_Get
17782: ( p_count => x_msg_count,
17783: p_data => x_msg_data
17784: );
17781: FND_MSG_PUB.Count_And_Get
17782: ( p_count => x_msg_count,
17783: p_data => x_msg_data
17784: );
17785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17786: ROLLBACK TO Import_Vendor_Contact_PUB;
17787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17788: FND_MSG_PUB.Count_And_Get
17789: ( p_count => x_msg_count,
17783: p_data => x_msg_data
17784: );
17785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17786: ROLLBACK TO Import_Vendor_Contact_PUB;
17787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17788: FND_MSG_PUB.Count_And_Get
17789: ( p_count => x_msg_count,
17790: p_data => x_msg_data
17791: );
17790: p_data => x_msg_data
17791: );
17792: WHEN OTHERS THEN
17793: ROLLBACK TO Import_Vendor_Contact_PUB;
17794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17795: IF FND_MSG_PUB.Check_Msg_Level
17796: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17797: FND_MSG_PUB.Add_Exc_Msg
17798: ( G_PKG_NAME,
17810: --
17811:
17812: PROCEDURE Update_Address_Assignments_DFF(
17813: p_api_version IN NUMBER,
17814: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17815: p_commit IN VARCHAR2 := FND_API.G_FALSE,
17816: p_contact_party_id IN NUMBER,
17817: p_org_party_site_id IN NUMBER,
17818: p_attribute_category IN VARCHAR2 DEFAULT NULL,
17811:
17812: PROCEDURE Update_Address_Assignments_DFF(
17813: p_api_version IN NUMBER,
17814: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17815: p_commit IN VARCHAR2 := FND_API.G_FALSE,
17816: p_contact_party_id IN NUMBER,
17817: p_org_party_site_id IN NUMBER,
17818: p_attribute_category IN VARCHAR2 DEFAULT NULL,
17819: p_attribute1 IN VARCHAR2 DEFAULT NULL,
17847: -- Standard Start of API savepoint
17848: SAVEPOINT Update_Address_Assign_DFF_PUB;
17849:
17850: -- Standard call to check for call compatibility.
17851: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
17852: p_api_version ,
17853: l_api_name ,
17854: G_PKG_NAME )
17855: THEN
17852: p_api_version ,
17853: l_api_name ,
17854: G_PKG_NAME )
17855: THEN
17856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17857: END IF;
17858:
17859: -- Initialize message list if p_init_msg_list is set to TRUE.
17860: IF FND_API.to_Boolean( p_init_msg_list ) THEN
17856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17857: END IF;
17858:
17859: -- Initialize message list if p_init_msg_list is set to TRUE.
17860: IF FND_API.to_Boolean( p_init_msg_list ) THEN
17861: FND_MSG_PUB.initialize;
17862: END IF;
17863:
17864: -- Initialize API return status to success
17861: FND_MSG_PUB.initialize;
17862: END IF;
17863:
17864: -- Initialize API return status to success
17865: x_return_status := FND_API.G_RET_STS_SUCCESS;
17866:
17867: -- API body
17868:
17869:
17924:
17925: -- End of API body.
17926:
17927: -- Standard check of p_commit.
17928: IF FND_API.To_Boolean( p_commit ) THEN
17929: COMMIT WORK;
17930: END IF;
17931:
17932: -- Standard call to get message count and if count is 1,
17936: p_data => x_msg_data
17937: );
17938:
17939: EXCEPTION
17940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17941: ROLLBACK TO Update_Address_Assign_DFF_PUB;
17942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17943: FND_MSG_PUB.Count_And_Get
17944: ( p_count => x_msg_count,
17938:
17939: EXCEPTION
17940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17941: ROLLBACK TO Update_Address_Assign_DFF_PUB;
17942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17943: FND_MSG_PUB.Count_And_Get
17944: ( p_count => x_msg_count,
17945: p_data => x_msg_data
17946: );
17945: p_data => x_msg_data
17946: );
17947: WHEN OTHERS THEN
17948: ROLLBACK TO Update_Address_Assign_DFF_PUB;
17949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17950: IF FND_MSG_PUB.Check_Msg_Level
17951: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
17952: FND_MSG_PUB.Add_Exc_Msg
17953: ( G_PKG_NAME ,