[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT quote_number
,quote_version
FROM okx_quote_headers_v
WHERE id1 = b_qhr_id;
CURSOR c_chr (b_chr_id NUMBER) IS SELECT
object_version_number
,authoring_org_id
,inv_organization_id
,contract_number
,contract_number_modifier
,currency_code
,estimated_amount
,date_renewed
,scs_code
,total_line_list_price
,price_list_id
,sign_by_date
FROM okc_k_headers_b
WHERE id = b_chr_id;
SELECT
kh.ID ,
--kh.STS_CODE ,
kh.SCS_CODE ,
kh.CONTRACT_NUMBER ,
kh.CURRENCY_CODE ,
kh.CONTRACT_NUMBER_MODIFIER,
kh.TEMPLATE_YN ,
kh.TEMPLATE_USED ,
kh.CHR_TYPE ,
kh.DATE_TERMINATED ,
--
kh.DATE_RENEWED ,
kh2.contract_number ren_contract_num,
--
kh.START_DATE ,
kh.END_DATE ,
kh.AUTHORING_ORG_ID ,
kh.INV_ORGANIZATION_ID ,
kh.BUY_OR_SELL ,
kh.ISSUE_OR_RECEIVE ,
kh.ESTIMATED_AMOUNT ,
ks.cls_code ,
ks.meaning ,
kst.ste_code
FROM okc_statuses_b kst,
okc_k_headers_b kh,
okc_k_headers_b kh2,
okc_subclasses_v ks
WHERE kh.id = b_chr_id
AND ks.code = kh.scs_code
AND kst.code = kh.sts_code
AND kh2.id(+) = kh.chr_id_renewed_to;
SELECT -- For service and ext warranty lines
cle.id cle_id
,cle.line_number line_number
--,cle.sts_code sts_code
,sts.ste_code ste_code
--
,NVL(cim.number_of_items, cpt.quantity) quantity
,DECODE(cim.number_of_items, NULL,cpt.unit_of_measure_code,
cim.uom_code) uom_code
,cim.priced_item_yn priced_item_yn
,cle.price_unit price_unit
,cle.price_negotiated price_negotiated
,cle.currency_code currency_code
--
,cle.start_date start_date
,cle.end_date end_date
--
,lse.lse_type line_style
,lse.lty_code line_type
,lss.jtot_object_code line_source_code
,jot.from_table line_source_table
--
--,cpt.id1 id1
--,cpt.id2 id2
,cim.object1_id1 id1
,cim.object1_id2 id2
,cpt.name prod_name
,cim.jtot_object1_code item_source_code
,jot.from_table item_source_table
FROM
jtf_objects_b jot
,okc_k_lines_b cle
,okc_k_items cim
,okc_line_styles_b lse
,okc_line_style_sources lss
,okx_customer_products_v cpt
,okc_statuses_b sts
WHERE
cim.cle_id = cle.id
AND cpt.id1 = cim.object1_id1
AND cpt.id2 = cim.object1_id2
AND cpt.org_id = b_org_id
AND cpt.organization_id = b_inv_org_id
AND jot.object_code = cim.jtot_object1_code
AND rtrim(ltrim(jot.from_table)) like g_okx_customer_products_v||'%'||cim.jtot_object1_code
--
AND lse.id = cle.lse_id
AND lse.lty_code = g_lt_coverprod -- must be a covered product
AND lss.lse_id = lse.id
AND lss.jtot_object_code = cim.jtot_object1_code
--
AND sts.code = cle.sts_code
AND sts.ste_code <> g_sts_terminated
--
AND cle.cle_id = b_line_id -- immediate child of top line
AND cle.dnz_chr_id = b_chr_id
UNION
SELECT -- For support lines
cle.id cle_id
,cle.line_number line_number
--,cle.sts_code sts_code
,sts.ste_code ste_code
--
,NVL(cim.number_of_items, cpt.quantity) quantity
,DECODE(cim.number_of_items, NULL,cpt.unit_of_measure_code,
cim.uom_code) uom_code
,cim.priced_item_yn priced_item_yn
,cle.price_unit
,cle.price_negotiated
,cle.currency_code
--
,cle.start_date
,cle.end_date
--
,lse.lse_type line_style
,lse.lty_code line_type
,lss.jtot_object_code line_source_code
,jot.from_table line_source_table
--
--,cpt.inventory_item_id
--,cpt.organization_id
,cim.object1_id1 id1
,cim.object1_id2 id2
,sit.name prod_name
,cim.jtot_object1_code
,jot.from_table
FROM jtf_objects_b jot
,okc_k_lines_b cle
,okc_k_items cim
,okc_line_styles_b lse
,okc_line_style_sources lss
,okx_product_lines_v cpt
,okx_system_items_v sit
,okc_statuses_b sts
WHERE cim.cle_id = cle.id
AND cpt.id1 = cim.object1_id1
AND cpt.id2 = cim.object1_id2
AND cpt.dnz_chr_id = cle.dnz_chr_id
AND jot.object_code = cim.jtot_object1_code
AND rtrim(ltrim(jot.from_table)) like
DECODE(lse.lty_code, g_lt_suppline,
g_okx_product_lines_v||'%'||cim.jtot_object1_code,
g_okx_system_items_v||'%'||cim.jtot_object1_code)
--
AND sit.organization_id = cpt.organization_id
AND sit.inventory_item_id = cpt.inventory_item_id
--
AND lse.id = cle.lse_id
AND lse.lty_code IN (g_lt_suppline, -- must be a support_line line,
g_lt_supp) -- or support line
AND lss.lse_id = lse.id
AND lss.jtot_object_code = cim.jtot_object1_code
--
AND sts.code = cle.sts_code
AND sts.ste_code <> g_sts_terminated
--
AND cle.cle_id = b_line_id -- immediate child of top line
AND cle.dnz_chr_id = b_chr_id;
CURSOR c_cust (b_chr_id NUMBER) IS SELECT
cpr.id
,cpr.jtot_object1_code
,cpr.object1_id1
,cpr.object1_id2
,cpr.rle_code
FROM okc_k_party_roles_b cpr
,okc_role_sources rsc
WHERE
rsc.buy_or_sell = 'S' -- sell contract
AND rsc.rle_code = cpr.rle_code -- role
AND rsc.start_date <= sysdate
AND NVL(rsc.end_date, sysdate) >= sysdate
AND cpr.cle_id IS NULL -- parties
AND cpr.dnz_chr_id = b_chr_id;
SELECT chr_id_referred
FROM okc_governances
WHERE dnz_chr_id = b_chr_id;
SELECT
khtl.ID,
khtl.COMMENTS
FROM okc_k_headers_v khtl
WHERE khtl.ID = b_chr_id;
select distinct(lse.lty_code) lty_code,
lse.priced_yn,
lse.item_to_price_yn,
lse.price_basis_yn,
lse.id,
lse.name,
jot.object_code,
jot.where_clause,
jot.from_table
-- stl.seeded_flag
from okc_subclass_top_line stl,
okc_line_styles_v lse,
okc_line_style_sources lss,
jtf_objects_b jot
where
jot.object_code = lss.jtot_object_code
and lss.lse_id = lse.id
and sysdate between lss.start_date and nvl(lss.end_date,sysdate)
and lse.id = stl.lse_id
and sysdate between stl.start_date and nvl(stl.end_date,sysdate)
-- and stl.seeded_flag = 'Y'
and stl.scs_code = b_scs_code;
SELECT
rgp.chr_id,
rgp.cle_id,
rul.object1_id1,
rul.object1_id2,
rul.jtot_object1_code,
rul.object2_id1,
rul.object2_id2,
rul.jtot_object2_code,
rul.object3_id1,
rul.object3_id2,
rul.jtot_object3_code,
rul.rule_information_category
FROM
okc_rule_groups_b rgp
,okc_rules_b rul
-- ,okc_rg_party_roles rpr
WHERE
-- Since only one party is allowed in a contract, the party who is acting
-- as the subject or object of a rule group is not handled
--rpr.cpl_id = b_cpr_id
--AND rpr.rgp_id = rgp.id
--AND rpr.dnz_chr_id = rgp.dnz_chr_id
rgp.dnz_chr_id = b_chr_id
AND ((rgp.cle_id IS NULL AND b_cle_id IS NULL) OR
(b_cle_id IS NOT NULL AND rgp.cle_id = b_cle_id))
-- AND rgp.rgd_code in (g_rg_billing, g_rg_service, g_rg_pricing)
AND rul.rgp_id = rgp.id
AND rul.rule_information_category IN (
g_rd_billto,
g_rd_shipto,
g_rd_shipmtd,
g_rd_custacct,
g_rd_invrule,
g_rd_price,
g_rd_convert);
SELECT
krel.object1_id1
FROM
okc_k_rel_objs krel
WHERE
krel.chr_id = b_kh_id
AND ((krel.cle_id IS NULL AND b_kl_id IS NULL
AND krel.object1_id1 = DECODE(NVL(b_qh_id,OKC_API.G_MISS_NUM),OKC_API.G_MISS_NUM, krel.object1_id1, b_qh_id))
OR (b_kl_id IS NOT NULL AND krel.cle_id = b_kl_id))
AND krel.rty_code = b_rlt_code
AND krel.jtot_object1_code = b_rlt_type;
SELECT
party_site_id
,cust_account_id
,party_id
,address1
,address2
,address3
,address4
,city
,state
,province
,postal_code
,county
,country
FROM okx_cust_site_uses_v
WHERE id1 = b_id1
AND id2 = b_id2;
SELECT conversion_type,
conversion_rate,
conversion_date
FROM okc_conversion_attribs_v
WHERE conversion_type = b_id1
AND dnz_chr_id = p_chr_id;
l_k_rule_tab.delete;
okc_util.print_trace(3, '-->Rule selection');
okc_util.print_trace(4, '-->Rule selected: '||g_rd_custacct);
okc_util.print_trace(4, '-->Rule selected: '||g_rd_price);
okc_util.print_trace(4, '-->Rule selected: '||g_rd_invrule);
okc_util.print_trace(4, '-->Rule selected: '||g_rd_convert);
okc_util.print_trace(4, '-->Rule selected: '||g_rd_shipto);
okc_util.print_trace(4, '-->Rule selected: '||g_rd_billto);
okc_util.print_trace(3, '-->Rule selection: '||l_rd_nb||' rule(s) selected');
SELECT quote_expiration_date
FROM okx_quote_headers_v
WHERE id1 = b_qh_id;
SELECT cle.id line_id
,cle.line_number line_number
FROM
okc_k_lines_b cle
WHERE EXISTS ( SELECT 1
FROM okc_statuses_b sts
WHERE sts.code = cle.sts_code
AND sts.ste_code <> g_sts_terminated )
AND (
(cle.cle_id IS NULL AND cle.config_item_type NOT IN (g_okc_model_item,g_okc_base_item,g_okc_config_item))
OR ( cle.config_item_type IN (g_okc_model_item,g_okc_base_item,g_okc_config_item))
)
AND cle.dnz_chr_id = b_chr_id
ORDER BY cle.config_item_type DESC, -- To ensure that top model line,top base line
line_id; -- and config are processed in order
SELECT
-- b_line_level lv
cle.id line_id
,cle.cle_id cle_id
,cle.lse_id lse_id
,cle.line_number line_number
,sts.ste_code
--
,cim.number_of_items qty
,cim.uom_code
,'N' customer_order_enabled_flag
,cle.name item_name
,cim.priced_item_yn
,cle.price_unit
,cle.price_negotiated
,cle.line_list_price
,cle.price_list_id
,cle.price_list_line_id
,cle.currency_code
--
--
,cle.config_header_id
,cle.config_revision_number
,cle.config_complete_yn
,cle.config_valid_yn
,cle.config_item_id
,cle.config_item_type
,cfg.component_code
--
--
,cle.start_date
,cle.end_date
,cim.id cim_id
,cim.object1_id1
,cim.object1_id2
--
,lse.lse_type line_style
,lse.lty_code line_type
,lss.jtot_object_code line_source_code
,jot2.from_table line_source_table
--
,cim.jtot_object1_code item_source_code
,jot.from_table item_source_table
FROM
okc_k_lines_v cle,
okc_k_items cim,
okc_line_styles_b lse,
okc_line_style_sources lss,
jtf_objects_b jot,
jtf_objects_b jot2,
okc_statuses_b sts,
-- okx_system_items_v sit,
okx_config_items_v cfg
WHERE
cim.cle_id = cle.id
AND jot.object_code(+) = cim.jtot_object1_code
AND lse.id = cle.lse_id
AND lss.lse_id(+) = lse.id
AND lss.jtot_object_code = jot2.object_code(+)
AND sts.code = cle.sts_code
AND cle.dnz_chr_id = b_chr_id
AND cle.id = b_line_id
AND cfg.config_hdr_id(+) = cle.config_header_id
AND cfg.config_rev_nbr(+) = cle.config_revision_number
AND cfg.config_item_id(+) = cle.config_item_id;
l_kh_rule_tab.delete;
l_kl_rule_tab.delete;
l_kh_sto_data_tab.delete;
l_kh_bto_data_tab.delete;
l_kl_sto_data_tab.delete;
l_kl_bto_data_tab.delete;
l_line_info_tab.delete;
l_covlvl_info_tab.delete;
l_line_style_tab.DELETE;
okc_util.print_trace(2,'>>Select contract line');
okc_util.print_trace(2, '>>Select contract line product name');
l_sql:= 'SELECT name FROM '||r_cle.item_source_table ||' WHERE id1 = :b AND id2 = :c';
l_sql := 'SELECT name, customer_order_enabled_flag FROM '||r_cle.item_source_table||
' WHERE id1 = :b AND id2 = :c';
SELECT 'Y'
FROM
okx_qte_shipments_v
WHERE
quote_header_id = b_qh_id
AND (( b_ql_id IS NULL AND quote_line_id IS NULL) OR
(b_ql_id IS NOT NULL AND quote_line_id = b_ql_id));
SELECT
id1 quote_header_id,
quote_number
-- status,
-- b_status status_code
FROM
okx_quote_headers_v
WHERE
id1 = b_qh_id;
SELECT
id1 quote_header_id,
quote_number,
last_update_date
FROM
okx_quote_headers_v
WHERE
id1=b_qh_id;
SELECT
sr.resource_id
FROM
okc_contacts ct,
okc_k_party_roles_b pt,
okx_salesreps_v sr
WHERE
pt.jtot_object1_code = g_okx_legentity
AND pt.rle_code = g_supplier_ptrol -- g_supplier_ptrol = SUPPLIER
AND ct.cpl_id = pt.id -- party role id
AND ct.dnz_chr_id = p_contract_id
AND ct.contact_sequence = 2
AND ct.cro_code = g_salesrep_ctrol -- g_salesrep_ctrol = SALESPERSON
AND ct.jtot_object1_code = g_jtf_okx_salepers -- g_jtf_okx_salepers = OKX_SALEPERS
AND sr.id1 = ct.object1_id1
AND sr.id2 = ct.object1_id2;
px_qte_hdr_rec.last_update_date := l_qte_hdr.last_update_date;
px_hd_shipment_tbl(i).operation_code := g_aso_op_code_update;
px_hd_shipment_tbl(i).operation_code := g_aso_op_code_delete;
SELECT ID1
FROM okx_quote_line_detail_v
WHERE QUOTE_LINE_ID = p_qte_line_id;
SELECT id1
FROM okx_quote_lines_v
WHERE quote_header_id = g_quote_id;
SELECT shipment_id
FROM okx_qte_shipments_v
WHERE quote_line_id = id1;
SELECT id1
FROM okx_quote_line_detail_v
WHERE quote_line_id = id1;
SELECT 'Y'
FROM
okx_qte_shipments_v
WHERE quote_line_id = b_ql_id;
x_line_rltship_tab.DELETE;
IF c_q_k_rel%FOUND THEN -- UPDATE
IF (l_debug = 'Y') THEN
okc_util.print_trace(2,'Quote line: Related quote line found - update ');
l_ql:=k; -- if found reuse the same entry for update
px_qte_line_tbl(l_ql).operation_code := g_aso_op_code_update;
px_qte_line_tbl(l_ql).operation_code := g_aso_op_code_update;
-- and a regular update
i_l_ql:=i_l_ql+1;
px_qte_line_tbl(l_ql).operation_code := g_aso_op_code_update;
okc_util.print_trace(2,'1a.case of a non top model or non top base line - update ');
-- as CREATE) to be updated
--
px_qte_line_tbl(l_ql).operation_code := g_aso_op_code_create;
px_qte_ln_shipment_tbl(l_ql).operation_code := g_aso_op_code_update;
px_qte_ln_shipment_tbl(l_ql).operation_code := g_aso_op_code_delete;
px_qte_line_tbl(l_ql).operation_code = g_aso_op_code_update THEN
OPEN c_quot_detl_line (px_qte_line_tbl(l_ql).quote_line_id);
px_qte_line_dtl_tbl(l_dql).operation_code := g_aso_op_code_update;
IF NOT l_cp_found AND px_qte_line_tbl(l_ql).operation_code = g_aso_op_code_update AND
l_line_info_tab(i).config_item_type NOT IN (g_okc_model_item,g_okc_base_item,g_okc_config_item) THEN
--
-- This is the case of a Non service, Non configurable item
-- ie a standard item and no sub lines
--
-- Need to ensure that the original quote line had no quote detail line
-- Need to retrieve the quote detail line of related quote parent line
-- pointed by px_qte_line_tbl(l_ql).quote_line_id using a cursor on
-- OKX_QUOTE_LINE_DETAILS_V
--
OPEN c_qdl(px_qte_line_tbl(l_ql).quote_line_id) ;
px_qte_line_dtl_tbl(l_dql).operation_code := g_aso_op_code_delete;
IF NOT l_cp_found AND px_qte_line_tbl(l_ql).operation_code = g_aso_op_code_update AND
l_line_info_tab(i).config_item_type IN (g_okc_model_item,g_okc_base_item,g_okc_config_item) THEN
--
-- This is the case of a Non service, Configurable item -- 'UPDATE'
--
-- Need to retrieve if the original quote line has any quote detail line using the c_qdl cursor
-- ie. against the okx_quote_line_details_v
--
OPEN c_qdl(px_qte_line_tbl(l_ql).quote_line_id) ;
IF c_qdl%FOUND THEN -- The Quote detail line needs to be updated.
--
-- Need to check if there is any quote detail line against
-- px_qte_line_dtl_tbl for the quote_line_id
-- ie. check against the px_qte_line_dtl_tbl PL/SQL table
--
IF px_qte_line_dtl_tbl.FIRST IS NOT NULL THEN
FOR k IN px_qte_line_dtl_tbl.FIRST..px_qte_line_dtl_tbl.LAST LOOP
IF px_qte_line_dtl_tbl(k).quote_line_id = px_qte_line_tbl(l_ql).quote_line_id THEN
l_qdl_a_found := 'Y';
px_qte_line_dtl_tbl(l_dql).operation_code := g_aso_op_code_update;
END IF; -- IF NOT l_cp_found AND px_qte_line_tbl(l_ql).operation_code = g_aso_op_code_update
END IF; -- IF NOT l_cp_found AND px_qte_line_tbl(l_ql).operation_code = g_aso_op_code_update
px_qte_line_tbl(x).operation_code := g_aso_op_code_delete;
px_qte_ln_shipment_tbl(y).operation_code := g_aso_op_code_delete;
px_qte_line_dtl_tbl(z).operation_code := g_aso_op_code_delete;
PROCEDURE update_quote_from_k( p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2
,p_quote_id IN OKX_QUOTE_HEADERS_V.ID1%TYPE
,p_contract_id IN OKC_K_HEADERS_B.ID%TYPE
,p_trace_mode IN VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
)
IS
-- standard api variables
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_Q_FROM_K';
l_quote_line_tab.DELETE;
l_quote_line_dtl_tab.DELETE;
l_quote_hd_shipment_tab.DELETE;
l_quote_ln_shipment_tab.DELETE;
l_k2q_line_rel_tab.DELETE;
l_line_rltship_tab.DELETE;
x_line_rltship_tab.DELETE;
l_quote_hd_sales_credit_tab.DELETE;
l_quote_ln_sales_credit_tab.DELETE;
l_quote_price_adj_tab.DELETE;
l_quote_ln_price_adj_tab.DELETE;
l_quote_price_adj_attr_tab.DELETE;
l_quote_ln_price_adj_attr_tab.DELETE;
l_quote_price_adj_rltship_tab.DELETE;
l_qt_ln_price_adj_rltship_tab.DELETE;
l_quote_ln_price_attr_tab.DELETE;
l_quote_hd_price_attr_tab.DELETE;
okc_util.print_trace(1,'DISPLAYING THE PRICING PL/SQL TABLE INFO BEFORE CALLING UPDATE QUOTE');
l_control_rec.last_update_date := sysdate;
okc_util.print_trace(1, '>START - ******* aso_quote_pub.UPDATE_QUOTE -');
aso_quote_pub.update_quote(p_api_version_number => l_aso_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,p_control_rec => l_control_rec
--
,p_qte_header_rec => l_quote_header_rec
--
,p_hd_price_attributes_tbl => l_quote_hd_price_attr_tab
,p_hd_payment_tbl => l_hd_payment_tbl
,p_hd_shipment_tbl => l_quote_hd_shipment_tab
,p_hd_freight_charge_tbl => l_hd_freight_charge_tbl
,p_hd_tax_detail_tbl => l_hd_tax_detail_tbl
--
,p_hd_attr_ext_tbl => l_hd_attr_ext_tbl
,p_hd_sales_credit_tbl => l_quote_hd_sales_credit_tab
,p_hd_quote_party_tbl => l_hd_quote_party_tbl
--
,p_qte_line_tbl => l_quote_line_tab
,p_qte_line_dtl_tbl => l_quote_line_dtl_tab
--
,p_line_attr_ext_tbl => l_line_attr_ext_tbl
,p_line_rltship_tbl => l_line_rltship_tab
--
,p_price_adjustment_tbl => l_quote_price_adj_tab
,p_price_adj_attr_tbl => l_quote_price_adj_attr_tab
,p_price_adj_rltship_tbl => l_quote_price_adj_rltship_tab
,p_ln_price_attributes_tbl => l_quote_ln_price_attr_tab
--
,p_ln_payment_tbl => l_ln_payment_tbl
,p_ln_shipment_tbl => l_quote_ln_shipment_tab
,p_ln_freight_charge_tbl => l_hd_freight_charge_tbl
,p_ln_tax_detail_tbl => l_ln_tax_detail_tbl
--
,p_ln_sales_credit_tbl => l_quote_ln_sales_credit_tab
,p_ln_quote_party_tbl => l_ln_quote_party_tbl
--
,x_qte_header_rec => lx_qte_header_rec
,x_qte_line_tbl => lx_qte_line_tbl
,x_qte_line_dtl_tbl => lx_qte_line_dtl_tbl
--
,x_hd_price_attributes_tbl => lx_hd_price_attributes_tbl
,x_hd_payment_tbl => lx_hd_payment_tbl
,x_hd_shipment_tbl => lx_hd_shipment_tbl
,x_hd_freight_charge_tbl => lx_hd_freight_charge_tbl
,x_hd_tax_detail_tbl => lx_hd_tax_detail_tbl
--
,x_hd_attr_ext_tbl => lx_hd_attr_ext_tbl
,x_hd_sales_credit_tbl => lx_hd_sales_credit_tab
,x_hd_quote_party_tbl => lx_hd_quote_party_tbl
--
,x_line_attr_ext_tbl => lx_line_attr_ext_tbl
,x_line_rltship_tbl => lx_line_rltship_tbl
--
,x_price_adjustment_tbl => lx_price_adjustment_tbl
,x_price_adj_attr_tbl => lx_price_adj_attr_tbl
,x_price_adj_rltship_tbl => lx_price_adj_rltship_tbl
--
,x_ln_price_attributes_tbl => lx_ln_price_attributes_tbl
--
,x_ln_payment_tbl => lx_ln_payment_tbl
,x_ln_shipment_tbl => lx_ln_shipment_tbl
,x_ln_freight_charge_tbl => lx_ln_freight_charge_tbl
,x_ln_tax_detail_tbl => lx_ln_tax_detail_tbl
--
,x_ln_sales_credit_tbl => lx_ln_sales_credit_tab
,x_ln_quote_party_tbl => lx_ln_quote_party_tbl
--
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
);
okc_util.print_trace(1, '
--SELECT DECODE(lx_qte_header_rec.creation_date, fnd_api.g_miss_date,
-- TRUNC(l_control_rec.last_update_date),
-- lx_qte_header_rec.creation_date)
--INTO lx_qte_header_rec.creation_date
--FROM DUAL;
FND_MSG_PUB.Delete_Msg ( p_msg_index => x_msg_count);
FND_MSG_PUB.Delete_Msg ( p_msg_index => x_msg_count);
FND_MSG_PUB.Delete_Msg ( p_msg_index => x_msg_count);
FND_MSG_PUB.Delete_Msg ( p_msg_index => x_msg_count);
END update_quote_from_k;