[Home] [Help]
4291: CURSOR l_orig_ast_csr(p_orig_lnk_cle_id IN NUMBER,
4292: p_new_chr_id IN NUMBER) IS
4293: SELECT new_cle.id
4294: FROM OKC_K_LINES_B new_cle,
4295: OKC_K_ITEMS orig_lnk_cim
4296: WHERE new_cle.ORIG_SYSTEM_ID1 = to_number(orig_lnk_cim.object1_id1)
4297: AND new_cle.chr_id = p_new_chr_id
4298: AND orig_lnk_cim.cle_id = p_orig_lnk_cle_id
4299: AND not exists (select null
5437: TYPE l_okl_k_lines_rec_tab IS TABLE OF l_okl_k_lines_rec_type
5438: INDEX BY BINARY_INTEGER;
5439: -- For okl_k_lines whole record
5440:
5441: -- For okc_k_items whole record
5442: TYPE l_okc_k_items_rec_type IS RECORD (
5443: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5444: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5445: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5438: INDEX BY BINARY_INTEGER;
5439: -- For okl_k_lines whole record
5440:
5441: -- For okc_k_items whole record
5442: TYPE l_okc_k_items_rec_type IS RECORD (
5443: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5444: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5445: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5446: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5439: -- For okl_k_lines whole record
5440:
5441: -- For okc_k_items whole record
5442: TYPE l_okc_k_items_rec_type IS RECORD (
5443: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5444: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5445: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5446: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5447: );
5440:
5441: -- For okc_k_items whole record
5442: TYPE l_okc_k_items_rec_type IS RECORD (
5443: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5444: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5445: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5446: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5447: );
5448: TYPE l_okc_k_items_rec_tab IS TABLE OF l_okc_k_items_rec_type INDEX BY BINARY_INTEGER;
5441: -- For okc_k_items whole record
5442: TYPE l_okc_k_items_rec_type IS RECORD (
5443: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5444: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5445: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5446: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5447: );
5448: TYPE l_okc_k_items_rec_tab IS TABLE OF l_okc_k_items_rec_type INDEX BY BINARY_INTEGER;
5449: -- For okc_k_items whole record
5442: TYPE l_okc_k_items_rec_type IS RECORD (
5443: id okc_k_items.cle_id%TYPE := OKC_API.G_MISS_NUM,
5444: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5445: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5446: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5447: );
5448: TYPE l_okc_k_items_rec_tab IS TABLE OF l_okc_k_items_rec_type INDEX BY BINARY_INTEGER;
5449: -- For okc_k_items whole record
5450:
5444: number_of_items okc_k_items.number_of_items%TYPE := OKC_API.G_MISS_NUM,
5445: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5446: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5447: );
5448: TYPE l_okc_k_items_rec_tab IS TABLE OF l_okc_k_items_rec_type INDEX BY BINARY_INTEGER;
5449: -- For okc_k_items whole record
5450:
5451:
5452: 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);
5445: object1_id1 okc_k_items.object1_id1%TYPE := OKC_API.G_MISS_CHAR,
5446: object1_id2 okc_k_items.object1_id2%TYPE := OKC_API.G_MISS_CHAR
5447: );
5448: TYPE l_okc_k_items_rec_tab IS TABLE OF l_okc_k_items_rec_type INDEX BY BINARY_INTEGER;
5449: -- For okc_k_items whole record
5450:
5451:
5452: 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);
5453: 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);
5462: 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);
5463: 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);
5464: 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);
5465: 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);
5466: 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);
5467: 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);
5468: 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);
5469:
5470: TYPE l_bid_mapping_tab_type IS TABLE OF l_bid_mapping_type INDEX BY BINARY_INTEGER;
5736: TYPE l_trsecurity_group_id_type IS TABLE OF okc_rules_tl.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5737:
5738: -- For okc_rules_tl End
5739:
5740: -- For okc_k_items Begin
5741:
5742: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5743: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5744: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5738: -- For okc_rules_tl End
5739:
5740: -- For okc_k_items Begin
5741:
5742: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5743: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5744: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5745: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5746: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5739:
5740: -- For okc_k_items Begin
5741:
5742: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5743: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5744: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5745: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5746: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5747: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5740: -- For okc_k_items Begin
5741:
5742: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5743: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5744: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5745: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5746: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5747: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5748: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5741:
5742: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5743: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5744: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5745: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5746: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5747: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5748: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5749: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5742: TYPE l_iid_type IS TABLE OF okc_k_items.id%TYPE INDEX BY BINARY_INTEGER;
5743: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5744: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5745: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5746: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5747: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5748: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5749: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5750: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5743: TYPE l_icle_id_type IS TABLE OF okc_k_items.cle_id%TYPE INDEX BY BINARY_INTEGER;
5744: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5745: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5746: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5747: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5748: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5749: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5750: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5751: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5744: TYPE l_ichr_id_type IS TABLE OF okc_k_items.chr_id%TYPE INDEX BY BINARY_INTEGER;
5745: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5746: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5747: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5748: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5749: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5750: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5751: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5752: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5745: TYPE l_icle_id_for_type IS TABLE OF okc_k_items.cle_id_for%TYPE INDEX BY BINARY_INTEGER;
5746: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5747: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5748: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5749: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5750: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5751: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5752: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5753: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5746: TYPE l_idnz_chr_id_type IS TABLE OF okc_k_items.dnz_chr_id%TYPE INDEX BY BINARY_INTEGER;
5747: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5748: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5749: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5750: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5751: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5752: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5753: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5754: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5747: TYPE l_iobject1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
5748: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5749: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5750: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5751: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5752: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5753: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5754: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5755: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5748: TYPE l_iobject1_id2_type IS TABLE OF okc_k_items.object1_id2%TYPE INDEX BY BINARY_INTEGER;
5749: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5750: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5751: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5752: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5753: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5754: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5755: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5756: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5749: TYPE l_ijtot_object1_code_type IS TABLE OF okc_k_items.jtot_object1_code%TYPE INDEX BY BINARY_INTEGER;
5750: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5751: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5752: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5753: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5754: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5755: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5756: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5757: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5750: TYPE l_iuom_code_type IS TABLE OF okc_k_items.uom_code%TYPE INDEX BY BINARY_INTEGER;
5751: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5752: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5753: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5754: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5755: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5756: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5757: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5758: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5751: TYPE l_iexception_yn_type IS TABLE OF okc_k_items.exception_yn%TYPE INDEX BY BINARY_INTEGER;
5752: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5753: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5754: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5755: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5756: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5757: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5758: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5759: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5752: TYPE l_inumber_of_items_type IS TABLE OF okc_k_items.number_of_items%TYPE INDEX BY BINARY_INTEGER;
5753: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5754: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5755: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5756: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5757: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5758: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5759: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5760: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5753: TYPE l_ipriced_item_yn_type IS TABLE OF okc_k_items.priced_item_yn%TYPE INDEX BY BINARY_INTEGER;
5754: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5755: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5756: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5757: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5758: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5759: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5760: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5761: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5754: TYPE l_iobject_version_number_type IS TABLE OF okc_k_items.object_version_number%TYPE INDEX BY BINARY_INTEGER;
5755: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5756: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5757: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5758: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5759: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5760: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5761: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5762: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5755: TYPE l_icreated_by_type IS TABLE OF okc_k_items.created_by%TYPE INDEX BY BINARY_INTEGER;
5756: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5757: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5758: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5759: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5760: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5761: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5762: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5763: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5756: TYPE l_icreation_date_type IS TABLE OF okc_k_items.creation_date%TYPE INDEX BY BINARY_INTEGER;
5757: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5758: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5759: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5760: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5761: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5762: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5763: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5764: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5757: TYPE l_ilast_updated_by_type IS TABLE OF okc_k_items.last_updated_by%TYPE INDEX BY BINARY_INTEGER;
5758: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5759: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5760: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5761: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5762: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5763: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5764: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5765: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5758: TYPE l_ilast_update_date_type IS TABLE OF okc_k_items.last_update_date%TYPE INDEX BY BINARY_INTEGER;
5759: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5760: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5761: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5762: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5763: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5764: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5765: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5766: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5759: TYPE l_ilast_update_login_type IS TABLE OF okc_k_items.last_update_login%TYPE INDEX BY BINARY_INTEGER;
5760: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5761: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5762: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5763: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5764: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5765: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5766: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5767:
5760: TYPE l_isecurity_group_id_type IS TABLE OF okc_k_items.security_group_id%TYPE INDEX BY BINARY_INTEGER;
5761: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5762: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5763: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5764: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5765: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5766: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5767:
5768: -- For okc_k_items End
5761: TYPE l_iupg_orig_system_ref_type IS TABLE OF okc_k_items.upg_orig_system_ref%TYPE INDEX BY BINARY_INTEGER;
5762: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5763: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5764: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5765: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5766: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5767:
5768: -- For okc_k_items End
5769:
5762: TYPE l_iupg_orig_system_ref_id_type IS TABLE OF okc_k_items.upg_orig_system_ref_id%TYPE INDEX BY BINARY_INTEGER;
5763: TYPE l_iprogram_application_id_type IS TABLE OF okc_k_items.program_application_id%TYPE INDEX BY BINARY_INTEGER;
5764: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5765: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5766: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5767:
5768: -- For okc_k_items End
5769:
5770: -- For okl_trx_assets Begin (42)
5764: TYPE l_iprogram_id_type IS TABLE OF okc_k_items.program_id%TYPE INDEX BY BINARY_INTEGER;
5765: TYPE l_iprogram_update_date_type IS TABLE OF okc_k_items.program_update_date%TYPE INDEX BY BINARY_INTEGER;
5766: TYPE l_irequest_id_type IS TABLE OF okc_k_items.request_id%TYPE INDEX BY BINARY_INTEGER;
5767:
5768: -- For okc_k_items End
5769:
5770: -- For okl_trx_assets Begin (42)
5771:
5772: TYPE l_tid_type IS TABLE OF okl_trx_assets.id%TYPE INDEX BY BINARY_INTEGER;
6427:
6428: l_rules_tl_counter NUMBER := 1;
6429: -- For okc_rules_tl End
6430:
6431: -- For okc_k_items Begin
6432:
6433: l_iid_tab l_iid_type;
6434: l_icle_id_tab l_icle_id_type;
6435: l_ichr_id_tab l_ichr_id_type;
6456: l_iprogram_update_date_tab l_iprogram_update_date_type;
6457: l_irequest_id_tab l_irequest_id_type;
6458:
6459: l_items_counter NUMBER := 1;
6460: -- For okc_k_items End
6461:
6462: -- For okl_trx_assets Begin (42)
6463:
6464: l_tid_tab l_tid_type;
6979:
6980: --l_okl_k_lines_rec2 lines_tbl_type;
6981: l_okl_k_lines_rec l_okl_k_lines_rec_tab;
6982: l_okl_k_lines_rec_counter NUMBER := 1;
6983: l_okc_k_items_rec l_okc_k_items_rec_tab;
6984: l_okc_k_items_rec_counter NUMBER := 1;
6985:
6986: l_bid_mapping_tab l_bid_mapping_tab_type;
6987: l_cle_lse_mapping_tab l_cle_lse_mapping_tab_type;
6980: --l_okl_k_lines_rec2 lines_tbl_type;
6981: l_okl_k_lines_rec l_okl_k_lines_rec_tab;
6982: l_okl_k_lines_rec_counter NUMBER := 1;
6983: l_okc_k_items_rec l_okc_k_items_rec_tab;
6984: l_okc_k_items_rec_counter NUMBER := 1;
6985:
6986: l_bid_mapping_tab l_bid_mapping_tab_type;
6987: l_cle_lse_mapping_tab l_cle_lse_mapping_tab_type;
6988: l_orig_system_tab l_orig_system_tab_type;
11085: -- Query from mtl_system_items
11086: SELECT a.asset_category_id
11087: INTO l_asset_category_id
11088: FROM mtl_system_items a,
11089: okc_k_items b
11090: WHERE a.inventory_item_id = TO_NUMBER(b.object1_id1)
11091: AND a.organization_id = TO_NUMBER(b.object1_id2)
11092: AND b.cle_id = l_34_id;
11093: --and b.cle_id = l_curr_id; previous wrong
14834: RAISE OKC_API.G_EXCEPTION_ERROR;
14835:
14836: END; /* sort_oid_mapping_tab */
14837:
14838: FUNCTION find_okc_k_items_rec(p_id IN NUMBER) RETURN l_okc_k_items_rec_type IS
14839: hi NUMBER;
14840: lo NUMBER;
14841: m NUMBER;
14842: l_dummy_rec l_okc_k_items_rec_type;
14838: FUNCTION find_okc_k_items_rec(p_id IN NUMBER) RETURN l_okc_k_items_rec_type IS
14839: hi NUMBER;
14840: lo NUMBER;
14841: m NUMBER;
14842: l_dummy_rec l_okc_k_items_rec_type;
14843: BEGIN
14844: lo := 1;
14845: hi := l_okc_k_items_rec_counter - 1;
14846: WHILE (lo <= hi) LOOP
14841: m NUMBER;
14842: l_dummy_rec l_okc_k_items_rec_type;
14843: BEGIN
14844: lo := 1;
14845: hi := l_okc_k_items_rec_counter - 1;
14846: WHILE (lo <= hi) LOOP
14847: m := FLOOR((hi + lo)/2);
14848: IF (l_okc_k_items_rec(m).id = p_id) THEN
14849: RETURN l_okc_k_items_rec(m);
14844: lo := 1;
14845: hi := l_okc_k_items_rec_counter - 1;
14846: WHILE (lo <= hi) LOOP
14847: m := FLOOR((hi + lo)/2);
14848: IF (l_okc_k_items_rec(m).id = p_id) THEN
14849: RETURN l_okc_k_items_rec(m);
14850: ELSIF (l_okc_k_items_rec(m).id > p_id) THEN
14851: hi := m - 1;
14852: ELSE
14845: hi := l_okc_k_items_rec_counter - 1;
14846: WHILE (lo <= hi) LOOP
14847: m := FLOOR((hi + lo)/2);
14848: IF (l_okc_k_items_rec(m).id = p_id) THEN
14849: RETURN l_okc_k_items_rec(m);
14850: ELSIF (l_okc_k_items_rec(m).id > p_id) THEN
14851: hi := m - 1;
14852: ELSE
14853: lo := m + 1;
14846: WHILE (lo <= hi) LOOP
14847: m := FLOOR((hi + lo)/2);
14848: IF (l_okc_k_items_rec(m).id = p_id) THEN
14849: RETURN l_okc_k_items_rec(m);
14850: ELSIF (l_okc_k_items_rec(m).id > p_id) THEN
14851: hi := m - 1;
14852: ELSE
14853: lo := m + 1;
14854: END IF;
14854: END IF;
14855: END LOOP;
14856: l_dummy_rec.number_of_items := OKC_API.G_MISS_NUM;
14857: RETURN l_dummy_rec;
14858: END; /* find_okc_k_items_rec */
14859:
14860: PROCEDURE sort_okc_k_items_rec IS
14861: TYPE numtabtype IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
14862: --a numtabtype;
14856: l_dummy_rec.number_of_items := OKC_API.G_MISS_NUM;
14857: RETURN l_dummy_rec;
14858: END; /* find_okc_k_items_rec */
14859:
14860: PROCEDURE sort_okc_k_items_rec IS
14861: TYPE numtabtype IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
14862: --a numtabtype;
14863: l_stack numtabtype;
14864: l_stack_index NUMBER := 0;
14878: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
14879: END IF;
14880: NULL;
14881:
14882: N := l_okc_k_items_rec_counter - 1;
14883: IF (N < 2) THEN
14884: RETURN;
14885: END IF;
14886: l_stack_index := l_stack_index + 1;
14901: I := L;
14902: J := R;
14903: P := FLOOR((L+R)/2);
14904: --if (a(L) > a(P)) then
14905: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(P).id)
14906: THEN
14907: W := l_okc_k_items_rec(L).id;
14908: W2 := l_okc_k_items_rec(L).number_of_items;
14909: W3 := l_okc_k_items_rec(L).object1_id1;
14903: P := FLOOR((L+R)/2);
14904: --if (a(L) > a(P)) then
14905: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(P).id)
14906: THEN
14907: W := l_okc_k_items_rec(L).id;
14908: W2 := l_okc_k_items_rec(L).number_of_items;
14909: W3 := l_okc_k_items_rec(L).object1_id1;
14910: W4 := l_okc_k_items_rec(L).object1_id2;
14911: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
14904: --if (a(L) > a(P)) then
14905: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(P).id)
14906: THEN
14907: W := l_okc_k_items_rec(L).id;
14908: W2 := l_okc_k_items_rec(L).number_of_items;
14909: W3 := l_okc_k_items_rec(L).object1_id1;
14910: W4 := l_okc_k_items_rec(L).object1_id2;
14911: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
14912: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
14905: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(P).id)
14906: THEN
14907: W := l_okc_k_items_rec(L).id;
14908: W2 := l_okc_k_items_rec(L).number_of_items;
14909: W3 := l_okc_k_items_rec(L).object1_id1;
14910: W4 := l_okc_k_items_rec(L).object1_id2;
14911: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
14912: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
14913: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
14906: THEN
14907: W := l_okc_k_items_rec(L).id;
14908: W2 := l_okc_k_items_rec(L).number_of_items;
14909: W3 := l_okc_k_items_rec(L).object1_id1;
14910: W4 := l_okc_k_items_rec(L).object1_id2;
14911: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
14912: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
14913: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
14914: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
14907: W := l_okc_k_items_rec(L).id;
14908: W2 := l_okc_k_items_rec(L).number_of_items;
14909: W3 := l_okc_k_items_rec(L).object1_id1;
14910: W4 := l_okc_k_items_rec(L).object1_id2;
14911: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
14912: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
14913: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
14914: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
14915: l_okc_k_items_rec(P).id := W;
14908: W2 := l_okc_k_items_rec(L).number_of_items;
14909: W3 := l_okc_k_items_rec(L).object1_id1;
14910: W4 := l_okc_k_items_rec(L).object1_id2;
14911: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
14912: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
14913: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
14914: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
14915: l_okc_k_items_rec(P).id := W;
14916: l_okc_k_items_rec(P).number_of_items := W2;
14909: W3 := l_okc_k_items_rec(L).object1_id1;
14910: W4 := l_okc_k_items_rec(L).object1_id2;
14911: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
14912: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
14913: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
14914: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
14915: l_okc_k_items_rec(P).id := W;
14916: l_okc_k_items_rec(P).number_of_items := W2;
14917: l_okc_k_items_rec(P).object1_id1 := W3;
14910: W4 := l_okc_k_items_rec(L).object1_id2;
14911: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
14912: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
14913: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
14914: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
14915: l_okc_k_items_rec(P).id := W;
14916: l_okc_k_items_rec(P).number_of_items := W2;
14917: l_okc_k_items_rec(P).object1_id1 := W3;
14918: l_okc_k_items_rec(P).object1_id2 := W4;
14911: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(P).id;
14912: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
14913: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
14914: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
14915: l_okc_k_items_rec(P).id := W;
14916: l_okc_k_items_rec(P).number_of_items := W2;
14917: l_okc_k_items_rec(P).object1_id1 := W3;
14918: l_okc_k_items_rec(P).object1_id2 := W4;
14919: END IF;
14912: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(P).number_of_items;
14913: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
14914: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
14915: l_okc_k_items_rec(P).id := W;
14916: l_okc_k_items_rec(P).number_of_items := W2;
14917: l_okc_k_items_rec(P).object1_id1 := W3;
14918: l_okc_k_items_rec(P).object1_id2 := W4;
14919: END IF;
14920: --if (a(L) > a(R)) then
14913: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(P).object1_id1;
14914: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
14915: l_okc_k_items_rec(P).id := W;
14916: l_okc_k_items_rec(P).number_of_items := W2;
14917: l_okc_k_items_rec(P).object1_id1 := W3;
14918: l_okc_k_items_rec(P).object1_id2 := W4;
14919: END IF;
14920: --if (a(L) > a(R)) then
14921: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
14914: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(P).object1_id2;
14915: l_okc_k_items_rec(P).id := W;
14916: l_okc_k_items_rec(P).number_of_items := W2;
14917: l_okc_k_items_rec(P).object1_id1 := W3;
14918: l_okc_k_items_rec(P).object1_id2 := W4;
14919: END IF;
14920: --if (a(L) > a(R)) then
14921: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
14922: THEN
14917: l_okc_k_items_rec(P).object1_id1 := W3;
14918: l_okc_k_items_rec(P).object1_id2 := W4;
14919: END IF;
14920: --if (a(L) > a(R)) then
14921: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
14922: THEN
14923: W := l_okc_k_items_rec(L).id;
14924: W2 := l_okc_k_items_rec(L).number_of_items;
14925: W3 := l_okc_k_items_rec(L).object1_id1;
14919: END IF;
14920: --if (a(L) > a(R)) then
14921: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
14922: THEN
14923: W := l_okc_k_items_rec(L).id;
14924: W2 := l_okc_k_items_rec(L).number_of_items;
14925: W3 := l_okc_k_items_rec(L).object1_id1;
14926: W4 := l_okc_k_items_rec(L).object1_id2;
14927: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
14920: --if (a(L) > a(R)) then
14921: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
14922: THEN
14923: W := l_okc_k_items_rec(L).id;
14924: W2 := l_okc_k_items_rec(L).number_of_items;
14925: W3 := l_okc_k_items_rec(L).object1_id1;
14926: W4 := l_okc_k_items_rec(L).object1_id2;
14927: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
14928: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14921: IF (l_okc_k_items_rec(L).id > l_okc_k_items_rec(R).id)
14922: THEN
14923: W := l_okc_k_items_rec(L).id;
14924: W2 := l_okc_k_items_rec(L).number_of_items;
14925: W3 := l_okc_k_items_rec(L).object1_id1;
14926: W4 := l_okc_k_items_rec(L).object1_id2;
14927: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
14928: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14929: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14922: THEN
14923: W := l_okc_k_items_rec(L).id;
14924: W2 := l_okc_k_items_rec(L).number_of_items;
14925: W3 := l_okc_k_items_rec(L).object1_id1;
14926: W4 := l_okc_k_items_rec(L).object1_id2;
14927: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
14928: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14929: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14930: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14923: W := l_okc_k_items_rec(L).id;
14924: W2 := l_okc_k_items_rec(L).number_of_items;
14925: W3 := l_okc_k_items_rec(L).object1_id1;
14926: W4 := l_okc_k_items_rec(L).object1_id2;
14927: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
14928: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14929: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14930: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14931: l_okc_k_items_rec(R).id := W;
14924: W2 := l_okc_k_items_rec(L).number_of_items;
14925: W3 := l_okc_k_items_rec(L).object1_id1;
14926: W4 := l_okc_k_items_rec(L).object1_id2;
14927: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
14928: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14929: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14930: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14931: l_okc_k_items_rec(R).id := W;
14932: l_okc_k_items_rec(R).number_of_items := W2;
14925: W3 := l_okc_k_items_rec(L).object1_id1;
14926: W4 := l_okc_k_items_rec(L).object1_id2;
14927: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
14928: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14929: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14930: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14931: l_okc_k_items_rec(R).id := W;
14932: l_okc_k_items_rec(R).number_of_items := W2;
14933: l_okc_k_items_rec(R).object1_id1 := W3;
14926: W4 := l_okc_k_items_rec(L).object1_id2;
14927: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
14928: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14929: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14930: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14931: l_okc_k_items_rec(R).id := W;
14932: l_okc_k_items_rec(R).number_of_items := W2;
14933: l_okc_k_items_rec(R).object1_id1 := W3;
14934: l_okc_k_items_rec(R).object1_id2 := W4;
14927: l_okc_k_items_rec(L).id :=l_okc_k_items_rec(R).id;
14928: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14929: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14930: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14931: l_okc_k_items_rec(R).id := W;
14932: l_okc_k_items_rec(R).number_of_items := W2;
14933: l_okc_k_items_rec(R).object1_id1 := W3;
14934: l_okc_k_items_rec(R).object1_id2 := W4;
14935: END IF;
14928: l_okc_k_items_rec(L).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14929: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14930: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14931: l_okc_k_items_rec(R).id := W;
14932: l_okc_k_items_rec(R).number_of_items := W2;
14933: l_okc_k_items_rec(R).object1_id1 := W3;
14934: l_okc_k_items_rec(R).object1_id2 := W4;
14935: END IF;
14936: --if (a(P) > a(R)) then
14929: l_okc_k_items_rec(L).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14930: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14931: l_okc_k_items_rec(R).id := W;
14932: l_okc_k_items_rec(R).number_of_items := W2;
14933: l_okc_k_items_rec(R).object1_id1 := W3;
14934: l_okc_k_items_rec(R).object1_id2 := W4;
14935: END IF;
14936: --if (a(P) > a(R)) then
14937: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
14930: l_okc_k_items_rec(L).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14931: l_okc_k_items_rec(R).id := W;
14932: l_okc_k_items_rec(R).number_of_items := W2;
14933: l_okc_k_items_rec(R).object1_id1 := W3;
14934: l_okc_k_items_rec(R).object1_id2 := W4;
14935: END IF;
14936: --if (a(P) > a(R)) then
14937: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
14938: THEN
14933: l_okc_k_items_rec(R).object1_id1 := W3;
14934: l_okc_k_items_rec(R).object1_id2 := W4;
14935: END IF;
14936: --if (a(P) > a(R)) then
14937: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
14938: THEN
14939: W := l_okc_k_items_rec(P).id;
14940: W2 := l_okc_k_items_rec(P).number_of_items;
14941: W3 := l_okc_k_items_rec(P).object1_id1;
14935: END IF;
14936: --if (a(P) > a(R)) then
14937: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
14938: THEN
14939: W := l_okc_k_items_rec(P).id;
14940: W2 := l_okc_k_items_rec(P).number_of_items;
14941: W3 := l_okc_k_items_rec(P).object1_id1;
14942: W4 := l_okc_k_items_rec(P).object1_id2;
14943: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
14936: --if (a(P) > a(R)) then
14937: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
14938: THEN
14939: W := l_okc_k_items_rec(P).id;
14940: W2 := l_okc_k_items_rec(P).number_of_items;
14941: W3 := l_okc_k_items_rec(P).object1_id1;
14942: W4 := l_okc_k_items_rec(P).object1_id2;
14943: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
14944: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14937: IF (l_okc_k_items_rec(P).id > l_okc_k_items_rec(R).id)
14938: THEN
14939: W := l_okc_k_items_rec(P).id;
14940: W2 := l_okc_k_items_rec(P).number_of_items;
14941: W3 := l_okc_k_items_rec(P).object1_id1;
14942: W4 := l_okc_k_items_rec(P).object1_id2;
14943: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
14944: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14945: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14938: THEN
14939: W := l_okc_k_items_rec(P).id;
14940: W2 := l_okc_k_items_rec(P).number_of_items;
14941: W3 := l_okc_k_items_rec(P).object1_id1;
14942: W4 := l_okc_k_items_rec(P).object1_id2;
14943: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
14944: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14945: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14946: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14939: W := l_okc_k_items_rec(P).id;
14940: W2 := l_okc_k_items_rec(P).number_of_items;
14941: W3 := l_okc_k_items_rec(P).object1_id1;
14942: W4 := l_okc_k_items_rec(P).object1_id2;
14943: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
14944: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14945: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14946: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14947: l_okc_k_items_rec(R).id := W;
14940: W2 := l_okc_k_items_rec(P).number_of_items;
14941: W3 := l_okc_k_items_rec(P).object1_id1;
14942: W4 := l_okc_k_items_rec(P).object1_id2;
14943: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
14944: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14945: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14946: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14947: l_okc_k_items_rec(R).id := W;
14948: l_okc_k_items_rec(R).number_of_items := W2;
14941: W3 := l_okc_k_items_rec(P).object1_id1;
14942: W4 := l_okc_k_items_rec(P).object1_id2;
14943: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
14944: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14945: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14946: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14947: l_okc_k_items_rec(R).id := W;
14948: l_okc_k_items_rec(R).number_of_items := W2;
14949: l_okc_k_items_rec(R).object1_id1 := W3;
14942: W4 := l_okc_k_items_rec(P).object1_id2;
14943: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
14944: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14945: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14946: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14947: l_okc_k_items_rec(R).id := W;
14948: l_okc_k_items_rec(R).number_of_items := W2;
14949: l_okc_k_items_rec(R).object1_id1 := W3;
14950: l_okc_k_items_rec(R).object1_id2 := W4;
14943: l_okc_k_items_rec(P).id :=l_okc_k_items_rec(R).id;
14944: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14945: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14946: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14947: l_okc_k_items_rec(R).id := W;
14948: l_okc_k_items_rec(R).number_of_items := W2;
14949: l_okc_k_items_rec(R).object1_id1 := W3;
14950: l_okc_k_items_rec(R).object1_id2 := W4;
14951: END IF;
14944: l_okc_k_items_rec(P).number_of_items :=l_okc_k_items_rec(R).number_of_items;
14945: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14946: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14947: l_okc_k_items_rec(R).id := W;
14948: l_okc_k_items_rec(R).number_of_items := W2;
14949: l_okc_k_items_rec(R).object1_id1 := W3;
14950: l_okc_k_items_rec(R).object1_id2 := W4;
14951: END IF;
14952: --X := a(P);
14945: l_okc_k_items_rec(P).object1_id1 :=l_okc_k_items_rec(R).object1_id1;
14946: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14947: l_okc_k_items_rec(R).id := W;
14948: l_okc_k_items_rec(R).number_of_items := W2;
14949: l_okc_k_items_rec(R).object1_id1 := W3;
14950: l_okc_k_items_rec(R).object1_id2 := W4;
14951: END IF;
14952: --X := a(P);
14953: X := l_okc_k_items_rec(P).id;
14946: l_okc_k_items_rec(P).object1_id2 :=l_okc_k_items_rec(R).object1_id2;
14947: l_okc_k_items_rec(R).id := W;
14948: l_okc_k_items_rec(R).number_of_items := W2;
14949: l_okc_k_items_rec(R).object1_id1 := W3;
14950: l_okc_k_items_rec(R).object1_id2 := W4;
14951: END IF;
14952: --X := a(P);
14953: X := l_okc_k_items_rec(P).id;
14954: WHILE 1=1
14949: l_okc_k_items_rec(R).object1_id1 := W3;
14950: l_okc_k_items_rec(R).object1_id2 := W4;
14951: END IF;
14952: --X := a(P);
14953: X := l_okc_k_items_rec(P).id;
14954: WHILE 1=1
14955: LOOP -- until I > J
14956: --while (a(I) < X) loop
14957: WHILE (l_okc_k_items_rec(I).id < X) LOOP
14953: X := l_okc_k_items_rec(P).id;
14954: WHILE 1=1
14955: LOOP -- until I > J
14956: --while (a(I) < X) loop
14957: WHILE (l_okc_k_items_rec(I).id < X) LOOP
14958: I := I + 1;
14959: END LOOP;
14960: WHILE (X < l_okc_k_items_rec(J).id) LOOP
14961: J := J - 1;
14956: --while (a(I) < X) loop
14957: WHILE (l_okc_k_items_rec(I).id < X) LOOP
14958: I := I + 1;
14959: END LOOP;
14960: WHILE (X < l_okc_k_items_rec(J).id) LOOP
14961: J := J - 1;
14962: END LOOP;
14963: IF (I <= J) THEN
14964: W := l_okc_k_items_rec(I).id;
14960: WHILE (X < l_okc_k_items_rec(J).id) LOOP
14961: J := J - 1;
14962: END LOOP;
14963: IF (I <= J) THEN
14964: W := l_okc_k_items_rec(I).id;
14965: W2 := l_okc_k_items_rec(I).number_of_items;
14966: W3 := l_okc_k_items_rec(I).object1_id1;
14967: W4 := l_okc_k_items_rec(I).object1_id2;
14968: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
14961: J := J - 1;
14962: END LOOP;
14963: IF (I <= J) THEN
14964: W := l_okc_k_items_rec(I).id;
14965: W2 := l_okc_k_items_rec(I).number_of_items;
14966: W3 := l_okc_k_items_rec(I).object1_id1;
14967: W4 := l_okc_k_items_rec(I).object1_id2;
14968: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
14969: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
14962: END LOOP;
14963: IF (I <= J) THEN
14964: W := l_okc_k_items_rec(I).id;
14965: W2 := l_okc_k_items_rec(I).number_of_items;
14966: W3 := l_okc_k_items_rec(I).object1_id1;
14967: W4 := l_okc_k_items_rec(I).object1_id2;
14968: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
14969: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
14970: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
14963: IF (I <= J) THEN
14964: W := l_okc_k_items_rec(I).id;
14965: W2 := l_okc_k_items_rec(I).number_of_items;
14966: W3 := l_okc_k_items_rec(I).object1_id1;
14967: W4 := l_okc_k_items_rec(I).object1_id2;
14968: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
14969: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
14970: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
14971: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
14964: W := l_okc_k_items_rec(I).id;
14965: W2 := l_okc_k_items_rec(I).number_of_items;
14966: W3 := l_okc_k_items_rec(I).object1_id1;
14967: W4 := l_okc_k_items_rec(I).object1_id2;
14968: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
14969: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
14970: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
14971: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
14972: l_okc_k_items_rec(J).id := W;
14965: W2 := l_okc_k_items_rec(I).number_of_items;
14966: W3 := l_okc_k_items_rec(I).object1_id1;
14967: W4 := l_okc_k_items_rec(I).object1_id2;
14968: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
14969: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
14970: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
14971: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
14972: l_okc_k_items_rec(J).id := W;
14973: l_okc_k_items_rec(J).number_of_items := W2;
14966: W3 := l_okc_k_items_rec(I).object1_id1;
14967: W4 := l_okc_k_items_rec(I).object1_id2;
14968: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
14969: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
14970: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
14971: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
14972: l_okc_k_items_rec(J).id := W;
14973: l_okc_k_items_rec(J).number_of_items := W2;
14974: l_okc_k_items_rec(J).object1_id1 := W3;
14967: W4 := l_okc_k_items_rec(I).object1_id2;
14968: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
14969: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
14970: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
14971: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
14972: l_okc_k_items_rec(J).id := W;
14973: l_okc_k_items_rec(J).number_of_items := W2;
14974: l_okc_k_items_rec(J).object1_id1 := W3;
14975: l_okc_k_items_rec(J).object1_id2 := W4;
14968: l_okc_k_items_rec(I).id :=l_okc_k_items_rec(J).id;
14969: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
14970: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
14971: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
14972: l_okc_k_items_rec(J).id := W;
14973: l_okc_k_items_rec(J).number_of_items := W2;
14974: l_okc_k_items_rec(J).object1_id1 := W3;
14975: l_okc_k_items_rec(J).object1_id2 := W4;
14976: I := I + 1;
14969: l_okc_k_items_rec(I).number_of_items :=l_okc_k_items_rec(J).number_of_items;
14970: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
14971: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
14972: l_okc_k_items_rec(J).id := W;
14973: l_okc_k_items_rec(J).number_of_items := W2;
14974: l_okc_k_items_rec(J).object1_id1 := W3;
14975: l_okc_k_items_rec(J).object1_id2 := W4;
14976: I := I + 1;
14977: J := J - 1;
14970: l_okc_k_items_rec(I).object1_id1 :=l_okc_k_items_rec(J).object1_id1;
14971: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
14972: l_okc_k_items_rec(J).id := W;
14973: l_okc_k_items_rec(J).number_of_items := W2;
14974: l_okc_k_items_rec(J).object1_id1 := W3;
14975: l_okc_k_items_rec(J).object1_id2 := W4;
14976: I := I + 1;
14977: J := J - 1;
14978: END IF;
14971: l_okc_k_items_rec(I).object1_id2 :=l_okc_k_items_rec(J).object1_id2;
14972: l_okc_k_items_rec(J).id := W;
14973: l_okc_k_items_rec(J).number_of_items := W2;
14974: l_okc_k_items_rec(J).object1_id1 := W3;
14975: l_okc_k_items_rec(J).object1_id2 := W4;
14976: I := I + 1;
14977: J := J - 1;
14978: END IF;
14979: EXIT WHEN I > J;
15002:
15003: EXIT WHEN (L >= R);
15004: END LOOP;
15005: END LOOP;
15006: /*print('Now Printing okc_k_items_rec...');
15007: for i in 1..N
15008: loop
15009: 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 );
15010: end loop;*/
15005: END LOOP;
15006: /*print('Now Printing okc_k_items_rec...');
15007: for i in 1..N
15008: loop
15009: 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 );
15010: end loop;*/
15011:
15012:
15013: EXCEPTION WHEN OTHERS THEN
15015: x_return_status := OKL_API.G_RET_STS_ERROR;
15016: /*OKL_API.set_message(p_app_name => 'OKL',
15017: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15018: p_token1 => 'ASSET_NUMBER',
15019: p_token1_value => 'sort_okc_k_items_rec');*/
15020: /* DEBUG */
15021: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15022: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
15023: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing sort_okc_k_items_rec:l_okc_k_items_rec N=' || N || ' ...');
15019: p_token1_value => 'sort_okc_k_items_rec');*/
15020: /* DEBUG */
15021: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15022: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
15023: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing sort_okc_k_items_rec:l_okc_k_items_rec N=' || N || ' ...');
15024: END IF;
15025:
15026: --print array
15027: FOR i IN 1..N
15026: --print array
15027: FOR i IN 1..N
15028: LOOP
15029: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15030: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_okc_k_items_rec('||i||')='
15031: || l_okc_k_items_rec(i).id || ':' || l_okc_k_items_rec(i).number_of_items || ':'
15032: || l_okc_k_items_rec(i).object1_id1 || ':' || l_okc_k_items_rec(i).object1_id2 );
15033: END IF;
15034: END LOOP;
15027: FOR i IN 1..N
15028: LOOP
15029: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15030: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_okc_k_items_rec('||i||')='
15031: || l_okc_k_items_rec(i).id || ':' || l_okc_k_items_rec(i).number_of_items || ':'
15032: || l_okc_k_items_rec(i).object1_id1 || ':' || l_okc_k_items_rec(i).object1_id2 );
15033: END IF;
15034: END LOOP;
15035:
15028: LOOP
15029: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15030: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_okc_k_items_rec('||i||')='
15031: || l_okc_k_items_rec(i).id || ':' || l_okc_k_items_rec(i).number_of_items || ':'
15032: || l_okc_k_items_rec(i).object1_id1 || ':' || l_okc_k_items_rec(i).object1_id2 );
15033: END IF;
15034: END LOOP;
15035:
15036: RAISE OKC_API.G_EXCEPTION_ERROR;
15034: END LOOP;
15035:
15036: RAISE OKC_API.G_EXCEPTION_ERROR;
15037:
15038: END; /* sort_okc_k_items_rec */
15039:
15040:
15041:
15042: PROCEDURE insert_okc_k_items (p_old_id IN okc_k_headers_b.id%TYPE,
15038: END; /* sort_okc_k_items_rec */
15039:
15040:
15041:
15042: PROCEDURE insert_okc_k_items (p_old_id IN okc_k_headers_b.id%TYPE,
15043: p_new_id IN okc_k_headers_b.id%TYPE) IS
15044: CURSOR c16(p_id NUMBER) IS
15045: SELECT
15046: a.id, a.cle_id, a.chr_id,
15051: a.last_updated_by, a.last_update_date, a.last_update_login,
15052: a.security_group_id, a.upg_orig_system_ref, a.upg_orig_system_ref_id,
15053: a.program_application_id, a.program_id, a.program_update_date,
15054: a.request_id, b.lse_id
15055: FROM okc_k_items a,
15056: okc_k_lines_b b
15057: WHERE a.dnz_chr_id = p_id
15058: AND a.cle_id = b.id;
15059:
15182: l_iprogram_id_tab(l_items_counter) := l_iprogram_id_tab2(i);
15183: l_iprogram_update_date_tab(l_items_counter) := l_iprogram_update_date_tab2(i);
15184: l_irequest_id_tab(l_items_counter) := l_irequest_id_tab2(i);
15185:
15186: l_okc_k_items_rec(l_okc_k_items_rec_counter).id := l_icle_id_tab(l_items_counter);
15187: l_okc_k_items_rec(l_okc_k_items_rec_counter).number_of_items := l_inumber_of_items_tab(l_items_counter);
15188: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id1 := l_iobject1_id1_tab(l_items_counter);
15189: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id2 := l_iobject1_id2_tab(l_items_counter);
15190: l_okc_k_items_rec_counter := l_okc_k_items_rec_counter + 1 ;
15183: l_iprogram_update_date_tab(l_items_counter) := l_iprogram_update_date_tab2(i);
15184: l_irequest_id_tab(l_items_counter) := l_irequest_id_tab2(i);
15185:
15186: l_okc_k_items_rec(l_okc_k_items_rec_counter).id := l_icle_id_tab(l_items_counter);
15187: l_okc_k_items_rec(l_okc_k_items_rec_counter).number_of_items := l_inumber_of_items_tab(l_items_counter);
15188: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id1 := l_iobject1_id1_tab(l_items_counter);
15189: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id2 := l_iobject1_id2_tab(l_items_counter);
15190: l_okc_k_items_rec_counter := l_okc_k_items_rec_counter + 1 ;
15191:
15184: l_irequest_id_tab(l_items_counter) := l_irequest_id_tab2(i);
15185:
15186: l_okc_k_items_rec(l_okc_k_items_rec_counter).id := l_icle_id_tab(l_items_counter);
15187: l_okc_k_items_rec(l_okc_k_items_rec_counter).number_of_items := l_inumber_of_items_tab(l_items_counter);
15188: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id1 := l_iobject1_id1_tab(l_items_counter);
15189: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id2 := l_iobject1_id2_tab(l_items_counter);
15190: l_okc_k_items_rec_counter := l_okc_k_items_rec_counter + 1 ;
15191:
15192: l_items_counter := l_items_counter + 1;
15185:
15186: l_okc_k_items_rec(l_okc_k_items_rec_counter).id := l_icle_id_tab(l_items_counter);
15187: l_okc_k_items_rec(l_okc_k_items_rec_counter).number_of_items := l_inumber_of_items_tab(l_items_counter);
15188: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id1 := l_iobject1_id1_tab(l_items_counter);
15189: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id2 := l_iobject1_id2_tab(l_items_counter);
15190: l_okc_k_items_rec_counter := l_okc_k_items_rec_counter + 1 ;
15191:
15192: l_items_counter := l_items_counter + 1;
15193: END LOOP;
15186: l_okc_k_items_rec(l_okc_k_items_rec_counter).id := l_icle_id_tab(l_items_counter);
15187: l_okc_k_items_rec(l_okc_k_items_rec_counter).number_of_items := l_inumber_of_items_tab(l_items_counter);
15188: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id1 := l_iobject1_id1_tab(l_items_counter);
15189: l_okc_k_items_rec(l_okc_k_items_rec_counter).object1_id2 := l_iobject1_id2_tab(l_items_counter);
15190: l_okc_k_items_rec_counter := l_okc_k_items_rec_counter + 1 ;
15191:
15192: l_items_counter := l_items_counter + 1;
15193: END LOOP;
15194: END LOOP;
15193: END LOOP;
15194: END LOOP;
15195: CLOSE c16;
15196: sort_oid_mapping_tab;
15197: sort_okc_k_items_rec;
15198:
15199: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15200: 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);
15201: END IF;
15200: 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);
15201: END IF;
15202: IF (l_items_counter > 1) THEN
15203: forall i IN l_iid_tab.first..l_iid_tab.last
15204: INSERT INTO okc_k_items (
15205: id, cle_id, chr_id,
15206: cle_id_for, dnz_chr_id, object1_id1,
15207: object1_id2, jtot_object1_code, uom_code,
15208: exception_yn, number_of_items, priced_item_yn,
15229: x_return_status := OKL_API.G_RET_STS_ERROR;
15230: /*OKL_API.set_message(p_app_name => 'OKL',
15231: p_msg_name => 'OKL_AM_NO_OLD_SALVAGE_VALUE',
15232: p_token1 => 'ASSET_NUMBER',
15233: p_token1_value => 'insert_okc_k_items');*/
15234: /* DEBUG */
15235: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15236: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
15237: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing insert_okc_k_items:l_iid_tab.count=' || l_iid_tab.COUNT || ' ...');
15233: p_token1_value => 'insert_okc_k_items');*/
15234: /* DEBUG */
15235: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
15236: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sqlcode=' || SQLCODE || ':sqlerrm=' || SQLERRM);
15237: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing insert_okc_k_items:l_iid_tab.count=' || l_iid_tab.COUNT || ' ...');
15238: END IF;
15239: IF (l_iid_tab.COUNT > 0) THEN
15240: FOR i IN l_iid_tab.first..l_iid_tab.last
15241: LOOP
15264: END IF;
15265:
15266: RAISE OKC_API.G_EXCEPTION_ERROR;
15267:
15268: END; /* insert okc_k_items */
15269:
15270: PROCEDURE sort_trx_id_mapping_tab IS
15271: TYPE numtabtype IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
15272: --a numtabtype;
16008: WHERE tal_id IN (
16009: SELECT a.id
16010: FROM okl_txl_assets_b a,
16011: okc_k_lines_b b,
16012: okc_k_items c
16013: WHERE a.dnz_khr_id = p_id
16014: AND b.dnz_chr_id = p_id
16015: AND c.dnz_chr_id = p_id
16016: AND b.lse_id = 42
16454: a.currency_conversion_rate, a.currency_conversion_date, a.asset_key_id,
16455: a.fa_trx_date
16456: FROM okl_txl_assets_b a,
16457: okc_k_lines_b b,
16458: okc_k_items c
16459: WHERE a.dnz_khr_id = p_id
16460: AND b.dnz_chr_id = p_id
16461: AND c.dnz_chr_id = p_id
16462: AND b.lse_id = 42
16911: FROM okl_trx_assets
16912: WHERE id IN
16913: (SELECT a.tas_id FROM okl_txl_assets_b a,
16914: okc_k_lines_b b,
16915: okc_k_items c
16916: WHERE a.dnz_khr_id = p_id
16917: AND b.dnz_chr_id = p_id
16918: AND c.dnz_chr_id = p_id
16919: AND b.lse_id = 42
17137: FROM okl_txl_itm_insts b
17138: WHERE kle_id IN
17139: (SELECT a.id
17140: FROM okc_k_lines_b a,
17141: okc_k_items c
17142: WHERE a.dnz_chr_id = p_id
17143: AND c.dnz_chr_id = p_id
17144: AND c.cle_id = a.id
17145: AND a.lse_id = 45
17400: WHERE p.kle_id IN
17401: (
17402: SELECT a.id
17403: FROM okc_k_lines_b a,
17404: okc_k_items c
17405: WHERE a.dnz_chr_id = p_id
17406: AND c.dnz_chr_id = p_id
17407: AND c.cle_id = a.id
17408: AND a.lse_id = 45
17910: FROM FA_BOOK_CONTROLS FBC,
17911: FA_BOOKS FB,
17912: FA_ADDITIONS_TL FAT,
17913: FA_ADDITIONS_B FA ,
17914: okc_k_items c,
17915: okc_k_lines_b b
17916: WHERE
17917: fbc.book_type_code = fb.book_type_code
17918: AND NVL(fbc.date_ineffective,SYSDATE+1) > SYSDATE
18161:
18162: l_location_id NUMBER;
18163: l_new_asset_number fa_additions_b.asset_number%TYPE;
18164: l_tmp_okl_42_rec l_okl_k_lines_rec_type;
18165: l_tmp_itm_rec l_okc_k_items_rec_type;
18166:
18167: l_cle_id NUMBER;
18168: l_new_33_id NUMBER;
18169: l_tmp_okl_33_rec l_okl_k_lines_rec_type;
18166:
18167: l_cle_id NUMBER;
18168: l_new_33_id NUMBER;
18169: l_tmp_okl_33_rec l_okl_k_lines_rec_type;
18170: l_tmp_okc_34_rec l_okc_k_items_rec_type;
18171: l_new_34_id NUMBER;
18172: l_asset_name_old okc_k_lines_tl.name%TYPE;
18173: l_multi_gaap_profile okl_txd_assets_b.tax_book%TYPE;
18174:
18507: IF (l_id_tab.count > 0) THEN
18508: FOR i IN l_id_tab.first..l_id_tab.last LOOP
18509: IF (l_lse_id_tab(i) = 42) THEN
18510: --print('Found 42: l_id_tab(' ||i || ')=' || l_id_tab(i) ||' l_name_tab('||i||')=' || l_name_tab(i));
18511: l_tmp_itm_rec := find_okc_k_items_rec(l_id_tab(i));
18512: --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);
18513: IF (l_tmp_itm_rec.number_of_items = OKL_API.G_MISS_NUM ) THEN
18514: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18515: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okc_k_items rec not found for ' || l_id_tab(i));
18511: l_tmp_itm_rec := find_okc_k_items_rec(l_id_tab(i));
18512: --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);
18513: IF (l_tmp_itm_rec.number_of_items = OKL_API.G_MISS_NUM ) THEN
18514: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18515: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okc_k_items rec not found for ' || l_id_tab(i));
18516: END IF;
18517: RAISE OKL_API.G_EXCEPTION_ERROR;
18518: END IF;
18519: IF ((l_tmp_itm_rec.object1_id1 IS NULL) AND
18602: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping cle_lse_mapping not found for ' || l_cle_id || ':33');
18603: END IF;
18604: RAISE OKL_API.G_EXCEPTION_ERROR;
18605: END IF;
18606: l_tmp_okc_34_rec := find_okc_k_items_rec(l_new_34_id);
18607: --print('Upto 10... l_tmp_okc_34_rec.number_of_items='|| l_tmp_okc_34_rec.number_of_items);
18608: IF (l_tmp_okc_34_rec.number_of_items = OKL_API.G_MISS_NUM) THEN
18609: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
18610: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ERROR: Mapping okl_k_lines_rec not found for ' || l_new_34_id );
19483: csi.location_id,
19484: csi.serial_number
19485: FROM okx_install_items_v csi,
19486: okc_k_lines_b b,
19487: okc_k_items c
19488: WHERE b.dnz_chr_id = p_id
19489: AND b.lse_id = 45
19490: AND c.dnz_chr_id = p_id
19491: AND b.id = c.cle_id
19498: AND lse_id = p_lse_id;
19499:
19500: /*cursor c_get_object1_id1(p_id number, p_lse_id number) is
19501: select c.object1_id2
19502: from okc_k_items c,
19503: okc_k_lines_b b
19504: where c.cle_id = b.id
19505: and b.id = p_id
19506: and b.lse_id = p_lse_id;*/
19509: TYPE l_inv_master_org_id_type IS TABLE OF okx_install_items_v.inv_master_organization_id%TYPE INDEX BY BINARY_INTEGER;
19510: TYPE l_instance_number_type IS TABLE OF okx_install_items_v.instance_number%TYPE INDEX BY BINARY_INTEGER;
19511: TYPE l_id_type IS TABLE OF okc_k_lines_b.id%TYPE INDEX BY BINARY_INTEGER;
19512: TYPE l_cle_id_type IS TABLE OF okc_k_lines_b.cle_id%TYPE INDEX BY BINARY_INTEGER;
19513: TYPE l_object1_id1_type IS TABLE OF okc_k_items.object1_id1%TYPE INDEX BY BINARY_INTEGER;
19514: TYPE l_location_type_code_type IS TABLE OF okx_install_items_v.location_type_code%TYPE INDEX BY BINARY_INTEGER;
19515: TYPE l_location_id_type IS TABLE OF okx_install_items_v.location_id%TYPE INDEX BY BINARY_INTEGER;
19516: TYPE l_serial_number_type IS TABLE OF okx_install_items_v.serial_number%TYPE INDEX BY BINARY_INTEGER;
19517:
21277: l_message := 'OKL_NEW_COPY_RGR_ERROR';
21278: insert_okc_rg_party_roles(p_chr_id, l_copied_id);
21279:
21280: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21281: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Inserting okc_k_items...' || TO_CHAR(SYSDATE,'HH24:MI:SS'));
21282: END IF;
21283: l_curr_pos := 'okl_copy_lease_contract:42';
21284: l_message := 'OKL_NEW_COPY_CIM_ERROR';
21285: insert_okc_k_items(p_chr_id, l_copied_id);
21281: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Inserting okc_k_items...' || TO_CHAR(SYSDATE,'HH24:MI:SS'));
21282: END IF;
21283: l_curr_pos := 'okl_copy_lease_contract:42';
21284: l_message := 'OKL_NEW_COPY_CIM_ERROR';
21285: insert_okc_k_items(p_chr_id, l_copied_id);
21286:
21287: IF ((l_sts_code_orig IN (
21288: 'APPROVED', 'COMPLETE', 'INCOMPLETE', 'NEW',
21289: 'PASSED', 'PENDING_APPROVAL')) OR