eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OKL_SERVICE_INTEGRATION_PVT dependencies on OKC_K_HEADERS_V

Line 169: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID

165: p_init_msg_list IN VARCHAR2,
166: x_return_status OUT NOCOPY VARCHAR2,
167: x_msg_count OUT NOCOPY NUMBER,
168: x_msg_data OUT NOCOPY VARCHAR2,
169: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
170: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
171: p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Service Contract Service Top Line ID
172: p_supplier_id IN NUMBER, -- OKL_VENDOR
173: x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE -- Returns Lease Contract Service TOP Line ID

Line 170: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID

166: x_return_status OUT NOCOPY VARCHAR2,
167: x_msg_count OUT NOCOPY NUMBER,
168: x_msg_data OUT NOCOPY VARCHAR2,
169: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
170: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
171: p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Service Contract Service Top Line ID
172: p_supplier_id IN NUMBER, -- OKL_VENDOR
173: x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE -- Returns Lease Contract Service TOP Line ID
174: )IS

Line 180: l_okl_service_line_id OKC_K_HEADERS_V.ID%TYPE;

176: l_api_name VARCHAR2(35) := 'create_link_service_line';
177: l_proc_name VARCHAR2(35) := 'CREATE_LINK_SERVICE_LINE';
178: l_api_version CONSTANT NUMBER := 1;
179:
180: l_okl_service_line_id OKC_K_HEADERS_V.ID%TYPE;
181:
182: BEGIN
183: IF (G_DEBUG_ENABLED = 'Y') THEN
184: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);

Line 401: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE,

397: PROCEDURE validate_integration(
398: x_return_status OUT NOCOPY VARCHAR2,
399: x_msg_count OUT NOCOPY NUMBER,
400: x_msg_data OUT NOCOPY VARCHAR2,
401: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
402: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE
403: ) IS
404:
405:

Line 402: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE

398: x_return_status OUT NOCOPY VARCHAR2,
399: x_msg_count OUT NOCOPY NUMBER,
400: x_msg_data OUT NOCOPY VARCHAR2,
401: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
402: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE
403: ) IS
404:
405:
406: -- Check for 11.5.9 or 11.5.10 OKS version

Line 416: CURSOR oks_info_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

412:
413: l_dummy NUMBER;
414: l_oks_ver VARCHAR2(3);
415:
416: CURSOR oks_info_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
417: SELECT contract_number,
418: currency_code,
419: customer_id,
420: bill_to_id

