[Home] [Help]
4357: CURSOR l_orig_ast_csr(p_orig_lnk_cle_id IN NUMBER,
4358: p_new_chr_id IN NUMBER) IS
4359: SELECT new_cle.id
4360: FROM OKC_K_LINES_B new_cle,
4361: OKC_K_ITEMS orig_lnk_cim
4362: WHERE new_cle.ORIG_SYSTEM_ID1 = to_number(orig_lnk_cim.object1_id1)
4363: AND new_cle.chr_id = p_new_chr_id
4364: AND orig_lnk_cim.cle_id = p_orig_lnk_cle_id
4365: AND not exists (select null
5513: TYPE l_okl_k_lines_rec_tab IS TABLE OF l_okl_k_lines_rec_type
5514: INDEX BY BINARY_INTEGER;
5515: -- For okl_k_lines whole record
5516:
5517: -- For okc_k_items whole record
5518: TYPE l_okc_k_items_rec_type IS RECORD (
5519: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5520: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5521: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5514: INDEX BY BINARY_INTEGER;
5515: -- For okl_k_lines whole record
5516:
5517: -- For okc_k_items whole record
5518: TYPE l_okc_k_items_rec_type IS RECORD (
5519: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5520: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5521: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5522: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5515: -- For okl_k_lines whole record
5516:
5517: -- For okc_k_items whole record
5518: TYPE l_okc_k_items_rec_type IS RECORD (
5519: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5520: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5521: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5522: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5523: );
5516:
5517: -- For okc_k_items whole record
5518: TYPE l_okc_k_items_rec_type IS RECORD (
5519: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5520: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5521: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5522: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5523: );
5524: TYPE l_okc_k_items_rec_tab IS TABLE OF l_okc_k_items_rec_type INDEX BY BINARY_INTEGER;
5517: -- For okc_k_items whole record
5518: TYPE l_okc_k_items_rec_type IS RECORD (
5519: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5520: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5521: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5522: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5523: );
5524: TYPE l_okc_k_items_rec_tab IS TABLE OF l_okc_k_items_rec_type INDEX BY BINARY_INTEGER;
5525: -- For okc_k_items whole record
5518: TYPE l_okc_k_items_rec_type IS RECORD (
5519: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5520: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5521: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5522: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5523: );
5524: TYPE l_okc_k_items_rec_tab IS TABLE OF l_okc_k_items_rec_type INDEX BY BINARY_INTEGER;
5525: -- For okc_k_items whole record
5526:
5520: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5521: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5522: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5523: );
5524: TYPE l_okc_k_items_rec_tab IS TABLE OF l_okc_k_items_rec_type INDEX BY BINARY_INTEGER;
5525: -- For okc_k_items whole record
5526:
5527:
5528: TYPE l_bid_mapping_type IS RECORD (old_id okc_k_lines_b.id%TYPE := OKC_API.G_MISS_NUM, new_id okc_k_lines_tl.name%TYPE := OKC_API.G_MISS_CHAR);
5521: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5522: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5523: );
5524: TYPE l_okc_k_items_rec_tab IS TABLE OF l_okc_k_items_rec_type INDEX BY BINARY_INTEGER;
5525: -- For okc_k_items whole record
5526:
5527:
5528: TYPE l_bid_mapping_type IS RECORD (old_id okc_k_lines_b.id%TYPE := OKC_API.G_MISS_NUM, new_id okc_k_lines_tl.name%TYPE := OKC_API.G_MISS_CHAR);
5529: TYPE l_cle_lse_mapping_type IS RECORD (cle_id okc_k_lines_b.id%TYPE := OKC_API.G_MISS_NUM, lse_id NUMBER := OKC_API.G_MISS_NUM, id okc_k_lines_b.id%TYPE := OKC_API.G_MISS_NUM);
5538: TYPE l_id_mapping_type IS RECORD (old_id okc_k_lines_b.id%TYPE := OKC_API.G_MISS_NUM, new_id okc_k_lines_b.id%TYPE := OKC_API.G_MISS_NUM);
5539: TYPE l_orig_system_rec_type IS RECORD (orig_system_id1 okc_k_lines_b.orig_system_id1%TYPE := OKC_API.G_MISS_NUM, id okc_k_lines_b.id%TYPE := OKC_API.G_MISS_NUM);
5540: TYPE l_rrid_mapping_type IS RECORD (old_id okc_rules_b.id%TYPE := OKC_API.G_MISS_NUM, new_id okc_rules_b.id%TYPE := OKC_API.G_MISS_NUM);
5541: TYPE l_aid_mapping_type IS RECORD (old_id okc_k_lines_tl.name%TYPE := OKC_API.G_MISS_CHAR, new_id okc_k_lines_tl.name%TYPE := OKC_API.G_MISS_CHAR);
5542: TYPE l_oid_mapping_type IS RECORD (cle_id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM, object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR);
5543: TYPE l_cle_mapping_type IS RECORD (old_id okc_k_lines_b.id%TYPE := OKC_API.G_MISS_NUM, new_id okl_trx_assets.id%TYPE := OKC_API.G_MISS_NUM, line_number NUMBER := OKC_API.G_MISS_NUM);
5544: TYPE l_cle_mapping_type2 IS RECORD (old_id okc_k_lines_b.id%TYPE := OKC_API.G_MISS_NUM, new_id okl_trx_assets.id%TYPE := OKC_API.G_MISS_NUM);
5545:
5546: TYPE l_bid_mapping_tab_type IS TABLE OF l_bid_mapping_type INDEX BY BINARY_INTEGER;
5812: TYPE l_trsecurity_group_id_type IS TABLE OF okc_rules_tl.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5813:
5814: -- For okc_rules_tl End
5815:
5816: -- For okc_k_items Begin
5817:
5818: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5819: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5820: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5814: -- For okc_rules_tl End
5815:
5816: -- For okc_k_items Begin
5817:
5818: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5819: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5820: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5821: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5822: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5815:
5816: -- For okc_k_items Begin
5817:
5818: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5819: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5820: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5821: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5822: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5823: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5816: -- For okc_k_items Begin
5817:
5818: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5819: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5820: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5821: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5822: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5823: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5824: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5817:
5818: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5819: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5820: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5821: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5822: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5823: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5824: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5825: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5818: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5819: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5820: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5821: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5822: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5823: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5824: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5825: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5826: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5819: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5820: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5821: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5822: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5823: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5824: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5825: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5826: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5827: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5820: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5821: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5822: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5823: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5824: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5825: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5826: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5827: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5828: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5821: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5822: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5823: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5824: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5825: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5826: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5827: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5828: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5829: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5822: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5823: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5824: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5825: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5826: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5827: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5828: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5829: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5830: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5823: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5824: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5825: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5826: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5827: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5828: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5829: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5830: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5831: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5824: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5825: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5826: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5827: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5828: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5829: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5830: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5831: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5832: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5825: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5826: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5827: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5828: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5829: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5830: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5831: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5832: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5833: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5826: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5827: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5828: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5829: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5830: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5831: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5832: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5833: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5834: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5827: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5828: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5829: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5830: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5831: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5832: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5833: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5834: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5835: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5828: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5829: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5830: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5831: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5832: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5833: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5834: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5835: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5836: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5829: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5830: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5831: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5832: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5833: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5834: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5835: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5836: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5837: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5830: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5831: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5832: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5833: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5834: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5835: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5836: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5837: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5838: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5831: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5832: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5833: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5834: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5835: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5836: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5837: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5838: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5839: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5832: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5833: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5834: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5835: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5836: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5837: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5838: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5839: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5840: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5833: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5834: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5835: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5836: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5837: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5838: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5839: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5840: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5841: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5834: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5835: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5836: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5837: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5838: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5839: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5840: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5841: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5842: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5835: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5836: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5837: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5838: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5839: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5840: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5841: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5842: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5843:
5836: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5837: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5838: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5839: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5840: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5841: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5842: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5843:
5844: -- For okc_k_items End
5837: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5838: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5839: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5840: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5841: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5842: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5843:
5844: -- For okc_k_items End
5845:
5838: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5839: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5840: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5841: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5842: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5843:
5844: -- For okc_k_items End
5845:
5846: -- For okl_trx_assets Begin (42)
5840: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5841: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5842: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5843:
5844: -- For okc_k_items End
5845:
5846: -- For okl_trx_assets Begin (42)
5847:
5848: TYPE l_tid_type IS TABLE OF okl_trx_assets.id%TYPE INDEX BY BINARY_INTEGER;
6507:
6508: l_rules_tl_counter NUMBER := 1;
6509: -- For okc_rules_tl End
6510:
6511: -- For okc_k_items Begin
6512:
6513: l_iid_tab l_iid_type;
6514: l_icle_id_tab l_icle_id_type;
6515: l_ichr_id_tab l_ichr_id_type;
6536: l_iprogram_update_date_tab l_iprogram_update_date_type;
6537: l_irequest_id_tab l_irequest_id_type;
6538:
6539: l_items_counter NUMBER := 1;
6540: -- For okc_k_items End
6541:
6542: -- For okl_trx_assets Begin (42)
6543:
6544: l_tid_tab l_tid_type;
7061:
7062: --l_okl_k_lines_rec2 lines_tbl_type;
7063: l_okl_k_lines_rec l_okl_k_lines_rec_tab;
7064: l_okl_k_lines_rec_counter NUMBER := 1;
7065: l_okc_k_items_rec l_okc_k_items_rec_tab;
7066: l_okc_k_items_rec_counter NUMBER := 1;
7067:
7068: l_bid_mapping_tab l_bid_mapping_tab_type;
7069: l_cle_lse_mapping_tab l_cle_lse_mapping_tab_type;
7062: --l_okl_k_lines_rec2 lines_tbl_type;
7063: l_okl_k_lines_rec l_okl_k_lines_rec_tab;
7064: l_okl_k_lines_rec_counter NUMBER := 1;
7065: l_okc_k_items_rec l_okc_k_items_rec_tab;
7066: l_okc_k_items_rec_counter NUMBER := 1;
7067:
7068: l_bid_mapping_tab l_bid_mapping_tab_type;
7069: l_cle_lse_mapping_tab l_cle_lse_mapping_tab_type;
7070: l_orig_system_tab l_orig_system_tab_type;
11223: -- Query from mtl_system_items
11224: SELECT a.asset_category_id
11225: INTO l_asset_category_id
11226: FROM mtl_system_items a,
11227: okc_k_items b
11228: WHERE a.inventory_item_id = TO_NUMBER(b.object1_id1)
11229: AND a.organization_id = TO_NUMBER(b.object1_id2)
11230: AND b.cle_id = l_34_id;
11231: --and b.cle_id = l_curr_id; previous wrong
15010: RAISE OKC_API.G_EXCEPTION_ERROR;
15011:
15012: END; /* sort_oid_mapping_tab */
15013:
15014: FUNCTION find_okc_k_items_rec(p_id IN NUMBER) RETURN l_okc_k_items_rec_type IS
15015: hi NUMBER;
15016: lo NUMBER;
15017: m NUMBER;
15018: l_dummy_rec l_okc_k_items_rec_type;
15014: FUNCTION find_okc_k_items_rec(p_id IN NUMBER) RETURN l_okc_k_items_rec_type IS
15015: hi NUMBER;
15016: lo NUMBER;
15017: m NUMBER;
15018: l_dummy_rec l_okc_k_items_rec_type;
15019: BEGIN
15020: lo := 1;
15021: hi := l_okc_k_items_rec_counter - 1;
15022: WHILE (lo <= hi) LOOP
15017: m NUMBER;
15018: l_dummy_rec l_okc_k_items_rec_type;
15019: BEGIN
15020: lo := 1;
15021: hi := l_okc_k_items_rec_counter - 1;
15022: WHILE (lo <= hi) LOOP
15023: m := FLOOR((hi + lo)/2);
15024: IF (l_okc_k_items_rec(m).id = p_id) THEN
15025: RETURN l_okc_k_items_rec(m);
15020: lo := 1;
15021: hi := l_okc_k_items_rec_counter - 1;
15022: WHILE (lo <= hi) LOOP
15023: m := FLOOR((hi + lo)/2);
15024: IF (l_okc_k_items_rec(m).id = p_id) THEN
15025: RETURN l_okc_k_items_rec(m);
15026: ELSIF (l_okc_k_items_rec(m).id > p_id) THEN
15027: hi := m - 1;
15028: ELSE
15021: hi := l_okc_k_items_rec_counter - 1;
15022: WHILE (lo <= hi) LOOP
15023: m := FLOOR((hi + lo)/2);
15024: IF (l_okc_k_items_rec(m).id = p_id) THEN
15025: RETURN l_okc_k_items_rec(m);
15026: ELSIF (l_okc_k_items_rec(m).id > p_id) THEN
15027: hi := m - 1;
15028: ELSE
15029: lo := m + 1;
15022: WHILE (lo <= hi) LOOP
15023: m := FLOOR((hi + lo)/2);
15024: IF (l_okc_k_items_rec(m).id = p_id) THEN
15025: RETURN l_okc_k_items_rec(m);
15026: ELSIF (l_okc_k_items_rec(m).id > p_id) THEN
15027: hi := m - 1;
15028: ELSE
15029: lo := m + 1;
15030: END IF;
15030: END IF;
15031: END LOOP;
15032: l_dummy_rec.number_of_items := OKC_API.G_MISS_NUM;
15033: RETURN l_dummy_rec;
15034: END; /* find_okc_k_items_rec */
15035:
15036: PROCEDURE sort_okc_k_items_rec IS
15037: TYPE numtabtype IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
15038: --a numtabtype;
15032: l_dummy_rec.number_of_items := OKC_API.G_MISS_NUM;
15033: RETURN l_dummy_rec;
15034: END; /* find_okc_k_items_rec */
15035:
15036: PROCEDURE sort_okc_k_items_rec IS
15037: TYPE numtabtype IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
15038: --a numtabtype;
15039: l_stack numtabtype;
15040: l_stack_index NUMBER := 0;
15054: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
15055: END IF;
15056: NULL;
15057:
15058: N := l_okc_k_items_rec_counter - 1;
15059: IF (N < 2) THEN
15060: RETURN;
15061: END IF;
15062: l_stack_index := l_stack_index + 1;
15077: I := L;
15078: J := R;
15079: P := FLOOR((L+R)/2);
15080: --if (a(L) > a(P)) then
15081: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(P).id)
15082: THEN
15083: W := l_okc_k_items_rec(L).id;
15084: W2 := l_okc_k_items_rec(L).number_of_items;
15085: W3 := l_okc_k_items_rec(L).object1_id1;
15079: P := FLOOR((L+R)/2);
15080: --if (a(L) > a(P)) then
15081: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(P).id)
15082: THEN
15083: W := l_okc_k_items_rec(L).id;
15084: W2 := l_okc_k_items_rec(L).number_of_items;
15085: W3 := l_okc_k_items_rec(L).object1_id1;
15086: W4 := l_okc_k_items_rec(L).object1_id2;
15087: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
15080: --if (a(L) > a(P)) then
15081: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(P).id)
15082: THEN
15083: W := l_okc_k_items_rec(L).id;
15084: W2 := l_okc_k_items_rec(L).number_of_items;
15085: W3 := l_okc_k_items_rec(L).object1_id1;
15086: W4 := l_okc_k_items_rec(L).object1_id2;
15087: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
15088: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
15081: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(P).id)
15082: THEN
15083: W := l_okc_k_items_rec(L).id;
15084: W2 := l_okc_k_items_rec(L).number_of_items;
15085: W3 := l_okc_k_items_rec(L).object1_id1;
15086: W4 := l_okc_k_items_rec(L).object1_id2;
15087: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
15088: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
15089: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
15082: THEN
15083: W := l_okc_k_items_rec(L).id;
15084: W2 := l_okc_k_items_rec(L).number_of_items;
15085: W3 := l_okc_k_items_rec(L).object1_id1;
15086: W4 := l_okc_k_items_rec(L).object1_id2;
15087: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
15088: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
15089: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
15090: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
15083: W := l_okc_k_items_rec(L).id;
15084: W2 := l_okc_k_items_rec(L).number_of_items;
15085: W3 := l_okc_k_items_rec(L).object1_id1;
15086: W4 := l_okc_k_items_rec(L).object1_id2;
15087: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
15088: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
15089: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
15090: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
15091: l_okc_k_items_rec(P).id := W;
15084: W2 := l_okc_k_items_rec(L).number_of_items;
15085: W3 := l_okc_k_items_rec(L).object1_id1;
15086: W4 := l_okc_k_items_rec(L).object1_id2;
15087: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
15088: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
15089: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
15090: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
15091: l_okc_k_items_rec(P).id := W;
15092: l_okc_k_items_rec(P).number_of_items := W2;
15085: W3 := l_okc_k_items_rec(L).object1_id1;
15086: W4 := l_okc_k_items_rec(L).object1_id2;
15087: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
15088: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
15089: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
15090: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
15091: l_okc_k_items_rec(P).id := W;
15092: l_okc_k_items_rec(P).number_of_items := W2;
15093: l_okc_k_items_rec(P).object1_id1 := W3;
15086: W4 := l_okc_k_items_rec(L).object1_id2;
15087: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
15088: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
15089: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
15090: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
15091: l_okc_k_items_rec(P).id := W;
15092: l_okc_k_items_rec(P).number_of_items := W2;
15093: l_okc_k_items_rec(P).object1_id1 := W3;
15094: l_okc_k_items_rec(P).object1_id2 := W4;
15087: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
15088: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
15089: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
15090: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
15091: l_okc_k_items_rec(P).id := W;
15092: l_okc_k_items_rec(P).number_of_items := W2;
15093: l_okc_k_items_rec(P).object1_id1 := W3;
15094: l_okc_k_items_rec(P).object1_id2 := W4;
15095: END IF;
15088: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
15089: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
15090: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
15091: l_okc_k_items_rec(P).id := W;
15092: l_okc_k_items_rec(P).number_of_items := W2;
15093: l_okc_k_items_rec(P).object1_id1 := W3;
15094: l_okc_k_items_rec(P).object1_id2 := W4;
15095: END IF;
15096: --if (a(L) > a(R)) then
15089: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
15090: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
15091: l_okc_k_items_rec(P).id := W;
15092: l_okc_k_items_rec(P).number_of_items := W2;
15093: l_okc_k_items_rec(P).object1_id1 := W3;
15094: l_okc_k_items_rec(P).object1_id2 := W4;
15095: END IF;
15096: --if (a(L) > a(R)) then
15097: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
15090: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
15091: l_okc_k_items_rec(P).id := W;
15092: l_okc_k_items_rec(P).number_of_items := W2;
15093: l_okc_k_items_rec(P).object1_id1 := W3;
15094: l_okc_k_items_rec(P).object1_id2 := W4;
15095: END IF;
15096: --if (a(L) > a(R)) then
15097: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
15098: THEN
15093: l_okc_k_items_rec(P).object1_id1 := W3;
15094: l_okc_k_items_rec(P).object1_id2 := W4;
15095: END IF;
15096: --if (a(L) > a(R)) then
15097: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
15098: THEN
15099: W := l_okc_k_items_rec(L).id;
15100: W2 := l_okc_k_items_rec(L).number_of_items;
15101: W3 := l_okc_k_items_rec(L).object1_id1;
15095: END IF;
15096: --if (a(L) > a(R)) then
15097: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
15098: THEN
15099: W := l_okc_k_items_rec(L).id;
15100: W2 := l_okc_k_items_rec(L).number_of_items;
15101: W3 := l_okc_k_items_rec(L).object1_id1;
15102: W4 := l_okc_k_items_rec(L).object1_id2;
15103: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
15096: --if (a(L) > a(R)) then
15097: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
15098: THEN
15099: W := l_okc_k_items_rec(L).id;
15100: W2 := l_okc_k_items_rec(L).number_of_items;
15101: W3 := l_okc_k_items_rec(L).object1_id1;
15102: W4 := l_okc_k_items_rec(L).object1_id2;
15103: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
15104: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15097: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
15098: THEN
15099: W := l_okc_k_items_rec(L).id;
15100: W2 := l_okc_k_items_rec(L).number_of_items;
15101: W3 := l_okc_k_items_rec(L).object1_id1;
15102: W4 := l_okc_k_items_rec(L).object1_id2;
15103: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
15104: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15105: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15098: THEN
15099: W := l_okc_k_items_rec(L).id;
15100: W2 := l_okc_k_items_rec(L).number_of_items;
15101: W3 := l_okc_k_items_rec(L).object1_id1;
15102: W4 := l_okc_k_items_rec(L).object1_id2;
15103: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
15104: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15105: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15106: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15099: W := l_okc_k_items_rec(L).id;
15100: W2 := l_okc_k_items_rec(L).number_of_items;
15101: W3 := l_okc_k_items_rec(L).object1_id1;
15102: W4 := l_okc_k_items_rec(L).object1_id2;
15103: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
15104: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15105: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15106: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15107: l_okc_k_items_rec(R).id := W;
15100: W2 := l_okc_k_items_rec(L).number_of_items;
15101: W3 := l_okc_k_items_rec(L).object1_id1;
15102: W4 := l_okc_k_items_rec(L).object1_id2;
15103: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
15104: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15105: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15106: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15107: l_okc_k_items_rec(R).id := W;
15108: l_okc_k_items_rec(R).number_of_items := W2;
15101: W3 := l_okc_k_items_rec(L).object1_id1;
15102: W4 := l_okc_k_items_rec(L).object1_id2;
15103: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
15104: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15105: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15106: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15107: l_okc_k_items_rec(R).id := W;
15108: l_okc_k_items_rec(R).number_of_items := W2;
15109: l_okc_k_items_rec(R).object1_id1 := W3;
15102: W4 := l_okc_k_items_rec(L).object1_id2;
15103: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
15104: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15105: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15106: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15107: l_okc_k_items_rec(R).id := W;
15108: l_okc_k_items_rec(R).number_of_items := W2;
15109: l_okc_k_items_rec(R).object1_id1 := W3;
15110: l_okc_k_items_rec(R).object1_id2 := W4;
15103: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
15104: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15105: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15106: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15107: l_okc_k_items_rec(R).id := W;
15108: l_okc_k_items_rec(R).number_of_items := W2;
15109: l_okc_k_items_rec(R).object1_id1 := W3;
15110: l_okc_k_items_rec(R).object1_id2 := W4;
15111: END IF;
15104: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15105: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15106: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15107: l_okc_k_items_rec(R).id := W;
15108: l_okc_k_items_rec(R).number_of_items := W2;
15109: l_okc_k_items_rec(R).object1_id1 := W3;
15110: l_okc_k_items_rec(R).object1_id2 := W4;
15111: END IF;
15112: --if (a(P) > a(R)) then
15105: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15106: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15107: l_okc_k_items_rec(R).id := W;
15108: l_okc_k_items_rec(R).number_of_items := W2;
15109: l_okc_k_items_rec(R).object1_id1 := W3;
15110: l_okc_k_items_rec(R).object1_id2 := W4;
15111: END IF;
15112: --if (a(P) > a(R)) then
15113: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
15106: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15107: l_okc_k_items_rec(R).id := W;
15108: l_okc_k_items_rec(R).number_of_items := W2;
15109: l_okc_k_items_rec(R).object1_id1 := W3;
15110: l_okc_k_items_rec(R).object1_id2 := W4;
15111: END IF;
15112: --if (a(P) > a(R)) then
15113: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
15114: THEN
15109: l_okc_k_items_rec(R).object1_id1 := W3;
15110: l_okc_k_items_rec(R).object1_id2 := W4;
15111: END IF;
15112: --if (a(P) > a(R)) then
15113: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
15114: THEN
15115: W := l_okc_k_items_rec(P).id;
15116: W2 := l_okc_k_items_rec(P).number_of_items;
15117: W3 := l_okc_k_items_rec(P).object1_id1;
15111: END IF;
15112: --if (a(P) > a(R)) then
15113: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
15114: THEN
15115: W := l_okc_k_items_rec(P).id;
15116: W2 := l_okc_k_items_rec(P).number_of_items;
15117: W3 := l_okc_k_items_rec(P).object1_id1;
15118: W4 := l_okc_k_items_rec(P).object1_id2;
15119: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
15112: --if (a(P) > a(R)) then
15113: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
15114: THEN
15115: W := l_okc_k_items_rec(P).id;
15116: W2 := l_okc_k_items_rec(P).number_of_items;
15117: W3 := l_okc_k_items_rec(P).object1_id1;
15118: W4 := l_okc_k_items_rec(P).object1_id2;
15119: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
15120: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15113: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
15114: THEN
15115: W := l_okc_k_items_rec(P).id;
15116: W2 := l_okc_k_items_rec(P).number_of_items;
15117: W3 := l_okc_k_items_rec(P).object1_id1;
15118: W4 := l_okc_k_items_rec(P).object1_id2;
15119: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
15120: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15121: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15114: THEN
15115: W := l_okc_k_items_rec(P).id;
15116: W2 := l_okc_k_items_rec(P).number_of_items;
15117: W3 := l_okc_k_items_rec(P).object1_id1;
15118: W4 := l_okc_k_items_rec(P).object1_id2;
15119: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
15120: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15121: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15122: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15115: W := l_okc_k_items_rec(P).id;
15116: W2 := l_okc_k_items_rec(P).number_of_items;
15117: W3 := l_okc_k_items_rec(P).object1_id1;
15118: W4 := l_okc_k_items_rec(P).object1_id2;
15119: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
15120: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15121: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15122: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15123: l_okc_k_items_rec(R).id := W;
15116: W2 := l_okc_k_items_rec(P).number_of_items;
15117: W3 := l_okc_k_items_rec(P).object1_id1;
15118: W4 := l_okc_k_items_rec(P).object1_id2;
15119: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
15120: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15121: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15122: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15123: l_okc_k_items_rec(R).id := W;
15124: l_okc_k_items_rec(R).number_of_items := W2;
15117: W3 := l_okc_k_items_rec(P).object1_id1;
15118: W4 := l_okc_k_items_rec(P).object1_id2;
15119: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
15120: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15121: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15122: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15123: l_okc_k_items_rec(R).id := W;
15124: l_okc_k_items_rec(R).number_of_items := W2;
15125: l_okc_k_items_rec(R).object1_id1 := W3;
15118: W4 := l_okc_k_items_rec(P).object1_id2;
15119: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
15120: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15121: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15122: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15123: l_okc_k_items_rec(R).id := W;
15124: l_okc_k_items_rec(R).number_of_items := W2;
15125: l_okc_k_items_rec(R).object1_id1 := W3;
15126: l_okc_k_items_rec(R).object1_id2 := W4;
15119: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
15120: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15121: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15122: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15123: l_okc_k_items_rec(R).id := W;
15124: l_okc_k_items_rec(R).number_of_items := W2;
15125: l_okc_k_items_rec(R).object1_id1 := W3;
15126: l_okc_k_items_rec(R).object1_id2 := W4;
15127: END IF;
15120: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
15121: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15122: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15123: l_okc_k_items_rec(R).id := W;
15124: l_okc_k_items_rec(R).number_of_items := W2;
15125: l_okc_k_items_rec(R).object1_id1 := W3;
15126: l_okc_k_items_rec(R).object1_id2 := W4;
15127: END IF;
15128: --X := a(P);
15121: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
15122: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15123: l_okc_k_items_rec(R).id := W;
15124: l_okc_k_items_rec(R).number_of_items := W2;
15125: l_okc_k_items_rec(R).object1_id1 := W3;
15126: l_okc_k_items_rec(R).object1_id2 := W4;
15127: END IF;
15128: --X := a(P);
15129: X := l_okc_k_items_rec(P).id;
15122: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
15123: l_okc_k_items_rec(R).id := W;
15124: l_okc_k_items_rec(R).number_of_items := W2;
15125: l_okc_k_items_rec(R).object1_id1 := W3;
15126: l_okc_k_items_rec(R).object1_id2 := W4;
15127: END IF;
15128: --X := a(P);
15129: X := l_okc_k_items_rec(P).id;
15130: WHILE 1=1
15125: l_okc_k_items_rec(R).object1_id1 := W3;
15126: l_okc_k_items_rec(R).object1_id2 := W4;
15127: END IF;
15128: --X := a(P);
15129: X := l_okc_k_items_rec(P).id;
15130: WHILE 1=1
15131: LOOP -- until I > J
15132: --while (a(I) < X) loop
15133: WHILE (l_okc_k_items_rec(I).id < X) LOOP
15129: X := l_okc_k_items_rec(P).id;
15130: WHILE 1=1
15131: LOOP -- until I > J
15132: --while (a(I) < X) loop
15133: WHILE (l_okc_k_items_rec(I).id < X) LOOP
15134: I := I + 1;
15135: END LOOP;
15136: WHILE (X < l_okc_k_items_rec(J).id) LOOP
15137: J := J - 1;
15132: --while (a(I) < X) loop
15133: WHILE (l_okc_k_items_rec(I).id < X) LOOP
15134: I := I + 1;
15135: END LOOP;
15136: WHILE (X < l_okc_k_items_rec(J).id) LOOP
15137: J := J - 1;
15138: END LOOP;
15139: IF (I <= J) THEN
15140: W := l_okc_k_items_rec(I).id;
15136: WHILE (X < l_okc_k_items_rec(J).id) LOOP
15137: J := J - 1;
15138: END LOOP;
15139: IF (I <= J) THEN
15140: W := l_okc_k_items_rec(I).id;
15141: W2 := l_okc_k_items_rec(I).number_of_items;
15142: W3 := l_okc_k_items_rec(I).object1_id1;
15143: W4 := l_okc_k_items_rec(I).object1_id2;
15144: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
15137: J := J - 1;
15138: END LOOP;
15139: IF (I <= J) THEN
15140: W := l_okc_k_items_rec(I).id;
15141: W2 := l_okc_k_items_rec(I).number_of_items;
15142: W3 := l_okc_k_items_rec(I).object1_id1;
15143: W4 := l_okc_k_items_rec(I).object1_id2;
15144: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
15145: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
15138: END LOOP;
15139: IF (I <= J) THEN
15140: W := l_okc_k_items_rec(I).id;
15141: W2 := l_okc_k_items_rec(I).number_of_items;
15142: W3 := l_okc_k_items_rec(I).object1_id1;
15143: W4 := l_okc_k_items_rec(I).object1_id2;
15144: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
15145: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
15146: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
15139: IF (I <= J) THEN
15140: W := l_okc_k_items_rec(I).id;
15141: W2 := l_okc_k_items_rec(I).number_of_items;
15142: W3 := l_okc_k_items_rec(I).object1_id1;
15143: W4 := l_okc_k_items_rec(I).object1_id2;
15144: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
15145: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
15146: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
15147: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
15140: W := l_okc_k_items_rec(I).id;
15141: W2 := l_okc_k_items_rec(I).number_of_items;
15142: W3 := l_okc_k_items_rec(I).object1_id1;
15143: W4 := l_okc_k_items_rec(I).object1_id2;
15144: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
15145: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
15146: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
15147: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
15148: l_okc_k_items_rec(J).id := W;
15141: W2 := l_okc_k_items_rec(I).number_of_items;
15142: W3 := l_okc_k_items_rec(I).object1_id1;
15143: W4 := l_okc_k_items_rec(I).object1_id2;
15144: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
15145: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
15146: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
15147: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
15148: l_okc_k_items_rec(J).id := W;
15149: l_okc_k_items_rec(J).number_of_items := W2;
15142: W3 := l_okc_k_items_rec(I).object1_id1;
15143: W4 := l_okc_k_items_rec(I).object1_id2;
15144: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
15145: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
15146: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
15147: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
15148: l_okc_k_items_rec(J).id := W;
15149: l_okc_k_items_rec(J).number_of_items := W2;
15150: l_okc_k_items_rec(J).object1_id1 := W3;
15143: W4 := l_okc_k_items_rec(I).object1_id2;
15144: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
15145: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
15146: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
15147: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
15148: l_okc_k_items_rec(J).id := W;
15149: l_okc_k_items_rec(J).number_of_items := W2;
15150: l_okc_k_items_rec(J).object1_id1 := W3;
15151: l_okc_k_items_rec(J).object1_id2 := W4;
15144: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
15145: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
15146: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
15147: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
15148: l_okc_k_items_rec(J).id := W;
15149: l_okc_k_items_rec(J).number_of_items := W2;
15150: l_okc_k_items_rec(J).object1_id1 := W3;
15151: l_okc_k_items_rec(J).object1_id2 := W4;
15152: I := I + 1;
15145: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
15146: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
15147: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
15148: l_okc_k_items_rec(J).id := W;
15149: l_okc_k_items_rec(J).number_of_items := W2;
15150: l_okc_k_items_rec(J).object1_id1 := W3;
15151: l_okc_k_items_rec(J).object1_id2 := W4;
15152: I := I + 1;
15153: J := J - 1;
15146: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
15147: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
15148: l_okc_k_items_rec(J).id := W;
15149: l_okc_k_items_rec(J).number_of_items := W2;
15150: l_okc_k_items_rec(J).object1_id1 := W3;
15151: l_okc_k_items_rec(J).object1_id2 := W4;
15152: I := I + 1;
15153: J := J - 1;
15154: END IF;
15147: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
15148: l_okc_k_items_rec(J).id := W;
15149: l_okc_k_items_rec(J).number_of_items := W2;
15150: l_okc_k_items_rec(J).object1_id1 := W3;
15151: l_okc_k_items_rec(J).object1_id2 := W4;
15152: I := I + 1;
15153: J := J - 1;
15154: END IF;
15155: EXIT WHEN I > J;
15178:
15179: EXIT WHEN (L >= R);
15180: END LOOP;
15181: END LOOP;
15182: /*print('Now Printing okc_k_items_rec...');
15183: for i in 1..N
15184: loop
15185: print('l_okc_k_items_rec('||i||')=' || l_okc_k_items_rec(i).id || ':' || l_okc_k_items_rec(i).number_of_items || ':' || l_okc_k_items_rec(i).object1_id1 || ':' || l_okc_k_items_rec(i).object1_id2 );
15186: end loop;*/
15181: END LOOP;
15182: /*print('Now Printing okc_k_items_rec...');
15183: for i in 1..N
15184: loop
15185: print('l_okc_k_items_rec('||i||')=' || l_okc_k_items_rec(i).id || ':' || l_okc_k_items_rec(i).number_of_items || ':' || l_okc_k_items_rec(i).object1_id1 || ':' || l_okc_k_items_rec(i).object1_id2 );
15186: end loop;*/
15187:
15188:
15189: EXCEPTION WHEN OTHERS THEN
15191: x_return_status := OKL_API.G_RET_STS_ERROR;
15192: /*OKL_API.set_message(p_app_name => 'OKL',
15193: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15194: p_token1 => 'ASSET_NUMBER',
15195: p_token1_value => 'sort_okc_k_items_rec');*/
15196: /* DEBUG */
15197: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15198: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
15199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing sort_okc_k_items_rec:l_okc_k_items_rec N=' || N || ' ...');
15195: p_token1_value => 'sort_okc_k_items_rec');*/
15196: /* DEBUG */
15197: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15198: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
15199: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing sort_okc_k_items_rec:l_okc_k_items_rec N=' || N || ' ...');
15200: END IF;
15201:
15202: --print array
15203: FOR i IN 1..N
15202: --print array
15203: FOR i IN 1..N
15204: LOOP
15205: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15206: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_okc_k_items_rec('||i||')='
15207: || l_okc_k_items_rec(i).id || ':' || l_okc_k_items_rec(i).number_of_items || ':'
15208: || l_okc_k_items_rec(i).object1_id1 || ':' || l_okc_k_items_rec(i).object1_id2 );
15209: END IF;
15210: END LOOP;
15203: FOR i IN 1..N
15204: LOOP
15205: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15206: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_okc_k_items_rec('||i||')='
15207: || l_okc_k_items_rec(i).id || ':' || l_okc_k_items_rec(i).number_of_items || ':'
15208: || l_okc_k_items_rec(i).object1_id1 || ':' || l_okc_k_items_rec(i).object1_id2 );
15209: END IF;
15210: END LOOP;
15211:
15204: LOOP
15205: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15206: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_okc_k_items_rec('||i||')='
15207: || l_okc_k_items_rec(i).id || ':' || l_okc_k_items_rec(i).number_of_items || ':'
15208: || l_okc_k_items_rec(i).object1_id1 || ':' || l_okc_k_items_rec(i).object1_id2 );
15209: END IF;
15210: END LOOP;
15211:
15212: RAISE OKC_API.G_EXCEPTION_ERROR;
15210: END LOOP;
15211:
15212: RAISE OKC_API.G_EXCEPTION_ERROR;
15213:
15214: END; /* sort_okc_k_items_rec */
15215:
15216:
15217:
15218: PROCEDURE insert_okc_k_items (p_old_id IN okc_k_headers_b.id%TYPE,
15214: END; /* sort_okc_k_items_rec */
15215:
15216:
15217:
15218: PROCEDURE insert_okc_k_items (p_old_id IN okc_k_headers_b.id%TYPE,
15219: p_new_id IN okc_k_headers_b.id%TYPE) IS
15220: CURSOR c16(p_id NUMBER) IS
15221: SELECT
15222: a.id, a.cle_id, a.chr_id,
15227: a.last_updated_by, a.last_update_date, a.last_update_login,
15228: a.security_group_id, a.upg_orig_system_ref, a.upg_orig_system_ref_id,
15229: a.program_application_id, a.program_id, a.program_update_date,
15230: a.request_id, b.lse_id
15231: FROM okc_k_items a,
15232: okc_k_lines_b b
15233: WHERE a.dnz_chr_id = p_id
15234: AND a.cle_id = b.id;
15235:
15358: l_iprogram_id_tab(l_items_counter) := l_iprogram_id_tab2(i);
15359: l_iprogram_update_date_tab(l_items_counter) := l_iprogram_update_date_tab2(i);
15360: l_irequest_id_tab(l_items_counter) := l_irequest_id_tab2(i);
15361:
15362: l_okc_k_items_rec(l_okc_k_items_rec_counter).id := l_icle_id_tab(l_items_counter);
15363: l_okc_k_items_rec(l_okc_k_items_rec_counter).number_of_items := l_inumber_of_items_tab(l_items_counter);
15364: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id1 := l_iobject1_id1_tab(l_items_counter);
15365: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id2 := l_iobject1_id2_tab(l_items_counter);
15366: l_okc_k_items_rec_counter := l_okc_k_items_rec_counter + 1 ;
15359: l_iprogram_update_date_tab(l_items_counter) := l_iprogram_update_date_tab2(i);
15360: l_irequest_id_tab(l_items_counter) := l_irequest_id_tab2(i);
15361:
15362: l_okc_k_items_rec(l_okc_k_items_rec_counter).id := l_icle_id_tab(l_items_counter);
15363: l_okc_k_items_rec(l_okc_k_items_rec_counter).number_of_items := l_inumber_of_items_tab(l_items_counter);
15364: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id1 := l_iobject1_id1_tab(l_items_counter);
15365: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id2 := l_iobject1_id2_tab(l_items_counter);
15366: l_okc_k_items_rec_counter := l_okc_k_items_rec_counter + 1 ;
15367:
15360: l_irequest_id_tab(l_items_counter) := l_irequest_id_tab2(i);
15361:
15362: l_okc_k_items_rec(l_okc_k_items_rec_counter).id := l_icle_id_tab(l_items_counter);
15363: l_okc_k_items_rec(l_okc_k_items_rec_counter).number_of_items := l_inumber_of_items_tab(l_items_counter);
15364: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id1 := l_iobject1_id1_tab(l_items_counter);
15365: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id2 := l_iobject1_id2_tab(l_items_counter);
15366: l_okc_k_items_rec_counter := l_okc_k_items_rec_counter + 1 ;
15367:
15368: l_items_counter := l_items_counter + 1;
15361:
15362: l_okc_k_items_rec(l_okc_k_items_rec_counter).id := l_icle_id_tab(l_items_counter);
15363: l_okc_k_items_rec(l_okc_k_items_rec_counter).number_of_items := l_inumber_of_items_tab(l_items_counter);
15364: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id1 := l_iobject1_id1_tab(l_items_counter);
15365: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id2 := l_iobject1_id2_tab(l_items_counter);
15366: l_okc_k_items_rec_counter := l_okc_k_items_rec_counter + 1 ;
15367:
15368: l_items_counter := l_items_counter + 1;
15369: END LOOP;
15362: l_okc_k_items_rec(l_okc_k_items_rec_counter).id := l_icle_id_tab(l_items_counter);
15363: l_okc_k_items_rec(l_okc_k_items_rec_counter).number_of_items := l_inumber_of_items_tab(l_items_counter);
15364: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id1 := l_iobject1_id1_tab(l_items_counter);
15365: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id2 := l_iobject1_id2_tab(l_items_counter);
15366: l_okc_k_items_rec_counter := l_okc_k_items_rec_counter + 1 ;
15367:
15368: l_items_counter := l_items_counter + 1;
15369: END LOOP;
15370: END LOOP;
15369: END LOOP;
15370: END LOOP;
15371: CLOSE c16;
15372: sort_oid_mapping_tab;
15373: sort_okc_k_items_rec;
15374:
15375: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15376: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_items_counter=' || l_items_counter || ' l_iid_tab.count=' || l_iid_tab.COUNT);
15377: END IF;
15377: END IF;
15378: IF (l_items_counter > 1) THEN
15379: --Bug# 16425139: Fixed population of WHO columns to not copy values from previous contract
15380: forall i IN l_iid_tab.first..l_iid_tab.last
15381: INSERT INTO okc_k_items (
15382: id, cle_id, chr_id,
15383: cle_id_for, dnz_chr_id, object1_id1,
15384: object1_id2, jtot_object1_code, uom_code,
15385: exception_yn, number_of_items, priced_item_yn,
15406: x_return_status := OKL_API.G_RET_STS_ERROR;
15407: /*OKL_API.set_message(p_app_name => 'OKL',
15408: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15409: p_token1 => 'ASSET_NUMBER',
15410: p_token1_value => 'insert_okc_k_items');*/
15411: /* DEBUG */
15412: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15413: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
15414: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing insert_okc_k_items:l_iid_tab.count=' || l_iid_tab.COUNT || ' ...');
15410: p_token1_value => 'insert_okc_k_items');*/
15411: /* DEBUG */
15412: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15413: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
15414: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing insert_okc_k_items:l_iid_tab.count=' || l_iid_tab.COUNT || ' ...');
15415: END IF;
15416: IF (l_iid_tab.COUNT > 0) THEN
15417: FOR i IN l_iid_tab.first..l_iid_tab.last
15418: LOOP
15441: END IF;
15442:
15443: RAISE OKC_API.G_EXCEPTION_ERROR;
15444:
15445: END; /* insert okc_k_items */
15446:
15447: PROCEDURE sort_trx_id_mapping_tab IS
15448: TYPE numtabtype IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
15449: --a numtabtype;
16185: WHERE tal_id IN (
16186: SELECT a.id
16187: FROM okl_txl_assets_b a,
16188: okc_k_lines_b b,
16189: okc_k_items c
16190: WHERE a.dnz_khr_id = p_id
16191: AND b.dnz_chr_id = p_id
16192: AND c.dnz_chr_id = p_id
16193: AND b.lse_id = 42
16631: a.currency_conversion_rate, a.currency_conversion_date, a.asset_key_id,
16632: a.fa_trx_date
16633: FROM okl_txl_assets_b a,
16634: okc_k_lines_b b,
16635: okc_k_items c
16636: WHERE a.dnz_khr_id = p_id
16637: AND b.dnz_chr_id = p_id
16638: AND c.dnz_chr_id = p_id
16639: AND b.lse_id = 42
17088: FROM okl_trx_assets
17089: WHERE id IN
17090: (SELECT a.tas_id FROM okl_txl_assets_b a,
17091: okc_k_lines_b b,
17092: okc_k_items c
17093: WHERE a.dnz_khr_id = p_id
17094: AND b.dnz_chr_id = p_id
17095: AND c.dnz_chr_id = p_id
17096: AND b.lse_id = 42
17314: FROM okl_txl_itm_insts b
17315: WHERE kle_id IN
17316: (SELECT a.id
17317: FROM okc_k_lines_b a,
17318: okc_k_items c
17319: WHERE a.dnz_chr_id = p_id
17320: AND c.dnz_chr_id = p_id
17321: AND c.cle_id = a.id
17322: AND a.lse_id = 45
17577: WHERE p.kle_id IN
17578: (
17579: SELECT a.id
17580: FROM okc_k_lines_b a,
17581: okc_k_items c
17582: WHERE a.dnz_chr_id = p_id
17583: AND c.dnz_chr_id = p_id
17584: AND c.cle_id = a.id
17585: AND a.lse_id = 45
18087: FROM FA_BOOK_CONTROLS FBC,
18088: FA_BOOKS FB,
18089: FA_ADDITIONS_TL FAT,
18090: FA_ADDITIONS_B FA ,
18091: okc_k_items c,
18092: okc_k_lines_b b
18093: WHERE
18094: fbc.book_type_code = fb.book_type_code
18095: AND NVL(fbc.date_ineffective,SYSDATE+1) > SYSDATE
18338:
18339: l_location_id NUMBER;
18340: l_new_asset_number fa_additions_b.asset_number%TYPE;
18341: l_tmp_okl_42_rec l_okl_k_lines_rec_type;
18342: l_tmp_itm_rec l_okc_k_items_rec_type;
18343:
18344: l_cle_id NUMBER;
18345: l_new_33_id NUMBER;
18346: l_tmp_okl_33_rec l_okl_k_lines_rec_type;
18343:
18344: l_cle_id NUMBER;
18345: l_new_33_id NUMBER;
18346: l_tmp_okl_33_rec l_okl_k_lines_rec_type;
18347: l_tmp_okc_34_rec l_okc_k_items_rec_type;
18348: l_new_34_id NUMBER;
18349: l_asset_name_old okc_k_lines_tl.name%TYPE;
18350: l_multi_gaap_profile okl_txd_assets_b.tax_book%TYPE;
18351:
18684: IF (l_id_tab.count > 0) THEN
18685: FOR i IN l_id_tab.first..l_id_tab.last LOOP
18686: IF (l_lse_id_tab(i) = 42) THEN
18687: --print('Found 42: l_id_tab(' ||i || ')=' || l_id_tab(i) ||' l_name_tab('||i||')=' || l_name_tab(i));
18688: l_tmp_itm_rec := find_okc_k_items_rec(l_id_tab(i));
18689: --print('l_tmp_itm_rec.id object1_id1 object1_id2= ' || l_tmp_itm_rec.id || ':' || l_tmp_itm_rec.object1_id1 || ':' || l_tmp_itm_rec.object1_id2);
18690: IF (l_tmp_itm_rec.number_of_items = OKL_API.G_MISS_NUM ) THEN
18691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okc_k_items rec not found for ' || l_id_tab(i));
18688: l_tmp_itm_rec := find_okc_k_items_rec(l_id_tab(i));
18689: --print('l_tmp_itm_rec.id object1_id1 object1_id2= ' || l_tmp_itm_rec.id || ':' || l_tmp_itm_rec.object1_id1 || ':' || l_tmp_itm_rec.object1_id2);
18690: IF (l_tmp_itm_rec.number_of_items = OKL_API.G_MISS_NUM ) THEN
18691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okc_k_items rec not found for ' || l_id_tab(i));
18693: END IF;
18694: RAISE OKL_API.G_EXCEPTION_ERROR;
18695: END IF;
18696: IF ((l_tmp_itm_rec.object1_id1 IS NULL) AND
18779: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping cle_lse_mapping not found for ' || l_cle_id || ':33');
18780: END IF;
18781: RAISE OKL_API.G_EXCEPTION_ERROR;
18782: END IF;
18783: l_tmp_okc_34_rec := find_okc_k_items_rec(l_new_34_id);
18784: --print('Upto 10... l_tmp_okc_34_rec.number_of_items='|| l_tmp_okc_34_rec.number_of_items);
18785: IF (l_tmp_okc_34_rec.number_of_items = OKL_API.G_MISS_NUM) THEN
18786: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18787: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_new_34_id );
19660: csi.location_id,
19661: csi.serial_number
19662: FROM okx_install_items_v csi,
19663: okc_k_lines_b b,
19664: okc_k_items c
19665: WHERE b.dnz_chr_id = p_id
19666: AND b.lse_id = 45
19667: AND c.dnz_chr_id = p_id
19668: AND b.id = c.cle_id
19675: AND lse_id = p_lse_id;
19676:
19677: /*cursor c_get_object1_id1(p_id number, p_lse_id number) is
19678: select c.object1_id2
19679: from okc_k_items c,
19680: okc_k_lines_b b
19681: where c.cle_id = b.id
19682: and b.id = p_id
19683: and b.lse_id = p_lse_id;*/
19686: TYPE l_inv_master_org_id_type IS TABLE OF okx_install_items_v.inv_master_organization_id%TYPE INDEX BY BINARY_INTEGER;
19687: TYPE l_instance_number_type IS TABLE OF okx_install_items_v.instance_number%TYPE INDEX BY BINARY_INTEGER;
19688: TYPE l_id_type IS TABLE OF okc_k_lines_b.id%TYPE INDEX BY BINARY_INTEGER;
19689: TYPE l_cle_id_type IS TABLE OF okc_k_lines_b.cle_id%TYPE INDEX BY BINARY_INTEGER;
19690: TYPE l_object1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
19691: TYPE l_location_type_code_type IS TABLE OF okx_install_items_v.location_type_code%TYPE INDEX BY BINARY_INTEGER;
19692: TYPE l_location_id_type IS TABLE OF okx_install_items_v.location_id%TYPE INDEX BY BINARY_INTEGER;
19693: TYPE l_serial_number_type IS TABLE OF okx_install_items_v.serial_number%TYPE INDEX BY BINARY_INTEGER;
19694:
21455: l_message := 'OKL_NEW_COPY_RGR_ERROR';
21456: insert_okc_rg_party_roles(p_chr_id, l_copied_id);
21457:
21458: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Inserting okc_k_items...' || TO_CHAR(SYSDATE,'HH24:MI:SS'));
21460: END IF;
21461: l_curr_pos := 'okl_copy_lease_contract:42';
21462: l_message := 'OKL_NEW_COPY_CIM_ERROR';
21463: insert_okc_k_items(p_chr_id, l_copied_id);
21459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Inserting okc_k_items...' || TO_CHAR(SYSDATE,'HH24:MI:SS'));
21460: END IF;
21461: l_curr_pos := 'okl_copy_lease_contract:42';
21462: l_message := 'OKL_NEW_COPY_CIM_ERROR';
21463: insert_okc_k_items(p_chr_id, l_copied_id);
21464:
21465: IF ((l_sts_code_orig IN (
21466: 'APPROVED', 'COMPLETE', 'INCOMPLETE', 'NEW',
21467: 'PASSED', 'PENDING_APPROVAL')) OR