1153: last_update_date,
1154: last_update_login,
1155: split_percent,
1156: inventory_item_id
1157: FROM Okl_Txd_Assets_V txd
1158: WHERE txd.tal_id = p_tal_id;
1159: BEGIN
1160: FOR r_okl_asdv_pk_csr IN c_okl_asdv_pk_csr(p_tal_id) LOOP
1161: x_txdv_tbl(i).ID := r_okl_asdv_pk_csr.ID;
2492: p_dnz_chr_id IN OKC_K_HEADERS_B.ID%TYPE) IS
2493: ln_okl_txl_assets_v NUMBER := 0;
2494: ln_okx_assets_v NUMBER := 0;
2495: ln_okx_asset_lines_v NUMBER := 0;
2496: ln_okl_txd_assets_v NUMBER := 0;
2497: lv_source_code OKC_K_HEADERS_B.ORIG_SYSTEM_SOURCE_CODE%TYPE;
2498: lv_asset_source_code OKC_K_LINES_B.ORIG_SYSTEM_SOURCE_CODE%TYPE;
2499: lv_asset_number OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE;
2500: lv_release_asset OKC_RULES_V.RULE_INFORMATION1%TYPE := 'N';
2539: --FROM DUAL
2540: --WHERE EXISTS (SELECT '1'
2541: FROM OKL_TRX_ASSETS TAS,
2542: OKL_TXL_ASSETS_V TXL,
2543: OKL_TXD_ASSETS_V TXD
2544: WHERE TXD.asset_number = p_asset_number
2545: AND TXD.TAL_ID = TXL.ID
2546: AND TXL.TAL_TYPE = 'ALI'
2547: AND TXL.TAS_ID = TAS.ID
2662: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2663: END IF;
2664: CLOSE c_okx_asset_lines_v;
2665:
2666: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2667: -- for Split Asset scenario.
2668: OPEN c_txd_assets_v(p_asset_number);
2669: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2670: IF c_txd_assets_v%NOTFOUND THEN
2665:
2666: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2667: -- for Split Asset scenario.
2668: OPEN c_txd_assets_v(p_asset_number);
2669: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2670: IF c_txd_assets_v%NOTFOUND THEN
2671: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2672: END IF;
2673: CLOSE c_txd_assets_v;
2698: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2699: END IF;
2700: CLOSE c_okx_asset_lines_v;
2701:
2702: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2703: -- for Split Asset scenario.
2704: OPEN c_txd_assets_v(p_asset_number);
2705: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2706: IF c_txd_assets_v%NOTFOUND THEN
2701:
2702: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2703: -- for Split Asset scenario.
2704: OPEN c_txd_assets_v(p_asset_number);
2705: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2706: IF c_txd_assets_v%NOTFOUND THEN
2707: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2708: END IF;
2709: CLOSE c_txd_assets_v;
2735: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2736: END IF;
2737: CLOSE c_okx_asset_lines_v;
2738:
2739: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2740: -- for Split Asset scenario.
2741: OPEN c_txd_assets_v(p_asset_number);
2742: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2743: IF c_txd_assets_v%NOTFOUND THEN
2738:
2739: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2740: -- for Split Asset scenario.
2741: OPEN c_txd_assets_v(p_asset_number);
2742: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2743: IF c_txd_assets_v%NOTFOUND THEN
2744: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2745: END IF;
2746: CLOSE c_txd_assets_v;
2746: CLOSE c_txd_assets_v;
2747: END IF;
2748:
2749: IF (ln_okl_txl_assets_v = 1) OR (ln_okx_assets_v = 1) OR
2750: (ln_okx_asset_lines_v = 1) OR (ln_okl_txd_assets_v = 1) THEN
2751: -- store SQL error message on message stack
2752: OKL_API.set_message(p_app_name => G_APP_NAME,
2753: p_msg_name => G_ASSET_NUMBER);
2754: RAISE G_EXCEPTION_HALT_VALIDATION;
2752: OKL_API.set_message(p_app_name => G_APP_NAME,
2753: p_msg_name => G_ASSET_NUMBER);
2754: RAISE G_EXCEPTION_HALT_VALIDATION;
2755: ELSIF (ln_okl_txl_assets_v = 1) AND (ln_okx_assets_v = 1) AND
2756: (ln_okx_asset_lines_v = 1) AND (ln_okl_txd_assets_v = 1) THEN
2757: -- store SQL error message on message stack
2758: OKL_API.set_message(p_app_name => G_APP_NAME,
2759: p_msg_name => G_ASSET_NUMBER);
2760: RAISE G_EXCEPTION_HALT_VALIDATION;
2848: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
2849: ln_okl_txl_assets_v NUMBER := 0;
2850: ln_okx_assets_v NUMBER := 0;
2851: ln_okx_asset_lines_v NUMBER := 0;
2852: ln_okl_txd_assets_v NUMBER := 0;
2853: lv_release_asset OKC_RULES_V.RULE_INFORMATION1%TYPE := 'N';
2854:
2855: CURSOR c_txl_asset_number(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
2856: SELECT 1
2887: --FROM DUAL
2888: --WHERE EXISTS (SELECT '1'
2889: FROM OKL_TRX_ASSETS TAS,
2890: OKL_TXL_ASSETS_V TXL,
2891: OKL_TXD_ASSETS_V TXD
2892: WHERE TXD.asset_number = p_asset_number
2893: AND TXD.TAL_ID = TXL.ID
2894: AND TXL.TAL_TYPE = 'ALI'
2895: AND TXL.TAS_ID = TAS.ID
2965: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2966: END IF;
2967: CLOSE c_okx_asset_lines_v;
2968:
2969: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2970: -- for Split Asset scenario.
2971: OPEN c_txd_assets_v(p_asset_number);
2972: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2973: IF c_txd_assets_v%NOTFOUND THEN
2968:
2969: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2970: -- for Split Asset scenario.
2971: OPEN c_txd_assets_v(p_asset_number);
2972: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2973: IF c_txd_assets_v%NOTFOUND THEN
2974: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2975: END IF;
2976: CLOSE c_txd_assets_v;
2975: END IF;
2976: CLOSE c_txd_assets_v;
2977:
2978: IF (ln_okl_txl_assets_v = 1) OR (ln_okx_assets_v = 1) OR
2979: (ln_okx_asset_lines_v = 1) OR (ln_okl_txd_assets_v = 1) THEN
2980: -- store SQL error message on message stack
2981: OKL_API.set_message(p_app_name => G_APP_NAME,
2982: p_msg_name => G_ASSET_NUMBER);
2983: RAISE G_EXCEPTION_HALT_VALIDATION;
2981: OKL_API.set_message(p_app_name => G_APP_NAME,
2982: p_msg_name => G_ASSET_NUMBER);
2983: RAISE G_EXCEPTION_HALT_VALIDATION;
2984: ELSIF (ln_okl_txl_assets_v = 1) AND (ln_okx_assets_v = 1) AND
2985: (ln_okx_asset_lines_v = 1) AND (ln_okl_txd_assets_v = 1) THEN
2986: -- store SQL error message on message stack
2987: OKL_API.set_message(p_app_name => G_APP_NAME,
2988: p_msg_name => G_ASSET_NUMBER);
2989: RAISE G_EXCEPTION_HALT_VALIDATION;