[Home] [Help]
103: PROCEDURE raise_business_event(p_api_version IN NUMBER,
104: p_init_msg_list IN VARCHAR2,
105: p_chr_id IN okc_k_headers_b.id%TYPE,
106: p_oks_chr_id IN okc_k_headers_b.id%TYPE,
107: p_okl_service_line_id IN okc_k_lines_b.id%TYPE,
108: p_oks_service_line_id IN okc_k_lines_b.id%TYPE,
109: p_event_name IN VARCHAR2,
110: x_return_status OUT NOCOPY VARCHAR2,
111: x_msg_count OUT NOCOPY NUMBER,
104: p_init_msg_list IN VARCHAR2,
105: p_chr_id IN okc_k_headers_b.id%TYPE,
106: p_oks_chr_id IN okc_k_headers_b.id%TYPE,
107: p_okl_service_line_id IN okc_k_lines_b.id%TYPE,
108: p_oks_service_line_id IN okc_k_lines_b.id%TYPE,
109: p_event_name IN VARCHAR2,
110: x_return_status OUT NOCOPY VARCHAR2,
111: x_msg_count OUT NOCOPY NUMBER,
112: x_msg_data OUT NOCOPY VARCHAR2
651: okl_fin_line.id fin_line_id,
652: okl_fin_line.name asset_number,
653: okl_item.number_of_items okl_no_of_item,
654: srv_item.number_of_items srv_no_of_item
655: FROM okc_k_lines_b srv_line,
656: okc_line_styles_b srv_style,
657: okc_k_items srv_item,
658: okx_customer_products_v srv_prod,
659: okc_k_items okl_item,
657: okc_k_items srv_item,
658: okx_customer_products_v srv_prod,
659: okc_k_items okl_item,
660: mtl_system_items_b okl_mtl,
661: okc_k_lines_b okl_item_line,
662: okc_k_lines_v okl_fin_line,
663: okc_line_styles_b okl_style
664: WHERE srv_line.lse_id = srv_style.id
665: AND srv_line.id = srv_item.cle_id
1410: AND rlobj.rty_code = 'OKLSRV'
1411: AND rlobj.jtot_object1_code = 'OKL_SERVICE_LINE';
1412:
1413:
1414: CURSOR get_service_header_id(p_oks_service_line_id okc_k_lines_b.id%TYPE) IS
1415: SELECT dnz_chr_id
1416: FROM okc_k_lines_b
1417: WHERE id = p_oks_service_line_id;
1418: /*
1412:
1413:
1414: CURSOR get_service_header_id(p_oks_service_line_id okc_k_lines_b.id%TYPE) IS
1415: SELECT dnz_chr_id
1416: FROM okc_k_lines_b
1417: WHERE id = p_oks_service_line_id;
1418: /*
1419: * sjalsut: aug 18, 04 added cursors to fetch the service contract id and
1420: * service line id from the context contract and contract top line. END.
1429: * sjalsut: aug 18, 04 added variables to hold service contract header id and
1430: * service contract line id. BEGIN.
1431: */
1432: l_serv_contract_hdr_id okc_k_headers_b.id%TYPE;
1433: l_serv_contract_line_id okc_k_lines_b.id%TYPE;
1434:
1435: /*
1436: * sjalsut: aug 18, 04 added variables to hold service contract header id and
1437: * service contract line id. BEGIN.
3048: l_proc_name VARCHAR2(35) := 'INITIATE_SERVICE_BOOKING';
3049: l_api_version CONSTANT NUMBER := 1;
3050:
3051: CURSOR ib_csr (p_okl_chr_id OKC_K_HEADERS_B.ID%TYPE,
3052: p_okl_cov_line_id OKC_K_LINES_B.ID%TYPE) IS
3053: SELECT ib_line.id,
3054: ib_item.id,
3055: ib_item.object1_id1,
3056: ib_item.object1_id2
3053: SELECT ib_line.id,
3054: ib_item.id,
3055: ib_item.object1_id1,
3056: ib_item.object1_id2
3057: FROM okc_k_lines_b ib_line,
3058: okc_line_styles_b ib_style,
3059: okc_k_items ib_item,
3060: okc_k_lines_b cov_line,
3061: okc_k_items cov_item,
3056: ib_item.object1_id2
3057: FROM okc_k_lines_b ib_line,
3058: okc_line_styles_b ib_style,
3059: okc_k_items ib_item,
3060: okc_k_lines_b cov_line,
3061: okc_k_items cov_item,
3062: okc_k_lines_b inst_line,
3063: okc_line_styles_b inst_style,
3064: okc_k_rel_objs rel
3058: okc_line_styles_b ib_style,
3059: okc_k_items ib_item,
3060: okc_k_lines_b cov_line,
3061: okc_k_items cov_item,
3062: okc_k_lines_b inst_line,
3063: okc_line_styles_b inst_style,
3064: okc_k_rel_objs rel
3065: WHERE rel.cle_id = cov_line.id
3066: AND rel.chr_id = cov_line.dnz_chr_id
3082: AND ib_item.object1_id1 IS NULL
3083: AND ROWNUM < 2; -- to ensure first line with null instance_id
3084:
3085: CURSOR oks_ib_csr (p_oks_chr_id OKC_K_HEADERS_B.ID%TYPE,
3086: p_oks_cov_line_id OKC_K_LINES_B.ID%TYPE) IS
3087: SELECT object1_id1,
3088: object1_id2
3089: FROM okc_k_items
3090: WHERE cle_id = p_oks_cov_line_id
3102: csi.instance_number
3103: FROM okc_k_rel_objs krel,
3104: okc_k_items kitem,
3105: csi_item_instances csi,
3106: okc_k_lines_b line,
3107: okc_line_styles_b style,
3108: OKC_STATUSES_B sts
3109: WHERE krel.rty_code = 'OKLSRV'
3110: AND krel.jtot_object1_code = 'OKL_COV_PROD'
3128: l_oks_chr_id OKC_K_HEADERS_B.ID%TYPE;
3129: l_link_line_tbl OKL_SERVICE_INTEGRATION_PUB.link_line_tbl_type;
3130: l_cimv_rec okc_contract_item_pub.cimv_rec_type;
3131: x_cimv_rec okc_contract_item_pub.cimv_rec_type;
3132: l_ib_line_id OKC_K_LINES_B.ID%TYPE;
3133: l_ib_item_id OKC_K_ITEMS_V.ID%TYPE;
3134: l_ib_object1_id1 OKC_K_ITEMS_V.OBJECT1_ID1%TYPE;
3135: l_ib_object1_id2 OKC_K_ITEMS_V.OBJECT1_ID2%TYPE;
3136:
3411: ) IS
3412:
3413: l_proc_name VARCHAR2(35) := 'process_serial_item';
3414:
3415: CURSOR serial_csr (p_srv_line_id OKC_K_LINES_B.ID%TYPE,
3416: p_asset_id OKC_K_LINES_B.ID%TYPE) IS
3417: SELECT *
3418: FROM okl_la_cov_asset_uv
3419: WHERE serv_top_line_id = p_srv_line_id
3412:
3413: l_proc_name VARCHAR2(35) := 'process_serial_item';
3414:
3415: CURSOR serial_csr (p_srv_line_id OKC_K_LINES_B.ID%TYPE,
3416: p_asset_id OKC_K_LINES_B.ID%TYPE) IS
3417: SELECT *
3418: FROM okl_la_cov_asset_uv
3419: WHERE serv_top_line_id = p_srv_line_id
3420: AND id1 = p_asset_id
3420: AND id1 = p_asset_id
3421: AND serial_number_control_code <> 1;
3422:
3423: TYPE cov_prod_rec IS RECORD (
3424: oks_cov_line_id OKC_K_LINES_B.ID%TYPE,
3425: serv_top_line_id OKC_K_LINES_B.ID%TYPE
3426: );
3427: TYPE cov_prod_tbl IS TABLE OF cov_prod_rec
3428: INDEX BY BINARY_INTEGER;
3421: AND serial_number_control_code <> 1;
3422:
3423: TYPE cov_prod_rec IS RECORD (
3424: oks_cov_line_id OKC_K_LINES_B.ID%TYPE,
3425: serv_top_line_id OKC_K_LINES_B.ID%TYPE
3426: );
3427: TYPE cov_prod_tbl IS TABLE OF cov_prod_rec
3428: INDEX BY BINARY_INTEGER;
3429:
3577:
3578: CURSOR oks_cov_csr(p_oks_serv_id OKC_K_LINES_V.ID%TYPE) IS
3579: SELECT line.id,
3580: line.price_negotiated
3581: FROM okc_k_lines_b line,
3582: okc_line_styles_v style
3583: WHERE line.lse_id = style.id
3584: AND cle_id = p_oks_serv_id
3585: AND lty_code = 'COVER_PROD'
3603: AND lease_item_qty = service_item_qty
3604: -- bug 4889070. END
3605: AND NOT EXISTS (SELECT 'Y'
3606: FROM okc_k_items cov_item,
3607: okc_k_lines_b line
3608: WHERE cov_item.object1_id1 = cov_asset.id1
3609: AND cov_item.jtot_object1_code = 'OKX_COVASST'
3610: AND line.id = cov_item.cle_id
3611: AND line.id = cov_asset.serv_top_line_id
4347: p_cle_id OKC_K_LINES_V.ID%TYPE) IS
4348: SELECT kitem.id,
4349: kitem.object1_id1,
4350: kitem.cle_id
4351: FROM okc_k_lines_b form2,
4352: okc_line_styles_b f2_style,
4353: okc_k_lines_b inst,
4354: okc_line_styles_b inst_style,
4355: okc_k_items_v kitem
4349: kitem.object1_id1,
4350: kitem.cle_id
4351: FROM okc_k_lines_b form2,
4352: okc_line_styles_b f2_style,
4353: okc_k_lines_b inst,
4354: okc_line_styles_b inst_style,
4355: okc_k_items_v kitem
4356: WHERE form2.lse_id = f2_style.id
4357: AND f2_style.lty_code = 'FREE_FORM2'