The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* The following delete and update statements are commented out */
/* as a quick workaround to fix the time-consuming table handler issue */
/* Eventually we'll need to turn them into a separate fix_language procedure */
/*
DELETE FROM OKC_K_PARTY_ROLES_TL T
WHERE NOT EXISTS (
SELECT NULL
FROM OKC_K_PARTY_ROLES_B B
WHERE B.ID = T.ID
);
UPDATE OKC_K_PARTY_ROLES_TL T SET (
COGNOMEN,
ALIAS) = (SELECT
B.COGNOMEN,
B.ALIAS
FROM OKC_K_PARTY_ROLES_TL B
WHERE B.ID = T.ID
AND B.LANGUAGE = T.SOURCE_LANG)
WHERE (
T.ID,
T.LANGUAGE)
IN (SELECT
SUBT.ID,
SUBT.LANGUAGE
FROM OKC_K_PARTY_ROLES_TL SUBB, OKC_K_PARTY_ROLES_TL SUBT
WHERE SUBB.ID = SUBT.ID
AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
AND (SUBB.COGNOMEN <> SUBT.COGNOMEN
OR SUBB.ALIAS <> SUBT.ALIAS
OR (SUBB.COGNOMEN IS NULL AND SUBT.COGNOMEN IS NOT NULL)
OR (SUBB.COGNOMEN IS NOT NULL AND SUBT.COGNOMEN IS NULL)
OR (SUBB.ALIAS IS NULL AND SUBT.ALIAS IS NOT NULL)
OR (SUBB.ALIAS IS NOT NULL AND SUBT.ALIAS IS NULL)
));
/* Modifying Insert as per performance guidelines given in bug 3723874 */
INSERT /*+ append parallel(tt) */ INTO OKC_K_PARTY_ROLES_TL tt (
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
COGNOMEN,
ALIAS,
LAST_UPDATE_LOGIN)
select /*+ parallel(v) parallel(t) use_nl(t) */ v.* from
(SELECT /*+ no_merge ordered parallel(b) */
B.ID,
L.LANGUAGE_CODE,
B.SOURCE_LANG,
B.SFWT_FLAG,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.COGNOMEN,
B.ALIAS,
B.LAST_UPDATE_LOGIN
FROM OKC_K_PARTY_ROLES_TL B, FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND B.LANGUAGE = USERENV('LANG')
) v , OKC_K_PARTY_ROLES_TL t
WHERE t.ID(+) = v.ID
AND t.LANGUAGE(+) = v.LANGUAGE_CODE
AND t.id IS NULL;
/* Commenting delete and update for bug 3723874 */
/*
DELETE FROM OKC_K_PARTY_ROLES_TLH T
WHERE NOT EXISTS (
SELECT NULL
FROM OKC_K_PARTY_ROLES_BH B
WHERE B.ID = T.ID
AND B.MAJOR_VERSION = T.MAJOR_VERSION
);
UPDATE OKC_K_PARTY_ROLES_TLH T SET (
COGNOMEN,
ALIAS) = (SELECT
B.COGNOMEN,
B.ALIAS
FROM OKC_K_PARTY_ROLES_TLH B
WHERE B.ID = T.ID
AND B.MAJOR_VERSION = T.MAJOR_VERSION
AND B.LANGUAGE = T.SOURCE_LANG)
WHERE (
T.ID,
T.MAJOR_VERSION,
T.LANGUAGE)
IN (SELECT
SUBT.ID,
SUBT.MAJOR_VERSION,
SUBT.LANGUAGE
FROM OKC_K_PARTY_ROLES_TLH SUBB, OKC_K_PARTY_ROLES_TLH SUBT
WHERE SUBB.ID = SUBT.ID
AND SUBB.MAJOR_VERSION = SUBT.MAJOR_VERSION
AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
AND (SUBB.COGNOMEN <> SUBT.COGNOMEN
OR SUBB.ALIAS <> SUBT.ALIAS
OR (SUBB.COGNOMEN IS NULL AND SUBT.COGNOMEN IS NOT NULL)
OR (SUBB.COGNOMEN IS NOT NULL AND SUBT.COGNOMEN IS NULL)
OR (SUBB.ALIAS IS NULL AND SUBT.ALIAS IS NOT NULL)
OR (SUBB.ALIAS IS NOT NULL AND SUBT.ALIAS IS NULL)
));
/* Modifying Insert as per performance guidelines given in bug 3723874 */
INSERT /*+ append parallel(tt) */ INTO OKC_K_PARTY_ROLES_TLH tt(
ID,
LANGUAGE,
MAJOR_VERSION,
SOURCE_LANG,
SFWT_FLAG,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
COGNOMEN,
ALIAS,
LAST_UPDATE_LOGIN)
select /*+ parallel(v) parallel(t) use_nl(t) */ v.* from
( SELECT /*+ no_merge ordered parallel(b) */
B.ID,
L.LANGUAGE_CODE,
B.MAJOR_VERSION,
B.SOURCE_LANG,
B.SFWT_FLAG,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.COGNOMEN,
B.ALIAS,
B.LAST_UPDATE_LOGIN
FROM OKC_K_PARTY_ROLES_TLH B, FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND B.LANGUAGE = USERENV('LANG')
) v, OKC_K_PARTY_ROLES_TLH t
WHERE t.ID(+) = v.ID
AND t.MAJOR_VERSION(+) = v.MAJOR_VERSION
AND t.LANGUAGE(+) = v.LANGUAGE_CODE
AND t.id IS NULL;
SELECT
ID,
CPL_ID,CHR_ID,
CLE_ID,
DNZ_CHR_ID,
RLE_CODE,
OBJECT1_ID1,
OBJECT1_ID2,
JTOT_OBJECT1_CODE,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
CODE,
FACILITY,
MINORITY_GROUP_LOOKUP_CODE,
SMALL_BUSINESS_FLAG,
WOMEN_OWNED_FLAG,
LAST_UPDATE_LOGIN,
PRIMARY_YN,
CUST_ACCT_ID,
BILL_TO_SITE_USE_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
-- R12 Data Model Changes 4485150 Start
ORIG_SYSTEM_ID1,
ORIG_SYSTEM_REFERENCE1,
ORIG_SYSTEM_SOURCE_CODE
-- R12 Data Model Changes 4485150 End
FROM Okc_K_Party_Roles_B
WHERE okc_k_party_roles_b.id = p_id;
l_cpl_rec.LAST_UPDATED_BY,
l_cpl_rec.LAST_UPDATE_DATE,
l_cpl_rec.CODE,
l_cpl_rec.FACILITY,
l_cpl_rec.MINORITY_GROUP_LOOKUP_CODE,
l_cpl_rec.SMALL_BUSINESS_FLAG,
l_cpl_rec.WOMEN_OWNED_FLAG,
l_cpl_rec.LAST_UPDATE_LOGIN,
l_cpl_rec.PRIMARY_YN,
l_cpl_rec.CUST_ACCT_ID,
l_cpl_rec.BILL_TO_SITE_USE_ID,
l_cpl_rec.ATTRIBUTE_CATEGORY,
l_cpl_rec.ATTRIBUTE1,
l_cpl_rec.ATTRIBUTE2,
l_cpl_rec.ATTRIBUTE3,
l_cpl_rec.ATTRIBUTE4,
l_cpl_rec.ATTRIBUTE5,
l_cpl_rec.ATTRIBUTE6,
l_cpl_rec.ATTRIBUTE7,
l_cpl_rec.ATTRIBUTE8,
l_cpl_rec.ATTRIBUTE9,
l_cpl_rec.ATTRIBUTE10,
l_cpl_rec.ATTRIBUTE11,
l_cpl_rec.ATTRIBUTE12,
l_cpl_rec.ATTRIBUTE13,
l_cpl_rec.ATTRIBUTE14,
l_cpl_rec.ATTRIBUTE15,
-- R12 Data Model Changes 4485150 Start
l_cpl_rec.ORIG_SYSTEM_ID1,
l_cpl_rec.ORIG_SYSTEM_REFERENCE1,
l_cpl_rec.ORIG_SYSTEM_SOURCE_CODE
-- R12 Data Model Changes 4485150 End
;
SELECT
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
COGNOMEN,
ALIAS,
LAST_UPDATE_LOGIN
FROM Okc_K_Party_Roles_Tl
WHERE okc_k_party_roles_tl.id = p_id
AND okc_k_party_roles_tl.language = p_language;
l_okc_k_party_roles_tl_rec.LAST_UPDATED_BY,
l_okc_k_party_roles_tl_rec.LAST_UPDATE_DATE,
l_okc_k_party_roles_tl_rec.COGNOMEN,
l_okc_k_party_roles_tl_rec.ALIAS,
l_okc_k_party_roles_tl_rec.LAST_UPDATE_LOGIN;
SELECT
ID,
OBJECT_VERSION_NUMBER,
SFWT_FLAG,
CPL_ID,CHR_ID,
CLE_ID,
RLE_CODE,
DNZ_CHR_ID,
OBJECT1_ID1,
OBJECT1_ID2,
JTOT_OBJECT1_CODE,
COGNOMEN,
CODE,
FACILITY,
MINORITY_GROUP_LOOKUP_CODE,
SMALL_BUSINESS_FLAG,
WOMEN_OWNED_FLAG,
ALIAS,
PRIMARY_YN,
CUST_ACCT_ID,
BILL_TO_SITE_USE_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
FROM Okc_K_Party_Roles_V
WHERE okc_k_party_roles_v.id = p_id;
l_cplv_rec.LAST_UPDATED_BY,
l_cplv_rec.LAST_UPDATE_DATE,
l_cplv_rec.LAST_UPDATE_LOGIN;
IF (l_cplv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
l_cplv_rec.last_updated_by := NULL;
IF (l_cplv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
l_cplv_rec.last_update_date := NULL;
IF (l_cplv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
l_cplv_rec.last_update_login := NULL;
select 'x'
from OKC_K_LINES_B
where id = p_cplv_rec.cle_id;
select 'x'
from OKC_K_PARTY_ROLES_B
where id = p_cplv_rec.cpl_id;
select 'x'
from OKC_K_HEADERS_ALL_B -- Modified by jvorugan for Bug:4645341 OKC_K_HEADERS_B
where id = p_cplv_rec.chr_id;
select '!'
from
OKC_K_HEADERS_ALL_B -- Modified by jvorugan for Bug:4645341 OKC_K_HEADERS_B
,okc_subclass_roles
where
okc_k_headers_all_b.id = p_cplv_rec.chr_id
and okc_subclass_roles.scs_code = okc_k_headers_all_b.scs_code
and okc_subclass_roles.rle_code = p_cplv_rec.rle_code
and sysdate between okc_subclass_roles.start_date
and NVL(okc_subclass_roles.end_date,sysdate)
;
select '!'
from
okc_k_lines_b
,okc_line_style_roles
where
okc_k_lines_b.ID = p_cplv_rec.cle_id
and okc_line_style_roles.LSE_ID = okc_k_lines_b.LSE_ID
and okc_line_style_roles.SRE_ID in
(
select okc_subclass_roles.ID
from
OKC_K_HEADERS_ALL_B -- Modified by jvorugan for Bug:4645341 OKC_K_HEADERS_B
,okc_subclass_roles
where
okc_k_headers_all_b.id = p_cplv_rec.dnz_chr_id
and okc_subclass_roles.scs_code = okc_k_headers_all_b.scs_code
and okc_subclass_roles.rle_code = p_cplv_rec.rle_code
and sysdate between okc_subclass_roles.start_date
and NVL(okc_subclass_roles.end_date,sysdate)
)
;
SELECT 'x'
FROM OKC_SUBCLASSES_B SCS ,
OKC_K_HEADERS_B HDR
WHERE SCS.CODE = HDR.SCS_CODE
AND SCS.CLS_CODE = 'SERVICE'
AND HDR.ID = p_cplv_rec.chr_id ;
SELECT 'x'
FROM OKC_K_PARTY_ROLES_B PARTY
WHERE PARTY.DNZ_CHR_ID = p_cplv_rec.chr_id
AND PARTY.CLE_ID IS NULL
AND PARTY.RLE_CODE = p_cplv_rec.rle_code ;
select '!'
from
okc_role_sources RS
,OKC_K_HEADERS_ALL_B KH -- Modified by jvorugan for Bug:4645341 okc_k_headers_b KH
where
RS.rle_code = p_cplv_rec.rle_code
and RS.jtot_object_code = p_cplv_rec.jtot_object1_code
and sysdate >= RS.start_date
and (RS.end_date is NULL or RS.end_date>=sysdate)
and KH.ID = p_cplv_rec.DNZ_CHR_ID
and RS.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_cplv_rec.jtot_object1_code;
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_cplv_rec.object1_id1, p_cplv_rec.object1_id2;
select '!'
from okc_k_headers_all_b -- Modified by Jvorugan for Bug:4645341 okc_k_headers_b
where id = p_cplv_rec.dnz_chr_id;
SELECT '!'
FROM OKC_K_PARTY_ROLES_B
WHERE Id <> NVL(p_cplv_rec.id,-99999)
AND dnz_chr_id = p_cplv_rec.dnz_chr_id
AND cle_id IS NULL
AND primary_yn = 'Y';
select buy_or_sell
from okc_k_headers_all_b -- Modified by Jvorugan for Bug:4645341 okc_k_headers_b
where id = p_cplv_rec.dnz_chr_id;
select access_level
from okc_role_sources
where rle_code = p_cplv_rec.rle_code
and buy_or_sell = p_intent;
select id
from okc_k_party_roles_b
where chr_id = p_chr_id
and rle_code = p_rle_code
and jtot_object1_code = p_jtot_object1_code
and object1_id1 = p_object1_id1
and object1_id2 = p_object1_id2;
select id
from okc_k_party_roles_b
where cle_id = p_cle_id
and rle_code = p_rle_code
and jtot_object1_code = p_jtot_object1_code
and object1_id1 = p_object1_id1
and object1_id2 = p_object1_id2;
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;
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_cpl_rec IN cpl_rec_type,
x_cpl_rec OUT NOCOPY cpl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
SELECT application_id
INTO l_application_id
FROM OKC_K_HEADERS_ALL_B
WHERE id = x_cpl_rec.dnz_chr_id;
okc_debug.log('6300: Entered insert_row', 2);
INSERT INTO OKC_K_PARTY_ROLES_B(
id,
cpl_id,
chr_id,
cle_id,
dnz_chr_id,
rle_code,
object1_id1,
object1_id2,
JTOT_OBJECT1_CODE,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
code,
facility,
minority_group_lookup_code,
small_business_flag,
women_owned_flag,
last_update_login,
primary_yn,
cust_acct_id,
bill_to_site_use_id,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
-- R12 Data Model Changes 4485150 Start
orig_system_id1,
orig_system_reference1,
orig_system_source_code
-- R12 Data Model Changes 4485150 End
)
VALUES (
l_cpl_rec.id,
l_cpl_rec.cpl_id,
l_cpl_rec.chr_id,
l_cpl_rec.cle_id,
l_cpl_rec.dnz_chr_id,
l_cpl_rec.rle_code,
l_cpl_rec.object1_id1,
l_cpl_rec.object1_id2,
l_cpl_rec.JTOT_OBJECT1_CODE,
l_cpl_rec.object_version_number,
l_cpl_rec.created_by,
l_cpl_rec.creation_date,
l_cpl_rec.last_updated_by,
l_cpl_rec.last_update_date,
l_cpl_rec.code,
l_cpl_rec.facility,
l_cpl_rec.minority_group_lookup_code,
l_cpl_rec.small_business_flag,
l_cpl_rec.women_owned_flag,
l_cpl_rec.last_update_login,
l_cpl_rec.primary_yn,
l_cpl_rec.cust_acct_id,
l_cpl_rec.bill_to_site_use_id,
l_cpl_rec.attribute_category,
l_cpl_rec.attribute1,
l_cpl_rec.attribute2,
l_cpl_rec.attribute3,
l_cpl_rec.attribute4,
l_cpl_rec.attribute5,
l_cpl_rec.attribute6,
l_cpl_rec.attribute7,
l_cpl_rec.attribute8,
l_cpl_rec.attribute9,
l_cpl_rec.attribute10,
l_cpl_rec.attribute11,
l_cpl_rec.attribute12,
l_cpl_rec.attribute13,
l_cpl_rec.attribute14,
l_cpl_rec.attribute15,
-- R12 Data Model Changes 4485150 Start
l_cpl_rec.orig_system_id1,
l_cpl_rec.orig_system_reference1,
l_cpl_rec.orig_system_source_code
-- R12 Data Model Changes 4485150 End
);
okc_debug.log('6400: Leaving insert_row', 2);
okc_debug.log('6500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('6700: Exiting insert_row:OTHERS Exception', 2);
END insert_row;
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_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
SELECT *
FROM FND_LANGUAGES
WHERE INSTALLED_FLAG IN ('I', 'B');
okc_debug.log('6900: Entered insert_row', 2);
INSERT INTO OKC_K_PARTY_ROLES_TL(
id,
language,
source_lang,
sfwt_flag,
created_by,
creation_date,
last_updated_by,
last_update_date,
cognomen,
alias,
last_update_login)
VALUES (
l_okc_k_party_roles_tl_rec.id,
l_okc_k_party_roles_tl_rec.language,
l_okc_k_party_roles_tl_rec.source_lang,
l_okc_k_party_roles_tl_rec.sfwt_flag,
l_okc_k_party_roles_tl_rec.created_by,
l_okc_k_party_roles_tl_rec.creation_date,
l_okc_k_party_roles_tl_rec.last_updated_by,
l_okc_k_party_roles_tl_rec.last_update_date,
l_okc_k_party_roles_tl_rec.cognomen,
l_okc_k_party_roles_tl_rec.alias,
l_okc_k_party_roles_tl_rec.last_update_login);
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;
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_cplv_rec IN cplv_rec_type,
x_cplv_rec OUT NOCOPY cplv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_cplv_rec.LAST_UPDATE_DATE := l_cplv_rec.CREATION_DATE;
l_cplv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_cplv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
okc_debug.log('7600: Entered insert_row', 2);
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_cpl_rec,
lx_cpl_rec
);
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okc_k_party_roles_tl_rec,
lx_okc_k_party_roles_tl_rec
);
okc_debug.log('7700: Leaving insert_row', 2);
okc_debug.log('7800: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('7900: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('8000: 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_cplv_tbl IN cplv_tbl_type,
x_cplv_tbl OUT NOCOPY cplv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
okc_debug.log('8100: 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_cplv_rec => p_cplv_tbl(i),
x_cplv_rec => x_cplv_tbl(i));
okc_debug.log('8200: Leaving insert_row', 2);
okc_debug.log('8300: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('8400: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('8500: Exiting insert_row:OTHERS Exception', 2);
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_K_PARTY_ROLES_B
WHERE ID = p_cpl_rec.id
AND OBJECT_VERSION_NUMBER = p_cpl_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_K_PARTY_ROLES_B
WHERE ID = p_cpl_rec.id;
OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
SELECT *
FROM OKC_K_PARTY_ROLES_TL
WHERE ID = p_okc_k_party_roles_tl_rec.id
FOR UPDATE NOWAIT;
OKC_API.set_message(G_FND_APP,G_FORM_RECORD_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_cpl_rec IN cpl_rec_type,
x_cpl_rec OUT NOCOPY cpl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
IF (x_cpl_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_cpl_rec.last_updated_by := l_cpl_rec.last_updated_by;
IF (x_cpl_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_cpl_rec.last_update_date := l_cpl_rec.last_update_date;
IF (x_cpl_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_cpl_rec.last_update_login := l_cpl_rec.last_update_login;
okc_debug.log('11400: Entered update_row', 2);
UPDATE OKC_K_PARTY_ROLES_B
SET CPL_ID = l_def_cpl_rec.cpl_id,CHR_ID = l_def_cpl_rec.chr_id,
CLE_ID = l_def_cpl_rec.cle_id,
DNZ_CHR_ID = l_def_cpl_rec.dnz_chr_id,
RLE_CODE = l_def_cpl_rec.rle_code,
OBJECT1_ID1 = l_def_cpl_rec.object1_id1,
OBJECT1_ID2 = l_def_cpl_rec.object1_id2,
JTOT_OBJECT1_CODE = l_def_cpl_rec.JTOT_OBJECT1_CODE,
OBJECT_VERSION_NUMBER = l_def_cpl_rec.object_version_number,
CREATED_BY = l_def_cpl_rec.created_by,
CREATION_DATE = l_def_cpl_rec.creation_date,
LAST_UPDATED_BY = l_def_cpl_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_cpl_rec.last_update_date,
CODE = l_def_cpl_rec.code,
FACILITY = l_def_cpl_rec.facility,
MINORITY_GROUP_LOOKUP_CODE = l_def_cpl_rec.minority_group_lookup_code,
SMALL_BUSINESS_FLAG = l_def_cpl_rec.small_business_flag,
WOMEN_OWNED_FLAG = l_def_cpl_rec.women_owned_flag,
LAST_UPDATE_LOGIN = l_def_cpl_rec.last_update_login,
PRIMARY_YN = l_def_cpl_rec.primary_yn,
CUST_ACCT_ID = l_def_cpl_rec.cust_acct_id,
BILL_TO_SITE_USE_ID = l_def_cpl_rec.bill_to_site_use_id,
ATTRIBUTE_CATEGORY = l_def_cpl_rec.attribute_category,
ATTRIBUTE1 = l_def_cpl_rec.attribute1,
ATTRIBUTE2 = l_def_cpl_rec.attribute2,
ATTRIBUTE3 = l_def_cpl_rec.attribute3,
ATTRIBUTE4 = l_def_cpl_rec.attribute4,
ATTRIBUTE5 = l_def_cpl_rec.attribute5,
ATTRIBUTE6 = l_def_cpl_rec.attribute6,
ATTRIBUTE7 = l_def_cpl_rec.attribute7,
ATTRIBUTE8 = l_def_cpl_rec.attribute8,
ATTRIBUTE9 = l_def_cpl_rec.attribute9,
ATTRIBUTE10 = l_def_cpl_rec.attribute10,
ATTRIBUTE11 = l_def_cpl_rec.attribute11,
ATTRIBUTE12 = l_def_cpl_rec.attribute12,
ATTRIBUTE13 = l_def_cpl_rec.attribute13,
ATTRIBUTE14 = l_def_cpl_rec.attribute14,
ATTRIBUTE15 = l_def_cpl_rec.attribute15,
-- R12 Data Model Changes 4485150 Start
ORIG_SYSTEM_ID1 = l_def_cpl_rec.orig_system_id1,
ORIG_SYSTEM_REFERENCE1 = l_def_cpl_rec.orig_system_reference1,
ORIG_SYSTEM_SOURCE_CODE = l_def_cpl_rec.orig_system_source_code
-- R12 Data Model Changes 4485150 End
WHERE ID = l_def_cpl_rec.id;
okc_debug.log('11500: Leaving update_row', 2);
okc_debug.log('11600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('11700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('11800: Exiting update_row:OTHERS Exception', 2);
END update_row;
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_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type,
x_okc_k_party_roles_tl_rec OUT NOCOPY okc_k_party_roles_tl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
IF (x_okc_k_party_roles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_okc_k_party_roles_tl_rec.last_updated_by := l_okc_k_party_roles_tl_rec.last_updated_by;
IF (x_okc_k_party_roles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_okc_k_party_roles_tl_rec.last_update_date := l_okc_k_party_roles_tl_rec.last_update_date;
IF (x_okc_k_party_roles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_okc_k_party_roles_tl_rec.last_update_login := l_okc_k_party_roles_tl_rec.last_update_login;
okc_debug.log('12100: Entered update_row', 2);
UPDATE OKC_K_PARTY_ROLES_TL
SET CREATED_BY = ldefokckpartyrolestlrec.created_by,
CREATION_DATE = ldefokckpartyrolestlrec.creation_date,
LAST_UPDATED_BY = ldefokckpartyrolestlrec.last_updated_by,
LAST_UPDATE_DATE = ldefokckpartyrolestlrec.last_update_date,
COGNOMEN = ldefokckpartyrolestlrec.cognomen,
ALIAS = ldefokckpartyrolestlrec.alias,
LAST_UPDATE_LOGIN = ldefokckpartyrolestlrec.last_update_login
--+
,SOURCE_LANG = ldefokckpartyrolestlrec.SOURCE_LANG
--+
WHERE ID = ldefokckpartyrolestlrec.id
--- AND SOURCE_LANG = USERENV('LANG');
UPDATE OKC_K_PARTY_ROLES_TL
SET SFWT_FLAG = 'Y'
WHERE ID = ldefokckpartyrolestlrec.id
AND SOURCE_LANG <> USERENV('LANG');
okc_debug.log('12200: Leaving update_row', 2);
okc_debug.log('12300: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('12400: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('12500: 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_cplv_rec IN cplv_rec_type,
x_cplv_rec OUT NOCOPY cplv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_cplv_rec.LAST_UPDATE_DATE := SYSDATE;
l_cplv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_cplv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF (x_cplv_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_cplv_rec.last_updated_by := l_cplv_rec.last_updated_by;
IF (x_cplv_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_cplv_rec.last_update_date := l_cplv_rec.last_update_date;
IF (x_cplv_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_cplv_rec.last_update_login := l_cplv_rec.last_update_login;
okc_debug.log('12900: Entered update_row', 2);
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okc_k_party_roles_tl_rec,
lx_okc_k_party_roles_tl_rec
);
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_cpl_rec,
lx_cpl_rec
);
okc_debug.log('13000: Leaving update_row', 2);
okc_debug.log('13100: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('13200: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('13300: 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_cplv_tbl IN cplv_tbl_type,
x_cplv_tbl OUT NOCOPY cplv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
okc_debug.log('13400: 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_cplv_rec => p_cplv_tbl(i),
x_cplv_rec => x_cplv_tbl(i));
okc_debug.log('13500: Leaving update_row', 2);
okc_debug.log('13600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('13700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('13800: 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_cpl_rec IN cpl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
okc_debug.log('13900: Entered delete_row', 2);
DELETE FROM OKC_K_PARTY_ROLES_B
WHERE ID = l_cpl_rec.id;
okc_debug.log('14000: Leaving delete_row', 2);
okc_debug.log('14100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('14200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('14300: Exiting delete_row:OTHERS Exception', 2);
END delete_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_okc_k_party_roles_tl_rec IN okc_k_party_roles_tl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
okc_debug.log('14500: Entered delete_row', 2);
DELETE FROM OKC_K_PARTY_ROLES_TL
WHERE ID = l_okc_k_party_roles_tl_rec.id;
okc_debug.log('14600: Leaving delete_row', 2);
okc_debug.log('14700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('14800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('14900: 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_cplv_rec IN cplv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
okc_debug.log('15000: Entered delete_row', 2);
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okc_k_party_roles_tl_rec
);
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_cpl_rec
);
okc_debug.log('15100: Leaving delete_row', 2);
okc_debug.log('15200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('15300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('15400: 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_cplv_tbl IN cplv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
okc_debug.log('15500: 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_cplv_rec => p_cplv_tbl(i));
okc_debug.log('15600: Leaving delete_row', 2);
okc_debug.log('15700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('15800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('15900: Exiting delete_row:OTHERS Exception', 2);
END delete_row;
PROCEDURE INSERT_ROW_UPG(x_return_status OUT NOCOPY VARCHAR2,p_cplv_tbl cplv_tbl_type) IS
l_tabsize NUMBER := p_cplv_tbl.COUNT;
in_last_updated_by OKC_DATATYPES.NumberTabTyp;
in_last_update_date OKC_DATATYPES.DateTabTyp;
in_last_update_login OKC_DATATYPES.NumberTabTyp;
okc_debug.log('16000: Entered INSERT_ROW_UPG', 2);
in_last_updated_by (j) := p_cplv_tbl(i).last_updated_by;
in_last_update_date (j) := p_cplv_tbl(i).last_update_date;
in_last_update_login (j) := p_cplv_tbl(i).last_update_login;
INSERT
INTO OKC_K_PARTY_ROLES_B
(
id,
cpl_id,
chr_id,
cle_id,
dnz_chr_id,
rle_code,
object1_id1,
object1_id2,
jtot_object1_code,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
code,
facility,
minority_group_lookup_code,
small_business_flag,
women_owned_flag,
last_update_login,
primary_yn,
cust_acct_id,
bill_to_site_use_id,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15
-- REMOVE comma from the previous line
)
VALUES (
in_id(i),
in_cpl_id(i),
in_chr_id(i),
in_cle_id(i),
in_dnz_chr_id(i),
in_rle_code(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_code(i),
in_facility(i),
in_minority_group_lookup_code(i),
in_small_business_flag(i),
in_women_owned_flag(i),
in_last_update_login(i),
in_primary_yn(i),
in_cust_acct_id(i),
in_bill_to_site_use_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)
-- REMOVE comma from the previous line
);
INSERT INTO OKC_K_PARTY_ROLES_TL(
id,
language,
source_lang,
sfwt_flag,
created_by,
creation_date,
last_updated_by,
last_update_date,
cognomen,
alias,
last_update_login
-- REMOVE comma from the previous line
)
VALUES (
in_id(i),
OKC_UTIL.g_language_code(lang_i),
l_source_lang,
in_sfwt_flag(i),
in_created_by(i),
in_creation_date(i),
in_last_updated_by(i),
in_last_update_date(i),
in_cognomen(i),
in_alias(i),
in_last_update_login(i)
-- REMOVE comma from the previous line
);
okc_debug.log('16100: Leaving INSERT_ROW_UPG', 2);
okc_debug.log('16200: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
END INSERT_ROW_UPG;
INSERT INTO okc_k_party_roles_bh
(
major_version,
id,
chr_id,
cle_id,
dnz_chr_id,
rle_code,
object1_id1,
object1_id2,
jtot_object1_code,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
code,
facility,
minority_group_lookup_code,
small_business_flag,
women_owned_flag,
last_update_login,
primary_yn,
cust_acct_id,
bill_to_site_use_id,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
cpl_id --,
-- R12 Data Model Changes 4485150 Start
-- orig_system_id1,
-- orig_system_reference1,
-- orig_system_source_code
-- R12 Data Model Changes 4485150 End
)
SELECT
p_major_version,
id,
chr_id,
cle_id,
dnz_chr_id,
rle_code,
object1_id1,
object1_id2,
jtot_object1_code,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
code,
facility,
minority_group_lookup_code,
small_business_flag,
women_owned_flag,
last_update_login,
primary_yn,
cust_acct_id,
bill_to_site_use_id,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
cpl_id --,
-- R12 Data Model Changes 4485150 Start
-- orig_system_id1,
-- orig_system_reference1,
-- orig_system_source_code
-- R12 Data Model Changes 4485150 End
FROM okc_k_party_roles_b
WHERE dnz_chr_id = p_chr_id;
INSERT INTO okc_k_party_roles_tlh
(
major_version,
id,
language,
source_lang,
sfwt_flag,
created_by,
creation_date,
last_updated_by,
last_update_date,
cognomen,
alias,
last_update_login
)
SELECT
p_major_version,
id,
language,
source_lang,
sfwt_flag,
created_by,
creation_date,
last_updated_by,
last_update_date,
cognomen,
alias,
last_update_login
FROM okc_k_party_roles_tl
WHERE id in (select id
from okc_k_party_roles_b
where dnz_chr_id = p_chr_id);
INSERT INTO okc_k_party_roles_tl
(
id,
language,
source_lang,
sfwt_flag,
created_by,
creation_date,
last_updated_by,
last_update_date,
cognomen,
alias,
last_update_login
)
SELECT
id,
language,
source_lang,
sfwt_flag,
created_by,
creation_date,
last_updated_by,
last_update_date,
cognomen,
alias,
last_update_login
FROM okc_k_party_roles_tlh
WHERE id in (SELECT id
FROM okc_k_party_roles_bh
WHERE dnz_chr_id = p_chr_id)
AND major_version = p_major_version;
INSERT INTO okc_k_party_roles_b
(
id,
chr_id,
cle_id,
dnz_chr_id,
rle_code,
object1_id1,
object1_id2,
jtot_object1_code,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
code,
facility,
minority_group_lookup_code,
small_business_flag,
women_owned_flag,
last_update_login,
primary_yn,
cust_acct_id,
bill_to_site_use_id,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
cpl_id --,
-- R12 Data Model Changes 4485150 Start
/* orig_system_id1,
orig_system_reference1,
orig_system_source_code */
-- R12 Data Model Changes 4485150 End
)
SELECT
id,
chr_id,
cle_id,
dnz_chr_id,
rle_code,
object1_id1,
object1_id2,
jtot_object1_code,
object_version_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
code,
facility,
minority_group_lookup_code,
small_business_flag,
women_owned_flag,
last_update_login,
primary_yn,
cust_acct_id,
bill_to_site_use_id,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
cpl_id --,
-- R12 Data Model Changes 4485150 Start
/* orig_system_id1,
orig_system_reference1,
orig_system_source_code */
-- R12 Data Model Changes 4485150 End
FROM okc_k_party_roles_bh
WHERE dnz_chr_id = p_chr_id
AND major_version = p_major_version;