Line 424: CURSOR oks_info_csr9 (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

420: bill_to_id
421: FROM okl_la_link_service_uv
422: WHERE chr_id = p_chr_id;
423:
424: CURSOR oks_info_csr9 (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
425: SELECT contract_number,
426: currency_code,
427: customer_id,
428: bill_to_id

Line 432: CURSOR okl_curr_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

428: bill_to_id
429: FROM okl_la_link_service_uv9
430: WHERE chr_id = p_chr_id;
431:
432: CURSOR okl_curr_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
433: SELECT contract_number,
434: currency_code
435: FROM okc_k_headers_v
436: WHERE id = p_chr_id;

Line 435: FROM okc_k_headers_v

431:
432: CURSOR okl_curr_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
433: SELECT contract_number,
434: currency_code
435: FROM okc_k_headers_v
436: WHERE id = p_chr_id;
437:
438: CURSOR okl_cust_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
439: SELECT role.object1_id1

Line 438: CURSOR okl_cust_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

434: currency_code
435: FROM okc_k_headers_v
436: WHERE id = p_chr_id;
437:
438: CURSOR okl_cust_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
439: SELECT role.object1_id1
440: FROM okc_k_party_roles_v role
441: WHERE role.chr_id = p_chr_id
442: AND role.rle_code = 'LESSEE';

Line 444: CURSOR okl_bill_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

440: FROM okc_k_party_roles_v role
441: WHERE role.chr_id = p_chr_id
442: AND role.rle_code = 'LESSEE';
443:
444: CURSOR okl_bill_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
445: SELECT rule.object1_id1
446: FROM okc_rule_groups_v rgp,
447: okc_rules_v rule
448: WHERE rgp.chr_id = p_chr_id

Line 463: l_okl_currency OKC_K_HEADERS_V.CURRENCY_CODE%TYPE;

459: AND rty_code = 'OKLSRV';
460:
461: l_proc_name VARCHAR2(35) := 'VALIDATE_INTEGRATION';
462:
463: l_okl_currency OKC_K_HEADERS_V.CURRENCY_CODE%TYPE;
464: l_oks_currency OKC_K_HEADERS_V.CURRENCY_CODE%TYPE;
465:
466: l_okl_customer_id OKC_K_PARTY_ROLES_V.OBJECT1_ID1%TYPE;
467: l_oks_customer_id OKL_LA_LINK_SERVICE_UV.CUSTOMER_ID%TYPE;

Line 464: l_oks_currency OKC_K_HEADERS_V.CURRENCY_CODE%TYPE;

460:
461: l_proc_name VARCHAR2(35) := 'VALIDATE_INTEGRATION';
462:
463: l_okl_currency OKC_K_HEADERS_V.CURRENCY_CODE%TYPE;
464: l_oks_currency OKC_K_HEADERS_V.CURRENCY_CODE%TYPE;
465:
466: l_okl_customer_id OKC_K_PARTY_ROLES_V.OBJECT1_ID1%TYPE;
467: l_oks_customer_id OKL_LA_LINK_SERVICE_UV.CUSTOMER_ID%TYPE;
468:

Line 472: l_oks_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;

468:
469: l_okl_bill_to_id OKC_RULES_V.OBJECT1_ID1%TYPE;
470: l_oks_bill_to_id OKL_LA_LINK_SERVICE_UV.BILL_TO_ID%TYPE;
471:
472: l_oks_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
473: l_okl_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
474:
475: validation_failed EXCEPTION;
476: BEGIN

Line 473: l_okl_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;

469: l_okl_bill_to_id OKC_RULES_V.OBJECT1_ID1%TYPE;
470: l_oks_bill_to_id OKL_LA_LINK_SERVICE_UV.BILL_TO_ID%TYPE;
471:
472: l_oks_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
473: l_okl_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
474:
475: validation_failed EXCEPTION;
476: BEGIN
477: IF (G_DEBUG_ENABLED = 'Y') THEN

Line 610: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID

606: p_init_msg_list IN VARCHAR2,
607: x_return_status OUT NOCOPY VARCHAR2,
608: x_msg_count OUT NOCOPY NUMBER,
609: x_msg_data OUT NOCOPY VARCHAR2,
610: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
611: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
612: p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Service Contract Service Top Line ID
613: p_supplier_id IN NUMBER,
614: x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE -- Returns Lease Contract Service TOP Line ID

Line 611: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID

607: x_return_status OUT NOCOPY VARCHAR2,
608: x_msg_count OUT NOCOPY NUMBER,
609: x_msg_data OUT NOCOPY VARCHAR2,
610: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
611: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
612: p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Service Contract Service Top Line ID
613: p_supplier_id IN NUMBER,
614: x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE -- Returns Lease Contract Service TOP Line ID
615: )IS

Line 625: CURSOR currency_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

621: SELECT id
622: FROM okc_line_styles_v
623: WHERE lty_code = p_style;
624:
625: CURSOR currency_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
626: SELECT currency_code
627: FROM okc_k_headers_v
628: WHERE id = p_chr_id;
629:

Line 627: FROM okc_k_headers_v

623: WHERE lty_code = p_style;
624:
625: CURSOR currency_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
626: SELECT currency_code
627: FROM okc_k_headers_v
628: WHERE id = p_chr_id;
629:
630: TYPE srv_okl_rec_type IS RECORD (
631: item_id mtl_system_items.inventory_item_id%type,

Line 646: CURSOR srv_okl_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,

642:
643: l_srv_okl_tbl srv_okl_tbl_type;
644:
645: /*
646: CURSOR srv_okl_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,
647: p_srv_line_id OKC_K_LINES_V.ID%TYPE) IS
648: SELECT srv_prod.inventory_item_id item_id,
649: srv_prod.name item_name,
650: srv_line.price_negotiated,

Line 683: CURSOR srv_amt_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,

679: AND srv_line.cle_id = p_srv_line_id;
680: */
681:
682:
683: CURSOR srv_amt_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,
684: p_srv_line_id OKC_K_LINES_V.ID%TYPE) IS
685: SELECT nvl(sum(l.price_negotiated),0) tot_amount
686: FROM okc_k_lines_v l,
687: okc_line_styles_v s,

Line 721: CURSOR lease_con_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

717: end_date
718: FROM okc_k_lines_v
719: WHERE id = p_line_id;
720:
721: CURSOR lease_con_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
722: SELECT start_date,
723: end_date,
724: sts_code
725: FROM okc_k_headers_v

Line 725: FROM okc_k_headers_v

721: CURSOR lease_con_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
722: SELECT start_date,
723: end_date,
724: sts_code
725: FROM okc_k_headers_v
726: WHERE id = p_chr_id;
727:
728:
729: CURSOR item_csr (p_cle_id OKC_K_LINES_V.ID%TYPE) IS

Line 738: l_currency_code OKC_K_HEADERS_V.CURRENCY_CODE%TYPE;

734: WHERE cle_id = p_cle_id
735: AND jtot_object1_code = 'OKX_SERVICE';
736:
737: l_lse_id OKC_K_LINES_V.LSE_ID%TYPE;
738: l_currency_code OKC_K_HEADERS_V.CURRENCY_CODE%TYPE;
739: l_srv_amount NUMBER;
740: x_cle_id OKC_K_LINES_V.ID%TYPE;
741:
742: l_srv_st_date OKC_K_LINES_V.START_DATE%TYPE;

Line 767: l_lease_sts_code OKC_K_HEADERS_V.STS_CODE%TYPE;

763: p_cplv_rec cplv_rec_type;
764: x_cplv_rec cplv_rec_type;
765:
766: i NUMBER := 0;
767: l_lease_sts_code OKC_K_HEADERS_V.STS_CODE%TYPE;
768:
769: --Bug# 4558486
770: l_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
771: x_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;

Line 1153: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID

1149: p_init_msg_list IN VARCHAR2,
1150: x_return_status OUT NOCOPY VARCHAR2,
1151: x_msg_count OUT NOCOPY NUMBER,
1152: x_msg_data OUT NOCOPY VARCHAR2,
1153: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
1154: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
1155: p_okl_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Lease Service Top Line ID
1156: p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE -- Service Contract - Service TOP Line ID
1157: ) IS

