The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT DISTINCT JTOT_OBJECT1_CODE JTOT_OBJECT1_CODE
FROM OKC_K_PARTY_ROLES_B V
, okc_k_lines_b okl
WHERE V.DNZ_CHR_ID = p_cplv_rec.dnz_chr_id AND V.CHR_ID IS NOT NULL
AND okl.id= p_cplv_rec.cle_id
AND EXISTS (
SELECT NULL
FROM OKC_SUBCLASS_ROLES SRE
, OKC_LINE_STYLE_ROLES LSR
WHERE LSR.LSE_ID = okl.lse_id
AND SRE.ID = LSR.SRE_ID
AND SRE.SCS_CODE = 'PROJECT'
AND SRE.RLE_CODE = V.RLE_CODE
AND SYSDATE BETWEEN SRE.START_DATE
AND NVL(SRE.END_DATE , SYSDATE)
)
AND RLE_CODE=p_cplv_rec.RLE_CODE ;
SELECT BUY_OR_SELL,scs_code FROM
okc_k_headers_all_b
WHERE id= p_cplv_rec.dnz_chr_id ;
SELECT JTOT_OBJECT_CODE
FROM OKC_ROLE_SOURCES RSC
, OKC_SUBCLASS_ROLES SRE
WHERE
RSC.RLE_CODE = p_cplv_rec.rle_code
AND SRE.RLE_CODE = RSC.RLE_CODE
AND SRE.SCS_CODE = p_scs_code
AND RSC.BUY_OR_SELL = p_buy_sell
AND SYSDATE BETWEEN RSC.START_DATE
AND NVL(RSC.END_DATE , SYSDATE)
AND SYSDATE BETWEEN SRE.START_DATE
AND NVL(SRE.END_DATE , SYSDATE)
AND NOT (RSC.RLE_CODE IN ( 'SHIP_TO', 'BILL_TO', 'MARK_FOR')
AND p_buy_sell = 'S'
AND NOT EXISTS (select 'x' from okc_k_party_roles_b
where chr_id = p_cplv_rec.dnz_chr_id and rle_code = 'K_CUSTOMER'
and object1_id1 is not null and jtot_object1_code = 'OKE_CUSTACCT'))
AND NOT (RSC.RLE_CODE = 'SHIP_FROM'
AND p_buy_sell = 'B'
AND NOT EXISTS (select 'x' from okc_k_party_roles_b
where chr_id = p_cplv_rec.dnz_chr_id and rle_code = 'CONTRACTOR'
and object1_id1 is not null and jtot_object1_code = 'OKX_VENDOR')) ;
' CUST_ACCOUNT_ID IN (SELECT OBJECT1_ID1 FROM OKC_K_PARTY_ROLES_B'
||' WHERE CHR_ID = '||p_cplv_rec.dnz_chr_id||' '
||' AND JTOT_OBJECT1_CODE = ''OKE_CUSTACCT'' AND RLE_CODE =''K_CUSTOMER'') AND '||
'STATUS = ''A'' ' );
' Cust_account_id IN ( SELECT cust_account_id FROM hz_cust_acct_relate '||
' WHERE related_cust_account_id in (SELECT OBJECT1_ID1 FROM OKC_K_PARTY_ROLES_B WHERE CHR_ID = '||p_cplv_rec.dnz_chr_id||''||
' AND JTOT_OBJECT1_CODE = ''OKE_CUSTACCT'' AND RLE_CODE =''K_CUSTOMER'')'||
' AND bill_to_flag = ''Y'' AND status = ''A'' UNION ' ||
' SELECT cust_acct.cust_account_id FROM hz_parties party, hz_cust_accounts cust_acct '||
' WHERE party.party_id = cust_acct.party_id ' ||
' and cust_acct.cust_account_id in (SELECT OBJECT1_ID1 FROM OKC_K_PARTY_ROLES_B WHERE CHR_ID ='||p_cplv_rec.dnz_chr_id||''||
' AND JTOT_OBJECT1_CODE = ''OKE_CUSTACCT'' AND RLE_CODE =''K_CUSTOMER'' ) ) AND ' ||
'STATUS = ''A'' ');
' Cust_account_id IN ( SELECT cust_account_id FROM hz_cust_acct_relate '||
' WHERE related_cust_account_id in (SELECT OBJECT1_ID1 FROM OKC_K_PARTY_ROLES_B WHERE CHR_ID ='||p_cplv_rec.dnz_chr_id||''||
' AND JTOT_OBJECT1_CODE = ''OKE_CUSTACCT'' AND RLE_CODE =''K_CUSTOMER'')'||
' AND ship_to_flag = ''Y'' AND status = ''A'' UNION ' ||
' SELECT cust_acct.cust_account_id FROM hz_parties party, hz_cust_accounts cust_acct '||
' WHERE party.party_id = cust_acct.party_id ' ||
' and cust_acct.cust_account_id in (SELECT OBJECT1_ID1 FROM OKC_K_PARTY_ROLES_B WHERE CHR_ID ='||p_cplv_rec.dnz_chr_id||''||
' AND JTOT_OBJECT1_CODE = ''OKE_CUSTACCT'' AND RLE_CODE =''K_CUSTOMER'' ) ) AND ' ||
'STATUS = ''A'' ' );
l_sql_stmt := ADD_WHERE_TO_SQL( l_sql_stmt, ' VENDOR_ID IN (SELECT OBJECT1_ID1 FROM OKC_K_PARTY_ROLES_B WHERE CHR_ID ='||p_cplv_rec.dnz_chr_id||' '
|| ' AND JTOT_OBJECT1_CODE = ''OKX_VENDOR'' AND RLE_CODE =''CONTRACTOR'')'
|| ' AND STATUS = ''A''');
l_sql_stmt := ADD_WHERE_TO_SQL( l_sql_stmt, ' ID1 in (select object1_id1 from okc_k_party_roles_v'
|| ' where RLE_CODE= '||''''||p_cplv_rec.RLE_CODE||''''|| ' AND chr_id = '||p_cplv_rec.dnz_chr_id||')');
l_sql_stmt := 'SELECT ''x'' FROM ' || l_sql_stmt ;
p_cplv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
p_cplv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
p_cplv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
SELECT object_version_number FROM okc_k_party_roles_B
WHERE id=p_cplv_rec.id;
If (operation = 'INSERT') Then
l_cplv_tbl_in(1).DNZ_CHR_ID := p_cplv_rec.dnz_chr_id;
l_cplv_tbl_in(1).LAST_UPDATED_BY := p_cplv_rec.LAST_UPDATED_BY;
l_cplv_tbl_in(1).LAST_UPDATE_DATE := p_cplv_rec.LAST_UPDATE_DATE;
l_cplv_tbl_in(1).LAST_UPDATE_LOGIN := p_cplv_rec.LAST_UPDATE_LOGIN;*/
SET_RECORD(operation => 'INSERT',
p_cplv_rec => p_cplv_rec,
p_jtot_object1_code => l_JTOT_OBJECT1_CODE ,
p_cplv_tbl_in => l_cplv_tbl_in
);
okc_cvm_pvt.defer_minor_version_update('T');
okc_cvm_pvt.defer_minor_version_update('F');
procedure update_k_party_role(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,
p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE)
is
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_PARTY_ROLE';
update_k_party_role(p_api_version=>p_api_version,
p_init_msg_list=>OKC_API.G_FALSE,
x_return_status=>l_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),
p_skip_minor_vers=>p_skip_minor_vers);
END UPDATE_K_PARTY_ROLE;
procedure update_k_party_role(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,
p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE)
is
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_PARTY_ROLE';
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 (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;
SET_RECORD(operation => 'UPDATE',
p_cplv_rec => l_cplv_rec,
p_jtot_object1_code => l_JTOT_OBJECT1_CODE ,
p_cplv_tbl_in => l_cplv_tbl_in
);
okc_cvm_pvt.defer_minor_version_update('T');
OKC_CONTRACT_PARTY_PUB.UPDATE_K_PARTY_ROLE (
p_api_version => p_api_version,
p_init_msg_list => g_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cplv_tbl => l_cplv_tbl_in,
x_cplv_tbl => l_cplv_tbl_out
);
okc_cvm_pvt.defer_minor_version_update('F');
END UPDATE_K_PARTY_ROLE ;
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;
SELECT rle_code,jtot_object1_code,object1_id1,object1_id2
FROM okc_k_party_roles_b
WHERE id= p_ctcv_rec.cpl_id ;
SELECT buy_or_sell FROM
okc_k_headers_all_b WHERE
id= p_ctcv_rec.dnz_chr_id;
select jtot_object_code ,CONSTRAINED_YN
from okc_contact_sources_v b
where b.cro_code =p_ctcv_rec.cro_code
and b.rle_code = p_rle_code
and b.buy_or_sell = p_BUY_OR_SELL ;
l_sql_stmt := 'SELECT ''x'' FROM ' || l_sql_stmt ;
p_ctcv_tbl(1).LAST_UPDATED_BY := OKE_API.g_miss_num;
p_ctcv_tbl(1).LAST_UPDATE_DATE := OKE_API.g_miss_date;
p_ctcv_tbl(1).LAST_UPDATE_LOGIN := OKE_API.g_miss_num;
SELECT object_version_number FROM okc_contacts WHERE id = p_ctcv_rec.ID;
If (operation = 'INSERT') Then
l_ctcv_tbl_in(1).CPL_ID := p_ctcv_rec.CPL_ID;
l_ctcv_tbl_in(1).LAST_UPDATED_BY := name_in('CONTACT.LAST_UPDATED_BY');
l_ctcv_tbl_in(1).LAST_UPDATE_DATE := APP_DATE.FIELD_TO_DATE('CONTACT.LAST_UPDATE_DATE');
l_ctcv_tbl_in(1).LAST_UPDATE_LOGIN := name_in('CONTACT.LAST_UPDATE_LOGIN');*/
SET_RECORD_contact(operation => 'INSERT',
p_ctcv_rec => p_ctcv_rec,
p_jtot_object1_code => l_JTOT_OBJECT1_CODE ,
l_ctcv_tbl_in => l_ctcv_tbl_in
);
okc_cvm_pvt.defer_minor_version_update('T');
okc_cvm_pvt.defer_minor_version_update('F');
procedure update_k_contact(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,
p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE)
is
l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_CONTACT';
update_k_contact(p_api_version=>p_api_version,
p_init_msg_list=>OKC_API.G_FALSE,
x_return_status=>l_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),
p_skip_minor_vers=>p_skip_minor_vers);
END UPDATE_K_CONTACT ;
procedure update_k_contact(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,
p_skip_minor_vers IN VARCHAR2 DEFAULT OKE_API.G_FALSE) is
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_CONTACT';
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 (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;
SET_RECORD_contact(operation => 'UPDATE',
p_ctcv_rec => l_ctcv_rec,
p_jtot_object1_code => l_JTOT_OBJECT1_CODE ,
l_ctcv_tbl_in => l_ctcv_tbl_in
);
okc_cvm_pvt.defer_minor_version_update('T');
OKC_CONTRACT_PARTY_PUB.UPDATE_contact (
p_api_version => p_api_version,
p_init_msg_list => g_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ctcv_tbl => l_ctcv_tbl_in,
x_ctcv_tbl => l_ctcv_tbl_out
);
okc_cvm_pvt.defer_minor_version_update('F');
END UPDATE_K_CONTACT ;