The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE object_version_select
(p_table_name IN VARCHAR2,
p_col_id IN VARCHAR2,
p_col_id2 IN VARCHAR2,
x_rowid IN OUT NOCOPY ROWID,
x_object_version_number IN OUT NOCOPY NUMBER,
x_last_update_date IN OUT NOCOPY DATE,
x_id_value IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2,
x_msg_count IN OUT NOCOPY NUMBER,
x_msg_data IN OUT NOCOPY VARCHAR2 )
IS
CURSOR cu_cust_relate_version IS
SELECT ROWID,
OBJECT_VERSION_NUMBER,
LAST_UPDATE_DATE
FROM HZ_CUST_ACCT_RELATE
WHERE CUST_ACCOUNT_ID = p_col_id
AND RELATED_CUST_ACCOUNT_ID = p_col_Id2;
l_last_update_date DATE;
l_last_update_date ;
IF TO_CHAR(x_last_update_date,'DD-MON-YYYY HH:MI:SS') <>
TO_CHAR(l_last_update_date,'DD-MON-YYYY HH:MI:SS')
THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
select count(1)
into duplicate_count
from hz_cust_acct_relate
where cust_account_id = x_customer_id
and related_cust_account_id = x_related_customer_id
and status = 'A'; --Bug Fix: 3237327
PROCEDURE Insert_Row(
X_Created_By NUMBER,
X_Creation_Date DATE,
X_Customer_Id NUMBER,
X_Customer_Reciprocal_Flag VARCHAR2,
X_relationship_type VARCHAR2,
X_Last_Updated_By NUMBER,
X_Last_Update_Date DATE,
X_Related_Customer_Id NUMBER,
X_Status VARCHAR2,
X_Comments VARCHAR2,
X_Last_Update_Login NUMBER,
X_Attribute_Category VARCHAR2,
X_Attribute1 VARCHAR2,
X_Attribute2 VARCHAR2,
X_Attribute3 VARCHAR2,
X_Attribute4 VARCHAR2,
X_Attribute5 VARCHAR2,
X_Attribute6 VARCHAR2,
X_Attribute7 VARCHAR2,
X_Attribute8 VARCHAR2,
X_Attribute9 VARCHAR2,
X_Attribute10 VARCHAR2,
X_Attribute11 VARCHAR2,
X_Attribute12 VARCHAR2,
X_Attribute13 VARCHAR2,
X_Attribute14 VARCHAR2,
X_Attribute15 VARCHAR2,
X_BILL_TO_FLAG VARCHAR2,
X_SHIP_TO_FLAG VARCHAR2,
x_return_status out NOCOPY varchar2,
x_msg_count out NOCOPY number,
x_msg_data out NOCOPY varchar2
) IS
--cust_rel_rec HZ_cust_acct_info_pub.cust_acct_relate_rec_type;
END Insert_Row;
PROCEDURE Update_Row(
X_Customer_Id NUMBER,
X_Customer_Reciprocal_Flag VARCHAR2,
X_relationship_type VARCHAR2,
X_Last_Updated_By NUMBER,
X_Last_Update_Date IN OUT NOCOPY DATE,
X_Related_Customer_Id NUMBER,
X_Status VARCHAR2,
X_Comments VARCHAR2,
X_Last_Update_Login NUMBER,
X_Attribute_Category VARCHAR2,
X_Attribute1 VARCHAR2,
X_Attribute2 VARCHAR2,
X_Attribute3 VARCHAR2,
X_Attribute4 VARCHAR2,
X_Attribute5 VARCHAR2,
X_Attribute6 VARCHAR2,
X_Attribute7 VARCHAR2,
X_Attribute8 VARCHAR2,
X_Attribute9 VARCHAR2,
X_Attribute10 VARCHAR2,
X_Attribute11 VARCHAR2,
X_Attribute12 VARCHAR2,
X_Attribute13 VARCHAR2,
X_Attribute14 VARCHAR2,
X_Attribute15 VARCHAR2,
X_BILL_TO_FLAG VARCHAR2,
X_SHIP_TO_FLAG VARCHAR2,
x_return_status out NOCOPY varchar2,
x_msg_count out NOCOPY number,
x_msg_data out NOCOPY varchar2,
x_object_version IN NUMBER DEFAULT -1,
X_Row_Id IN ROWID DEFAULT NULL --Bug Fix:3237327
) IS
--cust_rel_rec hz_cust_acct_info_pub.cust_acct_relate_rec_type;
l_last_update_date DATE;
object_version_select
(p_table_name => 'HZ_CUST_ACCT_RELATE',
p_col_id => X_customer_id,
p_col_id2 => X_Related_Customer_Id,
x_rowid => l_rowid,
x_object_version_number => l_object_version,
x_last_update_date => l_last_update_date,
x_id_value => l_dummy,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data );
HZ_CUST_ACCOUNT_V2PUB.update_cust_acct_relate (
p_cust_acct_relate_rec => cust_rel_rec,
p_object_version_number => l_object_version,
p_rowid => X_Row_Id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data );
HZ_CUST_ACCOUNT_V2PUB.update_cust_acct_relate (
p_cust_acct_relate_rec => cust_rel_rec,
p_object_version_number => l_object_version,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data );
select last_update_date
into x_last_update_date
from hz_cust_acct_relate
where cust_account_id = X_Customer_Id
and related_cust_account_id = X_Related_Customer_Id
and rowid = X_row_id;
We will not be able to return the x_last_update_date correctly, we can not return
it. We might face some issue here but as this api is only used by ARXCUDCI.fmb
and ARXCUDCI.fmb has been modified accordingly, this should not be a problem */
NULL;
-- Update the reciprocal relationship.
-- if it exist.
--
--{Bug Fix: 3237327
IF x_return_status = 'S' THEN
IF x_row_id IS NOT NULL THEN
update hz_cust_acct_relate_all
set customer_reciprocal_flag = decode(x_status,
'I','N',
'A','Y'
)
where cust_account_id = x_related_customer_id
and related_cust_account_id = x_customer_id
and rowid = X_row_id;
We will not be able to return the x_last_update_date correctly, we can not return
it. We might face some issue here but as this api is only used by ARXCUDCI.fmb
and ARXCUDCI.fmb has been modified accordingly, this should not be a problem */
NULL;
END Update_Row;