Line 1154: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID

1150: x_return_status OUT NOCOPY VARCHAR2,
1151: x_msg_count OUT NOCOPY NUMBER,
1152: x_msg_data OUT NOCOPY VARCHAR2,
1153: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
1154: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
1155: p_okl_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Lease Service Top Line ID
1156: p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE -- Service Contract - Service TOP Line ID
1157: ) IS
1158:

Line 1166: l_service_contract_id OKC_K_HEADERS_V.ID%TYPE;

1162:
1163: l_crjv_rec crjv_rec_type;
1164: x_crjv_rec crjv_rec_type;
1165:
1166: l_service_contract_id OKC_K_HEADERS_V.ID%TYPE;
1167: l_oks_service_line_id OKC_K_LINES_V.ID%TYPE;
1168:
1169: BEGIN -- main process begins here
1170: IF (G_DEBUG_ENABLED = 'Y') THEN

Line 1385: CURSOR any_more_link_csr(p_okl_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

1381: WHERE cle_id = p_okl_service_line_id
1382: AND rty_code = 'OKLSRV' -- ???
1383: AND jtot_object1_code = 'OKL_SERVICE_LINE';
1384:
1385: CURSOR any_more_link_csr(p_okl_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
1386: SELECT id
1387: FROM okc_k_rel_objs_v t1
1388: WHERE chr_id = p_okl_chr_id
1389: AND cle_id IS NULL

Line 1641: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID

1637: p_init_msg_list IN VARCHAR2,
1638: x_return_status OUT NOCOPY VARCHAR2,
1639: x_msg_count OUT NOCOPY NUMBER,
1640: x_msg_data OUT NOCOPY VARCHAR2,
1641: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
1642: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
1643: p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Service Contract Service Top Line ID
1644: p_supplier_id IN NUMBER,
1645: p_clev_rec IN clev_rec_type,

Line 1642: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID

1638: x_return_status OUT NOCOPY VARCHAR2,
1639: x_msg_count OUT NOCOPY NUMBER,
1640: x_msg_data OUT NOCOPY VARCHAR2,
1641: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
1642: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
1643: p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Service Contract Service Top Line ID
1644: p_supplier_id IN NUMBER,
1645: p_clev_rec IN clev_rec_type,
1646: p_klev_rec IN klev_rec_type,

Line 1777: p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,

1773: p_init_msg_list IN VARCHAR2,
1774: x_return_status OUT NOCOPY VARCHAR2,
1775: x_msg_count OUT NOCOPY NUMBER,
1776: x_msg_data OUT NOCOPY VARCHAR2,
1777: p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
1778: p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE,
1779: x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
1780: ) IS
1781: l_api_name VARCHAR2(35) := 'check_service_line_link';

Line 1779: x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE

1775: x_msg_count OUT NOCOPY NUMBER,
1776: x_msg_data OUT NOCOPY VARCHAR2,
1777: p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
1778: p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE,
1779: x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
1780: ) IS
1781: l_api_name VARCHAR2(35) := 'check_service_line_link';
1782: l_proc_name VARCHAR2(35) := 'CHECK_SERVICE_LINE_LINK';
1783: l_api_version CONSTANT NUMBER := 1;

