The following lines contain the word 'select', 'insert', 'update' or 'delete':
ELSIF p_contact_tbl(i).OPERATION_CODE = 'UPDATE' THEN
-- dbms_output.put_line('before modify contacts - calling cs update');
CS_Installedbase_PUB.update_contact(
p_api_version => 1.0, -- Bug# 1531396 puzzled why 2.0 was being passed earlier ????????? reverting it to 1.0 -shegde
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cs_contact_id => l_cs_contact_id ,
p_object_version_number => l_obj_version_number,
p_contact_rec => l_cp_contact_rec,
x_object_version_number => x_obj_version_number
);
ELSIF p_contact_tbl(i).OPERATION_CODE = 'DELETE' THEN
-- dbms_output.put_line('before modify contacts - calling cs delete');
CS_Installedbase_PUB.delete_contact(
p_api_version => 1.0, -- Bug# 1531396 puzzled why 2.0 was being passed earlier ????????? reverting it to 1.0 -shegde
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cs_contact_id => p_contact_tbl(i).cs_contact_id);
SELECT
line_inst_detail_id ,
transaction_type_id ,
system_id ,
customer_product_id ,
customer_product_type_code ,
customer_product_quantity ,
installed_at_party_site_id ,
installed_cp_return_by_date ,
installed_cp_rma_line_id ,
new_cp_rma_line_id ,
new_cp_return_by_date ,
expected_installation_date,
start_date_active,
end_date_active
FROM CS_LINE_INST_DETAILS
WHERE quote_line_shipment_id = parent_quote_line_id;
SELECT contact_id, contact_type, contact_category
FROM cs_inst_contact_dtls_v -- Bug 1554869 shegde
WHERE line_inst_detail_id = inst_detail_id;
PROCEDURE Cascade_Delete_Inst_Details(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
p_line_inst_dtl_id IN NUMBER
)
IS
/*
CURSOR cascaded_lines(p_inst_dtl_id NUMBER) IS
select line_inst_detail_id
from cs_line_inst_details
where source_line_inst_detail_id = p_inst_dtl_id;
ASO_Instdtls_INT.Delete_Installation_Detail(
p_api_version_number => 1.0,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_line_inst_dtl_id => i.line_inst_detail_id
);
END Cascade_Delete_Inst_Details;
PROCEDURE Cascade_Update_Inst_Details(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
p_object_version_number IN NUMBER,
p_line_inst_dtl_tbl IN Inst_Detail_tbl_Type,
p_contact_tbl IN contact_tbl_type := G_MISS_Contact_Tbl ,
p_old_quantity IN NUMBER
)
IS
/*
CURSOR cascaded_lines(p_inst_dtl_id NUMBER) IS
select line_inst_detail_id, customer_product_quantity quantity, object_version_number
from cs_line_inst_details
where source_line_inst_detail_id = p_inst_dtl_id;
select cs_contact_id, object_version_number, contact_id
from cs_inst_contact_dtls_v -- Bug 1554869 shegde
where line_inst_detail_id = p_inst_dtl_id;
ASO_Instdtls_INT.Update_Installation_Detail(
1.0 ,
p_init_msg_list ,
p_commit ,
x_return_status ,
x_msg_count ,
x_msg_data ,
p_object_version_number => l_object_version_number,
p_line_inst_dtl_tbl => l_line_inst_dtl_tbl,
p_contact_tbl => l_contact_tbl ,
p_cascade_flag => FND_API.G_FALSE
);
END Cascade_Update_Inst_Details;
PROCEDURE Update_Installation_Detail
(
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
p_object_version_number IN NUMBER,
p_line_inst_dtl_tbl IN Inst_Detail_tbl_Type,
p_contact_tbl IN contact_tbl_type := G_MISS_Contact_Tbl,
p_cascade_flag IN VARCHAR2 := FND_API.G_TRUE)
IS
/* CURSOR C_old_contact(l_cs_contact_id NUMBER) IS
SELECT contact_id
FROM cs_inst_contact_dtls_v -- Bug 1554869 shegde
WHERE cs_contact_id = l_cs_contact_id;
l_api_name VARCHAR2(50) := 'UPDATE_INSTALLATION_DETAIL';
SAVEPOINT Update_Installation_detail_PUB;
SELECT customer_product_quantity INTO l_old_quantity
FROM cs_line_inst_details
where line_inst_detail_id = l_line_inst_dtl_rec.line_inst_detail_id;
CS_Inst_detail_PUB.Update_installation_details
(
p_api_version => 1.0 ,
p_init_msg_list => FND_API.G_FALSE ,
p_commit => FND_API.G_FALSE ,
x_return_status => x_return_status ,
x_msg_count => x_msg_count ,
x_msg_data => x_msg_data ,
p_line_inst_dtl_rec => l_line_inst_dtl_rec ,
p_line_inst_dtl_desc_flex => G_MISS_DFF_rec,
P_OBJECT_VERSION_NUMBER => p_object_version_number,
X_OBJECT_VERSION_NUMBER => l_object_version_number
);
Cascade_update_inst_details(
1.0,
p_init_msg_list ,
p_commit ,
x_return_status ,
x_msg_count ,
x_msg_data ,
p_object_version_number ,
p_line_inst_dtl_tbl ,
p_contact_tbl ,
l_old_quantity );
END Update_Installation_Detail;
PROCEDURE Delete_Installation_Detail
(
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
p_line_inst_dtl_id IN NUMBER
)
IS
/*
CURSOR C_contact_info(p_inst_dtl_id NUMBER) IS
select cs_contact_id
from cs_inst_contact_dtls_v -- Bug 1554869 shegde
where line_inst_detail_id = p_inst_dtl_id;
l_api_name VARCHAR2(50) := 'Delete_Installation_Detail';
SAVEPOINT Delete_Installation_detail_PUB;
Cascade_delete_inst_details(
1.0 ,
p_init_msg_list ,
p_commit ,
x_return_status ,
x_msg_count ,
x_msg_data ,
p_line_inst_dtl_id
);
l_contact_tbl(j).operation_code := 'DELETE';
CS_Inst_detail_PUB.Delete_installation_details(
1.0 ,
p_init_msg_list ,
p_commit ,
x_return_status ,
x_msg_count ,
x_msg_data ,
p_line_inst_dtl_id
);
END Delete_Installation_Detail;
PROCEDURE Update_Inst_Details_ORDER
(
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
p_quote_line_shipment_id IN NUMBER,
p_order_line_id IN NUMBER
)
IS
/*
CURSOR C_inst_details IS
SELECT count(*)
FROM cs_line_inst_details
WHERE quote_line_shipment_id = p_quote_line_shipment_id;
l_api_name VARCHAR2(240) := 'UPDATE_INST_DETAILS_ORDER';
SAVEPOINT Update_Inst_details_ORder_PUB;
CS_Installedbase_GRP.Update_Inst_Details_Order_Line(
p_api_version => 1.0,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_quote_line_shipment_id => p_quote_line_shipment_id,
p_order_line_id => p_order_line_id
);