[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE do_update_cust_account (
p_cust_account_rec IN OUT NOCOPY CUST_ACCOUNT_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
);
PROCEDURE do_update_cust_acct_relate (
p_cust_acct_relate_rec IN OUT NOCOPY CUST_ACCT_RELATE_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
p_rowid IN ROWID, -- Bug3449118
x_return_status IN OUT NOCOPY VARCHAR2
);
p_create_update_flag IN VARCHAR2,
p_cust_account_rec IN cust_account_rec_type,
p_old_cust_account_rec IN cust_account_rec_type DEFAULT NULL,
x_return_status IN OUT NOCOPY VARCHAR2
);
* HZ_CUST_ACCOUNTS_PKG.Insert_Row
* HZ_PARTY_V2PUB.create_person
* HZ_PARTY_V2PUB.create_organization
* HZ_CUSTOMER_PROFILE_V2PUB.create_customer_profile
*
* ARGUMENTS
* IN:
* p_entity_type Either 'PERSON' or 'ORGANIZATION'.
* p_create_profile_amt If it is set to FND_API.G_TRUE, API create customer
* profile amounts by copying corresponding data
* from customer profile class amounts.
* IN/OUT:
* p_cust_account_rec Customer account record.
* p_person_rec Person party record which being created account
* belongs to. If party_id in person record is not
* passed in or party_id does not exist in hz_parties,
* API ceates a person party based on this record.
* p_organization_rec Organization party record which being created account
* belongs to. If party_id in organization record is not
* passed in or party_id does not exist in hz_parties,
* API ceates a organization party based on this record.
* p_customer_profile_rec Customer profile record. One customer account
* must have a customer profile.
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* OUT:
* x_cust_account_id Customer account ID.
* x_account_number Customer account number.
* x_party_id Party ID of the party which this account belongs to.
* x_party_number Party number of the party which this account belongs
* to.
* x_profile_id Person or organization profile ID.
*
* NOTES
* This package is shared between create_cust_account (person) and create_cust_account
* (organization). It should always raise exception to main API.
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
* 02-01-2002 P.Suresh o Bug 2196137. Assigned the party number to
* l_party_number in do_create_cust_account
* procedure.
* 02-15-2005 Rajib Ranjan Borah o Bug 4048104. Retrieve party_id from
* orig_system and orig_system_reference if null is
* passed for party id.
*
*/
PROCEDURE do_create_cust_account (
p_entity_type IN VARCHAR2,
p_cust_account_rec IN OUT NOCOPY CUST_ACCOUNT_REC_TYPE,
p_person_rec IN OUT NOCOPY HZ_PARTY_V2PUB.PERSON_REC_TYPE,
p_organization_rec IN OUT NOCOPY HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE,
p_customer_profile_rec IN OUT NOCOPY HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
p_create_profile_amt IN VARCHAR2,
x_cust_account_id OUT NOCOPY NUMBER,
x_account_number OUT NOCOPY VARCHAR2,
x_party_id OUT NOCOPY NUMBER,
x_party_number OUT NOCOPY VARCHAR2,
x_profile_id OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := ''; --'do_create_cust_account';
select 'Y' from hz_cust_accounts
where ORIG_SYSTEM_REFERENCE = p_cust_account_rec.orig_system_reference;
SELECT null
FROM hz_cust_accounts
WHERE party_id = p_party_id
AND status = 'A'
AND cust_account_id <> p_cust_account_id
AND rownum = 1;
p_create_update_flag => 'C',
p_cust_account_rec => p_cust_account_rec,
p_rowid => NULL,
x_return_status => x_return_status );
SELECT party_type INTO l_party_type
FROM HZ_PARTIES
WHERE PARTY_ID = l_party_id;
SELECT owner_table_id /* party_id would also do */
INTO l_party_id
FROM HZ_ORIG_SYS_REFERENCES
WHERE orig_system = p_person_rec.party_rec.orig_system
AND orig_system_reference = p_person_rec.party_rec.orig_system_reference
AND owner_table_name = 'HZ_PARTIES'
AND status = 'A';
SELECT party_type INTO l_party_type
FROM HZ_PARTIES
WHERE PARTY_ID = l_party_id;
SELECT owner_table_id /* party_id would also do */
INTO l_party_id
FROM HZ_ORIG_SYS_REFERENCES
WHERE orig_system = p_organization_rec.party_rec.orig_system
AND orig_system_reference = p_organization_rec.party_rec.orig_system_reference
AND owner_table_name = 'HZ_PARTIES'
AND status = 'A';
SELECT party_type INTO l_party_type
FROM HZ_PARTIES
WHERE PARTY_ID = l_party_id;
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNTS_PKG.Insert_Row (+) ',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_CUST_ACCOUNTS_PKG.Insert_Row (
X_CUST_ACCOUNT_ID => p_cust_account_rec.cust_account_id,
X_PARTY_ID => l_party_id,
X_ACCOUNT_NUMBER => p_cust_account_rec.account_number,
X_ATTRIBUTE_CATEGORY => p_cust_account_rec.attribute_category,
X_ATTRIBUTE1 => p_cust_account_rec.attribute1,
X_ATTRIBUTE2 => p_cust_account_rec.attribute2,
X_ATTRIBUTE3 => p_cust_account_rec.attribute3,
X_ATTRIBUTE4 => p_cust_account_rec.attribute4,
X_ATTRIBUTE5 => p_cust_account_rec.attribute5,
X_ATTRIBUTE6 => p_cust_account_rec.attribute6,
X_ATTRIBUTE7 => p_cust_account_rec.attribute7,
X_ATTRIBUTE8 => p_cust_account_rec.attribute8,
X_ATTRIBUTE9 => p_cust_account_rec.attribute9,
X_ATTRIBUTE10 => p_cust_account_rec.attribute10,
X_ATTRIBUTE11 => p_cust_account_rec.attribute11,
X_ATTRIBUTE12 => p_cust_account_rec.attribute12,
X_ATTRIBUTE13 => p_cust_account_rec.attribute13,
X_ATTRIBUTE14 => p_cust_account_rec.attribute14,
X_ATTRIBUTE15 => p_cust_account_rec.attribute15,
X_ATTRIBUTE16 => p_cust_account_rec.attribute16,
X_ATTRIBUTE17 => p_cust_account_rec.attribute17,
X_ATTRIBUTE18 => p_cust_account_rec.attribute18,
X_ATTRIBUTE19 => p_cust_account_rec.attribute19,
X_ATTRIBUTE20 => p_cust_account_rec.attribute20,
X_GLOBAL_ATTRIBUTE_CATEGORY => p_cust_account_rec.global_attribute_category,
X_GLOBAL_ATTRIBUTE1 => p_cust_account_rec.global_attribute1,
X_GLOBAL_ATTRIBUTE2 => p_cust_account_rec.global_attribute2,
X_GLOBAL_ATTRIBUTE3 => p_cust_account_rec.global_attribute3,
X_GLOBAL_ATTRIBUTE4 => p_cust_account_rec.global_attribute4,
X_GLOBAL_ATTRIBUTE5 => p_cust_account_rec.global_attribute5,
X_GLOBAL_ATTRIBUTE6 => p_cust_account_rec.global_attribute6,
X_GLOBAL_ATTRIBUTE7 => p_cust_account_rec.global_attribute7,
X_GLOBAL_ATTRIBUTE8 => p_cust_account_rec.global_attribute8,
X_GLOBAL_ATTRIBUTE9 => p_cust_account_rec.global_attribute9,
X_GLOBAL_ATTRIBUTE10 => p_cust_account_rec.global_attribute10,
X_GLOBAL_ATTRIBUTE11 => p_cust_account_rec.global_attribute11,
X_GLOBAL_ATTRIBUTE12 => p_cust_account_rec.global_attribute12,
X_GLOBAL_ATTRIBUTE13 => p_cust_account_rec.global_attribute13,
X_GLOBAL_ATTRIBUTE14 => p_cust_account_rec.global_attribute14,
X_GLOBAL_ATTRIBUTE15 => p_cust_account_rec.global_attribute15,
X_GLOBAL_ATTRIBUTE16 => p_cust_account_rec.global_attribute16,
X_GLOBAL_ATTRIBUTE17 => p_cust_account_rec.global_attribute17,
X_GLOBAL_ATTRIBUTE18 => p_cust_account_rec.global_attribute18,
X_GLOBAL_ATTRIBUTE19 => p_cust_account_rec.global_attribute19,
X_GLOBAL_ATTRIBUTE20 => p_cust_account_rec.global_attribute20,
X_ORIG_SYSTEM_REFERENCE => p_cust_account_rec.orig_system_reference,
X_STATUS => p_cust_account_rec.status,
X_CUSTOMER_TYPE => p_cust_account_rec.customer_type,
X_CUSTOMER_CLASS_CODE => p_cust_account_rec.customer_class_code,
X_PRIMARY_SALESREP_ID => p_cust_account_rec.primary_salesrep_id,
X_SALES_CHANNEL_CODE => p_cust_account_rec.sales_channel_code,
X_ORDER_TYPE_ID => p_cust_account_rec.order_type_id,
X_PRICE_LIST_ID => p_cust_account_rec.price_list_id,
X_TAX_CODE => p_cust_account_rec.tax_code,
X_FOB_POINT => p_cust_account_rec.fob_point,
X_FREIGHT_TERM => p_cust_account_rec.freight_term,
X_SHIP_PARTIAL => p_cust_account_rec.ship_partial,
X_SHIP_VIA => p_cust_account_rec.ship_via,
X_WAREHOUSE_ID => p_cust_account_rec.warehouse_id,
X_TAX_HEADER_LEVEL_FLAG => p_cust_account_rec.tax_header_level_flag,
X_TAX_ROUNDING_RULE => p_cust_account_rec.tax_rounding_rule,
X_COTERMINATE_DAY_MONTH => p_cust_account_rec.coterminate_day_month,
X_PRIMARY_SPECIALIST_ID => p_cust_account_rec.primary_specialist_id,
X_SECONDARY_SPECIALIST_ID => p_cust_account_rec.secondary_specialist_id,
X_ACCOUNT_LIABLE_FLAG => p_cust_account_rec.account_liable_flag,
X_CURRENT_BALANCE => p_cust_account_rec.current_balance,
X_ACCOUNT_ESTABLISHED_DATE => p_cust_account_rec.account_established_date,
X_ACCOUNT_TERMINATION_DATE => p_cust_account_rec.account_termination_date,
X_ACCOUNT_ACTIVATION_DATE => p_cust_account_rec.account_activation_date,
X_DEPARTMENT => p_cust_account_rec.department,
X_HELD_BILL_EXPIRATION_DATE => p_cust_account_rec.held_bill_expiration_date,
X_HOLD_BILL_FLAG => p_cust_account_rec.hold_bill_flag,
X_REALTIME_RATE_FLAG => p_cust_account_rec.realtime_rate_flag,
X_ACCT_LIFE_CYCLE_STATUS => p_cust_account_rec.acct_life_cycle_status,
X_ACCOUNT_NAME => p_cust_account_rec.account_name,
X_DEPOSIT_REFUND_METHOD => p_cust_account_rec.deposit_refund_method,
X_DORMANT_ACCOUNT_FLAG => p_cust_account_rec.dormant_account_flag,
X_NPA_NUMBER => p_cust_account_rec.npa_number,
X_SUSPENSION_DATE => p_cust_account_rec.suspension_date,
X_SOURCE_CODE => p_cust_account_rec.source_code,
X_COMMENTS => p_cust_account_rec.comments,
X_DATES_NEGATIVE_TOLERANCE => p_cust_account_rec.dates_negative_tolerance,
X_DATES_POSITIVE_TOLERANCE => p_cust_account_rec.dates_positive_tolerance,
X_DATE_TYPE_PREFERENCE => p_cust_account_rec.date_type_preference,
X_OVER_SHIPMENT_TOLERANCE => p_cust_account_rec.over_shipment_tolerance,
X_UNDER_SHIPMENT_TOLERANCE => p_cust_account_rec.under_shipment_tolerance,
X_OVER_RETURN_TOLERANCE => p_cust_account_rec.over_return_tolerance,
X_UNDER_RETURN_TOLERANCE => p_cust_account_rec.under_return_tolerance,
X_ITEM_CROSS_REF_PREF => p_cust_account_rec.item_cross_ref_pref,
X_SHIP_SETS_INCLUDE_LINES_FLAG => p_cust_account_rec.ship_sets_include_lines_flag,
X_ARRIVALSETS_INCL_LINES_FLAG => p_cust_account_rec.arrivalsets_include_lines_flag,
X_SCHED_DATE_PUSH_FLAG => p_cust_account_rec.sched_date_push_flag,
X_INVOICE_QUANTITY_RULE => p_cust_account_rec.invoice_quantity_rule,
X_PRICING_EVENT => p_cust_account_rec.pricing_event,
X_STATUS_UPDATE_DATE => p_cust_account_rec.status_update_date,
X_AUTOPAY_FLAG => p_cust_account_rec.autopay_flag,
X_NOTIFY_FLAG => p_cust_account_rec.notify_flag,
X_LAST_BATCH_ID => p_cust_account_rec.last_batch_id,
X_SELLING_PARTY_ID => p_cust_account_rec.selling_party_id,
X_OBJECT_VERSION_NUMBER => 1,
X_CREATED_BY_MODULE => p_cust_account_rec.created_by_module,
X_APPLICATION_ID => p_cust_account_rec.application_id
);
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNTS_PKG.Insert_Row (-) ' ||
'x_cust_account_id = ' || p_cust_account_rec.cust_account_id || ' ' ||
'x_account_number = ' || p_cust_account_rec.account_number,
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
SELECT party_number INTO l_party_number
FROM HZ_PARTIES
WHERE PARTY_ID = l_party_id;
* PRIVATE PROCEDURE do_update_cust_account
*
* DESCRIPTION
* Private procedure to update customer account.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
* HZ_ACCOUNT_VALIDATE_V2PUB.validate_cust_account
* HZ_CUST_ACCOUNTS_PKG.Update_Row
*
* ARGUMENTS
* IN/OUT:
* p_cust_account_rec Customer account record.
* p_object_version_number Used for locking the being updated record.
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
*
* NOTES
* This procedure should always raise exception to main API.
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
*
*/
PROCEDURE do_update_cust_account (
p_cust_account_rec IN OUT NOCOPY CUST_ACCOUNT_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := ''; --'do_update_cust_account';
select 'Y' from hz_cust_accounts
where ORIG_SYSTEM_REFERENCE = p_cust_account_rec.orig_system_reference;
SELECT null
FROM hz_cust_accounts
WHERE party_id = p_party_id
AND status = 'A'
AND cust_account_id <> p_cust_account_id
AND rownum = 1;
hz_utility_v2pub.debug(p_message=>'do_update_cust_account (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
SELECT ROWID, OBJECT_VERSION_NUMBER, party_id, status
INTO l_rowid, l_object_version_number, l_party_id, l_status
FROM HZ_CUST_ACCOUNTS
WHERE CUST_ACCOUNT_ID = p_cust_account_rec.cust_account_id
FOR UPDATE NOWAIT;
p_create_update_flag => 'U',
p_cust_account_rec => p_cust_account_rec,
p_rowid => l_rowid,
x_return_status => x_return_status );
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNTS_PKG.Update_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_CUST_ACCOUNTS_PKG.Update_Row (
X_Rowid => l_rowid,
X_CUST_ACCOUNT_ID => p_cust_account_rec.cust_account_id,
X_PARTY_ID => NULL, -- no need to update
X_ACCOUNT_NUMBER => p_cust_account_rec.account_number,
X_ATTRIBUTE_CATEGORY => p_cust_account_rec.attribute_category,
X_ATTRIBUTE1 => p_cust_account_rec.attribute1,
X_ATTRIBUTE2 => p_cust_account_rec.attribute2,
X_ATTRIBUTE3 => p_cust_account_rec.attribute3,
X_ATTRIBUTE4 => p_cust_account_rec.attribute4,
X_ATTRIBUTE5 => p_cust_account_rec.attribute5,
X_ATTRIBUTE6 => p_cust_account_rec.attribute6,
X_ATTRIBUTE7 => p_cust_account_rec.attribute7,
X_ATTRIBUTE8 => p_cust_account_rec.attribute8,
X_ATTRIBUTE9 => p_cust_account_rec.attribute9,
X_ATTRIBUTE10 => p_cust_account_rec.attribute10,
X_ATTRIBUTE11 => p_cust_account_rec.attribute11,
X_ATTRIBUTE12 => p_cust_account_rec.attribute12,
X_ATTRIBUTE13 => p_cust_account_rec.attribute13,
X_ATTRIBUTE14 => p_cust_account_rec.attribute14,
X_ATTRIBUTE15 => p_cust_account_rec.attribute15,
X_ATTRIBUTE16 => p_cust_account_rec.attribute16,
X_ATTRIBUTE17 => p_cust_account_rec.attribute17,
X_ATTRIBUTE18 => p_cust_account_rec.attribute18,
X_ATTRIBUTE19 => p_cust_account_rec.attribute19,
X_ATTRIBUTE20 => p_cust_account_rec.attribute20,
X_GLOBAL_ATTRIBUTE_CATEGORY => p_cust_account_rec.global_attribute_category,
X_GLOBAL_ATTRIBUTE1 => p_cust_account_rec.global_attribute1,
X_GLOBAL_ATTRIBUTE2 => p_cust_account_rec.global_attribute2,
X_GLOBAL_ATTRIBUTE3 => p_cust_account_rec.global_attribute3,
X_GLOBAL_ATTRIBUTE4 => p_cust_account_rec.global_attribute4,
X_GLOBAL_ATTRIBUTE5 => p_cust_account_rec.global_attribute5,
X_GLOBAL_ATTRIBUTE6 => p_cust_account_rec.global_attribute6,
X_GLOBAL_ATTRIBUTE7 => p_cust_account_rec.global_attribute7,
X_GLOBAL_ATTRIBUTE8 => p_cust_account_rec.global_attribute8,
X_GLOBAL_ATTRIBUTE9 => p_cust_account_rec.global_attribute9,
X_GLOBAL_ATTRIBUTE10 => p_cust_account_rec.global_attribute10,
X_GLOBAL_ATTRIBUTE11 => p_cust_account_rec.global_attribute11,
X_GLOBAL_ATTRIBUTE12 => p_cust_account_rec.global_attribute12,
X_GLOBAL_ATTRIBUTE13 => p_cust_account_rec.global_attribute13,
X_GLOBAL_ATTRIBUTE14 => p_cust_account_rec.global_attribute14,
X_GLOBAL_ATTRIBUTE15 => p_cust_account_rec.global_attribute15,
X_GLOBAL_ATTRIBUTE16 => p_cust_account_rec.global_attribute16,
X_GLOBAL_ATTRIBUTE17 => p_cust_account_rec.global_attribute17,
X_GLOBAL_ATTRIBUTE18 => p_cust_account_rec.global_attribute18,
X_GLOBAL_ATTRIBUTE19 => p_cust_account_rec.global_attribute19,
X_GLOBAL_ATTRIBUTE20 => p_cust_account_rec.global_attribute20,
X_ORIG_SYSTEM_REFERENCE => p_cust_account_rec.orig_system_reference,
X_STATUS => p_cust_account_rec.status,
X_CUSTOMER_TYPE => p_cust_account_rec.customer_type,
X_CUSTOMER_CLASS_CODE => p_cust_account_rec.customer_class_code,
X_PRIMARY_SALESREP_ID => p_cust_account_rec.primary_salesrep_id,
X_SALES_CHANNEL_CODE => p_cust_account_rec.sales_channel_code,
X_ORDER_TYPE_ID => p_cust_account_rec.order_type_id,
X_PRICE_LIST_ID => p_cust_account_rec.price_list_id,
X_TAX_CODE => p_cust_account_rec.tax_code,
X_FOB_POINT => p_cust_account_rec.fob_point,
X_FREIGHT_TERM => p_cust_account_rec.freight_term,
X_SHIP_PARTIAL => p_cust_account_rec.ship_partial,
X_SHIP_VIA => p_cust_account_rec.ship_via,
X_WAREHOUSE_ID => p_cust_account_rec.warehouse_id,
X_TAX_HEADER_LEVEL_FLAG => p_cust_account_rec.tax_header_level_flag,
X_TAX_ROUNDING_RULE => p_cust_account_rec.tax_rounding_rule,
X_COTERMINATE_DAY_MONTH => p_cust_account_rec.coterminate_day_month,
X_PRIMARY_SPECIALIST_ID => p_cust_account_rec.primary_specialist_id,
X_SECONDARY_SPECIALIST_ID => p_cust_account_rec.secondary_specialist_id,
X_ACCOUNT_LIABLE_FLAG => p_cust_account_rec.account_liable_flag,
X_CURRENT_BALANCE => p_cust_account_rec.current_balance,
X_ACCOUNT_ESTABLISHED_DATE => p_cust_account_rec.account_established_date,
X_ACCOUNT_TERMINATION_DATE => p_cust_account_rec.account_termination_date,
X_ACCOUNT_ACTIVATION_DATE => p_cust_account_rec.account_activation_date,
X_DEPARTMENT => p_cust_account_rec.department,
X_HELD_BILL_EXPIRATION_DATE => p_cust_account_rec.held_bill_expiration_date,
X_HOLD_BILL_FLAG => p_cust_account_rec.hold_bill_flag,
X_REALTIME_RATE_FLAG => p_cust_account_rec.realtime_rate_flag,
X_ACCT_LIFE_CYCLE_STATUS => p_cust_account_rec.acct_life_cycle_status,
X_ACCOUNT_NAME => p_cust_account_rec.account_name,
X_DEPOSIT_REFUND_METHOD => p_cust_account_rec.deposit_refund_method,
X_DORMANT_ACCOUNT_FLAG => p_cust_account_rec.dormant_account_flag,
X_NPA_NUMBER => p_cust_account_rec.npa_number,
X_SUSPENSION_DATE => p_cust_account_rec.suspension_date,
X_SOURCE_CODE => p_cust_account_rec.source_code,
X_COMMENTS => p_cust_account_rec.comments,
X_DATES_NEGATIVE_TOLERANCE => p_cust_account_rec.dates_negative_tolerance,
X_DATES_POSITIVE_TOLERANCE => p_cust_account_rec.dates_positive_tolerance,
X_DATE_TYPE_PREFERENCE => p_cust_account_rec.date_type_preference,
X_OVER_SHIPMENT_TOLERANCE => p_cust_account_rec.over_shipment_tolerance,
X_UNDER_SHIPMENT_TOLERANCE => p_cust_account_rec.under_shipment_tolerance,
X_OVER_RETURN_TOLERANCE => p_cust_account_rec.over_return_tolerance,
X_UNDER_RETURN_TOLERANCE => p_cust_account_rec.under_return_tolerance,
X_ITEM_CROSS_REF_PREF => p_cust_account_rec.item_cross_ref_pref,
X_SHIP_SETS_INCLUDE_LINES_FLAG => p_cust_account_rec.ship_sets_include_lines_flag,
X_ARRIVALSETS_INCL_LINES_FLAG => p_cust_account_rec.arrivalsets_include_lines_flag,
X_SCHED_DATE_PUSH_FLAG => p_cust_account_rec.sched_date_push_flag,
X_INVOICE_QUANTITY_RULE => p_cust_account_rec.invoice_quantity_rule,
X_PRICING_EVENT => p_cust_account_rec.pricing_event,
X_STATUS_UPDATE_DATE => p_cust_account_rec.status_update_date,
X_AUTOPAY_FLAG => p_cust_account_rec.autopay_flag,
X_NOTIFY_FLAG => p_cust_account_rec.notify_flag,
X_LAST_BATCH_ID => p_cust_account_rec.last_batch_id,
X_SELLING_PARTY_ID => p_cust_account_rec.selling_party_id,
X_OBJECT_VERSION_NUMBER => p_object_version_number,
X_CREATED_BY_MODULE => p_cust_account_rec.created_by_module,
X_APPLICATION_ID => p_cust_account_rec.application_id
);
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNTS_PKG.Update_Row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'do_update_cust_account (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END do_update_cust_account;
* HZ_CUST_ACCT_RELATE_PKG.Insert_Row
*
* ARGUMENTS
* IN/OUT:
* p_cust_acct_relate_rec Customer account relate record.
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
*
* NOTES
* This procedure should always raise exception to main API.
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
* 10-04-2003 Rajib Ranjan Borah o Bug 2985448.Only active relationships will be checked if
* reciprocal flag is set.
* 04-21-2004 Rajib Ranjan Borah o Bug 3449118. The reciprocal flag of the reverse relationship
* will be set only if the present relationship is active.
* 12-MAY-2005 Rajib Ranjan Borah o TCA SSA Uptake (Bug 3456489)
* 12-AUG-2005 Idris Ali o Bug 4529413:Added logic in do_create_cust_acct_relate to use
* 'cust_acct_relate_id' instead of rowid.
*/
PROCEDURE do_create_cust_acct_relate (
p_cust_acct_relate_rec IN OUT NOCOPY CUST_ACCT_RELATE_REC_TYPE,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := ''; --'do_create_cust_acct_relate';
p_create_update_flag => 'C',
p_cust_acct_relate_rec => p_cust_acct_relate_rec,
p_cust_acct_relate_id => NULL, -- Bug 4529413
x_return_status => x_return_status );
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCT_RELATE_PKG.Insert_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_CUST_ACCT_RELATE_PKG.Insert_Row (
X_CUST_ACCOUNT_ID => p_cust_acct_relate_rec.cust_account_id,
X_RELATED_CUST_ACCOUNT_ID => p_cust_acct_relate_rec.related_cust_account_id,
X_RELATIONSHIP_TYPE => p_cust_acct_relate_rec.relationship_type,
X_COMMENTS => p_cust_acct_relate_rec.comments,
X_ATTRIBUTE_CATEGORY => p_cust_acct_relate_rec.attribute_category,
X_ATTRIBUTE1 => p_cust_acct_relate_rec.attribute1,
X_ATTRIBUTE2 => p_cust_acct_relate_rec.attribute2,
X_ATTRIBUTE3 => p_cust_acct_relate_rec.attribute3,
X_ATTRIBUTE4 => p_cust_acct_relate_rec.attribute4,
X_ATTRIBUTE5 => p_cust_acct_relate_rec.attribute5,
X_ATTRIBUTE6 => p_cust_acct_relate_rec.attribute6,
X_ATTRIBUTE7 => p_cust_acct_relate_rec.attribute7,
X_ATTRIBUTE8 => p_cust_acct_relate_rec.attribute8,
X_ATTRIBUTE9 => p_cust_acct_relate_rec.attribute9,
X_ATTRIBUTE10 => p_cust_acct_relate_rec.attribute10,
X_CUSTOMER_RECIPROCAL_FLAG => p_cust_acct_relate_rec.customer_reciprocal_flag,
X_STATUS => p_cust_acct_relate_rec.status,
X_ATTRIBUTE11 => p_cust_acct_relate_rec.attribute11,
X_ATTRIBUTE12 => p_cust_acct_relate_rec.attribute12,
X_ATTRIBUTE13 => p_cust_acct_relate_rec.attribute13,
X_ATTRIBUTE14 => p_cust_acct_relate_rec.attribute14,
X_ATTRIBUTE15 => p_cust_acct_relate_rec.attribute15,
X_BILL_TO_FLAG => p_cust_acct_relate_rec.bill_to_flag,
X_SHIP_TO_FLAG => p_cust_acct_relate_rec.ship_to_flag,
X_OBJECT_VERSION_NUMBER => 1,
X_CREATED_BY_MODULE => p_cust_acct_relate_rec.created_by_module,
X_APPLICATION_ID => p_cust_acct_relate_rec.application_id,
X_ORG_ID => p_cust_acct_relate_rec.org_id,
X_CUST_ACCT_RELATE_ID => p_cust_acct_relate_rec.cust_acct_relate_id -- Bug 4529413
);
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCT_RELATE_PKG.Insert_Row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
SELECT CUST_ACCT_RELATE_ID, CUSTOMER_RECIPROCAL_FLAG -- Bug 4529413
INTO l_cust_acct_relate_id, l_customer_reciprocal_flag
FROM HZ_CUST_ACCT_RELATE_ALL -- Bug 3456489
WHERE CUST_ACCOUNT_ID = p_cust_acct_relate_rec.related_cust_account_id
AND RELATED_CUST_ACCOUNT_ID = p_cust_acct_relate_rec.cust_account_id
--Bug 2985448.
AND STATUS='A'
AND ORG_ID = p_cust_acct_relate_rec.org_id; -- Bug 3456489
UPDATE HZ_CUST_ACCT_RELATE_ALL
SET CUSTOMER_RECIPROCAL_FLAG = 'Y'
WHERE CUST_ACCT_RELATE_ID = l_cust_acct_relate_id; -- Bug 4529413
* PRIVATE PROCEDURE do_update_cust_acct_relate
*
* DESCRIPTION
* Private procedure to update relationship between two customer accounts.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
* HZ_ACCOUNT_VALIDATE_V2PUB.validate_cust_acct_relate
* HZ_CUST_ACCT_RELATE_PKG.Update_Row
*
* ARGUMENTS
* IN/OUT:
* p_cust_acct_relate_rec Customer account relate record.
* p_object_version_number Used for locking the being updated record.
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
*
* NOTES
* This procedure should always raise exception to main API.
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
* 10-04-2003 Rajib Ranjan Borah o Bug 2985448.Consider only active relationships to get
* correct record for locking.
* 04-21-2004 Rajib Ranjan Borah o Bug 3449118. Added parameter p_rowid.
* IF p_rowid is passed, then that record will be
* modified. Else the only active relationship will
* be modified.
* 12-MAY-2005 Rajib Ranjan Borah o TCA SSA Uptake (Bug 3456489)
* 12-AUG-2005 Idris Ali o Bug 4529413:Added logic in do_update_cust_acct_relate
* to allow update using newly added primary key 'cust_acct_relate_id'.
*/
PROCEDURE do_update_cust_acct_relate (
p_cust_acct_relate_rec IN OUT NOCOPY CUST_ACCT_RELATE_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
p_rowid IN ROWID,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := ''; --'do_update_cust_acct_relate';
hz_utility_v2pub.debug(p_message=>'do_update_cust_acct_relate (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
SELECT CUST_ACCT_RELATE_ID,
OBJECT_VERSION_NUMBER,
ORG_ID
INTO l_cust_acct_relate_id,
l_object_version_number,
p_cust_acct_relate_rec.org_id -- Bug 3456489
FROM HZ_CUST_ACCT_RELATE
WHERE CUST_ACCOUNT_ID = p_cust_acct_relate_rec.cust_account_id AND
RELATED_CUST_ACCOUNT_ID = p_cust_acct_relate_rec.related_cust_account_id AND
--Bug 2985448.
STATUS='A' AND
ORG_ID = NVL(p_cust_acct_relate_rec.org_id, ORG_ID)
FOR UPDATE NOWAIT;
SELECT CUST_ACCT_RELATE_ID
INTO l_cust_acct_relate_id
FROM HZ_CUST_ACCT_RELATE
WHERE ROWID = p_rowid;
SELECT OBJECT_VERSION_NUMBER,
CUST_ACCOUNT_ID,
RELATED_CUST_ACCOUNT_ID,
STATUS,
ORG_ID
INTO l_object_version_number,
l_cust_account_id,
l_related_cust_account_id,
l_status,
p_cust_acct_relate_rec.org_id -- Bug 3456489
FROM HZ_CUST_ACCT_RELATE_ALL
WHERE CUST_ACCT_RELATE_ID = l_cust_acct_relate_id
FOR UPDATE NOWAIT;
FND_MESSAGE.SET_NAME ('AR','HZ_API_NONUPDATEABLE_COLUMN');
FND_MESSAGE.SET_NAME ('AR','HZ_API_NONUPDATEABLE_COLUMN');
SELECT COUNT(*)
INTO l_count
FROM HZ_CUST_ACCT_RELATE_ALL -- Bug 3456489
WHERE CUST_ACCOUNT_ID = l_cust_account_id AND
RELATED_CUST_ACCOUNT_ID = l_related_cust_account_id AND
STATUS = 'A' AND
ORG_ID = p_cust_acct_relate_rec.org_id; -- Bug 3456489
p_create_update_flag => 'U',
p_cust_acct_relate_rec => p_cust_acct_relate_rec,
p_cust_acct_relate_id => l_cust_acct_relate_id, -- Bug 4529413
x_return_status => x_return_status );
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCT_RELATE_PKG.Update_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_CUST_ACCT_RELATE_PKG.Update_Row (
X_CUST_ACCT_RELATE_ID => l_cust_acct_relate_id,
X_CUST_ACCOUNT_ID => p_cust_acct_relate_rec.cust_account_id,
X_RELATED_CUST_ACCOUNT_ID => p_cust_acct_relate_rec.related_cust_account_id,
X_RELATIONSHIP_TYPE => p_cust_acct_relate_rec.relationship_type,
X_COMMENTS => p_cust_acct_relate_rec.comments,
X_ATTRIBUTE_CATEGORY => p_cust_acct_relate_rec.attribute_category,
X_ATTRIBUTE1 => p_cust_acct_relate_rec.attribute1,
X_ATTRIBUTE2 => p_cust_acct_relate_rec.attribute2,
X_ATTRIBUTE3 => p_cust_acct_relate_rec.attribute3,
X_ATTRIBUTE4 => p_cust_acct_relate_rec.attribute4,
X_ATTRIBUTE5 => p_cust_acct_relate_rec.attribute5,
X_ATTRIBUTE6 => p_cust_acct_relate_rec.attribute6,
X_ATTRIBUTE7 => p_cust_acct_relate_rec.attribute7,
X_ATTRIBUTE8 => p_cust_acct_relate_rec.attribute8,
X_ATTRIBUTE9 => p_cust_acct_relate_rec.attribute9,
X_ATTRIBUTE10 => p_cust_acct_relate_rec.attribute10,
X_CUSTOMER_RECIPROCAL_FLAG => p_cust_acct_relate_rec.customer_reciprocal_flag,
X_STATUS => p_cust_acct_relate_rec.status,
X_ATTRIBUTE11 => p_cust_acct_relate_rec.attribute11,
X_ATTRIBUTE12 => p_cust_acct_relate_rec.attribute12,
X_ATTRIBUTE13 => p_cust_acct_relate_rec.attribute13,
X_ATTRIBUTE14 => p_cust_acct_relate_rec.attribute14,
X_ATTRIBUTE15 => p_cust_acct_relate_rec.attribute15,
X_BILL_TO_FLAG => p_cust_acct_relate_rec.bill_to_flag,
X_SHIP_TO_FLAG => p_cust_acct_relate_rec.ship_to_flag,
X_OBJECT_VERSION_NUMBER => p_object_version_number,
X_CREATED_BY_MODULE => p_cust_acct_relate_rec.created_by_module,
X_APPLICATION_ID => p_cust_acct_relate_rec.application_id
);
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCT_RELATE_PKG.Update_Row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'do_update_cust_acct_relate (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END do_update_cust_acct_relate;
p_create_update_flag => 'C',
p_cust_account_rec => l_cust_account_rec,
x_return_status => x_return_status
);
p_create_update_flag => 'C',
p_cust_account_rec => l_cust_account_rec,
x_return_status => x_return_status
);
* PROCEDURE update_cust_account
*
* DESCRIPTION
* Updates customer account.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
* HZ_BUSINESS_EVENT_V2PVT.update_cust_account_event
*
* ARGUMENTS
* IN:
* p_init_msg_list Initialize message stack if it is set to
* FND_API.G_TRUE. Default is FND_API.G_FALSE.
* p_cust_account_rec Customer account record.
* IN/OUT:
* p_object_version_number Used for locking the being updated record.
* OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
* x_msg_count Number of messages in message stack.
* x_msg_data Message text if x_msg_count is 1.
*
* NOTES
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
*
*/
PROCEDURE update_cust_account (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_cust_account_rec IN CUST_ACCOUNT_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_cust_account_rec CUST_ACCOUNT_REC_TYPE := p_cust_account_rec;
SAVEPOINT update_cust_account;
hz_utility_v2pub.debug(p_message=>'update_cust_account (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
p_create_update_flag => 'U',
p_cust_account_rec => l_cust_account_rec,
p_old_cust_account_rec => l_old_cust_account_rec,
x_return_status => x_return_status
);
do_update_cust_account (
l_cust_account_rec,
p_object_version_number,
x_return_status );
HZ_BUSINESS_EVENT_V2PVT.update_cust_account_event (
l_cust_account_rec , l_old_cust_account_rec);
hz_utility_v2pub.debug(p_message=>'update_cust_account (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_account;
hz_utility_v2pub.debug(p_message=>'update_cust_account (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_account;
hz_utility_v2pub.debug(p_message=>'update_cust_account (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_account;
hz_utility_v2pub.debug(p_message=>'update_cust_account (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END update_cust_account;
* HZ_CUST_ACCOUNTS_PKG.Select_Row
* HZ_CUSTOMER_PROFILE_V2PUB.get_customer_profile_rec
*
* ARGUMENTS
* IN:
* p_init_msg_list Initialize message stack if it is set to
* FND_API.G_TRUE. Default is FND_API.G_FALSE.
* p_cust_account_id Customer account id.
* IN/OUT:
* OUT:
* x_cust_account_rec Returned customer account record.
* x_customer_profile_rec Returned customer profile record.
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
* x_msg_count Number of messages in message stack.
* x_msg_data Message text if x_msg_count is 1.
*
* NOTES
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
*
*/
PROCEDURE get_cust_account_rec (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_cust_account_id IN NUMBER,
x_cust_account_rec OUT NOCOPY CUST_ACCOUNT_REC_TYPE,
x_customer_profile_rec OUT NOCOPY HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_cust_account_profile_id NUMBER;
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNTS_PKG.Select_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_CUST_ACCOUNTS_PKG.Select_Row (
X_CUST_ACCOUNT_ID => x_cust_account_rec.cust_account_id,
X_ACCOUNT_NUMBER => x_cust_account_rec.account_number,
X_ATTRIBUTE_CATEGORY => x_cust_account_rec.attribute_category,
X_ATTRIBUTE1 => x_cust_account_rec.attribute1,
X_ATTRIBUTE2 => x_cust_account_rec.attribute2,
X_ATTRIBUTE3 => x_cust_account_rec.attribute3,
X_ATTRIBUTE4 => x_cust_account_rec.attribute4,
X_ATTRIBUTE5 => x_cust_account_rec.attribute5,
X_ATTRIBUTE6 => x_cust_account_rec.attribute6,
X_ATTRIBUTE7 => x_cust_account_rec.attribute7,
X_ATTRIBUTE8 => x_cust_account_rec.attribute8,
X_ATTRIBUTE9 => x_cust_account_rec.attribute9,
X_ATTRIBUTE10 => x_cust_account_rec.attribute10,
X_ATTRIBUTE11 => x_cust_account_rec.attribute11,
X_ATTRIBUTE12 => x_cust_account_rec.attribute12,
X_ATTRIBUTE13 => x_cust_account_rec.attribute13,
X_ATTRIBUTE14 => x_cust_account_rec.attribute14,
X_ATTRIBUTE15 => x_cust_account_rec.attribute15,
X_ATTRIBUTE16 => x_cust_account_rec.attribute16,
X_ATTRIBUTE17 => x_cust_account_rec.attribute17,
X_ATTRIBUTE18 => x_cust_account_rec.attribute18,
X_ATTRIBUTE19 => x_cust_account_rec.attribute19,
X_ATTRIBUTE20 => x_cust_account_rec.attribute20,
X_GLOBAL_ATTRIBUTE_CATEGORY => x_cust_account_rec.global_attribute_category,
X_GLOBAL_ATTRIBUTE1 => x_cust_account_rec.global_attribute1,
X_GLOBAL_ATTRIBUTE2 => x_cust_account_rec.global_attribute2,
X_GLOBAL_ATTRIBUTE3 => x_cust_account_rec.global_attribute3,
X_GLOBAL_ATTRIBUTE4 => x_cust_account_rec.global_attribute4,
X_GLOBAL_ATTRIBUTE5 => x_cust_account_rec.global_attribute5,
X_GLOBAL_ATTRIBUTE6 => x_cust_account_rec.global_attribute6,
X_GLOBAL_ATTRIBUTE7 => x_cust_account_rec.global_attribute7,
X_GLOBAL_ATTRIBUTE8 => x_cust_account_rec.global_attribute8,
X_GLOBAL_ATTRIBUTE9 => x_cust_account_rec.global_attribute9,
X_GLOBAL_ATTRIBUTE10 => x_cust_account_rec.global_attribute10,
X_GLOBAL_ATTRIBUTE11 => x_cust_account_rec.global_attribute11,
X_GLOBAL_ATTRIBUTE12 => x_cust_account_rec.global_attribute12,
X_GLOBAL_ATTRIBUTE13 => x_cust_account_rec.global_attribute13,
X_GLOBAL_ATTRIBUTE14 => x_cust_account_rec.global_attribute14,
X_GLOBAL_ATTRIBUTE15 => x_cust_account_rec.global_attribute15,
X_GLOBAL_ATTRIBUTE16 => x_cust_account_rec.global_attribute16,
X_GLOBAL_ATTRIBUTE17 => x_cust_account_rec.global_attribute17,
X_GLOBAL_ATTRIBUTE18 => x_cust_account_rec.global_attribute18,
X_GLOBAL_ATTRIBUTE19 => x_cust_account_rec.global_attribute19,
X_GLOBAL_ATTRIBUTE20 => x_cust_account_rec.global_attribute20,
X_ORIG_SYSTEM_REFERENCE => x_cust_account_rec.orig_system_reference,
X_STATUS => x_cust_account_rec.status,
X_CUSTOMER_TYPE => x_cust_account_rec.customer_type,
X_CUSTOMER_CLASS_CODE => x_cust_account_rec.customer_class_code,
X_PRIMARY_SALESREP_ID => x_cust_account_rec.primary_salesrep_id,
X_SALES_CHANNEL_CODE => x_cust_account_rec.sales_channel_code,
X_ORDER_TYPE_ID => x_cust_account_rec.order_type_id,
X_PRICE_LIST_ID => x_cust_account_rec.price_list_id,
X_TAX_CODE => x_cust_account_rec.tax_code,
X_FOB_POINT => x_cust_account_rec.fob_point,
X_FREIGHT_TERM => x_cust_account_rec.freight_term,
X_SHIP_PARTIAL => x_cust_account_rec.ship_partial,
X_SHIP_VIA => x_cust_account_rec.ship_via,
X_WAREHOUSE_ID => x_cust_account_rec.warehouse_id,
X_TAX_HEADER_LEVEL_FLAG => x_cust_account_rec.tax_header_level_flag,
X_TAX_ROUNDING_RULE => x_cust_account_rec.tax_rounding_rule,
X_COTERMINATE_DAY_MONTH => x_cust_account_rec.coterminate_day_month,
X_PRIMARY_SPECIALIST_ID => x_cust_account_rec.primary_specialist_id,
X_SECONDARY_SPECIALIST_ID => x_cust_account_rec.secondary_specialist_id,
X_ACCOUNT_LIABLE_FLAG => x_cust_account_rec.account_liable_flag,
X_CURRENT_BALANCE => x_cust_account_rec.current_balance,
X_ACCOUNT_ESTABLISHED_DATE => x_cust_account_rec.account_established_date,
X_ACCOUNT_TERMINATION_DATE => x_cust_account_rec.account_termination_date,
X_ACCOUNT_ACTIVATION_DATE => x_cust_account_rec.account_activation_date,
X_DEPARTMENT => x_cust_account_rec.department,
X_HELD_BILL_EXPIRATION_DATE => x_cust_account_rec.held_bill_expiration_date,
X_HOLD_BILL_FLAG => x_cust_account_rec.hold_bill_flag,
X_REALTIME_RATE_FLAG => x_cust_account_rec.realtime_rate_flag,
X_ACCT_LIFE_CYCLE_STATUS => x_cust_account_rec.acct_life_cycle_status,
X_ACCOUNT_NAME => x_cust_account_rec.account_name,
X_DEPOSIT_REFUND_METHOD => x_cust_account_rec.deposit_refund_method,
X_DORMANT_ACCOUNT_FLAG => x_cust_account_rec.dormant_account_flag,
X_NPA_NUMBER => x_cust_account_rec.npa_number,
X_SUSPENSION_DATE => x_cust_account_rec.suspension_date,
X_SOURCE_CODE => x_cust_account_rec.source_code,
X_COMMENTS => x_cust_account_rec.comments,
X_DATES_NEGATIVE_TOLERANCE => x_cust_account_rec.dates_negative_tolerance,
X_DATES_POSITIVE_TOLERANCE => x_cust_account_rec.dates_positive_tolerance,
X_DATE_TYPE_PREFERENCE => x_cust_account_rec.date_type_preference,
X_OVER_SHIPMENT_TOLERANCE => x_cust_account_rec.over_shipment_tolerance,
X_UNDER_SHIPMENT_TOLERANCE => x_cust_account_rec.under_shipment_tolerance,
X_OVER_RETURN_TOLERANCE => x_cust_account_rec.over_return_tolerance,
X_UNDER_RETURN_TOLERANCE => x_cust_account_rec.under_return_tolerance,
X_ITEM_CROSS_REF_PREF => x_cust_account_rec.item_cross_ref_pref,
X_SHIP_SETS_INCLUDE_LINES_FLAG => x_cust_account_rec.ship_sets_include_lines_flag,
X_ARRIVALSETS_INCL_LINES_FLAG => x_cust_account_rec.arrivalsets_include_lines_flag,
X_SCHED_DATE_PUSH_FLAG => x_cust_account_rec.sched_date_push_flag,
X_INVOICE_QUANTITY_RULE => x_cust_account_rec.invoice_quantity_rule,
X_PRICING_EVENT => x_cust_account_rec.pricing_event,
X_STATUS_UPDATE_DATE => x_cust_account_rec.status_update_date,
X_AUTOPAY_FLAG => x_cust_account_rec.autopay_flag,
X_NOTIFY_FLAG => x_cust_account_rec.notify_flag,
X_LAST_BATCH_ID => x_cust_account_rec.last_batch_id,
X_SELLING_PARTY_ID => x_cust_account_rec.selling_party_id,
X_CREATED_BY_MODULE => x_cust_account_rec.created_by_module,
X_APPLICATION_ID => x_cust_account_rec.application_id
);
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCOUNTS_PKG.Select_Row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
SELECT CUST_ACCOUNT_PROFILE_ID INTO l_cust_account_profile_id
FROM HZ_CUSTOMER_PROFILES
WHERE CUST_ACCOUNT_ID = p_cust_account_id
AND SITE_USE_ID IS NULL;
* PROCEDURE update_cust_acct_relate
*
* DESCRIPTION
* Updates relationship between two customer accounts.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
* HZ_BUSINESS_EVENT_V2PVT.update_cust_acct_relate_event
*
* ARGUMENTS
* IN:
* p_init_msg_list Initialize message stack if it is set to
* FND_API.G_TRUE. Default is FND_API.G_FALSE.
* p_cust_acct_relate_rec Customer account relate record.
* IN/OUT:
* p_object_version_number Used for locking the being updated record.
* OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
* x_msg_count Number of messages in message stack.
* x_msg_data Message text if x_msg_count is 1.
*
* NOTES
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
* 04-21-2004 Rajib Ranjan Borah o Bug 3449118. Passed NULL for parameter p_rowid
* of get_cust_acct_relate_rec,do_update_cust_acct_relate.
* 12-MAY-2005 Rajib Ranjan Borah o TCA SSA Uptake (Bug 3456489)
* 12-AUG-2005 Idris Ali o Bug 4529413:modified the call to get_cust_acct_relate_rec
*
*/
PROCEDURE update_cust_acct_relate (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_cust_acct_relate_rec IN CUST_ACCT_RELATE_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_cust_acct_relate_rec CUST_ACCT_RELATE_REC_TYPE := p_cust_acct_relate_rec;
SAVEPOINT update_cust_acct_relate;
hz_utility_v2pub.debug(p_message=>'update_cust_acct_relate (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
do_update_cust_acct_relate (
l_cust_acct_relate_rec,
p_object_version_number,
NULL, /* Bug 3449118 pass NULL for rowid */
x_return_status );
HZ_BUSINESS_EVENT_V2PVT.update_cust_acct_relate_event (
l_cust_acct_relate_rec , l_old_cust_acct_relate_rec);
hz_utility_v2pub.debug(p_message=>'update_cust_acct_relate (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_acct_relate;
hz_utility_v2pub.debug(p_message=>'update_cust_acct_relate (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_acct_relate;
hz_utility_v2pub.debug(p_message=>'update_cust_acct_relate (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_acct_relate;
hz_utility_v2pub.debug(p_message=>'update_cust_acct_relate (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END update_cust_acct_relate;
* PROCEDURE update_cust_acct_relate
*
* DESCRIPTION
* Updates relationship between two customer accounts. This is aoverloaded version
* of the above procedure and has an extra parameter - p_rowid.
*
* EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
* HZ_BUSINESS_EVENT_V2PVT.update_cust_acct_relate_event
*
* ARGUMENTS
* IN:
* p_init_msg_list Initialize message stack if it is set to
* FND_API.G_TRUE. Default is FND_API.G_FALSE.
* p_cust_acct_relate_rec Customer account relate record.
* p_rowid Rowid of record that the user is trying to update.
*
* IN/OUT:
* p_object_version_number Used for locking the being updated record.
*
* OUT:
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
* x_msg_count Number of messages in message stack.
* x_msg_data Message text if x_msg_count is 1.
*
* NOTES
*
* MODIFICATION HISTORY
*
* 04-20-2004 Rajib Ranjan Borah o Bug 3449118.Created.
*
* 12-MAY-2005 Rajib Ranjan Borah o TCA SSA Uptake (Bug 3456489)
* 12-AUG-2005 Idris Ali o Bug 4529413:modified the call to get_cust_acct_relate_rec
*/
PROCEDURE update_cust_acct_relate (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_cust_acct_relate_rec IN CUST_ACCT_RELATE_REC_TYPE,
p_rowid IN ROWID,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_cust_acct_relate_rec CUST_ACCT_RELATE_REC_TYPE := p_cust_acct_relate_rec;
SAVEPOINT update_cust_acct_relate;
hz_utility_v2pub.debug(p_message=>'update_cust_acct_relate (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
do_update_cust_acct_relate (
l_cust_acct_relate_rec,
p_object_version_number,
p_rowid,
x_return_status );
HZ_BUSINESS_EVENT_V2PVT.update_cust_acct_relate_event (
l_cust_acct_relate_rec , l_old_cust_acct_relate_rec);
hz_utility_v2pub.debug(p_message=>'update_cust_acct_relate (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_acct_relate;
hz_utility_v2pub.debug(p_message=>'update_cust_acct_relate (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_acct_relate;
hz_utility_v2pub.debug(p_message=>'update_cust_acct_relate (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cust_acct_relate;
hz_utility_v2pub.debug(p_message=>'update_cust_acct_relate (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END update_cust_acct_relate;
* HZ_CUST_ACCT_RELATE_PKG.Select_Row
*
* ARGUMENTS
* IN:
* p_init_msg_list Initialize message stack if it is set to
* FND_API.G_TRUE. Default is FND_API.G_FALSE.
* p_cust_account_id Customer account id.
* p_related_cust_account_id Related customer account id.
* IN/OUT:
* OUT:
* x_cust_acct_relate_rec Returned customer account relate record.
* x_return_status Return status after the call. The status can
* be FND_API.G_RET_STS_SUCCESS (success),
* FND_API.G_RET_STS_ERROR (error),
* FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
* x_msg_count Number of messages in message stack.
* x_msg_data Message text if x_msg_count is 1.
*
* NOTES
*
* MODIFICATION HISTORY
*
* 07-23-2001 Jianying Huang o Created.
* 04-21-2004 Rajib Ranjan Borah o Bug 3449118. Added the parameter p_rowid.
* Called the overloaded procedure hz_cust_acct_relate_pkg.
* select_row with rowid as parameter in case rowid
* is passed to this procedure.
* 12-MAY-2005 Rajib Ranjan Borah o TCA SSA Uptake (Bug 3456489)
* 12-AUG-2005 Idris Ali o Bug 4529413:Added parameter cust_acct_relate_id to get_cust_acct_relate
*/
PROCEDURE get_cust_acct_relate_rec (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_cust_account_id IN NUMBER,
p_related_cust_account_id IN NUMBER,
p_cust_acct_relate_id IN NUMBER, -- Bug 4529413
p_rowid IN ROWID, -- Bug 3449118
x_cust_acct_relate_rec OUT NOCOPY CUST_ACCT_RELATE_REC_TYPE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := '';
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCT_RELATE_PKG.Select_Row (+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_CUST_ACCT_RELATE_PKG.Select_Row (
X_CUST_ACCOUNT_ID => x_cust_acct_relate_rec.cust_account_id,
X_RELATED_CUST_ACCOUNT_ID => x_cust_acct_relate_rec.related_cust_account_id,
X_RELATIONSHIP_TYPE => x_cust_acct_relate_rec.relationship_type,
X_COMMENTS => x_cust_acct_relate_rec.comments,
X_ATTRIBUTE_CATEGORY => x_cust_acct_relate_rec.attribute_category,
X_ATTRIBUTE1 => x_cust_acct_relate_rec.attribute1,
X_ATTRIBUTE2 => x_cust_acct_relate_rec.attribute2,
X_ATTRIBUTE3 => x_cust_acct_relate_rec.attribute3,
X_ATTRIBUTE4 => x_cust_acct_relate_rec.attribute4,
X_ATTRIBUTE5 => x_cust_acct_relate_rec.attribute5,
X_ATTRIBUTE6 => x_cust_acct_relate_rec.attribute6,
X_ATTRIBUTE7 => x_cust_acct_relate_rec.attribute7,
X_ATTRIBUTE8 => x_cust_acct_relate_rec.attribute8,
X_ATTRIBUTE9 => x_cust_acct_relate_rec.attribute9,
X_ATTRIBUTE10 => x_cust_acct_relate_rec.attribute10,
X_CUSTOMER_RECIPROCAL_FLAG => x_cust_acct_relate_rec.customer_reciprocal_flag,
X_STATUS => x_cust_acct_relate_rec.status,
X_ATTRIBUTE11 => x_cust_acct_relate_rec.attribute11,
X_ATTRIBUTE12 => x_cust_acct_relate_rec.attribute12,
X_ATTRIBUTE13 => x_cust_acct_relate_rec.attribute13,
X_ATTRIBUTE14 => x_cust_acct_relate_rec.attribute14,
X_ATTRIBUTE15 => x_cust_acct_relate_rec.attribute15,
X_BILL_TO_FLAG => x_cust_acct_relate_rec.bill_to_flag,
X_SHIP_TO_FLAG => x_cust_acct_relate_rec.ship_to_flag,
X_CREATED_BY_MODULE => x_cust_acct_relate_rec.created_by_module,
X_APPLICATION_ID => x_cust_acct_relate_rec.application_id,
X_ORG_ID => x_cust_acct_relate_rec.org_id, -- Bug 3456489
X_CUST_ACCT_RELATE_ID => x_cust_acct_relate_rec.cust_acct_relate_id -- Bug 4529413
);
HZ_CUST_ACCT_RELATE_PKG.Select_Row (
X_CUST_ACCOUNT_ID => x_cust_acct_relate_rec.cust_account_id,
X_RELATED_CUST_ACCOUNT_ID => x_cust_acct_relate_rec.related_cust_account_id,
X_RELATIONSHIP_TYPE => x_cust_acct_relate_rec.relationship_type,
X_COMMENTS => x_cust_acct_relate_rec.comments,
X_ATTRIBUTE_CATEGORY => x_cust_acct_relate_rec.attribute_category,
X_ATTRIBUTE1 => x_cust_acct_relate_rec.attribute1,
X_ATTRIBUTE2 => x_cust_acct_relate_rec.attribute2,
X_ATTRIBUTE3 => x_cust_acct_relate_rec.attribute3,
X_ATTRIBUTE4 => x_cust_acct_relate_rec.attribute4,
X_ATTRIBUTE5 => x_cust_acct_relate_rec.attribute5,
X_ATTRIBUTE6 => x_cust_acct_relate_rec.attribute6,
X_ATTRIBUTE7 => x_cust_acct_relate_rec.attribute7,
X_ATTRIBUTE8 => x_cust_acct_relate_rec.attribute8,
X_ATTRIBUTE9 => x_cust_acct_relate_rec.attribute9,
X_ATTRIBUTE10 => x_cust_acct_relate_rec.attribute10,
X_CUSTOMER_RECIPROCAL_FLAG => x_cust_acct_relate_rec.customer_reciprocal_flag,
X_STATUS => x_cust_acct_relate_rec.status,
X_ATTRIBUTE11 => x_cust_acct_relate_rec.attribute11,
X_ATTRIBUTE12 => x_cust_acct_relate_rec.attribute12,
X_ATTRIBUTE13 => x_cust_acct_relate_rec.attribute13,
X_ATTRIBUTE14 => x_cust_acct_relate_rec.attribute14,
X_ATTRIBUTE15 => x_cust_acct_relate_rec.attribute15,
X_BILL_TO_FLAG => x_cust_acct_relate_rec.bill_to_flag,
X_SHIP_TO_FLAG => x_cust_acct_relate_rec.ship_to_flag,
X_CREATED_BY_MODULE => x_cust_acct_relate_rec.created_by_module,
X_APPLICATION_ID => x_cust_acct_relate_rec.application_id,
X_ORG_ID => x_cust_acct_relate_rec.org_id, -- Bug 3456489
X_CUST_ACCT_RELATE_ID => x_cust_acct_relate_rec.cust_acct_relate_id, -- Bug 4529413
X_ROWID => p_rowid
);
hz_utility_v2pub.debug(p_message=>'HZ_CUST_ACCT_RELATE_PKG.Select_Row (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
p_create_update_flag IN VARCHAR2,
p_cust_account_rec IN cust_account_rec_type,
p_old_cust_account_rec IN cust_account_rec_type DEFAULT NULL,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
BEGIN
-- check account_activation_date
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.account_activation_date IS NOT NULL AND
p_cust_account_rec.account_activation_date <> FND_API.G_MISS_DATE) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.account_activation_date IS NOT NULL AND
p_cust_account_rec.account_activation_date <> p_old_cust_account_rec.account_activation_date)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.account_liable_flag IS NOT NULL AND
p_cust_account_rec.account_liable_flag <> FND_API.G_MISS_CHAR) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.account_liable_flag IS NOT NULL AND
p_cust_account_rec.account_liable_flag <> p_old_cust_account_rec.account_liable_flag)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.account_termination_date IS NOT NULL AND
p_cust_account_rec.account_termination_date <> FND_API.G_MISS_DATE) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.account_termination_date IS NOT NULL AND
p_cust_account_rec.account_termination_date <> p_old_cust_account_rec.account_termination_date)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.acct_life_cycle_status IS NOT NULL AND
p_cust_account_rec.acct_life_cycle_status <> FND_API.G_MISS_CHAR) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.acct_life_cycle_status IS NOT NULL AND
p_cust_account_rec.acct_life_cycle_status <> p_old_cust_account_rec.acct_life_cycle_status)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.current_balance IS NOT NULL AND
p_cust_account_rec.current_balance <> FND_API.G_MISS_NUM) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.current_balance IS NOT NULL AND
p_cust_account_rec.current_balance <> p_old_cust_account_rec.current_balance)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.department IS NOT NULL AND
p_cust_account_rec.department <> FND_API.G_MISS_CHAR) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.department IS NOT NULL AND
p_cust_account_rec.department <> p_old_cust_account_rec.department)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.dormant_account_flag IS NOT NULL AND
p_cust_account_rec.dormant_account_flag <> FND_API.G_MISS_CHAR) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.dormant_account_flag IS NOT NULL AND
p_cust_account_rec.dormant_account_flag <> p_old_cust_account_rec.dormant_account_flag)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.notify_flag IS NOT NULL AND
p_cust_account_rec.notify_flag <> FND_API.G_MISS_CHAR) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.notify_flag IS NOT NULL AND
p_cust_account_rec.notify_flag <> p_old_cust_account_rec.notify_flag)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.order_type_id IS NOT NULL AND
p_cust_account_rec.order_type_id <> FND_API.G_MISS_NUM) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.order_type_id IS NOT NULL AND
p_cust_account_rec.order_type_id <> p_old_cust_account_rec.order_type_id)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.primary_salesrep_id IS NOT NULL AND
p_cust_account_rec.primary_salesrep_id <> FND_API.G_MISS_NUM) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.primary_salesrep_id IS NOT NULL AND
p_cust_account_rec.primary_salesrep_id <> p_old_cust_account_rec.primary_salesrep_id)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.realtime_rate_flag IS NOT NULL AND
p_cust_account_rec.realtime_rate_flag <> FND_API.G_MISS_CHAR) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.realtime_rate_flag IS NOT NULL AND
p_cust_account_rec.realtime_rate_flag <> p_old_cust_account_rec.realtime_rate_flag)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
IF (p_create_update_flag = 'C' AND
p_cust_account_rec.suspension_date IS NOT NULL AND
p_cust_account_rec.suspension_date <> FND_API.G_MISS_DATE) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.suspension_date IS NOT NULL AND
p_cust_account_rec.suspension_date <> p_old_cust_account_rec.suspension_date)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
/* IF (p_create_update_flag = 'C' AND
p_cust_account_rec.tax_code IS NOT NULL AND
p_cust_account_rec.tax_code <> FND_API.G_MISS_CHAR) OR
(p_create_update_flag = 'U' AND
p_cust_account_rec.tax_code IS NOT NULL AND
p_cust_account_rec.tax_code <> p_old_cust_account_rec.tax_code)
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');