423:
424: l_ship_to NUMBER;
425: l_kle_id NUMBER;
426: l_top_kle_id NUMBER;
427: l_chr_id okc_k_lines_b.chr_id%TYPE;
428: l_asset_name okc_k_lines_v.name%TYPE;
429: l_install_location_id NUMBER;
430: l_location_id NUMBER;
431: --start: 02-APR-07 cklee R12 Billing enhancement project |
441: WHERE id = p_lsm_id;
442:
443: CURSOR check_top_line ( p_cle_id NUMBER ) IS
444: SELECT chr_id
445: FROM okc_k_lines_b
446: where id = p_cle_id;
447:
448: CURSOR derive_top_line_id (p_lsm_id NUMBER) IS
449: SELECT FA.ID
447:
448: CURSOR derive_top_line_id (p_lsm_id NUMBER) IS
449: SELECT FA.ID
450: FROM OKC_K_HEADERS_B CHR,
451: OKC_K_LINES_B TOP_CLE,
452: OKC_LINE_STYLES_b TOP_LSE,
453: OKC_K_LINES_B SUB_CLE,
454: OKC_LINE_STYLES_b SUB_LSE,
455: OKC_K_ITEMS CIM,
449: SELECT FA.ID
450: FROM OKC_K_HEADERS_B CHR,
451: OKC_K_LINES_B TOP_CLE,
452: OKC_LINE_STYLES_b TOP_LSE,
453: OKC_K_LINES_B SUB_CLE,
454: OKC_LINE_STYLES_b SUB_LSE,
455: OKC_K_ITEMS CIM,
456: OKC_K_LINES_V FA,
457: OKC_LINE_STYLES_B AST_LSE,
485: csi.install_location_id
486: , csi.location_id
487: FROM csi_item_instances csi,
488: okc_k_items cim,
489: okc_k_lines_b inst,
490: okc_k_lines_b ib,
491: okc_line_styles_b lse
492: WHERE csi.instance_id = TO_NUMBER(cim.object1_id1)
493: AND cim.cle_id = ib.id
486: , csi.location_id
487: FROM csi_item_instances csi,
488: okc_k_items cim,
489: okc_k_lines_b inst,
490: okc_k_lines_b ib,
491: okc_line_styles_b lse
492: WHERE csi.instance_id = TO_NUMBER(cim.object1_id1)
493: AND cim.cle_id = ib.id
494: AND ib.cle_id = inst.id
535: is_top_line_flag boolean;
536:
537: CURSOR is_top_line ( p_cle_id NUMBER ) IS
538: SELECT 1
539: FROM okc_k_lines_b kle
540: where kle.id = p_cle_id
541: and kle.cle_id is null; -- it's top line
542:
543: CURSOR get_top_line ( p_cle_id NUMBER ) IS
541: and kle.cle_id is null; -- it's top line
542:
543: CURSOR get_top_line ( p_cle_id NUMBER ) IS
544: select cle.id--, lse.lty_code
545: from okc_k_lines_b cle--,
546: -- okc_line_styles_b lse
547: -- where lse.id = cle.lse_id
548: -- and cle.cle_id is null
549: where cle.cle_id is null -- it's top line
916:
917: l_ship_to NUMBER;
918: l_kle_id NUMBER;
919: l_top_kle_id NUMBER;
920: l_chr_id okc_k_lines_b.chr_id%TYPE;
921: l_asset_name okc_k_lines_v.name%TYPE;
922: l_install_location_id NUMBER;
923: l_location_id NUMBER;
924: --start: 02-APR-07 cklee R12 Billing enhancement project |
931: WHERE id = p_lsm_id;
932:
933: CURSOR check_top_line ( p_cle_id NUMBER ) IS
934: SELECT chr_id
935: FROM okc_k_lines_b
936: where id = p_cle_id;
937:
938: CURSOR derive_top_line_id (p_lsm_id NUMBER) IS
939: SELECT FA.ID
937:
938: CURSOR derive_top_line_id (p_lsm_id NUMBER) IS
939: SELECT FA.ID
940: FROM OKC_K_HEADERS_B CHR,
941: OKC_K_LINES_B TOP_CLE,
942: OKC_LINE_STYLES_b TOP_LSE,
943: OKC_K_LINES_B SUB_CLE,
944: OKC_LINE_STYLES_b SUB_LSE,
945: OKC_K_ITEMS CIM,
939: SELECT FA.ID
940: FROM OKC_K_HEADERS_B CHR,
941: OKC_K_LINES_B TOP_CLE,
942: OKC_LINE_STYLES_b TOP_LSE,
943: OKC_K_LINES_B SUB_CLE,
944: OKC_LINE_STYLES_b SUB_LSE,
945: OKC_K_ITEMS CIM,
946: OKC_K_LINES_V FA,
947: OKC_LINE_STYLES_B AST_LSE,
975: csi.install_location_id
976: , csi.location_id
977: FROM csi_item_instances csi,
978: okc_k_items cim,
979: okc_k_lines_b inst,
980: okc_k_lines_b ib,
981: okc_line_styles_b lse
982: WHERE csi.instance_id = TO_NUMBER(cim.object1_id1)
983: AND cim.cle_id = ib.id
976: , csi.location_id
977: FROM csi_item_instances csi,
978: okc_k_items cim,
979: okc_k_lines_b inst,
980: okc_k_lines_b ib,
981: okc_line_styles_b lse
982: WHERE csi.instance_id = TO_NUMBER(cim.object1_id1)
983: AND cim.cle_id = ib.id
984: AND ib.cle_id = inst.id
1027: l_uom_code mtl_system_items.primary_uom_code%TYPE;
1028:
1029: CURSOR get_inv_item_id ( p_fin_asset_line_id NUMBER ) IS
1030: SELECT c.OBJECT1_ID1
1031: FROM okc_k_lines_b a,
1032: okc_line_styles_b b,
1033: okc_k_items c
1034: WHERE a.cle_id = p_fin_asset_line_id
1035: AND b.lty_code = 'ITEM'
1065: is_top_line_flag boolean;
1066:
1067: CURSOR is_top_line ( p_cle_id NUMBER ) IS
1068: SELECT 1
1069: FROM okc_k_lines_b kle
1070: where kle.id = p_cle_id
1071: and kle.cle_id is null; -- it's top line
1072:
1073: CURSOR get_top_line ( p_cle_id NUMBER ) IS
1071: and kle.cle_id is null; -- it's top line
1072:
1073: CURSOR get_top_line ( p_cle_id NUMBER ) IS
1074: select cle.id--, lse.lty_code
1075: from okc_k_lines_b cle--,
1076: -- okc_line_styles_b lse
1077: -- where lse.id = cle.lse_id
1078: -- and cle.cle_id is null
1079: where cle.cle_id is null -- it's top line