Unable to Create Project Contract from back end (R12)

Question

Hello,
I am trying to create project contract using following code:
DECLARE
lv_return_status VARCHAR2 ( 1000 );
ln_msg_count NUMBER;
lv_msg_data VARCHAR2 ( 1000 );
l1 oke_import_contract_pub.chr_rec_type;
l2 oke_import_contract_pub.chr_rec_type;
error_message VARCHAR2 ( 3000 );
v_msg_index_out NUMBER;
BEGIN
l1.project_id := 3188;
l1.prime_k_number := 'PRJ-CNV-10016';
l1.owning_organization_id := 365;
l1.start_date := SYSDATE;
l1.inv_organization_id := 364;
l1.authoring_org_id := 82;
l1.k_type_code := 'MIPR';
l1.sts_code :='E';
l1.template_yn:='N';
l1.currency_code:='USD';
oke_import_contract_pub.create_contract_header (
p_api_version => '1.0'
, p_init_msg_list => oke_api.g_false
, p_ignore_oke_validation => 'N'
, x_return_status => lv_return_status
, x_msg_count => ln_msg_count
, x_msg_data => lv_msg_data
, p_chr_rec => l1
, x_chr_rec => l2
IF ln_msg_count > 0 THEN
FOR v_index IN 1 .. ln_msg_count
LOOP
fnd_msg_pub.get (
p_msg_index => v_index
, p_encoded => 'F'
, p_data => error_message
, p_msg_index_out => v_msg_index_out
DBMS_OUTPUT.put_line ('ERROR:' || error_message );
END LOOP;
END IF;
END;
The output results in following error: ERROR:You cannot save this entry before saving the header entry. (COL_NAME=sts_code) (CHILD_TABLE=OKC_K_HEADERS_V) (PARENT_TABLE=OKC_STATUSES_V)
Anybody has used this API or knows other method of creating oracle contract please help.
Thanks in advance.

Answer 1

Hi,
How are you. I am currently working on the Project contracts conversion, as in the process of understanding the API's, i have provided some static data to create contract headers, lines and Billing method API's.
When i execute it, i could able to create the contract header but at line level i get the following errors .  I don't understand this error "OKE_NO_PARENT_RECORD (COL_NAME=billing_method_code) (CHILD_TABLE=OKE_K_LINES_V) (PARENT_TABLE=OKE_K_BILLING_METHODS)"
Could you please help me in sending your script.
thanks
Ravi.
The original contract number:4100401462_9886546
Contract header id:875449
Contract header number:4100401462_9886546
Return Status  S
l_msg_count    0
l_msg_data    
Return Status  S
l_msg_count    0
l_msg_data    
Inventory_item_id for 5498563-79  is -->1285587
1. Value for INVENTORY_ITEM_ID is invalid.
2. OKE_NO_PARENT_RECORD (COL_NAME=billing_method_code) (CHILD_TABLE=OKE_K_LINES_V) (PARENT_TABLE=OKE_K_BILLING_METHODS)
Return Status  E
l_msg_count    2
l_msg_data    
Inventory_item_id for 5498563-9  is -->1285589
1. Value for INVENTORY_ITEM_ID is invalid.
2. OKE_NO_PARENT_RECORD (COL_NAME=billing_method_code) (CHILD_TABLE=OKE_K_LINES_V) (PARENT_TABLE=OKE_K_BILLING_METHODS)
Return Status  E
l_msg_count    2
l_msg_data    
Inventory_item_id for 7104853-1  is -->1306099
1. Value for INVENTORY_ITEM_ID is invalid.
2. OKE_NO_PARENT_RECORD (COL_NAME=billing_method_code) (CHILD_TABLE=OKE_K_LINES_V) (PARENT_TABLE=OKE_K_BILLING_METHODS)
Return Status  E
l_msg_count    2
l_msg_data    
PL/SQL procedure successfully completed.
The following is the test script
========================================================
declare
gr_xxoke_l_chr_rec            xxoke_header%ROWTYPE;
type gt_xxoke_header          is table of xxoke_header%rowtype              index by binary_integer;
l_api_version                 number        := 1.0;
l_init_msg_list               varchar2(20)  := oke_api.g_true;
l_ignore_oke_validation       varchar2(1)   := xx_common.gc_yes;
l_return_status               varchar2(20)  := xx_common.g_null;
l_msg_count                   number        := xx_common.gn_zero;
l_msg_data                    varchar2(500) := xx_common.g_null;
--l_chr_rec                     xxoke_header%ROWTYPE;
l_chr_rec                     oke_import_contract_pub.chr_rec_type;
r_chr_rec                     oke_import_contract_pub.chr_rec_type;
--r_chr_rec                     xxoke_header%ROWTYPE;
l_cle_rec                     oke_import_contract_pub.cle_rec_type;  --xxoke_lines%ROWTYPE;
r_cle_rec                     oke_import_contract_pub.cle_rec_type;  --xxoke_lines%ROWTYPE;
bill_tbl                      OKE_IMPORT_CONTRACT_PUB.bill_tbl_type;
l_inventory_item_id           number;
cursor c_head is
select
  k_header_id
, contract_number_modifier
, k_number
, buy_or_sell
, currency_code
, status
, status_code
, scs_code
, start_date
, end_date
, owning_organization
, owning_organization_id
, authoring_org
--, esitmated_amount
, date_approved
, short_description
, comments
, description
--, cognomen
, template_yn
--, archived_yn
--, deleted_yn
, customer_po_number
, program_id
, program_number
, project_id
, project_description
, project_name
, project_number
, project_organization
, boa_id
, boa_number
, k_type_code
, priority_code
, prime_k_alias
, prime_k_number
, authorize_date
, authorizing_reason
, award_cancel_date
, date_definitized
, date_issued
, date_negotiated
, date_received
, date_sign_by_contractor
, date_sign_by_customer
, faa_approve_date
, faa_reject_date
, booked_flag
, open_flag
, cfe_flag
, vat_code
, country_of_origin_code
, export_flag
, human_subject_flag
, cqa_flag
, interim_rpt_req_flag
, no_competition_authorize
, penalty_clause_flag
, product_line_code
, reporting_flag
, sb_plan_req_flag
, sb_report_flag
, nte_amount
, nte_warning_flag
, bill_without_def_flag
, cas_flag
, classified_flag
, client_approve_req_flag
, cost_of_money
, dcaa_audit_req_flag
, cost_share_flag
, oh_rates_final_flag
, prop_delivery_location
, prop_due_date_time
, prop_expire_date
, copies_required
, sic_code
, tech_data_wh_rate
, progress_payment_flag
, progress_payment_liq_rate
, progress_payment_rate
, alternate_liquidation_rate
, definitized_flag
, financial_ctrl_verified_flag
, prop_due_time
, line_value_total
, undef_line_value_total
--, sfwt_flag
--,chr_id_response   
--,chr_id_award 
--,chr_id_renewed 
--, contract_number
, chr_type
, trn_code
, authoring_org_id
, issue_or_receive
from oke_k_headers_full_v@testlink
WHERE k_header_id = 608283;
cursor c_line (l_header_id in number) is
select
k_line_id
,parent_line_id
,project_id
,project_name
,project_number
,project_organization
,task_id
,task_number
,task_name
,task_description
,billing_method_code
,inventory_item_id
,item_number
,item_description
,delivery_order_flag
,splited_flag
,priority_code
,customer_item_id
,customer_item_number
,line_quantity
,delivery_date
,unit_price
,uom_code
,billable_flag
,shippable_flag
,subcontracted_flag
,completed_flag
,nsp_flag
,app_code
,as_of_date
,authority
,country_of_origin_code
,drop_shipped_flag
,customer_approval_req_flag
,date_material_req
,inspection_req_flag
,interim_rpt_req_flag
,subj_a133_flag
,export_flag
,cfe_flag
,cop_required_flag
,export_license_num
,export_license_res
,copies_required
,cdrl_category
,data_item_name
,data_item_subtitle
,date_of_first_submission
,frequency
,requiring_office
,dcaa_audit_req_flag
,definitized_flag
,cost_of_money
,bill_undefinitized_flag
,nsn_number
,nte_warning_flag
,discount_for_payment
,financial_ctrl_flag
,c_scs_flag
,c_ssr_flag
,prepayment_amount
,prepayment_percentage
,progress_payment_flag
,progress_payment_liq_rate
,progress_payment_rate
,award_fee
,award_fee_pool_amount
,base_fee
,ceiling_cost
,ceiling_price
,labor_cost_index
,material_cost_index
,customer_percent_in_order
,cost_overrun_share_ratio
,cost_underrun_share_ratio
,date_of_price_redetermin
,estimated_total_quantity
,fee_ajt_formula
,final_fee
,fixed_quantity
,initial_fee
,initial_price
,level_of_effort_hours
,line_liquidation_rate
,maximum_fee
,maximum_quantity
,minimum_fee
,minimum_quantity
,number_of_options
,revised_price
,target_cost
,target_date_definitize
,target_fee
,target_price
,total_estimated_cost
,proposal_due_date
,cost_of_sale_rate
,line_value
,line_value_total
,undef_line_value
,undef_unit_price
,undef_line_value_total
,object_version_number
,sfwt_flag
--,chr_id 
--,cle_id 
--,cle_id_renewed
--,cle_id_renewed_to
,lse_id
,line_number
,display_sequence
,trn_code
--,dnz_chr_id
,comments
,boe_description
--,hidden_ind
--,price_unit_percent
--,price_negotiated
--,price_negotiated_renewed
--,price_level_ind
--,invoice_line_level_ind
--,dpas_rating
--,block23text
--,exception_yn
--,template_used
--,date_terminated
--,name
,start_date
,end_date
--,upg_orig_system_ref
--,upg_orig_system_ref_id
,attribute_category
,attribute1 
,attribute2
,attribute3 
,attribute4
,attribute5
,attribute6
,attribute7  
,attribute8 
,attribute9 
,attribute10
,attribute11
,attribute12
,attribute13 
,attribute14
,attribute15
--,price_type
--,currency_code
--,currency_code_renewed
,created_by   
,creation_date
,last_updated_by
,last_update_login
,last_update_date
from  oke_k_lines_full_v@testlink
where header_id = l_header_id
order by line_number;
l_seq_num                    number;
begin
for r_head in c_head loop
select xxtest_conversion_s.nextval
into l_seq_num
from dual;
l_chr_rec.contract_number:= r_head.k_number||'_'||l_seq_num;
dbms_output.put_line('The original contract number:' || l_chr_rec.contract_number );
l_chr_rec.buy_or_sell                   := r_head.buy_or_sell;
l_chr_rec.currency_code                 := r_head.currency_code;
l_chr_rec.sts_code                      := upper(r_head.status_code);
l_chr_rec.scs_code                      := r_head.scs_code;
l_chr_rec.start_date                    := r_head.start_date;
l_chr_rec.end_date                      := r_head.end_date;
l_chr_rec.inv_organization_id           := 91;  --r_head.owning_organization_id;
l_chr_rec.authoring_org_id              := 82;  --r_head.authoring_org_id;
--l_chr_rec.estimated_amount              := r_head. 5000000;
l_chr_rec.date_approved                 := r_head.date_approved;
l_chr_rec.short_description             := r_head.short_description;
l_chr_rec.comments                      := r_head.comments;
l_chr_rec.description                   := r_head.description;
--l_chr_rec.cognomen                      := r_head. 'Test Contract Alias';
l_chr_rec.template_yn                   := r_head.template_yn;
--l_chr_rec.archived_yn                   := r_head. 'N';
--l_chr_rec.deleted_yn                    := r_head. 'N';
l_chr_rec.cust_po_number                := r_head.customer_po_number;
l_chr_rec.program_id                    := 1035; --r_head.program_id;
l_chr_rec.project_id                    := 158017; --r_head.project_id;
l_chr_rec.boa_id                        := r_head.boa_id;
l_chr_rec.k_type_code                   := 'Award'; ---r_head.k_type_code;
l_chr_rec.priority_code                 := r_head.priority_code;
l_chr_rec.prime_k_alias                 := r_head.prime_k_alias;
l_chr_rec.prime_k_number                := r_head.prime_k_number;
l_chr_rec.authorize_date                := r_head.authorize_date;
l_chr_rec.authorizing_reason            := r_head.authorizing_reason;
l_chr_rec.award_cancel_date             := r_head.award_cancel_date;
--l_chr_rec.award_date                    := r_head.  sysdate - 16;
l_chr_rec.date_definitized              := r_head.date_definitized;
l_chr_rec.date_issued                   := r_head.date_issued;
l_chr_rec.date_negotiated               := r_head.date_negotiated;
l_chr_rec.date_received                 := r_head.date_received;
l_chr_rec.date_sign_by_contractor       := r_head.date_sign_by_contractor;
l_chr_rec.date_sign_by_customer         := r_head.date_sign_by_customer;
l_chr_rec.faa_approve_date              := r_head.faa_approve_date;
l_chr_rec.faa_reject_date               := r_head.faa_reject_date;
-- l_chr_rec.booked_flag                := gr_xxoke_l_chr_rec NULL;
-- l_chr_rec.open_flag                  := gr_xxoke_l_chr_rec NULL;
l_chr_rec.cfe_flag                      := r_head.cfe_flag;
l_chr_rec.vat_code                      := r_head.vat_code;
l_chr_rec.country_of_origin_code        := r_head.country_of_origin_code;
l_chr_rec.export_flag                   := r_head.export_flag;
l_chr_rec.human_subject_flag            := r_head.human_subject_flag;
l_chr_rec.cqa_flag                      := r_head.cqa_flag;
l_chr_rec.interim_rpt_req_flag          := r_head.interim_rpt_req_flag;
l_chr_rec.no_competition_authorize      := r_head.no_competition_authorize;
l_chr_rec.penalty_clause_flag           := r_head.penalty_clause_flag;
l_chr_rec.product_line_code             := 'CONTRACT MFG'; --r_head.product_line_code;
l_chr_rec.reporting_flag                := r_head.reporting_flag;
l_chr_rec.sb_plan_req_flag              := r_head.sb_plan_req_flag;
l_chr_rec.sb_report_flag                := r_head.sb_report_flag;
l_chr_rec.nte_amount                    := r_head.nte_amount;
l_chr_rec.nte_warning_flag              := r_head.nte_warning_flag;
l_chr_rec.bill_without_def_flag         := r_head.bill_without_def_flag;
l_chr_rec.cas_flag                      := r_head.cas_flag;
l_chr_rec.classified_flag               := r_head.classified_flag;
l_chr_rec.client_approve_req_flag       := r_head.client_approve_req_flag;
l_chr_rec.cost_of_money                 := r_head.cost_of_money;
l_chr_rec.dcaa_audit_req_flag           := r_head.dcaa_audit_req_flag;
l_chr_rec.cost_share_flag               := r_head.cost_share_flag;
l_chr_rec.oh_rates_final_flag           := r_head.oh_rates_final_flag;
l_chr_rec.prop_delivery_location        := r_head.prop_delivery_location;
l_chr_rec.prop_due_date_time            := r_head.prop_due_date_time;
l_chr_rec.prop_expire_date              := r_head.prop_expire_date;
l_chr_rec.copies_required               := r_head.copies_required;
l_chr_rec.sic_code                      := r_head.sic_code;
l_chr_rec.tech_data_wh_rate             := r_head.tech_data_wh_rate;
l_chr_rec.progress_payment_flag         := r_head.progress_payment_flag;
l_chr_rec.progress_payment_liq_rate     := r_head.progress_payment_liq_rate;
l_chr_rec.progress_payment_rate         := r_head.progress_payment_rate;
l_chr_rec.alternate_liquidation_rate    := r_head.alternate_liquidation_rate;
-- l_chr_rec.prop_due_time              := r_head. NULL;
l_chr_rec.definitized_flag              := r_head.definitized_flag;
l_chr_rec.financial_ctrl_verified_flag  := r_head.financial_ctrl_verified_flag;
--l_chr_rec.cost_of_sale_rate             := r_head. 0.1;
oke_import_contract_pub.create_contract_header(  p_api_version                  => l_api_version
                                               , p_init_msg_list                => l_init_msg_list
                                               , p_ignore_oke_validation        => l_ignore_oke_validation
                                               , x_return_status                => l_return_status
                                               , x_msg_count                    => l_msg_count
                                               , x_msg_data                     => l_msg_data
                                               , p_chr_rec                            => l_chr_rec
                                               , x_chr_rec                            => r_chr_rec
FOR I IN 1..l_msg_count
LOOP
  dbms_output.put_line ( I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));
END LOOP;
dbms_output.put_line('Contract header id:'|| r_chr_rec.k_header_id);
dbms_output.put_line('Contract header number:'|| r_chr_rec.contract_number);
dbms_output.put_line('Return Status  '||l_return_status);
dbms_output.put_line('l_msg_count    '||l_msg_count);
dbms_output.put_line('l_msg_data     '||l_msg_data);
bill_tbl(1).k_header_id           := r_chr_rec.k_header_id;
bill_tbl(1).billing_method_code   := 'Mixed';
--bill_tbl(2).k_header_id           := r_chr_rec.k_header_id;
--bill_tbl(2).billing_method_code   := 'Cost Plus';
OKE_IMPORT_CONTRACT_PUB.define_billing_methods(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_bill_tbl         => bill_tbl
FOR I IN 1..l_msg_count
LOOP
  dbms_output.put_line ( I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));
END LOOP;
dbms_output.put_line('Return Status  '||l_return_status);
dbms_output.put_line('l_msg_count    '||l_msg_count);
dbms_output.put_line('l_msg_data     '||l_msg_data);
for r_line in c_line (r_head.k_header_id) loop
--------CREATE A TOP LINE -----------------
    -- validate inventory item
  begin
    select inventory_item_id
    into l_inventory_item_id
    from mtl_system_items_b
    where segment1 = r_line.item_number
    and organization_id = 91;
  exception
   when others then
   dbms_output.put_line('Error in deriving the inventory_item_id:'|| substr(sqlerrm,1,500));
  end;
  dbms_output.put_line('Inventory_item_id for '||r_line.item_number|| '  is -->' ||l_inventory_item_id);
l_cle_rec.k_line_id                          := null;
l_cle_rec.parent_line_id                    :=  null;
l_cle_rec.project_id                          := 158017; --r_line.project_id;
l_cle_rec.task_id                            := null; --r_line.task_id;
l_cle_rec.billing_method_code              := 'Mixed';
l_cle_rec.inventory_item_id                := l_inventory_item_id;
l_cle_rec.delivery_order_flag              := r_line.delivery_order_flag;
l_cle_rec.splited_flag                        := r_line.splited_flag;
l_cle_rec.priority_code                      := r_line.priority_code;
l_cle_rec.customer_item_id                  :=  r_line.customer_item_id;
l_cle_rec.customer_item_number           := r_line.customer_item_number;
l_cle_rec.line_quantity                      := r_line.line_quantity;
l_cle_rec.delivery_date                      := r_line.delivery_date;
l_cle_rec.unit_price                          := r_line.unit_price;
l_cle_rec.uom_code                            := r_line.uom_code;
l_cle_rec.billable_flag                      := r_line.billable_flag;
l_cle_rec.shippable_flag                    := r_line.shippable_flag;
l_cle_rec.subcontracted_flag             := r_line.subcontracted_flag;
l_cle_rec.completed_flag                    := r_line.completed_flag;
l_cle_rec.nsp_flag                            := r_line.nsp_flag;
l_cle_rec.app_code                            := r_line.app_code;
l_cle_rec.as_of_date                          := r_line.as_of_date;
l_cle_rec.authority                          := r_line.authority;
l_cle_rec.country_of_origin_code         := r_line.country_of_origin_code;
l_cle_rec.drop_shipped_flag                := r_line.drop_shipped_flag;
l_cle_rec.customer_approval_req_flag     := r_line.customer_approval_req_flag;
l_cle_rec.date_material_req                := r_line.date_material_req;
l_cle_rec.inspection_req_flag              := r_line.inspection_req_flag;
l_cle_rec.interim_rpt_req_flag              := r_line.interim_rpt_req_flag;
l_cle_rec.subj_a133_flag                    := r_line.subj_a133_flag;
l_cle_rec.export_flag                        := r_line.export_flag;
l_cle_rec.cfe_req_flag                        := r_line.cfe_flag;
l_cle_rec.cop_required_flag                := r_line.cop_required_flag;
l_cle_rec.export_license_num                := r_line.export_license_num;
l_cle_rec.export_license_res             := r_line.export_license_res;
l_cle_rec.copies_required                  := r_line.copies_required;
l_cle_rec.cdrl_category                      := r_line.cdrl_category;
l_cle_rec.data_item_name                    := r_line.data_item_name;
l_cle_rec.data_item_subtitle                := r_line.data_item_subtitle;
l_cle_rec.date_of_first_submission       := r_line.date_of_first_submission;
l_cle_rec.frequency                          := r_line.frequency;
l_cle_rec.requiring_office                  := r_line.requiring_office;
l_cle_rec.dcaa_audit_req_flag              := r_line.dcaa_audit_req_flag;
l_cle_rec.definitized_flag                  := r_line.definitized_flag;
l_cle_rec.cost_of_money                      := r_line.cost_of_money;
l_cle_rec.bill_undefinitized_flag        := r_line.bill_undefinitized_flag;
l_cle_rec.nsn_number                          := r_line.nsn_number;
l_cle_rec.nte_warning_flag                  := r_line.nte_warning_flag;
l_cle_rec.discount_for_payment              := r_line.discount_for_payment;
l_cle_rec.financial_ctrl_flag              := r_line.financial_ctrl_flag;
l_cle_rec.c_scs_flag                          := r_line.c_scs_flag;
l_cle_rec.c_ssr_flag                          := r_line.c_ssr_flag;
l_cle_rec.prepayment_amount                := r_line.prepayment_amount;
l_cle_rec.prepayment_percentage          := r_line.prepayment_percentage;
l_cle_rec.progress_payment_flag          := r_line.progress_payment_flag;
l_cle_rec.progress_payment_liq_rate      := r_line.progress_payment_liq_rate;
l_cle_rec.progress_payment_rate          := r_line.progress_payment_rate;
l_cle_rec.award_fee                          := r_line.award_fee;
l_cle_rec.award_fee_pool_amount          := r_line.award_fee_pool_amount;
l_cle_rec.base_fee                            := r_line.base_fee;
l_cle_rec.ceiling_cost                        := r_line.ceiling_cost;
l_cle_rec.ceiling_price                      := r_line.ceiling_price;
l_cle_rec.labor_cost_index                  := r_line.labor_cost_index;
l_cle_rec.material_cost_index              := r_line.material_cost_index;
l_cle_rec.customers_percent_in_order     := r_line.cost_underrun_share_ratio;
l_cle_rec.cost_overrun_share_ratio          := r_line.date_of_price_redetermin;
l_cle_rec.cost_underrun_share_ratio        := r_line.cost_underrun_share_ratio;
l_cle_rec.date_of_price_redetermin       := r_line.date_of_price_redetermin;
l_cle_rec.estimated_total_quantity       := r_line.estimated_total_quantity;
l_cle_rec.fee_ajt_formula                  := r_line.fee_ajt_formula;
l_cle_rec.final_fee                          := r_line.final_fee;
--l_cle_rec.final_pft_ajt_formula          := r_line.final_pft_ajt_formula;
--l_cle_rec.fixed_fee                          := r_line.fixed_fee;
l_cle_rec.fixed_quantity                    := r_line.fixed_quantity;
l_cle_rec.initial_fee                        := r_line.initial_fee;
l_cle_rec.initial_price                      := r_line.initial_price;
l_cle_rec.level_of_effort_hours          := r_line.level_of_effort_hours;
l_cle_rec.line_liquidation_rate          := r_line.line_liquidation_rate;
l_cle_rec.maximum_fee                        := r_line.maximum_fee;
l_cle_rec.maximum_quantity                  := r_line.maximum_quantity;
l_cle_rec.minimum_fee                        := r_line.minimum_fee;
l_cle_rec.minimum_quantity                  := r_line.minimum_quantity;
l_cle_rec.number_of_options                := r_line.number_of_options;
l_cle_rec.revised_price                      := r_line.revised_price;
l_cle_rec.target_cost                        := r_line.target_cost;
l_cle_rec.target_date_definitize         := r_line.target_date_definitize;
l_cle_rec.target_fee                        := r_line.target_fee;
l_cle_rec.target_price                        := r_line.target_price;
l_cle_rec.total_estimated_cost           := r_line.total_estimated_cost;
l_cle_rec.proposal_due_date                := r_line.proposal_due_date;
l_cle_rec.cost_of_sale_rate                := r_line.cost_of_sale_rate;
l_cle_rec.line_value                          := r_line.line_value;
l_cle_rec.line_value_total                  := r_line.line_value_total;
l_cle_rec.UNDEF_UNIT_PRICE                  := r_line.UNDEF_UNIT_PRICE;
l_cle_rec.UNDEF_LINE_VALUE                  := r_line.UNDEF_LINE_VALUE;
l_cle_rec.UNDEF_LINE_VALUE_TOTAL         := r_line.UNDEF_LINE_VALUE_TOTAL;
l_cle_rec.object_version_number          := r_line.object_version_number;
l_cle_rec.sfwt_flag                      := r_line.sfwt_flag;
l_cle_rec.chr_id                         := r_chr_rec.k_header_id;
--l_cle_rec.cle_id                         := r_line.cle_id;
--l_cle_rec.cle_id_renewed                 := r_line.cle_id_renewed;
--l_cle_rec.cle_id_renewed_to                  := r_line.cle_id_renewed_to;
l_cle_rec.lse_id                         := r_line.lse_id;
l_cle_rec.line_number                    := r_line.line_number;
l_cle_rec.sts_code                       := r_head.status_code;  --r_line.sts_code;
l_cle_rec.display_sequence               := r_line.display_sequence;
l_cle_rec.trn_code                       := r_line.trn_code;
l_cle_rec.dnz_chr_id                     := r_chr_rec.k_header_id;
l_cle_rec.comments                       := r_line.comments;
l_cle_rec.item_description               := r_line.item_description;
l_cle_rec.oke_boe_description            := r_line.boe_description;
--l_cle_rec.hidden_ind                     := r_line.hidden_ind;
--l_cle_rec.price_unit                            := r_line.price_unit;
--l_cle_rec.price_unit_percent                  := r_line.price_unit_percent;
--l_cle_rec.price_negotiated               := r_line.price_negotiated;
--l_cle_rec.price_negotiated_renewed       := r_line.price_negotiated_renewed;
--l_cle_rec.price_level_ind                := r_line.price_level_ind;
--l_cle_rec.invoice_line_level_ind         := r_line.invoice_line_level_ind;
--l_cle_rec.dpas_rating                    := r_line.dpas_rating;
--l_cle_rec.block23text                    := r_line.block23text;
l_cle_rec.exception_yn                   := 'N'; --r_line.exception_yn;
--l_cle_rec.template_used                  := r_line.template_used;
--l_cle_rec.date_terminated                := r_line.date_terminated;
--l_cle_rec.name                           := r_line.name;
l_cle_rec.start_date                     := r_line.start_date;
l_cle_rec.end_date                       := r_line.end_date;
--l_cle_rec.upg_orig_system_ref            := r_line.upg_orig_system_ref;
--l_cle_rec.upg_orig_system_ref_id         := r_line.upg_orig_system_ref_id;
l_cle_rec.attribute_category             := r_line.attribute_category;
l_cle_rec.attribute1                     := r_line.attribute1;
l_cle_rec.attribute2                     := r_line.attribute2;
l_cle_rec.attribute3                     := r_line.attribute3;
l_cle_rec.attribute4                     := r_line.attribute4;
l_cle_rec.attribute5                     := r_line.attribute5;
l_cle_rec.attribute6                     := r_line.attribute6;
l_cle_rec.attribute7                     := r_line.attribute7;
l_cle_rec.attribute8                     := r_line.attribute8;
l_cle_rec.attribute9                     := r_line.attribute9;
l_cle_rec.attribute10                    := r_line.attribute10;
l_cle_rec.attribute11                    := r_line.attribute11;
l_cle_rec.attribute12                    := r_line.attribute12;
l_cle_rec.attribute13                    := r_line.attribute13;
l_cle_rec.attribute14                    := r_line.attribute14;
l_cle_rec.attribute15                    := r_line.attribute15;
--l_cle_rec.price_type                     := r_line.price_type;
--l_cle_rec.currency_code                  := r_line.currency_code;
--l_cle_rec.currency_code_renewed             := r_line.currency_code_renewed;
l_cle_rec.created_by                       := r_line.created_by;
l_cle_rec.creation_date                       := r_line.creation_date;
l_cle_rec.last_updated_by                   := r_line.last_updated_by;
l_cle_rec.last_update_login                 := r_line.last_update_login;
l_cle_rec.last_update_date               := r_line.last_update_date;
oke_import_contract_pub.create_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                    => l_msg_count
                                              ,x_msg_data                     => l_msg_data
                                              ,p_cle_rec                            => l_cle_rec
                                              ,x_cle_rec                            => r_cle_rec
            FOR I IN 1..l_msg_count
            LOOP
              dbms_output.put_line ( I||'. '||SubStr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));
            END LOOP;
            dbms_output.put_line('Return Status  '||l_return_status);
            dbms_output.put_line('l_msg_count    '||l_msg_count);
            dbms_output.put_line('l_msg_data     '||l_msg_data);   
end loop;
end loop;
end;
=============================================================================================