5:
6:
7: PROCEDURE create_related_entity(
8: p_api_version IN NUMBER,
9: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
10: x_return_status OUT NOCOPY VARCHAR2,
11: x_msg_count OUT NOCOPY NUMBER,
12: x_msg_data OUT NOCOPY VARCHAR2,
13: p_rle_rec IN oke_rle_pvt.rle_rec_type,
17: l_rle_rec oke_rle_pvt.rle_rec_type;
18:
19: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_RELATED_ENTITY';
20: l_api_version CONSTANT NUMBER := 1.0;
21: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
22: l_line_number VARCHAR2(120);
23:
24: BEGIN
25: -- call START_ACTIVITY to create savepoint, check compatibility
23:
24: BEGIN
25: -- call START_ACTIVITY to create savepoint, check compatibility
26: -- and initialize message list
27: l_return_status := OKE_API.START_ACTIVITY(
28: p_api_name => l_api_name,
29: p_pkg_name => g_pkg_name,
30: p_init_msg_list => p_init_msg_list,
31: l_api_version => l_api_version,
33: p_api_type => g_api_type,
34: x_return_status => x_return_status);
35:
36: -- check if activity started successfully
37: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
38: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
39: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
40: raise OKE_API.G_EXCEPTION_ERROR;
41: End If;
34: x_return_status => x_return_status);
35:
36: -- check if activity started successfully
37: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
38: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
39: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
40: raise OKE_API.G_EXCEPTION_ERROR;
41: End If;
42:
35:
36: -- check if activity started successfully
37: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
38: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
39: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
40: raise OKE_API.G_EXCEPTION_ERROR;
41: End If;
42:
43: l_rle_rec := p_rle_rec;
36: -- check if activity started successfully
37: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
38: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
39: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
40: raise OKE_API.G_EXCEPTION_ERROR;
41: End If;
42:
43: l_rle_rec := p_rle_rec;
44:
53: p_rle_rec => l_rle_rec,
54: x_rle_rec => x_rle_rec);
55:
56:
57: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
58: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
60: raise OKE_API.G_EXCEPTION_ERROR;
61: End If;
54: x_rle_rec => x_rle_rec);
55:
56:
57: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
58: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
60: raise OKE_API.G_EXCEPTION_ERROR;
61: End If;
62:
55:
56:
57: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
58: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
60: raise OKE_API.G_EXCEPTION_ERROR;
61: End If;
62:
63: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
56:
57: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
58: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
60: raise OKE_API.G_EXCEPTION_ERROR;
61: End If;
62:
63: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
64: x_msg_data => x_msg_data);
59: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
60: raise OKE_API.G_EXCEPTION_ERROR;
61: End If;
62:
63: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
64: x_msg_data => x_msg_data);
65: EXCEPTION
66: when OKE_API.G_EXCEPTION_ERROR then
67: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
62:
63: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
64: x_msg_data => x_msg_data);
65: EXCEPTION
66: when OKE_API.G_EXCEPTION_ERROR then
67: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
68: p_api_name => l_api_name,
69: p_pkg_name => g_pkg_name,
70: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
63: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
64: x_msg_data => x_msg_data);
65: EXCEPTION
66: when OKE_API.G_EXCEPTION_ERROR then
67: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
68: p_api_name => l_api_name,
69: p_pkg_name => g_pkg_name,
70: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
71: x_msg_count => x_msg_count,
66: when OKE_API.G_EXCEPTION_ERROR then
67: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
68: p_api_name => l_api_name,
69: p_pkg_name => g_pkg_name,
70: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
71: x_msg_count => x_msg_count,
72: x_msg_data => x_msg_data,
73: p_api_type => g_api_type);
74:
71: x_msg_count => x_msg_count,
72: x_msg_data => x_msg_data,
73: p_api_type => g_api_type);
74:
75: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
76: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
77: p_api_name => l_api_name,
78: p_pkg_name => g_pkg_name,
79: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
72: x_msg_data => x_msg_data,
73: p_api_type => g_api_type);
74:
75: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
76: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
77: p_api_name => l_api_name,
78: p_pkg_name => g_pkg_name,
79: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
80: x_msg_count => x_msg_count,
75: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
76: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
77: p_api_name => l_api_name,
78: p_pkg_name => g_pkg_name,
79: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
80: x_msg_count => x_msg_count,
81: x_msg_data => x_msg_data,
82: p_api_type => g_api_type);
83:
81: x_msg_data => x_msg_data,
82: p_api_type => g_api_type);
83:
84: when OTHERS then
85: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
86: p_api_name => l_api_name,
87: p_pkg_name => g_pkg_name,
88: p_exc_name => 'OTHERS',
89: x_msg_count => x_msg_count,
95:
96:
97: PROCEDURE create_related_entity(
98: p_api_version IN NUMBER,
99: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
100: x_return_status OUT NOCOPY VARCHAR2,
101: x_msg_count OUT NOCOPY NUMBER,
102: x_msg_data OUT NOCOPY VARCHAR2,
103: p_rle_tbl IN oke_rle_pvt.rle_tbl_type,
104: x_rle_tbl OUT NOCOPY oke_rle_pvt.rle_tbl_type) IS
105:
106: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_RELATED_ENTITY';
107: l_api_version CONSTANT NUMBER := 1.0;
108: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
109: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
110: i NUMBER;
111: l_rle_tbl oke_rle_pvt.rle_tbl_type;
112: BEGIN
105:
106: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_RELATED_ENTITY';
107: l_api_version CONSTANT NUMBER := 1.0;
108: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
109: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
110: i NUMBER;
111: l_rle_tbl oke_rle_pvt.rle_tbl_type;
112: BEGIN
113: -- call START_ACTIVITY to create savepoint, check compatibility
111: l_rle_tbl oke_rle_pvt.rle_tbl_type;
112: BEGIN
113: -- call START_ACTIVITY to create savepoint, check compatibility
114: -- and initialize message list
115: l_return_status := OKE_API.START_ACTIVITY(
116: p_api_name => l_api_name,
117: p_pkg_name => g_pkg_name,
118: p_init_msg_list => p_init_msg_list,
119: l_api_version => l_api_version,
121: p_api_type => g_api_type,
122: x_return_status => x_return_status);
123:
124: -- check if activity started successfully
125: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
126: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
127: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
128: raise OKE_API.G_EXCEPTION_ERROR;
129: End If;
122: x_return_status => x_return_status);
123:
124: -- check if activity started successfully
125: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
126: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
127: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
128: raise OKE_API.G_EXCEPTION_ERROR;
129: End If;
130:
123:
124: -- check if activity started successfully
125: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
126: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
127: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
128: raise OKE_API.G_EXCEPTION_ERROR;
129: End If;
130:
131: OKE_RLE_PVT.Insert_Row(
124: -- check if activity started successfully
125: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
126: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
127: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
128: raise OKE_API.G_EXCEPTION_ERROR;
129: End If;
130:
131: OKE_RLE_PVT.Insert_Row(
132: p_api_version => p_api_version,
137: p_rle_tbl => p_rle_tbl,
138: x_rle_tbl => x_rle_tbl);
139:
140:
141: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
142: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
143: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
144: raise OKE_API.G_EXCEPTION_ERROR;
145: End If;
138: x_rle_tbl => x_rle_tbl);
139:
140:
141: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
142: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
143: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
144: raise OKE_API.G_EXCEPTION_ERROR;
145: End If;
146:
139:
140:
141: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
142: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
143: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
144: raise OKE_API.G_EXCEPTION_ERROR;
145: End If;
146:
147: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
140:
141: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
142: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
143: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
144: raise OKE_API.G_EXCEPTION_ERROR;
145: End If;
146:
147: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
148: x_msg_data => x_msg_data);
143: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
144: raise OKE_API.G_EXCEPTION_ERROR;
145: End If;
146:
147: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
148: x_msg_data => x_msg_data);
149: EXCEPTION
150: when OKE_API.G_EXCEPTION_ERROR then
151: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
146:
147: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
148: x_msg_data => x_msg_data);
149: EXCEPTION
150: when OKE_API.G_EXCEPTION_ERROR then
151: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
152: p_api_name => l_api_name,
153: p_pkg_name => g_pkg_name,
154: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
147: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
148: x_msg_data => x_msg_data);
149: EXCEPTION
150: when OKE_API.G_EXCEPTION_ERROR then
151: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
152: p_api_name => l_api_name,
153: p_pkg_name => g_pkg_name,
154: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
155: x_msg_count => x_msg_count,
150: when OKE_API.G_EXCEPTION_ERROR then
151: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
152: p_api_name => l_api_name,
153: p_pkg_name => g_pkg_name,
154: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
155: x_msg_count => x_msg_count,
156: x_msg_data => x_msg_data,
157: p_api_type => g_api_type);
158:
155: x_msg_count => x_msg_count,
156: x_msg_data => x_msg_data,
157: p_api_type => g_api_type);
158:
159: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
160: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
161: p_api_name => l_api_name,
162: p_pkg_name => g_pkg_name,
163: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
156: x_msg_data => x_msg_data,
157: p_api_type => g_api_type);
158:
159: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
160: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
161: p_api_name => l_api_name,
162: p_pkg_name => g_pkg_name,
163: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
164: x_msg_count => x_msg_count,
159: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
160: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
161: p_api_name => l_api_name,
162: p_pkg_name => g_pkg_name,
163: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
164: x_msg_count => x_msg_count,
165: x_msg_data => x_msg_data,
166: p_api_type => g_api_type);
167:
165: x_msg_data => x_msg_data,
166: p_api_type => g_api_type);
167:
168: when OTHERS then
169: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
170: p_api_name => l_api_name,
171: p_pkg_name => g_pkg_name,
172: p_exc_name => 'OTHERS',
173: x_msg_count => x_msg_count,
177: END create_related_entity;
178:
179: PROCEDURE update_related_entity(
180: p_api_version IN NUMBER,
181: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
182: x_return_status OUT NOCOPY VARCHAR2,
183: x_msg_count OUT NOCOPY NUMBER,
184: x_msg_data OUT NOCOPY VARCHAR2,
185: p_rle_rec IN oke_rle_pvt.rle_rec_type,
186: x_rle_rec OUT NOCOPY oke_rle_pvt.rle_rec_type) IS
187:
188: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RELATED_ENTITY';
189: l_api_version CONSTANT NUMBER := 1.0;
190: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
191: BEGIN
192: -- call START_ACTIVITY to create savepoint, check compatibility
193: -- and initialize message list
194:
191: BEGIN
192: -- call START_ACTIVITY to create savepoint, check compatibility
193: -- and initialize message list
194:
195: l_return_status := OKE_API.START_ACTIVITY(
196: p_api_name => l_api_name,
197: p_pkg_name => g_pkg_name,
198: p_init_msg_list => p_init_msg_list,
199: l_api_version => l_api_version,
201: p_api_type => g_api_type,
202: x_return_status => x_return_status);
203:
204: -- check if activity started successfully
205: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
206: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
208: raise OKE_API.G_EXCEPTION_ERROR;
209: End If;
202: x_return_status => x_return_status);
203:
204: -- check if activity started successfully
205: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
206: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
208: raise OKE_API.G_EXCEPTION_ERROR;
209: End If;
210:
203:
204: -- check if activity started successfully
205: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
206: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
208: raise OKE_API.G_EXCEPTION_ERROR;
209: End If;
210:
211: -- call complex api
204: -- check if activity started successfully
205: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
206: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
208: raise OKE_API.G_EXCEPTION_ERROR;
209: End If;
210:
211: -- call complex api
212:
219: p_rle_rec => p_rle_rec,
220: x_rle_rec => x_rle_rec);
221:
222:
223: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
224: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
225: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
226: raise OKE_API.G_EXCEPTION_ERROR;
227: End If;
220: x_rle_rec => x_rle_rec);
221:
222:
223: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
224: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
225: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
226: raise OKE_API.G_EXCEPTION_ERROR;
227: End If;
228:
221:
222:
223: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
224: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
225: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
226: raise OKE_API.G_EXCEPTION_ERROR;
227: End If;
228:
229: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
222:
223: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
224: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
225: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
226: raise OKE_API.G_EXCEPTION_ERROR;
227: End If;
228:
229: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
230: x_msg_data => x_msg_data);
225: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
226: raise OKE_API.G_EXCEPTION_ERROR;
227: End If;
228:
229: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
230: x_msg_data => x_msg_data);
231:
232: EXCEPTION
233: when OKE_API.G_EXCEPTION_ERROR then
229: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
230: x_msg_data => x_msg_data);
231:
232: EXCEPTION
233: when OKE_API.G_EXCEPTION_ERROR then
234: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
235: p_api_name => l_api_name,
236: p_pkg_name => g_pkg_name,
237: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
230: x_msg_data => x_msg_data);
231:
232: EXCEPTION
233: when OKE_API.G_EXCEPTION_ERROR then
234: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
235: p_api_name => l_api_name,
236: p_pkg_name => g_pkg_name,
237: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
238: x_msg_count => x_msg_count,
233: when OKE_API.G_EXCEPTION_ERROR then
234: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
235: p_api_name => l_api_name,
236: p_pkg_name => g_pkg_name,
237: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
238: x_msg_count => x_msg_count,
239: x_msg_data => x_msg_data,
240: p_api_type => g_api_type);
241:
238: x_msg_count => x_msg_count,
239: x_msg_data => x_msg_data,
240: p_api_type => g_api_type);
241:
242: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
243: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
244: p_api_name => l_api_name,
245: p_pkg_name => g_pkg_name,
246: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
239: x_msg_data => x_msg_data,
240: p_api_type => g_api_type);
241:
242: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
243: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
244: p_api_name => l_api_name,
245: p_pkg_name => g_pkg_name,
246: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
247: x_msg_count => x_msg_count,
242: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
243: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
244: p_api_name => l_api_name,
245: p_pkg_name => g_pkg_name,
246: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
247: x_msg_count => x_msg_count,
248: x_msg_data => x_msg_data,
249: p_api_type => g_api_type);
250:
248: x_msg_data => x_msg_data,
249: p_api_type => g_api_type);
250:
251: when OTHERS then
252: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
253: p_api_name => l_api_name,
254: p_pkg_name => g_pkg_name,
255: p_exc_name => 'OTHERS',
256: x_msg_count => x_msg_count,
261:
262:
263: PROCEDURE update_related_entity(
264: p_api_version IN NUMBER,
265: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
266: x_return_status OUT NOCOPY VARCHAR2,
267: x_msg_count OUT NOCOPY NUMBER,
268: x_msg_data OUT NOCOPY VARCHAR2,
269: p_rle_tbl IN oke_rle_pvt.rle_tbl_type,
270: x_rle_tbl OUT NOCOPY oke_rle_pvt.rle_tbl_type) IS
271:
272: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RELATED_ENTITY';
273: l_api_version CONSTANT NUMBER := 1.0;
274: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
275: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
276: i NUMBER;
277: BEGIN
278: -- call START_ACTIVITY to create savepoint, check compatibility
271:
272: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RELATED_ENTITY';
273: l_api_version CONSTANT NUMBER := 1.0;
274: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
275: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
276: i NUMBER;
277: BEGIN
278: -- call START_ACTIVITY to create savepoint, check compatibility
279: -- and initialize message list
277: BEGIN
278: -- call START_ACTIVITY to create savepoint, check compatibility
279: -- and initialize message list
280:
281: l_return_status := OKE_API.START_ACTIVITY(
282: p_api_name => l_api_name,
283: p_pkg_name => g_pkg_name,
284: p_init_msg_list => p_init_msg_list,
285: l_api_version => l_api_version,
287: p_api_type => g_api_type,
288: x_return_status => x_return_status);
289:
290: -- check if activity started successfully
291: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
292: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
293: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
294: raise OKE_API.G_EXCEPTION_ERROR;
295:
288: x_return_status => x_return_status);
289:
290: -- check if activity started successfully
291: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
292: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
293: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
294: raise OKE_API.G_EXCEPTION_ERROR;
295:
296: End If;
289:
290: -- check if activity started successfully
291: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
292: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
293: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
294: raise OKE_API.G_EXCEPTION_ERROR;
295:
296: End If;
297:
290: -- check if activity started successfully
291: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
292: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
293: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
294: raise OKE_API.G_EXCEPTION_ERROR;
295:
296: End If;
297:
298: OKE_RLE_PVT.Update_Row(
305: x_rle_tbl => x_rle_tbl);
306:
307:
308:
309: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
310: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
311: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
312: raise OKE_API.G_EXCEPTION_ERROR;
313: End If;
306:
307:
308:
309: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
310: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
311: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
312: raise OKE_API.G_EXCEPTION_ERROR;
313: End If;
314:
307:
308:
309: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
310: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
311: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
312: raise OKE_API.G_EXCEPTION_ERROR;
313: End If;
314:
315: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
308:
309: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
310: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
311: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
312: raise OKE_API.G_EXCEPTION_ERROR;
313: End If;
314:
315: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
316: x_msg_data => x_msg_data);
311: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
312: raise OKE_API.G_EXCEPTION_ERROR;
313: End If;
314:
315: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
316: x_msg_data => x_msg_data);
317:
318: EXCEPTION
319: when OKE_API.G_EXCEPTION_ERROR then
315: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
316: x_msg_data => x_msg_data);
317:
318: EXCEPTION
319: when OKE_API.G_EXCEPTION_ERROR then
320: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
321: p_api_name => l_api_name,
322: p_pkg_name => g_pkg_name,
323: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
316: x_msg_data => x_msg_data);
317:
318: EXCEPTION
319: when OKE_API.G_EXCEPTION_ERROR then
320: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
321: p_api_name => l_api_name,
322: p_pkg_name => g_pkg_name,
323: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
324: x_msg_count => x_msg_count,
319: when OKE_API.G_EXCEPTION_ERROR then
320: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
321: p_api_name => l_api_name,
322: p_pkg_name => g_pkg_name,
323: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
324: x_msg_count => x_msg_count,
325: x_msg_data => x_msg_data,
326: p_api_type => g_api_type);
327:
324: x_msg_count => x_msg_count,
325: x_msg_data => x_msg_data,
326: p_api_type => g_api_type);
327:
328: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
329: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
330: p_api_name => l_api_name,
331: p_pkg_name => g_pkg_name,
332: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
325: x_msg_data => x_msg_data,
326: p_api_type => g_api_type);
327:
328: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
329: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
330: p_api_name => l_api_name,
331: p_pkg_name => g_pkg_name,
332: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
333: x_msg_count => x_msg_count,
328: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
329: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
330: p_api_name => l_api_name,
331: p_pkg_name => g_pkg_name,
332: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
333: x_msg_count => x_msg_count,
334: x_msg_data => x_msg_data,
335: p_api_type => g_api_type);
336:
334: x_msg_data => x_msg_data,
335: p_api_type => g_api_type);
336:
337: when OTHERS then
338: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
339: p_api_name => l_api_name,
340: p_pkg_name => g_pkg_name,
341: p_exc_name => 'OTHERS',
342: x_msg_count => x_msg_count,
348:
349:
350: PROCEDURE validate_related_entity(
351: p_api_version IN NUMBER,
352: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
353: x_return_status OUT NOCOPY VARCHAR2,
354: x_msg_count OUT NOCOPY NUMBER,
355: x_msg_data OUT NOCOPY VARCHAR2,
356: p_rle_rec IN oke_rle_pvt.rle_rec_type) IS
357:
358: l_rle_rec oke_rle_pvt.rle_rec_type;
359: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_RELATED_ENTITY';
360: l_api_version CONSTANT NUMBER := 1.0;
361: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
362:
363: BEGIN
364: -- call START_ACTIVITY to create savepoint, check compatibility
365: -- and initialize message list
362:
363: BEGIN
364: -- call START_ACTIVITY to create savepoint, check compatibility
365: -- and initialize message list
366: l_return_status := OKE_API.START_ACTIVITY(
367: p_api_name => l_api_name,
368: p_pkg_name => g_pkg_name,
369: p_init_msg_list => p_init_msg_list,
370: l_api_version => l_api_version,
372: p_api_type => g_api_type,
373: x_return_status => x_return_status);
374:
375: -- check if activity started successfully
376: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
377: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
378: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
379: raise OKE_API.G_EXCEPTION_ERROR;
380: End If;
373: x_return_status => x_return_status);
374:
375: -- check if activity started successfully
376: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
377: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
378: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
379: raise OKE_API.G_EXCEPTION_ERROR;
380: End If;
381:
374:
375: -- check if activity started successfully
376: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
377: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
378: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
379: raise OKE_API.G_EXCEPTION_ERROR;
380: End If;
381:
382: -- call BEFORE user hook
375: -- check if activity started successfully
376: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
377: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
378: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
379: raise OKE_API.G_EXCEPTION_ERROR;
380: End If;
381:
382: -- call BEFORE user hook
383: l_rle_rec := p_rle_rec;
392: x_msg_data => x_msg_data,
393: p_rle_rec => p_rle_rec);
394:
395:
396: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
397: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
398: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
399: raise OKE_API.G_EXCEPTION_ERROR;
400: End If;
393: p_rle_rec => p_rle_rec);
394:
395:
396: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
397: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
398: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
399: raise OKE_API.G_EXCEPTION_ERROR;
400: End If;
401:
394:
395:
396: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
397: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
398: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
399: raise OKE_API.G_EXCEPTION_ERROR;
400: End If;
401:
402: -- end activity
395:
396: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
397: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
398: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
399: raise OKE_API.G_EXCEPTION_ERROR;
400: End If;
401:
402: -- end activity
403: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
399: raise OKE_API.G_EXCEPTION_ERROR;
400: End If;
401:
402: -- end activity
403: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
404: x_msg_data => x_msg_data);
405: EXCEPTION
406: when OKE_API.G_EXCEPTION_ERROR then
407: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
402: -- end activity
403: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
404: x_msg_data => x_msg_data);
405: EXCEPTION
406: when OKE_API.G_EXCEPTION_ERROR then
407: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
408: p_api_name => l_api_name,
409: p_pkg_name => g_pkg_name,
410: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
403: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
404: x_msg_data => x_msg_data);
405: EXCEPTION
406: when OKE_API.G_EXCEPTION_ERROR then
407: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
408: p_api_name => l_api_name,
409: p_pkg_name => g_pkg_name,
410: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
411: x_msg_count => x_msg_count,
406: when OKE_API.G_EXCEPTION_ERROR then
407: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
408: p_api_name => l_api_name,
409: p_pkg_name => g_pkg_name,
410: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
411: x_msg_count => x_msg_count,
412: x_msg_data => x_msg_data,
413: p_api_type => g_api_type);
414:
411: x_msg_count => x_msg_count,
412: x_msg_data => x_msg_data,
413: p_api_type => g_api_type);
414:
415: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
416: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
417: p_api_name => l_api_name,
418: p_pkg_name => g_pkg_name,
419: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
412: x_msg_data => x_msg_data,
413: p_api_type => g_api_type);
414:
415: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
416: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
417: p_api_name => l_api_name,
418: p_pkg_name => g_pkg_name,
419: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
420: x_msg_count => x_msg_count,
415: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
416: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
417: p_api_name => l_api_name,
418: p_pkg_name => g_pkg_name,
419: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
420: x_msg_count => x_msg_count,
421: x_msg_data => x_msg_data,
422: p_api_type => g_api_type);
423:
421: x_msg_data => x_msg_data,
422: p_api_type => g_api_type);
423:
424: when OTHERS then
425: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
426: p_api_name => l_api_name,
427: p_pkg_name => g_pkg_name,
428: p_exc_name => 'OTHERS',
429: x_msg_count => x_msg_count,
433: END validate_related_entity;
434:
435: PROCEDURE validate_related_entity(
436: p_api_version IN NUMBER,
437: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
438: x_return_status OUT NOCOPY VARCHAR2,
439: x_msg_count OUT NOCOPY NUMBER,
440: x_msg_data OUT NOCOPY VARCHAR2,
441: p_rle_tbl IN oke_rle_pvt.rle_tbl_type) IS
442:
443: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_RELATED_ENTITY';
444:
445: l_api_version CONSTANT NUMBER := 1.0;
446: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
447: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
448: i NUMBER;
449: l_rle_tbl oke_rle_pvt.rle_tbl_type := p_rle_tbl;
450: BEGIN
443: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_RELATED_ENTITY';
444:
445: l_api_version CONSTANT NUMBER := 1.0;
446: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
447: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
448: i NUMBER;
449: l_rle_tbl oke_rle_pvt.rle_tbl_type := p_rle_tbl;
450: BEGIN
451: -- call START_ACTIVITY to create savepoint, check compatibility
449: l_rle_tbl oke_rle_pvt.rle_tbl_type := p_rle_tbl;
450: BEGIN
451: -- call START_ACTIVITY to create savepoint, check compatibility
452: -- and initialize message list
453: l_return_status := OKE_API.START_ACTIVITY(
454: p_api_name => l_api_name,
455: p_pkg_name => g_pkg_name,
456: p_init_msg_list => p_init_msg_list,
457: l_api_version => l_api_version,
459: p_api_type => g_api_type,
460: x_return_status => x_return_status);
461:
462: -- check if activity started successfully
463: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
464: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
465: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
466: raise OKE_API.G_EXCEPTION_ERROR;
467: End If;
460: x_return_status => x_return_status);
461:
462: -- check if activity started successfully
463: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
464: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
465: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
466: raise OKE_API.G_EXCEPTION_ERROR;
467: End If;
468:
461:
462: -- check if activity started successfully
463: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
464: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
465: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
466: raise OKE_API.G_EXCEPTION_ERROR;
467: End If;
468:
469:
462: -- check if activity started successfully
463: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
464: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
465: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
466: raise OKE_API.G_EXCEPTION_ERROR;
467: End If;
468:
469:
470: OKE_RLE_PVT.Validate_Row(
475: x_msg_data => x_msg_data,
476: p_rle_tbl => p_rle_tbl);
477:
478:
479: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
480: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
481: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
482: raise OKE_API.G_EXCEPTION_ERROR;
483: End If;
476: p_rle_tbl => p_rle_tbl);
477:
478:
479: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
480: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
481: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
482: raise OKE_API.G_EXCEPTION_ERROR;
483: End If;
484:
477:
478:
479: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
480: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
481: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
482: raise OKE_API.G_EXCEPTION_ERROR;
483: End If;
484:
485: -- end activity
478:
479: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
480: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
481: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
482: raise OKE_API.G_EXCEPTION_ERROR;
483: End If;
484:
485: -- end activity
486: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
482: raise OKE_API.G_EXCEPTION_ERROR;
483: End If;
484:
485: -- end activity
486: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
487: x_msg_data => x_msg_data);
488: EXCEPTION
489: when OKE_API.G_EXCEPTION_ERROR then
490: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
485: -- end activity
486: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
487: x_msg_data => x_msg_data);
488: EXCEPTION
489: when OKE_API.G_EXCEPTION_ERROR then
490: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
491: p_api_name => l_api_name,
492: p_pkg_name => g_pkg_name,
493: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
486: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
487: x_msg_data => x_msg_data);
488: EXCEPTION
489: when OKE_API.G_EXCEPTION_ERROR then
490: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
491: p_api_name => l_api_name,
492: p_pkg_name => g_pkg_name,
493: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
494: x_msg_count => x_msg_count,
489: when OKE_API.G_EXCEPTION_ERROR then
490: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
491: p_api_name => l_api_name,
492: p_pkg_name => g_pkg_name,
493: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
494: x_msg_count => x_msg_count,
495: x_msg_data => x_msg_data,
496: p_api_type => g_api_type);
497:
494: x_msg_count => x_msg_count,
495: x_msg_data => x_msg_data,
496: p_api_type => g_api_type);
497:
498: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
499: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
500: p_api_name => l_api_name,
501: p_pkg_name => g_pkg_name,
502: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
495: x_msg_data => x_msg_data,
496: p_api_type => g_api_type);
497:
498: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
499: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
500: p_api_name => l_api_name,
501: p_pkg_name => g_pkg_name,
502: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
503: x_msg_count => x_msg_count,
498: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
499: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
500: p_api_name => l_api_name,
501: p_pkg_name => g_pkg_name,
502: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
503: x_msg_count => x_msg_count,
504: x_msg_data => x_msg_data,
505: p_api_type => g_api_type);
506:
504: x_msg_data => x_msg_data,
505: p_api_type => g_api_type);
506:
507: when OTHERS then
508: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
509: p_api_name => l_api_name,
510: p_pkg_name => g_pkg_name,
511: p_exc_name => 'OTHERS',
512: x_msg_count => x_msg_count,
520:
521: PROCEDURE delete_related_entity(
522:
523: p_api_version IN NUMBER,
524: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
525: x_return_status OUT NOCOPY VARCHAR2,
526: x_msg_count OUT NOCOPY NUMBER,
527: x_msg_data OUT NOCOPY VARCHAR2,
528: p_rle_rec IN oke_rle_pvt.rle_rec_type) IS
529:
530: l_rle_rec oke_rle_pvt.rle_rec_type;
531: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_RELATED_ENTITY';
532: l_api_version CONSTANT NUMBER := 1.0;
533: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
534: BEGIN
535: -- call START_ACTIVITY to create savepoint, check compatibility
536: -- and initialize message list
537: l_return_status := OKE_API.START_ACTIVITY(
533: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
534: BEGIN
535: -- call START_ACTIVITY to create savepoint, check compatibility
536: -- and initialize message list
537: l_return_status := OKE_API.START_ACTIVITY(
538: p_api_name => l_api_name,
539: p_pkg_name => g_pkg_name,
540: p_init_msg_list => p_init_msg_list,
541: l_api_version => l_api_version,
543: p_api_type => g_api_type,
544: x_return_status => x_return_status);
545:
546: -- check if activity started successfully
547: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
548: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
549: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
550: raise OKE_API.G_EXCEPTION_ERROR;
551: End If;
544: x_return_status => x_return_status);
545:
546: -- check if activity started successfully
547: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
548: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
549: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
550: raise OKE_API.G_EXCEPTION_ERROR;
551: End If;
552:
545:
546: -- check if activity started successfully
547: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
548: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
549: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
550: raise OKE_API.G_EXCEPTION_ERROR;
551: End If;
552:
553: l_rle_rec := p_rle_rec;
546: -- check if activity started successfully
547: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
548: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
549: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
550: raise OKE_API.G_EXCEPTION_ERROR;
551: End If;
552:
553: l_rle_rec := p_rle_rec;
554:
562: x_msg_data => x_msg_data,
563: p_rle_rec => p_rle_rec);
564:
565:
566: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
567: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
568: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
569: raise OKE_API.G_EXCEPTION_ERROR;
570: End If;
563: p_rle_rec => p_rle_rec);
564:
565:
566: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
567: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
568: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
569: raise OKE_API.G_EXCEPTION_ERROR;
570: End If;
571:
564:
565:
566: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
567: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
568: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
569: raise OKE_API.G_EXCEPTION_ERROR;
570: End If;
571:
572:
565:
566: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
567: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
568: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
569: raise OKE_API.G_EXCEPTION_ERROR;
570: End If;
571:
572:
573: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
569: raise OKE_API.G_EXCEPTION_ERROR;
570: End If;
571:
572:
573: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
574: x_msg_data => x_msg_data);
575: EXCEPTION
576: when OKE_API.G_EXCEPTION_ERROR then
577: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
572:
573: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
574: x_msg_data => x_msg_data);
575: EXCEPTION
576: when OKE_API.G_EXCEPTION_ERROR then
577: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
578: p_api_name => l_api_name,
579: p_pkg_name => g_pkg_name,
580: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
573: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
574: x_msg_data => x_msg_data);
575: EXCEPTION
576: when OKE_API.G_EXCEPTION_ERROR then
577: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
578: p_api_name => l_api_name,
579: p_pkg_name => g_pkg_name,
580: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
581: x_msg_count => x_msg_count,
576: when OKE_API.G_EXCEPTION_ERROR then
577: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
578: p_api_name => l_api_name,
579: p_pkg_name => g_pkg_name,
580: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
581: x_msg_count => x_msg_count,
582: x_msg_data => x_msg_data,
583: p_api_type => g_api_type);
584:
581: x_msg_count => x_msg_count,
582: x_msg_data => x_msg_data,
583: p_api_type => g_api_type);
584:
585: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
586: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
587: p_api_name => l_api_name,
588: p_pkg_name => g_pkg_name,
589: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
582: x_msg_data => x_msg_data,
583: p_api_type => g_api_type);
584:
585: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
586: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
587: p_api_name => l_api_name,
588: p_pkg_name => g_pkg_name,
589: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
590: x_msg_count => x_msg_count,
585: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
586: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
587: p_api_name => l_api_name,
588: p_pkg_name => g_pkg_name,
589: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
590: x_msg_count => x_msg_count,
591: x_msg_data => x_msg_data,
592: p_api_type => g_api_type);
593:
591: x_msg_data => x_msg_data,
592: p_api_type => g_api_type);
593:
594: when OTHERS then
595: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
596: p_api_name => l_api_name,
597: p_pkg_name => g_pkg_name,
598: p_exc_name => 'OTHERS',
599: x_msg_count => x_msg_count,
604:
605:
606: PROCEDURE delete_related_entity(
607: p_api_version IN NUMBER,
608: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
609: x_return_status OUT NOCOPY VARCHAR2,
610: x_msg_count OUT NOCOPY NUMBER,
611: x_msg_data OUT NOCOPY VARCHAR2,
612: p_rle_tbl IN oke_rle_pvt.rle_tbl_type) IS
612: p_rle_tbl IN oke_rle_pvt.rle_tbl_type) IS
613:
614: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_RELATED_ENTITY';
615: l_api_version CONSTANT NUMBER := 1.0;
616: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
617: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
618: i NUMBER;
619: BEGIN
620: -- call START_ACTIVITY to create savepoint, check compatibility
613:
614: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_RELATED_ENTITY';
615: l_api_version CONSTANT NUMBER := 1.0;
616: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
617: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
618: i NUMBER;
619: BEGIN
620: -- call START_ACTIVITY to create savepoint, check compatibility
621: -- and initialize message list
618: i NUMBER;
619: BEGIN
620: -- call START_ACTIVITY to create savepoint, check compatibility
621: -- and initialize message list
622: l_return_status := OKE_API.START_ACTIVITY(
623: p_api_name => l_api_name,
624: p_pkg_name => g_pkg_name,
625: p_init_msg_list => p_init_msg_list,
626: l_api_version => l_api_version,
628: p_api_type => g_api_type,
629: x_return_status => x_return_status);
630:
631: -- check if activity started successfully
632: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
633: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
635: raise OKE_API.G_EXCEPTION_ERROR;
636: End If;
629: x_return_status => x_return_status);
630:
631: -- check if activity started successfully
632: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
633: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
635: raise OKE_API.G_EXCEPTION_ERROR;
636: End If;
637:
630:
631: -- check if activity started successfully
632: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
633: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
635: raise OKE_API.G_EXCEPTION_ERROR;
636: End If;
637:
638:
631: -- check if activity started successfully
632: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
633: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
635: raise OKE_API.G_EXCEPTION_ERROR;
636: End If;
637:
638:
639: OKE_RLE_PVT.Delete_Row(
645: p_rle_tbl => p_rle_tbl);
646:
647:
648:
649: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
650: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
651: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
652: raise OKE_API.G_EXCEPTION_ERROR;
653: End If;
646:
647:
648:
649: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
650: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
651: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
652: raise OKE_API.G_EXCEPTION_ERROR;
653: End If;
654:
647:
648:
649: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
650: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
651: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
652: raise OKE_API.G_EXCEPTION_ERROR;
653: End If;
654:
655: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
648:
649: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
650: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
651: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
652: raise OKE_API.G_EXCEPTION_ERROR;
653: End If;
654:
655: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
656: x_msg_data => x_msg_data);
651: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
652: raise OKE_API.G_EXCEPTION_ERROR;
653: End If;
654:
655: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
656: x_msg_data => x_msg_data);
657: EXCEPTION
658: when OKE_API.G_EXCEPTION_ERROR then
659: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
654:
655: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
656: x_msg_data => x_msg_data);
657: EXCEPTION
658: when OKE_API.G_EXCEPTION_ERROR then
659: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
660: p_api_name => l_api_name,
661: p_pkg_name => g_pkg_name,
662: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
655: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
656: x_msg_data => x_msg_data);
657: EXCEPTION
658: when OKE_API.G_EXCEPTION_ERROR then
659: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
660: p_api_name => l_api_name,
661: p_pkg_name => g_pkg_name,
662: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
663: x_msg_count => x_msg_count,
658: when OKE_API.G_EXCEPTION_ERROR then
659: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
660: p_api_name => l_api_name,
661: p_pkg_name => g_pkg_name,
662: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
663: x_msg_count => x_msg_count,
664: x_msg_data => x_msg_data,
665: p_api_type => g_api_type);
666:
663: x_msg_count => x_msg_count,
664: x_msg_data => x_msg_data,
665: p_api_type => g_api_type);
666:
667: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
668: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
669: p_api_name => l_api_name,
670: p_pkg_name => g_pkg_name,
671: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
664: x_msg_data => x_msg_data,
665: p_api_type => g_api_type);
666:
667: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
668: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
669: p_api_name => l_api_name,
670: p_pkg_name => g_pkg_name,
671: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
672: x_msg_count => x_msg_count,
667: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
668: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
669: p_api_name => l_api_name,
670: p_pkg_name => g_pkg_name,
671: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
672: x_msg_count => x_msg_count,
673: x_msg_data => x_msg_data,
674: p_api_type => g_api_type);
675:
673: x_msg_data => x_msg_data,
674: p_api_type => g_api_type);
675:
676: when OTHERS then
677: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
678: p_api_name => l_api_name,
679: p_pkg_name => g_pkg_name,
680: p_exc_name => 'OTHERS',
681: x_msg_count => x_msg_count,
688:
689:
690: PROCEDURE lock_related_entity(
691: p_api_version IN NUMBER,
692: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
693: x_return_status OUT NOCOPY VARCHAR2,
694: x_msg_count OUT NOCOPY NUMBER,
695: x_msg_data OUT NOCOPY VARCHAR2,
696: p_rle_rec IN OKE_RLE_PVT.rle_rec_type) IS
697:
698:
699: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_RELATED_ENTITY';
700: l_api_version CONSTANT NUMBER := 1.0;
701: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
702:
703: BEGIN
704: l_return_status := OKE_API.START_ACTIVITY(
705: p_api_name => l_api_name,
700: l_api_version CONSTANT NUMBER := 1.0;
701: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
702:
703: BEGIN
704: l_return_status := OKE_API.START_ACTIVITY(
705: p_api_name => l_api_name,
706: p_pkg_name => g_pkg_name,
707: p_init_msg_list => p_init_msg_list,
708: l_api_version => l_api_version,
710: p_api_type => g_api_type,
711: x_return_status => x_return_status);
712:
713: -- check if activity started successfully
714: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
715: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
717: raise OKE_API.G_EXCEPTION_ERROR;
718: End If;
711: x_return_status => x_return_status);
712:
713: -- check if activity started successfully
714: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
715: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
717: raise OKE_API.G_EXCEPTION_ERROR;
718: End If;
719:
712:
713: -- check if activity started successfully
714: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
715: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
717: raise OKE_API.G_EXCEPTION_ERROR;
718: End If;
719:
720: OKE_RLE_PVT.Lock_Row(
713: -- check if activity started successfully
714: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
715: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
717: raise OKE_API.G_EXCEPTION_ERROR;
718: End If;
719:
720: OKE_RLE_PVT.Lock_Row(
721: p_api_version => p_api_version,
725: x_msg_data => x_msg_data,
726: p_rle_rec => p_rle_rec);
727:
728: -- check return status
729: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
730: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
732: raise OKE_API.G_EXCEPTION_ERROR;
733: End If;
726: p_rle_rec => p_rle_rec);
727:
728: -- check return status
729: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
730: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
732: raise OKE_API.G_EXCEPTION_ERROR;
733: End If;
734:
727:
728: -- check return status
729: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
730: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
732: raise OKE_API.G_EXCEPTION_ERROR;
733: End If;
734:
735: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
728: -- check return status
729: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
730: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
732: raise OKE_API.G_EXCEPTION_ERROR;
733: End If;
734:
735: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
736: x_msg_data => x_msg_data);
731: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
732: raise OKE_API.G_EXCEPTION_ERROR;
733: End If;
734:
735: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
736: x_msg_data => x_msg_data);
737: EXCEPTION
738: when OKE_API.G_EXCEPTION_ERROR then
739: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
734:
735: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
736: x_msg_data => x_msg_data);
737: EXCEPTION
738: when OKE_API.G_EXCEPTION_ERROR then
739: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
740: p_api_name => l_api_name,
741: p_pkg_name => g_pkg_name,
742: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
735: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
736: x_msg_data => x_msg_data);
737: EXCEPTION
738: when OKE_API.G_EXCEPTION_ERROR then
739: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
740: p_api_name => l_api_name,
741: p_pkg_name => g_pkg_name,
742: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
743: x_msg_count => x_msg_count,
738: when OKE_API.G_EXCEPTION_ERROR then
739: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
740: p_api_name => l_api_name,
741: p_pkg_name => g_pkg_name,
742: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
743: x_msg_count => x_msg_count,
744: x_msg_data => x_msg_data,
745: p_api_type => g_api_type);
746:
743: x_msg_count => x_msg_count,
744: x_msg_data => x_msg_data,
745: p_api_type => g_api_type);
746:
747: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
748: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
749: p_api_name => l_api_name,
750: p_pkg_name => g_pkg_name,
751: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
744: x_msg_data => x_msg_data,
745: p_api_type => g_api_type);
746:
747: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
748: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
749: p_api_name => l_api_name,
750: p_pkg_name => g_pkg_name,
751: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
752: x_msg_count => x_msg_count,
747: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
748: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
749: p_api_name => l_api_name,
750: p_pkg_name => g_pkg_name,
751: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
752: x_msg_count => x_msg_count,
753: x_msg_data => x_msg_data,
754: p_api_type => g_api_type);
755:
753: x_msg_data => x_msg_data,
754: p_api_type => g_api_type);
755:
756: when OTHERS then
757: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
758: p_api_name => l_api_name,
759: p_pkg_name => g_pkg_name,
760: p_exc_name => 'OTHERS',
761: x_msg_count => x_msg_count,
765: END lock_related_entity;
766:
767: PROCEDURE lock_related_entity(
768: p_api_version IN NUMBER,
769: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
770: x_return_status OUT NOCOPY VARCHAR2,
771: x_msg_count OUT NOCOPY NUMBER,
772: x_msg_data OUT NOCOPY VARCHAR2,
773: p_rle_tbl IN oke_rle_pvt.rle_tbl_type) IS
773: p_rle_tbl IN oke_rle_pvt.rle_tbl_type) IS
774:
775: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_RELATED_ENTITY';
776: l_api_version CONSTANT NUMBER := 1.0;
777: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
778: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
779: i NUMBER;
780: BEGIN
781: -- call START_ACTIVITY to create savepoint, check compatibility
774:
775: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_RELATED_ENTITY';
776: l_api_version CONSTANT NUMBER := 1.0;
777: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
778: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
779: i NUMBER;
780: BEGIN
781: -- call START_ACTIVITY to create savepoint, check compatibility
782: -- and initialize message list
779: i NUMBER;
780: BEGIN
781: -- call START_ACTIVITY to create savepoint, check compatibility
782: -- and initialize message list
783: l_return_status := OKE_API.START_ACTIVITY(
784: p_api_name => l_api_name,
785: p_pkg_name => g_pkg_name,
786: p_init_msg_list => p_init_msg_list,
787: l_api_version => l_api_version,
789: p_api_type => g_api_type,
790: x_return_status => x_return_status);
791:
792: -- check if activity started successfully
793: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
794: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
796: raise OKE_API.G_EXCEPTION_ERROR;
797: End If;
790: x_return_status => x_return_status);
791:
792: -- check if activity started successfully
793: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
794: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
796: raise OKE_API.G_EXCEPTION_ERROR;
797: End If;
798:
791:
792: -- check if activity started successfully
793: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
794: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
796: raise OKE_API.G_EXCEPTION_ERROR;
797: End If;
798:
799: If (p_rle_tbl.COUNT > 0) Then
792: -- check if activity started successfully
793: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
794: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
796: raise OKE_API.G_EXCEPTION_ERROR;
797: End If;
798:
799: If (p_rle_tbl.COUNT > 0) Then
800: i := p_rle_tbl.FIRST;
808: x_msg_data => x_msg_data,
809: p_rle_rec => p_rle_tbl(i));
810:
811: -- store the highest degree of error
812: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
813: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
814: l_overall_status := x_return_status;
815: End If;
816: End If;
809: p_rle_rec => p_rle_tbl(i));
810:
811: -- store the highest degree of error
812: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
813: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
814: l_overall_status := x_return_status;
815: End If;
816: End If;
817: EXIT WHEN (i = p_rle_tbl.LAST);
820: -- return overall status
821: x_return_status := l_overall_status;
822: End If;
823:
824: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
825: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
827: raise OKE_API.G_EXCEPTION_ERROR;
828: End If;
821: x_return_status := l_overall_status;
822: End If;
823:
824: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
825: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
827: raise OKE_API.G_EXCEPTION_ERROR;
828: End If;
829:
822: End If;
823:
824: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
825: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
827: raise OKE_API.G_EXCEPTION_ERROR;
828: End If;
829:
830: -- end activity
823:
824: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
825: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
827: raise OKE_API.G_EXCEPTION_ERROR;
828: End If;
829:
830: -- end activity
831: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
827: raise OKE_API.G_EXCEPTION_ERROR;
828: End If;
829:
830: -- end activity
831: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
832: x_msg_data => x_msg_data);
833: EXCEPTION
834: when OKE_API.G_EXCEPTION_ERROR then
835: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
830: -- end activity
831: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
832: x_msg_data => x_msg_data);
833: EXCEPTION
834: when OKE_API.G_EXCEPTION_ERROR then
835: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
836: p_api_name => l_api_name,
837: p_pkg_name => g_pkg_name,
838: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
831: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
832: x_msg_data => x_msg_data);
833: EXCEPTION
834: when OKE_API.G_EXCEPTION_ERROR then
835: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
836: p_api_name => l_api_name,
837: p_pkg_name => g_pkg_name,
838: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
839: x_msg_count => x_msg_count,
834: when OKE_API.G_EXCEPTION_ERROR then
835: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
836: p_api_name => l_api_name,
837: p_pkg_name => g_pkg_name,
838: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
839: x_msg_count => x_msg_count,
840: x_msg_data => x_msg_data,
841: p_api_type => g_api_type);
842:
839: x_msg_count => x_msg_count,
840: x_msg_data => x_msg_data,
841: p_api_type => g_api_type);
842:
843: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
844: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
845: p_api_name => l_api_name,
846: p_pkg_name => g_pkg_name,
847: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
840: x_msg_data => x_msg_data,
841: p_api_type => g_api_type);
842:
843: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
844: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
845: p_api_name => l_api_name,
846: p_pkg_name => g_pkg_name,
847: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
848: x_msg_count => x_msg_count,
843: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
844: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
845: p_api_name => l_api_name,
846: p_pkg_name => g_pkg_name,
847: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
848: x_msg_count => x_msg_count,
849: x_msg_data => x_msg_data,
850: p_api_type => g_api_type);
851:
849: x_msg_data => x_msg_data,
850: p_api_type => g_api_type);
851:
852: when OTHERS then
853: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
854: p_api_name => l_api_name,
855: p_pkg_name => g_pkg_name,
856: p_exc_name => 'OTHERS',
857: x_msg_count => x_msg_count,