PACKAGE BODY: APPS.OKL_LEGAL_ENTITY_UTIL

Source

1 PACKAGE BODY OKL_LEGAL_ENTITY_UTIL AS
2 /* $Header: OKLRXLEB.pls 120.1 2006/11/17 12:49:17 kthiruva noship $ */
3 
4   PROCEDURE get_legal_entity_info
5                (p_legal_entity_id IN NUMBER,
6                 x_legal_entity_rec OUT NOCOPY legal_entity_rec,
7                 x_return_status  OUT NOCOPY VARCHAR2,
8                 x_msg_data       OUT NOCOPY VARCHAR2,
9                 x_msg_count      OUT NOCOPY NUMBER)
10   IS
11 
12   BEGIN
13     x_return_status := OKL_API.G_RET_STS_SUCCESS;
14     XLE_UTILITIES_GRP.Get_LegalEntity_Info
15              (x_return_status         => x_return_status ,
16   		      x_msg_count		      => x_msg_count,
17 		      x_msg_data		      => x_msg_data,
18         	  P_PARTY_ID    		  => NULL,
19         	  P_LegalEntity_ID	      => p_legal_entity_id,
20         	  X_LEGALENTITY_INFO 	  => x_legal_entity_rec);
21 
22     If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23       raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24     ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
25       raise OKL_API.G_EXCEPTION_ERROR;
26     End If;
27 
28   EXCEPTION
29 	when OKL_API.G_EXCEPTION_ERROR then
30 		null;
31 
32 	when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
33         null;
34 
35 	when OTHERS then
36         null;
37   END get_legal_entity_info;
38 
39   FUNCTION get_legal_entity_name(p_legal_entity_id IN NUMBER)
40   RETURN VARCHAR2
41   IS
42 
43     CURSOR get_le_name_csr(p_le_id IN NUMBER)
44     IS
45     SELECT name legal_entity_name
46     FROM XLE_ENTITY_PROFILES
47     WHERE legal_entity_id = p_le_id;
48 
49     l_legal_entity_name   XLE_ENTITY_PROFILES.NAME%TYPE := NULL;
50 
51   BEGIN
52 
53     OPEN get_le_name_csr(p_le_id   => p_legal_entity_id);
54     FETCH get_le_name_csr INTO l_legal_entity_name;
55     CLOSE get_le_name_csr;
56 
57     RETURN l_legal_entity_name;
58 
59   END get_legal_entity_name;
60 
61   FUNCTION get_khr_le_id (p_khr_id IN NUMBER)
62   RETURN NUMBER
63   IS
64     CURSOR get_le_id_csr(p_khr_id IN NUMBER)
65     IS
66     SELECT khr.legal_entity_id
67     FROM okl_k_headers khr
68     WHERE khr.id = p_khr_id;
69 
70     l_legal_entity_id    XLE_ENTITY_PROFILES.LEGAL_ENTITY_ID%TYPE := NULL;
71 
72   BEGIN
73     OPEN get_le_id_csr(p_khr_id  => p_khr_id);
74     FETCH get_le_id_csr INTO l_legal_entity_id;
75     CLOSE get_le_id_csr;
76 
77     RETURN l_legal_entity_id;
78 
79   END get_khr_le_id;
80 
81   FUNCTION get_khr_line_le_id (p_kle_id IN NUMBER)
82   RETURN NUMBER
83   IS
84     CURSOR get_le_id_csr(p_kle_id1 IN NUMBER)
85     IS
86     SELECT khr.legal_entity_id
87     FROM okl_k_headers khr,okc_k_lines_b okc_ln
88     WHERE khr.id = okc_ln.dnz_chr_id
89 --          AND okc_ln.chr_id =okc_ln.dnz_chr_id
90           AND okc_ln.id = p_kle_id1;
91 
92     l_legal_entity_id    XLE_ENTITY_PROFILES.LEGAL_ENTITY_ID%TYPE := NULL;
93 
94   BEGIN
95     OPEN get_le_id_csr(p_kle_id);
96     FETCH get_le_id_csr INTO l_legal_entity_id;
97     CLOSE get_le_id_csr;
98 
99     RETURN l_legal_entity_id;
100 
101   END get_khr_line_le_id;
102 
103   FUNCTION check_le_id_exists (p_le_id IN NUMBER)
104   RETURN NUMBER
105   IS
106     CURSOR get_le_id_csr(p_le_id1 IN NUMBER)
107     IS
108     SELECT 1
109     FROM XLE_ENTITY_PROFILES
110     WHERE legal_entity_id = p_le_id1;
111 
112     l_le_exist    Number(1);
113 
114   BEGIN
115     OPEN get_le_id_csr(p_le_id);
116     FETCH get_le_id_csr INTO l_le_exist;
117     CLOSE get_le_id_csr;
118 
119     RETURN l_le_exist;
120 
121   END check_le_id_exists;
122 
123 END okl_legal_entity_util;