The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_contact_stecode(
p_chr_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2) IS
CURSOR c_get_contract_status(p_chr_id IN NUMBER) IS
SELECT ste_code
FROM okc_k_headers_all_b,okc_statuses_b
WHERE id= p_chr_id AND okc_statuses_b.code=okc_k_headers_all_b.sts_code;
okc_debug.log('100: Entered update_contact_stecode', 2);
UPDATE OKC_CONTACTS SET dnz_ste_code=l_ste_code WHERE DNZ_CHR_ID=p_chr_id;
okc_debug.log('110: Exiting update_contact_stecode', 2);
okc_debug.log('120: Exiting update_contact_stecode:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('130: Exiting update_contact_stecode:OTHERS Exception', 2);
END update_contact_stecode;
SELECT
ID,
CPL_ID,
CRO_CODE,
DNZ_CHR_ID,
OBJECT1_ID1,
OBJECT1_ID2,
JTOT_OBJECT1_CODE,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
CONTACT_SEQUENCE,
LAST_UPDATE_LOGIN,
PRIMARY_YN,
RESOURCE_CLASS,
SALES_GROUP_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
START_DATE,
END_DATE
FROM Okc_Contacts
WHERE okc_contacts.id = p_id;
l_ctc_rec.LAST_UPDATED_BY,
l_ctc_rec.LAST_UPDATE_DATE,
l_ctc_rec.CONTACT_SEQUENCE,
l_ctc_rec.LAST_UPDATE_LOGIN,
l_ctc_rec.PRIMARY_YN,
l_ctc_rec.RESOURCE_CLASS,
l_ctc_rec.SALES_GROUP_ID,
l_ctc_rec.ATTRIBUTE_CATEGORY,
l_ctc_rec.ATTRIBUTE1,
l_ctc_rec.ATTRIBUTE2,
l_ctc_rec.ATTRIBUTE3,
l_ctc_rec.ATTRIBUTE4,
l_ctc_rec.ATTRIBUTE5,
l_ctc_rec.ATTRIBUTE6,
l_ctc_rec.ATTRIBUTE7,
l_ctc_rec.ATTRIBUTE8,
l_ctc_rec.ATTRIBUTE9,
l_ctc_rec.ATTRIBUTE10,
l_ctc_rec.ATTRIBUTE11,
l_ctc_rec.ATTRIBUTE12,
l_ctc_rec.ATTRIBUTE13,
l_ctc_rec.ATTRIBUTE14,
l_ctc_rec.ATTRIBUTE15,
l_ctc_rec.START_DATE,
l_ctc_rec.END_DATE;
SELECT
ID,
OBJECT_VERSION_NUMBER,
CPL_ID,
CRO_CODE,
DNZ_CHR_ID,
CONTACT_SEQUENCE,
OBJECT1_ID1,
OBJECT1_ID2,
JTOT_OBJECT1_CODE,
PRIMARY_YN,
RESOURCE_CLASS,
SALES_GROUP_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
START_DATE,
END_DATE
FROM Okc_Contacts
WHERE okc_contacts.id = p_id;
l_ctcv_rec.LAST_UPDATED_BY,
l_ctcv_rec.LAST_UPDATE_DATE,
l_ctcv_rec.LAST_UPDATE_LOGIN,
l_ctcv_rec.START_DATE,
l_ctcv_rec.END_DATE;
IF (l_ctcv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
l_ctcv_rec.last_updated_by := NULL;
IF (l_ctcv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
l_ctcv_rec.last_update_date := NULL;
IF (l_ctcv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
l_ctcv_rec.last_update_login := NULL;
select 'x'
from OKC_K_PARTY_ROLES_B
where id = p_ctcv_rec.cpl_id;
select '!'
from
okc_k_party_roles_b PR
,okc_contact_sources CS
,okc_k_headers_all_b KH -- Modified by Jvorugan for Bug:4645341 okc_k_headers_b KH
where
PR.ID = p_ctcv_rec.CPL_ID
and CS.CRO_CODE = p_ctcv_rec.CRO_CODE
and CS.RLE_CODE = PR.RLE_CODE
and CS.jtot_object_code = p_ctcv_rec.jtot_object1_code
and sysdate >= CS.start_date
and (CS.end_date is NULL or CS.end_date>=sysdate)
and KH.ID = p_ctcv_rec.DNZ_CHR_ID
and CS.BUY_OR_SELL = KH.BUY_OR_SELL
;
select
from_table
,trim(where_clause) where_clause
from
jtf_objects_vl OB
where
OB.OBJECT_CODE = p_ctcv_rec.JTOT_OBJECT1_CODE
;
select
CS.constrained_yn
,PR.OBJECT1_ID1
,PR.OBJECT1_ID2
,PR.JTOT_OBJECT1_CODE
,PR.RLE_CODE
,KH.BUY_OR_SELL
,KH.SCS_CODE
from
okc_k_party_roles_b PR
,okc_contact_sources CS
,okc_k_headers_all_b KH -- Modified by Jvorugan for Bug:4645341 okc_k_headers_b KH
where
PR.ID = p_ctcv_rec.CPL_ID
and CS.CRO_CODE = p_ctcv_rec.CRO_CODE
and CS.RLE_CODE = PR.RLE_CODE
and CS.jtot_object_code = p_ctcv_rec.jtot_object1_code
and sysdate >= CS.start_date
and (CS.end_date is NULL or CS.end_date>=sysdate)
and KH.ID = p_ctcv_rec.DNZ_CHR_ID
and CS.BUY_OR_SELL = KH.BUY_OR_SELL
;
SELECT from_table
FROM jtf_objects_vl
WHERE object_code = p_object_code
AND sysdate between nvl(start_date_active , sysdate-1)
and nvl(end_date_active , sysdate+1);
SELECT 1 FROM USER_TAB_COLUMNS
WHERE table_name = l_view_name
AND column_name = p_column_name;
l_sql_stmt := 'SELECT PARTY_ID FROM '|| l_sql_stmt;
EXECUTE IMMEDIATE 'select ''x'' from '||l_from_table||
' where id1=:object1_id1 and id2=:object1_id2'||l_where_clause
into l_dummy_var
USING p_ctcv_rec.object1_id1, p_ctcv_rec.object1_id2;
EXECUTE IMMEDIATE 'select ''x'' from '||l_from_table||
' where id1=:object1_id1 and id2=:object1_id2 and party_id=:l_party1_id1 '
||l_where_clause into l_dummy_var
USING p_ctcv_rec.object1_id1, p_ctcv_rec.object1_id2,l_party_id;
EXECUTE IMMEDIATE 'select ''x'' from '||l_from_table||
' where id1=:object1_id1 and id2=:object1_id2 and party_id=:l_party1_id1 and party_id2=:l_party1_id2'
||l_where_clause into l_dummy_var
USING p_ctcv_rec.object1_id1, p_ctcv_rec.object1_id2,l_party_id1,l_party_id2;
select '!'
from okc_k_headers_all_b -- Modified by Jvorugan for Bug:4645341 okc_k_headers_b
where id = p_ctcv_rec.dnz_chr_id;
SELECT '!'
FROM OKC_CONTACTS ctc
WHERE id <> NVL(p_ctcv_rec.id,-99999)
AND cpl_id = p_ctcv_rec.cpl_id
AND dnz_chr_id = p_ctcv_rec.dnz_chr_id
AND primary_yn = 'Y'
AND cro_code = p_ctcv_rec.cro_code
AND NVL(TO_DATE(p_ctcv_rec.start_date,'YYYY/MM/DD'),TRUNC(sysdate)) <=
NVL(ctc.end_date,to_date('01-01-4713','DD-MM-YYYY'))
AND NVL(TO_DATE(p_ctcv_rec.end_date,'YYYY/MM/DD'),TO_DATE('01-01-4713','DD-MM-YYYY')) >=
NVL(ctc.start_date,TRUNC(sysdate));
SELECT 'x'
FROM okc_contacts
WHERE cpl_id = p_ctcv_rec.CPL_ID
AND cro_code = p_ctcv_rec.CRO_CODE
AND NVL(jtot_object1_code,'X') = NVL(p_ctcv_rec.JTOT_OBJECT1_CODE,'X')
AND NVL(object1_id1,'X') = NVL(p_ctcv_rec.OBJECT1_ID1,'X')
AND NVL(object1_id2,'X') = NVL(p_ctcv_rec.OBJECT1_ID2,'X')
AND id <> NVL(p_ctcv_rec.ID,-9999)
AND (((p_ctcv_rec.START_DATE BETWEEN TRUNC(START_DATE) AND TRUNC(END_DATE))
OR ((TRUNC(START_DATE) BETWEEN p_ctcv_rec.START_DATE AND p_ctcv_rec.END_DATE)
OR (TRUNC(END_DATE) BETWEEN p_ctcv_rec.START_DATE AND p_ctcv_rec.END_DATE))
OR (p_ctcv_rec.END_DATE BETWEEN TRUNC(START_DATE) AND TRUNC(END_DATE)))
OR ((END_DATE IS NULL AND (p_ctcv_rec.END_DATE = START_DATE))
OR (p_ctcv_rec.END_DATE IS NULL AND (p_ctcv_rec.START_DATE <=END_DATE))
OR (p_ctcv_rec.END_DATE IS NULL AND END_DATE IS NULL)));
Select buy_or_sell
From okc_k_headers_all_b --Modified by Jvorugan for Bug:4645341 okc_k_headers_b
Where id = p_ctcv_rec.dnz_chr_id;
Select rle_code
From okc_k_party_roles_b
Where dnz_chr_id = p_ctcv_rec.dnz_chr_id;
Select access_level
From okc_contact_sources
Where rle_code = p_rle_code
and cro_code = p_ctcv_rec.cro_code
and buy_or_sell = p_intent;
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
PROCEDURE insert_row(
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctc_rec IN ctc_rec_type,
x_ctc_rec OUT NOCOPY ctc_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'CONTACTS_insert_row';
okc_debug.log('5700: Entered insert_row', 2);
INSERT INTO OKC_CONTACTS(
id,
cpl_id,
cro_code,
dnz_chr_id,
object1_id1,
object1_id2,
JTOT_OBJECT1_CODE,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
contact_sequence,
last_update_login,
primary_yn,
RESOURCE_CLASS,
SALES_GROUP_ID,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
start_date,
end_date)
VALUES (
l_ctc_rec.id,
l_ctc_rec.cpl_id,
l_ctc_rec.cro_code,
l_ctc_rec.dnz_chr_id,
l_ctc_rec.object1_id1,
l_ctc_rec.object1_id2,
l_ctc_rec.JTOT_OBJECT1_CODE,
l_ctc_rec.object_version_number,
l_ctc_rec.created_by,
l_ctc_rec.creation_date,
l_ctc_rec.last_updated_by,
l_ctc_rec.last_update_date,
l_ctc_rec.contact_sequence,
l_ctc_rec.last_update_login,
l_ctc_rec.primary_yn,
l_ctc_rec.RESOURCE_CLASS,
l_ctc_rec.SALES_GROUP_ID,
l_ctc_rec.attribute_category,
l_ctc_rec.attribute1,
l_ctc_rec.attribute2,
l_ctc_rec.attribute3,
l_ctc_rec.attribute4,
l_ctc_rec.attribute5,
l_ctc_rec.attribute6,
l_ctc_rec.attribute7,
l_ctc_rec.attribute8,
l_ctc_rec.attribute9,
l_ctc_rec.attribute10,
l_ctc_rec.attribute11,
l_ctc_rec.attribute12,
l_ctc_rec.attribute13,
l_ctc_rec.attribute14,
l_ctc_rec.attribute15,
l_ctc_rec.start_date,
l_ctc_rec.end_date);
update_contact_stecode(p_chr_id => l_ctc_rec.dnz_chr_id,
x_return_status=>l_return_status);
okc_debug.log('5800: Leaving insert_row', 2);
okc_debug.log('5900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('6000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('6100: Exiting insert_row:OTHERS Exception', 2);
END insert_row;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctcv_rec IN ctcv_rec_type,
x_ctcv_rec OUT NOCOPY ctcv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_ctcv_rec.LAST_UPDATE_DATE := SYSDATE;
l_ctcv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_ctcv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
okc_debug.log('6400: Entered insert_row', 2);
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_ctc_rec,
lx_ctc_rec
);
okc_debug.log('6500: Leaving insert_row', 2);
okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('6700: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('6800: Exiting insert_row:OTHERS Exception', 2);
END insert_row;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctcv_tbl IN ctcv_tbl_type,
x_ctcv_tbl OUT NOCOPY ctcv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
okc_debug.log('6900: Entered insert_row', 2);
insert_row (
p_api_version => p_api_version,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ctcv_rec => p_ctcv_tbl(i),
x_ctcv_rec => x_ctcv_tbl(i));
okc_debug.log('7000: Leaving insert_row', 2);
okc_debug.log('7100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('7300: Exiting insert_row:OTHERS Exception', 2);
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_CONTACTS
WHERE ID = p_ctc_rec.id
AND OBJECT_VERSION_NUMBER = p_ctc_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_CONTACTS
WHERE ID = p_ctc_rec.id;
OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
PROCEDURE update_row(
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctc_rec IN ctc_rec_type,
x_ctc_rec OUT NOCOPY ctc_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'CONTACTS_update_row';
SELECT ste_code
FROM okc_k_headers_all_b KH,okc_statuses_b STB
WHERE KH.sts_code = STB.code
AND id= p_chr_id;
IF (x_ctc_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_ctc_rec.last_updated_by := l_ctc_rec.last_updated_by;
IF (x_ctc_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_ctc_rec.last_update_date := l_ctc_rec.last_update_date;
IF (x_ctc_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_ctc_rec.last_update_login := l_ctc_rec.last_update_login;
okc_debug.log('9400: Entered update_row', 2);
UPDATE OKC_CONTACTS
SET CPL_ID = l_def_ctc_rec.cpl_id,
CRO_CODE = l_def_ctc_rec.cro_code,
DNZ_CHR_ID = l_def_ctc_rec.dnz_chr_id,
OBJECT1_ID1 = l_def_ctc_rec.object1_id1,
OBJECT1_ID2 = l_def_ctc_rec.object1_id2,
JTOT_OBJECT1_CODE = l_def_ctc_rec.JTOT_OBJECT1_CODE,
OBJECT_VERSION_NUMBER = l_def_ctc_rec.object_version_number,
CREATED_BY = l_def_ctc_rec.created_by,
CREATION_DATE = l_def_ctc_rec.creation_date,
LAST_UPDATED_BY = l_def_ctc_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_ctc_rec.last_update_date,
CONTACT_SEQUENCE = l_def_ctc_rec.contact_sequence,
LAST_UPDATE_LOGIN = l_def_ctc_rec.last_update_login,
PRIMARY_YN = l_def_ctc_rec.primary_yn,
RESOURCE_CLASS = l_def_ctc_rec.RESOURCE_CLASS,
SALES_GROUP_ID = l_def_ctc_rec.SALES_GROUP_ID,
ATTRIBUTE_CATEGORY = l_def_ctc_rec.attribute_category,
ATTRIBUTE1 = l_def_ctc_rec.attribute1,
ATTRIBUTE2 = l_def_ctc_rec.attribute2,
ATTRIBUTE3 = l_def_ctc_rec.attribute3,
ATTRIBUTE4 = l_def_ctc_rec.attribute4,
ATTRIBUTE5 = l_def_ctc_rec.attribute5,
ATTRIBUTE6 = l_def_ctc_rec.attribute6,
ATTRIBUTE7 = l_def_ctc_rec.attribute7,
ATTRIBUTE8 = l_def_ctc_rec.attribute8,
ATTRIBUTE9 = l_def_ctc_rec.attribute9,
ATTRIBUTE10 = l_def_ctc_rec.attribute10,
ATTRIBUTE11 = l_def_ctc_rec.attribute11,
ATTRIBUTE12 = l_def_ctc_rec.attribute12,
ATTRIBUTE13 = l_def_ctc_rec.attribute13,
ATTRIBUTE14 = l_def_ctc_rec.attribute14,
ATTRIBUTE15 = l_def_ctc_rec.attribute15,
START_DATE = l_def_ctc_rec.start_date,
END_DATE = l_def_ctc_rec.end_date,
DNZ_STE_CODE = l_ste_code
WHERE ID = l_def_ctc_rec.id;
okc_debug.log('9500: Leaving update_row', 2);
okc_debug.log('9600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('9700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('9800: Exiting update_row:OTHERS Exception', 2);
END update_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctcv_rec IN ctcv_rec_type,
x_ctcv_rec OUT NOCOPY ctcv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_ctcv_rec.LAST_UPDATE_DATE := SYSDATE;
l_ctcv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_ctcv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF (x_ctcv_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_ctcv_rec.last_updated_by := l_ctcv_rec.last_updated_by;
IF (x_ctcv_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_ctcv_rec.last_update_date := l_ctcv_rec.last_update_date;
IF (x_ctcv_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_ctcv_rec.last_update_login := l_ctcv_rec.last_update_login;
okc_debug.log('10200: Entered update_row', 2);
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_ctc_rec,
lx_ctc_rec
);
okc_debug.log('10300: Leaving update_row', 2);
okc_debug.log('10400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('10500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('10600: Exiting update_row:OTHERS Exception', 2);
END update_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctcv_tbl IN ctcv_tbl_type,
x_ctcv_tbl OUT NOCOPY ctcv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
okc_debug.log('10700: Entered update_row', 2);
update_row (
p_api_version => p_api_version,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ctcv_rec => p_ctcv_tbl(i),
x_ctcv_rec => x_ctcv_tbl(i));
okc_debug.log('10800: Leaving update_row', 2);
okc_debug.log('10900: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('11000: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('11100: Exiting update_row:OTHERS Exception', 2);
END update_row;
PROCEDURE delete_row(
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctc_rec IN ctc_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'CONTACTS_delete_row';
okc_debug.log('11200: Entered delete_row', 2);
DELETE FROM OKC_CONTACTS
WHERE ID = l_ctc_rec.id;
okc_debug.log('11300: Leaving delete_row', 2);
okc_debug.log('11400: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('11500: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('11600: Exiting delete_row:OTHERS Exception', 2);
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctcv_rec IN ctcv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
okc_debug.log('11700: Entered delete_row', 2);
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_ctc_rec
);
okc_debug.log('11800: Leaving delete_row', 2);
okc_debug.log('11900: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('12000: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('12100: Exiting delete_row:OTHERS Exception', 2);
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ctcv_tbl IN ctcv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
okc_debug.log('12200: Entered delete_row', 2);
delete_row (
p_api_version => p_api_version,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ctcv_rec => p_ctcv_tbl(i));
okc_debug.log('12300: Exiting delete_row', 2);
okc_debug.log('12400: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('12500: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('12600: Exiting delete_row:OTHERS Exception', 2);
END delete_row;
PROCEDURE INSERT_ROW_UPG(x_return_status OUT NOCOPY VARCHAR2,p_ctcv_tbl ctcv_tbl_type) IS
l_tabsize NUMBER := p_ctcv_tbl.COUNT;
in_last_updated_by OKC_DATATYPES.NumberTabTyp;
in_last_update_date OKC_DATATYPES.DateTabTyp;
in_last_update_login OKC_DATATYPES.NumberTabTyp;
SELECT ste_code
FROM okc_k_headers_all_b KH,okc_statuses_b STB
WHERE KH.sts_code = STB.code
AND id= p_chr_id;
okc_debug.log('12700: Entered INSERT_ROW_UPG', 2);
in_last_updated_by (j) := p_ctcv_tbl(i).last_updated_by;
in_last_update_date (j) := p_ctcv_tbl(i).last_update_date;
in_last_update_login (j) := p_ctcv_tbl(i).last_update_login;
INSERT
INTO OKC_CONTACTS
(
id,
cpl_id,
cro_code,
dnz_chr_id,
object1_id1,
object1_id2,
jtot_object1_code,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
contact_sequence,
last_update_login,
primary_yn,
resource_class,
SALES_GROUP_ID,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
start_date,
end_date,
dnz_ste_code
)
VALUES (
in_id(i),
in_cpl_id(i),
in_cro_code(i),
in_dnz_chr_id(i),
in_object1_id1(i),
in_object1_id2(i),
in_jtot_object1_code(i),
in_object_version_number(i),
in_created_by(i),
in_creation_date(i),
in_last_updated_by(i),
in_last_update_date(i),
in_contact_sequence(i),
in_last_update_login(i),
in_primary_yn(i),
in_resource_class(i),
in_SALES_GROUP_ID(i),
in_attribute_category(i),
in_attribute1(i),
in_attribute2(i),
in_attribute3(i),
in_attribute4(i),
in_attribute5(i),
in_attribute6(i),
in_attribute7(i),
in_attribute8(i),
in_attribute9(i),
in_attribute10(i),
in_attribute11(i),
in_attribute12(i),
in_attribute13(i),
in_attribute14(i),
in_attribute15(i),
in_start_date(i),
in_end_date(i),
in_dnz_ste_code(i)
);
okc_debug.log('12800: Leaving INSERT_ROW_UPG', 2);
/*okc_debug.log('12900: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
END INSERT_ROW_UPG;
INSERT INTO okc_contacts_h
(
major_version,
id,
cpl_id,
cro_code,
dnz_chr_id,
object1_id1,
object1_id2,
jtot_object1_code,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
contact_sequence,
last_update_login,
primary_yn,
resource_class,
SALES_GROUP_ID,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
start_date,
end_date
)
SELECT
p_major_version,
id,
cpl_id,
cro_code,
dnz_chr_id,
object1_id1,
object1_id2,
jtot_object1_code,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
contact_sequence,
last_update_login,
primary_yn,
resource_class,
SALES_GROUP_ID,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
start_date,
end_date
FROM okc_contacts
WHERE dnz_chr_id = p_chr_id;
INSERT INTO okc_contacts
(
id,
cpl_id,
cro_code,
dnz_chr_id,
object1_id1,
object1_id2,
jtot_object1_code,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
contact_sequence,
last_update_login,
primary_yn,
resource_class,
SALES_GROUP_ID,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
start_date,
end_date
)
SELECT
id,
cpl_id,
cro_code,
dnz_chr_id,
object1_id1,
object1_id2,
jtot_object1_code,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
contact_sequence,
last_update_login,
primary_yn,
resource_class,
SALES_GROUP_ID,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
start_date,
end_date
FROM okc_contacts_h
WHERE dnz_chr_id = p_chr_id
AND major_version = p_major_version;
OKC_CTC_PVT.update_contact_stecode(p_chr_id => p_chr_id,
x_return_status=>l_return_status);