The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_row (
x_rowid IN OUT NOCOPY VARCHAR2,
x_sales_lead_line_id OUT NOCOPY NUMBER,
x_person_id IN NUMBER,
x_enquiry_appl_number IN NUMBER,
x_enquiry_dt IN DATE,
x_inquiry_method_code IN VARCHAR2,
x_preference IN NUMBER,
x_ret_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_mode IN VARCHAR2,
x_product_category_id IN NUMBER,
x_product_category_set_id IN NUMBER
) AS
/*
|| Created By : hreddych
|| Created On : 30-JAN-2003
|| Purpose : Handles the INSERT DML logic for the table.
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| (reverse chronological order - newest change first)
*/
l_tmp_var VARCHAR2(2000);
SELECT sales_lead_id
FROM igr_i_appl_all
WHERE person_id =p_person_id
AND enquiry_appl_number = p_enquiry_appl_number ;
igr_i_a_lines_pkg.insert_row (
x_mode => 'R',
x_rowid => lv_rowid,
x_person_id => x_person_id,
x_enquiry_appl_number => x_enquiry_appl_number,
x_sales_lead_line_id => X_sales_lead_line_id,
x_preference => x_preference
);
AS_SALES_LEADS_PUB.Lead_Process_After_Update (
P_Api_Version_Number => 2.0,
P_Init_Msg_List => FND_API.G_FALSE,
P_Commit => FND_API.G_FALSE,
P_Validation_Level => AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
P_Check_Access_Flag => FND_API.G_MISS_CHAR,
P_Admin_Flag => FND_API.G_MISS_CHAR,
P_Admin_Group_Id => FND_API.G_MISS_NUM,
P_identity_salesforce_id => FND_API.G_MISS_NUM,
P_Salesgroup_id => FND_API.G_MISS_NUM,
P_Sales_Lead_Id => l_sales_lead_id,
X_Return_Status => l_lead_proc_ret_status,
X_Msg_Count => l_lead_proc_msg_count,
X_Msg_Data => l_lead_proc_msg_data
);
fnd_file.put_line(fnd_file.log, 'AS_SALES_LEADS_PUB.Lead_Process_After_Update failed.');
END insert_row;
PROCEDURE update_row (
x_rowid IN VARCHAR2,
x_sales_lead_line_id IN NUMBER,
x_person_id IN NUMBER,
x_enquiry_appl_number IN NUMBER,
x_enquiry_dt IN DATE,
x_inquiry_method_code IN VARCHAR2,
x_preference IN NUMBER,
x_mode IN VARCHAR2,
x_ret_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_product_category_id IN NUMBER,
x_product_category_set_id IN NUMBER
) AS
/*
|| Created By : hreddych
|| Created On : 30-JAN-2003
|| Purpose : Handles the UPDATE DML logic for the table.
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| (reverse chronological order - newest change first)
*/
l_tmp_var VARCHAR2(2000);
SELECT sales_lead_id
FROM igr_i_appl_all
WHERE person_id =p_person_id
AND enquiry_appl_number = p_enquiry_appl_number ;
CURSOR cur_last_update_date IS
SELECT last_update_date
FROM as_sales_lead_lines
WHERE sales_lead_line_id = x_sales_lead_line_id;
OPEN cur_last_update_date;
FETCH cur_last_update_date INTO ddp_sales_lead_line_tbl(1).last_update_date ;
CLOSE cur_last_update_date;
as_sales_leads_pub.Update_sales_lead_lines(
P_Api_Version_Number =>2.0,
P_Init_Msg_List => FND_API.G_FALSE,
P_Commit => FND_API.G_FALSE,
p_validation_level => AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
P_Check_Access_Flag => FND_API.G_MISS_CHAR,
P_Admin_Flag => 'Y',
P_Admin_Group_Id => FND_API.G_MISS_NUM,
P_identity_salesforce_id => FND_API.G_MISS_NUM,
P_Sales_Lead_Profile_Tbl => ddp_sales_lead_profile_tbl,
P_SALES_LEAD_LINE_Tbl => ddp_sales_lead_line_tbl,
X_SALES_LEAD_LINE_OUT_Tbl => ddx_sales_lead_line_out_tbl,
X_Return_Status => x_ret_status,
X_Msg_Count => x_msg_count,
X_Msg_Data => x_msg_data
);
igr_i_a_lines_pkg.update_row (
x_mode => 'R',
x_rowid => x_rowid,
x_person_id => x_person_id,
x_enquiry_appl_number => x_enquiry_appl_number,
x_sales_lead_line_id => x_sales_lead_line_id,
x_preference => x_preference
);
AS_SALES_LEADS_PUB.Lead_Process_After_Update (
P_Api_Version_Number => 2.0,
P_Init_Msg_List => FND_API.G_FALSE,
P_Commit => FND_API.G_FALSE,
P_Validation_Level => AS_UTILITY_PUB.G_VALID_LEVEL_ITEM,
P_Check_Access_Flag => FND_API.G_MISS_CHAR,
P_Admin_Flag => FND_API.G_MISS_CHAR,
P_Admin_Group_Id => FND_API.G_MISS_NUM,
P_identity_salesforce_id => FND_API.G_MISS_NUM,
P_Salesgroup_id => FND_API.G_MISS_NUM,
P_Sales_Lead_Id => l_sales_lead_id,
X_Return_Status => l_lead_proc_ret_status,
X_Msg_Count => l_lead_proc_msg_count,
X_Msg_Data => l_lead_proc_msg_data
);
fnd_file.put_line(fnd_file.log, 'AS_SALES_LEADS_PUB.Lead_Process_After_Update failed.');
END update_row;
SELECT row_id
FROM igr_i_a_lines_v
WHERE person_id = p_person_id
AND enquiry_appl_number = p_enquiry_appl_number
AND product_category_id = p_product_category_id
AND product_category_set_id = p_product_category_set_id
AND ((l_rowid IS NULL) OR (row_id <> l_rowid));