The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'x'
FROM OKE_K_HEADERS
WHERE K_HEADER_ID = p_form_rec.K_HEADER_ID;
SELECT 'x'
FROM OKE_K_LINES
WHERE K_LINE_ID = p_form_rec.K_LINE_ID;
SELECT 'x'
FROM OKE_PRINT_FORMS_B
WHERE PRINT_FORM_CODE = p_form_rec.PRINT_FORM_CODE;
IF l_form_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
l_form_rec.LAST_UPDATED_BY := NULL;
IF l_form_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
l_form_rec.LAST_UPDATE_LOGIN := NULL;
IF l_form_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
l_form_rec.LAST_UPDATE_DATE := NULL;
SELECT
K_HEADER_ID,
K_LINE_ID,
PRINT_FORM_CODE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
REQUIRED_FLAG,
CUSTOMER_FURNISHED_FLAG,
COMPLETED_FLAG,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1 ,
ATTRIBUTE2 ,
ATTRIBUTE3 ,
ATTRIBUTE4 ,
ATTRIBUTE5 ,
ATTRIBUTE6 ,
ATTRIBUTE7 ,
ATTRIBUTE8 ,
ATTRIBUTE9 ,
ATTRIBUTE10 ,
ATTRIBUTE11 ,
ATTRIBUTE12 ,
ATTRIBUTE13 ,
ATTRIBUTE14 ,
ATTRIBUTE15
FROM OKE_K_PRINT_FORMS a
WHERE
(a.K_HEADER_ID = chr_id)AND(a.PRINT_FORM_CODE=pfm_cd)
AND(
((a.K_LINE_ID IS NULL)AND(cle_id IS NULL)) OR
(a.K_LINE_ID = cle_id));
l_form_rec.LAST_UPDATE_DATE ,
l_form_rec.LAST_UPDATED_BY ,
l_form_rec.LAST_UPDATE_LOGIN ,
l_form_rec.REQUIRED_FLAG ,
l_form_rec.CUSTOMER_FURNISHED_FLAG ,
l_form_rec.COMPLETED_FLAG ,
l_form_rec.ATTRIBUTE_CATEGORY ,
l_form_rec.ATTRIBUTE1 ,
l_form_rec.ATTRIBUTE2 ,
l_form_rec.ATTRIBUTE3 ,
l_form_rec.ATTRIBUTE4 ,
l_form_rec.ATTRIBUTE5 ,
l_form_rec.ATTRIBUTE6 ,
l_form_rec.ATTRIBUTE7 ,
l_form_rec.ATTRIBUTE8 ,
l_form_rec.ATTRIBUTE9 ,
l_form_rec.ATTRIBUTE10 ,
l_form_rec.ATTRIBUTE11 ,
l_form_rec.ATTRIBUTE12 ,
l_form_rec.ATTRIBUTE13 ,
l_form_rec.ATTRIBUTE14 ,
l_form_rec.ATTRIBUTE15 ;
-- row level insert
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_form_rec IN form_rec_type,
x_form_rec OUT NOCOPY form_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
l_form_rec.LAST_UPDATE_DATE := SYSDATE;
l_form_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_form_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
BEGIN -- insert
IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start call insert api');
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'attributes set for insert');
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'who column filled for insert');
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'attributes validated for insert');
INSERT INTO OKE_K_PRINT_FORMS(
K_HEADER_ID ,
K_LINE_ID ,
PRINT_FORM_CODE ,
CREATION_DATE ,
CREATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN ,
REQUIRED_FLAG ,
CUSTOMER_FURNISHED_FLAG,
COMPLETED_FLAG ,
ATTRIBUTE_CATEGORY ,
ATTRIBUTE1 ,
ATTRIBUTE2 ,
ATTRIBUTE3 ,
ATTRIBUTE4 ,
ATTRIBUTE5 ,
ATTRIBUTE6 ,
ATTRIBUTE7 ,
ATTRIBUTE8 ,
ATTRIBUTE9 ,
ATTRIBUTE10 ,
ATTRIBUTE11 ,
ATTRIBUTE12 ,
ATTRIBUTE13 ,
ATTRIBUTE14 ,
ATTRIBUTE15
)
VALUES(
l_def_form_rec.K_HEADER_ID ,
l_def_form_rec.K_LINE_ID ,
l_def_form_rec.PRINT_FORM_CODE ,
l_def_form_rec.CREATION_DATE ,
l_def_form_rec.CREATED_BY ,
l_def_form_rec.LAST_UPDATE_DATE ,
l_def_form_rec.LAST_UPDATED_BY ,
l_def_form_rec.LAST_UPDATE_LOGIN ,
l_def_form_rec.REQUIRED_FLAG ,
l_def_form_rec.CUSTOMER_FURNISHED_FLAG,
l_def_form_rec.COMPLETED_FLAG ,
l_def_form_rec.ATTRIBUTE_CATEGORY ,
l_def_form_rec.ATTRIBUTE1 ,
l_def_form_rec.ATTRIBUTE2 ,
l_def_form_rec.ATTRIBUTE3 ,
l_def_form_rec.ATTRIBUTE4 ,
l_def_form_rec.ATTRIBUTE5 ,
l_def_form_rec.ATTRIBUTE6 ,
l_def_form_rec.ATTRIBUTE7 ,
l_def_form_rec.ATTRIBUTE8 ,
l_def_form_rec.ATTRIBUTE9 ,
l_def_form_rec.ATTRIBUTE10 ,
l_def_form_rec.ATTRIBUTE11 ,
l_def_form_rec.ATTRIBUTE12 ,
l_def_form_rec.ATTRIBUTE13 ,
l_def_form_rec.ATTRIBUTE14 ,
l_def_form_rec.ATTRIBUTE15
);
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'record inserted');
END insert_row; -- row level
-- table level insert
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_form_tbl IN form_tbl_type,
x_form_tbl OUT NOCOPY form_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TBL_insert_row';
insert_row (
p_api_version => p_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_form_rec => p_form_tbl(i),
x_form_rec => x_form_tbl(i));
END insert_row; -- table level
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_form_rec IN form_rec_type,
x_form_rec OUT NOCOPY form_rec_type) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
l_form_rec.LAST_UPDATE_DATE := SYSDATE;
l_form_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_form_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF x_form_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE THEN
x_form_rec.LAST_UPDATE_DATE := l_form_rec.LAST_UPDATE_DATE;
IF x_form_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM THEN
x_form_rec.LAST_UPDATED_BY := l_form_rec.LAST_UPDATED_BY ;
IF x_form_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM THEN
x_form_rec.LAST_UPDATE_LOGIN := l_form_rec.LAST_UPDATE_LOGIN;
BEGIN -- update row
IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start call api initialization');
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'update base table');
UPDATE OKE_K_PRINT_FORMS
SET
CREATION_DATE = l_def_form_rec.CREATION_DATE,
CREATED_BY = l_def_form_rec.CREATED_BY,
LAST_UPDATE_DATE = l_def_form_rec.LAST_UPDATE_DATE,
LAST_UPDATED_BY = l_def_form_rec.LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = l_def_form_rec.LAST_UPDATE_LOGIN,
REQUIRED_FLAG = l_def_form_rec.REQUIRED_FLAG,
CUSTOMER_FURNISHED_FLAG = l_def_form_rec.CUSTOMER_FURNISHED_FLAG,
COMPLETED_FLAG = l_def_form_rec.COMPLETED_FLAG,
ATTRIBUTE_CATEGORY = l_def_form_rec.ATTRIBUTE_CATEGORY,
ATTRIBUTE1 = l_def_form_rec.ATTRIBUTE1,
ATTRIBUTE2 = l_def_form_rec.ATTRIBUTE2,
ATTRIBUTE3 = l_def_form_rec.ATTRIBUTE3,
ATTRIBUTE4 = l_def_form_rec.ATTRIBUTE4,
ATTRIBUTE5 = l_def_form_rec.ATTRIBUTE5,
ATTRIBUTE6 = l_def_form_rec.ATTRIBUTE6,
ATTRIBUTE7 = l_def_form_rec.ATTRIBUTE7,
ATTRIBUTE8 = l_def_form_rec.ATTRIBUTE8,
ATTRIBUTE9 = l_def_form_rec.ATTRIBUTE9,
ATTRIBUTE10 = l_def_form_rec.ATTRIBUTE10,
ATTRIBUTE11 = l_def_form_rec.ATTRIBUTE11,
ATTRIBUTE12 = l_def_form_rec.ATTRIBUTE12,
ATTRIBUTE13 = l_def_form_rec.ATTRIBUTE13,
ATTRIBUTE14 = l_def_form_rec.ATTRIBUTE14,
ATTRIBUTE15 = l_def_form_rec.ATTRIBUTE15
WHERE
(K_HEADER_ID = l_def_form_rec.K_HEADER_ID)AND
(PRINT_FORM_CODE = l_def_form_rec.PRINT_FORM_CODE) AND
((K_LINE_ID = l_def_form_rec.K_LINE_ID)OR
(K_LINE_ID IS NULL)AND(l_def_form_rec.K_LINE_ID IS NULL));
END update_row; -- row level update
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_form_tbl IN form_tbl_type,
x_form_tbl OUT NOCOPY form_tbl_type) IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'TBL_update_row';
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'begin table type of update in pvt');
update_row (
p_api_version => p_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_form_rec => p_form_tbl(i),
x_form_rec => x_form_tbl(i));
END update_row; -- table level update
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_cle_id IN NUMBER,
p_pfm_cd OKE_K_PRINT_FORMS.PRINT_FORM_CODE%TYPE
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
DELETE FROM OKE_K_PRINT_FORMS
WHERE K_LINE_ID = p_cle_id AND PRINT_FORM_CODE = p_pfm_cd;
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_id IN NUMBER,
p_pfm_cd OKE_K_PRINT_FORMS.PRINT_FORM_CODE%TYPE
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
DELETE FROM OKE_K_PRINT_FORMS
WHERE (K_HEADER_ID=p_chr_id) AND (PRINT_FORM_CODE=p_pfm_cd) AND (K_LINE_ID IS NULL);
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_form_rec IN form_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
delete_row (
p_api_version => p_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_chr_id => p_form_rec.K_HEADER_ID,
p_pfm_cd => p_form_rec.PRINT_FORM_CODE);
delete_row (
p_api_version => p_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cle_id => p_form_rec.K_LINE_ID,
p_pfm_cd => p_form_rec.PRINT_FORM_CODE);
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_form_tbl IN form_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TBL_delete_row';
delete_row (
p_api_version => p_api_version,
p_init_msg_list => OKE_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_form_rec => p_form_tbl(i));
END delete_row; -- table level delete
SELECT k_header_id,k_line_id,print_form_code FROM oke_k_print_forms a
WHERE
(a.K_HEADER_ID = p.K_HEADER_ID)AND(a.PRINT_FORM_CODE=p.PRINT_FORM_CODE)
AND(
((a.K_LINE_ID IS NULL)AND(p.K_LINE_ID IS NULL)) OR
(a.K_LINE_ID = p.K_LINE_ID))
FOR UPDATE NOWAIT;
OKE_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);