[Home] [Help]
6: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
7: G_RANGE_CHECK CONSTANT VARCHAR2(200) := 'OKL_GREATER_THAN';
8: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
9: G_INVALID_VALUE CONSTANT VARCHAR2(200) := 'OKL_INVALID_VALUE';
10: G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
11: G_MODEL_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ITEM';
12: G_ADDON_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ADD_ITEM';
13: G_FA_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FIXED_ASSET';
14: G_INST_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM2';
7: G_RANGE_CHECK CONSTANT VARCHAR2(200) := 'OKL_GREATER_THAN';
8: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
9: G_INVALID_VALUE CONSTANT VARCHAR2(200) := 'OKL_INVALID_VALUE';
10: G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
11: G_MODEL_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ITEM';
12: G_ADDON_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ADD_ITEM';
13: G_FA_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FIXED_ASSET';
14: G_INST_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM2';
15: G_IB_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'INST_ITEM';
8: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
9: G_INVALID_VALUE CONSTANT VARCHAR2(200) := 'OKL_INVALID_VALUE';
10: G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
11: G_MODEL_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ITEM';
12: G_ADDON_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ADD_ITEM';
13: G_FA_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FIXED_ASSET';
14: G_INST_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM2';
15: G_IB_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'INST_ITEM';
16: G_ID2 CONSTANT VARCHAR2(200) := '#';
9: G_INVALID_VALUE CONSTANT VARCHAR2(200) := 'OKL_INVALID_VALUE';
10: G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
11: G_MODEL_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ITEM';
12: G_ADDON_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ADD_ITEM';
13: G_FA_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FIXED_ASSET';
14: G_INST_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM2';
15: G_IB_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'INST_ITEM';
16: G_ID2 CONSTANT VARCHAR2(200) := '#';
17: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
10: G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
11: G_MODEL_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ITEM';
12: G_ADDON_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ADD_ITEM';
13: G_FA_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FIXED_ASSET';
14: G_INST_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM2';
15: G_IB_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'INST_ITEM';
16: G_ID2 CONSTANT VARCHAR2(200) := '#';
17: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
18: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
11: G_MODEL_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ITEM';
12: G_ADDON_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ADD_ITEM';
13: G_FA_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FIXED_ASSET';
14: G_INST_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM2';
15: G_IB_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'INST_ITEM';
16: G_ID2 CONSTANT VARCHAR2(200) := '#';
17: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
18: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
19: G_EXCEPTION_HALT_VALIDATION EXCEPTION;
31: PROCEDURE validate_cle_id(x_return_status OUT NOCOPY VARCHAR2,
32: p_id IN OKC_K_LINES_V.ID%TYPE) IS
33:
34: ln_dummy number := 0;
35: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
36:
37: CURSOR get_lty_code(p_cle_id IN OKC_K_LINES_V.ID%TYPE) IS
38: SELECT lse.lty_code
39: FROM okc_k_lines_b cle,
41: WHERE cle.id = p_cle_id
42: AND cle.lse_id = lse.id;
43:
44: CURSOR c_cle_id_validate1(p_cle_id IN OKC_K_LINES_V.ID%TYPE,
45: p_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE) IS
46: SELECT 1
47: FROM DUAL
48: WHERE EXISTS (SELECT t1.id
49: FROM okc_line_styles_b t1
58: AND t3.lse_id = t2.id
59: AND t3.scs_code = 'LEASE');
60:
61: CURSOR c_cle_id_validate2(p_cle_id IN OKC_K_LINES_V.ID%TYPE,
62: p_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
63: p_code2 IN OKC_LINE_STYLES_V.LTY_CODE%TYPE) IS
64: SELECT 1
65: FROM DUAL
66: WHERE EXISTS (SELECT t1.id
59: AND t3.scs_code = 'LEASE');
60:
61: CURSOR c_cle_id_validate2(p_cle_id IN OKC_K_LINES_V.ID%TYPE,
62: p_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
63: p_code2 IN OKC_LINE_STYLES_V.LTY_CODE%TYPE) IS
64: SELECT 1
65: FROM DUAL
66: WHERE EXISTS (SELECT t1.id
67: FROM okc_line_styles_b t1
191: PROCEDURE validate_fa_cle_id(x_return_status OUT NOCOPY VARCHAR2,
192: p_id IN OKC_K_LINES_V.ID%TYPE) IS
193:
194: ln_dummy number := 0;
195: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
196:
197: CURSOR get_lty_code(p_cle_id IN OKC_K_LINES_V.ID%TYPE) IS
198: SELECT lse.lty_code
199: FROM okc_k_lines_b cle,
201: WHERE cle.id = p_cle_id
202: AND cle.lse_id = lse.id;
203:
204: CURSOR c_cle_id_validate1(p_cle_id IN OKC_K_LINES_V.ID%TYPE,
205: p_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE) IS
206: SELECT 1
207: FROM DUAL
208: WHERE EXISTS (SELECT t1.id
209: FROM okc_line_styles_b t1