51:
52: -- Procedure for insert_row
53: PROCEDURE insert_row(
54: p_api_version IN NUMBER,
55: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
56: x_return_status OUT NOCOPY VARCHAR2,
57: x_msg_count OUT NOCOPY NUMBER,
58: x_msg_data OUT NOCOPY VARCHAR2,
59: p_bpev_tbl IN bpev_tbl_type,
58: x_msg_data OUT NOCOPY VARCHAR2,
59: p_bpev_tbl IN bpev_tbl_type,
60: x_bpev_tbl OUT NOCOPY bpev_tbl_type) IS
61:
62: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
63: i NUMBER := 0;
64:
65: BEGIN
66: -- initialize the return status
63: i NUMBER := 0;
64:
65: BEGIN
66: -- initialize the return status
67: x_return_status := OKC_API.G_RET_STS_SUCCESS;
68:
69: IF p_bpev_tbl.COUNT > 0 THEN
70: i := p_bpev_tbl.FIRST;
71: LOOP
77: ,x_msg_data
78: ,p_bpev_tbl(i)
79: ,x_bpev_tbl(i));
80:
81: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
82: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
83: x_return_status := l_return_status;
84: RAISE G_EXCEPTION_HALT_VALIDATION;
85: ELSE
78: ,p_bpev_tbl(i)
79: ,x_bpev_tbl(i));
80:
81: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
82: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
83: x_return_status := l_return_status;
84: RAISE G_EXCEPTION_HALT_VALIDATION;
85: ELSE
86: x_return_status := l_return_status;
94: EXCEPTION
95: WHEN G_EXCEPTION_HALT_VALIDATION THEN
96: NULL;
97: WHEN OTHERS THEN
98: OKC_API.set_message(p_app_name => g_app_name,
99: p_msg_name => g_unexpected_error,
100: p_token1 => g_sqlcode_token,
101: p_token1_value => sqlcode,
102: p_token2 => g_sqlerrm_token,
100: p_token1 => g_sqlcode_token,
101: p_token1_value => sqlcode,
102: p_token2 => g_sqlerrm_token,
103: p_token2_value => sqlerrm);
104: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
105: END insert_row;
106:
107: PROCEDURE insert_row(
108: p_api_version IN NUMBER,
105: END insert_row;
106:
107: PROCEDURE insert_row(
108: p_api_version IN NUMBER,
109: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
110: x_return_status OUT NOCOPY VARCHAR2,
111: x_msg_count OUT NOCOPY NUMBER,
112: x_msg_data OUT NOCOPY VARCHAR2,
113: p_bpev_rec IN bpev_rec_type,
114: x_bpev_rec OUT NOCOPY bpev_rec_type) IS
115:
116: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
117: l_api_version CONSTANT NUMBER := 1.0;
118: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
119: l_bpev_rec bpev_rec_type := p_bpev_rec;
120:
121: BEGIN
122: l_return_status := OKC_API.START_ACTIVITY(l_api_name
118: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
119: l_bpev_rec bpev_rec_type := p_bpev_rec;
120:
121: BEGIN
122: l_return_status := OKC_API.START_ACTIVITY(l_api_name
123: ,p_init_msg_list
124: ,'_PUB'
125: ,x_return_status
126: );
123: ,p_init_msg_list
124: ,'_PUB'
125: ,x_return_status
126: );
127: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
128: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
129: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
130: RAISE OKC_API.G_EXCEPTION_ERROR;
131: END IF;
124: ,'_PUB'
125: ,x_return_status
126: );
127: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
128: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
129: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
130: RAISE OKC_API.G_EXCEPTION_ERROR;
131: END IF;
132:
125: ,x_return_status
126: );
127: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
128: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
129: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
130: RAISE OKC_API.G_EXCEPTION_ERROR;
131: END IF;
132:
133: -- Call user hook for BEFORE
126: );
127: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
128: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
129: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
130: RAISE OKC_API.G_EXCEPTION_ERROR;
131: END IF;
132:
133: -- Call user hook for BEFORE
134: g_bpev_rec := l_bpev_rec;
132:
133: -- Call user hook for BEFORE
134: g_bpev_rec := l_bpev_rec;
135: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
136: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
137: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
138: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
139: raise OKC_API.G_EXCEPTION_ERROR;
140: END IF;
133: -- Call user hook for BEFORE
134: g_bpev_rec := l_bpev_rec;
135: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
136: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
137: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
138: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
139: raise OKC_API.G_EXCEPTION_ERROR;
140: END IF;
141:
134: g_bpev_rec := l_bpev_rec;
135: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
136: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
137: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
138: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
139: raise OKC_API.G_EXCEPTION_ERROR;
140: END IF;
141:
142: -- get values back from hook call
135: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
136: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
137: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
138: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
139: raise OKC_API.G_EXCEPTION_ERROR;
140: END IF;
141:
142: -- get values back from hook call
143: --l_bpev_rec := migrate_bpev(l_bpev_rec, g_bpev_rec);
151: ,x_msg_data
152: ,l_bpev_rec
153: ,x_bpev_rec);
154:
155: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
157: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
158: RAISE OKC_API.G_EXCEPTION_ERROR;
159: END IF;
152: ,l_bpev_rec
153: ,x_bpev_rec);
154:
155: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
157: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
158: RAISE OKC_API.G_EXCEPTION_ERROR;
159: END IF;
160:
153: ,x_bpev_rec);
154:
155: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
157: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
158: RAISE OKC_API.G_EXCEPTION_ERROR;
159: END IF;
160:
161: -- USER HOOK CALL FOR AFTER, STARTS
154:
155: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
157: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
158: RAISE OKC_API.G_EXCEPTION_ERROR;
159: END IF;
160:
161: -- USER HOOK CALL FOR AFTER, STARTS
162: g_bpev_rec := x_bpev_rec;
165: p_package_name => g_pkg_name,
166: p_procedure_name => l_api_name,
167: p_before_after => 'A');
168:
169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
172: RAISE OKC_API.G_EXCEPTION_ERROR;
173: END IF;
166: p_procedure_name => l_api_name,
167: p_before_after => 'A');
168:
169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
172: RAISE OKC_API.G_EXCEPTION_ERROR;
173: END IF;
174: -- USER HOOK CALL FOR AFTER, ENDS
167: p_before_after => 'A');
168:
169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
172: RAISE OKC_API.G_EXCEPTION_ERROR;
173: END IF;
174: -- USER HOOK CALL FOR AFTER, ENDS
175:
168:
169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
172: RAISE OKC_API.G_EXCEPTION_ERROR;
173: END IF;
174: -- USER HOOK CALL FOR AFTER, ENDS
175:
176: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
172: RAISE OKC_API.G_EXCEPTION_ERROR;
173: END IF;
174: -- USER HOOK CALL FOR AFTER, ENDS
175:
176: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
177:
178: EXCEPTION
179: WHEN OKC_API.G_EXCEPTION_ERROR THEN
180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
175:
176: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
177:
178: EXCEPTION
179: WHEN OKC_API.G_EXCEPTION_ERROR THEN
180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
181: (l_api_name,
182: G_PKG_NAME,
183: 'OKC_API.G_RET_STS_ERROR',
176: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
177:
178: EXCEPTION
179: WHEN OKC_API.G_EXCEPTION_ERROR THEN
180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
181: (l_api_name,
182: G_PKG_NAME,
183: 'OKC_API.G_RET_STS_ERROR',
184: x_msg_count,
179: WHEN OKC_API.G_EXCEPTION_ERROR THEN
180: x_return_status := OKC_API.HANDLE_EXCEPTIONS
181: (l_api_name,
182: G_PKG_NAME,
183: 'OKC_API.G_RET_STS_ERROR',
184: x_msg_count,
185: x_msg_data,
186: '_PUB');
187: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
183: 'OKC_API.G_RET_STS_ERROR',
184: x_msg_count,
185: x_msg_data,
186: '_PUB');
187: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
188: x_return_status := OKC_API.HANDLE_EXCEPTIONS
189: (l_api_name,
190: G_PKG_NAME,
191: 'OKC_API.G_RET_STS_UNEXP_ERROR',
184: x_msg_count,
185: x_msg_data,
186: '_PUB');
187: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
188: x_return_status := OKC_API.HANDLE_EXCEPTIONS
189: (l_api_name,
190: G_PKG_NAME,
191: 'OKC_API.G_RET_STS_UNEXP_ERROR',
192: x_msg_count,
187: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
188: x_return_status := OKC_API.HANDLE_EXCEPTIONS
189: (l_api_name,
190: G_PKG_NAME,
191: 'OKC_API.G_RET_STS_UNEXP_ERROR',
192: x_msg_count,
193: x_msg_data,
194: '_PUB');
195: WHEN OTHERS THEN
192: x_msg_count,
193: x_msg_data,
194: '_PUB');
195: WHEN OTHERS THEN
196: x_return_status := OKC_API.HANDLE_EXCEPTIONS
197: (l_api_name,
198: G_PKG_NAME,
199: 'OTHERS',
200: x_msg_count,
205:
206: -- Procedure for lock_row
207: PROCEDURE lock_row(
208: p_api_version IN NUMBER,
209: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
210: x_return_status OUT NOCOPY VARCHAR2,
211: x_msg_count OUT NOCOPY NUMBER,
212: x_msg_data OUT NOCOPY VARCHAR2,
213: p_bpev_tbl IN bpev_tbl_type) IS
211: x_msg_count OUT NOCOPY NUMBER,
212: x_msg_data OUT NOCOPY VARCHAR2,
213: p_bpev_tbl IN bpev_tbl_type) IS
214:
215: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
216: i NUMBER := 0;
217:
218: BEGIN
219: -- initialize the return status
216: i NUMBER := 0;
217:
218: BEGIN
219: -- initialize the return status
220: x_return_status := OKC_API.G_RET_STS_SUCCESS;
221:
222: IF p_bpev_tbl.COUNT > 0 THEN
223: i := p_bpev_tbl.FIRST;
224: LOOP
229: ,x_msg_count
230: ,x_msg_data
231: ,p_bpev_tbl(i));
232:
233: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
234: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
235: x_return_status := l_return_status;
236: RAISE G_EXCEPTION_HALT_VALIDATION;
237: ELSE
230: ,x_msg_data
231: ,p_bpev_tbl(i));
232:
233: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
234: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
235: x_return_status := l_return_status;
236: RAISE G_EXCEPTION_HALT_VALIDATION;
237: ELSE
238: x_return_status := l_return_status;
246: EXCEPTION
247: WHEN G_EXCEPTION_HALT_VALIDATION THEN
248: NULL;
249: WHEN OTHERS THEN
250: OKC_API.set_message(p_app_name => g_app_name,
251: p_msg_name => g_unexpected_error,
252: p_token1 => g_sqlcode_token,
253: p_token1_value => sqlcode,
254: p_token2 => g_sqlerrm_token,
252: p_token1 => g_sqlcode_token,
253: p_token1_value => sqlcode,
254: p_token2 => g_sqlerrm_token,
255: p_token2_value => sqlerrm);
256: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
257: END lock_row;
258:
259: PROCEDURE lock_row(
260: p_api_version IN NUMBER,
257: END lock_row;
258:
259: PROCEDURE lock_row(
260: p_api_version IN NUMBER,
261: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
262: x_return_status OUT NOCOPY VARCHAR2,
263: x_msg_count OUT NOCOPY NUMBER,
264: x_msg_data OUT NOCOPY VARCHAR2,
265: p_bpev_rec IN bpev_rec_type) IS
265: p_bpev_rec IN bpev_rec_type) IS
266:
267: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
268: l_api_version CONSTANT NUMBER := 1.0;
269: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
270: l_bpev_rec bpev_rec_type := p_bpev_rec;
271:
272: BEGIN
273: l_return_status := OKC_API.START_ACTIVITY(l_api_name
269: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
270: l_bpev_rec bpev_rec_type := p_bpev_rec;
271:
272: BEGIN
273: l_return_status := OKC_API.START_ACTIVITY(l_api_name
274: ,p_init_msg_list
275: ,'_PUB'
276: ,x_return_status
277: );
274: ,p_init_msg_list
275: ,'_PUB'
276: ,x_return_status
277: );
278: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
279: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
281: RAISE OKC_API.G_EXCEPTION_ERROR;
282: END IF;
275: ,'_PUB'
276: ,x_return_status
277: );
278: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
279: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
281: RAISE OKC_API.G_EXCEPTION_ERROR;
282: END IF;
283:
276: ,x_return_status
277: );
278: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
279: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
281: RAISE OKC_API.G_EXCEPTION_ERROR;
282: END IF;
283:
284: -- call to complex API procedure
277: );
278: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
279: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
281: RAISE OKC_API.G_EXCEPTION_ERROR;
282: END IF;
283:
284: -- call to complex API procedure
285: oks_billing_profiles_pvt.lock_row(p_api_version
288: ,x_msg_count
289: ,x_msg_data
290: ,p_bpev_rec);
291:
292: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
293: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
295: RAISE OKC_API.G_EXCEPTION_ERROR;
296: END IF;
289: ,x_msg_data
290: ,p_bpev_rec);
291:
292: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
293: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
295: RAISE OKC_API.G_EXCEPTION_ERROR;
296: END IF;
297:
290: ,p_bpev_rec);
291:
292: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
293: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
295: RAISE OKC_API.G_EXCEPTION_ERROR;
296: END IF;
297:
298: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
291:
292: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
293: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
294: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
295: RAISE OKC_API.G_EXCEPTION_ERROR;
296: END IF;
297:
298: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
299:
294: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
295: RAISE OKC_API.G_EXCEPTION_ERROR;
296: END IF;
297:
298: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
299:
300: EXCEPTION
301: WHEN OKC_API.G_EXCEPTION_ERROR THEN
302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
297:
298: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
299:
300: EXCEPTION
301: WHEN OKC_API.G_EXCEPTION_ERROR THEN
302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
303: (l_api_name,
304: G_PKG_NAME,
305: 'OKC_API.G_RET_STS_ERROR',
298: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
299:
300: EXCEPTION
301: WHEN OKC_API.G_EXCEPTION_ERROR THEN
302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
303: (l_api_name,
304: G_PKG_NAME,
305: 'OKC_API.G_RET_STS_ERROR',
306: x_msg_count,
301: WHEN OKC_API.G_EXCEPTION_ERROR THEN
302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
303: (l_api_name,
304: G_PKG_NAME,
305: 'OKC_API.G_RET_STS_ERROR',
306: x_msg_count,
307: x_msg_data,
308: '_PUB');
309: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
305: 'OKC_API.G_RET_STS_ERROR',
306: x_msg_count,
307: x_msg_data,
308: '_PUB');
309: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
311: (l_api_name,
312: G_PKG_NAME,
313: 'OKC_API.G_RET_STS_UNEXP_ERROR',
306: x_msg_count,
307: x_msg_data,
308: '_PUB');
309: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
311: (l_api_name,
312: G_PKG_NAME,
313: 'OKC_API.G_RET_STS_UNEXP_ERROR',
314: x_msg_count,
309: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
311: (l_api_name,
312: G_PKG_NAME,
313: 'OKC_API.G_RET_STS_UNEXP_ERROR',
314: x_msg_count,
315: x_msg_data,
316: '_PUB');
317: WHEN OTHERS THEN
314: x_msg_count,
315: x_msg_data,
316: '_PUB');
317: WHEN OTHERS THEN
318: x_return_status := OKC_API.HANDLE_EXCEPTIONS
319: (l_api_name,
320: G_PKG_NAME,
321: 'OTHERS',
322: x_msg_count,
326:
327: -- Procedure for update_row
328: PROCEDURE update_row(
329: p_api_version IN NUMBER,
330: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
331: x_return_status OUT NOCOPY VARCHAR2,
332: x_msg_count OUT NOCOPY NUMBER,
333: x_msg_data OUT NOCOPY VARCHAR2,
334: p_bpev_tbl IN bpev_tbl_type,
333: x_msg_data OUT NOCOPY VARCHAR2,
334: p_bpev_tbl IN bpev_tbl_type,
335: x_bpev_tbl OUT NOCOPY bpev_tbl_type) IS
336:
337: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
338: i NUMBER := 0;
339:
340: BEGIN
341: -- initialize the return status
338: i NUMBER := 0;
339:
340: BEGIN
341: -- initialize the return status
342: x_return_status := OKC_API.G_RET_STS_SUCCESS;
343:
344: IF p_bpev_tbl.COUNT > 0 THEN
345: i := p_bpev_tbl.FIRST;
346: LOOP
352: ,x_msg_data
353: ,p_bpev_tbl(i)
354: ,x_bpev_tbl(i));
355:
356: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
357: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
358: x_return_status := l_return_status;
359: RAISE G_EXCEPTION_HALT_VALIDATION;
360: ELSE
353: ,p_bpev_tbl(i)
354: ,x_bpev_tbl(i));
355:
356: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
357: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
358: x_return_status := l_return_status;
359: RAISE G_EXCEPTION_HALT_VALIDATION;
360: ELSE
361: x_return_status := l_return_status;
369: EXCEPTION
370: WHEN G_EXCEPTION_HALT_VALIDATION THEN
371: NULL;
372: WHEN OTHERS THEN
373: OKC_API.set_message(p_app_name => g_app_name,
374: p_msg_name => g_unexpected_error,
375: p_token1 => g_sqlcode_token,
376: p_token1_value => sqlcode,
377: p_token2 => g_sqlerrm_token,
375: p_token1 => g_sqlcode_token,
376: p_token1_value => sqlcode,
377: p_token2 => g_sqlerrm_token,
378: p_token2_value => sqlerrm);
379: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
380: END update_row;
381:
382: PROCEDURE update_row(
383: p_api_version IN NUMBER,
380: END update_row;
381:
382: PROCEDURE update_row(
383: p_api_version IN NUMBER,
384: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
385: x_return_status OUT NOCOPY VARCHAR2,
386: x_msg_count OUT NOCOPY NUMBER,
387: x_msg_data OUT NOCOPY VARCHAR2,
388: p_bpev_rec IN bpev_rec_type,
389: x_bpev_rec OUT NOCOPY bpev_rec_type) IS
390:
391: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
392: l_api_version CONSTANT NUMBER := 1.0;
393: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
394: l_bpev_rec bpev_rec_type := p_bpev_rec;
395:
396: BEGIN
397: l_return_status := OKC_API.START_ACTIVITY(l_api_name
393: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
394: l_bpev_rec bpev_rec_type := p_bpev_rec;
395:
396: BEGIN
397: l_return_status := OKC_API.START_ACTIVITY(l_api_name
398: ,p_init_msg_list
399: ,'_PUB'
400: ,x_return_status
401: );
398: ,p_init_msg_list
399: ,'_PUB'
400: ,x_return_status
401: );
402: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
403: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
405: RAISE OKC_API.G_EXCEPTION_ERROR;
406: END IF;
399: ,'_PUB'
400: ,x_return_status
401: );
402: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
403: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
405: RAISE OKC_API.G_EXCEPTION_ERROR;
406: END IF;
407:
400: ,x_return_status
401: );
402: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
403: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
405: RAISE OKC_API.G_EXCEPTION_ERROR;
406: END IF;
407:
408: -- Call user hook for BEFORE
401: );
402: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
403: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
405: RAISE OKC_API.G_EXCEPTION_ERROR;
406: END IF;
407:
408: -- Call user hook for BEFORE
409: g_bpev_rec := l_bpev_rec;
407:
408: -- Call user hook for BEFORE
409: g_bpev_rec := l_bpev_rec;
410: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
411: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
412: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
413: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
414: raise OKC_API.G_EXCEPTION_ERROR;
415: END IF;
408: -- Call user hook for BEFORE
409: g_bpev_rec := l_bpev_rec;
410: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
411: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
412: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
413: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
414: raise OKC_API.G_EXCEPTION_ERROR;
415: END IF;
416:
409: g_bpev_rec := l_bpev_rec;
410: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
411: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
412: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
413: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
414: raise OKC_API.G_EXCEPTION_ERROR;
415: END IF;
416:
417: -- get values back from hook call
410: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
411: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
412: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
413: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
414: raise OKC_API.G_EXCEPTION_ERROR;
415: END IF;
416:
417: -- get values back from hook call
418: --l_bpev_rec := migrate_bpev(l_bpev_rec, g_bpev_rec);
426: ,x_msg_data
427: ,l_bpev_rec
428: ,x_bpev_rec);
429:
430: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
431: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
433: RAISE OKC_API.G_EXCEPTION_ERROR;
434: END IF;
427: ,l_bpev_rec
428: ,x_bpev_rec);
429:
430: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
431: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
433: RAISE OKC_API.G_EXCEPTION_ERROR;
434: END IF;
435:
428: ,x_bpev_rec);
429:
430: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
431: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
433: RAISE OKC_API.G_EXCEPTION_ERROR;
434: END IF;
435:
436: -- USER HOOK CALL FOR AFTER, STARTS
429:
430: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
431: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
433: RAISE OKC_API.G_EXCEPTION_ERROR;
434: END IF;
435:
436: -- USER HOOK CALL FOR AFTER, STARTS
437: g_bpev_rec := x_bpev_rec;
440: p_package_name => g_pkg_name,
441: p_procedure_name => l_api_name,
442: p_before_after => 'A');
443:
444: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: RAISE OKC_API.G_EXCEPTION_ERROR;
448: END IF;
441: p_procedure_name => l_api_name,
442: p_before_after => 'A');
443:
444: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: RAISE OKC_API.G_EXCEPTION_ERROR;
448: END IF;
449: -- USER HOOK CALL FOR AFTER, ENDS
442: p_before_after => 'A');
443:
444: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: RAISE OKC_API.G_EXCEPTION_ERROR;
448: END IF;
449: -- USER HOOK CALL FOR AFTER, ENDS
450:
443:
444: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: RAISE OKC_API.G_EXCEPTION_ERROR;
448: END IF;
449: -- USER HOOK CALL FOR AFTER, ENDS
450:
451: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
447: RAISE OKC_API.G_EXCEPTION_ERROR;
448: END IF;
449: -- USER HOOK CALL FOR AFTER, ENDS
450:
451: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
452:
453: EXCEPTION
454: WHEN OKC_API.G_EXCEPTION_ERROR THEN
455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
450:
451: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
452:
453: EXCEPTION
454: WHEN OKC_API.G_EXCEPTION_ERROR THEN
455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
456: (l_api_name,
457: G_PKG_NAME,
458: 'OKC_API.G_RET_STS_ERROR',
451: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
452:
453: EXCEPTION
454: WHEN OKC_API.G_EXCEPTION_ERROR THEN
455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
456: (l_api_name,
457: G_PKG_NAME,
458: 'OKC_API.G_RET_STS_ERROR',
459: x_msg_count,
454: WHEN OKC_API.G_EXCEPTION_ERROR THEN
455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
456: (l_api_name,
457: G_PKG_NAME,
458: 'OKC_API.G_RET_STS_ERROR',
459: x_msg_count,
460: x_msg_data,
461: '_PUB');
462: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
458: 'OKC_API.G_RET_STS_ERROR',
459: x_msg_count,
460: x_msg_data,
461: '_PUB');
462: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
463: x_return_status := OKC_API.HANDLE_EXCEPTIONS
464: (l_api_name,
465: G_PKG_NAME,
466: 'OKC_API.G_RET_STS_UNEXP_ERROR',
459: x_msg_count,
460: x_msg_data,
461: '_PUB');
462: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
463: x_return_status := OKC_API.HANDLE_EXCEPTIONS
464: (l_api_name,
465: G_PKG_NAME,
466: 'OKC_API.G_RET_STS_UNEXP_ERROR',
467: x_msg_count,
462: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
463: x_return_status := OKC_API.HANDLE_EXCEPTIONS
464: (l_api_name,
465: G_PKG_NAME,
466: 'OKC_API.G_RET_STS_UNEXP_ERROR',
467: x_msg_count,
468: x_msg_data,
469: '_PUB');
470: WHEN OTHERS THEN
467: x_msg_count,
468: x_msg_data,
469: '_PUB');
470: WHEN OTHERS THEN
471: x_return_status := OKC_API.HANDLE_EXCEPTIONS
472: (l_api_name,
473: G_PKG_NAME,
474: 'OTHERS',
475: x_msg_count,
479:
480: -- Procedure for delete_row
481: PROCEDURE delete_row(
482: p_api_version IN NUMBER,
483: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
484: x_return_status OUT NOCOPY VARCHAR2,
485: x_msg_count OUT NOCOPY NUMBER,
486: x_msg_data OUT NOCOPY VARCHAR2,
487: p_bpev_tbl IN bpev_tbl_type) IS
485: x_msg_count OUT NOCOPY NUMBER,
486: x_msg_data OUT NOCOPY VARCHAR2,
487: p_bpev_tbl IN bpev_tbl_type) IS
488:
489: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
490: i NUMBER := 0;
491:
492: BEGIN
493: -- initialize the return status
490: i NUMBER := 0;
491:
492: BEGIN
493: -- initialize the return status
494: x_return_status := OKC_API.G_RET_STS_SUCCESS;
495: IF p_bpev_tbl.COUNT > 0 THEN
496: i := p_bpev_tbl.FIRST;
497: LOOP
498: delete_row(
502: ,x_msg_count
503: ,x_msg_data
504: ,p_bpev_tbl(i));
505:
506: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
507: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
508: x_return_status := l_return_status;
509: RAISE G_EXCEPTION_HALT_VALIDATION;
510: ELSE
503: ,x_msg_data
504: ,p_bpev_tbl(i));
505:
506: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
507: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
508: x_return_status := l_return_status;
509: RAISE G_EXCEPTION_HALT_VALIDATION;
510: ELSE
511: x_return_status := l_return_status;
519: EXCEPTION
520: WHEN G_EXCEPTION_HALT_VALIDATION THEN
521: NULL;
522: WHEN OTHERS THEN
523: OKC_API.set_message(p_app_name => g_app_name,
524: p_msg_name => g_unexpected_error,
525: p_token1 => g_sqlcode_token,
526: p_token1_value => sqlcode,
527: p_token2 => g_sqlerrm_token,
525: p_token1 => g_sqlcode_token,
526: p_token1_value => sqlcode,
527: p_token2 => g_sqlerrm_token,
528: p_token2_value => sqlerrm);
529: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
530: END delete_row;
531:
532: PROCEDURE delete_row(
533: p_api_version IN NUMBER,
530: END delete_row;
531:
532: PROCEDURE delete_row(
533: p_api_version IN NUMBER,
534: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
535: x_return_status OUT NOCOPY VARCHAR2,
536: x_msg_count OUT NOCOPY NUMBER,
537: x_msg_data OUT NOCOPY VARCHAR2,
538: p_bpev_rec IN bpev_rec_type) IS
538: p_bpev_rec IN bpev_rec_type) IS
539:
540: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
541: l_api_version CONSTANT NUMBER := 1.0;
542: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
543: l_bpev_rec bpev_rec_type := p_bpev_rec;
544:
545: BEGIN
546: l_return_status := OKC_API.START_ACTIVITY(l_api_name
542: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
543: l_bpev_rec bpev_rec_type := p_bpev_rec;
544:
545: BEGIN
546: l_return_status := OKC_API.START_ACTIVITY(l_api_name
547: ,p_init_msg_list
548: ,'_PUB'
549: ,x_return_status
550: );
547: ,p_init_msg_list
548: ,'_PUB'
549: ,x_return_status
550: );
551: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
553: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
554: RAISE OKC_API.G_EXCEPTION_ERROR;
555: END IF;
548: ,'_PUB'
549: ,x_return_status
550: );
551: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
553: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
554: RAISE OKC_API.G_EXCEPTION_ERROR;
555: END IF;
556:
549: ,x_return_status
550: );
551: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
553: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
554: RAISE OKC_API.G_EXCEPTION_ERROR;
555: END IF;
556:
557: -- Call user hook for BEFORE
550: );
551: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
553: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
554: RAISE OKC_API.G_EXCEPTION_ERROR;
555: END IF;
556:
557: -- Call user hook for BEFORE
558: g_bpev_rec := l_bpev_rec;
557: -- Call user hook for BEFORE
558: g_bpev_rec := l_bpev_rec;
559:
560: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
562: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
564: raise OKC_API.G_EXCEPTION_ERROR;
565: END IF;
558: g_bpev_rec := l_bpev_rec;
559:
560: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
562: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
564: raise OKC_API.G_EXCEPTION_ERROR;
565: END IF;
566:
559:
560: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
562: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
564: raise OKC_API.G_EXCEPTION_ERROR;
565: END IF;
566:
567: -- get values back from hook call
560: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
562: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
564: raise OKC_API.G_EXCEPTION_ERROR;
565: END IF;
566:
567: -- get values back from hook call
568: --l_bpev_rec := migrate_bpev(l_bpev_rec, g_bpev_rec);
574: ,x_msg_count
575: ,x_msg_data
576: ,l_bpev_rec);
577:
578: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
580: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
581: RAISE OKC_API.G_EXCEPTION_ERROR;
582: END IF;
575: ,x_msg_data
576: ,l_bpev_rec);
577:
578: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
580: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
581: RAISE OKC_API.G_EXCEPTION_ERROR;
582: END IF;
583:
576: ,l_bpev_rec);
577:
578: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
580: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
581: RAISE OKC_API.G_EXCEPTION_ERROR;
582: END IF;
583:
584: -- USER HOOK CALL FOR AFTER, STARTS
577:
578: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
580: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
581: RAISE OKC_API.G_EXCEPTION_ERROR;
582: END IF;
583:
584: -- USER HOOK CALL FOR AFTER, STARTS
585: g_bpev_rec := l_bpev_rec;
588: p_package_name => g_pkg_name,
589: p_procedure_name => l_api_name,
590: p_before_after => 'A');
591:
592: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
593: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
594: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
595: RAISE OKC_API.G_EXCEPTION_ERROR;
596: END IF;
589: p_procedure_name => l_api_name,
590: p_before_after => 'A');
591:
592: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
593: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
594: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
595: RAISE OKC_API.G_EXCEPTION_ERROR;
596: END IF;
597: -- USER HOOK CALL FOR AFTER, ENDS
590: p_before_after => 'A');
591:
592: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
593: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
594: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
595: RAISE OKC_API.G_EXCEPTION_ERROR;
596: END IF;
597: -- USER HOOK CALL FOR AFTER, ENDS
598:
591:
592: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
593: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
594: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
595: RAISE OKC_API.G_EXCEPTION_ERROR;
596: END IF;
597: -- USER HOOK CALL FOR AFTER, ENDS
598:
599: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
595: RAISE OKC_API.G_EXCEPTION_ERROR;
596: END IF;
597: -- USER HOOK CALL FOR AFTER, ENDS
598:
599: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
600:
601: EXCEPTION
602: WHEN OKC_API.G_EXCEPTION_ERROR THEN
603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
598:
599: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
600:
601: EXCEPTION
602: WHEN OKC_API.G_EXCEPTION_ERROR THEN
603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
604: (l_api_name,
605: G_PKG_NAME,
606: 'OKC_API.G_RET_STS_ERROR',
599: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
600:
601: EXCEPTION
602: WHEN OKC_API.G_EXCEPTION_ERROR THEN
603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
604: (l_api_name,
605: G_PKG_NAME,
606: 'OKC_API.G_RET_STS_ERROR',
607: x_msg_count,
602: WHEN OKC_API.G_EXCEPTION_ERROR THEN
603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
604: (l_api_name,
605: G_PKG_NAME,
606: 'OKC_API.G_RET_STS_ERROR',
607: x_msg_count,
608: x_msg_data,
609: '_PUB');
610: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
606: 'OKC_API.G_RET_STS_ERROR',
607: x_msg_count,
608: x_msg_data,
609: '_PUB');
610: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
611: x_return_status := OKC_API.HANDLE_EXCEPTIONS
612: (l_api_name,
613: G_PKG_NAME,
614: 'OKC_API.G_RET_STS_UNEXP_ERROR',
607: x_msg_count,
608: x_msg_data,
609: '_PUB');
610: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
611: x_return_status := OKC_API.HANDLE_EXCEPTIONS
612: (l_api_name,
613: G_PKG_NAME,
614: 'OKC_API.G_RET_STS_UNEXP_ERROR',
615: x_msg_count,
610: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
611: x_return_status := OKC_API.HANDLE_EXCEPTIONS
612: (l_api_name,
613: G_PKG_NAME,
614: 'OKC_API.G_RET_STS_UNEXP_ERROR',
615: x_msg_count,
616: x_msg_data,
617: '_PUB');
618: WHEN OTHERS THEN
615: x_msg_count,
616: x_msg_data,
617: '_PUB');
618: WHEN OTHERS THEN
619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
620: (l_api_name,
621: G_PKG_NAME,
622: 'OTHERS',
623: x_msg_count,
627:
628: -- Procedure for validate_row
629: PROCEDURE validate_row(
630: p_api_version IN NUMBER,
631: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
632: x_return_status OUT NOCOPY VARCHAR2,
633: x_msg_count OUT NOCOPY NUMBER,
634: x_msg_data OUT NOCOPY VARCHAR2,
635: p_bpev_tbl IN bpev_tbl_type) IS
633: x_msg_count OUT NOCOPY NUMBER,
634: x_msg_data OUT NOCOPY VARCHAR2,
635: p_bpev_tbl IN bpev_tbl_type) IS
636:
637: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
638: i NUMBER := 0;
639:
640: BEGIN
641: -- initialize the return status
638: i NUMBER := 0;
639:
640: BEGIN
641: -- initialize the return status
642: x_return_status := OKC_API.G_RET_STS_SUCCESS;
643:
644: IF p_bpev_tbl.COUNT > 0 THEN
645: i := p_bpev_tbl.FIRST;
646: LOOP
651: ,x_msg_count
652: ,x_msg_data
653: ,p_bpev_tbl(i));
654:
655: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
656: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
657: x_return_status := l_return_status;
658: RAISE G_EXCEPTION_HALT_VALIDATION;
659: ELSE
652: ,x_msg_data
653: ,p_bpev_tbl(i));
654:
655: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
656: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
657: x_return_status := l_return_status;
658: RAISE G_EXCEPTION_HALT_VALIDATION;
659: ELSE
660: x_return_status := l_return_status;
668: EXCEPTION
669: WHEN G_EXCEPTION_HALT_VALIDATION THEN
670: NULL;
671: WHEN OTHERS THEN
672: OKC_API.set_message(p_app_name => g_app_name,
673: p_msg_name => g_unexpected_error,
674: p_token1 => g_sqlcode_token,
675: p_token1_value => sqlcode,
676: p_token2 => g_sqlerrm_token,
674: p_token1 => g_sqlcode_token,
675: p_token1_value => sqlcode,
676: p_token2 => g_sqlerrm_token,
677: p_token2_value => sqlerrm);
678: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
679: END validate_row;
680:
681: PROCEDURE validate_row(
682: p_api_version IN NUMBER,
679: END validate_row;
680:
681: PROCEDURE validate_row(
682: p_api_version IN NUMBER,
683: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
684: x_return_status OUT NOCOPY VARCHAR2,
685: x_msg_count OUT NOCOPY NUMBER,
686: x_msg_data OUT NOCOPY VARCHAR2,
687: p_bpev_rec IN bpev_rec_type) IS
687: p_bpev_rec IN bpev_rec_type) IS
688:
689: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
690: l_api_version CONSTANT NUMBER := 1.0;
691: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
692: l_bpev_rec bpev_rec_type := p_bpev_rec;
693:
694: BEGIN
695: l_return_status := OKC_API.START_ACTIVITY(l_api_name
691: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
692: l_bpev_rec bpev_rec_type := p_bpev_rec;
693:
694: BEGIN
695: l_return_status := OKC_API.START_ACTIVITY(l_api_name
696: ,p_init_msg_list
697: ,'_PUB'
698: ,x_return_status
699: );
696: ,p_init_msg_list
697: ,'_PUB'
698: ,x_return_status
699: );
700: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
702: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
703: RAISE OKC_API.G_EXCEPTION_ERROR;
704: END IF;
697: ,'_PUB'
698: ,x_return_status
699: );
700: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
702: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
703: RAISE OKC_API.G_EXCEPTION_ERROR;
704: END IF;
705:
698: ,x_return_status
699: );
700: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
702: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
703: RAISE OKC_API.G_EXCEPTION_ERROR;
704: END IF;
705:
706: -- Call user hook for BEFORE
699: );
700: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
702: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
703: RAISE OKC_API.G_EXCEPTION_ERROR;
704: END IF;
705:
706: -- Call user hook for BEFORE
707: g_bpev_rec := l_bpev_rec;
705:
706: -- Call user hook for BEFORE
707: g_bpev_rec := l_bpev_rec;
708: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
710: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
712: raise OKC_API.G_EXCEPTION_ERROR;
713: END IF;
706: -- Call user hook for BEFORE
707: g_bpev_rec := l_bpev_rec;
708: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
710: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
712: raise OKC_API.G_EXCEPTION_ERROR;
713: END IF;
714:
707: g_bpev_rec := l_bpev_rec;
708: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
710: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
712: raise OKC_API.G_EXCEPTION_ERROR;
713: END IF;
714:
715: -- get values back from hook call
708: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
710: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
712: raise OKC_API.G_EXCEPTION_ERROR;
713: END IF;
714:
715: -- get values back from hook call
716: --l_bpev_rec := migrate_bpev(l_bpev_rec, g_bpev_rec);
723: ,x_msg_count
724: ,x_msg_data
725: ,l_bpev_rec);
726:
727: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
729: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
730: RAISE OKC_API.G_EXCEPTION_ERROR;
731: END IF;
724: ,x_msg_data
725: ,l_bpev_rec);
726:
727: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
729: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
730: RAISE OKC_API.G_EXCEPTION_ERROR;
731: END IF;
732:
725: ,l_bpev_rec);
726:
727: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
729: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
730: RAISE OKC_API.G_EXCEPTION_ERROR;
731: END IF;
732:
733: -- USER HOOK CALL FOR AFTER, STARTS
726:
727: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
729: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
730: RAISE OKC_API.G_EXCEPTION_ERROR;
731: END IF;
732:
733: -- USER HOOK CALL FOR AFTER, STARTS
734: g_bpev_rec := l_bpev_rec;
737: p_package_name => g_pkg_name,
738: p_procedure_name => l_api_name,
739: p_before_after => 'A');
740:
741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
742: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
744: RAISE OKC_API.G_EXCEPTION_ERROR;
745: END IF;
738: p_procedure_name => l_api_name,
739: p_before_after => 'A');
740:
741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
742: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
744: RAISE OKC_API.G_EXCEPTION_ERROR;
745: END IF;
746: -- USER HOOK CALL FOR AFTER, ENDS
739: p_before_after => 'A');
740:
741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
742: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
744: RAISE OKC_API.G_EXCEPTION_ERROR;
745: END IF;
746: -- USER HOOK CALL FOR AFTER, ENDS
747:
740:
741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
742: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
744: RAISE OKC_API.G_EXCEPTION_ERROR;
745: END IF;
746: -- USER HOOK CALL FOR AFTER, ENDS
747:
748: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
744: RAISE OKC_API.G_EXCEPTION_ERROR;
745: END IF;
746: -- USER HOOK CALL FOR AFTER, ENDS
747:
748: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
749:
750: EXCEPTION
751: WHEN OKC_API.G_EXCEPTION_ERROR THEN
752: x_return_status := OKC_API.HANDLE_EXCEPTIONS
747:
748: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
749:
750: EXCEPTION
751: WHEN OKC_API.G_EXCEPTION_ERROR THEN
752: x_return_status := OKC_API.HANDLE_EXCEPTIONS
753: (l_api_name,
754: G_PKG_NAME,
755: 'OKC_API.G_RET_STS_ERROR',
748: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
749:
750: EXCEPTION
751: WHEN OKC_API.G_EXCEPTION_ERROR THEN
752: x_return_status := OKC_API.HANDLE_EXCEPTIONS
753: (l_api_name,
754: G_PKG_NAME,
755: 'OKC_API.G_RET_STS_ERROR',
756: x_msg_count,
751: WHEN OKC_API.G_EXCEPTION_ERROR THEN
752: x_return_status := OKC_API.HANDLE_EXCEPTIONS
753: (l_api_name,
754: G_PKG_NAME,
755: 'OKC_API.G_RET_STS_ERROR',
756: x_msg_count,
757: x_msg_data,
758: '_PUB');
759: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
755: 'OKC_API.G_RET_STS_ERROR',
756: x_msg_count,
757: x_msg_data,
758: '_PUB');
759: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
761: (l_api_name,
762: G_PKG_NAME,
763: 'OKC_API.G_RET_STS_UNEXP_ERROR',
756: x_msg_count,
757: x_msg_data,
758: '_PUB');
759: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
761: (l_api_name,
762: G_PKG_NAME,
763: 'OKC_API.G_RET_STS_UNEXP_ERROR',
764: x_msg_count,
759: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
761: (l_api_name,
762: G_PKG_NAME,
763: 'OKC_API.G_RET_STS_UNEXP_ERROR',
764: x_msg_count,
765: x_msg_data,
766: '_PUB');
767: WHEN OTHERS THEN
764: x_msg_count,
765: x_msg_data,
766: '_PUB');
767: WHEN OTHERS THEN
768: x_return_status := OKC_API.HANDLE_EXCEPTIONS
769: (l_api_name,
770: G_PKG_NAME,
771: 'OTHERS',
772: x_msg_count,
852: x_msg_data => l_msg_data,
853: p_tavv_tbl => l_p_tavv_tbl,
854: x_tavv_tbl => l_x_tavv_tbl) ;
855: If l_return_status <> 'S' then
856: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Create TPA Value ');
857: Raise G_EXCEPTION_HALT_VALIDATION;
858: End If;
859:
860: RETURN(l_x_tavv_tbl(1).id);
863: -------------
864:
865: PROCEDURE Get_Billing_Schedule(
866: p_api_version IN NUMBER,
867: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
868: p_billing_profile_rec IN Billing_profile_rec,
869: x_sll_tbl_out OUT NOCOPY Stream_Level_tbl,
870: x_return_status OUT NOCOPY VARCHAR2,
871: x_msg_count OUT NOCOPY NUMBER,
1075: EXCEPTION
1076: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1077: NULL;
1078: WHEN OTHERS THEN
1079: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
1080: p_msg_name => G_UNEXPECTED_ERROR,
1081: p_token1 => G_SQLCODE_TOKEN,
1082: p_token1_value => sqlcode,
1083: p_token2 => G_SQLERRM_TOKEN,