Line 1786: CURSOR link_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

1782: l_proc_name VARCHAR2(35) := 'CHECK_SERVICE_LINE_LINK';
1783: l_api_version CONSTANT NUMBER := 1;
1784:
1785:
1786: CURSOR link_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
1787: SELECT object1_id1
1788: FROM okc_k_rel_objs_v
1789: WHERE chr_id = p_chr_id
1790: AND cle_id IS NULL

Line 1793: CURSOR line_link_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE,

1789: WHERE chr_id = p_chr_id
1790: AND cle_id IS NULL
1791: AND rty_code = 'OKLSRV'; -- ???
1792:
1793: CURSOR line_link_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE,
1794: p_line_id OKC_K_LINES_V.ID%TYPE) IS
1795: SELECT 'Y' answer
1796: FROM okc_k_rel_objs_v
1797: WHERE chr_id = p_chr_id

Line 2067: p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,

2063: p_init_msg_list IN VARCHAR2,
2064: x_return_status OUT NOCOPY VARCHAR2,
2065: x_msg_count OUT NOCOPY NUMBER,
2066: x_msg_data OUT NOCOPY VARCHAR2,
2067: p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
2068: x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
2069: ) IS
2070: l_api_name VARCHAR2(35) := 'check_service_link';
2071: l_proc_name VARCHAR2(35) := 'CHECK_SERVICE_LINK';

Line 2068: x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE

