[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUP_STRMS_TRANS_PVT
Source
1 PACKAGE BODY OKL_SETUP_STRMS_TRANS_PVT AS
2 /* $Header: OKLRSMNB.pls 115.2 2002/07/22 23:38:58 smahapat noship $ */
3
4 PROCEDURE insert_translations (p_api_version IN NUMBER
5 ,p_init_msg_list IN VARCHAR2
6 ,p_sgnv_tbl IN sgnv_tbl_type
7 ,x_sgnv_tbl OUT NOCOPY sgnv_tbl_type
8 ,x_return_status OUT NOCOPY VARCHAR2
9 ,x_msg_count OUT NOCOPY NUMBER
10 ,x_msg_data OUT NOCOPY VARCHAR2
11 ) IS
12
13 l_api_name VARCHAR2(20):= 'insert_translations';
14 l_api_version NUMBER := 1.0;
15 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
16 i NUMBER;
17 l_sgnv_tbl sgnv_tbl_type;
18 lx_sgnv_tbl sgnv_tbl_type;
19 BEGIN
20 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
21 p_pkg_name => 'OKL_SETUP_STRMS_TRANS_PVT',
22 p_init_msg_list => p_init_msg_list,
23 l_api_version => l_api_version,
24 p_api_version => p_api_version,
25 p_api_type => '_PVT',
26 x_return_status => l_return_status);
27 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
28 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
29 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
30 RAISE G_EXCEPTION_ERROR;
31 END IF;
32 x_return_status := G_RET_STS_SUCCESS;
33
34 -- code goes here
35
36 OKL_SGN_TRANSLATIONS_PUB.insert_sgn_translations(p_api_version => l_api_version,
37 p_init_msg_list => p_init_msg_list,
38 x_return_status => l_return_status,
39 x_msg_count => x_msg_count,
40 x_msg_data => x_msg_data,
41 p_sgnv_tbl => p_sgnv_tbl,
42 x_sgnv_tbl => x_sgnv_tbl);
43 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
44 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
45 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
46 RAISE G_EXCEPTION_ERROR;
47 END IF;
48
49
50 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
51 x_msg_data => x_msg_data);
52
53 x_return_status := l_return_status;
54
55 EXCEPTION
56 WHEN G_EXCEPTION_ERROR THEN
57 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
58 p_pkg_name => G_PKG_NAME,
59 p_exc_name => G_EXC_NAME_ERROR,
60 x_msg_count => x_msg_count,
61 x_msg_data => x_msg_data,
62 p_api_type => '_PVT');
63 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
64 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
65 p_pkg_name => G_PKG_NAME,
66 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
67 x_msg_count => x_msg_count,
68 x_msg_data => x_msg_data,
69 p_api_type => '_PVT');
70 WHEN OTHERS THEN
71 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
72 p_pkg_name => G_PKG_NAME,
73 p_exc_name => G_EXC_NAME_OTHERS,
74 x_msg_count => x_msg_count,
75 x_msg_data => x_msg_data,
76 p_api_type => '_PVT');
77 END insert_translations;
78
79 PROCEDURE update_translations (p_api_version IN NUMBER
80 ,p_init_msg_list IN VARCHAR2
81 ,p_sgnv_tbl IN sgnv_tbl_type
82 ,x_sgnv_tbl OUT NOCOPY sgnv_tbl_type
83 ,x_return_status OUT NOCOPY VARCHAR2
84 ,x_msg_count OUT NOCOPY NUMBER
85 ,x_msg_data OUT NOCOPY VARCHAR2
86 ) IS
87 l_api_name VARCHAR2(20):= 'update_translations';
88 l_api_version NUMBER := 1.0;
89 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
90 i NUMBER;
91 l_sgnv_tbl sgnv_tbl_type;
92 lx_sgnv_tbl sgnv_tbl_type;
93 BEGIN
94 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
95 p_pkg_name => 'OKL_SETUP_STRMS_TRANS_PVT',
96 p_init_msg_list => p_init_msg_list,
97 l_api_version => l_api_version,
98 p_api_version => p_api_version,
99 p_api_type => '_PVT',
100 x_return_status => l_return_status);
101 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
102 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
103 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
104 RAISE G_EXCEPTION_ERROR;
105 END IF;
106 x_return_status := G_RET_STS_SUCCESS;
107
108 -- code goes here
109 OKL_SGN_TRANSLATIONS_PUB.update_sgn_translations(p_api_version => l_api_version,
110 p_init_msg_list => p_init_msg_list,
111 x_return_status => l_return_status,
112 x_msg_count => x_msg_count,
113 x_msg_data => x_msg_data,
114 p_sgnv_tbl => p_sgnv_tbl,
115 x_sgnv_tbl => x_sgnv_tbl);
116
117 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
118 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
119 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
120 RAISE G_EXCEPTION_ERROR;
121 END IF;
122
123 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
124 x_msg_data => x_msg_data);
125
126 x_return_status := l_return_status;
127
128 EXCEPTION
129 WHEN G_EXCEPTION_ERROR THEN
130 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
131 p_pkg_name => G_PKG_NAME,
132 p_exc_name => G_EXC_NAME_ERROR,
133 x_msg_count=> x_msg_count,
134 x_msg_data => x_msg_data,
135 p_api_type => '_PVT');
136 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
137 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
138 p_pkg_name => G_PKG_NAME,
139 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
140 x_msg_count => x_msg_count,
141 x_msg_data => x_msg_data,
142 p_api_type => '_PVT');
143
144 WHEN OTHERS THEN
145 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
146 p_pkg_name => G_PKG_NAME,
147 p_exc_name => G_EXC_NAME_OTHERS,
148 x_msg_count => x_msg_count,
149 x_msg_data => x_msg_data,
150 p_api_type => '_PVT');
151 END update_translations;
152
153 PROCEDURE delete_translations (p_api_version IN NUMBER
154 ,p_init_msg_list IN VARCHAR2
155 ,p_sgnv_tbl IN sgnv_tbl_type
156 ,x_return_status OUT NOCOPY VARCHAR2
157 ,x_msg_count OUT NOCOPY NUMBER
158 ,x_msg_data OUT NOCOPY VARCHAR2
159 ) IS
160 l_api_name VARCHAR2(20):= 'delete_translations';
161 l_api_version NUMBER := 1.0;
162 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
163 i NUMBER;
164 l_sgnv_tbl sgnv_tbl_type;
165 BEGIN
166 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
167 p_pkg_name => 'OKL_SETUP_STRMS_TRANS_PVT',
168 p_init_msg_list => p_init_msg_list,
169 l_api_version => l_api_version,
170 p_api_version => p_api_version,
171 p_api_type => '_PVT',
172 x_return_status => l_return_status);
173 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
174 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
175 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
176 RAISE G_EXCEPTION_ERROR;
177 END IF;
178 x_return_status := G_RET_STS_SUCCESS;
179
180 -- code goes here
181 OKL_SGN_TRANSLATIONS_PUB.delete_sgn_translations(p_api_version => l_api_version,
182 p_init_msg_list => p_init_msg_list,
183 x_return_status => l_return_status,
184 x_msg_count => x_msg_count,
185 x_msg_data => x_msg_data,
186 p_sgnv_tbl => p_sgnv_tbl);
187 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
188 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
189 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
190 RAISE G_EXCEPTION_ERROR;
191 END IF;
192
193 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
194 x_msg_data => x_msg_data);
195
196 x_return_status := l_return_status;
197
198 EXCEPTION
199 WHEN G_EXCEPTION_ERROR THEN
200 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
201 p_pkg_name => G_PKG_NAME,
202 p_exc_name => G_EXC_NAME_ERROR,
203 x_msg_count=> x_msg_count,
204 x_msg_data => x_msg_data,
205 p_api_type => '_PVT');
206 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
207 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
208 p_pkg_name => G_PKG_NAME,
209 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
210 x_msg_count => x_msg_count,
211 x_msg_data => x_msg_data,
212 p_api_type => '_PVT');
213 WHEN OTHERS THEN
214 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
215 p_pkg_name => G_PKG_NAME,
216 p_exc_name => G_EXC_NAME_OTHERS,
217 x_msg_count => x_msg_count,
218 x_msg_data => x_msg_data,
219 p_api_type => '_PVT');
220 END delete_translations;
221
222
223 END OKL_SETUP_STRMS_TRANS_PVT;