1 Reply Latest reply: Aug 22, 2013 9:25 AM by PAMPANA RSS

    Unable to Create Project Contract  from back end (R12)

    967001
      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.
        • 1. Re: Unable to Create Project Contract  from back end (R12)
          PAMPANA

          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;

           

          =============================================================================================