2064: x_return_status OUT NOCOPY VARCHAR2,
2065: x_msg_count OUT NOCOPY NUMBER,
2066: x_msg_data OUT NOCOPY VARCHAR2,
2067: p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
2068: x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
2069: ) IS
2070: l_api_name VARCHAR2(35) := 'check_service_link';
2071: l_proc_name VARCHAR2(35) := 'CHECK_SERVICE_LINK';
2072: l_api_version CONSTANT NUMBER := 1;

Line 2075: CURSOR link_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

2071: l_proc_name VARCHAR2(35) := 'CHECK_SERVICE_LINK';
2072: l_api_version CONSTANT NUMBER := 1;
2073:
2074:
2075: CURSOR link_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
2076: SELECT object1_id1
2077: FROM okc_k_rel_objs_v
2078: WHERE chr_id = p_chr_id
2079: AND cle_id IS NULL

Line 2173: p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,

2169: p_init_msg_list IN VARCHAR2,
2170: x_return_status OUT NOCOPY VARCHAR2,
2171: x_msg_count OUT NOCOPY NUMBER,
2172: x_msg_data OUT NOCOPY VARCHAR2,
2173: p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
2174: x_link_line_tbl OUT NOCOPY LINK_LINE_TBL_TYPE,
2175: x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
2176: ) IS
2177: l_api_name VARCHAR2(35) := 'get_service_link_line';

Line 2175: x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE

2171: x_msg_count OUT NOCOPY NUMBER,
2172: x_msg_data OUT NOCOPY VARCHAR2,
2173: p_lease_contract_id IN OKC_K_HEADERS_V.ID%TYPE,
2174: x_link_line_tbl OUT NOCOPY LINK_LINE_TBL_TYPE,
2175: x_service_contract_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
2176: ) IS
2177: l_api_name VARCHAR2(35) := 'get_service_link_line';
2178: l_proc_name VARCHAR2(35) := 'GET_SREVICE_LINK_LINE';
2179: l_api_version CONSTANT NUMBER := 1;

Line 2181: CURSOR link_csr (p_okl_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

2177: l_api_name VARCHAR2(35) := 'get_service_link_line';
2178: l_proc_name VARCHAR2(35) := 'GET_SREVICE_LINK_LINE';
2179: l_api_version CONSTANT NUMBER := 1;
2180:
2181: CURSOR link_csr (p_okl_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
2182:
2183: SELECT cle_id,
2184: object1_id1
2185: FROM okc_k_rel_objs_v

Line 2192: l_service_contract_id OKC_K_HEADERS_V.ID%TYPE;

2188: AND rty_code = 'OKLSRV'
2189: AND jtot_object1_code = 'OKL_COV_PROD';
2190:
2191: link_count NUMBER := 0;
2192: l_service_contract_id OKC_K_HEADERS_V.ID%TYPE;
2193:
2194: BEGIN
2195:
2196: -- call START_ACTIVITY to create savepoint, check compatibility

Line 2491: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE,

2487: PROCEDURE create_cov_line_link(
2488: x_return_status OUT NOCOPY VARCHAR2,
2489: x_msg_count OUT NOCOPY NUMBER,
2490: x_msg_data OUT NOCOPY VARCHAR2,
2491: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
2492: p_okl_cov_line_id IN OKC_K_LINES_V.ID%TYPE,
2493: p_oks_cov_line_id IN OKC_K_LINES_V.ID%TYPE
2494: ) IS
2495:

Line 2619: CURSOR cov_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,

2615: l_proc_name VARCHAR2(35) := 'CREATE_COV_ASSET_LINE';
2616: l_api_version CONSTANT NUMBER := 1;
2617:
2618:
2619: CURSOR cov_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,
2620: p_srv_top_id OKC_K_LINES_V.ID%TYPE,
2621: p_asset OKL_LA_COV_ASSET_UV.NAME%TYPE) IS
2622: SELECT 'Y',
2623: item_description,

Line 2811: CURSOR cov_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,

2807: l_proc_name VARCHAR2(35) := 'UPDATE_COV_ASSET_LINE';
2808: l_api_version CONSTANT NUMBER := 1;
2809:
2810:
2811: CURSOR cov_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,
2812: p_srv_top_id OKC_K_LINES_V.ID%TYPE,
2813: p_asset OKL_LA_COV_ASSET_UV.NAME%TYPE) IS
2814: SELECT 'Y'
2815: FROM okl_la_cov_asset_uv

