The following lines contain the word 'select', 'insert', 'update' or 'delete':
Cursor l_party_csr Is Select Id From OKC_K_PARTY_ROLES_V
Where dnz_chr_id = p_chrid
And cle_id Is Null
And chr_id = p_chrid
And rle_code = p_rle_code;
Cursor l_lparty_csr Is Select Id From OKC_K_PARTY_ROLES_V
Where dnz_chr_id = p_chrid
And chr_id Is Null
And cle_id = p_cleid
And rle_code = p_rle_code;
Select Chr_id
From OKC_K_REL_OBJS
Where OBJECT1_ID1 = P_Object_id
And jtot_object1_code = p_jtf_id;
Select Chr_id
From OKC_K_REL_OBJS
Where OBJECT1_ID1 = P_Object_id
And jtot_object1_code = p_jtf_id
And rty_code = 'CONTRACTWARRANTYORDER';
Select Id Chr_Id
From OKC_K_HEADERS_V
Where Attribute1 = p_Object_Id
And End_date = p_EndDate ;
Select KL.Id Cle_Id
From OKC_K_LINES_V KL
,OKC_K_ITEMS_V KI
Where KL.dnz_chr_id = p_ChrId
And KL.lse_id In (14, 19)
And KL.Id = KI.cle_Id
And KI.Object1_Id1 = p_InvServiceId
-- And KL.StartDate >= p_StartDate
And KL.End_Date = p_EndDate;
Select PRICED_YN
From okc_line_styles_B
Where ID = P_LSE_ID;
SELECT ID INTO V_ID FROM OKC_RULE_GROUPS_V WHERE Dnz_CHR_ID = p_chr_id And cle_id Is Null;
SELECT ID INTO V_ID FROM OKC_RULE_GROUPS_V WHERE CLE_ID = p_cle_id;
Select ID Into V_ID From OKC_RULES_V
Where rgp_id = p_rgp_id
And Rule_information_category = p_rule_type;
Select Start_Date, End_Date From OKC_K_LINES_V
Where id = p_cle_id;
Procedure Update_Line_Dates
(
p_cle_id IN Number,
p_new_sdt IN Date,
p_new_edt IN Date,
p_warranty_flag IN Varchar2,
x_status OUT NOCOPY VarChar2,
x_msg_count OUT NOCOPY Number,
x_msg_data OUT NOCOPY Number
)
Is
Cursor l_rulegroup_csr Is
Select Id
From okc_rule_groups_v rg
Where rg.cle_id = p_cle_id;
okc_contract_pub.update_contract_line
(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_tbl => l_clev_tbl_in,
x_clev_tbl => l_clev_tbl_out
);
okc_rule_pub.update_rule
(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rulv_tbl => l_rulv_tbl_in,
x_rulv_tbl => l_rulv_tbl_out
);
Select Start_Date, End_Date ,
Authoring_Org_Id From OKC_K_HEADERS_V
Where id = p_chr_id;
Procedure Update_Hdr_Dates
(
p_chr_id IN Number,
p_new_sdt IN Date,
p_new_edt IN Date,
x_status OUT NOCOPY VarChar2,
x_msg_count OUT NOCOPY Number,
x_msg_data OUT NOCOPY Number
)
Is
Cursor l_timevalue_csr Is
Select rule_information1
From okc_rules_v rl
, okc_rule_groups_v rg
, okc_k_headers_v hd
Where hd.id = p_chr_id
And rg.chr_id = hd.id
And rl.rgp_id = rg.id
And rl.rule_information_category = 'EFY';
Select Id
From okc_rule_groups_v rg
Where rg.dnz_chr_id = p_chr_id
And rg.cle_id Is Null;
okc_contract_pub.update_contract_header
(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_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
);
okc_rule_pub.update_rule
(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rulv_tbl => l_rulv_tbl_in,
x_rulv_tbl => l_rulv_tbl_out
);
x_rulv_tbl(1).last_updated_by := OKC_API.G_MISS_NUM;
x_rulv_tbl(1).last_update_date := OKC_API.G_MISS_DATE;
x_rulv_tbl(1).last_update_login := OKC_API.G_MISS_NUM;
Select contract_number From OKC_K_HEADERS_V
Where id = p_hdrid;
Procedure Update_Cov_level
(
p_covered_line_id IN Number,
p_new_end_date IN Date,
p_K_item_id IN Number,
p_new_negotiated_amt IN Number,
p_new_cp_qty IN Number,
x_return_status OUT NOCOPY Varchar2,
x_msg_count OUT NOCOPY Number,
x_msg_data OUT NOCOPY Varchar2
)
Is
Cursor l_parent_line_Csr is
Select cle_id From OKC_K_LINES_V
Where id = p_covered_line_id;
okc_contract_pub.update_contract_line
(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_tbl => l_clev_tbl_in,
x_clev_tbl => l_clev_tbl_out
);
FND_FILE.PUT_LINE (FND_FILE.LOG,'UPDATE COV LVL : update contract line status: '||l_return_status );
okc_contract_pub.update_contract_line
(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_tbl => l_clev_tbl_in,
x_clev_tbl => l_clev_tbl_out
);
OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Line Update(UPDATE SUB LINE)');
okc_contract_pub.update_contract_line
(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_tbl => l_clev_tbl_in,
x_clev_tbl => l_clev_tbl_out
);
okc_contract_item_pub.update_contract_item
(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_tbl => l_cimv_tbl_in,
x_cimv_tbl => l_cimv_tbl_out
);
FND_FILE.PUT_LINE (FND_FILE.LOG,'UPDATE COV LVL : update contract item status: '||l_return_status );
Select Party_Id From OKX_CUST_SITE_USES_V
Where ID1 = p_id;
Select Party_Id From OKX_CUST_CONTACTS_V
Where Id1 = p_contactid And id2 = '#';
Select hzr.object_id
--, subject_id
, hzr.party_id
--NPALEPU
--18-JUN-2005,08-AUG-2005
--TCA Project
--Replaced hz_party_relationships table with hz_relationships table and ra_hcontacts with OKS_RA_HCONTACTS_V
--Replaced hzr.party_relationship_id column with hzr.relationship_id column and added new conditions
/* From
ra_hcontacts rah,
hz_party_relationships hzr
Where rah.contact_id = p_contact_id
and rah.party_relationship_id = hzr.party_relationship_id;*/
l_chrv_tbl_in(1).deleted_yn := 'N';
l_cgcv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
l_cgcv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
l_cgcv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
l_cpsv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
l_cpsv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
l_cpsv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
Select MTL.SERVICE_ITEM_FLAG
,MTL.USAGE_ITEM_FLAG
From OKX_SYSTEM_ITEMS_V MTL
Where MTL.id1 = p_Inventory_id
And MTL.Organization_id = p_organization_id;
Select Counter_Group_id
From OKX_CTR_ASSOCIATIONS_V
Where Source_Object_Id = p_id;
Select cust_account_id from OKX_CUST_SITE_USES_V
where id1 = p_billto and id2 = '#';
Select hzr.object_id
, hzr.party_id
--NPALEPU
--18-JUN-2005
--TCA Project
--Replaced hz_party_relationships table with hz_relationships table and ra_hcontacts view with OKS_RA_HCONTACTS_V
--Replaced hzr.party_relationship_id column with hzr.relationship_id column and added new conditions
/* From
ra_hcontacts rah,
hz_party_relationships hzr
Where rah.contact_id = p_contact_id
and rah.party_relationship_id = hzr.party_relationship_id;*/
Update_Hdr_Dates
(
p_chr_id => p_k_line_rec.k_id,
p_new_sdt => l_hdrsdt,
p_new_edt => l_hdredt,
x_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- UPDATE HDR ' || l_return_status);
OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Header Effectivity Update (LINE)');
OKS_SALES_CREDIT_PUB.Insert_Sales_Credit(
p_api_version => 1.0,
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_scrv_tbl => l_scrv_tbl_in,
x_scrv_tbl => l_scrv_tbl_out);
Select MTL.SERVICE_ITEM_FLAG
,MTL.USAGE_ITEM_FLAG
From OKX_SYSTEM_ITEMS_V MTL
Where MTL.id1 = p_Inventory_id
And MTL.Organization_id = p_organization_id;
Update_Hdr_Dates
(
p_chr_id => p_k_covd_rec.k_id,
p_new_sdt => l_hdrsdt,
p_new_edt => l_hdredt,
x_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FND_FILE.PUT_LINE (FND_FILE.LOG,'K COVD LINE CREATION :- UPDATE HDR STATUS ' || l_return_status);
OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Header Effectivity Update (SUB LINE)');
Update_Line_Dates
(
p_cle_id => p_k_covd_rec.Attach_2_Line_Id,
p_new_sdt => l_line_sdt,
p_new_edt => l_line_edt,
p_warranty_flag => p_k_covd_rec.warranty_flag,
x_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FND_FILE.PUT_LINE (FND_FILE.LOG,'K COVD LINE CREATION :- UPDATE LINE STATUS ' || l_return_status);
OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'LINE Effectivity Update (SUB LINE)');
Cursor l_party_csr Is Select Name From OKX_PARTIES_V
Where ID1 = p_extwar_rec.hdr_party_id;
Update Okc_k_headers_b
Set Estimated_amount = (Select sum(price_negotiated) from Okc_k_lines_v
Where dnz_chr_id = l_chrid)
Where id = l_chrid ;