The following lines contain the word 'select', 'insert', 'update' or 'delete':
x_terrtype_rec.last_update_date := p_terrtype_rec.last_update_date;
x_terrtype_rec.last_updated_by := p_terrtype_rec.last_updated_by;
x_terrtype_rec.last_update_login := p_terrtype_rec.last_update_login;
x_terrtypeusgs_tbl (l_counter).last_update_date :=
p_terrtypeusgs_tbl (l_counter).last_update_date;
x_terrtypeusgs_tbl (l_counter).last_updated_by :=
p_terrtypeusgs_tbl (l_counter).last_updated_by;
x_terrtypeusgs_tbl (l_counter).last_update_login :=
p_terrtypeusgs_tbl (l_counter).last_update_login;
x_typequaltypeusgs_tbl (l_counter).last_update_date :=
p_typequaltypeusgs_tbl (l_counter).last_update_date;
x_typequaltypeusgs_tbl (l_counter).last_updated_by :=
p_typequaltypeusgs_tbl (l_counter).last_updated_by;
x_typequaltypeusgs_tbl (l_counter).last_update_login :=
p_typequaltypeusgs_tbl (l_counter).last_update_login;
x_terrtypequal_tbl (l_counter).last_update_date :=
p_terrtypequal_tbl (l_counter).last_update_date;
x_terrtypequal_tbl (l_counter).last_updated_by :=
p_terrtypequal_tbl (l_counter).last_updated_by;
x_terrtypequal_tbl (l_counter).last_update_login :=
p_terrtypequal_tbl (l_counter).last_update_login;
PROCEDURE update_terrtype (
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_terrtype_rec IN terrtype_rec_type
:= g_miss_terrtype_rec,
p_terrtypequal_tbl IN terrtypequal_tbl_type
:= g_miss_terrtypequal_tbl,
p_terrtypeusgs_tbl IN terrtypeusgs_tbl_type
:= g_miss_terrtypeusgs_tbl,
p_typequaltypeusgs_tbl IN typequaltypeusgs_tbl_type
:= g_miss_typequaltypeusgs_tbl,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_terrtype_out_rec OUT NOCOPY terrtype_out_rec_type,
x_terrtypequal_out_tbl OUT NOCOPY terrtypequal_out_tbl_type,
x_terrtypeusgs_out_tbl OUT NOCOPY terrtypeusgs_out_tbl_type,
x_typequaltypeusgs_out_tbl OUT NOCOPY typequaltypeusgs_out_tbl_type
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_TerrType';
jtf_territory_type_pvt.update_terrtype (
p_api_version_number => 1.0,
p_init_msg_list => fnd_api.g_false,
p_commit => fnd_api.g_false,
p_validation_level => fnd_api.g_valid_level_full,
p_terrtype_rec => l_terrtype_rec,
p_terrtypequal_tbl => l_terrtypequal_tbl,
p_terrtypeusgs_tbl => l_terrtypeusgs_tbl,
p_typequaltypeusgs_tbl => l_typequaltypeusgs_tbl,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_terrtype_out_rec => l_terrtype_out_rec,
x_terrtypequal_out_tbl => l_terrtypequal_out_tbl,
x_terrtypeusgs_out_tbl => l_terrtypeusgs_out_tbl,
x_typequaltypeusgs_out_tbl => l_typequaltypeusgs_out_tbl
);
ROLLBACK TO update_terrtype_pub;
ROLLBACK TO update_terrtype_pub;
ROLLBACK TO update_terrtype_pub;
'Others exception in Update_TerrType PUB' || SQLERRM
);
END update_terrtype;
PROCEDURE delete_terrtype (
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_terrtype_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_TerrType';
SAVEPOINT delete_terrtype_pub;
jtf_territory_type_pvt.delete_terrtype (
p_api_version_number => p_api_version_number,
p_init_msg_list => p_init_msg_list,
p_commit => p_commit,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_terrtype_id => p_terrtype_id
);
ROLLBACK TO delete_terrtype_pub;
ROLLBACK TO delete_terrtype_pub;
ROLLBACK TO delete_terrtype_pub;
'Others exception in Delete_TerrType PUB' || SQLERRM
);
END delete_terrtype;