Line 2968: CURSOR arintf_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

2964: l_api_name VARCHAR2(35) := 'update_oks_arintf';
2965: l_proc_name VARCHAR2(35) := 'UPDATE_OKS_ARINTF';
2966: l_api_version CONSTANT NUMBER := 1;
2967:
2968: CURSOR arintf_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
2969: SELECT rule.id
2970: FROM okc_rules_v rule,
2971: okc_rule_groups_v rg
2972: WHERE rule.rgp_id = rg.id

Line 3408: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE,

3404: PROCEDURE process_serial_item (
3405: x_return_status OUT NOCOPY VARCHAR2,
3406: x_msg_count OUT NOCOPY NUMBER,
3407: x_msg_data OUT NOCOPY VARCHAR2,
3408: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
3409: p_free_form1_id IN OKC_K_LINES_V.ID%TYPE,
3410: p_okl_srv_line_id IN OKC_K_LINES_V.ID%TYPE
3411: ) IS
3412:

Line 3547: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID

3543: p_init_msg_list IN VARCHAR2,
3544: x_return_status OUT NOCOPY VARCHAR2,
3545: x_msg_count OUT NOCOPY NUMBER,
3546: x_msg_data OUT NOCOPY VARCHAR2,
3547: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
3548: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
3549: p_supplier_id IN NUMBER, -- OKL_VENDOR
3550: p_sty_id IN OKL_K_LINES.STY_ID%TYPE DEFAULT NULL, -- Bug 4011710
3551: x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE

Line 3548: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID

3544: x_return_status OUT NOCOPY VARCHAR2,
3545: x_msg_count OUT NOCOPY NUMBER,
3546: x_msg_data OUT NOCOPY VARCHAR2,
3547: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
3548: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
3549: p_supplier_id IN NUMBER, -- OKL_VENDOR
3550: p_sty_id IN OKL_K_LINES.STY_ID%TYPE DEFAULT NULL, -- Bug 4011710
3551: x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE
3552: ) IS

