The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure Update_Hdr_Amount
(
p_api_version IN Number,
p_init_msg_list IN Varchar2,
p_chr_id IN Number,
x_return_status OUT NOCOPY Varchar2,
x_msg_count OUT NOCOPY Number,
x_msg_data OUT NOCOPY Varchar2
)
IS
l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Hdr_Amount';
Cursor l_line_csr Is Select Sum(Nvl(PRICE_NEGOTIATED,0))
From OKC_K_LINES_B
Where dnz_chr_id = p_chr_id And
lse_id in (7,8,9,10,11,35,25);
okc_contract_pub.update_contract_header
(
p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_chrv_tbl => l_chrv_tbl_in,
x_chrv_tbl => l_chrv_tbl_out
);
END Update_Hdr_Amount;
l_p_tavv_tbl(1).last_updated_by := NULL;
l_p_tavv_tbl(1).last_update_date := NULL;
l_p_tavv_tbl(1).last_update_login := NULL;
SELECT fu.user_id
FROM jtf_rs_resource_extns jrd,
fnd_user fu
WHERE jrd.resource_id=p_resource_id
AND fu.user_id = jrd.user_id;
CURSOR l_party_name_csr Is select party_Name from hz_parties where party_id = p_party_id;
select object1_id1
from okc_k_party_roles_b
where dnz_chr_id = p_contract_id
and cle_id is null
and RLE_CODE = 'CUSTOMER';
SELECT salesrep_id
From jtf_rs_salesreps
Where resource_id = p_resource_id and org_id = p_org_id;
select resource_name from jtf_rs_resource_extns_tl
where resource_id = p_resource_id
and language = userenv('LANG');
select party_Name from hz_parties
where party_id = p_party_id;
SELECT object1_id1, cro_code, id
FROM OKC_CONTACTS
WHERE CRO_CODE = p_cro_code
AND dnz_chr_id = p_contract_header_id;
select id from okc_k_party_roles_b
where dnz_chr_id = p_contract_header_id
and cle_id is null
and RLE_CODE = 'VENDOR';
DELETE_CONTACT (
x_return_status => l_return_status,
p_contact_id => C_GET_CONTACT.id
);
PROCEDURE DELETE_CONTACT (
x_return_status OUT NOCOPY VARCHAR2,
p_contact_id IN NUMBER
) IS
-- Contact Details
cursor contact_det is
select a.dnz_chr_id,a.object1_id1, a.object1_id2, a.jtot_object1_code
from okc_contacts a
where a.id = p_contact_id;
select id
from okc_rule_groups_b
where dnz_chr_id = p_chr_id
and cle_id is null;
okc_contract_party_pub.delete_contact (
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_ctcv_tbl => l_ctcv_tbl_in
);
LOG_MESSAGES('okc_contract_party_pub.delete_contact l_msg_data = ' || l_msg_data);
LOG_MESSAGES('okc_contract_party_pub.delete_contact l_msg_data = ' || l_msg_data);
END DELETE_CONTACT;
l_ctcv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
l_ctcv_tbl_in(1).last_update_date := SYSDATE;
l_ctcv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
LOG_MESSAGES('okc_contract_party_pub.delete_contact l_msg_data = ' || l_msg_data);
LOG_MESSAGES('okc_contract_party_pub.delete_contact l_msg_data = ' || l_msg_data);
SELECT user_name
FROM fnd_user
WHERE user_id = p_user_id ;
cursor l_fnd_csr is select user_name from fnd_user where user_id = p_notify_id;
SELECT code
FROM okc_statuses_b
WHERE ste_code = p_ste_code
AND default_yn = 'Y';
SELECT ste_code
FROM okc_statuses_b
WHERE code = p_sts_code;
SELECT a.salesrep_id
From jtf_rs_salesreps a,
okc_k_headers_b b
Where b.id = p_chr_id
and a.resource_id = p_resource_id
and a.org_id = b.authoring_org_id;
SELECT /*+ PARALLEL(hdr) */ hdr.id,hdr.contract_number
,hdr.contract_number_modifier
,hdr.authoring_org_id,hdr.inv_organization_id, party1.object1_id1
,Party2.id,hz.party_name, hzl.country, hzl.state
,cont.id,cont.object1_id1,cont.start_date,hdr.sts_code
FROM OKC_K_HEADERS_B hdr,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hz_party_sites hzs,
hz_locations hzl
WHERE hdr.id = p_contract_hdr_id
AND hdr.authoring_org_id=nvl(p_org_id,hdr.authoring_org_id)
AND hdr.sts_code = p_status_code
AND hdr.scs_code IN ('SERVICE','WARRANTY','SUBSCRIPTION')
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.id
AND party1.cle_id is null
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND hz.party_id = party1.object1_id1
AND hzs.party_id = hz.party_id
AND hzs.identifying_address_flag ='Y'
AND hzl.location_id = hzs.location_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id is null
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id (+) = party2.id
AND cont.object1_id1(+) = p_salesrep_id
AND cont.cro_code(+) = p_cro_code
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE));
SELECT /*+ PARALLEL(hdr) */ hdr.id,hdr.contract_number
,hdr.contract_number_modifier
,hdr.authoring_org_id,hdr.inv_organization_id, party1.object1_id1
,Party2.id,hz.party_name, hzl.country, hzl.state
,cont.id,cont.object1_id1,cont.start_date,hdr.sts_code
FROM OKC_K_HEADERS_B hdr,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hz_party_sites hzs,
hz_locations hzl
WHERE hdr.id = p_contract_hdr_id
AND hdr.authoring_org_id=nvl(p_org_id,hdr.authoring_org_id)
AND hdr.sts_code = p_status_code
AND hdr.scs_code IN ('SERVICE','WARRANTY','SUBSCRIPTION')
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.id
AND party1.cle_id is null
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND hz.party_id = party1.object1_id1
AND hzs.party_id = hz.party_id
AND hzs.identifying_address_flag ='Y'
AND hzl.location_id = hzs.location_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id is null
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id (+) = party2.id
AND cont.cro_code(+) = p_cro_code
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE));
SELECT /*+ PARALLEL(hdr) */ hdr.id,hdr.contract_number
,hdr.contract_number_modifier
,hdr.authoring_org_id,hdr.inv_organization_id, party1.object1_id1
,Party2.id,hz.party_name, hzl.country, hzl.state
,cont.id,cont.object1_id1,cont.start_date,hdr.sts_code
FROM OKC_K_HEADERS_B hdr,
okc_statuses_b stat,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hz_party_sites hzs,
hz_locations hzl
WHERE hdr.id = p_contract_hdr_id
AND hdr.authoring_org_id=nvl(p_org_id,hdr.authoring_org_id)
AND stat.STE_CODE IN ('ENTERED','ACTIVE','SIGNED','HOLD')
AND hdr.sts_code = stat.CODE
AND hdr.scs_code IN ('SERVICE','WARRANTY','SUBSCRIPTION')
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.id
AND party1.cle_id is null
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND hz.party_id = party1.object1_id1
AND hzs.party_id = hz.party_id
AND hzs.identifying_address_flag ='Y'
AND hzl.location_id = hzs.location_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id is null
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id (+) = party2.id
AND cont.object1_id1(+) = p_salesrep_id
AND cont.cro_code(+) = p_cro_code
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE));
SELECT /*+ PARALLEL(hdr) */ hdr.id,hdr.contract_number
,hdr.contract_number_modifier
,hdr.authoring_org_id,hdr.inv_organization_id, party1.object1_id1
,Party2.id,hz.party_name, hzl.country, hzl.state
,cont.id,cont.object1_id1,cont.start_date,hdr.sts_code
FROM OKC_K_HEADERS_B hdr,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hz_party_sites hzs,
hz_locations hzl
WHERE hdr.authoring_org_id=nvl(p_org_id,hdr.authoring_org_id)
AND hdr.sts_code = p_status_code
AND hdr.scs_code IN ('SERVICE','WARRANTY','SUBSCRIPTION')
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.id
AND party1.cle_id is null
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND hz.party_id = party1.object1_id1
AND hzs.party_id = hz.party_id
AND hzs.identifying_address_flag ='Y'
AND hzl.location_id = hzs.location_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id is null
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id (+) = party2.id
AND cont.object1_id1(+) = p_salesrep_id
AND cont.cro_code(+) = p_cro_code
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE));
SELECT /*+ PARALLEL(hdr) */ hdr.id,hdr.contract_number
,hdr.contract_number_modifier
,hdr.authoring_org_id,hdr.inv_organization_id, party1.object1_id1
,Party2.id,hz.party_name, hzl.country, hzl.state
,cont.id,cont.object1_id1,cont.start_date,hdr.sts_code
FROM OKC_K_HEADERS_B hdr,
okc_statuses_b stat,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hz_party_sites hzs,
hz_locations hzl
WHERE hdr.id = p_contract_hdr_id
AND hdr.authoring_org_id=nvl(p_org_id,hdr.authoring_org_id)
AND stat.STE_CODE IN ('ENTERED','ACTIVE','SIGNED','HOLD')
AND hdr.sts_code = stat.CODE
AND hdr.scs_code IN ('SERVICE','WARRANTY','SUBSCRIPTION')
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.id
AND party1.cle_id is null
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND hz.party_id = party1.object1_id1
AND hzs.party_id = hz.party_id
AND hzs.identifying_address_flag ='Y'
AND hzl.location_id = hzs.location_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id is null
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id (+) = party2.id
AND cont.cro_code(+) = p_cro_code
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE)) ;
SELECT /*+ PARALLEL(hdr) */ hdr.id,hdr.contract_number
,hdr.contract_number_modifier
,hdr.authoring_org_id,hdr.inv_organization_id, party1.object1_id1
,Party2.id,hz.party_name, hzl.country, hzl.state
,cont.id,cont.object1_id1,cont.start_date,hdr.sts_code
FROM OKC_K_HEADERS_B hdr,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hz_party_sites hzs,
hz_locations hzl
WHERE hdr.authoring_org_id=nvl(p_org_id,hdr.authoring_org_id)
AND hdr.sts_code = p_status_code
AND hdr.scs_code IN ('SERVICE','WARRANTY','SUBSCRIPTION')
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.id
AND party1.cle_id is null
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND hz.party_id = party1.object1_id1
AND hzs.party_id = hz.party_id
AND hzs.identifying_address_flag ='Y'
AND hzl.location_id = hzs.location_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id is null
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id (+) = party2.id
AND cont.cro_code(+) = p_cro_code
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE));
SELECT /*+ PARALLEL(hdr) */ hdr.id,hdr.contract_number
,hdr.contract_number_modifier
,hdr.authoring_org_id,hdr.inv_organization_id, party1.object1_id1
,Party2.id,hz.party_name, hzl.country, hzl.state
,cont.id,cont.object1_id1,cont.start_date,hdr.sts_code
FROM OKC_K_HEADERS_B hdr,
okc_statuses_b stat,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hz_party_sites hzs,
hz_locations hzl
WHERE hdr.authoring_org_id=nvl(p_org_id,hdr.authoring_org_id)
AND stat.STE_CODE IN ('ENTERED','ACTIVE','SIGNED','HOLD')
AND hdr.sts_code = stat.CODE
AND hdr.scs_code IN ('SERVICE','WARRANTY','SUBSCRIPTION')
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.id
AND party1.cle_id is null
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND hz.party_id = party1.object1_id1
AND hzs.party_id = hz.party_id
AND hzs.identifying_address_flag ='Y'
AND hzl.location_id = hzs.location_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id is null
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id = party2.id
AND cont.object1_id1 = p_salesrep_id
AND cont.end_date is null
AND cont.cro_code = p_cro_code
AND (TRUNC(NVL(cont.end_date,SYSDATE)) >= TRUNC(SYSDATE));
SELECT /*+ PARALLEL(hdr) */ hdr.id,hdr.contract_number
,hdr.contract_number_modifier
,hdr.authoring_org_id,hdr.inv_organization_id, party1.object1_id1
,Party2.id,hz.party_name, hzl.country, hzl.state
,cont.id,cont.object1_id1,cont.start_date,hdr.sts_code
FROM OKC_K_HEADERS_B hdr,
okc_statuses_b stat,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hz_party_sites hzs,
hz_locations hzl
WHERE hdr.authoring_org_id=nvl(p_org_id,hdr.authoring_org_id)
AND stat.STE_CODE IN ('ENTERED','ACTIVE','SIGNED','HOLD')
AND hdr.sts_code = stat.CODE
AND hdr.scs_code IN ('SERVICE','WARRANTY','SUBSCRIPTION')
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.id
AND party1.cle_id is null
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND hz.party_id = party1.object1_id1
AND hzs.party_id = hz.party_id
AND hzs.identifying_address_flag ='Y'
AND hzl.location_id = hzs.location_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id is null
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id (+) = party2.id
AND cont.cro_code(+)= p_cro_code
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE));
SELECT /*+ PARALLEL(HDR) */
hdr.ID,
hdr.contract_number,
hdr.contract_number_modifier,
hdr.authoring_org_id,
hdr.inv_organization_id,
party1.object1_id1,
party2.ID,
hz.party_name,
c.country,
c.region_2 state,
cont.ID,
cont.object1_id1,
cont.start_date,
hdr.sts_code
FROM okc_k_headers_b hdr,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hr_all_organization_units b,
hr_locations_all c
WHERE hdr.id = p_contract_hdr_id
AND hdr.authoring_org_id = NVL( p_org_id, hdr.authoring_org_id )
AND hdr.sts_code = p_status_code
AND hdr.scs_code IN( 'SERVICE', 'WARRANTY', 'SUBSCRIPTION' )
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.ID
AND party1.cle_id IS NULL
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND party1.object1_id1 = hz.party_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id IS NULL
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id = party2.id
AND cont.object1_id1 = p_salesrep_id
AND cont.cro_code = p_cro_code
AND (TRUNC(NVL(cont.end_date,SYSDATE)) >= TRUNC(SYSDATE))
AND party2.object1_id1 = b.organization_id
AND b.location_id = c.location_id;
SELECT /*+ PARALLEL(HDR) */
hdr.ID,
hdr.contract_number,
hdr.contract_number_modifier,
hdr.authoring_org_id,
hdr.inv_organization_id,
party1.object1_id1,
party2.ID,
hz.party_name,
c.country,
c.region_2 state,
cont.ID,
cont.object1_id1,
cont.start_date,
hdr.sts_code
FROM okc_k_headers_b hdr,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hr_all_organization_units b,
hr_locations_all c
WHERE hdr.id = p_contract_hdr_id
AND hdr.authoring_org_id = NVL( p_org_id, hdr.authoring_org_id )
AND hdr.sts_code = p_status_code
AND hdr.scs_code IN( 'SERVICE', 'WARRANTY', 'SUBSCRIPTION' )
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.ID
AND party1.cle_id IS NULL
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND party1.object1_id1 = hz.party_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id IS NULL
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id(+) = party2.id
AND cont.cro_code(+) = p_cro_code
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE))
AND party2.object1_id1 = b.organization_id
AND b.location_id = c.location_id;
SELECT /*+ PARALLEL(HDR) */
hdr.ID,
hdr.contract_number,
hdr.contract_number_modifier,
hdr.authoring_org_id,
hdr.inv_organization_id,
party1.object1_id1,
party2.ID,
hz.party_name,
c.country,
c.region_2 state,
cont.ID,
cont.object1_id1,
cont.start_date,
hdr.sts_code
FROM okc_k_headers_b hdr,
okc_statuses_b stat,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hr_all_organization_units b,
hr_locations_all c
WHERE hdr.id = p_contract_hdr_id
AND hdr.authoring_org_id = NVL( p_org_id, hdr.authoring_org_id )
AND hdr.sts_code = stat.code
AND stat.ste_code IN ('ENTERED','ACTIVE','SIGNED','HOLD')
AND hdr.scs_code IN( 'SERVICE', 'WARRANTY', 'SUBSCRIPTION' )
AND hdr.template_yn = 'N'
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE))
AND party1.dnz_chr_id = hdr.ID
AND party1.cle_id IS NULL
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND party1.object1_id1 = hz.party_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id IS NULL
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id = party2.id
AND cont.object1_id1 = p_salesrep_id
AND cont.cro_code = p_cro_code
AND party2.object1_id1 = b.organization_id
AND b.location_id = c.location_id;
SELECT /*+ PARALLEL(HDR) */
hdr.ID,
hdr.contract_number,
hdr.contract_number_modifier,
hdr.authoring_org_id,
hdr.inv_organization_id,
party1.object1_id1,
party2.ID,
hz.party_name,
c.country,
c.region_2 state,
cont.ID,
cont.object1_id1,
cont.start_date,
hdr.sts_code
FROM okc_k_headers_b hdr,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hr_all_organization_units b,
hr_locations_all c
WHERE hdr.authoring_org_id = NVL( p_org_id, hdr.authoring_org_id )
AND hdr.sts_code = p_status_code
AND hdr.scs_code IN( 'SERVICE', 'WARRANTY', 'SUBSCRIPTION' )
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.ID
AND party1.cle_id IS NULL
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND party1.object1_id1 = hz.party_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id IS NULL
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id = party2.id
AND cont.object1_id1 = p_salesrep_id
AND cont.cro_code = p_cro_code
AND (TRUNC(NVL(cont.end_date,SYSDATE)) >= TRUNC(SYSDATE))
AND party2.object1_id1 = b.organization_id
AND b.location_id = c.location_id;
SELECT /*+ PARALLEL(HDR) */
hdr.ID,
hdr.contract_number,
hdr.contract_number_modifier,
hdr.authoring_org_id,
hdr.inv_organization_id,
party1.object1_id1,
party2.ID,
hz.party_name,
c.country,
c.region_2 state,
cont.ID,
cont.object1_id1,
cont.start_date,
hdr.sts_code
FROM okc_k_headers_b hdr,
okc_statuses_b stat,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hr_all_organization_units b,
hr_locations_all c
WHERE hdr.id = p_contract_hdr_id
AND hdr.authoring_org_id = NVL( p_org_id, hdr.authoring_org_id )
AND hdr.sts_code = stat.code
AND stat.ste_code IN ('ENTERED','ACTIVE','SIGNED','HOLD')
AND hdr.scs_code IN( 'SERVICE', 'WARRANTY', 'SUBSCRIPTION' )
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.ID
AND party1.cle_id IS NULL
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND party1.object1_id1 = hz.party_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id IS NULL
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id(+) = party2.id
AND cont.cro_code(+) = p_cro_code
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE))
AND party2.object1_id1 = b.organization_id
AND b.location_id = c.location_id;
SELECT /*+ PARALLEL(HDR) */
hdr.ID,
hdr.contract_number,
hdr.contract_number_modifier,
hdr.authoring_org_id,
hdr.inv_organization_id,
party1.object1_id1,
party2.ID,
hz.party_name,
c.country,
c.region_2 state,
cont.ID,
cont.object1_id1,
cont.start_date,
hdr.sts_code
FROM okc_k_headers_b hdr,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hr_all_organization_units b,
hr_locations_all c
WHERE hdr.authoring_org_id = NVL( p_org_id, hdr.authoring_org_id )
AND hdr.sts_code = p_status_code
AND hdr.scs_code IN( 'SERVICE', 'WARRANTY', 'SUBSCRIPTION' )
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.ID
AND party1.cle_id IS NULL
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND party1.object1_id1 = hz.party_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id IS NULL
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id(+) = party2.id
AND cont.cro_code(+) = p_cro_code
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE))
AND party2.object1_id1 = b.organization_id
AND b.location_id = c.location_id;
SELECT /*+ PARALLEL(HDR) */
hdr.ID,
hdr.contract_number,
hdr.contract_number_modifier,
hdr.authoring_org_id,
hdr.inv_organization_id,
party1.object1_id1,
party2.ID,
hz.party_name,
c.country,
c.region_2 state,
cont.ID,
cont.object1_id1,
cont.start_date,
hdr.sts_code
FROM okc_k_headers_b hdr,
okc_statuses_b stat,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hr_all_organization_units b,
hr_locations_all c
WHERE hdr.authoring_org_id = NVL( p_org_id, hdr.authoring_org_id )
AND hdr.sts_code = stat.code
AND stat.ste_code IN ('ENTERED','ACTIVE','SIGNED','HOLD')
AND hdr.scs_code IN( 'SERVICE', 'WARRANTY', 'SUBSCRIPTION' )
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.ID
AND party1.cle_id IS NULL
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND party1.object1_id1 = hz.party_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id IS NULL
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id = party2.id
AND cont.object1_id1 = p_salesrep_id
AND cont.cro_code = p_cro_code
AND (TRUNC(NVL(cont.end_date,SYSDATE)) >= TRUNC(SYSDATE))
AND party2.object1_id1 = b.organization_id
AND b.location_id = c.location_id;
SELECT /*+ PARALLEL(HDR) */
hdr.ID,
hdr.contract_number,
hdr.contract_number_modifier,
hdr.authoring_org_id,
hdr.inv_organization_id,
party1.object1_id1,
party2.ID,
hz.party_name,
c.country,
c.region_2 state,
cont.ID,
cont.object1_id1,
cont.start_date,
hdr.sts_code
FROM okc_k_headers_b hdr,
okc_statuses_b stat,
okc_k_party_roles_b party1,
okc_k_party_roles_b party2,
okc_contacts cont,
hz_parties hz,
hr_all_organization_units b,
hr_locations_all c
WHERE hdr.authoring_org_id = NVL( p_org_id, hdr.authoring_org_id )
AND hdr.sts_code = stat.code
AND stat.ste_code IN ('ENTERED','ACTIVE','SIGNED','HOLD')
AND hdr.scs_code IN( 'SERVICE', 'WARRANTY', 'SUBSCRIPTION' )
AND hdr.template_yn = 'N'
AND party1.dnz_chr_id = hdr.ID
AND party1.cle_id IS NULL
AND party1.rle_code IN ('CUSTOMER','SUBSCRIBER')
AND party1.object1_id1 = hz.party_id
AND party2.dnz_chr_id = party1.dnz_chr_id
AND party2.chr_id = party1.dnz_chr_id
AND party2.cle_id IS NULL
AND party2.rle_code IN ('VENDOR','MERCHANT')
AND cont.cpl_id(+) = party2.id
AND cont.cro_code(+) = p_cro_code
AND (TRUNC(NVL(cont.end_date(+),SYSDATE)) >= TRUNC(SYSDATE))
AND party2.object1_id1 = b.organization_id
AND b.location_id = c.location_id;
SELECT fu.user_id
FROM jtf_rs_resource_extns jrd,fnd_user fu
WHERE jrd.resource_id=p_resource_id
AND fu.user_id = jrd.user_id;
SELECT chr_id,resource_id,user_id,
salesrep_id,org_id
FROM oks_jtf_res_temp;
CURSOR update_contact_resource IS
SELECT contact_id,authoring_org_id
FROM oks_k_res_temp
WHERE status IN
(SELECT code
FROM okc_statuses_v
WHERE ste_code IN('ACTIVE','SIGNED','HOLD'))
AND contact_id IS NOT NULL;
CURSOR delete_contact_resource IS
SELECT contact_id,authoring_org_id
FROM oks_k_res_temp
WHERE status IN
(SELECT code
FROM okc_statuses_v
WHERE ste_code = 'ENTERED')
AND contact_id IS NOT NULL;
SELECT id,contract_number,contract_number_modifier
FROM oks_k_res_temp
WHERE status IN
(SELECT code
FROM okc_statuses_v
WHERE ste_code IN('ACTIVE','SIGNED','HOLD'))
AND contact_start_date >= trunc(sysdate) ;
SELECT id,contract_number, contract_number_modifier,party_name
FROM OKS_K_RES_TEMP
WHERE id not in (SELECT chr_id FROM OKS_JTF_RES_TEMP);
SELECT contract_number, contract_number_modifier
FROM okc_k_headers_b
WHERE id = p_chr_id;
SELECT contract_number
FROM okc_k_headers_b
WHERE id = p_chr_id;
SELECT id
FROM okc_k_party_roles_b
WHERE dnz_chr_id = p_chr_id
AND rle_code IN ('VENDOR','MERCHANT')
AND cle_id is null;
SELECT authoring_org_id
FROM okc_k_headers_b
WHERE id = p_chr_id;
l_gen_return_Rec.trans_object_id.delete;
l_gen_return_Rec.resource_id.delete;
l_gen_bulk_rec.trans_object_id.delete;
l_gen_bulk_rec.trans_detail_object_id.delete;
l_gen_bulk_rec.SQUAL_CHAR01.delete;
l_gen_bulk_rec.SQUAL_CHAR04.delete;
l_gen_bulk_rec.SQUAL_CHAR07.delete;
l_gen_bulk_rec.SQUAL_NUM01.delete;
INSERT INTO OKS_K_RES_TEMP (id,contract_number,contract_number_modifier,status,
authoring_org_id,inv_organization_id,party_id,cpl_id,
party_name,country_code,state_code,contact_id,salesrep_id,
contact_start_date,contact_end_date,contract_start_date,contract_end_date)
values (lb_id(i)
,lb_contract_number(i)
,lb_contract_number_modifier(i)
,lb_status(i)
,lb_authoring_org_id(i)
,lb_inv_organization_id(i)
,lb_party_id(i)
,lb_cpl_id(i)
,lb_party_name(i)
,lb_country_code(i)
,lb_state_code(i)
,lb_contact_id(i)
,lb_salesrep_id(i)
,lb_contact_start_date(i)
,null
,null
,null
);
'INSERTED INTO oks_reassign_resource_TMP : Successful'
|| 'Nmber of Recs passedto JTF: '
|| l_gen_bulk_rec.trans_object_id.count
|| 'JTF_TERR_ASSIGN_PUB.get_winners start :'
|| to_char(sysdate,'HH:MI:SS'));
l_winning_tbl.delete;
' Contract selected to insert into JTF_RES_TEMP : ' || l_winning_tbl(idx4).chr_id);
INSERT INTO OKS_JTF_RES_TEMP (chr_id,resource_id,user_id,salesrep_id
,org_id,inv_organization_id,contract_start_date,contract_end_date)
values(l_winning_tbl(idx4).chr_id
,l_winning_tbl(idx4).resource_id
,l_winning_tbl(idx4).user_id
,l_temp_salesrep
,l_temp_org_id
,null
,null
,null);
DELETE FROM oks_k_res_temp
WHERE id = l_winning_tbl(idx4).chr_id;
DELETE FROM oks_k_res_temp a
WHERE exists
( SELECT null
FROM oks_k_res_temp b,
oks_jtf_res_temp c
WHERE b.id = a.id
AND b.salesrep_id = c.salesrep_id
AND c.chr_id = a.id
);
DELETE FROM oks_k_res_temp
WHERE id = contract_noresource_rec.id;
DELETE FROM oks_k_res_temp a
WHERE exists
( SELECT null
FROM oks_k_res_temp b
WHERE b.id = a.id
AND b.contact_start_date >= trunc(sysdate)
AND b.status IN (SELECT code
FROM okc_statuses_v
WHERE ste_code IN('ACTIVE','SIGNED','HOLD'))
);
DELETE FROM oks_jtf_res_temp a
WHERE not exists
( SELECT null
FROM oks_k_res_temp b
WHERE a.chr_id = b.id
);
l_ctcv_tbl_in(idx1).last_updated_by := OKC_API.G_MISS_NUM;
l_ctcv_tbl_in(idx1).last_update_date := SYSDATE;
l_ctcv_tbl_in(idx1).last_update_login := OKC_API.G_MISS_NUM;
'contract selected to create new contact : ' || l_contract_number
|| ' ' || 'ID ' || lj_chr_id(i2) );
OPEN update_contact_resource;
FETCH update_contact_resource BULK COLLECT INTO
lr_cpl_id,lr_upd_cpl_org_id limit 1000;
'Contacts selected for update ' || lr_cpl_id(i3) );
IF update_contact_resource%ISOPEN THEN
EXIT WHEN update_contact_resource%NOTFOUND;
IF update_contact_resource%ISOPEN THEN
CLOSE update_contact_resource;
OPEN delete_contact_resource;
FETCH delete_contact_resource BULK COLLECT INTO
lr_del_cpl_id,lr_del_cpl_org_id limit 1000;
'Contacts selected for delete ' || lr_del_cpl_id(i4));
IF delete_contact_resource%ISOPEN THEN
EXIT WHEN delete_contact_resource%NOTFOUND;
IF delete_contact_resource%ISOPEN THEN
CLOSE delete_contact_resource;
'Completed populating PL/SQL tables for create, update and delete');
' Number of records selected for update ' || l_ctcv_tbl_in_upd.count || ' ' ||
' Number of records selected for delete ' || l_ctcv_tbl_in_del.count || ' ' ||
' Number of records selected for create ' || l_ctcv_tbl_in.count) ;
okc_contract_party_pub.update_contact ( p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_ctcv_rec => l_ctcv_tbl_in_upd(idx5),
x_ctcv_rec => l_ctcv_rec_out_upd );
'Exception in update contact ');
fnd_file.put_line(FND_FILE.LOG,'Exception in update contact');
okc_contract_party_pub.delete_contact ( p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_ctcv_rec => l_ctcv_tbl_in_del(idx6));
'Exception in delete contact ');
fnd_file.put_line(FND_FILE.LOG,'Exception in delete contact');
OKC_CVM_PVT.update_contract_version(p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cvmv_rec => l_cvmv_rec,
x_cvmv_rec => l_cvmv_out_rec);
||' Update contract version return status '
|| l_return_status );
l_chrv_rec.last_update_date := sysdate;
OKC_CONTRACT_PUB.update_contract_header(p_api_version => l_api_version,
p_init_msg_list => OKC_API.G_TRUE,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_restricted_update => OKC_API.G_TRUE,
p_chrv_rec => l_chrv_rec,
x_chrv_rec => l_chrv_out_rec);
'Update contract header return status '
|| l_return_status );
l_ctcv_tbl_in.delete;
l_ctcv_tbl_in_del.delete;
l_ctcv_tbl_in_upd.delete;
DELETE FROM oks_k_res_temp;
DELETE FROM oks_jtf_res_temp;