This discussion is archived
1 Reply Latest reply: Aug 22, 2013 7:25 AM by PAMPANA RSS

Unable to Create Project Contract  from back end (R12)

967001 Newbie
Currently Being Moderated
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 Newbie
    Currently Being Moderated

    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;

     

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

Legend

  • Correct Answers - 10 points
  • Helpful Answers - 5 points