Line 3568: CURSOR oks_serv_csr (p_oks_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

3564:
3565: l_dummy NUMBER;
3566: l_oks_ver VARCHAR2(3);
3567:
3568: CURSOR oks_serv_csr (p_oks_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
3569: SELECT DISTINCT cle_id
3570: FROM okl_la_link_service_uv
3571: WHERE chr_id = p_oks_chr_id;
3572:

Line 3573: CURSOR oks_serv_csr9 (p_oks_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

3569: SELECT DISTINCT cle_id
3570: FROM okl_la_link_service_uv
3571: WHERE chr_id = p_oks_chr_id;
3572:
3573: CURSOR oks_serv_csr9 (p_oks_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
3574: SELECT DISTINCT cle_id
3575: FROM okl_la_link_service_uv9
3576: WHERE chr_id = p_oks_chr_id;
3577:

Line 4034: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE

4030: p_init_msg_list IN VARCHAR2,
4031: x_return_status OUT NOCOPY VARCHAR2,
4032: x_msg_count OUT NOCOPY NUMBER,
4033: x_msg_data OUT NOCOPY VARCHAR2,
4034: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE
4035: ) IS
4036: l_api_name VARCHAR2(35) := 'delink_service_contract';
4037: l_proc_name VARCHAR2(35) := 'DELINK_SERVICE_CONTRACT';
4038: l_api_version CONSTANT NUMBER := 1;

Line 4040: CURSOR rel_link_csr(p_okl_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

4036: l_api_name VARCHAR2(35) := 'delink_service_contract';
4037: l_proc_name VARCHAR2(35) := 'DELINK_SERVICE_CONTRACT';
4038: l_api_version CONSTANT NUMBER := 1;
4039:
4040: CURSOR rel_link_csr(p_okl_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
4041: SELECT id,
4042: object1_id1,
4043: cle_id
4044: FROM okc_k_rel_objs_v

Line 4048: l_service_contract_id OKC_K_HEADERS_V.ID%TYPE;

4044: FROM okc_k_rel_objs_v
4045: WHERE chr_id = p_okl_chr_id
4046: AND rty_code = 'OKLSRV';
4047:
4048: l_service_contract_id OKC_K_HEADERS_V.ID%TYPE;
4049: l_crjv_tbl crjv_tbl_type;
4050: i NUMBER;
4051: j NUMBER;
4052:

Line 4058: l_oks_chr_id OKC_K_HEADERS_V.ID%TYPE;

4054: x_clev_tbl clev_tbl_type;
4055: l_klev_tbl klev_tbl_type;
4056: x_klev_tbl klev_tbl_type;
4057:
4058: l_oks_chr_id OKC_K_HEADERS_V.ID%TYPE;
4059: x_tcnv_rec tcnv_rec_type;
4060:
4061: BEGIN
4062: IF (G_DEBUG_ENABLED = 'Y') THEN

Line 4330: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE

4326: p_init_msg_list IN VARCHAR2,
4327: x_return_status OUT NOCOPY VARCHAR2,
4328: x_msg_count OUT NOCOPY NUMBER,
4329: x_msg_data OUT NOCOPY VARCHAR2,
4330: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE
4331: ) IS
4332: l_api_name VARCHAR2(35) := 'expire_lease_instance';
4333: l_proc_name VARCHAR2(35) := 'EXPIRE_LEASE_INSTANCE';
4334: l_api_version CONSTANT NUMBER := 1;

Line 4336: CURSOR link_asset_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS

4332: l_api_name VARCHAR2(35) := 'expire_lease_instance';
4333: l_proc_name VARCHAR2(35) := 'EXPIRE_LEASE_INSTANCE';
4334: l_api_version CONSTANT NUMBER := 1;
4335:
4336: CURSOR link_asset_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
4337: SELECT kitem.object1_id1
4338: FROM okc_k_rel_objs rel,
4339: okc_k_items kitem
4340: WHERE rel.cle_id = kitem.cle_id

Line 4346: CURSOR inst_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,

4342: AND rel.jtot_object1_code = 'OKL_COV_PROD'
4343: AND kitem.jtot_object1_code = 'OKX_COVASST'
4344: AND rel.chr_id = p_chr_id;
4345:
4346: CURSOR inst_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE,
4347: p_cle_id OKC_K_LINES_V.ID%TYPE) IS
4348: SELECT kitem.id,
4349: kitem.object1_id1,
4350: kitem.cle_id

Line 4550: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID

4546: p_init_msg_list IN VARCHAR2,
4547: x_return_status OUT NOCOPY VARCHAR2,
4548: x_msg_count OUT NOCOPY NUMBER,
4549: x_msg_data OUT NOCOPY VARCHAR2,
4550: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
4551: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
4552: p_supplier_id IN NUMBER, -- OKL_VENDOR
4553: p_sty_id IN OKL_K_LINES.STY_ID%TYPE DEFAULT NULL, -- Bug 4011710
4554: x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE

Line 4551: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID

4547: x_return_status OUT NOCOPY VARCHAR2,
4548: x_msg_count OUT NOCOPY NUMBER,
4549: x_msg_data OUT NOCOPY VARCHAR2,
4550: p_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
4551: p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
4552: p_supplier_id IN NUMBER, -- OKL_VENDOR
4553: p_sty_id IN OKL_K_LINES.STY_ID%TYPE DEFAULT NULL, -- Bug 4011710
4554: x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE
4555: ) IS