72:
73: -- validation of Standard Rate Template Id
74:
75: FUNCTION validate_std_rate_tmpl_id(p_srt_id IN NUMBER) RETURN VARCHAR2 IS
76: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
77:
78: BEGIN
79:
80: -- STD_RATE_TMPL_ID is a required field
78: BEGIN
79:
80: -- STD_RATE_TMPL_ID is a required field
81:
82: IF (p_srt_id IS NULL OR p_srt_id = okl_api.g_miss_num) THEN
83: okl_api.set_message(p_app_name => g_app_name
84: ,p_msg_name => g_required_value
85: ,p_token1 => g_col_name_token
86: ,p_token1_value => 'STD_RATE_TMPL_ID');
79:
80: -- STD_RATE_TMPL_ID is a required field
81:
82: IF (p_srt_id IS NULL OR p_srt_id = okl_api.g_miss_num) THEN
83: okl_api.set_message(p_app_name => g_app_name
84: ,p_msg_name => g_required_value
85: ,p_token1 => g_col_name_token
86: ,p_token1_value => 'STD_RATE_TMPL_ID');
87:
86: ,p_token1_value => 'STD_RATE_TMPL_ID');
87:
88: -- notify caller of an error
89:
90: l_return_status := okl_api.g_ret_sts_error;
91:
92: -- halt further validation of this column
93:
94: RAISE g_exception_halt_validation;
103: WHEN OTHERS THEN
104:
105: -- store SQL error message on message stack for caller
106:
107: okl_api.set_message(p_app_name => g_app_name
108: ,p_msg_name => g_unexpected_error
109: ,p_token1 => g_sqlcode_token
110: ,p_token1_value => sqlcode
111: ,p_token2 => g_sqlerrm_token
112: ,p_token2_value => sqlerrm);
113:
114: -- notify caller of an UNEXPECTED error
115:
116: l_return_status := okl_api.g_ret_sts_unexp_error;
117: RETURN(l_return_status);
118: END validate_std_rate_tmpl_id;
119:
120: -- Validation of the org Id
119:
120: -- Validation of the org Id
121:
122: FUNCTION validate_org_id(p_org_id IN NUMBER) RETURN VARCHAR2 IS
123: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
124:
125: BEGIN
126:
127: -- data is required
125: BEGIN
126:
127: -- data is required
128:
129: IF (p_org_id IS NULL) OR (p_org_id = okl_api.g_miss_num) THEN
130: okl_api.set_message(p_app_name => g_app_name
131: ,p_msg_name => g_required_value
132: ,p_token1 => g_col_name_token
133: ,p_token1_value => 'org_id');
126:
127: -- data is required
128:
129: IF (p_org_id IS NULL) OR (p_org_id = okl_api.g_miss_num) THEN
130: okl_api.set_message(p_app_name => g_app_name
131: ,p_msg_name => g_required_value
132: ,p_token1 => g_col_name_token
133: ,p_token1_value => 'org_id');
134: x_return_status := okl_api.g_ret_sts_error;
130: okl_api.set_message(p_app_name => g_app_name
131: ,p_msg_name => g_required_value
132: ,p_token1 => g_col_name_token
133: ,p_token1_value => 'org_id');
134: x_return_status := okl_api.g_ret_sts_error;
135:
136: -- halt further validation of this column
137:
138: RAISE g_exception_halt_validation;
141: -- check org id validity using the generic function okl_util.check_org_id()
142:
143: x_return_status := okl_util.check_org_id(TO_CHAR(p_org_id));
144:
145: IF (x_return_status = okl_api.g_ret_sts_error) THEN
146: okl_api.set_message(p_app_name => g_app_name
147: ,p_msg_name => g_invalid_value
148: ,p_token1 => g_col_name_token
149: ,p_token1_value => 'org_id');
142:
143: x_return_status := okl_util.check_org_id(TO_CHAR(p_org_id));
144:
145: IF (x_return_status = okl_api.g_ret_sts_error) THEN
146: okl_api.set_message(p_app_name => g_app_name
147: ,p_msg_name => g_invalid_value
148: ,p_token1 => g_col_name_token
149: ,p_token1_value => 'org_id');
150:
150:
151: -- notify caller of an error
152:
153: RAISE g_exception_halt_validation;
154: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
155:
156: -- notify caller of an error
157:
158: RAISE g_exception_halt_validation;
167: WHEN OTHERS THEN
168:
169: -- store SQL error message on message stack for caller
170:
171: okl_api.set_message(p_app_name => g_app_name
172: ,p_msg_name => g_unexpected_error
173: ,p_token1 => g_sqlcode_token
174: ,p_token1_value => sqlcode
175: ,p_token2 => g_sqlerrm_token
176: ,p_token2_value => sqlerrm);
177:
178: -- notify caller of an UNEXPECTED error
179:
180: x_return_status := okl_api.g_ret_sts_unexp_error;
181: RETURN(x_return_status);
182: END validate_org_id;
183:
184: FUNCTION validate_currency_code(p_currency_code IN VARCHAR2) RETURN VARCHAR2 IS
184: FUNCTION validate_currency_code(p_currency_code IN VARCHAR2) RETURN VARCHAR2 IS
185:
186: -- initialize the return status
187:
188: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
189:
190: BEGIN
191:
192: -- data is required
190: BEGIN
191:
192: -- data is required
193:
194: IF (p_currency_code IS NULL) OR (p_currency_code = okl_api.g_miss_char) THEN
195: okl_api.set_message(p_app_name => g_app_name
196: ,p_msg_name => g_required_value
197: ,p_token1 => g_col_name_token
198: ,p_token1_value => 'currency_code');
191:
192: -- data is required
193:
194: IF (p_currency_code IS NULL) OR (p_currency_code = okl_api.g_miss_char) THEN
195: okl_api.set_message(p_app_name => g_app_name
196: ,p_msg_name => g_required_value
197: ,p_token1 => g_col_name_token
198: ,p_token1_value => 'currency_code');
199:
205: -- check from currency values using the generic okl_util.validate_currency_code
206:
207: x_return_status := okl_accounting_util.validate_currency_code(p_currency_code);
208:
209: IF (x_return_status <> okl_api.g_true) THEN
210: okl_api.set_message(p_app_name => g_app_name
211: ,p_msg_name => g_invalid_value
212: ,p_token1 => g_col_name_token
213: ,p_token1_value => 'currency_code');
206:
207: x_return_status := okl_accounting_util.validate_currency_code(p_currency_code);
208:
209: IF (x_return_status <> okl_api.g_true) THEN
210: okl_api.set_message(p_app_name => g_app_name
211: ,p_msg_name => g_invalid_value
212: ,p_token1 => g_col_name_token
213: ,p_token1_value => 'currency_code');
214:
218: END IF;
219: RETURN(x_return_status);
220: EXCEPTION
221: WHEN g_exception_halt_validation THEN
222: x_return_status := okl_api.g_ret_sts_error;
223: RETURN(x_return_status);
224: WHEN OTHERS THEN
225:
226: -- store SQL error message on message stack for caller
224: WHEN OTHERS THEN
225:
226: -- store SQL error message on message stack for caller
227:
228: okl_api.set_message(p_app_name => g_app_name
229: ,p_msg_name => g_unexpected_error
230: ,p_token1 => g_sqlcode_token
231: ,p_token1_value => sqlcode
232: ,p_token2 => g_sqlerrm_token
233: ,p_token2_value => sqlerrm);
234:
235: -- notify caller of an UNEXPECTED error
236:
237: x_return_status := okl_api.g_ret_sts_unexp_error;
238: RETURN(x_return_status);
239: END validate_currency_code;
240:
241: FUNCTION validate_orig_std_rate_tmpl_id(p_orig_srt_id IN NUMBER) RETURN VARCHAR2 IS
238: RETURN(x_return_status);
239: END validate_currency_code;
240:
241: FUNCTION validate_orig_std_rate_tmpl_id(p_orig_srt_id IN NUMBER) RETURN VARCHAR2 IS
242: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
243:
244: CURSOR srt_exists_csr IS
245: SELECT 'x'
246: FROM okl_fe_std_rt_tmp_all_b
248: l_dummy_var VARCHAR2(1) := '?';
249:
250: BEGIN
251:
252: IF (p_orig_srt_id IS NOT NULL AND p_orig_srt_id <> okl_api.g_miss_num) THEN
253: OPEN srt_exists_csr;
254: FETCH srt_exists_csr INTO l_dummy_var ;
255: CLOSE srt_exists_csr;
256:
256:
257: -- if l_dummy_var is still set to default, data was not found
258:
259: IF (l_dummy_var = '?') THEN
260: okl_api.set_message(p_app_name => g_app_name
261: ,p_msg_name => g_invalid_value
262: ,p_token1 => g_col_name_token
263: ,p_token1_value => 'ORIG_STD_RATE_TMPL_ID');
264:
263: ,p_token1_value => 'ORIG_STD_RATE_TMPL_ID');
264:
265: -- notify caller of an error
266:
267: x_return_status := okl_api.g_ret_sts_error;
268: RAISE g_exception_halt_validation;
269: END IF;
270: END IF;
271: RETURN x_return_status;
279: WHEN OTHERS THEN
280:
281: -- store SQL error message on message stack for caller
282:
283: okl_api.set_message(p_app_name => g_app_name
284: ,p_msg_name => g_unexpected_error
285: ,p_token1 => g_sqlcode_token
286: ,p_token1_value => sqlcode
287: ,p_token2 => g_sqlerrm_token
288: ,p_token2_value => sqlerrm);
289:
290: -- notify caller of an UNEXPECTED error
291:
292: x_return_status := okl_api.g_ret_sts_unexp_error;
293:
294: -- verify that cursor was closed
295:
296: IF srt_exists_csr%ISOPEN THEN
302: FUNCTION validate_sts_code(p_sts_code IN VARCHAR2) RETURN VARCHAR2 IS
303:
304: --initialize the Return Status
305:
306: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
307:
308: BEGIN
309:
310: -- Column is mandatory
308: BEGIN
309:
310: -- Column is mandatory
311:
312: IF (p_sts_code IS NULL OR p_sts_code = okl_api.g_miss_char) THEN
313: okl_api.set_message(p_app_name => g_app_name
314: ,p_msg_name => g_required_value
315: ,p_token1 => g_col_name_token
316: ,p_token1_value => 'sts_code');
309:
310: -- Column is mandatory
311:
312: IF (p_sts_code IS NULL OR p_sts_code = okl_api.g_miss_char) THEN
313: okl_api.set_message(p_app_name => g_app_name
314: ,p_msg_name => g_required_value
315: ,p_token1 => g_col_name_token
316: ,p_token1_value => 'sts_code');
317:
316: ,p_token1_value => 'sts_code');
317:
318: -- notify caller of an error
319:
320: x_return_status := okl_api.g_ret_sts_error;
321: RAISE g_exception_halt_validation;
322: END IF;
323:
324: -- Lookup Code Validation
325:
326: x_return_status := okl_util.check_lookup_code(p_lookup_type => 'OKL_PRC_STATUS'
327: ,p_lookup_code => p_sts_code);
328:
329: IF (x_return_status = okl_api.g_ret_sts_error) THEN
330: okl_api.set_message(p_app_name => g_app_name
331: ,p_msg_name => g_invalid_value
332: ,p_token1 => g_col_name_token
333: ,p_token1_value => 'sts_code'); -- notify caller of an error
326: x_return_status := okl_util.check_lookup_code(p_lookup_type => 'OKL_PRC_STATUS'
327: ,p_lookup_code => p_sts_code);
328:
329: IF (x_return_status = okl_api.g_ret_sts_error) THEN
330: okl_api.set_message(p_app_name => g_app_name
331: ,p_msg_name => g_invalid_value
332: ,p_token1 => g_col_name_token
333: ,p_token1_value => 'sts_code'); -- notify caller of an error
334: RAISE g_exception_halt_validation;
331: ,p_msg_name => g_invalid_value
332: ,p_token1 => g_col_name_token
333: ,p_token1_value => 'sts_code'); -- notify caller of an error
334: RAISE g_exception_halt_validation;
335: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
336:
337: -- notify caller of an error
338:
339: x_return_status := okl_api.g_ret_sts_unexp_error;
335: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
336:
337: -- notify caller of an error
338:
339: x_return_status := okl_api.g_ret_sts_unexp_error;
340: RAISE g_exception_halt_validation;
341: END IF;
342: RETURN x_return_status;
343: EXCEPTION
350: WHEN OTHERS THEN
351:
352: -- store SQL error message on message stack for caller
353:
354: okl_api.set_message(p_app_name => g_app_name
355: ,p_msg_name => g_unexpected_error
356: ,p_token1 => g_sqlcode_token
357: ,p_token1_value => sqlcode
358: ,p_token2 => g_sqlerrm_token
359: ,p_token2_value => sqlerrm);
360:
361: -- notify caller of an UNEXPECTED error
362:
363: x_return_status := okl_api.g_ret_sts_unexp_error;
364: RETURN x_return_status;
365: END validate_sts_code;
366:
367: FUNCTION validate_effective_from_date(p_effective_from_date IN DATE) RETURN VARCHAR2 IS
367: FUNCTION validate_effective_from_date(p_effective_from_date IN DATE) RETURN VARCHAR2 IS
368:
369: -- initialize the return status
370:
371: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
372:
373: BEGIN
374:
375: IF (p_effective_from_date IS NULL OR p_effective_from_date = okl_api.g_miss_date) THEN
371: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
372:
373: BEGIN
374:
375: IF (p_effective_from_date IS NULL OR p_effective_from_date = okl_api.g_miss_date) THEN
376: okl_api.set_message(p_app_name => g_app_name
377: ,p_msg_name => g_required_value
378: ,p_token1 => g_col_name_token
379: ,p_token1_value => 'EFFECTIVE_FROM_DATE');
372:
373: BEGIN
374:
375: IF (p_effective_from_date IS NULL OR p_effective_from_date = okl_api.g_miss_date) THEN
376: okl_api.set_message(p_app_name => g_app_name
377: ,p_msg_name => g_required_value
378: ,p_token1 => g_col_name_token
379: ,p_token1_value => 'EFFECTIVE_FROM_DATE');
380:
379: ,p_token1_value => 'EFFECTIVE_FROM_DATE');
380:
381: -- notify caller of an error
382:
383: x_return_status := okl_api.g_ret_sts_error;
384: RAISE g_exception_halt_validation;
385: END IF;
386: RETURN x_return_status;
387: EXCEPTION
394: WHEN OTHERS THEN
395:
396: -- store SQL error message on message stack for caller
397:
398: okl_api.set_message(p_app_name => g_app_name
399: ,p_msg_name => g_unexpected_error
400: ,p_token1 => g_sqlcode_token
401: ,p_token1_value => sqlcode
402: ,p_token2 => g_sqlerrm_token
403: ,p_token2_value => sqlerrm);
404:
405: -- notify caller of an UNEXPECTED error
406:
407: x_return_status := okl_api.g_ret_sts_unexp_error;
408: RETURN x_return_status;
409: END validate_effective_from_date;
410:
411: FUNCTION validate_srt_rate(p_srt_rate IN NUMBER) RETURN VARCHAR2 IS
411: FUNCTION validate_srt_rate(p_srt_rate IN NUMBER) RETURN VARCHAR2 IS
412:
413: -- initialize the return status
414:
415: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
416:
417: BEGIN
418:
419: IF (p_srt_rate IS NULL OR p_srt_rate = okl_api.g_miss_num) THEN
415: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
416:
417: BEGIN
418:
419: IF (p_srt_rate IS NULL OR p_srt_rate = okl_api.g_miss_num) THEN
420: okl_api.set_message(p_app_name => g_app_name
421: ,p_msg_name => g_required_value
422: ,p_token1 => g_col_name_token
423: ,p_token1_value => 'SRT_RATE');
416:
417: BEGIN
418:
419: IF (p_srt_rate IS NULL OR p_srt_rate = okl_api.g_miss_num) THEN
420: okl_api.set_message(p_app_name => g_app_name
421: ,p_msg_name => g_required_value
422: ,p_token1 => g_col_name_token
423: ,p_token1_value => 'SRT_RATE');
424:
423: ,p_token1_value => 'SRT_RATE');
424:
425: -- notify caller of an error
426:
427: x_return_status := okl_api.g_ret_sts_error;
428: RAISE g_exception_halt_validation;
429: END IF;
430: RETURN x_return_status;
431: EXCEPTION
438: WHEN OTHERS THEN
439:
440: -- store SQL error message on message stack for caller
441:
442: okl_api.set_message(p_app_name => g_app_name
443: ,p_msg_name => g_unexpected_error
444: ,p_token1 => g_sqlcode_token
445: ,p_token1_value => sqlcode
446: ,p_token2 => g_sqlerrm_token
447: ,p_token2_value => sqlerrm);
448:
449: -- notify caller of an UNEXPECTED error
450:
451: x_return_status := okl_api.g_ret_sts_unexp_error;
452: RETURN x_return_status;
453: END validate_srt_rate;
454:
455: FUNCTION validate_rate_card_yn(p_rate_card_yn IN VARCHAR2) RETURN VARCHAR2 IS
452: RETURN x_return_status;
453: END validate_srt_rate;
454:
455: FUNCTION validate_rate_card_yn(p_rate_card_yn IN VARCHAR2) RETURN VARCHAR2 IS
456: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
457:
458: BEGIN
459:
460: IF (p_rate_card_yn IS NULL) OR (p_rate_card_yn = okl_api.g_miss_char) THEN
456: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
457:
458: BEGIN
459:
460: IF (p_rate_card_yn IS NULL) OR (p_rate_card_yn = okl_api.g_miss_char) THEN
461: okl_api.set_message(p_app_name => g_app_name
462: ,p_msg_name => g_required_value
463: ,p_token1 => g_col_name_token
464: ,p_token1_value => 'RATE_CARD_YN');
457:
458: BEGIN
459:
460: IF (p_rate_card_yn IS NULL) OR (p_rate_card_yn = okl_api.g_miss_char) THEN
461: okl_api.set_message(p_app_name => g_app_name
462: ,p_msg_name => g_required_value
463: ,p_token1 => g_col_name_token
464: ,p_token1_value => 'RATE_CARD_YN');
465:
464: ,p_token1_value => 'RATE_CARD_YN');
465:
466: -- notify caller of an error
467:
468: x_return_status := okl_api.g_ret_sts_error;
469:
470: -- halt further validation of this column
471:
472: RAISE g_exception_halt_validation;
475: -- Lookup Code Validation
476:
477: x_return_status := okl_util.check_lookup_code(p_lookup_type => 'OKL_YES_NO'
478: ,p_lookup_code => p_rate_card_yn);
479: IF (x_return_status = okl_api.g_ret_sts_error) THEN
480: okl_api.set_message(p_app_name => g_app_name
481: ,p_msg_name => g_invalid_value
482: ,p_token1 => g_col_name_token
483: ,p_token1_value => 'RATE_CARD_YN'); -- notify caller of an error
476:
477: x_return_status := okl_util.check_lookup_code(p_lookup_type => 'OKL_YES_NO'
478: ,p_lookup_code => p_rate_card_yn);
479: IF (x_return_status = okl_api.g_ret_sts_error) THEN
480: okl_api.set_message(p_app_name => g_app_name
481: ,p_msg_name => g_invalid_value
482: ,p_token1 => g_col_name_token
483: ,p_token1_value => 'RATE_CARD_YN'); -- notify caller of an error
484: RAISE g_exception_halt_validation;
481: ,p_msg_name => g_invalid_value
482: ,p_token1 => g_col_name_token
483: ,p_token1_value => 'RATE_CARD_YN'); -- notify caller of an error
484: RAISE g_exception_halt_validation;
485: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
486:
487: -- notify caller of an error
488:
489: x_return_status := okl_api.g_ret_sts_unexp_error;
485: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
486:
487: -- notify caller of an error
488:
489: x_return_status := okl_api.g_ret_sts_unexp_error;
490: RAISE g_exception_halt_validation;
491: END IF;
492: END IF;
493: RETURN(x_return_status);
501: WHEN OTHERS THEN
502:
503: -- store SQL error message on message stack for caller
504:
505: okl_api.set_message(p_app_name => g_app_name
506: ,p_msg_name => g_unexpected_error
507: ,p_token1 => g_sqlcode_token
508: ,p_token1_value => sqlcode
509: ,p_token2 => g_sqlerrm_token
510: ,p_token2_value => sqlerrm);
511:
512: -- notify caller of an UNEXPECTED error
513:
514: x_return_status := okl_api.g_ret_sts_unexp_error;
515: RETURN(x_return_status);
516: END validate_rate_card_yn;
517:
518: FUNCTION validate_pricing_engine_code(p_pricing_engine_code IN VARCHAR2) RETURN VARCHAR2 IS
515: RETURN(x_return_status);
516: END validate_rate_card_yn;
517:
518: FUNCTION validate_pricing_engine_code(p_pricing_engine_code IN VARCHAR2) RETURN VARCHAR2 IS
519: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
520:
521: BEGIN
522:
523: IF (p_pricing_engine_code IS NULL) OR (p_pricing_engine_code = okl_api.g_miss_char) THEN
519: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
520:
521: BEGIN
522:
523: IF (p_pricing_engine_code IS NULL) OR (p_pricing_engine_code = okl_api.g_miss_char) THEN
524: okl_api.set_message(p_app_name => g_app_name
525: ,p_msg_name => g_required_value
526: ,p_token1 => g_col_name_token
527: ,p_token1_value => 'PRICING_ENGINE_CODE');
520:
521: BEGIN
522:
523: IF (p_pricing_engine_code IS NULL) OR (p_pricing_engine_code = okl_api.g_miss_char) THEN
524: okl_api.set_message(p_app_name => g_app_name
525: ,p_msg_name => g_required_value
526: ,p_token1 => g_col_name_token
527: ,p_token1_value => 'PRICING_ENGINE_CODE');
528:
527: ,p_token1_value => 'PRICING_ENGINE_CODE');
528:
529: -- notify caller of an error
530:
531: x_return_status := okl_api.g_ret_sts_error;
532:
533: -- halt further validation of this column
534:
535: RAISE g_exception_halt_validation;
538: -- Lookup Code Validation
539:
540: x_return_status := okl_util.check_lookup_code(p_lookup_type => 'OKL_PRICING_ENGINE'
541: ,p_lookup_code => p_pricing_engine_code);
542: IF (x_return_status = okl_api.g_ret_sts_error) THEN
543: okl_api.set_message(p_app_name => g_app_name
544: ,p_msg_name => g_invalid_value
545: ,p_token1 => g_col_name_token
546: ,p_token1_value => 'PRICING_ENGINE_CODE'); -- notify caller of an error
539:
540: x_return_status := okl_util.check_lookup_code(p_lookup_type => 'OKL_PRICING_ENGINE'
541: ,p_lookup_code => p_pricing_engine_code);
542: IF (x_return_status = okl_api.g_ret_sts_error) THEN
543: okl_api.set_message(p_app_name => g_app_name
544: ,p_msg_name => g_invalid_value
545: ,p_token1 => g_col_name_token
546: ,p_token1_value => 'PRICING_ENGINE_CODE'); -- notify caller of an error
547: RAISE g_exception_halt_validation;
544: ,p_msg_name => g_invalid_value
545: ,p_token1 => g_col_name_token
546: ,p_token1_value => 'PRICING_ENGINE_CODE'); -- notify caller of an error
547: RAISE g_exception_halt_validation;
548: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
549:
550: -- notify caller of an error
551:
552: x_return_status := okl_api.g_ret_sts_unexp_error;
548: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
549:
550: -- notify caller of an error
551:
552: x_return_status := okl_api.g_ret_sts_unexp_error;
553: RAISE g_exception_halt_validation;
554: END IF;
555: END IF;
556: RETURN(x_return_status);
564: WHEN OTHERS THEN
565:
566: -- store SQL error message on message stack for caller
567:
568: okl_api.set_message(p_app_name => g_app_name
569: ,p_msg_name => g_unexpected_error
570: ,p_token1 => g_sqlcode_token
571: ,p_token1_value => sqlcode
572: ,p_token2 => g_sqlerrm_token
573: ,p_token2_value => sqlerrm);
574:
575: -- notify caller of an UNEXPECTED error
576:
577: x_return_status := okl_api.g_ret_sts_unexp_error;
578: RETURN(x_return_status);
579: END validate_pricing_engine_code;
580:
581: -- function to validate the frequency code
580:
581: -- function to validate the frequency code
582:
583: FUNCTION validate_frequency_code(p_frequency_code IN VARCHAR2) RETURN VARCHAR2 IS
584: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
585:
586: BEGIN
587:
588: IF (p_frequency_code IS NULL) OR (p_frequency_code = okl_api.g_miss_char) THEN
584: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
585:
586: BEGIN
587:
588: IF (p_frequency_code IS NULL) OR (p_frequency_code = okl_api.g_miss_char) THEN
589: okl_api.set_message(p_app_name => g_app_name
590: ,p_msg_name => g_required_value
591: ,p_token1 => g_col_name_token
592: ,p_token1_value => 'FREQUENCY_CODE');
585:
586: BEGIN
587:
588: IF (p_frequency_code IS NULL) OR (p_frequency_code = okl_api.g_miss_char) THEN
589: okl_api.set_message(p_app_name => g_app_name
590: ,p_msg_name => g_required_value
591: ,p_token1 => g_col_name_token
592: ,p_token1_value => 'FREQUENCY_CODE');
593:
592: ,p_token1_value => 'FREQUENCY_CODE');
593:
594: -- notify caller of an error
595:
596: x_return_status := okl_api.g_ret_sts_error;
597:
598: -- halt further validation of this column
599:
600: RAISE g_exception_halt_validation;
603: -- Lookup Code Validation
604:
605: x_return_status := okl_util.check_lookup_code(p_lookup_type => 'OKL_FREQUENCY'
606: ,p_lookup_code => p_frequency_code);
607: IF (x_return_status = okl_api.g_ret_sts_error) THEN
608: okl_api.set_message(p_app_name => g_app_name
609: ,p_msg_name => g_invalid_value
610: ,p_token1 => g_col_name_token
611: ,p_token1_value => 'FREQUENCY_CODE'); -- notify caller of an error
604:
605: x_return_status := okl_util.check_lookup_code(p_lookup_type => 'OKL_FREQUENCY'
606: ,p_lookup_code => p_frequency_code);
607: IF (x_return_status = okl_api.g_ret_sts_error) THEN
608: okl_api.set_message(p_app_name => g_app_name
609: ,p_msg_name => g_invalid_value
610: ,p_token1 => g_col_name_token
611: ,p_token1_value => 'FREQUENCY_CODE'); -- notify caller of an error
612: RAISE g_exception_halt_validation;
609: ,p_msg_name => g_invalid_value
610: ,p_token1 => g_col_name_token
611: ,p_token1_value => 'FREQUENCY_CODE'); -- notify caller of an error
612: RAISE g_exception_halt_validation;
613: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
614:
615: -- notify caller of an error
616:
617: x_return_status := okl_api.g_ret_sts_unexp_error;
613: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
614:
615: -- notify caller of an error
616:
617: x_return_status := okl_api.g_ret_sts_unexp_error;
618: RAISE g_exception_halt_validation;
619: END IF;
620: END IF;
621: RETURN(x_return_status);
629: WHEN OTHERS THEN
630:
631: -- store SQL error message on message stack for caller
632:
633: okl_api.set_message(p_app_name => g_app_name
634: ,p_msg_name => g_unexpected_error
635: ,p_token1 => g_sqlcode_token
636: ,p_token1_value => sqlcode
637: ,p_token2 => g_sqlerrm_token
638: ,p_token2_value => sqlerrm);
639:
640: -- notify caller of an UNEXPECTED error
641:
642: x_return_status := okl_api.g_ret_sts_unexp_error;
643: RETURN(x_return_status);
644: END validate_frequency_code;
645:
646: -- validate the rate type code
645:
646: -- validate the rate type code
647:
648: FUNCTION validate_rate_type_code(p_rate_type_code IN VARCHAR2) RETURN VARCHAR2 IS
649: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
650:
651: BEGIN
652:
653: IF (p_rate_type_code IS NULL) OR (p_rate_type_code = okl_api.g_miss_char) THEN
649: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
650:
651: BEGIN
652:
653: IF (p_rate_type_code IS NULL) OR (p_rate_type_code = okl_api.g_miss_char) THEN
654: okl_api.set_message(p_app_name => g_app_name
655: ,p_msg_name => g_required_value
656: ,p_token1 => g_col_name_token
657: ,p_token1_value => 'RATE_TYPE_CODE');
650:
651: BEGIN
652:
653: IF (p_rate_type_code IS NULL) OR (p_rate_type_code = okl_api.g_miss_char) THEN
654: okl_api.set_message(p_app_name => g_app_name
655: ,p_msg_name => g_required_value
656: ,p_token1 => g_col_name_token
657: ,p_token1_value => 'RATE_TYPE_CODE');
658:
657: ,p_token1_value => 'RATE_TYPE_CODE');
658:
659: -- notify caller of an error
660:
661: x_return_status := okl_api.g_ret_sts_error;
662:
663: -- halt further validation of this column
664:
665: RAISE g_exception_halt_validation;
668: -- Lookup Code Validation
669:
670: x_return_status := okl_util.check_lookup_code(p_lookup_type => 'OKL_SRT_RATE_TYPES'
671: ,p_lookup_code => p_rate_type_code);
672: IF (x_return_status = okl_api.g_ret_sts_error) THEN
673: okl_api.set_message(p_app_name => g_app_name
674: ,p_msg_name => g_invalid_value
675: ,p_token1 => g_col_name_token
676: ,p_token1_value => 'RATE_TYPE_CODE'); -- notify caller of an error
669:
670: x_return_status := okl_util.check_lookup_code(p_lookup_type => 'OKL_SRT_RATE_TYPES'
671: ,p_lookup_code => p_rate_type_code);
672: IF (x_return_status = okl_api.g_ret_sts_error) THEN
673: okl_api.set_message(p_app_name => g_app_name
674: ,p_msg_name => g_invalid_value
675: ,p_token1 => g_col_name_token
676: ,p_token1_value => 'RATE_TYPE_CODE'); -- notify caller of an error
677: RAISE g_exception_halt_validation;
674: ,p_msg_name => g_invalid_value
675: ,p_token1 => g_col_name_token
676: ,p_token1_value => 'RATE_TYPE_CODE'); -- notify caller of an error
677: RAISE g_exception_halt_validation;
678: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
679:
680: -- notify caller of an error
681:
682: x_return_status := okl_api.g_ret_sts_unexp_error;
678: ELSIF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
679:
680: -- notify caller of an error
681:
682: x_return_status := okl_api.g_ret_sts_unexp_error;
683: RAISE g_exception_halt_validation;
684: END IF;
685: END IF;
686: RETURN(x_return_status);
694: WHEN OTHERS THEN
695:
696: -- store SQL error message on message stack for caller
697:
698: okl_api.set_message(p_app_name => g_app_name
699: ,p_msg_name => g_unexpected_error
700: ,p_token1 => g_sqlcode_token
701: ,p_token1_value => sqlcode
702: ,p_token2 => g_sqlerrm_token
703: ,p_token2_value => sqlerrm);
704:
705: -- notify caller of an UNEXPECTED error
706:
707: x_return_status := okl_api.g_ret_sts_unexp_error;
708: RETURN(x_return_status);
709: END validate_rate_type_code;
710:
711: FUNCTION validate_index_id(p_index_id IN NUMBER) RETURN VARCHAR2 IS
708: RETURN(x_return_status);
709: END validate_rate_type_code;
710:
711: FUNCTION validate_index_id(p_index_id IN NUMBER) RETURN VARCHAR2 IS
712: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
713:
714: CURSOR index_exists_csr IS
715: SELECT 'x'
716: FROM okl_indices
718: l_dummy_var VARCHAR2(1) := '?';
719:
720: BEGIN
721:
722: IF (p_index_id IS NOT NULL AND p_index_id <> okl_api.g_miss_num) THEN
723: OPEN index_exists_csr;
724: FETCH index_exists_csr INTO l_dummy_var ;
725: CLOSE index_exists_csr;
726:
726:
727: -- if l_dummy_var is still set to default, data was not found
728:
729: IF (l_dummy_var = '?') THEN
730: okl_api.set_message(p_app_name => g_app_name
731: ,p_msg_name => g_invalid_value
732: ,p_token1 => g_col_name_token
733: ,p_token1_value => 'INDEX_ID');
734:
733: ,p_token1_value => 'INDEX_ID');
734:
735: -- notify caller of an error
736:
737: x_return_status := okl_api.g_ret_sts_error;
738: RAISE g_exception_halt_validation;
739: END IF;
740: END IF;
741: RETURN x_return_status;
749: WHEN OTHERS THEN
750:
751: -- store SQL error message on message stack for caller
752:
753: okl_api.set_message(p_app_name => g_app_name
754: ,p_msg_name => g_unexpected_error
755: ,p_token1 => g_sqlcode_token
756: ,p_token1_value => sqlcode
757: ,p_token2 => g_sqlerrm_token
758: ,p_token2_value => sqlerrm);
759:
760: -- notify caller of an UNEXPECTED error
761:
762: x_return_status := okl_api.g_ret_sts_unexp_error;
763:
764: -- verify that cursor was closed
765:
766: IF index_exists_csr%ISOPEN THEN
1158: l_srtv_rec okl_srtv_rec := p_srtv_rec;
1159:
1160: BEGIN
1161:
1162: IF (l_srtv_rec.std_rate_tmpl_id = okl_api.g_miss_num) THEN
1163: l_srtv_rec.std_rate_tmpl_id := NULL;
1164: END IF;
1165:
1166: IF (l_srtv_rec.template_name = okl_api.g_miss_char) THEN
1162: IF (l_srtv_rec.std_rate_tmpl_id = okl_api.g_miss_num) THEN
1163: l_srtv_rec.std_rate_tmpl_id := NULL;
1164: END IF;
1165:
1166: IF (l_srtv_rec.template_name = okl_api.g_miss_char) THEN
1167: l_srtv_rec.template_name := NULL;
1168: END IF;
1169:
1170: IF (l_srtv_rec.template_desc = okl_api.g_miss_char) THEN
1166: IF (l_srtv_rec.template_name = okl_api.g_miss_char) THEN
1167: l_srtv_rec.template_name := NULL;
1168: END IF;
1169:
1170: IF (l_srtv_rec.template_desc = okl_api.g_miss_char) THEN
1171: l_srtv_rec.template_desc := NULL;
1172: END IF;
1173:
1174: IF (l_srtv_rec.object_version_number = okl_api.g_miss_num) THEN
1170: IF (l_srtv_rec.template_desc = okl_api.g_miss_char) THEN
1171: l_srtv_rec.template_desc := NULL;
1172: END IF;
1173:
1174: IF (l_srtv_rec.object_version_number = okl_api.g_miss_num) THEN
1175: l_srtv_rec.object_version_number := NULL;
1176: END IF;
1177:
1178: IF (l_srtv_rec.org_id = okl_api.g_miss_num) THEN
1174: IF (l_srtv_rec.object_version_number = okl_api.g_miss_num) THEN
1175: l_srtv_rec.object_version_number := NULL;
1176: END IF;
1177:
1178: IF (l_srtv_rec.org_id = okl_api.g_miss_num) THEN
1179: l_srtv_rec.org_id := NULL;
1180: END IF;
1181:
1182: IF (l_srtv_rec.currency_code = okl_api.g_miss_char) THEN
1178: IF (l_srtv_rec.org_id = okl_api.g_miss_num) THEN
1179: l_srtv_rec.org_id := NULL;
1180: END IF;
1181:
1182: IF (l_srtv_rec.currency_code = okl_api.g_miss_char) THEN
1183: l_srtv_rec.currency_code := NULL;
1184: END IF;
1185:
1186: IF (l_srtv_rec.rate_card_yn = okl_api.g_miss_char) THEN
1182: IF (l_srtv_rec.currency_code = okl_api.g_miss_char) THEN
1183: l_srtv_rec.currency_code := NULL;
1184: END IF;
1185:
1186: IF (l_srtv_rec.rate_card_yn = okl_api.g_miss_char) THEN
1187: l_srtv_rec.rate_card_yn := NULL;
1188: END IF;
1189:
1190: IF (l_srtv_rec.pricing_engine_code = okl_api.g_miss_char) THEN
1186: IF (l_srtv_rec.rate_card_yn = okl_api.g_miss_char) THEN
1187: l_srtv_rec.rate_card_yn := NULL;
1188: END IF;
1189:
1190: IF (l_srtv_rec.pricing_engine_code = okl_api.g_miss_char) THEN
1191: l_srtv_rec.pricing_engine_code := NULL;
1192: END IF;
1193:
1194: IF (l_srtv_rec.orig_std_rate_tmpl_id = okl_api.g_miss_num) THEN
1190: IF (l_srtv_rec.pricing_engine_code = okl_api.g_miss_char) THEN
1191: l_srtv_rec.pricing_engine_code := NULL;
1192: END IF;
1193:
1194: IF (l_srtv_rec.orig_std_rate_tmpl_id = okl_api.g_miss_num) THEN
1195: l_srtv_rec.orig_std_rate_tmpl_id := NULL;
1196: END IF;
1197:
1198: IF (l_srtv_rec.rate_type_code = okl_api.g_miss_char) THEN
1194: IF (l_srtv_rec.orig_std_rate_tmpl_id = okl_api.g_miss_num) THEN
1195: l_srtv_rec.orig_std_rate_tmpl_id := NULL;
1196: END IF;
1197:
1198: IF (l_srtv_rec.rate_type_code = okl_api.g_miss_char) THEN
1199: l_srtv_rec.rate_type_code := NULL;
1200: END IF;
1201:
1202: IF (l_srtv_rec.frequency_code = okl_api.g_miss_char) THEN
1198: IF (l_srtv_rec.rate_type_code = okl_api.g_miss_char) THEN
1199: l_srtv_rec.rate_type_code := NULL;
1200: END IF;
1201:
1202: IF (l_srtv_rec.frequency_code = okl_api.g_miss_char) THEN
1203: l_srtv_rec.frequency_code := NULL;
1204: END IF;
1205:
1206: IF (l_srtv_rec.index_id = okl_api.g_miss_num) THEN
1202: IF (l_srtv_rec.frequency_code = okl_api.g_miss_char) THEN
1203: l_srtv_rec.frequency_code := NULL;
1204: END IF;
1205:
1206: IF (l_srtv_rec.index_id = okl_api.g_miss_num) THEN
1207: l_srtv_rec.index_id := NULL;
1208: END IF;
1209:
1210: IF (l_srtv_rec.default_yn = okl_api.g_miss_char) THEN
1206: IF (l_srtv_rec.index_id = okl_api.g_miss_num) THEN
1207: l_srtv_rec.index_id := NULL;
1208: END IF;
1209:
1210: IF (l_srtv_rec.default_yn = okl_api.g_miss_char) THEN
1211: l_srtv_rec.default_yn := NULL;
1212: END IF;
1213:
1214: IF (l_srtv_rec.sts_code = okl_api.g_miss_char) THEN
1210: IF (l_srtv_rec.default_yn = okl_api.g_miss_char) THEN
1211: l_srtv_rec.default_yn := NULL;
1212: END IF;
1213:
1214: IF (l_srtv_rec.sts_code = okl_api.g_miss_char) THEN
1215: l_srtv_rec.sts_code := NULL;
1216: END IF;
1217:
1218: IF (l_srtv_rec.effective_from_date = okl_api.g_miss_date) THEN
1214: IF (l_srtv_rec.sts_code = okl_api.g_miss_char) THEN
1215: l_srtv_rec.sts_code := NULL;
1216: END IF;
1217:
1218: IF (l_srtv_rec.effective_from_date = okl_api.g_miss_date) THEN
1219: l_srtv_rec.effective_from_date := NULL;
1220: END IF;
1221:
1222: IF (l_srtv_rec.effective_to_date = okl_api.g_miss_date) THEN
1218: IF (l_srtv_rec.effective_from_date = okl_api.g_miss_date) THEN
1219: l_srtv_rec.effective_from_date := NULL;
1220: END IF;
1221:
1222: IF (l_srtv_rec.effective_to_date = okl_api.g_miss_date) THEN
1223: l_srtv_rec.effective_to_date := NULL;
1224: END IF;
1225:
1226: IF (l_srtv_rec.srt_rate = okl_api.g_miss_num) THEN
1222: IF (l_srtv_rec.effective_to_date = okl_api.g_miss_date) THEN
1223: l_srtv_rec.effective_to_date := NULL;
1224: END IF;
1225:
1226: IF (l_srtv_rec.srt_rate = okl_api.g_miss_num) THEN
1227: l_srtv_rec.srt_rate := NULL;
1228: END IF;
1229:
1230: IF (l_srtv_rec.attribute_category = okl_api.g_miss_char) THEN
1226: IF (l_srtv_rec.srt_rate = okl_api.g_miss_num) THEN
1227: l_srtv_rec.srt_rate := NULL;
1228: END IF;
1229:
1230: IF (l_srtv_rec.attribute_category = okl_api.g_miss_char) THEN
1231: l_srtv_rec.attribute_category := NULL;
1232: END IF;
1233:
1234: IF (l_srtv_rec.attribute1 = okl_api.g_miss_char) THEN
1230: IF (l_srtv_rec.attribute_category = okl_api.g_miss_char) THEN
1231: l_srtv_rec.attribute_category := NULL;
1232: END IF;
1233:
1234: IF (l_srtv_rec.attribute1 = okl_api.g_miss_char) THEN
1235: l_srtv_rec.attribute1 := NULL;
1236: END IF;
1237:
1238: IF (l_srtv_rec.attribute2 = okl_api.g_miss_char) THEN
1234: IF (l_srtv_rec.attribute1 = okl_api.g_miss_char) THEN
1235: l_srtv_rec.attribute1 := NULL;
1236: END IF;
1237:
1238: IF (l_srtv_rec.attribute2 = okl_api.g_miss_char) THEN
1239: l_srtv_rec.attribute2 := NULL;
1240: END IF;
1241:
1242: IF (l_srtv_rec.attribute3 = okl_api.g_miss_char) THEN
1238: IF (l_srtv_rec.attribute2 = okl_api.g_miss_char) THEN
1239: l_srtv_rec.attribute2 := NULL;
1240: END IF;
1241:
1242: IF (l_srtv_rec.attribute3 = okl_api.g_miss_char) THEN
1243: l_srtv_rec.attribute3 := NULL;
1244: END IF;
1245:
1246: IF (l_srtv_rec.attribute4 = okl_api.g_miss_char) THEN
1242: IF (l_srtv_rec.attribute3 = okl_api.g_miss_char) THEN
1243: l_srtv_rec.attribute3 := NULL;
1244: END IF;
1245:
1246: IF (l_srtv_rec.attribute4 = okl_api.g_miss_char) THEN
1247: l_srtv_rec.attribute4 := NULL;
1248: END IF;
1249:
1250: IF (l_srtv_rec.attribute5 = okl_api.g_miss_char) THEN
1246: IF (l_srtv_rec.attribute4 = okl_api.g_miss_char) THEN
1247: l_srtv_rec.attribute4 := NULL;
1248: END IF;
1249:
1250: IF (l_srtv_rec.attribute5 = okl_api.g_miss_char) THEN
1251: l_srtv_rec.attribute5 := NULL;
1252: END IF;
1253:
1254: IF (l_srtv_rec.attribute6 = okl_api.g_miss_char) THEN
1250: IF (l_srtv_rec.attribute5 = okl_api.g_miss_char) THEN
1251: l_srtv_rec.attribute5 := NULL;
1252: END IF;
1253:
1254: IF (l_srtv_rec.attribute6 = okl_api.g_miss_char) THEN
1255: l_srtv_rec.attribute6 := NULL;
1256: END IF;
1257:
1258: IF (l_srtv_rec.attribute7 = okl_api.g_miss_char) THEN
1254: IF (l_srtv_rec.attribute6 = okl_api.g_miss_char) THEN
1255: l_srtv_rec.attribute6 := NULL;
1256: END IF;
1257:
1258: IF (l_srtv_rec.attribute7 = okl_api.g_miss_char) THEN
1259: l_srtv_rec.attribute7 := NULL;
1260: END IF;
1261:
1262: IF (l_srtv_rec.attribute8 = okl_api.g_miss_char) THEN
1258: IF (l_srtv_rec.attribute7 = okl_api.g_miss_char) THEN
1259: l_srtv_rec.attribute7 := NULL;
1260: END IF;
1261:
1262: IF (l_srtv_rec.attribute8 = okl_api.g_miss_char) THEN
1263: l_srtv_rec.attribute8 := NULL;
1264: END IF;
1265:
1266: IF (l_srtv_rec.attribute9 = okl_api.g_miss_char) THEN
1262: IF (l_srtv_rec.attribute8 = okl_api.g_miss_char) THEN
1263: l_srtv_rec.attribute8 := NULL;
1264: END IF;
1265:
1266: IF (l_srtv_rec.attribute9 = okl_api.g_miss_char) THEN
1267: l_srtv_rec.attribute9 := NULL;
1268: END IF;
1269:
1270: IF (l_srtv_rec.attribute10 = okl_api.g_miss_char) THEN
1266: IF (l_srtv_rec.attribute9 = okl_api.g_miss_char) THEN
1267: l_srtv_rec.attribute9 := NULL;
1268: END IF;
1269:
1270: IF (l_srtv_rec.attribute10 = okl_api.g_miss_char) THEN
1271: l_srtv_rec.attribute10 := NULL;
1272: END IF;
1273:
1274: IF (l_srtv_rec.attribute11 = okl_api.g_miss_char) THEN
1270: IF (l_srtv_rec.attribute10 = okl_api.g_miss_char) THEN
1271: l_srtv_rec.attribute10 := NULL;
1272: END IF;
1273:
1274: IF (l_srtv_rec.attribute11 = okl_api.g_miss_char) THEN
1275: l_srtv_rec.attribute11 := NULL;
1276: END IF;
1277:
1278: IF (l_srtv_rec.attribute12 = okl_api.g_miss_char) THEN
1274: IF (l_srtv_rec.attribute11 = okl_api.g_miss_char) THEN
1275: l_srtv_rec.attribute11 := NULL;
1276: END IF;
1277:
1278: IF (l_srtv_rec.attribute12 = okl_api.g_miss_char) THEN
1279: l_srtv_rec.attribute12 := NULL;
1280: END IF;
1281:
1282: IF (l_srtv_rec.attribute13 = okl_api.g_miss_char) THEN
1278: IF (l_srtv_rec.attribute12 = okl_api.g_miss_char) THEN
1279: l_srtv_rec.attribute12 := NULL;
1280: END IF;
1281:
1282: IF (l_srtv_rec.attribute13 = okl_api.g_miss_char) THEN
1283: l_srtv_rec.attribute13 := NULL;
1284: END IF;
1285:
1286: IF (l_srtv_rec.attribute14 = okl_api.g_miss_char) THEN
1282: IF (l_srtv_rec.attribute13 = okl_api.g_miss_char) THEN
1283: l_srtv_rec.attribute13 := NULL;
1284: END IF;
1285:
1286: IF (l_srtv_rec.attribute14 = okl_api.g_miss_char) THEN
1287: l_srtv_rec.attribute14 := NULL;
1288: END IF;
1289:
1290: IF (l_srtv_rec.attribute15 = okl_api.g_miss_char) THEN
1286: IF (l_srtv_rec.attribute14 = okl_api.g_miss_char) THEN
1287: l_srtv_rec.attribute14 := NULL;
1288: END IF;
1289:
1290: IF (l_srtv_rec.attribute15 = okl_api.g_miss_char) THEN
1291: l_srtv_rec.attribute15 := NULL;
1292: END IF;
1293:
1294: IF (l_srtv_rec.created_by = okl_api.g_miss_num) THEN
1290: IF (l_srtv_rec.attribute15 = okl_api.g_miss_char) THEN
1291: l_srtv_rec.attribute15 := NULL;
1292: END IF;
1293:
1294: IF (l_srtv_rec.created_by = okl_api.g_miss_num) THEN
1295: l_srtv_rec.created_by := NULL;
1296: END IF;
1297:
1298: IF (l_srtv_rec.creation_date = okl_api.g_miss_date) THEN
1294: IF (l_srtv_rec.created_by = okl_api.g_miss_num) THEN
1295: l_srtv_rec.created_by := NULL;
1296: END IF;
1297:
1298: IF (l_srtv_rec.creation_date = okl_api.g_miss_date) THEN
1299: l_srtv_rec.creation_date := NULL;
1300: END IF;
1301:
1302: IF (l_srtv_rec.last_updated_by = okl_api.g_miss_num) THEN
1298: IF (l_srtv_rec.creation_date = okl_api.g_miss_date) THEN
1299: l_srtv_rec.creation_date := NULL;
1300: END IF;
1301:
1302: IF (l_srtv_rec.last_updated_by = okl_api.g_miss_num) THEN
1303: l_srtv_rec.last_updated_by := NULL;
1304: END IF;
1305:
1306: IF (l_srtv_rec.last_update_date = okl_api.g_miss_date) THEN
1302: IF (l_srtv_rec.last_updated_by = okl_api.g_miss_num) THEN
1303: l_srtv_rec.last_updated_by := NULL;
1304: END IF;
1305:
1306: IF (l_srtv_rec.last_update_date = okl_api.g_miss_date) THEN
1307: l_srtv_rec.last_update_date := NULL;
1308: END IF;
1309:
1310: IF (l_srtv_rec.last_update_login = okl_api.g_miss_num) THEN
1306: IF (l_srtv_rec.last_update_date = okl_api.g_miss_date) THEN
1307: l_srtv_rec.last_update_date := NULL;
1308: END IF;
1309:
1310: IF (l_srtv_rec.last_update_login = okl_api.g_miss_num) THEN
1311: l_srtv_rec.last_update_login := NULL;
1312: END IF;
1313: RETURN(l_srtv_rec);
1314: END null_out_defaults;
1319: RETURN(okc_p_util.raw_to_number(sys_guid()));
1320: END get_seq_id;
1321:
1322: FUNCTION validate_attributes(p_srtv_rec IN okl_srtv_rec) RETURN VARCHAR2 IS
1323: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1324: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1325:
1326: BEGIN
1327:
1320: END get_seq_id;
1321:
1322: FUNCTION validate_attributes(p_srtv_rec IN okl_srtv_rec) RETURN VARCHAR2 IS
1323: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1324: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1325:
1326: BEGIN
1327:
1328: -- validate the Standard Rate Template id
1330: l_return_status := validate_std_rate_tmpl_id(p_srtv_rec.std_rate_tmpl_id);
1331:
1332: -- store the highest degree of error
1333:
1334: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1335: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1336: x_return_status := l_return_status;
1337: END IF;
1338: END IF;
1331:
1332: -- store the highest degree of error
1333:
1334: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1335: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1336: x_return_status := l_return_status;
1337: END IF;
1338: END IF;
1339:
1342: l_return_status := validate_org_id(p_srtv_rec.org_id);
1343:
1344: -- store the highest degree of error
1345:
1346: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1347: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1348: x_return_status := l_return_status;
1349: END IF;
1350: END IF;
1343:
1344: -- store the highest degree of error
1345:
1346: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1347: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1348: x_return_status := l_return_status;
1349: END IF;
1350: END IF;
1351:
1354: l_return_status := validate_currency_code(p_srtv_rec.currency_code);
1355:
1356: -- store the highest degree of error
1357:
1358: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1359: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1360: x_return_status := l_return_status;
1361: END IF;
1362: END IF;
1355:
1356: -- store the highest degree of error
1357:
1358: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1359: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1360: x_return_status := l_return_status;
1361: END IF;
1362: END IF;
1363:
1366: l_return_status := validate_orig_std_rate_tmpl_id(p_srtv_rec.orig_std_rate_tmpl_id);
1367:
1368: -- store the highest degree of error
1369:
1370: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1371: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1372: x_return_status := l_return_status;
1373: END IF;
1374: END IF;
1367:
1368: -- store the highest degree of error
1369:
1370: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1371: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1372: x_return_status := l_return_status;
1373: END IF;
1374: END IF;
1375:
1378: l_return_status := validate_pricing_engine_code(p_srtv_rec.pricing_engine_code);
1379:
1380: -- store the highest degree of error
1381:
1382: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1383: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1384: x_return_status := l_return_status;
1385: END IF;
1386: END IF;
1379:
1380: -- store the highest degree of error
1381:
1382: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1383: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1384: x_return_status := l_return_status;
1385: END IF;
1386: END IF;
1387:
1390: l_return_status := validate_frequency_code(p_srtv_rec.frequency_code);
1391:
1392: -- store the highest degree of error
1393:
1394: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1395: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1396: x_return_status := l_return_status;
1397: END IF;
1398: END IF;
1391:
1392: -- store the highest degree of error
1393:
1394: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1395: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1396: x_return_status := l_return_status;
1397: END IF;
1398: END IF;
1399:
1402: l_return_status := validate_index_id(p_srtv_rec.index_id);
1403:
1404: -- store the highest degree of error
1405:
1406: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1407: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1408: x_return_status := l_return_status;
1409: END IF;
1410: END IF;
1403:
1404: -- store the highest degree of error
1405:
1406: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1407: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1408: x_return_status := l_return_status;
1409: END IF;
1410: END IF;
1411:
1414: l_return_status := validate_sts_code(p_srtv_rec.sts_code);
1415:
1416: -- store the highest degree of error
1417:
1418: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1419: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1420: x_return_status := l_return_status;
1421: END IF;
1422: END IF;
1415:
1416: -- store the highest degree of error
1417:
1418: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1419: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1420: x_return_status := l_return_status;
1421: END IF;
1422: END IF;
1423:
1426: l_return_status := validate_rate_card_yn(p_srtv_rec.rate_card_yn);
1427:
1428: -- store the highest degree of error
1429:
1430: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1431: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1432: x_return_status := l_return_status;
1433: END IF;
1434: END IF;
1427:
1428: -- store the highest degree of error
1429:
1430: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1431: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1432: x_return_status := l_return_status;
1433: END IF;
1434: END IF;
1435:
1438: l_return_status := validate_rate_type_code(p_srtv_rec.rate_type_code);
1439:
1440: -- store the highest degree of error
1441:
1442: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1443: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1444: x_return_status := l_return_status;
1445: END IF;
1446: END IF;
1439:
1440: -- store the highest degree of error
1441:
1442: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1443: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1444: x_return_status := l_return_status;
1445: END IF;
1446: END IF;
1447:
1450: l_return_status := validate_srt_rate(p_srtv_rec.srt_rate);
1451:
1452: -- store the highest degree of error
1453:
1454: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1455: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1456: x_return_status := l_return_status;
1457: END IF;
1458: END IF;
1451:
1452: -- store the highest degree of error
1453:
1454: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1455: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1456: x_return_status := l_return_status;
1457: END IF;
1458: END IF;
1459:
1462: l_return_status := validate_effective_from_date(p_srtv_rec.effective_from_date);
1463:
1464: -- store the highest degree of error
1465:
1466: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1467: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1468: x_return_status := l_return_status;
1469: END IF;
1470: END IF;
1463:
1464: -- store the highest degree of error
1465:
1466: IF (l_return_status <> okl_api.g_ret_sts_success) THEN
1467: IF (x_return_status <> okl_api.g_ret_sts_unexp_error) THEN
1468: x_return_status := l_return_status;
1469: END IF;
1470: END IF;
1471: RETURN(x_return_status);
1471: RETURN(x_return_status);
1472: END validate_attributes;
1473:
1474: FUNCTION validate_record(p_srtv_rec IN okl_srtv_rec) RETURN VARCHAR2 IS
1475: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1476: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1477: l_srtv_rec okl_srtv_rec := p_srtv_rec;
1478:
1479: BEGIN
1472: END validate_attributes;
1473:
1474: FUNCTION validate_record(p_srtv_rec IN okl_srtv_rec) RETURN VARCHAR2 IS
1475: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1476: x_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1477: l_srtv_rec okl_srtv_rec := p_srtv_rec;
1478:
1479: BEGIN
1480:
1478:
1479: BEGIN
1480:
1481: IF (l_srtv_rec.rate_type_code = 'INDEX RATE' AND (l_srtv_rec.index_id IS NULL
1482: OR l_srtv_rec.index_id = okl_api.g_miss_num)) THEN
1483: okl_api.set_message(p_app_name => g_app_name
1484: ,p_msg_name => g_required_value
1485: ,p_token1 => g_col_name_token
1486: ,p_token1_value => 'index_rate');
1479: BEGIN
1480:
1481: IF (l_srtv_rec.rate_type_code = 'INDEX RATE' AND (l_srtv_rec.index_id IS NULL
1482: OR l_srtv_rec.index_id = okl_api.g_miss_num)) THEN
1483: okl_api.set_message(p_app_name => g_app_name
1484: ,p_msg_name => g_required_value
1485: ,p_token1 => g_col_name_token
1486: ,p_token1_value => 'index_rate');
1487:
1485: ,p_token1 => g_col_name_token
1486: ,p_token1_value => 'index_rate');
1487:
1488:
1489: l_return_status := okl_api.g_ret_sts_error;
1490: END IF;
1491: if (p_srtv_rec.effective_to_date is not null) then
1492: if (p_srtv_rec.effective_from_date > p_srtv_rec.effective_to_date) then
1493: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1489: l_return_status := okl_api.g_ret_sts_error;
1490: END IF;
1491: if (p_srtv_rec.effective_to_date is not null) then
1492: if (p_srtv_rec.effective_from_date > p_srtv_rec.effective_to_date) then
1493: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1494: p_msg_name => 'OKL_INVALID_EFFECTIVE_TO');
1495: x_return_status := okl_api.g_ret_sts_error;
1496:
1497: end if;
1491: if (p_srtv_rec.effective_to_date is not null) then
1492: if (p_srtv_rec.effective_from_date > p_srtv_rec.effective_to_date) then
1493: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1494: p_msg_name => 'OKL_INVALID_EFFECTIVE_TO');
1495: x_return_status := okl_api.g_ret_sts_error;
1496:
1497: end if;
1498: end if;
1499: RETURN(x_return_status);
1527: FROM okl_fe_std_rt_tmp_all_b
1528: WHERE std_rate_tmpl_id = p_srtb_rec.std_rate_tmpl_id;
1529: l_api_version CONSTANT NUMBER := 1;
1530: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1531: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1532: l_object_version_number okl_fe_resi_cat_all_b.object_version_number%TYPE;
1533: lc_object_version_number okl_fe_resi_cat_all_b.object_version_number%TYPE;
1534: l_row_notfound BOOLEAN := false;
1535: lc_row_notfound BOOLEAN := false;
1534: l_row_notfound BOOLEAN := false;
1535: lc_row_notfound BOOLEAN := false;
1536:
1537: BEGIN
1538: l_return_status := okl_api.start_activity(l_api_name
1539: ,p_init_msg_list
1540: ,'_PVT'
1541: ,x_return_status);
1542:
1539: ,p_init_msg_list
1540: ,'_PVT'
1541: ,x_return_status);
1542:
1543: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1544: RAISE okl_api.g_exception_unexpected_error;
1545: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1546: RAISE okl_api.g_exception_error;
1547: END IF;
1540: ,'_PVT'
1541: ,x_return_status);
1542:
1543: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1544: RAISE okl_api.g_exception_unexpected_error;
1545: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1546: RAISE okl_api.g_exception_error;
1547: END IF;
1548:
1541: ,x_return_status);
1542:
1543: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1544: RAISE okl_api.g_exception_unexpected_error;
1545: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1546: RAISE okl_api.g_exception_error;
1547: END IF;
1548:
1549: BEGIN
1542:
1543: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1544: RAISE okl_api.g_exception_unexpected_error;
1545: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1546: RAISE okl_api.g_exception_error;
1547: END IF;
1548:
1549: BEGIN
1550: OPEN lock_csr(p_srtb_rec);
1556:
1557: IF (lock_csr%ISOPEN) THEN
1558: CLOSE lock_csr;
1559: END IF;
1560: okl_api.set_message(g_fnd_app
1561: ,g_form_unable_to_reserve_rec);
1562: RAISE app_exceptions.record_lock_exception;
1563: END;
1564:
1569: CLOSE lchk_csr;
1570: END IF;
1571:
1572: IF (lc_row_notfound) THEN
1573: okl_api.set_message(g_fnd_app
1574: ,g_form_record_deleted);
1575: RAISE okl_api.g_exception_error;
1576: ELSIF lc_object_version_number > p_srtb_rec.object_version_number THEN
1577: okl_api.set_message(g_fnd_app
1571:
1572: IF (lc_row_notfound) THEN
1573: okl_api.set_message(g_fnd_app
1574: ,g_form_record_deleted);
1575: RAISE okl_api.g_exception_error;
1576: ELSIF lc_object_version_number > p_srtb_rec.object_version_number THEN
1577: okl_api.set_message(g_fnd_app
1578: ,g_form_record_changed);
1579: RAISE okl_api.g_exception_error;
1573: okl_api.set_message(g_fnd_app
1574: ,g_form_record_deleted);
1575: RAISE okl_api.g_exception_error;
1576: ELSIF lc_object_version_number > p_srtb_rec.object_version_number THEN
1577: okl_api.set_message(g_fnd_app
1578: ,g_form_record_changed);
1579: RAISE okl_api.g_exception_error;
1580: ELSIF lc_object_version_number <> p_srtb_rec.object_version_number THEN
1581: okl_api.set_message(g_fnd_app
1575: RAISE okl_api.g_exception_error;
1576: ELSIF lc_object_version_number > p_srtb_rec.object_version_number THEN
1577: okl_api.set_message(g_fnd_app
1578: ,g_form_record_changed);
1579: RAISE okl_api.g_exception_error;
1580: ELSIF lc_object_version_number <> p_srtb_rec.object_version_number THEN
1581: okl_api.set_message(g_fnd_app
1582: ,g_form_record_changed);
1583: RAISE okl_api.g_exception_error;
1577: okl_api.set_message(g_fnd_app
1578: ,g_form_record_changed);
1579: RAISE okl_api.g_exception_error;
1580: ELSIF lc_object_version_number <> p_srtb_rec.object_version_number THEN
1581: okl_api.set_message(g_fnd_app
1582: ,g_form_record_changed);
1583: RAISE okl_api.g_exception_error;
1584: ELSIF lc_object_version_number = - 1 THEN
1585: okl_api.set_message(g_app_name
1579: RAISE okl_api.g_exception_error;
1580: ELSIF lc_object_version_number <> p_srtb_rec.object_version_number THEN
1581: okl_api.set_message(g_fnd_app
1582: ,g_form_record_changed);
1583: RAISE okl_api.g_exception_error;
1584: ELSIF lc_object_version_number = - 1 THEN
1585: okl_api.set_message(g_app_name
1586: ,g_record_logically_deleted);
1587: RAISE okl_api.g_exception_error;
1581: okl_api.set_message(g_fnd_app
1582: ,g_form_record_changed);
1583: RAISE okl_api.g_exception_error;
1584: ELSIF lc_object_version_number = - 1 THEN
1585: okl_api.set_message(g_app_name
1586: ,g_record_logically_deleted);
1587: RAISE okl_api.g_exception_error;
1588: END IF;
1589: okl_api.end_activity(x_msg_count
1583: RAISE okl_api.g_exception_error;
1584: ELSIF lc_object_version_number = - 1 THEN
1585: okl_api.set_message(g_app_name
1586: ,g_record_logically_deleted);
1587: RAISE okl_api.g_exception_error;
1588: END IF;
1589: okl_api.end_activity(x_msg_count
1590: ,x_msg_data);
1591: EXCEPTION
1585: okl_api.set_message(g_app_name
1586: ,g_record_logically_deleted);
1587: RAISE okl_api.g_exception_error;
1588: END IF;
1589: okl_api.end_activity(x_msg_count
1590: ,x_msg_data);
1591: EXCEPTION
1592: WHEN g_exception_halt_validation THEN
1593: x_return_status := okl_api.handle_exceptions(l_api_name
1589: okl_api.end_activity(x_msg_count
1590: ,x_msg_data);
1591: EXCEPTION
1592: WHEN g_exception_halt_validation THEN
1593: x_return_status := okl_api.handle_exceptions(l_api_name
1594: ,g_pkg_name
1595: ,'OKL_API.G_RET_STS_ERROR'
1596: ,x_msg_count
1597: ,x_msg_data
1591: EXCEPTION
1592: WHEN g_exception_halt_validation THEN
1593: x_return_status := okl_api.handle_exceptions(l_api_name
1594: ,g_pkg_name
1595: ,'OKL_API.G_RET_STS_ERROR'
1596: ,x_msg_count
1597: ,x_msg_data
1598: ,'_PVT');
1599: WHEN okl_api.g_exception_error THEN
1595: ,'OKL_API.G_RET_STS_ERROR'
1596: ,x_msg_count
1597: ,x_msg_data
1598: ,'_PVT');
1599: WHEN okl_api.g_exception_error THEN
1600: x_return_status := okl_api.handle_exceptions(l_api_name
1601: ,g_pkg_name
1602: ,'OKL_API.G_RET_STS_ERROR'
1603: ,x_msg_count
1596: ,x_msg_count
1597: ,x_msg_data
1598: ,'_PVT');
1599: WHEN okl_api.g_exception_error THEN
1600: x_return_status := okl_api.handle_exceptions(l_api_name
1601: ,g_pkg_name
1602: ,'OKL_API.G_RET_STS_ERROR'
1603: ,x_msg_count
1604: ,x_msg_data
1598: ,'_PVT');
1599: WHEN okl_api.g_exception_error THEN
1600: x_return_status := okl_api.handle_exceptions(l_api_name
1601: ,g_pkg_name
1602: ,'OKL_API.G_RET_STS_ERROR'
1603: ,x_msg_count
1604: ,x_msg_data
1605: ,'_PVT');
1606: WHEN okl_api.g_exception_unexpected_error THEN
1602: ,'OKL_API.G_RET_STS_ERROR'
1603: ,x_msg_count
1604: ,x_msg_data
1605: ,'_PVT');
1606: WHEN okl_api.g_exception_unexpected_error THEN
1607: x_return_status := okl_api.handle_exceptions(l_api_name
1608: ,g_pkg_name
1609: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1610: ,x_msg_count
1603: ,x_msg_count
1604: ,x_msg_data
1605: ,'_PVT');
1606: WHEN okl_api.g_exception_unexpected_error THEN
1607: x_return_status := okl_api.handle_exceptions(l_api_name
1608: ,g_pkg_name
1609: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1610: ,x_msg_count
1611: ,x_msg_data
1605: ,'_PVT');
1606: WHEN okl_api.g_exception_unexpected_error THEN
1607: x_return_status := okl_api.handle_exceptions(l_api_name
1608: ,g_pkg_name
1609: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1610: ,x_msg_count
1611: ,x_msg_data
1612: ,'_PVT');
1613: WHEN OTHERS THEN
1610: ,x_msg_count
1611: ,x_msg_data
1612: ,'_PVT');
1613: WHEN OTHERS THEN
1614: x_return_status := okl_api.handle_exceptions(l_api_name
1615: ,g_pkg_name
1616: ,'OTHERS'
1617: ,x_msg_count
1618: ,x_msg_data
1638: WHERE std_rate_tmpl_id = p_srttl_rec.std_rate_tmpl_id
1639: FOR UPDATE NOWAIT;
1640: l_api_version CONSTANT NUMBER := 1;
1641: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1642: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1643: l_lock_var lock_csr%ROWTYPE;
1644: l_row_notfound BOOLEAN := false;
1645: lc_row_notfound BOOLEAN := false;
1646:
1644: l_row_notfound BOOLEAN := false;
1645: lc_row_notfound BOOLEAN := false;
1646:
1647: BEGIN
1648: l_return_status := okl_api.start_activity(l_api_name
1649: ,p_init_msg_list
1650: ,'_PVT'
1651: ,x_return_status);
1652:
1649: ,p_init_msg_list
1650: ,'_PVT'
1651: ,x_return_status);
1652:
1653: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1654: RAISE okl_api.g_exception_unexpected_error;
1655: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1656: RAISE okl_api.g_exception_error;
1657: END IF;
1650: ,'_PVT'
1651: ,x_return_status);
1652:
1653: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1654: RAISE okl_api.g_exception_unexpected_error;
1655: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1656: RAISE okl_api.g_exception_error;
1657: END IF;
1658:
1651: ,x_return_status);
1652:
1653: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1654: RAISE okl_api.g_exception_unexpected_error;
1655: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1656: RAISE okl_api.g_exception_error;
1657: END IF;
1658:
1659: BEGIN
1652:
1653: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1654: RAISE okl_api.g_exception_unexpected_error;
1655: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1656: RAISE okl_api.g_exception_error;
1657: END IF;
1658:
1659: BEGIN
1660: OPEN lock_csr(p_srttl_rec);
1666:
1667: IF (lock_csr%ISOPEN) THEN
1668: CLOSE lock_csr;
1669: END IF;
1670: okl_api.set_message(g_fnd_app
1671: ,g_form_unable_to_reserve_rec);
1672: RAISE app_exceptions.record_lock_exception;
1673: END;
1674:
1672: RAISE app_exceptions.record_lock_exception;
1673: END;
1674:
1675: IF (l_row_notfound) THEN
1676: okl_api.set_message(g_fnd_app
1677: ,g_form_record_deleted);
1678: RAISE okl_api.g_exception_error;
1679: END IF;
1680: okl_api.end_activity(x_msg_count
1674:
1675: IF (l_row_notfound) THEN
1676: okl_api.set_message(g_fnd_app
1677: ,g_form_record_deleted);
1678: RAISE okl_api.g_exception_error;
1679: END IF;
1680: okl_api.end_activity(x_msg_count
1681: ,x_msg_data);
1682: EXCEPTION
1676: okl_api.set_message(g_fnd_app
1677: ,g_form_record_deleted);
1678: RAISE okl_api.g_exception_error;
1679: END IF;
1680: okl_api.end_activity(x_msg_count
1681: ,x_msg_data);
1682: EXCEPTION
1683: WHEN g_exception_halt_validation THEN
1684: x_return_status := okl_api.handle_exceptions(l_api_name
1680: okl_api.end_activity(x_msg_count
1681: ,x_msg_data);
1682: EXCEPTION
1683: WHEN g_exception_halt_validation THEN
1684: x_return_status := okl_api.handle_exceptions(l_api_name
1685: ,g_pkg_name
1686: ,'OKL_API.G_RET_STS_ERROR'
1687: ,x_msg_count
1688: ,x_msg_data
1682: EXCEPTION
1683: WHEN g_exception_halt_validation THEN
1684: x_return_status := okl_api.handle_exceptions(l_api_name
1685: ,g_pkg_name
1686: ,'OKL_API.G_RET_STS_ERROR'
1687: ,x_msg_count
1688: ,x_msg_data
1689: ,'_PVT');
1690: WHEN okl_api.g_exception_error THEN
1686: ,'OKL_API.G_RET_STS_ERROR'
1687: ,x_msg_count
1688: ,x_msg_data
1689: ,'_PVT');
1690: WHEN okl_api.g_exception_error THEN
1691: x_return_status := okl_api.handle_exceptions(l_api_name
1692: ,g_pkg_name
1693: ,'OKL_API.G_RET_STS_ERROR'
1694: ,x_msg_count
1687: ,x_msg_count
1688: ,x_msg_data
1689: ,'_PVT');
1690: WHEN okl_api.g_exception_error THEN
1691: x_return_status := okl_api.handle_exceptions(l_api_name
1692: ,g_pkg_name
1693: ,'OKL_API.G_RET_STS_ERROR'
1694: ,x_msg_count
1695: ,x_msg_data
1689: ,'_PVT');
1690: WHEN okl_api.g_exception_error THEN
1691: x_return_status := okl_api.handle_exceptions(l_api_name
1692: ,g_pkg_name
1693: ,'OKL_API.G_RET_STS_ERROR'
1694: ,x_msg_count
1695: ,x_msg_data
1696: ,'_PVT');
1697: WHEN okl_api.g_exception_unexpected_error THEN
1693: ,'OKL_API.G_RET_STS_ERROR'
1694: ,x_msg_count
1695: ,x_msg_data
1696: ,'_PVT');
1697: WHEN okl_api.g_exception_unexpected_error THEN
1698: x_return_status := okl_api.handle_exceptions(l_api_name
1699: ,g_pkg_name
1700: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1701: ,x_msg_count
1694: ,x_msg_count
1695: ,x_msg_data
1696: ,'_PVT');
1697: WHEN okl_api.g_exception_unexpected_error THEN
1698: x_return_status := okl_api.handle_exceptions(l_api_name
1699: ,g_pkg_name
1700: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1701: ,x_msg_count
1702: ,x_msg_data
1696: ,'_PVT');
1697: WHEN okl_api.g_exception_unexpected_error THEN
1698: x_return_status := okl_api.handle_exceptions(l_api_name
1699: ,g_pkg_name
1700: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1701: ,x_msg_count
1702: ,x_msg_data
1703: ,'_PVT');
1704: WHEN OTHERS THEN
1701: ,x_msg_count
1702: ,x_msg_data
1703: ,'_PVT');
1704: WHEN OTHERS THEN
1705: x_return_status := okl_api.handle_exceptions(l_api_name
1706: ,g_pkg_name
1707: ,'OTHERS'
1708: ,x_msg_count
1709: ,x_msg_data
1721: ,x_msg_data OUT NOCOPY VARCHAR2
1722: ,p_srtv_rec IN okl_srtv_rec) IS
1723: l_api_version CONSTANT NUMBER := 1;
1724: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1725: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1726: l_srtb_rec okl_srtb_rec;
1727: l_srttl_rec okl_srttl_rec;
1728:
1729: BEGIN
1726: l_srtb_rec okl_srtb_rec;
1727: l_srttl_rec okl_srttl_rec;
1728:
1729: BEGIN
1730: l_return_status := okl_api.start_activity(l_api_name
1731: ,g_pkg_name
1732: ,p_init_msg_list
1733: ,l_api_version
1734: ,p_api_version
1734: ,p_api_version
1735: ,'_PVT'
1736: ,x_return_status);
1737:
1738: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1739: RAISE okl_api.g_exception_unexpected_error;
1740: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1741: RAISE okl_api.g_exception_error;
1742: END IF;
1735: ,'_PVT'
1736: ,x_return_status);
1737:
1738: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1739: RAISE okl_api.g_exception_unexpected_error;
1740: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1741: RAISE okl_api.g_exception_error;
1742: END IF;
1743:
1736: ,x_return_status);
1737:
1738: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1739: RAISE okl_api.g_exception_unexpected_error;
1740: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1741: RAISE okl_api.g_exception_error;
1742: END IF;
1743:
1744: --------------------------------------
1737:
1738: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1739: RAISE okl_api.g_exception_unexpected_error;
1740: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1741: RAISE okl_api.g_exception_error;
1742: END IF;
1743:
1744: --------------------------------------
1745: -- Move VIEW record to "Child" records
1759: ,x_msg_count
1760: ,x_msg_data
1761: ,l_srtb_rec);
1762:
1763: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1764: RAISE okl_api.g_exception_unexpected_error;
1765: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1766: RAISE okl_api.g_exception_error;
1767: END IF;
1760: ,x_msg_data
1761: ,l_srtb_rec);
1762:
1763: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1764: RAISE okl_api.g_exception_unexpected_error;
1765: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1766: RAISE okl_api.g_exception_error;
1767: END IF;
1768: lock_row(p_init_msg_list
1761: ,l_srtb_rec);
1762:
1763: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1764: RAISE okl_api.g_exception_unexpected_error;
1765: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1766: RAISE okl_api.g_exception_error;
1767: END IF;
1768: lock_row(p_init_msg_list
1769: ,x_return_status
1762:
1763: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1764: RAISE okl_api.g_exception_unexpected_error;
1765: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1766: RAISE okl_api.g_exception_error;
1767: END IF;
1768: lock_row(p_init_msg_list
1769: ,x_return_status
1770: ,x_msg_count
1770: ,x_msg_count
1771: ,x_msg_data
1772: ,l_srttl_rec);
1773:
1774: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1775: RAISE okl_api.g_exception_unexpected_error;
1776: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1777: RAISE okl_api.g_exception_error;
1778: END IF;
1771: ,x_msg_data
1772: ,l_srttl_rec);
1773:
1774: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1775: RAISE okl_api.g_exception_unexpected_error;
1776: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1777: RAISE okl_api.g_exception_error;
1778: END IF;
1779: okl_api.end_activity(x_msg_count
1772: ,l_srttl_rec);
1773:
1774: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1775: RAISE okl_api.g_exception_unexpected_error;
1776: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1777: RAISE okl_api.g_exception_error;
1778: END IF;
1779: okl_api.end_activity(x_msg_count
1780: ,x_msg_data);
1773:
1774: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
1775: RAISE okl_api.g_exception_unexpected_error;
1776: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1777: RAISE okl_api.g_exception_error;
1778: END IF;
1779: okl_api.end_activity(x_msg_count
1780: ,x_msg_data);
1781: EXCEPTION
1775: RAISE okl_api.g_exception_unexpected_error;
1776: ELSIF (x_return_status = okl_api.g_ret_sts_error) THEN
1777: RAISE okl_api.g_exception_error;
1778: END IF;
1779: okl_api.end_activity(x_msg_count
1780: ,x_msg_data);
1781: EXCEPTION
1782: WHEN g_exception_halt_validation THEN
1783: x_return_status := okl_api.handle_exceptions(l_api_name
1779: okl_api.end_activity(x_msg_count
1780: ,x_msg_data);
1781: EXCEPTION
1782: WHEN g_exception_halt_validation THEN
1783: x_return_status := okl_api.handle_exceptions(l_api_name
1784: ,g_pkg_name
1785: ,'OKL_API.G_RET_STS_ERROR'
1786: ,x_msg_count
1787: ,x_msg_data
1781: EXCEPTION
1782: WHEN g_exception_halt_validation THEN
1783: x_return_status := okl_api.handle_exceptions(l_api_name
1784: ,g_pkg_name
1785: ,'OKL_API.G_RET_STS_ERROR'
1786: ,x_msg_count
1787: ,x_msg_data
1788: ,'_PVT');
1789: WHEN okl_api.g_exception_error THEN
1785: ,'OKL_API.G_RET_STS_ERROR'
1786: ,x_msg_count
1787: ,x_msg_data
1788: ,'_PVT');
1789: WHEN okl_api.g_exception_error THEN
1790: x_return_status := okl_api.handle_exceptions(l_api_name
1791: ,g_pkg_name
1792: ,'OKL_API.G_RET_STS_ERROR'
1793: ,x_msg_count
1786: ,x_msg_count
1787: ,x_msg_data
1788: ,'_PVT');
1789: WHEN okl_api.g_exception_error THEN
1790: x_return_status := okl_api.handle_exceptions(l_api_name
1791: ,g_pkg_name
1792: ,'OKL_API.G_RET_STS_ERROR'
1793: ,x_msg_count
1794: ,x_msg_data
1788: ,'_PVT');
1789: WHEN okl_api.g_exception_error THEN
1790: x_return_status := okl_api.handle_exceptions(l_api_name
1791: ,g_pkg_name
1792: ,'OKL_API.G_RET_STS_ERROR'
1793: ,x_msg_count
1794: ,x_msg_data
1795: ,'_PVT');
1796: WHEN okl_api.g_exception_unexpected_error THEN
1792: ,'OKL_API.G_RET_STS_ERROR'
1793: ,x_msg_count
1794: ,x_msg_data
1795: ,'_PVT');
1796: WHEN okl_api.g_exception_unexpected_error THEN
1797: x_return_status := okl_api.handle_exceptions(l_api_name
1798: ,g_pkg_name
1799: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1800: ,x_msg_count
1793: ,x_msg_count
1794: ,x_msg_data
1795: ,'_PVT');
1796: WHEN okl_api.g_exception_unexpected_error THEN
1797: x_return_status := okl_api.handle_exceptions(l_api_name
1798: ,g_pkg_name
1799: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1800: ,x_msg_count
1801: ,x_msg_data
1795: ,'_PVT');
1796: WHEN okl_api.g_exception_unexpected_error THEN
1797: x_return_status := okl_api.handle_exceptions(l_api_name
1798: ,g_pkg_name
1799: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1800: ,x_msg_count
1801: ,x_msg_data
1802: ,'_PVT');
1803: WHEN OTHERS THEN
1800: ,x_msg_count
1801: ,x_msg_data
1802: ,'_PVT');
1803: WHEN OTHERS THEN
1804: x_return_status := okl_api.handle_exceptions(l_api_name
1805: ,g_pkg_name
1806: ,'OTHERS'
1807: ,x_msg_count
1808: ,x_msg_data
1820: ,x_msg_data OUT NOCOPY VARCHAR2
1821: ,p_srtv_tbl IN okl_srtv_tbl) IS
1822: l_api_version CONSTANT NUMBER := 1;
1823: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1824: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1825:
1826: -- Begin Post-Generation Change
1827: -- overall error status
1828:
1825:
1826: -- Begin Post-Generation Change
1827: -- overall error status
1828:
1829: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1830:
1831: -- End Post-Generation Change
1832:
1833: i NUMBER := 0;
1832:
1833: i NUMBER := 0;
1834:
1835: BEGIN
1836: okl_api.init_msg_list(p_init_msg_list);
1837:
1838: -- Make sure PL/SQL table has records in it before passing
1839:
1840: IF (p_srtv_tbl.COUNT > 0) THEN
1841: i := p_srtv_tbl.FIRST;
1842:
1843: LOOP
1844: lock_row(p_api_version => p_api_version
1845: ,p_init_msg_list => okl_api.g_false
1846: ,x_return_status => x_return_status
1847: ,x_msg_count => x_msg_count
1848: ,x_msg_data => x_msg_data
1849: ,p_srtv_rec => p_srtv_tbl(i));
1850:
1851: -- Begin Post-Generation Change
1852: -- store the highest degree of error
1853:
1854: IF x_return_status <> okl_api.g_ret_sts_success THEN
1855: IF l_overall_status <> okl_api.g_ret_sts_unexp_error THEN
1856: l_overall_status := x_return_status;
1857: END IF;
1858: END IF;
1851: -- Begin Post-Generation Change
1852: -- store the highest degree of error
1853:
1854: IF x_return_status <> okl_api.g_ret_sts_success THEN
1855: IF l_overall_status <> okl_api.g_ret_sts_unexp_error THEN
1856: l_overall_status := x_return_status;
1857: END IF;
1858: END IF;
1859:
1873: END IF;
1874:
1875: EXCEPTION
1876: WHEN g_exception_halt_validation THEN
1877: x_return_status := okl_api.handle_exceptions(l_api_name
1878: ,g_pkg_name
1879: ,'OKL_API.G_RET_STS_ERROR'
1880: ,x_msg_count
1881: ,x_msg_data
1875: EXCEPTION
1876: WHEN g_exception_halt_validation THEN
1877: x_return_status := okl_api.handle_exceptions(l_api_name
1878: ,g_pkg_name
1879: ,'OKL_API.G_RET_STS_ERROR'
1880: ,x_msg_count
1881: ,x_msg_data
1882: ,'_PVT');
1883: WHEN okl_api.g_exception_error THEN
1879: ,'OKL_API.G_RET_STS_ERROR'
1880: ,x_msg_count
1881: ,x_msg_data
1882: ,'_PVT');
1883: WHEN okl_api.g_exception_error THEN
1884: x_return_status := okl_api.handle_exceptions(l_api_name
1885: ,g_pkg_name
1886: ,'OKL_API.G_RET_STS_ERROR'
1887: ,x_msg_count
1880: ,x_msg_count
1881: ,x_msg_data
1882: ,'_PVT');
1883: WHEN okl_api.g_exception_error THEN
1884: x_return_status := okl_api.handle_exceptions(l_api_name
1885: ,g_pkg_name
1886: ,'OKL_API.G_RET_STS_ERROR'
1887: ,x_msg_count
1888: ,x_msg_data
1882: ,'_PVT');
1883: WHEN okl_api.g_exception_error THEN
1884: x_return_status := okl_api.handle_exceptions(l_api_name
1885: ,g_pkg_name
1886: ,'OKL_API.G_RET_STS_ERROR'
1887: ,x_msg_count
1888: ,x_msg_data
1889: ,'_PVT');
1890: WHEN okl_api.g_exception_unexpected_error THEN
1886: ,'OKL_API.G_RET_STS_ERROR'
1887: ,x_msg_count
1888: ,x_msg_data
1889: ,'_PVT');
1890: WHEN okl_api.g_exception_unexpected_error THEN
1891: x_return_status := okl_api.handle_exceptions(l_api_name
1892: ,g_pkg_name
1893: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1894: ,x_msg_count
1887: ,x_msg_count
1888: ,x_msg_data
1889: ,'_PVT');
1890: WHEN okl_api.g_exception_unexpected_error THEN
1891: x_return_status := okl_api.handle_exceptions(l_api_name
1892: ,g_pkg_name
1893: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1894: ,x_msg_count
1895: ,x_msg_data
1889: ,'_PVT');
1890: WHEN okl_api.g_exception_unexpected_error THEN
1891: x_return_status := okl_api.handle_exceptions(l_api_name
1892: ,g_pkg_name
1893: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
1894: ,x_msg_count
1895: ,x_msg_data
1896: ,'_PVT');
1897: WHEN OTHERS THEN
1894: ,x_msg_count
1895: ,x_msg_data
1896: ,'_PVT');
1897: WHEN OTHERS THEN
1898: x_return_status := okl_api.handle_exceptions(l_api_name
1899: ,g_pkg_name
1900: ,'OTHERS'
1901: ,x_msg_count
1902: ,x_msg_data
1907: -- Procedure insert_row_b
1908: --------------------------------------------------------------------------------
1909:
1910: PROCEDURE insert_row(p_api_version IN NUMBER
1911: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
1912: ,x_return_status OUT NOCOPY VARCHAR2
1913: ,x_msg_count OUT NOCOPY NUMBER
1914: ,x_msg_data OUT NOCOPY VARCHAR2
1915: ,p_srtb_rec IN okl_srtb_rec
1915: ,p_srtb_rec IN okl_srtb_rec
1916: ,x_srtb_rec OUT NOCOPY okl_srtb_rec) IS
1917: l_api_version CONSTANT NUMBER := 1;
1918: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1919: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1920: l_srtb_rec okl_srtb_rec := p_srtb_rec;
1921:
1922: FUNCTION set_attributes(p_srtb_rec IN okl_srtb_rec
1923: ,x_srtb_rec OUT NOCOPY okl_srtb_rec) RETURN VARCHAR2 IS
1920: l_srtb_rec okl_srtb_rec := p_srtb_rec;
1921:
1922: FUNCTION set_attributes(p_srtb_rec IN okl_srtb_rec
1923: ,x_srtb_rec OUT NOCOPY okl_srtb_rec) RETURN VARCHAR2 IS
1924: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
1925:
1926: BEGIN
1927: x_srtb_rec := p_srtb_rec;
1928: RETURN(l_return_status);
1928: RETURN(l_return_status);
1929: END set_attributes;
1930:
1931: BEGIN
1932: l_return_status := okl_api.start_activity(l_api_name
1933: ,g_pkg_name
1934: ,p_init_msg_list
1935: ,l_api_version
1936: ,p_api_version
1936: ,p_api_version
1937: ,'_PVT'
1938: ,x_return_status);
1939:
1940: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1941: RAISE okl_api.g_exception_unexpected_error;
1942: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1943: RAISE okl_api.g_exception_error;
1944: END IF;
1937: ,'_PVT'
1938: ,x_return_status);
1939:
1940: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1941: RAISE okl_api.g_exception_unexpected_error;
1942: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1943: RAISE okl_api.g_exception_error;
1944: END IF;
1945:
1938: ,x_return_status);
1939:
1940: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1941: RAISE okl_api.g_exception_unexpected_error;
1942: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1943: RAISE okl_api.g_exception_error;
1944: END IF;
1945:
1946: --Setting Item Attributes
1939:
1940: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1941: RAISE okl_api.g_exception_unexpected_error;
1942: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1943: RAISE okl_api.g_exception_error;
1944: END IF;
1945:
1946: --Setting Item Attributes
1947:
1947:
1948: l_return_status := set_attributes(p_srtb_rec
1949: ,l_srtb_rec);
1950:
1951: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1952: RAISE okl_api.g_exception_unexpected_error;
1953: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1954: RAISE okl_api.g_exception_error;
1955: END IF;
1948: l_return_status := set_attributes(p_srtb_rec
1949: ,l_srtb_rec);
1950:
1951: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1952: RAISE okl_api.g_exception_unexpected_error;
1953: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1954: RAISE okl_api.g_exception_error;
1955: END IF;
1956:
1949: ,l_srtb_rec);
1950:
1951: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1952: RAISE okl_api.g_exception_unexpected_error;
1953: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1954: RAISE okl_api.g_exception_error;
1955: END IF;
1956:
1957: INSERT INTO okl_fe_std_rt_tmp_all_b
1950:
1951: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1952: RAISE okl_api.g_exception_unexpected_error;
1953: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1954: RAISE okl_api.g_exception_error;
1955: END IF;
1956:
1957: INSERT INTO okl_fe_std_rt_tmp_all_b
1958: (std_rate_tmpl_id
2032:
2033: --Set OUT Values
2034:
2035: x_srtb_rec := l_srtb_rec;
2036: okl_api.end_activity(x_msg_count
2037: ,x_msg_data);
2038: EXCEPTION
2039: WHEN g_exception_halt_validation THEN
2040:
2040:
2041: -- No action necessary. Validation can continue to next attribute/column
2042:
2043: NULL;
2044: WHEN okl_api.g_exception_error THEN
2045: x_return_status := okl_api.handle_exceptions(l_api_name
2046: ,g_pkg_name
2047: ,'OKL_API.G_RET_STS_ERROR'
2048: ,x_msg_count
2041: -- No action necessary. Validation can continue to next attribute/column
2042:
2043: NULL;
2044: WHEN okl_api.g_exception_error THEN
2045: x_return_status := okl_api.handle_exceptions(l_api_name
2046: ,g_pkg_name
2047: ,'OKL_API.G_RET_STS_ERROR'
2048: ,x_msg_count
2049: ,x_msg_data
2043: NULL;
2044: WHEN okl_api.g_exception_error THEN
2045: x_return_status := okl_api.handle_exceptions(l_api_name
2046: ,g_pkg_name
2047: ,'OKL_API.G_RET_STS_ERROR'
2048: ,x_msg_count
2049: ,x_msg_data
2050: ,'_PVT');
2051: WHEN okl_api.g_exception_unexpected_error THEN
2047: ,'OKL_API.G_RET_STS_ERROR'
2048: ,x_msg_count
2049: ,x_msg_data
2050: ,'_PVT');
2051: WHEN okl_api.g_exception_unexpected_error THEN
2052: x_return_status := okl_api.handle_exceptions(l_api_name
2053: ,g_pkg_name
2054: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2055: ,x_msg_count
2048: ,x_msg_count
2049: ,x_msg_data
2050: ,'_PVT');
2051: WHEN okl_api.g_exception_unexpected_error THEN
2052: x_return_status := okl_api.handle_exceptions(l_api_name
2053: ,g_pkg_name
2054: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2055: ,x_msg_count
2056: ,x_msg_data
2050: ,'_PVT');
2051: WHEN okl_api.g_exception_unexpected_error THEN
2052: x_return_status := okl_api.handle_exceptions(l_api_name
2053: ,g_pkg_name
2054: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2055: ,x_msg_count
2056: ,x_msg_data
2057: ,'_PVT');
2058: WHEN OTHERS THEN
2055: ,x_msg_count
2056: ,x_msg_data
2057: ,'_PVT');
2058: WHEN OTHERS THEN
2059: x_return_status := okl_api.handle_exceptions(l_api_name
2060: ,g_pkg_name
2061: ,'OTHERS'
2062: ,x_msg_count
2063: ,x_msg_data
2068: -- Procedure insert_row_tl
2069: --------------------------------------------------------------------------------
2070:
2071: PROCEDURE insert_row(p_api_version IN NUMBER
2072: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
2073: ,x_return_status OUT NOCOPY VARCHAR2
2074: ,x_msg_count OUT NOCOPY NUMBER
2075: ,x_msg_data OUT NOCOPY VARCHAR2
2076: ,p_srttl_rec IN okl_srttl_rec
2076: ,p_srttl_rec IN okl_srttl_rec
2077: ,x_srttl_rec OUT NOCOPY okl_srttl_rec) IS
2078: l_api_version CONSTANT NUMBER := 1;
2079: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
2080: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2081: l_srttl_rec okl_srttl_rec := p_srttl_rec;
2082:
2083: CURSOR get_languages IS
2084: SELECT *
2086: WHERE installed_flag IN('I', 'B');
2087:
2088: FUNCTION set_attributes(p_srttl_rec IN okl_srttl_rec
2089: ,x_srttl_rec OUT NOCOPY okl_srttl_rec) RETURN VARCHAR2 IS
2090: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2091:
2092: BEGIN
2093: x_srttl_rec := p_srttl_rec;
2094: x_srttl_rec.language := USERENV('LANG');
2097: RETURN(l_return_status);
2098: END set_attributes;
2099:
2100: BEGIN
2101: l_return_status := okl_api.start_activity(l_api_name
2102: ,g_pkg_name
2103: ,p_init_msg_list
2104: ,l_api_version
2105: ,p_api_version
2105: ,p_api_version
2106: ,'_PVT'
2107: ,x_return_status);
2108:
2109: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2110: RAISE okl_api.g_exception_unexpected_error;
2111: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2112: RAISE okl_api.g_exception_error;
2113: END IF;
2106: ,'_PVT'
2107: ,x_return_status);
2108:
2109: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2110: RAISE okl_api.g_exception_unexpected_error;
2111: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2112: RAISE okl_api.g_exception_error;
2113: END IF;
2114:
2107: ,x_return_status);
2108:
2109: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2110: RAISE okl_api.g_exception_unexpected_error;
2111: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2112: RAISE okl_api.g_exception_error;
2113: END IF;
2114:
2115: --Setting Item Attributes
2108:
2109: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2110: RAISE okl_api.g_exception_unexpected_error;
2111: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2112: RAISE okl_api.g_exception_error;
2113: END IF;
2114:
2115: --Setting Item Attributes
2116:
2116:
2117: l_return_status := set_attributes(p_srttl_rec
2118: ,l_srttl_rec);
2119:
2120: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2121: RAISE okl_api.g_exception_unexpected_error;
2122: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2123: RAISE okl_api.g_exception_error;
2124: END IF;
2117: l_return_status := set_attributes(p_srttl_rec
2118: ,l_srttl_rec);
2119:
2120: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2121: RAISE okl_api.g_exception_unexpected_error;
2122: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2123: RAISE okl_api.g_exception_error;
2124: END IF;
2125:
2118: ,l_srttl_rec);
2119:
2120: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2121: RAISE okl_api.g_exception_unexpected_error;
2122: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2123: RAISE okl_api.g_exception_error;
2124: END IF;
2125:
2126: FOR l_lang_rec IN get_languages LOOP
2119:
2120: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2121: RAISE okl_api.g_exception_unexpected_error;
2122: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2123: RAISE okl_api.g_exception_error;
2124: END IF;
2125:
2126: FOR l_lang_rec IN get_languages LOOP
2127: l_srttl_rec.language := l_lang_rec.language_code;
2152:
2153: --Set OUT Values
2154:
2155: x_srttl_rec := l_srttl_rec;
2156: okl_api.end_activity(x_msg_count
2157: ,x_msg_data);
2158: EXCEPTION
2159: WHEN g_exception_halt_validation THEN
2160:
2160:
2161: -- No action necessary. Validation can continue to next attribute/column
2162:
2163: NULL;
2164: WHEN okl_api.g_exception_error THEN
2165: x_return_status := okl_api.handle_exceptions(l_api_name
2166: ,g_pkg_name
2167: ,'OKL_API.G_RET_STS_ERROR'
2168: ,x_msg_count
2161: -- No action necessary. Validation can continue to next attribute/column
2162:
2163: NULL;
2164: WHEN okl_api.g_exception_error THEN
2165: x_return_status := okl_api.handle_exceptions(l_api_name
2166: ,g_pkg_name
2167: ,'OKL_API.G_RET_STS_ERROR'
2168: ,x_msg_count
2169: ,x_msg_data
2163: NULL;
2164: WHEN okl_api.g_exception_error THEN
2165: x_return_status := okl_api.handle_exceptions(l_api_name
2166: ,g_pkg_name
2167: ,'OKL_API.G_RET_STS_ERROR'
2168: ,x_msg_count
2169: ,x_msg_data
2170: ,'_PVT');
2171: WHEN okl_api.g_exception_unexpected_error THEN
2167: ,'OKL_API.G_RET_STS_ERROR'
2168: ,x_msg_count
2169: ,x_msg_data
2170: ,'_PVT');
2171: WHEN okl_api.g_exception_unexpected_error THEN
2172: x_return_status := okl_api.handle_exceptions(l_api_name
2173: ,g_pkg_name
2174: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2175: ,x_msg_count
2168: ,x_msg_count
2169: ,x_msg_data
2170: ,'_PVT');
2171: WHEN okl_api.g_exception_unexpected_error THEN
2172: x_return_status := okl_api.handle_exceptions(l_api_name
2173: ,g_pkg_name
2174: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2175: ,x_msg_count
2176: ,x_msg_data
2170: ,'_PVT');
2171: WHEN okl_api.g_exception_unexpected_error THEN
2172: x_return_status := okl_api.handle_exceptions(l_api_name
2173: ,g_pkg_name
2174: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2175: ,x_msg_count
2176: ,x_msg_data
2177: ,'_PVT');
2178: WHEN OTHERS THEN
2175: ,x_msg_count
2176: ,x_msg_data
2177: ,'_PVT');
2178: WHEN OTHERS THEN
2179: x_return_status := okl_api.handle_exceptions(l_api_name
2180: ,g_pkg_name
2181: ,'OTHERS'
2182: ,x_msg_count
2183: ,x_msg_data
2188: -- Procedure insert_row_v
2189: --------------------------------------------------------------------------------
2190:
2191: PROCEDURE insert_row(p_api_version IN NUMBER
2192: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
2193: ,x_return_status OUT NOCOPY VARCHAR2
2194: ,x_msg_count OUT NOCOPY NUMBER
2195: ,x_msg_data OUT NOCOPY VARCHAR2
2196: ,p_srtv_rec IN okl_srtv_rec
2196: ,p_srtv_rec IN okl_srtv_rec
2197: ,x_srtv_rec OUT NOCOPY okl_srtv_rec) IS
2198: l_api_version CONSTANT NUMBER := 1;
2199: l_api_name CONSTANT VARCHAR2(30) := 'v_insert_row';
2200: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2201: l_srtv_rec okl_srtv_rec;
2202: l_def_srtv_rec okl_srtv_rec;
2203: l_srtb_rec okl_srtb_rec;
2204: lx_srtb_rec okl_srtb_rec;
2218: END fill_who_columns;
2219:
2220: FUNCTION set_attributes(p_srtv_rec IN okl_srtv_rec
2221: ,x_srtv_rec OUT NOCOPY okl_srtv_rec) RETURN VARCHAR2 IS
2222: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2223:
2224: BEGIN
2225: x_srtv_rec := p_srtv_rec;
2226: x_srtv_rec.object_version_number := 1;
2228: RETURN(l_return_status);
2229: END set_attributes;
2230:
2231: BEGIN
2232: l_return_status := okl_api.start_activity(l_api_name
2233: ,g_pkg_name
2234: ,p_init_msg_list
2235: ,l_api_version
2236: ,p_api_version
2236: ,p_api_version
2237: ,'_PVT'
2238: ,x_return_status);
2239:
2240: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2241: RAISE okl_api.g_exception_unexpected_error;
2242: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2243: RAISE okl_api.g_exception_error;
2244: END IF;
2237: ,'_PVT'
2238: ,x_return_status);
2239:
2240: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2241: RAISE okl_api.g_exception_unexpected_error;
2242: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2243: RAISE okl_api.g_exception_error;
2244: END IF;
2245: l_srtv_rec := null_out_defaults(p_srtv_rec);
2238: ,x_return_status);
2239:
2240: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2241: RAISE okl_api.g_exception_unexpected_error;
2242: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2243: RAISE okl_api.g_exception_error;
2244: END IF;
2245: l_srtv_rec := null_out_defaults(p_srtv_rec);
2246:
2239:
2240: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2241: RAISE okl_api.g_exception_unexpected_error;
2242: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2243: RAISE okl_api.g_exception_error;
2244: END IF;
2245: l_srtv_rec := null_out_defaults(p_srtv_rec);
2246:
2247: -- Set Primary key value
2252:
2253: l_return_status := set_attributes(l_srtv_rec
2254: ,l_def_srtv_rec);
2255:
2256: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2257: RAISE okl_api.g_exception_unexpected_error;
2258: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2259: RAISE okl_api.g_exception_error;
2260: END IF;
2253: l_return_status := set_attributes(l_srtv_rec
2254: ,l_def_srtv_rec);
2255:
2256: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2257: RAISE okl_api.g_exception_unexpected_error;
2258: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2259: RAISE okl_api.g_exception_error;
2260: END IF;
2261: l_def_srtv_rec := fill_who_columns(l_def_srtv_rec);
2254: ,l_def_srtv_rec);
2255:
2256: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2257: RAISE okl_api.g_exception_unexpected_error;
2258: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2259: RAISE okl_api.g_exception_error;
2260: END IF;
2261: l_def_srtv_rec := fill_who_columns(l_def_srtv_rec);
2262: l_return_status := validate_attributes(l_def_srtv_rec);
2255:
2256: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2257: RAISE okl_api.g_exception_unexpected_error;
2258: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2259: RAISE okl_api.g_exception_error;
2260: END IF;
2261: l_def_srtv_rec := fill_who_columns(l_def_srtv_rec);
2262: l_return_status := validate_attributes(l_def_srtv_rec);
2263:
2260: END IF;
2261: l_def_srtv_rec := fill_who_columns(l_def_srtv_rec);
2262: l_return_status := validate_attributes(l_def_srtv_rec);
2263:
2264: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2265: RAISE okl_api.g_exception_unexpected_error;
2266: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2267: RAISE okl_api.g_exception_error;
2268: END IF;
2261: l_def_srtv_rec := fill_who_columns(l_def_srtv_rec);
2262: l_return_status := validate_attributes(l_def_srtv_rec);
2263:
2264: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2265: RAISE okl_api.g_exception_unexpected_error;
2266: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2267: RAISE okl_api.g_exception_error;
2268: END IF;
2269: l_return_status := validate_record(l_def_srtv_rec);
2262: l_return_status := validate_attributes(l_def_srtv_rec);
2263:
2264: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2265: RAISE okl_api.g_exception_unexpected_error;
2266: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2267: RAISE okl_api.g_exception_error;
2268: END IF;
2269: l_return_status := validate_record(l_def_srtv_rec);
2270:
2263:
2264: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2265: RAISE okl_api.g_exception_unexpected_error;
2266: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2267: RAISE okl_api.g_exception_error;
2268: END IF;
2269: l_return_status := validate_record(l_def_srtv_rec);
2270:
2271: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2267: RAISE okl_api.g_exception_error;
2268: END IF;
2269: l_return_status := validate_record(l_def_srtv_rec);
2270:
2271: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2272: RAISE okl_api.g_exception_unexpected_error;
2273: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2274: RAISE okl_api.g_exception_error;
2275: END IF;
2268: END IF;
2269: l_return_status := validate_record(l_def_srtv_rec);
2270:
2271: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2272: RAISE okl_api.g_exception_unexpected_error;
2273: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2274: RAISE okl_api.g_exception_error;
2275: END IF;
2276: migrate(l_def_srtv_rec
2269: l_return_status := validate_record(l_def_srtv_rec);
2270:
2271: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2272: RAISE okl_api.g_exception_unexpected_error;
2273: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2274: RAISE okl_api.g_exception_error;
2275: END IF;
2276: migrate(l_def_srtv_rec
2277: ,l_srtb_rec);
2270:
2271: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2272: RAISE okl_api.g_exception_unexpected_error;
2273: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2274: RAISE okl_api.g_exception_error;
2275: END IF;
2276: migrate(l_def_srtv_rec
2277: ,l_srtb_rec);
2278: migrate(l_def_srtv_rec
2287: ,x_msg_data
2288: ,l_srtb_rec
2289: ,lx_srtb_rec);
2290:
2291: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2292: RAISE okl_api.g_exception_unexpected_error;
2293: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2294: RAISE okl_api.g_exception_error;
2295: END IF;
2288: ,l_srtb_rec
2289: ,lx_srtb_rec);
2290:
2291: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2292: RAISE okl_api.g_exception_unexpected_error;
2293: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2294: RAISE okl_api.g_exception_error;
2295: END IF;
2296: migrate(lx_srtb_rec
2289: ,lx_srtb_rec);
2290:
2291: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2292: RAISE okl_api.g_exception_unexpected_error;
2293: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2294: RAISE okl_api.g_exception_error;
2295: END IF;
2296: migrate(lx_srtb_rec
2297: ,l_def_srtv_rec);
2290:
2291: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2292: RAISE okl_api.g_exception_unexpected_error;
2293: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2294: RAISE okl_api.g_exception_error;
2295: END IF;
2296: migrate(lx_srtb_rec
2297: ,l_def_srtv_rec);
2298:
2305: ,x_msg_data
2306: ,l_srttl_rec
2307: ,lx_srttl_rec);
2308:
2309: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2310: RAISE okl_api.g_exception_unexpected_error;
2311: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2312: RAISE okl_api.g_exception_error;
2313: END IF;
2306: ,l_srttl_rec
2307: ,lx_srttl_rec);
2308:
2309: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2310: RAISE okl_api.g_exception_unexpected_error;
2311: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2312: RAISE okl_api.g_exception_error;
2313: END IF;
2314: migrate(lx_srttl_rec
2307: ,lx_srttl_rec);
2308:
2309: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2310: RAISE okl_api.g_exception_unexpected_error;
2311: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2312: RAISE okl_api.g_exception_error;
2313: END IF;
2314: migrate(lx_srttl_rec
2315: ,l_def_srtv_rec);
2308:
2309: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2310: RAISE okl_api.g_exception_unexpected_error;
2311: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2312: RAISE okl_api.g_exception_error;
2313: END IF;
2314: migrate(lx_srttl_rec
2315: ,l_def_srtv_rec);
2316:
2316:
2317: --Set OUT Values
2318:
2319: x_srtv_rec := l_def_srtv_rec;
2320: okl_api.end_activity(x_msg_count
2321: ,x_msg_data);
2322: EXCEPTION
2323: WHEN g_exception_halt_validation THEN
2324:
2324:
2325: -- No action necessary. Validation can continue to next attribute/column
2326:
2327: NULL;
2328: WHEN okl_api.g_exception_error THEN
2329: x_return_status := okl_api.handle_exceptions(l_api_name
2330: ,g_pkg_name
2331: ,'OKL_API.G_RET_STS_ERROR'
2332: ,x_msg_count
2325: -- No action necessary. Validation can continue to next attribute/column
2326:
2327: NULL;
2328: WHEN okl_api.g_exception_error THEN
2329: x_return_status := okl_api.handle_exceptions(l_api_name
2330: ,g_pkg_name
2331: ,'OKL_API.G_RET_STS_ERROR'
2332: ,x_msg_count
2333: ,x_msg_data
2327: NULL;
2328: WHEN okl_api.g_exception_error THEN
2329: x_return_status := okl_api.handle_exceptions(l_api_name
2330: ,g_pkg_name
2331: ,'OKL_API.G_RET_STS_ERROR'
2332: ,x_msg_count
2333: ,x_msg_data
2334: ,'_PVT');
2335: WHEN okl_api.g_exception_unexpected_error THEN
2331: ,'OKL_API.G_RET_STS_ERROR'
2332: ,x_msg_count
2333: ,x_msg_data
2334: ,'_PVT');
2335: WHEN okl_api.g_exception_unexpected_error THEN
2336: x_return_status := okl_api.handle_exceptions(l_api_name
2337: ,g_pkg_name
2338: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2339: ,x_msg_count
2332: ,x_msg_count
2333: ,x_msg_data
2334: ,'_PVT');
2335: WHEN okl_api.g_exception_unexpected_error THEN
2336: x_return_status := okl_api.handle_exceptions(l_api_name
2337: ,g_pkg_name
2338: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2339: ,x_msg_count
2340: ,x_msg_data
2334: ,'_PVT');
2335: WHEN okl_api.g_exception_unexpected_error THEN
2336: x_return_status := okl_api.handle_exceptions(l_api_name
2337: ,g_pkg_name
2338: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2339: ,x_msg_count
2340: ,x_msg_data
2341: ,'_PVT');
2342: WHEN OTHERS THEN
2339: ,x_msg_count
2340: ,x_msg_data
2341: ,'_PVT');
2342: WHEN OTHERS THEN
2343: x_return_status := okl_api.handle_exceptions(l_api_name
2344: ,g_pkg_name
2345: ,'OTHERS'
2346: ,x_msg_count
2347: ,x_msg_data
2352: -- Procedure insert_row_tbl
2353: --------------------------------------------------------------------------------
2354:
2355: PROCEDURE insert_row(p_api_version IN NUMBER
2356: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
2357: ,x_return_status OUT NOCOPY VARCHAR2
2358: ,x_msg_count OUT NOCOPY NUMBER
2359: ,x_msg_data OUT NOCOPY VARCHAR2
2360: ,p_srtv_tbl IN okl_srtv_tbl
2360: ,p_srtv_tbl IN okl_srtv_tbl
2361: ,x_srtv_tbl OUT NOCOPY okl_srtv_tbl) IS
2362: l_api_version CONSTANT NUMBER := 1;
2363: l_api_name CONSTANT VARCHAR2(30) := 'v_insert_row';
2364: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2365: i NUMBER := 0;
2366: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2367:
2368: BEGIN
2362: l_api_version CONSTANT NUMBER := 1;
2363: l_api_name CONSTANT VARCHAR2(30) := 'v_insert_row';
2364: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2365: i NUMBER := 0;
2366: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2367:
2368: BEGIN
2369: okl_api.init_msg_list(p_init_msg_list);
2370:
2365: i NUMBER := 0;
2366: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2367:
2368: BEGIN
2369: okl_api.init_msg_list(p_init_msg_list);
2370:
2371: -- Make sure PL/SQL table has records in it before passing
2372:
2373: IF (p_srtv_tbl.COUNT > 0) THEN
2374: i := p_srtv_tbl.FIRST;
2375:
2376: LOOP
2377: insert_row(p_api_version => p_api_version
2378: ,p_init_msg_list => okl_api.g_false
2379: ,x_return_status => x_return_status
2380: ,x_msg_count => x_msg_count
2381: ,x_msg_data => x_msg_data
2382: ,p_srtv_rec => p_srtv_tbl(i)
2380: ,x_msg_count => x_msg_count
2381: ,x_msg_data => x_msg_data
2382: ,p_srtv_rec => p_srtv_tbl(i)
2383: ,x_srtv_rec => x_srtv_tbl(i));
2384: IF x_return_status <> okl_api.g_ret_sts_success THEN
2385: IF l_overall_status <> okl_api.g_ret_sts_unexp_error THEN
2386: l_overall_status := x_return_status;
2387: END IF;
2388: END IF;
2381: ,x_msg_data => x_msg_data
2382: ,p_srtv_rec => p_srtv_tbl(i)
2383: ,x_srtv_rec => x_srtv_tbl(i));
2384: IF x_return_status <> okl_api.g_ret_sts_success THEN
2385: IF l_overall_status <> okl_api.g_ret_sts_unexp_error THEN
2386: l_overall_status := x_return_status;
2387: END IF;
2388: END IF;
2389: EXIT WHEN(i = p_srtv_tbl.LAST);
2397:
2398: -- No action necessary. Validation can continue to next attribute/column
2399:
2400: NULL;
2401: WHEN okl_api.g_exception_error THEN
2402: x_return_status := okl_api.handle_exceptions(l_api_name
2403: ,g_pkg_name
2404: ,'OKL_API.G_RET_STS_ERROR'
2405: ,x_msg_count
2398: -- No action necessary. Validation can continue to next attribute/column
2399:
2400: NULL;
2401: WHEN okl_api.g_exception_error THEN
2402: x_return_status := okl_api.handle_exceptions(l_api_name
2403: ,g_pkg_name
2404: ,'OKL_API.G_RET_STS_ERROR'
2405: ,x_msg_count
2406: ,x_msg_data
2400: NULL;
2401: WHEN okl_api.g_exception_error THEN
2402: x_return_status := okl_api.handle_exceptions(l_api_name
2403: ,g_pkg_name
2404: ,'OKL_API.G_RET_STS_ERROR'
2405: ,x_msg_count
2406: ,x_msg_data
2407: ,'_PVT');
2408: WHEN okl_api.g_exception_unexpected_error THEN
2404: ,'OKL_API.G_RET_STS_ERROR'
2405: ,x_msg_count
2406: ,x_msg_data
2407: ,'_PVT');
2408: WHEN okl_api.g_exception_unexpected_error THEN
2409: x_return_status := okl_api.handle_exceptions(l_api_name
2410: ,g_pkg_name
2411: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2412: ,x_msg_count
2405: ,x_msg_count
2406: ,x_msg_data
2407: ,'_PVT');
2408: WHEN okl_api.g_exception_unexpected_error THEN
2409: x_return_status := okl_api.handle_exceptions(l_api_name
2410: ,g_pkg_name
2411: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2412: ,x_msg_count
2413: ,x_msg_data
2407: ,'_PVT');
2408: WHEN okl_api.g_exception_unexpected_error THEN
2409: x_return_status := okl_api.handle_exceptions(l_api_name
2410: ,g_pkg_name
2411: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2412: ,x_msg_count
2413: ,x_msg_data
2414: ,'_PVT');
2415: WHEN OTHERS THEN
2412: ,x_msg_count
2413: ,x_msg_data
2414: ,'_PVT');
2415: WHEN OTHERS THEN
2416: x_return_status := okl_api.handle_exceptions(l_api_name
2417: ,g_pkg_name
2418: ,'OTHERS'
2419: ,x_msg_count
2420: ,x_msg_data
2425: -- Procedure update_row_b
2426: --------------------------------------------------------------------------------
2427:
2428: PROCEDURE update_row(p_api_version IN NUMBER
2429: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
2430: ,x_return_status OUT NOCOPY VARCHAR2
2431: ,x_msg_count OUT NOCOPY NUMBER
2432: ,x_msg_data OUT NOCOPY VARCHAR2
2433: ,p_srtb_rec IN okl_srtb_rec
2433: ,p_srtb_rec IN okl_srtb_rec
2434: ,x_srtb_rec OUT NOCOPY okl_srtb_rec) IS
2435: l_api_version CONSTANT NUMBER := 1;
2436: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
2437: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2438: l_srtb_rec okl_srtb_rec := p_srtb_rec;
2439: l_def_srtb_rec okl_srtb_rec;
2440: l_row_notfound BOOLEAN := true;
2441:
2440: l_row_notfound BOOLEAN := true;
2441:
2442: FUNCTION set_attributes(p_srtb_rec IN okl_srtb_rec
2443: ,x_srtb_rec OUT NOCOPY okl_srtb_rec) RETURN VARCHAR2 IS
2444: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2445:
2446: BEGIN
2447: x_srtb_rec := p_srtb_rec;
2448: RETURN(l_return_status);
2448: RETURN(l_return_status);
2449: END set_attributes;
2450:
2451: BEGIN
2452: l_return_status := okl_api.start_activity(l_api_name
2453: ,g_pkg_name
2454: ,p_init_msg_list
2455: ,l_api_version
2456: ,p_api_version
2456: ,p_api_version
2457: ,'_PVT'
2458: ,x_return_status);
2459:
2460: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2461: RAISE okl_api.g_exception_unexpected_error;
2462: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2463: RAISE okl_api.g_exception_error;
2464: END IF;
2457: ,'_PVT'
2458: ,x_return_status);
2459:
2460: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2461: RAISE okl_api.g_exception_unexpected_error;
2462: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2463: RAISE okl_api.g_exception_error;
2464: END IF;
2465:
2458: ,x_return_status);
2459:
2460: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2461: RAISE okl_api.g_exception_unexpected_error;
2462: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2463: RAISE okl_api.g_exception_error;
2464: END IF;
2465:
2466: --Setting Item Attributes
2459:
2460: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2461: RAISE okl_api.g_exception_unexpected_error;
2462: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2463: RAISE okl_api.g_exception_error;
2464: END IF;
2465:
2466: --Setting Item Attributes
2467:
2467:
2468: l_return_status := set_attributes(p_srtb_rec
2469: ,l_def_srtb_rec);
2470:
2471: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2472: RAISE okl_api.g_exception_unexpected_error;
2473: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2474: RAISE okl_api.g_exception_error;
2475: END IF;
2468: l_return_status := set_attributes(p_srtb_rec
2469: ,l_def_srtb_rec);
2470:
2471: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2472: RAISE okl_api.g_exception_unexpected_error;
2473: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2474: RAISE okl_api.g_exception_error;
2475: END IF;
2476:
2469: ,l_def_srtb_rec);
2470:
2471: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2472: RAISE okl_api.g_exception_unexpected_error;
2473: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2474: RAISE okl_api.g_exception_error;
2475: END IF;
2476:
2477: UPDATE okl_fe_std_rt_tmp_all_b
2470:
2471: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2472: RAISE okl_api.g_exception_unexpected_error;
2473: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2474: RAISE okl_api.g_exception_error;
2475: END IF;
2476:
2477: UPDATE okl_fe_std_rt_tmp_all_b
2478: SET std_rate_tmpl_id = l_def_srtb_rec.std_rate_tmpl_id
2516:
2517: --Set OUT Values
2518:
2519: x_srtb_rec := l_srtb_rec;
2520: okl_api.end_activity(x_msg_count
2521: ,x_msg_data);
2522: EXCEPTION
2523: WHEN g_exception_halt_validation THEN
2524:
2524:
2525: -- No action necessary. Validation can continue to next attribute/column
2526:
2527: NULL;
2528: WHEN okl_api.g_exception_error THEN
2529: x_return_status := okl_api.handle_exceptions(l_api_name
2530: ,g_pkg_name
2531: ,'OKL_API.G_RET_STS_ERROR'
2532: ,x_msg_count
2525: -- No action necessary. Validation can continue to next attribute/column
2526:
2527: NULL;
2528: WHEN okl_api.g_exception_error THEN
2529: x_return_status := okl_api.handle_exceptions(l_api_name
2530: ,g_pkg_name
2531: ,'OKL_API.G_RET_STS_ERROR'
2532: ,x_msg_count
2533: ,x_msg_data
2527: NULL;
2528: WHEN okl_api.g_exception_error THEN
2529: x_return_status := okl_api.handle_exceptions(l_api_name
2530: ,g_pkg_name
2531: ,'OKL_API.G_RET_STS_ERROR'
2532: ,x_msg_count
2533: ,x_msg_data
2534: ,'_PVT');
2535: WHEN okl_api.g_exception_unexpected_error THEN
2531: ,'OKL_API.G_RET_STS_ERROR'
2532: ,x_msg_count
2533: ,x_msg_data
2534: ,'_PVT');
2535: WHEN okl_api.g_exception_unexpected_error THEN
2536: x_return_status := okl_api.handle_exceptions(l_api_name
2537: ,g_pkg_name
2538: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2539: ,x_msg_count
2532: ,x_msg_count
2533: ,x_msg_data
2534: ,'_PVT');
2535: WHEN okl_api.g_exception_unexpected_error THEN
2536: x_return_status := okl_api.handle_exceptions(l_api_name
2537: ,g_pkg_name
2538: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2539: ,x_msg_count
2540: ,x_msg_data
2534: ,'_PVT');
2535: WHEN okl_api.g_exception_unexpected_error THEN
2536: x_return_status := okl_api.handle_exceptions(l_api_name
2537: ,g_pkg_name
2538: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2539: ,x_msg_count
2540: ,x_msg_data
2541: ,'_PVT');
2542: WHEN OTHERS THEN
2539: ,x_msg_count
2540: ,x_msg_data
2541: ,'_PVT');
2542: WHEN OTHERS THEN
2543: x_return_status := okl_api.handle_exceptions(l_api_name
2544: ,g_pkg_name
2545: ,'OTHERS'
2546: ,x_msg_count
2547: ,x_msg_data
2552: -- Procedure update_row_tl
2553: --------------------------------------------------------------------------------
2554:
2555: PROCEDURE update_row(p_api_version IN NUMBER
2556: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
2557: ,x_return_status OUT NOCOPY VARCHAR2
2558: ,x_msg_count OUT NOCOPY NUMBER
2559: ,x_msg_data OUT NOCOPY VARCHAR2
2560: ,p_srttl_rec IN okl_srttl_rec
2560: ,p_srttl_rec IN okl_srttl_rec
2561: ,x_srttl_rec OUT NOCOPY okl_srttl_rec) IS
2562: l_api_version CONSTANT NUMBER := 1;
2563: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
2564: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2565: l_srttl_rec okl_srttl_rec := p_srttl_rec;
2566: l_def_srttl_rec okl_srttl_rec;
2567: l_row_notfound BOOLEAN := true;
2568:
2567: l_row_notfound BOOLEAN := true;
2568:
2569: FUNCTION set_attributes(p_srttl_rec IN okl_srttl_rec
2570: ,x_srttl_rec OUT NOCOPY okl_srttl_rec) RETURN VARCHAR2 IS
2571: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2572:
2573: BEGIN
2574: x_srttl_rec := p_srttl_rec;
2575: x_srttl_rec.language := USERENV('LANG');
2578: RETURN(l_return_status);
2579: END set_attributes;
2580:
2581: BEGIN
2582: l_return_status := okl_api.start_activity(l_api_name
2583: ,g_pkg_name
2584: ,p_init_msg_list
2585: ,l_api_version
2586: ,p_api_version
2586: ,p_api_version
2587: ,'_PVT'
2588: ,x_return_status);
2589:
2590: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2591: RAISE okl_api.g_exception_unexpected_error;
2592: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2593: RAISE okl_api.g_exception_error;
2594: END IF;
2587: ,'_PVT'
2588: ,x_return_status);
2589:
2590: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2591: RAISE okl_api.g_exception_unexpected_error;
2592: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2593: RAISE okl_api.g_exception_error;
2594: END IF;
2595:
2588: ,x_return_status);
2589:
2590: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2591: RAISE okl_api.g_exception_unexpected_error;
2592: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2593: RAISE okl_api.g_exception_error;
2594: END IF;
2595:
2596: --Setting Item Attributes
2589:
2590: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2591: RAISE okl_api.g_exception_unexpected_error;
2592: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2593: RAISE okl_api.g_exception_error;
2594: END IF;
2595:
2596: --Setting Item Attributes
2597:
2597:
2598: l_return_status := set_attributes(p_srttl_rec
2599: ,l_def_srttl_rec);
2600:
2601: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2602: RAISE okl_api.g_exception_unexpected_error;
2603: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2604: RAISE okl_api.g_exception_error;
2605: END IF;
2598: l_return_status := set_attributes(p_srttl_rec
2599: ,l_def_srttl_rec);
2600:
2601: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2602: RAISE okl_api.g_exception_unexpected_error;
2603: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2604: RAISE okl_api.g_exception_error;
2605: END IF;
2606:
2599: ,l_def_srttl_rec);
2600:
2601: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2602: RAISE okl_api.g_exception_unexpected_error;
2603: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2604: RAISE okl_api.g_exception_error;
2605: END IF;
2606:
2607: UPDATE okl_fe_std_rt_tmp_all_tl
2600:
2601: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2602: RAISE okl_api.g_exception_unexpected_error;
2603: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2604: RAISE okl_api.g_exception_error;
2605: END IF;
2606:
2607: UPDATE okl_fe_std_rt_tmp_all_tl
2608: SET std_rate_tmpl_id = l_def_srttl_rec.std_rate_tmpl_id
2625:
2626: --Set OUT Values
2627:
2628: x_srttl_rec := l_srttl_rec;
2629: okl_api.end_activity(x_msg_count
2630: ,x_msg_data);
2631: EXCEPTION
2632: WHEN g_exception_halt_validation THEN
2633:
2633:
2634: -- No action necessary. Validation can continue to next attribute/column
2635:
2636: NULL;
2637: WHEN okl_api.g_exception_error THEN
2638: x_return_status := okl_api.handle_exceptions(l_api_name
2639: ,g_pkg_name
2640: ,'OKL_API.G_RET_STS_ERROR'
2641: ,x_msg_count
2634: -- No action necessary. Validation can continue to next attribute/column
2635:
2636: NULL;
2637: WHEN okl_api.g_exception_error THEN
2638: x_return_status := okl_api.handle_exceptions(l_api_name
2639: ,g_pkg_name
2640: ,'OKL_API.G_RET_STS_ERROR'
2641: ,x_msg_count
2642: ,x_msg_data
2636: NULL;
2637: WHEN okl_api.g_exception_error THEN
2638: x_return_status := okl_api.handle_exceptions(l_api_name
2639: ,g_pkg_name
2640: ,'OKL_API.G_RET_STS_ERROR'
2641: ,x_msg_count
2642: ,x_msg_data
2643: ,'_PVT');
2644: WHEN okl_api.g_exception_unexpected_error THEN
2640: ,'OKL_API.G_RET_STS_ERROR'
2641: ,x_msg_count
2642: ,x_msg_data
2643: ,'_PVT');
2644: WHEN okl_api.g_exception_unexpected_error THEN
2645: x_return_status := okl_api.handle_exceptions(l_api_name
2646: ,g_pkg_name
2647: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2648: ,x_msg_count
2641: ,x_msg_count
2642: ,x_msg_data
2643: ,'_PVT');
2644: WHEN okl_api.g_exception_unexpected_error THEN
2645: x_return_status := okl_api.handle_exceptions(l_api_name
2646: ,g_pkg_name
2647: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2648: ,x_msg_count
2649: ,x_msg_data
2643: ,'_PVT');
2644: WHEN okl_api.g_exception_unexpected_error THEN
2645: x_return_status := okl_api.handle_exceptions(l_api_name
2646: ,g_pkg_name
2647: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
2648: ,x_msg_count
2649: ,x_msg_data
2650: ,'_PVT');
2651: WHEN OTHERS THEN
2648: ,x_msg_count
2649: ,x_msg_data
2650: ,'_PVT');
2651: WHEN OTHERS THEN
2652: x_return_status := okl_api.handle_exceptions(l_api_name
2653: ,g_pkg_name
2654: ,'OTHERS'
2655: ,x_msg_count
2656: ,x_msg_data
2661: -- Procedure insert_row_v
2662: --------------------------------------------------------------------------------
2663:
2664: PROCEDURE update_row(p_api_version IN NUMBER
2665: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
2666: ,x_return_status OUT NOCOPY VARCHAR2
2667: ,x_msg_count OUT NOCOPY NUMBER
2668: ,x_msg_data OUT NOCOPY VARCHAR2
2669: ,p_srtv_rec IN okl_srtv_rec
2669: ,p_srtv_rec IN okl_srtv_rec
2670: ,x_srtv_rec OUT NOCOPY okl_srtv_rec) IS
2671: l_api_version CONSTANT NUMBER := 1;
2672: l_api_name CONSTANT VARCHAR2(30) := 'v_insert_row';
2673: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2674: l_srtv_rec okl_srtv_rec := p_srtv_rec;
2675: l_def_srtv_rec okl_srtv_rec;
2676: lx_srtv_rec okl_srtv_rec;
2677: l_srtb_rec okl_srtb_rec;
2692: FUNCTION populate_new_record(p_srtv_rec IN okl_srtv_rec
2693: ,x_srtv_rec OUT NOCOPY okl_srtv_rec) RETURN VARCHAR2 IS
2694: l_srtv_rec okl_srtv_rec;
2695: l_row_notfound BOOLEAN := true;
2696: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2697:
2698: BEGIN
2699: x_srtv_rec := p_srtv_rec;
2700:
2703: l_srtv_rec := get_rec(p_srtv_rec
2704: ,l_row_notfound);
2705:
2706: IF (l_row_notfound) THEN
2707: l_return_status := okl_api.g_ret_sts_unexp_error;
2708: END IF;
2709:
2710: IF (x_srtv_rec.std_rate_tmpl_id IS NULL) THEN
2711: x_srtv_rec.std_rate_tmpl_id := l_srtv_rec.std_rate_tmpl_id;
2862: END populate_new_record;
2863:
2864: FUNCTION set_attributes(p_srtv_rec IN okl_srtv_rec
2865: ,x_srtv_rec OUT NOCOPY okl_srtv_rec) RETURN VARCHAR2 IS
2866: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
2867:
2868: BEGIN
2869: x_srtv_rec := p_srtv_rec;
2870: RETURN(l_return_status);
2870: RETURN(l_return_status);
2871: END set_attributes;
2872:
2873: BEGIN
2874: l_return_status := okl_api.start_activity(l_api_name
2875: ,g_pkg_name
2876: ,p_init_msg_list
2877: ,l_api_version
2878: ,p_api_version
2878: ,p_api_version
2879: ,'_PVT'
2880: ,x_return_status);
2881:
2882: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2883: RAISE okl_api.g_exception_unexpected_error;
2884: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2885: RAISE okl_api.g_exception_error;
2886: END IF;
2879: ,'_PVT'
2880: ,x_return_status);
2881:
2882: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2883: RAISE okl_api.g_exception_unexpected_error;
2884: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2885: RAISE okl_api.g_exception_error;
2886: END IF;
2887:
2880: ,x_return_status);
2881:
2882: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2883: RAISE okl_api.g_exception_unexpected_error;
2884: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2885: RAISE okl_api.g_exception_error;
2886: END IF;
2887:
2888: --Setting Item Attributes
2881:
2882: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2883: RAISE okl_api.g_exception_unexpected_error;
2884: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2885: RAISE okl_api.g_exception_error;
2886: END IF;
2887:
2888: --Setting Item Attributes
2889:
2889:
2890: l_return_status := set_attributes(l_srtv_rec
2891: ,lx_srtv_rec);
2892:
2893: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2894: RAISE okl_api.g_exception_unexpected_error;
2895: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2896: RAISE okl_api.g_exception_error;
2897: END IF;
2890: l_return_status := set_attributes(l_srtv_rec
2891: ,lx_srtv_rec);
2892:
2893: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2894: RAISE okl_api.g_exception_unexpected_error;
2895: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2896: RAISE okl_api.g_exception_error;
2897: END IF;
2898: l_return_status := populate_new_record(lx_srtv_rec
2891: ,lx_srtv_rec);
2892:
2893: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2894: RAISE okl_api.g_exception_unexpected_error;
2895: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2896: RAISE okl_api.g_exception_error;
2897: END IF;
2898: l_return_status := populate_new_record(lx_srtv_rec
2899: ,l_def_srtv_rec);
2892:
2893: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2894: RAISE okl_api.g_exception_unexpected_error;
2895: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2896: RAISE okl_api.g_exception_error;
2897: END IF;
2898: l_return_status := populate_new_record(lx_srtv_rec
2899: ,l_def_srtv_rec);
2900:
2897: END IF;
2898: l_return_status := populate_new_record(lx_srtv_rec
2899: ,l_def_srtv_rec);
2900:
2901: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2902: RAISE okl_api.g_exception_unexpected_error;
2903: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2904: RAISE okl_api.g_exception_error;
2905: END IF;
2898: l_return_status := populate_new_record(lx_srtv_rec
2899: ,l_def_srtv_rec);
2900:
2901: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2902: RAISE okl_api.g_exception_unexpected_error;
2903: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2904: RAISE okl_api.g_exception_error;
2905: END IF;
2906: l_def_srtv_rec := null_out_defaults(l_def_srtv_rec);
2899: ,l_def_srtv_rec);
2900:
2901: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2902: RAISE okl_api.g_exception_unexpected_error;
2903: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2904: RAISE okl_api.g_exception_error;
2905: END IF;
2906: l_def_srtv_rec := null_out_defaults(l_def_srtv_rec);
2907:
2900:
2901: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2902: RAISE okl_api.g_exception_unexpected_error;
2903: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2904: RAISE okl_api.g_exception_error;
2905: END IF;
2906: l_def_srtv_rec := null_out_defaults(l_def_srtv_rec);
2907:
2908: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2904: RAISE okl_api.g_exception_error;
2905: END IF;
2906: l_def_srtv_rec := null_out_defaults(l_def_srtv_rec);
2907:
2908: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2909: RAISE okl_api.g_exception_unexpected_error;
2910: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2911: RAISE okl_api.g_exception_error;
2912: END IF;
2905: END IF;
2906: l_def_srtv_rec := null_out_defaults(l_def_srtv_rec);
2907:
2908: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2909: RAISE okl_api.g_exception_unexpected_error;
2910: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2911: RAISE okl_api.g_exception_error;
2912: END IF;
2913: l_def_srtv_rec := fill_who_columns(l_def_srtv_rec);
2906: l_def_srtv_rec := null_out_defaults(l_def_srtv_rec);
2907:
2908: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2909: RAISE okl_api.g_exception_unexpected_error;
2910: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2911: RAISE okl_api.g_exception_error;
2912: END IF;
2913: l_def_srtv_rec := fill_who_columns(l_def_srtv_rec);
2914: l_return_status := validate_attributes(l_def_srtv_rec);
2907:
2908: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2909: RAISE okl_api.g_exception_unexpected_error;
2910: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2911: RAISE okl_api.g_exception_error;
2912: END IF;
2913: l_def_srtv_rec := fill_who_columns(l_def_srtv_rec);
2914: l_return_status := validate_attributes(l_def_srtv_rec);
2915:
2912: END IF;
2913: l_def_srtv_rec := fill_who_columns(l_def_srtv_rec);
2914: l_return_status := validate_attributes(l_def_srtv_rec);
2915:
2916: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2917: RAISE okl_api.g_exception_unexpected_error;
2918: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2919: RAISE okl_api.g_exception_error;
2920: END IF;
2913: l_def_srtv_rec := fill_who_columns(l_def_srtv_rec);
2914: l_return_status := validate_attributes(l_def_srtv_rec);
2915:
2916: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2917: RAISE okl_api.g_exception_unexpected_error;
2918: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2919: RAISE okl_api.g_exception_error;
2920: END IF;
2921: l_return_status := validate_record(l_def_srtv_rec);
2914: l_return_status := validate_attributes(l_def_srtv_rec);
2915:
2916: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2917: RAISE okl_api.g_exception_unexpected_error;
2918: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2919: RAISE okl_api.g_exception_error;
2920: END IF;
2921: l_return_status := validate_record(l_def_srtv_rec);
2922:
2915:
2916: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2917: RAISE okl_api.g_exception_unexpected_error;
2918: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2919: RAISE okl_api.g_exception_error;
2920: END IF;
2921: l_return_status := validate_record(l_def_srtv_rec);
2922:
2923: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2919: RAISE okl_api.g_exception_error;
2920: END IF;
2921: l_return_status := validate_record(l_def_srtv_rec);
2922:
2923: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2924: RAISE okl_api.g_exception_unexpected_error;
2925: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2926: RAISE okl_api.g_exception_error;
2927: END IF;
2920: END IF;
2921: l_return_status := validate_record(l_def_srtv_rec);
2922:
2923: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2924: RAISE okl_api.g_exception_unexpected_error;
2925: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2926: RAISE okl_api.g_exception_error;
2927: END IF;
2928:
2921: l_return_status := validate_record(l_def_srtv_rec);
2922:
2923: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2924: RAISE okl_api.g_exception_unexpected_error;
2925: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2926: RAISE okl_api.g_exception_error;
2927: END IF;
2928:
2929: --lock the row
2922:
2923: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2924: RAISE okl_api.g_exception_unexpected_error;
2925: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2926: RAISE okl_api.g_exception_error;
2927: END IF;
2928:
2929: --lock the row
2930:
2928:
2929: --lock the row
2930:
2931: lock_row(p_api_version => l_api_version
2932: ,p_init_msg_list => okl_api.g_false
2933: ,x_return_status => l_return_status
2934: ,x_msg_count => x_msg_count
2935: ,x_msg_data => x_msg_data
2936: ,p_srtv_rec => l_def_srtv_rec);
2934: ,x_msg_count => x_msg_count
2935: ,x_msg_data => x_msg_data
2936: ,p_srtv_rec => l_def_srtv_rec);
2937:
2938: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2939: RAISE okl_api.g_exception_unexpected_error;
2940: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2941: RAISE okl_api.g_exception_error;
2942: END IF;
2935: ,x_msg_data => x_msg_data
2936: ,p_srtv_rec => l_def_srtv_rec);
2937:
2938: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2939: RAISE okl_api.g_exception_unexpected_error;
2940: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2941: RAISE okl_api.g_exception_error;
2942: END IF;
2943: migrate(l_def_srtv_rec
2936: ,p_srtv_rec => l_def_srtv_rec);
2937:
2938: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2939: RAISE okl_api.g_exception_unexpected_error;
2940: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2941: RAISE okl_api.g_exception_error;
2942: END IF;
2943: migrate(l_def_srtv_rec
2944: ,l_srtb_rec);
2937:
2938: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2939: RAISE okl_api.g_exception_unexpected_error;
2940: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2941: RAISE okl_api.g_exception_error;
2942: END IF;
2943: migrate(l_def_srtv_rec
2944: ,l_srtb_rec);
2945: migrate(l_def_srtv_rec
2951: ,x_msg_data
2952: ,l_srtb_rec
2953: ,lx_srtb_rec);
2954:
2955: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2956: RAISE okl_api.g_exception_unexpected_error;
2957: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2958: RAISE okl_api.g_exception_error;
2959: END IF;
2952: ,l_srtb_rec
2953: ,lx_srtb_rec);
2954:
2955: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2956: RAISE okl_api.g_exception_unexpected_error;
2957: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2958: RAISE okl_api.g_exception_error;
2959: END IF;
2960: migrate(lx_srtb_rec
2953: ,lx_srtb_rec);
2954:
2955: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2956: RAISE okl_api.g_exception_unexpected_error;
2957: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2958: RAISE okl_api.g_exception_error;
2959: END IF;
2960: migrate(lx_srtb_rec
2961: ,l_def_srtv_rec);
2954:
2955: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2956: RAISE okl_api.g_exception_unexpected_error;
2957: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2958: RAISE okl_api.g_exception_error;
2959: END IF;
2960: migrate(lx_srtb_rec
2961: ,l_def_srtv_rec);
2962: update_row(p_api_version
2966: ,x_msg_data
2967: ,l_srttl_rec
2968: ,lx_srttl_rec);
2969:
2970: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2971: RAISE okl_api.g_exception_unexpected_error;
2972: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2973: RAISE okl_api.g_exception_error;
2974: END IF;
2967: ,l_srttl_rec
2968: ,lx_srttl_rec);
2969:
2970: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2971: RAISE okl_api.g_exception_unexpected_error;
2972: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2973: RAISE okl_api.g_exception_error;
2974: END IF;
2975: migrate(lx_srttl_rec
2968: ,lx_srttl_rec);
2969:
2970: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2971: RAISE okl_api.g_exception_unexpected_error;
2972: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2973: RAISE okl_api.g_exception_error;
2974: END IF;
2975: migrate(lx_srttl_rec
2976: ,l_def_srtv_rec);
2969:
2970: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
2971: RAISE okl_api.g_exception_unexpected_error;
2972: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
2973: RAISE okl_api.g_exception_error;
2974: END IF;
2975: migrate(lx_srttl_rec
2976: ,l_def_srtv_rec);
2977:
2978: --Set OUT Values
2979:
2980: x_srtv_rec := l_def_srtv_rec;
2981: x_return_status := l_return_status;
2982: okl_api.end_activity(x_msg_count
2983: ,x_msg_data);
2984: EXCEPTION
2985: WHEN g_exception_halt_validation THEN
2986:
2986:
2987: -- No action necessary. Validation can continue to next attribute/column
2988:
2989: NULL;
2990: WHEN okl_api.g_exception_error THEN
2991: x_return_status := okl_api.handle_exceptions(l_api_name
2992: ,g_pkg_name
2993: ,'OKL_API.G_RET_STS_ERROR'
2994: ,x_msg_count
2987: -- No action necessary. Validation can continue to next attribute/column
2988:
2989: NULL;
2990: WHEN okl_api.g_exception_error THEN
2991: x_return_status := okl_api.handle_exceptions(l_api_name
2992: ,g_pkg_name
2993: ,'OKL_API.G_RET_STS_ERROR'
2994: ,x_msg_count
2995: ,x_msg_data
2989: NULL;
2990: WHEN okl_api.g_exception_error THEN
2991: x_return_status := okl_api.handle_exceptions(l_api_name
2992: ,g_pkg_name
2993: ,'OKL_API.G_RET_STS_ERROR'
2994: ,x_msg_count
2995: ,x_msg_data
2996: ,'_PVT');
2997: WHEN okl_api.g_exception_unexpected_error THEN
2993: ,'OKL_API.G_RET_STS_ERROR'
2994: ,x_msg_count
2995: ,x_msg_data
2996: ,'_PVT');
2997: WHEN okl_api.g_exception_unexpected_error THEN
2998: x_return_status := okl_api.handle_exceptions(l_api_name
2999: ,g_pkg_name
3000: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3001: ,x_msg_count
2994: ,x_msg_count
2995: ,x_msg_data
2996: ,'_PVT');
2997: WHEN okl_api.g_exception_unexpected_error THEN
2998: x_return_status := okl_api.handle_exceptions(l_api_name
2999: ,g_pkg_name
3000: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3001: ,x_msg_count
3002: ,x_msg_data
2996: ,'_PVT');
2997: WHEN okl_api.g_exception_unexpected_error THEN
2998: x_return_status := okl_api.handle_exceptions(l_api_name
2999: ,g_pkg_name
3000: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3001: ,x_msg_count
3002: ,x_msg_data
3003: ,'_PVT');
3004: WHEN OTHERS THEN
3001: ,x_msg_count
3002: ,x_msg_data
3003: ,'_PVT');
3004: WHEN OTHERS THEN
3005: x_return_status := okl_api.handle_exceptions(l_api_name
3006: ,g_pkg_name
3007: ,'OTHERS'
3008: ,x_msg_count
3009: ,x_msg_data
3014: -- Procedure insert_row_tbl
3015: --------------------------------------------------------------------------------
3016:
3017: PROCEDURE update_row(p_api_version IN NUMBER
3018: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
3019: ,x_return_status OUT NOCOPY VARCHAR2
3020: ,x_msg_count OUT NOCOPY NUMBER
3021: ,x_msg_data OUT NOCOPY VARCHAR2
3022: ,p_srtv_tbl IN okl_srtv_tbl
3022: ,p_srtv_tbl IN okl_srtv_tbl
3023: ,x_srtv_tbl OUT NOCOPY okl_srtv_tbl) IS
3024: l_api_version CONSTANT NUMBER := 1;
3025: l_api_name CONSTANT VARCHAR2(30) := 'v_update_row';
3026: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3027: i NUMBER := 0;
3028: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3029:
3030: BEGIN
3024: l_api_version CONSTANT NUMBER := 1;
3025: l_api_name CONSTANT VARCHAR2(30) := 'v_update_row';
3026: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3027: i NUMBER := 0;
3028: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3029:
3030: BEGIN
3031: okl_api.init_msg_list(p_init_msg_list);
3032:
3027: i NUMBER := 0;
3028: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3029:
3030: BEGIN
3031: okl_api.init_msg_list(p_init_msg_list);
3032:
3033: -- Make sure PL/SQL table has records in it before passing
3034:
3035: IF (p_srtv_tbl.COUNT > 0) THEN
3036: i := p_srtv_tbl.FIRST;
3037:
3038: LOOP
3039: update_row(p_api_version => p_api_version
3040: ,p_init_msg_list => okl_api.g_false
3041: ,x_return_status => x_return_status
3042: ,x_msg_count => x_msg_count
3043: ,x_msg_data => x_msg_data
3044: ,p_srtv_rec => p_srtv_tbl(i)
3042: ,x_msg_count => x_msg_count
3043: ,x_msg_data => x_msg_data
3044: ,p_srtv_rec => p_srtv_tbl(i)
3045: ,x_srtv_rec => x_srtv_tbl(i));
3046: IF x_return_status <> okl_api.g_ret_sts_success THEN
3047: IF l_overall_status <> okl_api.g_ret_sts_unexp_error THEN
3048: l_overall_status := x_return_status;
3049: END IF;
3050: END IF;
3043: ,x_msg_data => x_msg_data
3044: ,p_srtv_rec => p_srtv_tbl(i)
3045: ,x_srtv_rec => x_srtv_tbl(i));
3046: IF x_return_status <> okl_api.g_ret_sts_success THEN
3047: IF l_overall_status <> okl_api.g_ret_sts_unexp_error THEN
3048: l_overall_status := x_return_status;
3049: END IF;
3050: END IF;
3051: EXIT WHEN(i = p_srtv_tbl.LAST);
3059:
3060: -- No action necessary. Validation can continue to next attribute/column
3061:
3062: NULL;
3063: WHEN okl_api.g_exception_error THEN
3064: x_return_status := okl_api.handle_exceptions(l_api_name
3065: ,g_pkg_name
3066: ,'OKL_API.G_RET_STS_ERROR'
3067: ,x_msg_count
3060: -- No action necessary. Validation can continue to next attribute/column
3061:
3062: NULL;
3063: WHEN okl_api.g_exception_error THEN
3064: x_return_status := okl_api.handle_exceptions(l_api_name
3065: ,g_pkg_name
3066: ,'OKL_API.G_RET_STS_ERROR'
3067: ,x_msg_count
3068: ,x_msg_data
3062: NULL;
3063: WHEN okl_api.g_exception_error THEN
3064: x_return_status := okl_api.handle_exceptions(l_api_name
3065: ,g_pkg_name
3066: ,'OKL_API.G_RET_STS_ERROR'
3067: ,x_msg_count
3068: ,x_msg_data
3069: ,'_PVT');
3070: WHEN okl_api.g_exception_unexpected_error THEN
3066: ,'OKL_API.G_RET_STS_ERROR'
3067: ,x_msg_count
3068: ,x_msg_data
3069: ,'_PVT');
3070: WHEN okl_api.g_exception_unexpected_error THEN
3071: x_return_status := okl_api.handle_exceptions(l_api_name
3072: ,g_pkg_name
3073: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3074: ,x_msg_count
3067: ,x_msg_count
3068: ,x_msg_data
3069: ,'_PVT');
3070: WHEN okl_api.g_exception_unexpected_error THEN
3071: x_return_status := okl_api.handle_exceptions(l_api_name
3072: ,g_pkg_name
3073: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3074: ,x_msg_count
3075: ,x_msg_data
3069: ,'_PVT');
3070: WHEN okl_api.g_exception_unexpected_error THEN
3071: x_return_status := okl_api.handle_exceptions(l_api_name
3072: ,g_pkg_name
3073: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3074: ,x_msg_count
3075: ,x_msg_data
3076: ,'_PVT');
3077: WHEN OTHERS THEN
3074: ,x_msg_count
3075: ,x_msg_data
3076: ,'_PVT');
3077: WHEN OTHERS THEN
3078: x_return_status := okl_api.handle_exceptions(l_api_name
3079: ,g_pkg_name
3080: ,'OTHERS'
3081: ,x_msg_count
3082: ,x_msg_data
3087: -- Procedure delete_row_b
3088: --------------------------------------------------------------------------------
3089:
3090: PROCEDURE delete_row(p_api_version IN NUMBER
3091: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
3092: ,x_return_status OUT NOCOPY VARCHAR2
3093: ,x_msg_count OUT NOCOPY NUMBER
3094: ,x_msg_data OUT NOCOPY VARCHAR2
3095: ,p_srtb_rec IN okl_srtb_rec) IS
3094: ,x_msg_data OUT NOCOPY VARCHAR2
3095: ,p_srtb_rec IN okl_srtb_rec) IS
3096: l_api_version CONSTANT NUMBER := 1;
3097: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
3098: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3099: l_srtb_rec okl_srtb_rec := p_srtb_rec;
3100: l_row_notfound BOOLEAN := true;
3101:
3102: BEGIN
3099: l_srtb_rec okl_srtb_rec := p_srtb_rec;
3100: l_row_notfound BOOLEAN := true;
3101:
3102: BEGIN
3103: l_return_status := okl_api.start_activity(l_api_name
3104: ,g_pkg_name
3105: ,p_init_msg_list
3106: ,l_api_version
3107: ,p_api_version
3107: ,p_api_version
3108: ,'_PVT'
3109: ,x_return_status);
3110:
3111: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3112: RAISE okl_api.g_exception_unexpected_error;
3113: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3114: RAISE okl_api.g_exception_error;
3115: END IF;
3108: ,'_PVT'
3109: ,x_return_status);
3110:
3111: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3112: RAISE okl_api.g_exception_unexpected_error;
3113: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3114: RAISE okl_api.g_exception_error;
3115: END IF;
3116:
3109: ,x_return_status);
3110:
3111: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3112: RAISE okl_api.g_exception_unexpected_error;
3113: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3114: RAISE okl_api.g_exception_error;
3115: END IF;
3116:
3117: DELETE FROM okl_fe_std_rt_tmp_all_b
3110:
3111: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3112: RAISE okl_api.g_exception_unexpected_error;
3113: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3114: RAISE okl_api.g_exception_error;
3115: END IF;
3116:
3117: DELETE FROM okl_fe_std_rt_tmp_all_b
3118: WHERE std_rate_tmpl_id = l_srtb_rec.std_rate_tmpl_id;
3122:
3123: -- No action necessary. Validation can continue to next attribute/column
3124:
3125: NULL;
3126: WHEN okl_api.g_exception_error THEN
3127: x_return_status := okl_api.handle_exceptions(l_api_name
3128: ,g_pkg_name
3129: ,'OKL_API.G_RET_STS_ERROR'
3130: ,x_msg_count
3123: -- No action necessary. Validation can continue to next attribute/column
3124:
3125: NULL;
3126: WHEN okl_api.g_exception_error THEN
3127: x_return_status := okl_api.handle_exceptions(l_api_name
3128: ,g_pkg_name
3129: ,'OKL_API.G_RET_STS_ERROR'
3130: ,x_msg_count
3131: ,x_msg_data
3125: NULL;
3126: WHEN okl_api.g_exception_error THEN
3127: x_return_status := okl_api.handle_exceptions(l_api_name
3128: ,g_pkg_name
3129: ,'OKL_API.G_RET_STS_ERROR'
3130: ,x_msg_count
3131: ,x_msg_data
3132: ,'_PVT');
3133: WHEN okl_api.g_exception_unexpected_error THEN
3129: ,'OKL_API.G_RET_STS_ERROR'
3130: ,x_msg_count
3131: ,x_msg_data
3132: ,'_PVT');
3133: WHEN okl_api.g_exception_unexpected_error THEN
3134: x_return_status := okl_api.handle_exceptions(l_api_name
3135: ,g_pkg_name
3136: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3137: ,x_msg_count
3130: ,x_msg_count
3131: ,x_msg_data
3132: ,'_PVT');
3133: WHEN okl_api.g_exception_unexpected_error THEN
3134: x_return_status := okl_api.handle_exceptions(l_api_name
3135: ,g_pkg_name
3136: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3137: ,x_msg_count
3138: ,x_msg_data
3132: ,'_PVT');
3133: WHEN okl_api.g_exception_unexpected_error THEN
3134: x_return_status := okl_api.handle_exceptions(l_api_name
3135: ,g_pkg_name
3136: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3137: ,x_msg_count
3138: ,x_msg_data
3139: ,'_PVT');
3140: WHEN OTHERS THEN
3137: ,x_msg_count
3138: ,x_msg_data
3139: ,'_PVT');
3140: WHEN OTHERS THEN
3141: x_return_status := okl_api.handle_exceptions(l_api_name
3142: ,g_pkg_name
3143: ,'OTHERS'
3144: ,x_msg_count
3145: ,x_msg_data
3150: -- Procedure delete_row_tl
3151: --------------------------------------------------------------------------------
3152:
3153: PROCEDURE delete_row(p_api_version IN NUMBER
3154: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
3155: ,x_return_status OUT NOCOPY VARCHAR2
3156: ,x_msg_count OUT NOCOPY NUMBER
3157: ,x_msg_data OUT NOCOPY VARCHAR2
3158: ,p_srttl_rec IN okl_srttl_rec) IS
3157: ,x_msg_data OUT NOCOPY VARCHAR2
3158: ,p_srttl_rec IN okl_srttl_rec) IS
3159: l_api_version CONSTANT NUMBER := 1;
3160: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
3161: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3162: l_srttl_rec okl_srttl_rec := p_srttl_rec;
3163: l_row_notfound BOOLEAN := true;
3164:
3165: FUNCTION set_attributes(p_srttl_rec IN okl_srttl_rec
3163: l_row_notfound BOOLEAN := true;
3164:
3165: FUNCTION set_attributes(p_srttl_rec IN okl_srttl_rec
3166: ,x_srttl_rec OUT NOCOPY okl_srttl_rec) RETURN VARCHAR2 IS
3167: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3168:
3169: BEGIN
3170: x_srttl_rec := p_srttl_rec;
3171: x_srttl_rec.language := USERENV('LANG');
3173: RETURN(l_return_status);
3174: END set_attributes;
3175:
3176: BEGIN
3177: l_return_status := okl_api.start_activity(l_api_name
3178: ,g_pkg_name
3179: ,p_init_msg_list
3180: ,l_api_version
3181: ,p_api_version
3181: ,p_api_version
3182: ,'_PVT'
3183: ,x_return_status);
3184:
3185: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3186: RAISE okl_api.g_exception_unexpected_error;
3187: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3188: RAISE okl_api.g_exception_error;
3189: END IF;
3182: ,'_PVT'
3183: ,x_return_status);
3184:
3185: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3186: RAISE okl_api.g_exception_unexpected_error;
3187: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3188: RAISE okl_api.g_exception_error;
3189: END IF;
3190:
3183: ,x_return_status);
3184:
3185: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3186: RAISE okl_api.g_exception_unexpected_error;
3187: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3188: RAISE okl_api.g_exception_error;
3189: END IF;
3190:
3191: --Setting Item Attributes
3184:
3185: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3186: RAISE okl_api.g_exception_unexpected_error;
3187: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3188: RAISE okl_api.g_exception_error;
3189: END IF;
3190:
3191: --Setting Item Attributes
3192:
3192:
3193: l_return_status := set_attributes(p_srttl_rec
3194: ,l_srttl_rec);
3195:
3196: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3197: RAISE okl_api.g_exception_unexpected_error;
3198: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3199: RAISE okl_api.g_exception_error;
3200: END IF;
3193: l_return_status := set_attributes(p_srttl_rec
3194: ,l_srttl_rec);
3195:
3196: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3197: RAISE okl_api.g_exception_unexpected_error;
3198: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3199: RAISE okl_api.g_exception_error;
3200: END IF;
3201:
3194: ,l_srttl_rec);
3195:
3196: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3197: RAISE okl_api.g_exception_unexpected_error;
3198: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3199: RAISE okl_api.g_exception_error;
3200: END IF;
3201:
3202: DELETE FROM okl_fe_std_rt_tmp_all_tl
3195:
3196: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3197: RAISE okl_api.g_exception_unexpected_error;
3198: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3199: RAISE okl_api.g_exception_error;
3200: END IF;
3201:
3202: DELETE FROM okl_fe_std_rt_tmp_all_tl
3203: WHERE std_rate_tmpl_id = l_srttl_rec.std_rate_tmpl_id;
3207:
3208: -- No action necessary. Validation can continue to next attribute/column
3209:
3210: NULL;
3211: WHEN okl_api.g_exception_error THEN
3212: x_return_status := okl_api.handle_exceptions(l_api_name
3213: ,g_pkg_name
3214: ,'OKL_API.G_RET_STS_ERROR'
3215: ,x_msg_count
3208: -- No action necessary. Validation can continue to next attribute/column
3209:
3210: NULL;
3211: WHEN okl_api.g_exception_error THEN
3212: x_return_status := okl_api.handle_exceptions(l_api_name
3213: ,g_pkg_name
3214: ,'OKL_API.G_RET_STS_ERROR'
3215: ,x_msg_count
3216: ,x_msg_data
3210: NULL;
3211: WHEN okl_api.g_exception_error THEN
3212: x_return_status := okl_api.handle_exceptions(l_api_name
3213: ,g_pkg_name
3214: ,'OKL_API.G_RET_STS_ERROR'
3215: ,x_msg_count
3216: ,x_msg_data
3217: ,'_PVT');
3218: WHEN okl_api.g_exception_unexpected_error THEN
3214: ,'OKL_API.G_RET_STS_ERROR'
3215: ,x_msg_count
3216: ,x_msg_data
3217: ,'_PVT');
3218: WHEN okl_api.g_exception_unexpected_error THEN
3219: x_return_status := okl_api.handle_exceptions(l_api_name
3220: ,g_pkg_name
3221: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3222: ,x_msg_count
3215: ,x_msg_count
3216: ,x_msg_data
3217: ,'_PVT');
3218: WHEN okl_api.g_exception_unexpected_error THEN
3219: x_return_status := okl_api.handle_exceptions(l_api_name
3220: ,g_pkg_name
3221: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3222: ,x_msg_count
3223: ,x_msg_data
3217: ,'_PVT');
3218: WHEN okl_api.g_exception_unexpected_error THEN
3219: x_return_status := okl_api.handle_exceptions(l_api_name
3220: ,g_pkg_name
3221: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3222: ,x_msg_count
3223: ,x_msg_data
3224: ,'_PVT');
3225: WHEN OTHERS THEN
3222: ,x_msg_count
3223: ,x_msg_data
3224: ,'_PVT');
3225: WHEN OTHERS THEN
3226: x_return_status := okl_api.handle_exceptions(l_api_name
3227: ,g_pkg_name
3228: ,'OTHERS'
3229: ,x_msg_count
3230: ,x_msg_data
3235: -- Procedure delete_row_v
3236: --------------------------------------------------------------------------------
3237:
3238: PROCEDURE delete_row(p_api_version IN NUMBER
3239: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
3240: ,x_return_status OUT NOCOPY VARCHAR2
3241: ,x_msg_count OUT NOCOPY NUMBER
3242: ,x_msg_data OUT NOCOPY VARCHAR2
3243: ,p_srtv_rec IN okl_srtv_rec) IS
3242: ,x_msg_data OUT NOCOPY VARCHAR2
3243: ,p_srtv_rec IN okl_srtv_rec) IS
3244: l_api_version CONSTANT NUMBER := 1;
3245: l_api_name CONSTANT VARCHAR2(30) := 'v_delete_row';
3246: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3247: l_srtv_rec okl_srtv_rec := p_srtv_rec;
3248: l_srtb_rec okl_srtb_rec;
3249: l_srttl_rec okl_srttl_rec;
3250:
3248: l_srtb_rec okl_srtb_rec;
3249: l_srttl_rec okl_srttl_rec;
3250:
3251: BEGIN
3252: l_return_status := okl_api.start_activity(l_api_name
3253: ,g_pkg_name
3254: ,p_init_msg_list
3255: ,l_api_version
3256: ,p_api_version
3256: ,p_api_version
3257: ,'_PVT'
3258: ,x_return_status);
3259:
3260: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3261: RAISE okl_api.g_exception_unexpected_error;
3262: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3263: RAISE okl_api.g_exception_error;
3264: END IF;
3257: ,'_PVT'
3258: ,x_return_status);
3259:
3260: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3261: RAISE okl_api.g_exception_unexpected_error;
3262: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3263: RAISE okl_api.g_exception_error;
3264: END IF;
3265: migrate(l_srtv_rec
3258: ,x_return_status);
3259:
3260: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3261: RAISE okl_api.g_exception_unexpected_error;
3262: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3263: RAISE okl_api.g_exception_error;
3264: END IF;
3265: migrate(l_srtv_rec
3266: ,l_srtb_rec);
3259:
3260: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3261: RAISE okl_api.g_exception_unexpected_error;
3262: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3263: RAISE okl_api.g_exception_error;
3264: END IF;
3265: migrate(l_srtv_rec
3266: ,l_srtb_rec);
3267: migrate(l_srtv_rec
3272: ,x_msg_count
3273: ,x_msg_data
3274: ,l_srtb_rec);
3275:
3276: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3277: RAISE okl_api.g_exception_unexpected_error;
3278: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3279: RAISE okl_api.g_exception_error;
3280: END IF;
3273: ,x_msg_data
3274: ,l_srtb_rec);
3275:
3276: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3277: RAISE okl_api.g_exception_unexpected_error;
3278: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3279: RAISE okl_api.g_exception_error;
3280: END IF;
3281: delete_row(p_api_version
3274: ,l_srtb_rec);
3275:
3276: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3277: RAISE okl_api.g_exception_unexpected_error;
3278: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3279: RAISE okl_api.g_exception_error;
3280: END IF;
3281: delete_row(p_api_version
3282: ,p_init_msg_list
3275:
3276: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3277: RAISE okl_api.g_exception_unexpected_error;
3278: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3279: RAISE okl_api.g_exception_error;
3280: END IF;
3281: delete_row(p_api_version
3282: ,p_init_msg_list
3283: ,x_return_status
3284: ,x_msg_count
3285: ,x_msg_data
3286: ,l_srttl_rec);
3287:
3288: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3289: RAISE okl_api.g_exception_unexpected_error;
3290: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3291: RAISE okl_api.g_exception_error;
3292: END IF;
3285: ,x_msg_data
3286: ,l_srttl_rec);
3287:
3288: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3289: RAISE okl_api.g_exception_unexpected_error;
3290: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3291: RAISE okl_api.g_exception_error;
3292: END IF;
3293: okl_api.end_activity(x_msg_count
3286: ,l_srttl_rec);
3287:
3288: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3289: RAISE okl_api.g_exception_unexpected_error;
3290: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3291: RAISE okl_api.g_exception_error;
3292: END IF;
3293: okl_api.end_activity(x_msg_count
3294: ,x_msg_data);
3287:
3288: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
3289: RAISE okl_api.g_exception_unexpected_error;
3290: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3291: RAISE okl_api.g_exception_error;
3292: END IF;
3293: okl_api.end_activity(x_msg_count
3294: ,x_msg_data);
3295: EXCEPTION
3289: RAISE okl_api.g_exception_unexpected_error;
3290: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
3291: RAISE okl_api.g_exception_error;
3292: END IF;
3293: okl_api.end_activity(x_msg_count
3294: ,x_msg_data);
3295: EXCEPTION
3296: WHEN g_exception_halt_validation THEN
3297:
3297:
3298: -- No action necessary. Validation can continue to next attribute/column
3299:
3300: NULL;
3301: WHEN okl_api.g_exception_error THEN
3302: x_return_status := okl_api.handle_exceptions(l_api_name
3303: ,g_pkg_name
3304: ,'OKL_API.G_RET_STS_ERROR'
3305: ,x_msg_count
3298: -- No action necessary. Validation can continue to next attribute/column
3299:
3300: NULL;
3301: WHEN okl_api.g_exception_error THEN
3302: x_return_status := okl_api.handle_exceptions(l_api_name
3303: ,g_pkg_name
3304: ,'OKL_API.G_RET_STS_ERROR'
3305: ,x_msg_count
3306: ,x_msg_data
3300: NULL;
3301: WHEN okl_api.g_exception_error THEN
3302: x_return_status := okl_api.handle_exceptions(l_api_name
3303: ,g_pkg_name
3304: ,'OKL_API.G_RET_STS_ERROR'
3305: ,x_msg_count
3306: ,x_msg_data
3307: ,'_PVT');
3308: WHEN okl_api.g_exception_unexpected_error THEN
3304: ,'OKL_API.G_RET_STS_ERROR'
3305: ,x_msg_count
3306: ,x_msg_data
3307: ,'_PVT');
3308: WHEN okl_api.g_exception_unexpected_error THEN
3309: x_return_status := okl_api.handle_exceptions(l_api_name
3310: ,g_pkg_name
3311: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3312: ,x_msg_count
3305: ,x_msg_count
3306: ,x_msg_data
3307: ,'_PVT');
3308: WHEN okl_api.g_exception_unexpected_error THEN
3309: x_return_status := okl_api.handle_exceptions(l_api_name
3310: ,g_pkg_name
3311: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3312: ,x_msg_count
3313: ,x_msg_data
3307: ,'_PVT');
3308: WHEN okl_api.g_exception_unexpected_error THEN
3309: x_return_status := okl_api.handle_exceptions(l_api_name
3310: ,g_pkg_name
3311: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3312: ,x_msg_count
3313: ,x_msg_data
3314: ,'_PVT');
3315: WHEN OTHERS THEN
3312: ,x_msg_count
3313: ,x_msg_data
3314: ,'_PVT');
3315: WHEN OTHERS THEN
3316: x_return_status := okl_api.handle_exceptions(l_api_name
3317: ,g_pkg_name
3318: ,'OTHERS'
3319: ,x_msg_count
3320: ,x_msg_data
3325: -- Procedure delete_row_tbl
3326: --------------------------------------------------------------------------------
3327:
3328: PROCEDURE delete_row(p_api_version IN NUMBER
3329: ,p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false
3330: ,x_return_status OUT NOCOPY VARCHAR2
3331: ,x_msg_count OUT NOCOPY NUMBER
3332: ,x_msg_data OUT NOCOPY VARCHAR2
3333: ,p_srtv_tbl IN okl_srtv_tbl) IS
3332: ,x_msg_data OUT NOCOPY VARCHAR2
3333: ,p_srtv_tbl IN okl_srtv_tbl) IS
3334: l_api_version CONSTANT NUMBER := 1;
3335: l_api_name CONSTANT VARCHAR2(30) := 'v_delete_row';
3336: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3337: i NUMBER := 0;
3338: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3339:
3340: BEGIN
3334: l_api_version CONSTANT NUMBER := 1;
3335: l_api_name CONSTANT VARCHAR2(30) := 'v_delete_row';
3336: l_return_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3337: i NUMBER := 0;
3338: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3339:
3340: BEGIN
3341: okl_api.init_msg_list(p_init_msg_list);
3342:
3337: i NUMBER := 0;
3338: l_overall_status VARCHAR2(1) := okl_api.g_ret_sts_success;
3339:
3340: BEGIN
3341: okl_api.init_msg_list(p_init_msg_list);
3342:
3343: -- Make sure PL/SQL table has records in it before passing
3344:
3345: IF (p_srtv_tbl.COUNT > 0) THEN
3346: i := p_srtv_tbl.FIRST;
3347:
3348: LOOP
3349: delete_row(p_api_version => p_api_version
3350: ,p_init_msg_list => okl_api.g_false
3351: ,x_return_status => x_return_status
3352: ,x_msg_count => x_msg_count
3353: ,x_msg_data => x_msg_data
3354: ,p_srtv_rec => p_srtv_tbl(i));
3351: ,x_return_status => x_return_status
3352: ,x_msg_count => x_msg_count
3353: ,x_msg_data => x_msg_data
3354: ,p_srtv_rec => p_srtv_tbl(i));
3355: IF x_return_status <> okl_api.g_ret_sts_success THEN
3356: IF l_overall_status <> okl_api.g_ret_sts_unexp_error THEN
3357: l_overall_status := x_return_status;
3358: END IF;
3359: END IF;
3352: ,x_msg_count => x_msg_count
3353: ,x_msg_data => x_msg_data
3354: ,p_srtv_rec => p_srtv_tbl(i));
3355: IF x_return_status <> okl_api.g_ret_sts_success THEN
3356: IF l_overall_status <> okl_api.g_ret_sts_unexp_error THEN
3357: l_overall_status := x_return_status;
3358: END IF;
3359: END IF;
3360: EXIT WHEN(i = p_srtv_tbl.LAST);
3368:
3369: -- No action necessary. Validation can continue to next attribute/column
3370:
3371: NULL;
3372: WHEN okl_api.g_exception_error THEN
3373: x_return_status := okl_api.handle_exceptions(l_api_name
3374: ,g_pkg_name
3375: ,'OKL_API.G_RET_STS_ERROR'
3376: ,x_msg_count
3369: -- No action necessary. Validation can continue to next attribute/column
3370:
3371: NULL;
3372: WHEN okl_api.g_exception_error THEN
3373: x_return_status := okl_api.handle_exceptions(l_api_name
3374: ,g_pkg_name
3375: ,'OKL_API.G_RET_STS_ERROR'
3376: ,x_msg_count
3377: ,x_msg_data
3371: NULL;
3372: WHEN okl_api.g_exception_error THEN
3373: x_return_status := okl_api.handle_exceptions(l_api_name
3374: ,g_pkg_name
3375: ,'OKL_API.G_RET_STS_ERROR'
3376: ,x_msg_count
3377: ,x_msg_data
3378: ,'_PVT');
3379: WHEN okl_api.g_exception_unexpected_error THEN
3375: ,'OKL_API.G_RET_STS_ERROR'
3376: ,x_msg_count
3377: ,x_msg_data
3378: ,'_PVT');
3379: WHEN okl_api.g_exception_unexpected_error THEN
3380: x_return_status := okl_api.handle_exceptions(l_api_name
3381: ,g_pkg_name
3382: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3383: ,x_msg_count
3376: ,x_msg_count
3377: ,x_msg_data
3378: ,'_PVT');
3379: WHEN okl_api.g_exception_unexpected_error THEN
3380: x_return_status := okl_api.handle_exceptions(l_api_name
3381: ,g_pkg_name
3382: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3383: ,x_msg_count
3384: ,x_msg_data
3378: ,'_PVT');
3379: WHEN okl_api.g_exception_unexpected_error THEN
3380: x_return_status := okl_api.handle_exceptions(l_api_name
3381: ,g_pkg_name
3382: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
3383: ,x_msg_count
3384: ,x_msg_data
3385: ,'_PVT');
3386: WHEN OTHERS THEN
3383: ,x_msg_count
3384: ,x_msg_data
3385: ,'_PVT');
3386: WHEN OTHERS THEN
3387: x_return_status := okl_api.handle_exceptions(l_api_name
3388: ,g_pkg_name
3389: ,'OTHERS'
3390: ,x_msg_count
3391: ,x_msg_data