[Home] [Help]
198: ----------------------------------------------
199: FUNCTION validate_record (
200: p_gttv_rec IN gttv_rec_type
201: ) RETURN VARCHAR2 IS
202: x_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
203: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
204: BEGIN
205: -- End_date should be greater than or equal to start_date
206: IF ( p_gttv_rec.end_date IS NOT NULL OR p_gttv_rec.end_date <> Okl_Api.G_MISS_DATE )
199: FUNCTION validate_record (
200: p_gttv_rec IN gttv_rec_type
201: ) RETURN VARCHAR2 IS
202: x_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
203: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
204: BEGIN
205: -- End_date should be greater than or equal to start_date
206: IF ( p_gttv_rec.end_date IS NOT NULL OR p_gttv_rec.end_date <> Okl_Api.G_MISS_DATE )
207: THEN
202: x_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
203: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
204: BEGIN
205: -- End_date should be greater than or equal to start_date
206: IF ( p_gttv_rec.end_date IS NOT NULL OR p_gttv_rec.end_date <> Okl_Api.G_MISS_DATE )
207: THEN
208: IF ( p_gttv_rec.end_date >= p_gttv_rec.start_date )
209: THEN
210: -- Do Nothing.
209: THEN
210: -- Do Nothing.
211: NULL;
212: ELSE
213: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_INVALID_END_DATE);
214: x_return_status := Okl_Api.G_RET_STS_ERROR;
215: RAISE G_EXCEPTION_HALT_VALIDATION;
216: END IF;
217: END IF;
210: -- Do Nothing.
211: NULL;
212: ELSE
213: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_INVALID_END_DATE);
214: x_return_status := Okl_Api.G_RET_STS_ERROR;
215: RAISE G_EXCEPTION_HALT_VALIDATION;
216: END IF;
217: END IF;
218:
254: ) IS
255:
256: BEGIN
257: -- initialize return status
258: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
259:
260: IF p_gttv_rec.id = Okl_Api.G_MISS_NUM OR
261: p_gttv_rec.id IS NULL
262: THEN
256: BEGIN
257: -- initialize return status
258: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
259:
260: IF p_gttv_rec.id = Okl_Api.G_MISS_NUM OR
261: p_gttv_rec.id IS NULL
262: THEN
263: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
264: x_return_status := Okl_Api.G_RET_STS_ERROR;
259:
260: IF p_gttv_rec.id = Okl_Api.G_MISS_NUM OR
261: p_gttv_rec.id IS NULL
262: THEN
263: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
264: x_return_status := Okl_Api.G_RET_STS_ERROR;
265: RAISE G_EXCEPTION_HALT_VALIDATION;
266: END IF;
267:
260: IF p_gttv_rec.id = Okl_Api.G_MISS_NUM OR
261: p_gttv_rec.id IS NULL
262: THEN
263: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
264: x_return_status := Okl_Api.G_RET_STS_ERROR;
265: RAISE G_EXCEPTION_HALT_VALIDATION;
266: END IF;
267:
268: EXCEPTION
272: NULL;
273:
274: WHEN OTHERS THEN
275: -- store SQL error message on message stack for caller
276: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME
277: ,p_msg_name => G_UNEXPECTED_ERROR
278: ,p_token1 => G_SQLCODE_TOKEN
279: ,p_token1_value => SQLCODE
280: ,p_token2 => G_SQLERRM_TOKEN
280: ,p_token2 => G_SQLERRM_TOKEN
281: ,p_token2_value => SQLERRM);
282:
283: -- notify caller of an UNEXPECTED error
284: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
285:
286: END Validate_Id;
287:
288: ---------------------------------------------------------------------------
304:
305: BEGIN
306:
307: -- initialize return status
308: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
309:
310: IF p_gttv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
311: p_gttv_rec.object_version_number IS NULL
312: THEN
306:
307: -- initialize return status
308: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
309:
310: IF p_gttv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
311: p_gttv_rec.object_version_number IS NULL
312: THEN
313: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
314: x_return_status := Okl_Api.G_RET_STS_ERROR;
309:
310: IF p_gttv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
311: p_gttv_rec.object_version_number IS NULL
312: THEN
313: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
314: x_return_status := Okl_Api.G_RET_STS_ERROR;
315: RAISE G_EXCEPTION_HALT_VALIDATION;
316: END IF;
317:
310: IF p_gttv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
311: p_gttv_rec.object_version_number IS NULL
312: THEN
313: Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
314: x_return_status := Okl_Api.G_RET_STS_ERROR;
315: RAISE G_EXCEPTION_HALT_VALIDATION;
316: END IF;
317:
318: EXCEPTION
322: NULL;
323:
324: WHEN OTHERS THEN
325: -- store SQL error message on message stack for caller
326: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME
327: ,p_msg_name => G_UNEXPECTED_ERROR
328: ,p_token1 => G_SQLCODE_TOKEN
329: ,p_token1_value => SQLCODE
330: ,p_token2 => G_SQLERRM_TOKEN
330: ,p_token2 => G_SQLERRM_TOKEN
331: ,p_token2_value => SQLERRM);
332:
333: -- notify caller of an UNEXPECTED error
334: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
335:
336: END Validate_Object_Version_Number;
337:
338: ---------------------------------------------------------------------------
340: ---------------------------------------------------------------------------
341: PROCEDURE validate_start_date(
342: p_gttv_Rec IN gttv_Rec_type,
343: x_return_status OUT NOCOPY VARCHAR2) IS
344: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
345: BEGIN
346: IF p_gttv_Rec.start_date = OKL_API.G_MISS_DATE OR p_gttv_Rec.start_date IS NULL
347: THEN
348: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'START_FROM');
342: p_gttv_Rec IN gttv_Rec_type,
343: x_return_status OUT NOCOPY VARCHAR2) IS
344: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
345: BEGIN
346: IF p_gttv_Rec.start_date = OKL_API.G_MISS_DATE OR p_gttv_Rec.start_date IS NULL
347: THEN
348: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'START_FROM');
349: l_return_status := OKL_API.G_RET_STS_ERROR;
350: END IF;
344: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
345: BEGIN
346: IF p_gttv_Rec.start_date = OKL_API.G_MISS_DATE OR p_gttv_Rec.start_date IS NULL
347: THEN
348: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'START_FROM');
349: l_return_status := OKL_API.G_RET_STS_ERROR;
350: END IF;
351:
352: x_return_status := l_return_status;
345: BEGIN
346: IF p_gttv_Rec.start_date = OKL_API.G_MISS_DATE OR p_gttv_Rec.start_date IS NULL
347: THEN
348: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'START_FROM');
349: l_return_status := OKL_API.G_RET_STS_ERROR;
350: END IF;
351:
352: x_return_status := l_return_status;
353: EXCEPTION
352: x_return_status := l_return_status;
353: EXCEPTION
354: WHEN OTHERS THEN
355: -- store SQL error message on message stack for caller
356: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
357: -- notify caller of an UNEXPECTED error
358: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
359: END validate_start_date;
360:
354: WHEN OTHERS THEN
355: -- store SQL error message on message stack for caller
356: OKL_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
357: -- notify caller of an UNEXPECTED error
358: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
359: END validate_start_date;
360:
361: ---------------------------------------------------------------------------
362: -- PROCEDURE validate_tmpt_status
364: PROCEDURE validate_tmpt_status(
365: p_gttv_rec IN gttv_rec_type,
366: x_return_status OUT NOCOPY VARCHAR2
367: ) IS
368: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
369:
370: BEGIN
371: -- initialize return status
372: x_return_status := okl_api.G_RET_STS_SUCCESS;
368: l_dummy VARCHAR2(1) := okl_api.G_FALSE;
369:
370: BEGIN
371: -- initialize return status
372: x_return_status := okl_api.G_RET_STS_SUCCESS;
373:
374: -- check for data before processing
375: IF (p_gttv_rec.tmpt_status IS NOT NULL) AND
376: (p_gttv_rec.tmpt_status <> okl_api.G_MISS_CHAR) THEN
372: x_return_status := okl_api.G_RET_STS_SUCCESS;
373:
374: -- check for data before processing
375: IF (p_gttv_rec.tmpt_status IS NOT NULL) AND
376: (p_gttv_rec.tmpt_status <> okl_api.G_MISS_CHAR) THEN
377:
378: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE(p_lookup_type => 'OKL_STREAM_GEN_TMPT_STATUS',
379: p_lookup_code => p_gttv_rec.tmpt_status);
380:
378: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE(p_lookup_type => 'OKL_STREAM_GEN_TMPT_STATUS',
379: p_lookup_code => p_gttv_rec.tmpt_status);
380:
381:
382: IF (l_dummy = okl_api.g_false) THEN
383: okl_api.SET_MESSAGE(p_app_name => g_app_name,
384: p_msg_name => g_invalid_value,
385: p_token1 => g_col_name_token,
386: p_token1_value => 'TMPT_STATUS');
379: p_lookup_code => p_gttv_rec.tmpt_status);
380:
381:
382: IF (l_dummy = okl_api.g_false) THEN
383: okl_api.SET_MESSAGE(p_app_name => g_app_name,
384: p_msg_name => g_invalid_value,
385: p_token1 => g_col_name_token,
386: p_token1_value => 'TMPT_STATUS');
387: x_return_status := okl_api.G_RET_STS_ERROR;
383: okl_api.SET_MESSAGE(p_app_name => g_app_name,
384: p_msg_name => g_invalid_value,
385: p_token1 => g_col_name_token,
386: p_token1_value => 'TMPT_STATUS');
387: x_return_status := okl_api.G_RET_STS_ERROR;
388: RAISE G_EXCEPTION_HALT_VALIDATION;
389: END IF;
390:
391: END IF;
397: NULL;
398:
399: WHEN OTHERS THEN
400: -- store SQL error message on message stack for caller
401: okl_api.SET_MESSAGE(p_app_name => G_APP_NAME
402: ,p_msg_name => G_UNEXPECTED_ERROR
403: ,p_token1 => G_SQLCODE_TOKEN
404: ,p_token1_value => SQLCODE
405: ,p_token2 => G_SQLERRM_TOKEN
405: ,p_token2 => G_SQLERRM_TOKEN
406: ,p_token2_value => SQLERRM);
407:
408: -- notify caller of an UNEXPECTED error
409: x_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
410:
411: END validate_tmpt_status;
412:
413:
426: PROCEDURE validate_gts_id (p_gttv_rec IN gttv_rec_type
427: ,x_return_status OUT NOCOPY VARCHAR2 )
428: IS
429:
430: l_dummy VARCHAR2(1) := Okl_Api.G_FALSE;
431:
432: CURSOR gts_csr(p_gts_id NUMBER) IS
433: SELECT '1'
434: FROM OKL_ST_GEN_TMPT_SETS
435: WHERE OKL_ST_GEN_TMPT_SETS.ID = p_gts_id;
436:
437:
438: BEGIN
439: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
440:
441: IF (p_gttv_rec.gts_id IS NOT NULL) AND (p_gttv_rec.gts_id <> Okl_Api.G_MISS_NUM) THEN
442: OPEN gts_csr(p_gttv_rec.gts_id);
443: FETCH gts_csr INTO l_dummy;
437:
438: BEGIN
439: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
440:
441: IF (p_gttv_rec.gts_id IS NOT NULL) AND (p_gttv_rec.gts_id <> Okl_Api.G_MISS_NUM) THEN
442: OPEN gts_csr(p_gttv_rec.gts_id);
443: FETCH gts_csr INTO l_dummy;
444: IF (gts_csr%NOTFOUND) THEN
445: Okl_Api.SET_MESSAGE(p_app_name => g_app_name
441: IF (p_gttv_rec.gts_id IS NOT NULL) AND (p_gttv_rec.gts_id <> Okl_Api.G_MISS_NUM) THEN
442: OPEN gts_csr(p_gttv_rec.gts_id);
443: FETCH gts_csr INTO l_dummy;
444: IF (gts_csr%NOTFOUND) THEN
445: Okl_Api.SET_MESSAGE(p_app_name => g_app_name
446: ,p_msg_name => g_invalid_value
447: ,p_token1 => g_col_name_token
448: ,p_token1_value => 'GTS_ID');
449: x_return_status := Okl_Api.G_RET_STS_ERROR;
445: Okl_Api.SET_MESSAGE(p_app_name => g_app_name
446: ,p_msg_name => g_invalid_value
447: ,p_token1 => g_col_name_token
448: ,p_token1_value => 'GTS_ID');
449: x_return_status := Okl_Api.G_RET_STS_ERROR;
450: CLOSE gts_csr;
451: RAISE G_EXCEPTION_HALT_VALIDATION;
452: END IF;
453: CLOSE gts_csr;
451: RAISE G_EXCEPTION_HALT_VALIDATION;
452: END IF;
453: CLOSE gts_csr;
454: ELSE
455: Okl_Api.SET_MESSAGE(p_app_name => g_app_name
456: ,p_msg_name => g_invalid_value
457: ,p_token1 => g_col_name_token
458: ,p_token1_value => 'GTS_ID');
459: x_return_status := Okl_Api.G_RET_STS_ERROR;
455: Okl_Api.SET_MESSAGE(p_app_name => g_app_name
456: ,p_msg_name => g_invalid_value
457: ,p_token1 => g_col_name_token
458: ,p_token1_value => 'GTS_ID');
459: x_return_status := Okl_Api.G_RET_STS_ERROR;
460: RAISE G_EXCEPTION_HALT_VALIDATION;
461: END IF;
462:
463:
468: NULL;
469:
470: WHEN OTHERS THEN
471: -- store SQL error message on message stack for caller
472: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
473: p_msg_name => g_unexpected_error,
474: p_token1 => g_sqlcode_token,
475: p_token1_value => SQLCODE,
476: p_token2 => g_sqlerrm_token,
476: p_token2 => g_sqlerrm_token,
477: p_token2_value => SQLERRM);
478:
479: -- notify caller of an UNEXPECTED error
480: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
481:
482: END validate_gts_id;
483:
484: ---------------------------------------------------------------------------
496: PROCEDURE validate_version (p_gttv_rec IN gttv_rec_type
497: ,x_return_status OUT NOCOPY VARCHAR2 )
498: IS
499:
500: l_dummy VARCHAR2(1) := Okl_Api.G_FALSE;
501:
502: BEGIN
503: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
504:
499:
500: l_dummy VARCHAR2(1) := Okl_Api.G_FALSE;
501:
502: BEGIN
503: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
504:
505: IF (p_gttv_rec.version IS NULL) OR
506: (p_gttv_rec.version <> Okl_Api.G_MISS_NUM)
507: THEN
502: BEGIN
503: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
504:
505: IF (p_gttv_rec.version IS NULL) OR
506: (p_gttv_rec.version <> Okl_Api.G_MISS_NUM)
507: THEN
508: Okl_Api.SET_MESSAGE(p_app_name => g_app_name
509: ,p_msg_name => g_invalid_value
510: ,p_token1 => g_col_name_token
504:
505: IF (p_gttv_rec.version IS NULL) OR
506: (p_gttv_rec.version <> Okl_Api.G_MISS_NUM)
507: THEN
508: Okl_Api.SET_MESSAGE(p_app_name => g_app_name
509: ,p_msg_name => g_invalid_value
510: ,p_token1 => g_col_name_token
511: ,p_token1_value => 'VERSION');
512: x_return_status := Okl_Api.G_RET_STS_ERROR;
508: Okl_Api.SET_MESSAGE(p_app_name => g_app_name
509: ,p_msg_name => g_invalid_value
510: ,p_token1 => g_col_name_token
511: ,p_token1_value => 'VERSION');
512: x_return_status := Okl_Api.G_RET_STS_ERROR;
513: RAISE G_EXCEPTION_HALT_VALIDATION;
514: END IF;
515:
516: EXCEPTION
517: WHEN G_EXCEPTION_HALT_VALIDATION THEN
518: NULL;
519: WHEN OTHERS THEN
520: -- store SQL error message on message stack for caller
521: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
522: p_msg_name => g_unexpected_error,
523: p_token1 => g_sqlcode_token,
524: p_token1_value => SQLCODE,
525: p_token2 => g_sqlerrm_token,
525: p_token2 => g_sqlerrm_token,
526: p_token2_value => SQLERRM);
527:
528: -- notify caller of an UNEXPECTED error
529: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
530:
531: END validate_version;
532:
533:
547: FUNCTION Validate_Attributes (
548: p_gttv_rec IN gttv_rec_type
549: ) RETURN VARCHAR2 IS
550:
551: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
552: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
553: BEGIN
554: -- call each column-level validation
555:
548: p_gttv_rec IN gttv_rec_type
549: ) RETURN VARCHAR2 IS
550:
551: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
552: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
553: BEGIN
554: -- call each column-level validation
555:
556:
555:
556:
557: -- Validate_Id
558: Validate_Id(p_gttv_rec, x_return_status);
559: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
560: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
561: -- need to exit
562: l_return_status := x_return_status;
563: RAISE G_EXCEPTION_HALT_VALIDATION;
556:
557: -- Validate_Id
558: Validate_Id(p_gttv_rec, x_return_status);
559: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
560: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
561: -- need to exit
562: l_return_status := x_return_status;
563: RAISE G_EXCEPTION_HALT_VALIDATION;
564: ELSE
568: END IF;
569:
570: -- Validate_Object_Version_Number
571: validate_object_version_number(p_gttv_rec, x_return_status);
572: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
573: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
574: -- need to exit
575: l_return_status := x_return_status;
576: RAISE G_EXCEPTION_HALT_VALIDATION;
569:
570: -- Validate_Object_Version_Number
571: validate_object_version_number(p_gttv_rec, x_return_status);
572: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
573: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
574: -- need to exit
575: l_return_status := x_return_status;
576: RAISE G_EXCEPTION_HALT_VALIDATION;
577: ELSE
581: END IF;
582:
583: -- validate_start_date
584: validate_start_date(p_gttv_rec, x_return_status);
585: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
586: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
587: -- need to exit
588: l_return_status := x_return_status;
589: RAISE G_EXCEPTION_HALT_VALIDATION;
582:
583: -- validate_start_date
584: validate_start_date(p_gttv_rec, x_return_status);
585: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
586: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
587: -- need to exit
588: l_return_status := x_return_status;
589: RAISE G_EXCEPTION_HALT_VALIDATION;
590: ELSE
594: END IF;
595:
596: -- validate_tmpt_status
597: validate_tmpt_status(p_gttv_rec, x_return_status);
598: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
599: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
600: -- need to exit
601: l_return_status := x_return_status;
602: RAISE G_EXCEPTION_HALT_VALIDATION;
595:
596: -- validate_tmpt_status
597: validate_tmpt_status(p_gttv_rec, x_return_status);
598: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
599: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
600: -- need to exit
601: l_return_status := x_return_status;
602: RAISE G_EXCEPTION_HALT_VALIDATION;
603: ELSE
607: END IF;
608:
609: -- validate_gts_id
610: validate_gts_id(p_gttv_rec, x_return_status);
611: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
612: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
613: -- need to exit
614: l_return_status := x_return_status;
615: RAISE G_EXCEPTION_HALT_VALIDATION;
608:
609: -- validate_gts_id
610: validate_gts_id(p_gttv_rec, x_return_status);
611: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
612: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
613: -- need to exit
614: l_return_status := x_return_status;
615: RAISE G_EXCEPTION_HALT_VALIDATION;
616: ELSE
679: p_gttv_rec IN gttv_rec_type
680: ) RETURN gttv_rec_type IS
681: l_gttv_rec gttv_rec_type := p_gttv_rec;
682: BEGIN
683: IF (l_gttv_rec.id = Okl_Api.G_MISS_NUM) THEN
684: l_gttv_rec.id := NULL;
685: END IF;
686: IF (l_gttv_rec.object_version_number = Okl_Api.G_MISS_NUM) THEN
687: l_gttv_rec.object_version_number := NULL;
682: BEGIN
683: IF (l_gttv_rec.id = Okl_Api.G_MISS_NUM) THEN
684: l_gttv_rec.id := NULL;
685: END IF;
686: IF (l_gttv_rec.object_version_number = Okl_Api.G_MISS_NUM) THEN
687: l_gttv_rec.object_version_number := NULL;
688: END IF;
689: IF (l_gttv_rec.version = Okl_Api.G_MISS_CHAR) THEN
690: l_gttv_rec.version := NULL;
685: END IF;
686: IF (l_gttv_rec.object_version_number = Okl_Api.G_MISS_NUM) THEN
687: l_gttv_rec.object_version_number := NULL;
688: END IF;
689: IF (l_gttv_rec.version = Okl_Api.G_MISS_CHAR) THEN
690: l_gttv_rec.version := NULL;
691: END IF;
692: IF (l_gttv_rec.start_date = Okl_Api.G_MISS_DATE ) THEN
693: l_gttv_rec.start_date := NULL;
688: END IF;
689: IF (l_gttv_rec.version = Okl_Api.G_MISS_CHAR) THEN
690: l_gttv_rec.version := NULL;
691: END IF;
692: IF (l_gttv_rec.start_date = Okl_Api.G_MISS_DATE ) THEN
693: l_gttv_rec.start_date := NULL;
694: END IF;
695: IF (l_gttv_rec.end_date = Okl_Api.G_MISS_DATE ) THEN
696: l_gttv_rec.end_date := NULL;
691: END IF;
692: IF (l_gttv_rec.start_date = Okl_Api.G_MISS_DATE ) THEN
693: l_gttv_rec.start_date := NULL;
694: END IF;
695: IF (l_gttv_rec.end_date = Okl_Api.G_MISS_DATE ) THEN
696: l_gttv_rec.end_date := NULL;
697: END IF;
698: IF (l_gttv_rec.tmpt_status = Okl_Api.G_MISS_CHAR) THEN
699: l_gttv_rec.tmpt_status := NULL;
694: END IF;
695: IF (l_gttv_rec.end_date = Okl_Api.G_MISS_DATE ) THEN
696: l_gttv_rec.end_date := NULL;
697: END IF;
698: IF (l_gttv_rec.tmpt_status = Okl_Api.G_MISS_CHAR) THEN
699: l_gttv_rec.tmpt_status := NULL;
700: END IF;
701: IF (l_gttv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
702: l_gttv_rec.attribute_category := NULL;
697: END IF;
698: IF (l_gttv_rec.tmpt_status = Okl_Api.G_MISS_CHAR) THEN
699: l_gttv_rec.tmpt_status := NULL;
700: END IF;
701: IF (l_gttv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
702: l_gttv_rec.attribute_category := NULL;
703: END IF;
704: IF (l_gttv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
705: l_gttv_rec.attribute1 := NULL;
700: END IF;
701: IF (l_gttv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
702: l_gttv_rec.attribute_category := NULL;
703: END IF;
704: IF (l_gttv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
705: l_gttv_rec.attribute1 := NULL;
706: END IF;
707: IF (l_gttv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
708: l_gttv_rec.attribute2 := NULL;
703: END IF;
704: IF (l_gttv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
705: l_gttv_rec.attribute1 := NULL;
706: END IF;
707: IF (l_gttv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
708: l_gttv_rec.attribute2 := NULL;
709: END IF;
710: IF (l_gttv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
711: l_gttv_rec.attribute3 := NULL;
706: END IF;
707: IF (l_gttv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
708: l_gttv_rec.attribute2 := NULL;
709: END IF;
710: IF (l_gttv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
711: l_gttv_rec.attribute3 := NULL;
712: END IF;
713: IF (l_gttv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
714: l_gttv_rec.attribute4 := NULL;
709: END IF;
710: IF (l_gttv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
711: l_gttv_rec.attribute3 := NULL;
712: END IF;
713: IF (l_gttv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
714: l_gttv_rec.attribute4 := NULL;
715: END IF;
716: IF (l_gttv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
717: l_gttv_rec.attribute5 := NULL;
712: END IF;
713: IF (l_gttv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
714: l_gttv_rec.attribute4 := NULL;
715: END IF;
716: IF (l_gttv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
717: l_gttv_rec.attribute5 := NULL;
718: END IF;
719: IF (l_gttv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
720: l_gttv_rec.attribute6 := NULL;
715: END IF;
716: IF (l_gttv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
717: l_gttv_rec.attribute5 := NULL;
718: END IF;
719: IF (l_gttv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
720: l_gttv_rec.attribute6 := NULL;
721: END IF;
722: IF (l_gttv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
723: l_gttv_rec.attribute7 := NULL;
718: END IF;
719: IF (l_gttv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
720: l_gttv_rec.attribute6 := NULL;
721: END IF;
722: IF (l_gttv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
723: l_gttv_rec.attribute7 := NULL;
724: END IF;
725: IF (l_gttv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
726: l_gttv_rec.attribute8 := NULL;
721: END IF;
722: IF (l_gttv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
723: l_gttv_rec.attribute7 := NULL;
724: END IF;
725: IF (l_gttv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
726: l_gttv_rec.attribute8 := NULL;
727: END IF;
728: IF (l_gttv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
729: l_gttv_rec.attribute9 := NULL;
724: END IF;
725: IF (l_gttv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
726: l_gttv_rec.attribute8 := NULL;
727: END IF;
728: IF (l_gttv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
729: l_gttv_rec.attribute9 := NULL;
730: END IF;
731: IF (l_gttv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
732: l_gttv_rec.attribute10 := NULL;
727: END IF;
728: IF (l_gttv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
729: l_gttv_rec.attribute9 := NULL;
730: END IF;
731: IF (l_gttv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
732: l_gttv_rec.attribute10 := NULL;
733: END IF;
734: IF (l_gttv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
735: l_gttv_rec.attribute11 := NULL;
730: END IF;
731: IF (l_gttv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
732: l_gttv_rec.attribute10 := NULL;
733: END IF;
734: IF (l_gttv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
735: l_gttv_rec.attribute11 := NULL;
736: END IF;
737: IF (l_gttv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
738: l_gttv_rec.attribute12 := NULL;
733: END IF;
734: IF (l_gttv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
735: l_gttv_rec.attribute11 := NULL;
736: END IF;
737: IF (l_gttv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
738: l_gttv_rec.attribute12 := NULL;
739: END IF;
740: IF (l_gttv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
741: l_gttv_rec.attribute13 := NULL;
736: END IF;
737: IF (l_gttv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
738: l_gttv_rec.attribute12 := NULL;
739: END IF;
740: IF (l_gttv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
741: l_gttv_rec.attribute13 := NULL;
742: END IF;
743: IF (l_gttv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
744: l_gttv_rec.attribute14 := NULL;
739: END IF;
740: IF (l_gttv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
741: l_gttv_rec.attribute13 := NULL;
742: END IF;
743: IF (l_gttv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
744: l_gttv_rec.attribute14 := NULL;
745: END IF;
746: IF (l_gttv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
747: l_gttv_rec.attribute15 := NULL;
742: END IF;
743: IF (l_gttv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
744: l_gttv_rec.attribute14 := NULL;
745: END IF;
746: IF (l_gttv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
747: l_gttv_rec.attribute15 := NULL;
748: END IF;
749: IF (l_gttv_rec.org_id = Okl_Api.G_MISS_NUM) THEN
750: l_gttv_rec.org_id := NULL;
745: END IF;
746: IF (l_gttv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
747: l_gttv_rec.attribute15 := NULL;
748: END IF;
749: IF (l_gttv_rec.org_id = Okl_Api.G_MISS_NUM) THEN
750: l_gttv_rec.org_id := NULL;
751: END IF;
752: IF (l_gttv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
753: l_gttv_rec.created_by := NULL;
748: END IF;
749: IF (l_gttv_rec.org_id = Okl_Api.G_MISS_NUM) THEN
750: l_gttv_rec.org_id := NULL;
751: END IF;
752: IF (l_gttv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
753: l_gttv_rec.created_by := NULL;
754: END IF;
755: IF (l_gttv_rec.creation_date = Okl_Api.G_MISS_DATE) THEN
756: l_gttv_rec.creation_date := NULL;
751: END IF;
752: IF (l_gttv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
753: l_gttv_rec.created_by := NULL;
754: END IF;
755: IF (l_gttv_rec.creation_date = Okl_Api.G_MISS_DATE) THEN
756: l_gttv_rec.creation_date := NULL;
757: END IF;
758: IF (l_gttv_rec.last_updated_by = Okl_Api.G_MISS_NUM) THEN
759: l_gttv_rec.last_updated_by := NULL;
754: END IF;
755: IF (l_gttv_rec.creation_date = Okl_Api.G_MISS_DATE) THEN
756: l_gttv_rec.creation_date := NULL;
757: END IF;
758: IF (l_gttv_rec.last_updated_by = Okl_Api.G_MISS_NUM) THEN
759: l_gttv_rec.last_updated_by := NULL;
760: END IF;
761: IF (l_gttv_rec.last_update_date = Okl_Api.G_MISS_DATE) THEN
762: l_gttv_rec.last_update_date := NULL;
757: END IF;
758: IF (l_gttv_rec.last_updated_by = Okl_Api.G_MISS_NUM) THEN
759: l_gttv_rec.last_updated_by := NULL;
760: END IF;
761: IF (l_gttv_rec.last_update_date = Okl_Api.G_MISS_DATE) THEN
762: l_gttv_rec.last_update_date := NULL;
763: END IF;
764: IF (l_gttv_rec.last_update_login = Okl_Api.G_MISS_NUM) THEN
765: l_gttv_rec.last_update_login := NULL;
760: END IF;
761: IF (l_gttv_rec.last_update_date = Okl_Api.G_MISS_DATE) THEN
762: l_gttv_rec.last_update_date := NULL;
763: END IF;
764: IF (l_gttv_rec.last_update_login = Okl_Api.G_MISS_NUM) THEN
765: l_gttv_rec.last_update_login := NULL;
766: END IF;
767:
768: RETURN(l_gttv_rec);
862: ---------------------------------------------------------------------------
863:
864: PROCEDURE insert_row(
865: p_api_version IN NUMBER,
866: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
867: x_return_status OUT NOCOPY VARCHAR2,
868: x_msg_count OUT NOCOPY NUMBER,
869: x_msg_data OUT NOCOPY VARCHAR2,
870: p_gtt_rec IN gtt_rec_type,
872:
873: -- Local Variables within the function
874: l_api_version CONSTANT NUMBER := 1;
875: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
876: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
877: l_gtt_rec gtt_rec_type := p_gtt_rec;
878: l_def_gtt_rec gtt_rec_type;
879: ---------------------------------------------
880: -- Set_Attributes for:OKL_ST_GEN_TEMPLATES --
882: FUNCTION Set_Attributes (
883: p_gtt_rec IN gtt_rec_type,
884: x_gtt_rec OUT NOCOPY gtt_rec_type
885: ) RETURN VARCHAR2 IS
886: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
887: BEGIN
888: x_gtt_rec := p_gtt_rec;
889: RETURN(l_return_status);
890: END Set_Attributes;
888: x_gtt_rec := p_gtt_rec;
889: RETURN(l_return_status);
890: END Set_Attributes;
891: BEGIN
892: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
893: p_init_msg_list,
894: '_PVT',
895: x_return_status);
896: --- If any errors happen abort API
893: p_init_msg_list,
894: '_PVT',
895: x_return_status);
896: --- If any errors happen abort API
897: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
899: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
900: RAISE Okl_Api.G_EXCEPTION_ERROR;
901: END IF;
894: '_PVT',
895: x_return_status);
896: --- If any errors happen abort API
897: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
899: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
900: RAISE Okl_Api.G_EXCEPTION_ERROR;
901: END IF;
902:
895: x_return_status);
896: --- If any errors happen abort API
897: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
899: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
900: RAISE Okl_Api.G_EXCEPTION_ERROR;
901: END IF;
902:
903: --- Setting item attributes
896: --- If any errors happen abort API
897: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
898: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
899: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
900: RAISE Okl_Api.G_EXCEPTION_ERROR;
901: END IF;
902:
903: --- Setting item attributes
904: l_return_status := Set_Attributes(
905: p_gtt_rec, -- IN
906: l_gtt_rec -- OUT
907: );
908: --- If any errors happen abort API
909: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
910: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
911: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
912: RAISE Okl_Api.G_EXCEPTION_ERROR;
913: END IF;
906: l_gtt_rec -- OUT
907: );
908: --- If any errors happen abort API
909: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
910: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
911: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
912: RAISE Okl_Api.G_EXCEPTION_ERROR;
913: END IF;
914:
907: );
908: --- If any errors happen abort API
909: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
910: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
911: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
912: RAISE Okl_Api.G_EXCEPTION_ERROR;
913: END IF;
914:
915: INSERT INTO OKL_ST_GEN_TEMPLATES(
908: --- If any errors happen abort API
909: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
910: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
911: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
912: RAISE Okl_Api.G_EXCEPTION_ERROR;
913: END IF;
914:
915: INSERT INTO OKL_ST_GEN_TEMPLATES(
916: id
976: );
977:
978: -- Set OUT values
979: x_gtt_rec := l_gtt_rec;
980: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
981:
982: EXCEPTION
983: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
984: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
979: x_gtt_rec := l_gtt_rec;
980: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
981:
982: EXCEPTION
983: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
984: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
985: (
986: l_api_name,
987: G_PKG_NAME,
980: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
981:
982: EXCEPTION
983: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
984: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
985: (
986: l_api_name,
987: G_PKG_NAME,
988: 'Okl_Api.G_RET_STS_ERROR',
984: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
985: (
986: l_api_name,
987: G_PKG_NAME,
988: 'Okl_Api.G_RET_STS_ERROR',
989: x_msg_count,
990: x_msg_data,
991: '_PVT'
992: );
989: x_msg_count,
990: x_msg_data,
991: '_PVT'
992: );
993: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
994: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
995: (
996: l_api_name,
997: G_PKG_NAME,
990: x_msg_data,
991: '_PVT'
992: );
993: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
994: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
995: (
996: l_api_name,
997: G_PKG_NAME,
998: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
994: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
995: (
996: l_api_name,
997: G_PKG_NAME,
998: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
999: x_msg_count,
1000: x_msg_data,
1001: '_PVT'
1002: );
1000: x_msg_data,
1001: '_PVT'
1002: );
1003: WHEN OTHERS THEN
1004: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1005: (
1006: l_api_name,
1007: G_PKG_NAME,
1008: 'OTHERS',
1013: END insert_row;
1014:
1015: PROCEDURE insert_row(
1016: p_api_version IN NUMBER,
1017: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1018: x_return_status OUT NOCOPY VARCHAR2,
1019: x_msg_count OUT NOCOPY NUMBER,
1020: x_msg_data OUT NOCOPY VARCHAR2,
1021: p_gttv_rec IN gttv_rec_type,
1023:
1024: -- Local Variables within the function
1025: l_api_version CONSTANT NUMBER := 1;
1026: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1027: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1028: l_gttv_rec gttv_rec_type;
1029: l_def_gttv_rec gttv_rec_type;
1030: l_gtt_rec gtt_rec_type;
1031: lx_gtt_rec gtt_rec_type;
1051: FUNCTION Set_Attributes (
1052: p_gttv_rec IN gttv_rec_type,
1053: x_gttv_rec OUT NOCOPY gttv_rec_type
1054: ) RETURN VARCHAR2 IS
1055: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1056: BEGIN
1057: x_gttv_rec := p_gttv_rec;
1058: x_gttv_rec.OBJECT_VERSION_NUMBER := 1;
1059: x_gttv_rec.ORG_ID := MO_GLOBAL.GET_CURRENT_ORG_ID();
1062: END Set_Attributes;
1063:
1064: BEGIN
1065:
1066: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1067: G_PKG_NAME,
1068: p_init_msg_list,
1069: l_api_version,
1070: p_api_version,
1069: l_api_version,
1070: p_api_version,
1071: '_PVT',
1072: x_return_status);
1073: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1074: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1075: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1076: RAISE Okl_Api.G_EXCEPTION_ERROR;
1077: END IF;
1070: p_api_version,
1071: '_PVT',
1072: x_return_status);
1073: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1074: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1075: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1076: RAISE Okl_Api.G_EXCEPTION_ERROR;
1077: END IF;
1078:
1071: '_PVT',
1072: x_return_status);
1073: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1074: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1075: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1076: RAISE Okl_Api.G_EXCEPTION_ERROR;
1077: END IF;
1078:
1079: l_gttv_rec := null_out_defaults(p_gttv_rec);
1072: x_return_status);
1073: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1074: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1075: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1076: RAISE Okl_Api.G_EXCEPTION_ERROR;
1077: END IF;
1078:
1079: l_gttv_rec := null_out_defaults(p_gttv_rec);
1080:
1086: l_gttv_rec, -- IN
1087: l_def_gttv_rec); -- OUT
1088:
1089: --- If any errors happen abort API
1090: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1091: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1092: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1093: RAISE Okl_Api.G_EXCEPTION_ERROR;
1094: END IF;
1087: l_def_gttv_rec); -- OUT
1088:
1089: --- If any errors happen abort API
1090: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1091: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1092: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1093: RAISE Okl_Api.G_EXCEPTION_ERROR;
1094: END IF;
1095:
1088:
1089: --- If any errors happen abort API
1090: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1091: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1092: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1093: RAISE Okl_Api.G_EXCEPTION_ERROR;
1094: END IF;
1095:
1096: -- fill who columns for the l_def_gttv_rec
1089: --- If any errors happen abort API
1090: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1091: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1092: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1093: RAISE Okl_Api.G_EXCEPTION_ERROR;
1094: END IF;
1095:
1096: -- fill who columns for the l_def_gttv_rec
1097: l_def_gttv_rec := fill_who_columns(l_def_gttv_rec);
1098:
1099: --- Validate all non-missing attributes (Item Level Validation)
1100: l_return_status := Validate_Attributes(l_def_gttv_rec);
1101: --- If any errors happen abort API
1102: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1105: RAISE Okl_Api.G_EXCEPTION_ERROR;
1106: END IF;
1099: --- Validate all non-missing attributes (Item Level Validation)
1100: l_return_status := Validate_Attributes(l_def_gttv_rec);
1101: --- If any errors happen abort API
1102: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1105: RAISE Okl_Api.G_EXCEPTION_ERROR;
1106: END IF;
1107:
1100: l_return_status := Validate_Attributes(l_def_gttv_rec);
1101: --- If any errors happen abort API
1102: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1105: RAISE Okl_Api.G_EXCEPTION_ERROR;
1106: END IF;
1107:
1108: -- Perfrom all row level validations
1101: --- If any errors happen abort API
1102: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1105: RAISE Okl_Api.G_EXCEPTION_ERROR;
1106: END IF;
1107:
1108: -- Perfrom all row level validations
1109: l_return_status := validate_record(l_def_gttv_rec);
1106: END IF;
1107:
1108: -- Perfrom all row level validations
1109: l_return_status := validate_record(l_def_gttv_rec);
1110: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1112: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1113: RAISE Okl_Api.G_EXCEPTION_ERROR;
1114: END IF;
1107:
1108: -- Perfrom all row level validations
1109: l_return_status := validate_record(l_def_gttv_rec);
1110: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1112: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1113: RAISE Okl_Api.G_EXCEPTION_ERROR;
1114: END IF;
1115:
1108: -- Perfrom all row level validations
1109: l_return_status := validate_record(l_def_gttv_rec);
1110: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1112: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1113: RAISE Okl_Api.G_EXCEPTION_ERROR;
1114: END IF;
1115:
1116: --------------------------------------
1109: l_return_status := validate_record(l_def_gttv_rec);
1110: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1112: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1113: RAISE Okl_Api.G_EXCEPTION_ERROR;
1114: END IF;
1115:
1116: --------------------------------------
1117: -- Move VIEW record to "Child" records
1129: ,x_msg_data => x_msg_data
1130: ,p_gtt_rec => l_gtt_rec
1131: ,x_gtt_rec => lx_gtt_rec
1132: );
1133: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1136: RAISE Okl_Api.G_EXCEPTION_ERROR;
1137: END IF;
1130: ,p_gtt_rec => l_gtt_rec
1131: ,x_gtt_rec => lx_gtt_rec
1132: );
1133: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1136: RAISE Okl_Api.G_EXCEPTION_ERROR;
1137: END IF;
1138:
1131: ,x_gtt_rec => lx_gtt_rec
1132: );
1133: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1136: RAISE Okl_Api.G_EXCEPTION_ERROR;
1137: END IF;
1138:
1139: migrate(lx_gtt_rec, l_def_gttv_rec);
1132: );
1133: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1136: RAISE Okl_Api.G_EXCEPTION_ERROR;
1137: END IF;
1138:
1139: migrate(lx_gtt_rec, l_def_gttv_rec);
1140:
1139: migrate(lx_gtt_rec, l_def_gttv_rec);
1140:
1141: -- Set OUT values
1142: x_gttv_rec := l_def_gttv_rec;
1143: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1144:
1145: EXCEPTION
1146: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1147: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1142: x_gttv_rec := l_def_gttv_rec;
1143: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1144:
1145: EXCEPTION
1146: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1147: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1148: (
1149: l_api_name,
1150: G_PKG_NAME,
1143: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1144:
1145: EXCEPTION
1146: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1147: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1148: (
1149: l_api_name,
1150: G_PKG_NAME,
1151: 'Okl_Api.G_RET_STS_ERROR',
1147: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1148: (
1149: l_api_name,
1150: G_PKG_NAME,
1151: 'Okl_Api.G_RET_STS_ERROR',
1152: x_msg_count,
1153: x_msg_data,
1154: '_PVT'
1155: );
1152: x_msg_count,
1153: x_msg_data,
1154: '_PVT'
1155: );
1156: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1157: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1158: (
1159: l_api_name,
1160: G_PKG_NAME,
1153: x_msg_data,
1154: '_PVT'
1155: );
1156: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1157: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1158: (
1159: l_api_name,
1160: G_PKG_NAME,
1161: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1157: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1158: (
1159: l_api_name,
1160: G_PKG_NAME,
1161: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1162: x_msg_count,
1163: x_msg_data,
1164: '_PVT'
1165: );
1163: x_msg_data,
1164: '_PVT'
1165: );
1166: WHEN OTHERS THEN
1167: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1168: (
1169: l_api_name,
1170: G_PKG_NAME,
1171: 'OTHERS',
1179: -- PL/SQL TBL insert_row for:GTTV_TBL --
1180: ----------------------------------------
1181: PROCEDURE insert_row(
1182: p_api_version IN NUMBER,
1183: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1184: x_return_status OUT NOCOPY VARCHAR2,
1185: x_msg_count OUT NOCOPY NUMBER,
1186: x_msg_data OUT NOCOPY VARCHAR2,
1187: p_gttv_tbl IN gttv_tbl_type,
1188: x_gttv_tbl OUT NOCOPY gttv_tbl_type) IS
1189:
1190: l_api_version CONSTANT NUMBER := 1;
1191: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1192: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1193: i NUMBER := 0;
1194: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1195: BEGIN
1196: Okl_Api.init_msg_list(p_init_msg_list);
1190: l_api_version CONSTANT NUMBER := 1;
1191: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1192: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1193: i NUMBER := 0;
1194: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1195: BEGIN
1196: Okl_Api.init_msg_list(p_init_msg_list);
1197:
1198: -- Making sure PL/SQL table has records in it before passing
1192: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1193: i NUMBER := 0;
1194: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1195: BEGIN
1196: Okl_Api.init_msg_list(p_init_msg_list);
1197:
1198: -- Making sure PL/SQL table has records in it before passing
1199: IF (p_gttv_tbl.COUNT > 0) THEN
1200: i := p_gttv_tbl.FIRST;
1201: LOOP
1202:
1203: insert_row (
1204: p_api_version => p_api_version,
1205: p_init_msg_list => Okl_Api.G_FALSE,
1206: x_return_status => x_return_status,
1207: x_msg_count => x_msg_count,
1208: x_msg_data => x_msg_data,
1209: p_gttv_rec => p_gttv_tbl(i),
1209: p_gttv_rec => p_gttv_tbl(i),
1210: x_gttv_rec => x_gttv_tbl(i));
1211:
1212: -- store the highest degree of error
1213: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1214: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1215: l_overall_status := x_return_status;
1216: END IF;
1217: END IF;
1210: x_gttv_rec => x_gttv_tbl(i));
1211:
1212: -- store the highest degree of error
1213: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1214: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1215: l_overall_status := x_return_status;
1216: END IF;
1217: END IF;
1218: EXIT WHEN (i = p_gttv_tbl.LAST);
1222: -- return overall status
1223: x_return_status := l_overall_status;
1224: END IF;
1225: EXCEPTION
1226: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1227: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1228: (
1229: l_api_name,
1230: G_PKG_NAME,
1223: x_return_status := l_overall_status;
1224: END IF;
1225: EXCEPTION
1226: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1227: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1228: (
1229: l_api_name,
1230: G_PKG_NAME,
1231: 'Okl_Api.G_RET_STS_ERROR',
1227: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1228: (
1229: l_api_name,
1230: G_PKG_NAME,
1231: 'Okl_Api.G_RET_STS_ERROR',
1232: x_msg_count,
1233: x_msg_data,
1234: '_PVT'
1235: );
1232: x_msg_count,
1233: x_msg_data,
1234: '_PVT'
1235: );
1236: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1237: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1238: (
1239: l_api_name,
1240: G_PKG_NAME,
1233: x_msg_data,
1234: '_PVT'
1235: );
1236: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1237: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1238: (
1239: l_api_name,
1240: G_PKG_NAME,
1241: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1237: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1238: (
1239: l_api_name,
1240: G_PKG_NAME,
1241: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1242: x_msg_count,
1243: x_msg_data,
1244: '_PVT'
1245: );
1243: x_msg_data,
1244: '_PVT'
1245: );
1246: WHEN OTHERS THEN
1247: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1248: (
1249: l_api_name,
1250: G_PKG_NAME,
1251: 'OTHERS',
1270: -- End of comments
1271: --------------------------------------------------------------------------
1272:
1273: PROCEDURE update_row(
1274: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1275: x_return_status OUT NOCOPY VARCHAR2,
1276: x_msg_count OUT NOCOPY NUMBER,
1277: x_msg_data OUT NOCOPY VARCHAR2,
1278: p_gtt_rec IN gtt_rec_type,
1279: x_gtt_rec OUT NOCOPY gtt_rec_type) IS
1280:
1281: l_api_version CONSTANT NUMBER := 1;
1282: l_api_name CONSTANT VARCHAR2(30) := 'OPTS_update_row';
1283: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1284: l_gtt_rec gtt_rec_type := p_gtt_rec;
1285: l_def_gtt_rec gtt_rec_type;
1286: l_row_notfound BOOLEAN := TRUE;
1287: ----------------------------------
1292: x_gtt_rec OUT NOCOPY gtt_rec_type
1293: ) RETURN VARCHAR2 IS
1294: l_gtt_rec gtt_rec_type;
1295: l_row_notfound BOOLEAN := TRUE;
1296: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1297: BEGIN
1298: x_gtt_rec := p_gtt_rec;
1299:
1300: -- Get current database values
1300: -- Get current database values
1301: l_gtt_rec := get_rec( p_gtt_rec, l_row_notfound);
1302:
1303: IF (l_row_notfound) THEN
1304: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1305: END IF;
1306: IF (x_gtt_rec.id = Okl_Api.G_MISS_NUM)
1307: THEN
1308: x_gtt_rec.id := l_gtt_rec.id;
1302:
1303: IF (l_row_notfound) THEN
1304: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1305: END IF;
1306: IF (x_gtt_rec.id = Okl_Api.G_MISS_NUM)
1307: THEN
1308: x_gtt_rec.id := l_gtt_rec.id;
1309: END IF;
1310: IF (x_gtt_rec.object_version_number = Okl_Api.G_MISS_NUM)
1306: IF (x_gtt_rec.id = Okl_Api.G_MISS_NUM)
1307: THEN
1308: x_gtt_rec.id := l_gtt_rec.id;
1309: END IF;
1310: IF (x_gtt_rec.object_version_number = Okl_Api.G_MISS_NUM)
1311: THEN
1312: x_gtt_rec.object_version_number := l_gtt_rec.object_version_number;
1313: END IF;
1314: IF (x_gtt_rec.version = Okl_Api.G_MISS_CHAR) THEN
1310: IF (x_gtt_rec.object_version_number = Okl_Api.G_MISS_NUM)
1311: THEN
1312: x_gtt_rec.object_version_number := l_gtt_rec.object_version_number;
1313: END IF;
1314: IF (x_gtt_rec.version = Okl_Api.G_MISS_CHAR) THEN
1315: x_gtt_rec.version := l_gtt_rec.version;
1316: END IF;
1317: IF (x_gtt_rec.start_date = Okl_Api.G_MISS_DATE ) THEN
1318: x_gtt_rec.start_date := l_gtt_rec.start_date;
1313: END IF;
1314: IF (x_gtt_rec.version = Okl_Api.G_MISS_CHAR) THEN
1315: x_gtt_rec.version := l_gtt_rec.version;
1316: END IF;
1317: IF (x_gtt_rec.start_date = Okl_Api.G_MISS_DATE ) THEN
1318: x_gtt_rec.start_date := l_gtt_rec.start_date;
1319: END IF;
1320: IF (x_gtt_rec.end_date = Okl_Api.G_MISS_DATE ) THEN
1321: x_gtt_rec.end_date := l_gtt_rec.end_date;
1316: END IF;
1317: IF (x_gtt_rec.start_date = Okl_Api.G_MISS_DATE ) THEN
1318: x_gtt_rec.start_date := l_gtt_rec.start_date;
1319: END IF;
1320: IF (x_gtt_rec.end_date = Okl_Api.G_MISS_DATE ) THEN
1321: x_gtt_rec.end_date := l_gtt_rec.end_date;
1322: END IF;
1323: IF (x_gtt_rec.tmpt_status = Okl_Api.G_MISS_CHAR) THEN
1324: x_gtt_rec.tmpt_status := l_gtt_rec.tmpt_status;
1319: END IF;
1320: IF (x_gtt_rec.end_date = Okl_Api.G_MISS_DATE ) THEN
1321: x_gtt_rec.end_date := l_gtt_rec.end_date;
1322: END IF;
1323: IF (x_gtt_rec.tmpt_status = Okl_Api.G_MISS_CHAR) THEN
1324: x_gtt_rec.tmpt_status := l_gtt_rec.tmpt_status;
1325: END IF;
1326: IF (x_gtt_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
1327: x_gtt_rec.attribute_category := l_gtt_rec.attribute_category;
1322: END IF;
1323: IF (x_gtt_rec.tmpt_status = Okl_Api.G_MISS_CHAR) THEN
1324: x_gtt_rec.tmpt_status := l_gtt_rec.tmpt_status;
1325: END IF;
1326: IF (x_gtt_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
1327: x_gtt_rec.attribute_category := l_gtt_rec.attribute_category;
1328: END IF;
1329: IF (x_gtt_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
1330: x_gtt_rec.attribute1 := l_gtt_rec.attribute1;
1325: END IF;
1326: IF (x_gtt_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
1327: x_gtt_rec.attribute_category := l_gtt_rec.attribute_category;
1328: END IF;
1329: IF (x_gtt_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
1330: x_gtt_rec.attribute1 := l_gtt_rec.attribute1;
1331: END IF;
1332: IF (x_gtt_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
1333: x_gtt_rec.attribute2 := l_gtt_rec.attribute2;
1328: END IF;
1329: IF (x_gtt_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
1330: x_gtt_rec.attribute1 := l_gtt_rec.attribute1;
1331: END IF;
1332: IF (x_gtt_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
1333: x_gtt_rec.attribute2 := l_gtt_rec.attribute2;
1334: END IF;
1335: IF (x_gtt_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
1336: x_gtt_rec.attribute3 := l_gtt_rec.attribute3;
1331: END IF;
1332: IF (x_gtt_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
1333: x_gtt_rec.attribute2 := l_gtt_rec.attribute2;
1334: END IF;
1335: IF (x_gtt_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
1336: x_gtt_rec.attribute3 := l_gtt_rec.attribute3;
1337: END IF;
1338: IF (x_gtt_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
1339: x_gtt_rec.attribute4 := l_gtt_rec.attribute4;
1334: END IF;
1335: IF (x_gtt_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
1336: x_gtt_rec.attribute3 := l_gtt_rec.attribute3;
1337: END IF;
1338: IF (x_gtt_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
1339: x_gtt_rec.attribute4 := l_gtt_rec.attribute4;
1340: END IF;
1341: IF (x_gtt_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
1342: x_gtt_rec.attribute5 := l_gtt_rec.attribute5;
1337: END IF;
1338: IF (x_gtt_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
1339: x_gtt_rec.attribute4 := l_gtt_rec.attribute4;
1340: END IF;
1341: IF (x_gtt_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
1342: x_gtt_rec.attribute5 := l_gtt_rec.attribute5;
1343: END IF;
1344: IF (x_gtt_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
1345: x_gtt_rec.attribute6 := l_gtt_rec.attribute6;
1340: END IF;
1341: IF (x_gtt_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
1342: x_gtt_rec.attribute5 := l_gtt_rec.attribute5;
1343: END IF;
1344: IF (x_gtt_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
1345: x_gtt_rec.attribute6 := l_gtt_rec.attribute6;
1346: END IF;
1347: IF (x_gtt_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
1348: x_gtt_rec.attribute7 := l_gtt_rec.attribute7;
1343: END IF;
1344: IF (x_gtt_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
1345: x_gtt_rec.attribute6 := l_gtt_rec.attribute6;
1346: END IF;
1347: IF (x_gtt_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
1348: x_gtt_rec.attribute7 := l_gtt_rec.attribute7;
1349: END IF;
1350: IF (x_gtt_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
1351: x_gtt_rec.attribute8 := l_gtt_rec.attribute8;
1346: END IF;
1347: IF (x_gtt_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
1348: x_gtt_rec.attribute7 := l_gtt_rec.attribute7;
1349: END IF;
1350: IF (x_gtt_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
1351: x_gtt_rec.attribute8 := l_gtt_rec.attribute8;
1352: END IF;
1353: IF (x_gtt_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
1354: x_gtt_rec.attribute9 := l_gtt_rec.attribute9;
1349: END IF;
1350: IF (x_gtt_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
1351: x_gtt_rec.attribute8 := l_gtt_rec.attribute8;
1352: END IF;
1353: IF (x_gtt_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
1354: x_gtt_rec.attribute9 := l_gtt_rec.attribute9;
1355: END IF;
1356: IF (x_gtt_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
1357: x_gtt_rec.attribute10 := l_gtt_rec.attribute10;
1352: END IF;
1353: IF (x_gtt_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
1354: x_gtt_rec.attribute9 := l_gtt_rec.attribute9;
1355: END IF;
1356: IF (x_gtt_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
1357: x_gtt_rec.attribute10 := l_gtt_rec.attribute10;
1358: END IF;
1359: IF (x_gtt_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
1360: x_gtt_rec.attribute11 := l_gtt_rec.attribute11;
1355: END IF;
1356: IF (x_gtt_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
1357: x_gtt_rec.attribute10 := l_gtt_rec.attribute10;
1358: END IF;
1359: IF (x_gtt_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
1360: x_gtt_rec.attribute11 := l_gtt_rec.attribute11;
1361: END IF;
1362: IF (x_gtt_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
1363: x_gtt_rec.attribute12 := l_gtt_rec.attribute12;
1358: END IF;
1359: IF (x_gtt_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
1360: x_gtt_rec.attribute11 := l_gtt_rec.attribute11;
1361: END IF;
1362: IF (x_gtt_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
1363: x_gtt_rec.attribute12 := l_gtt_rec.attribute12;
1364: END IF;
1365: IF (x_gtt_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
1366: x_gtt_rec.attribute13 := l_gtt_rec.attribute13;
1361: END IF;
1362: IF (x_gtt_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
1363: x_gtt_rec.attribute12 := l_gtt_rec.attribute12;
1364: END IF;
1365: IF (x_gtt_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
1366: x_gtt_rec.attribute13 := l_gtt_rec.attribute13;
1367: END IF;
1368: IF (x_gtt_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
1369: x_gtt_rec.attribute14 := l_gtt_rec.attribute14;
1364: END IF;
1365: IF (x_gtt_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
1366: x_gtt_rec.attribute13 := l_gtt_rec.attribute13;
1367: END IF;
1368: IF (x_gtt_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
1369: x_gtt_rec.attribute14 := l_gtt_rec.attribute14;
1370: END IF;
1371: IF (x_gtt_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
1372: x_gtt_rec.attribute15 := l_gtt_rec.attribute15;
1367: END IF;
1368: IF (x_gtt_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
1369: x_gtt_rec.attribute14 := l_gtt_rec.attribute14;
1370: END IF;
1371: IF (x_gtt_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
1372: x_gtt_rec.attribute15 := l_gtt_rec.attribute15;
1373: END IF;
1374: IF (x_gtt_rec.org_id = Okl_Api.G_MISS_NUM)
1375: THEN
1370: END IF;
1371: IF (x_gtt_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
1372: x_gtt_rec.attribute15 := l_gtt_rec.attribute15;
1373: END IF;
1374: IF (x_gtt_rec.org_id = Okl_Api.G_MISS_NUM)
1375: THEN
1376: x_gtt_rec.org_id := l_gtt_rec.org_id;
1377: END IF;
1378: IF (x_gtt_rec.created_by = Okl_Api.G_MISS_NUM)
1374: IF (x_gtt_rec.org_id = Okl_Api.G_MISS_NUM)
1375: THEN
1376: x_gtt_rec.org_id := l_gtt_rec.org_id;
1377: END IF;
1378: IF (x_gtt_rec.created_by = Okl_Api.G_MISS_NUM)
1379: THEN
1380: x_gtt_rec.created_by := l_gtt_rec.created_by;
1381: END IF;
1382: IF (x_gtt_rec.creation_date = Okl_Api.G_MISS_DATE)
1378: IF (x_gtt_rec.created_by = Okl_Api.G_MISS_NUM)
1379: THEN
1380: x_gtt_rec.created_by := l_gtt_rec.created_by;
1381: END IF;
1382: IF (x_gtt_rec.creation_date = Okl_Api.G_MISS_DATE)
1383: THEN
1384: x_gtt_rec.creation_date := l_gtt_rec.creation_date;
1385: END IF;
1386: IF (x_gtt_rec.last_updated_by = Okl_Api.G_MISS_NUM)
1382: IF (x_gtt_rec.creation_date = Okl_Api.G_MISS_DATE)
1383: THEN
1384: x_gtt_rec.creation_date := l_gtt_rec.creation_date;
1385: END IF;
1386: IF (x_gtt_rec.last_updated_by = Okl_Api.G_MISS_NUM)
1387: THEN
1388: x_gtt_rec.last_updated_by := l_gtt_rec.last_updated_by;
1389: END IF;
1390: IF (x_gtt_rec.last_update_date = Okl_Api.G_MISS_DATE)
1386: IF (x_gtt_rec.last_updated_by = Okl_Api.G_MISS_NUM)
1387: THEN
1388: x_gtt_rec.last_updated_by := l_gtt_rec.last_updated_by;
1389: END IF;
1390: IF (x_gtt_rec.last_update_date = Okl_Api.G_MISS_DATE)
1391: THEN
1392: x_gtt_rec.last_update_date := l_gtt_rec.last_update_date;
1393: END IF;
1394: IF (x_gtt_rec.last_update_login = Okl_Api.G_MISS_NUM)
1390: IF (x_gtt_rec.last_update_date = Okl_Api.G_MISS_DATE)
1391: THEN
1392: x_gtt_rec.last_update_date := l_gtt_rec.last_update_date;
1393: END IF;
1394: IF (x_gtt_rec.last_update_login = Okl_Api.G_MISS_NUM)
1395: THEN
1396: x_gtt_rec.last_update_login := l_gtt_rec.last_update_login;
1397: END IF;
1398: RETURN(l_return_status);
1403: FUNCTION Set_Attributes (
1404: p_gtt_rec IN gtt_rec_type,
1405: x_gtt_rec OUT NOCOPY gtt_rec_type
1406: ) RETURN VARCHAR2 IS
1407: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1408: BEGIN
1409: x_gtt_rec := p_gtt_rec;
1410: RETURN(l_return_status);
1411: END Set_Attributes;
1409: x_gtt_rec := p_gtt_rec;
1410: RETURN(l_return_status);
1411: END Set_Attributes;
1412: BEGIN
1413: /* l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1414: p_init_msg_list,
1415: '_PVT',
1416: x_return_status);
1417: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1413: /* l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1414: p_init_msg_list,
1415: '_PVT',
1416: x_return_status);
1417: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1418: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1419: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1420: RAISE Okl_Api.G_EXCEPTION_ERROR;
1421: END IF; */
1414: p_init_msg_list,
1415: '_PVT',
1416: x_return_status);
1417: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1418: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1419: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1420: RAISE Okl_Api.G_EXCEPTION_ERROR;
1421: END IF; */
1422: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
1415: '_PVT',
1416: x_return_status);
1417: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1418: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1419: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1420: RAISE Okl_Api.G_EXCEPTION_ERROR;
1421: END IF; */
1422: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
1423: --- Setting item attributes
1416: x_return_status);
1417: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1418: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1419: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1420: RAISE Okl_Api.G_EXCEPTION_ERROR;
1421: END IF; */
1422: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
1423: --- Setting item attributes
1424: l_return_status := Set_Attributes(
1418: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1419: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1420: RAISE Okl_Api.G_EXCEPTION_ERROR;
1421: END IF; */
1422: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
1423: --- Setting item attributes
1424: l_return_status := Set_Attributes(
1425: p_gtt_rec, -- IN
1426: l_gtt_rec); -- OUT
1424: l_return_status := Set_Attributes(
1425: p_gtt_rec, -- IN
1426: l_gtt_rec); -- OUT
1427: --- If any errors happen abort API
1428: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1430: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1431: RAISE Okl_Api.G_EXCEPTION_ERROR;
1432: END IF;
1425: p_gtt_rec, -- IN
1426: l_gtt_rec); -- OUT
1427: --- If any errors happen abort API
1428: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1430: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1431: RAISE Okl_Api.G_EXCEPTION_ERROR;
1432: END IF;
1433:
1426: l_gtt_rec); -- OUT
1427: --- If any errors happen abort API
1428: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1430: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1431: RAISE Okl_Api.G_EXCEPTION_ERROR;
1432: END IF;
1433:
1434: l_return_status := populate_new_record(l_gtt_rec, l_def_gtt_rec);
1427: --- If any errors happen abort API
1428: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1430: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1431: RAISE Okl_Api.G_EXCEPTION_ERROR;
1432: END IF;
1433:
1434: l_return_status := populate_new_record(l_gtt_rec, l_def_gtt_rec);
1435: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1431: RAISE Okl_Api.G_EXCEPTION_ERROR;
1432: END IF;
1433:
1434: l_return_status := populate_new_record(l_gtt_rec, l_def_gtt_rec);
1435: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1436: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1437: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1438: RAISE Okl_Api.G_EXCEPTION_ERROR;
1439: END IF;
1432: END IF;
1433:
1434: l_return_status := populate_new_record(l_gtt_rec, l_def_gtt_rec);
1435: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1436: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1437: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1438: RAISE Okl_Api.G_EXCEPTION_ERROR;
1439: END IF;
1440:
1433:
1434: l_return_status := populate_new_record(l_gtt_rec, l_def_gtt_rec);
1435: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1436: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1437: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1438: RAISE Okl_Api.G_EXCEPTION_ERROR;
1439: END IF;
1440:
1441: UPDATE OKL_ST_GEN_TEMPLATES
1434: l_return_status := populate_new_record(l_gtt_rec, l_def_gtt_rec);
1435: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1436: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1437: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1438: RAISE Okl_Api.G_EXCEPTION_ERROR;
1439: END IF;
1440:
1441: UPDATE OKL_ST_GEN_TEMPLATES
1442: SET ID = l_def_gtt_rec.id
1471: WHERE ID = l_def_gtt_rec.id;
1472:
1473: x_gtt_rec := l_def_gtt_rec;
1474: x_return_status := l_return_Status;
1475: -- Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1476: EXCEPTION
1477: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1478: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1479: (
1473: x_gtt_rec := l_def_gtt_rec;
1474: x_return_status := l_return_Status;
1475: -- Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1476: EXCEPTION
1477: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1478: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1474: x_return_status := l_return_Status;
1475: -- Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1476: EXCEPTION
1477: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1478: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1482: 'Okl_Api.G_RET_STS_ERROR',
1478: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1482: 'Okl_Api.G_RET_STS_ERROR',
1483: x_msg_count,
1484: x_msg_data,
1485: '_PVT'
1486: );
1483: x_msg_count,
1484: x_msg_data,
1485: '_PVT'
1486: );
1487: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1488: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1489: (
1490: l_api_name,
1491: G_PKG_NAME,
1484: x_msg_data,
1485: '_PVT'
1486: );
1487: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1488: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1489: (
1490: l_api_name,
1491: G_PKG_NAME,
1492: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1488: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1489: (
1490: l_api_name,
1491: G_PKG_NAME,
1492: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1493: x_msg_count,
1494: x_msg_data,
1495: '_PVT'
1496: );
1494: x_msg_data,
1495: '_PVT'
1496: );
1497: WHEN OTHERS THEN
1498: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1499: (
1500: l_api_name,
1501: G_PKG_NAME,
1502: 'OTHERS',
1507: END update_row;
1508:
1509: PROCEDURE update_row(
1510: p_api_version IN NUMBER,
1511: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1512: x_return_status OUT NOCOPY VARCHAR2,
1513: x_msg_count OUT NOCOPY NUMBER,
1514: x_msg_data OUT NOCOPY VARCHAR2,
1515: p_gttv_rec IN gttv_rec_type,
1516: x_gttv_rec OUT NOCOPY gttv_rec_type) IS
1517:
1518: l_api_version CONSTANT NUMBER := 1;
1519: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1520: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1521: l_gttv_rec gttv_rec_type := p_gttv_rec;
1522: l_def_gttv_rec gttv_rec_type;
1523: l_gtt_rec gtt_rec_type;
1524: lx_gtt_rec gtt_rec_type;
1543: x_gttv_rec OUT NOCOPY gttv_rec_type
1544: ) RETURN VARCHAR2 IS
1545: l_gttv_rec gttv_rec_type;
1546: l_row_notfound BOOLEAN := TRUE;
1547: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1548: BEGIN
1549: x_gttv_rec := p_gttv_rec;
1550:
1551: -- Get current database values
1551: -- Get current database values
1552: l_gttv_rec := get_rec(p_gttv_rec, l_row_notfound);
1553:
1554: IF (l_row_notfound) THEN
1555: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1556: END IF;
1557: IF (x_gttv_rec.id = Okl_Api.G_MISS_NUM)
1558: THEN
1559: x_gttv_rec.id := l_gtt_rec.id;
1553:
1554: IF (l_row_notfound) THEN
1555: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1556: END IF;
1557: IF (x_gttv_rec.id = Okl_Api.G_MISS_NUM)
1558: THEN
1559: x_gttv_rec.id := l_gtt_rec.id;
1560: END IF;
1561: IF (x_gttv_rec.object_version_number = Okl_Api.G_MISS_NUM)
1557: IF (x_gttv_rec.id = Okl_Api.G_MISS_NUM)
1558: THEN
1559: x_gttv_rec.id := l_gtt_rec.id;
1560: END IF;
1561: IF (x_gttv_rec.object_version_number = Okl_Api.G_MISS_NUM)
1562: THEN
1563: x_gttv_rec.object_version_number := l_gttv_rec.object_version_number;
1564: END IF;
1565: IF (x_gttv_rec.version = Okl_Api.G_MISS_CHAR) THEN
1561: IF (x_gttv_rec.object_version_number = Okl_Api.G_MISS_NUM)
1562: THEN
1563: x_gttv_rec.object_version_number := l_gttv_rec.object_version_number;
1564: END IF;
1565: IF (x_gttv_rec.version = Okl_Api.G_MISS_CHAR) THEN
1566: x_gttv_rec.version := l_gttv_rec.version;
1567: END IF;
1568: IF (x_gttv_rec.start_date = Okl_Api.G_MISS_DATE ) THEN
1569: x_gttv_rec.start_date := l_gttv_rec.start_date;
1564: END IF;
1565: IF (x_gttv_rec.version = Okl_Api.G_MISS_CHAR) THEN
1566: x_gttv_rec.version := l_gttv_rec.version;
1567: END IF;
1568: IF (x_gttv_rec.start_date = Okl_Api.G_MISS_DATE ) THEN
1569: x_gttv_rec.start_date := l_gttv_rec.start_date;
1570: END IF;
1571: IF (x_gttv_rec.end_date = Okl_Api.G_MISS_DATE ) THEN
1572: x_gttv_rec.end_date := l_gttv_rec.end_date;
1567: END IF;
1568: IF (x_gttv_rec.start_date = Okl_Api.G_MISS_DATE ) THEN
1569: x_gttv_rec.start_date := l_gttv_rec.start_date;
1570: END IF;
1571: IF (x_gttv_rec.end_date = Okl_Api.G_MISS_DATE ) THEN
1572: x_gttv_rec.end_date := l_gttv_rec.end_date;
1573: END IF;
1574: IF (x_gttv_rec.tmpt_status = Okl_Api.G_MISS_CHAR) THEN
1575: x_gttv_rec.tmpt_status := l_gttv_rec.tmpt_status;
1570: END IF;
1571: IF (x_gttv_rec.end_date = Okl_Api.G_MISS_DATE ) THEN
1572: x_gttv_rec.end_date := l_gttv_rec.end_date;
1573: END IF;
1574: IF (x_gttv_rec.tmpt_status = Okl_Api.G_MISS_CHAR) THEN
1575: x_gttv_rec.tmpt_status := l_gttv_rec.tmpt_status;
1576: END IF;
1577: IF (x_gttv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
1578: x_gttv_rec.attribute_category := l_gttv_rec.attribute_category;
1573: END IF;
1574: IF (x_gttv_rec.tmpt_status = Okl_Api.G_MISS_CHAR) THEN
1575: x_gttv_rec.tmpt_status := l_gttv_rec.tmpt_status;
1576: END IF;
1577: IF (x_gttv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
1578: x_gttv_rec.attribute_category := l_gttv_rec.attribute_category;
1579: END IF;
1580: IF (x_gttv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
1581: x_gttv_rec.attribute1 := l_gttv_rec.attribute1;
1576: END IF;
1577: IF (x_gttv_rec.attribute_category = Okl_Api.G_MISS_CHAR) THEN
1578: x_gttv_rec.attribute_category := l_gttv_rec.attribute_category;
1579: END IF;
1580: IF (x_gttv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
1581: x_gttv_rec.attribute1 := l_gttv_rec.attribute1;
1582: END IF;
1583: IF (x_gttv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
1584: x_gttv_rec.attribute2 := l_gttv_rec.attribute2;
1579: END IF;
1580: IF (x_gttv_rec.attribute1 = Okl_Api.G_MISS_CHAR) THEN
1581: x_gttv_rec.attribute1 := l_gttv_rec.attribute1;
1582: END IF;
1583: IF (x_gttv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
1584: x_gttv_rec.attribute2 := l_gttv_rec.attribute2;
1585: END IF;
1586: IF (x_gttv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
1587: x_gttv_rec.attribute3 := l_gttv_rec.attribute3;
1582: END IF;
1583: IF (x_gttv_rec.attribute2 = Okl_Api.G_MISS_CHAR) THEN
1584: x_gttv_rec.attribute2 := l_gttv_rec.attribute2;
1585: END IF;
1586: IF (x_gttv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
1587: x_gttv_rec.attribute3 := l_gttv_rec.attribute3;
1588: END IF;
1589: IF (x_gttv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
1590: x_gttv_rec.attribute4 := l_gttv_rec.attribute4;
1585: END IF;
1586: IF (x_gttv_rec.attribute3 = Okl_Api.G_MISS_CHAR) THEN
1587: x_gttv_rec.attribute3 := l_gttv_rec.attribute3;
1588: END IF;
1589: IF (x_gttv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
1590: x_gttv_rec.attribute4 := l_gttv_rec.attribute4;
1591: END IF;
1592: IF (x_gttv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
1593: x_gttv_rec.attribute5 := l_gttv_rec.attribute5;
1588: END IF;
1589: IF (x_gttv_rec.attribute4 = Okl_Api.G_MISS_CHAR) THEN
1590: x_gttv_rec.attribute4 := l_gttv_rec.attribute4;
1591: END IF;
1592: IF (x_gttv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
1593: x_gttv_rec.attribute5 := l_gttv_rec.attribute5;
1594: END IF;
1595: IF (x_gttv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
1596: x_gttv_rec.attribute6 := l_gttv_rec.attribute6;
1591: END IF;
1592: IF (x_gttv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
1593: x_gttv_rec.attribute5 := l_gttv_rec.attribute5;
1594: END IF;
1595: IF (x_gttv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
1596: x_gttv_rec.attribute6 := l_gttv_rec.attribute6;
1597: END IF;
1598: IF (x_gttv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
1599: x_gttv_rec.attribute7 := l_gttv_rec.attribute7;
1594: END IF;
1595: IF (x_gttv_rec.attribute6 = Okl_Api.G_MISS_CHAR) THEN
1596: x_gttv_rec.attribute6 := l_gttv_rec.attribute6;
1597: END IF;
1598: IF (x_gttv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
1599: x_gttv_rec.attribute7 := l_gttv_rec.attribute7;
1600: END IF;
1601: IF (x_gttv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
1602: x_gttv_rec.attribute8 := l_gttv_rec.attribute8;
1597: END IF;
1598: IF (x_gttv_rec.attribute7 = Okl_Api.G_MISS_CHAR) THEN
1599: x_gttv_rec.attribute7 := l_gttv_rec.attribute7;
1600: END IF;
1601: IF (x_gttv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
1602: x_gttv_rec.attribute8 := l_gttv_rec.attribute8;
1603: END IF;
1604: IF (x_gttv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
1605: x_gttv_rec.attribute9 := l_gttv_rec.attribute9;
1600: END IF;
1601: IF (x_gttv_rec.attribute8 = Okl_Api.G_MISS_CHAR) THEN
1602: x_gttv_rec.attribute8 := l_gttv_rec.attribute8;
1603: END IF;
1604: IF (x_gttv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
1605: x_gttv_rec.attribute9 := l_gttv_rec.attribute9;
1606: END IF;
1607: IF (x_gttv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
1608: x_gttv_rec.attribute10 := l_gttv_rec.attribute10;
1603: END IF;
1604: IF (x_gttv_rec.attribute9 = Okl_Api.G_MISS_CHAR) THEN
1605: x_gttv_rec.attribute9 := l_gttv_rec.attribute9;
1606: END IF;
1607: IF (x_gttv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
1608: x_gttv_rec.attribute10 := l_gttv_rec.attribute10;
1609: END IF;
1610: IF (x_gttv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
1611: x_gttv_rec.attribute11 := l_gttv_rec.attribute11;
1606: END IF;
1607: IF (x_gttv_rec.attribute10 = Okl_Api.G_MISS_CHAR) THEN
1608: x_gttv_rec.attribute10 := l_gttv_rec.attribute10;
1609: END IF;
1610: IF (x_gttv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
1611: x_gttv_rec.attribute11 := l_gttv_rec.attribute11;
1612: END IF;
1613: IF (x_gttv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
1614: x_gttv_rec.attribute12 := l_gttv_rec.attribute12;
1609: END IF;
1610: IF (x_gttv_rec.attribute11 = Okl_Api.G_MISS_CHAR) THEN
1611: x_gttv_rec.attribute11 := l_gttv_rec.attribute11;
1612: END IF;
1613: IF (x_gttv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
1614: x_gttv_rec.attribute12 := l_gttv_rec.attribute12;
1615: END IF;
1616: IF (x_gttv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
1617: x_gttv_rec.attribute13 := l_gttv_rec.attribute13;
1612: END IF;
1613: IF (x_gttv_rec.attribute12 = Okl_Api.G_MISS_CHAR) THEN
1614: x_gttv_rec.attribute12 := l_gttv_rec.attribute12;
1615: END IF;
1616: IF (x_gttv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
1617: x_gttv_rec.attribute13 := l_gttv_rec.attribute13;
1618: END IF;
1619: IF (x_gttv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
1620: x_gttv_rec.attribute14 := l_gttv_rec.attribute14;
1615: END IF;
1616: IF (x_gttv_rec.attribute13 = Okl_Api.G_MISS_CHAR) THEN
1617: x_gttv_rec.attribute13 := l_gttv_rec.attribute13;
1618: END IF;
1619: IF (x_gttv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
1620: x_gttv_rec.attribute14 := l_gttv_rec.attribute14;
1621: END IF;
1622: IF (x_gttv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
1623: x_gttv_rec.attribute15 := l_gttv_rec.attribute15;
1618: END IF;
1619: IF (x_gttv_rec.attribute14 = Okl_Api.G_MISS_CHAR) THEN
1620: x_gttv_rec.attribute14 := l_gttv_rec.attribute14;
1621: END IF;
1622: IF (x_gttv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
1623: x_gttv_rec.attribute15 := l_gttv_rec.attribute15;
1624: END IF;
1625: IF (x_gttv_rec.org_id = Okl_Api.G_MISS_NUM)
1626: THEN
1621: END IF;
1622: IF (x_gttv_rec.attribute15 = Okl_Api.G_MISS_CHAR) THEN
1623: x_gttv_rec.attribute15 := l_gttv_rec.attribute15;
1624: END IF;
1625: IF (x_gttv_rec.org_id = Okl_Api.G_MISS_NUM)
1626: THEN
1627: x_gttv_rec.org_id := l_gttv_rec.org_id;
1628: END IF;
1629: IF (x_gttv_rec.created_by = Okl_Api.G_MISS_NUM)
1625: IF (x_gttv_rec.org_id = Okl_Api.G_MISS_NUM)
1626: THEN
1627: x_gttv_rec.org_id := l_gttv_rec.org_id;
1628: END IF;
1629: IF (x_gttv_rec.created_by = Okl_Api.G_MISS_NUM)
1630: THEN
1631: x_gttv_rec.created_by := l_gttv_rec.created_by;
1632: END IF;
1633: IF (x_gttv_rec.creation_date = Okl_Api.G_MISS_DATE)
1629: IF (x_gttv_rec.created_by = Okl_Api.G_MISS_NUM)
1630: THEN
1631: x_gttv_rec.created_by := l_gttv_rec.created_by;
1632: END IF;
1633: IF (x_gttv_rec.creation_date = Okl_Api.G_MISS_DATE)
1634: THEN
1635: x_gttv_rec.creation_date := l_gttv_rec.creation_date;
1636: END IF;
1637: IF (x_gttv_rec.last_updated_by = Okl_Api.G_MISS_NUM)
1633: IF (x_gttv_rec.creation_date = Okl_Api.G_MISS_DATE)
1634: THEN
1635: x_gttv_rec.creation_date := l_gttv_rec.creation_date;
1636: END IF;
1637: IF (x_gttv_rec.last_updated_by = Okl_Api.G_MISS_NUM)
1638: THEN
1639: x_gttv_rec.last_updated_by := l_gttv_rec.last_updated_by;
1640: END IF;
1641: IF (x_gttv_rec.last_update_date = Okl_Api.G_MISS_DATE)
1637: IF (x_gttv_rec.last_updated_by = Okl_Api.G_MISS_NUM)
1638: THEN
1639: x_gttv_rec.last_updated_by := l_gttv_rec.last_updated_by;
1640: END IF;
1641: IF (x_gttv_rec.last_update_date = Okl_Api.G_MISS_DATE)
1642: THEN
1643: x_gttv_rec.last_update_date := l_gttv_rec.last_update_date;
1644: END IF;
1645: IF (x_gttv_rec.last_update_login = Okl_Api.G_MISS_NUM)
1641: IF (x_gttv_rec.last_update_date = Okl_Api.G_MISS_DATE)
1642: THEN
1643: x_gttv_rec.last_update_date := l_gttv_rec.last_update_date;
1644: END IF;
1645: IF (x_gttv_rec.last_update_login = Okl_Api.G_MISS_NUM)
1646: THEN
1647: x_gttv_rec.last_update_login := l_gttv_rec.last_update_login;
1648: END IF;
1649: RETURN(l_return_status);
1654: FUNCTION Set_Attributes (
1655: p_gttv_rec IN gttv_rec_type,
1656: x_gttv_rec OUT NOCOPY gttv_rec_type
1657: ) RETURN VARCHAR2 IS
1658: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1659: BEGIN
1660: x_gttv_rec := p_gttv_rec;
1661: RETURN(l_return_status);
1662: END Set_Attributes;
1660: x_gttv_rec := p_gttv_rec;
1661: RETURN(l_return_status);
1662: END Set_Attributes;
1663: BEGIN
1664: /* l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1665: G_PKG_NAME,
1666: p_init_msg_list,
1667: l_api_version,
1668: p_api_version,
1667: l_api_version,
1668: p_api_version,
1669: '_PVT',
1670: x_return_status);
1671: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1672: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1673: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1674: RAISE Okl_Api.G_EXCEPTION_ERROR;
1675: END IF; */
1668: p_api_version,
1669: '_PVT',
1670: x_return_status);
1671: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1672: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1673: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1674: RAISE Okl_Api.G_EXCEPTION_ERROR;
1675: END IF; */
1676: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
1669: '_PVT',
1670: x_return_status);
1671: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1672: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1673: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1674: RAISE Okl_Api.G_EXCEPTION_ERROR;
1675: END IF; */
1676: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
1677: --- Setting item attributes
1670: x_return_status);
1671: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1672: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1673: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1674: RAISE Okl_Api.G_EXCEPTION_ERROR;
1675: END IF; */
1676: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
1677: --- Setting item attributes
1678: l_return_status := Set_Attributes(
1672: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1673: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1674: RAISE Okl_Api.G_EXCEPTION_ERROR;
1675: END IF; */
1676: l_return_status := Okl_Api.G_RET_STS_SUCCESS;
1677: --- Setting item attributes
1678: l_return_status := Set_Attributes(
1679: p_gttv_rec, -- IN
1680: l_gttv_rec); -- OUT
1678: l_return_status := Set_Attributes(
1679: p_gttv_rec, -- IN
1680: l_gttv_rec); -- OUT
1681: --- If any errors happen abort API
1682: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1683: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1684: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1685: RAISE Okl_Api.G_EXCEPTION_ERROR;
1686: END IF;
1679: p_gttv_rec, -- IN
1680: l_gttv_rec); -- OUT
1681: --- If any errors happen abort API
1682: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1683: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1684: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1685: RAISE Okl_Api.G_EXCEPTION_ERROR;
1686: END IF;
1687:
1680: l_gttv_rec); -- OUT
1681: --- If any errors happen abort API
1682: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1683: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1684: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1685: RAISE Okl_Api.G_EXCEPTION_ERROR;
1686: END IF;
1687:
1688: l_return_status := populate_new_record(l_gttv_rec, l_def_gttv_rec);
1681: --- If any errors happen abort API
1682: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1683: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1684: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1685: RAISE Okl_Api.G_EXCEPTION_ERROR;
1686: END IF;
1687:
1688: l_return_status := populate_new_record(l_gttv_rec, l_def_gttv_rec);
1689: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE Okl_Api.G_EXCEPTION_ERROR;
1686: END IF;
1687:
1688: l_return_status := populate_new_record(l_gttv_rec, l_def_gttv_rec);
1689: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1690: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1691: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1692: RAISE Okl_Api.G_EXCEPTION_ERROR;
1693: END IF;
1686: END IF;
1687:
1688: l_return_status := populate_new_record(l_gttv_rec, l_def_gttv_rec);
1689: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1690: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1691: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1692: RAISE Okl_Api.G_EXCEPTION_ERROR;
1693: END IF;
1694: l_def_gttv_rec := fill_who_columns(l_def_gttv_rec);
1687:
1688: l_return_status := populate_new_record(l_gttv_rec, l_def_gttv_rec);
1689: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1690: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1691: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1692: RAISE Okl_Api.G_EXCEPTION_ERROR;
1693: END IF;
1694: l_def_gttv_rec := fill_who_columns(l_def_gttv_rec);
1695: --- Validate all non-missing attributes (Item Level Validation)
1688: l_return_status := populate_new_record(l_gttv_rec, l_def_gttv_rec);
1689: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1690: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1691: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1692: RAISE Okl_Api.G_EXCEPTION_ERROR;
1693: END IF;
1694: l_def_gttv_rec := fill_who_columns(l_def_gttv_rec);
1695: --- Validate all non-missing attributes (Item Level Validation)
1696: l_return_status := Validate_Attributes(l_def_gttv_rec);
1695: --- Validate all non-missing attributes (Item Level Validation)
1696: l_return_status := Validate_Attributes(l_def_gttv_rec);
1697:
1698: --- If any errors happen abort API
1699: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1700: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1701: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1702: RAISE Okl_Api.G_EXCEPTION_ERROR;
1703: END IF;
1696: l_return_status := Validate_Attributes(l_def_gttv_rec);
1697:
1698: --- If any errors happen abort API
1699: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1700: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1701: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1702: RAISE Okl_Api.G_EXCEPTION_ERROR;
1703: END IF;
1704:
1697:
1698: --- If any errors happen abort API
1699: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1700: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1701: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1702: RAISE Okl_Api.G_EXCEPTION_ERROR;
1703: END IF;
1704:
1705: l_return_status := Validate_Record(l_def_gttv_rec);
1698: --- If any errors happen abort API
1699: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1700: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1701: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1702: RAISE Okl_Api.G_EXCEPTION_ERROR;
1703: END IF;
1704:
1705: l_return_status := Validate_Record(l_def_gttv_rec);
1706: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE Okl_Api.G_EXCEPTION_ERROR;
1703: END IF;
1704:
1705: l_return_status := Validate_Record(l_def_gttv_rec);
1706: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1709: RAISE Okl_Api.G_EXCEPTION_ERROR;
1710: END IF;
1703: END IF;
1704:
1705: l_return_status := Validate_Record(l_def_gttv_rec);
1706: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1709: RAISE Okl_Api.G_EXCEPTION_ERROR;
1710: END IF;
1711:
1704:
1705: l_return_status := Validate_Record(l_def_gttv_rec);
1706: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1709: RAISE Okl_Api.G_EXCEPTION_ERROR;
1710: END IF;
1711:
1712: --------------------------------------
1705: l_return_status := Validate_Record(l_def_gttv_rec);
1706: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1709: RAISE Okl_Api.G_EXCEPTION_ERROR;
1710: END IF;
1711:
1712: --------------------------------------
1713: -- Move VIEW record to "Child" records
1723: x_msg_data => x_msg_data,
1724: p_gtt_rec => l_gtt_rec,
1725: x_gtt_rec => lx_gtt_rec
1726: );
1727: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1728: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1730: RAISE Okl_Api.G_EXCEPTION_ERROR;
1731: END IF;
1724: p_gtt_rec => l_gtt_rec,
1725: x_gtt_rec => lx_gtt_rec
1726: );
1727: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1728: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1730: RAISE Okl_Api.G_EXCEPTION_ERROR;
1731: END IF;
1732:
1725: x_gtt_rec => lx_gtt_rec
1726: );
1727: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1728: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1730: RAISE Okl_Api.G_EXCEPTION_ERROR;
1731: END IF;
1732:
1733: migrate(lx_gtt_rec, l_def_gttv_rec);
1726: );
1727: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1728: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1730: RAISE Okl_Api.G_EXCEPTION_ERROR;
1731: END IF;
1732:
1733: migrate(lx_gtt_rec, l_def_gttv_rec);
1734:
1733: migrate(lx_gtt_rec, l_def_gttv_rec);
1734:
1735: x_gttv_rec := l_def_gttv_rec;
1736: x_return_status := l_return_status;
1737: --Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1738: EXCEPTION
1739: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1740: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1741: (
1735: x_gttv_rec := l_def_gttv_rec;
1736: x_return_status := l_return_status;
1737: --Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1738: EXCEPTION
1739: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1740: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1741: (
1742: l_api_name,
1743: G_PKG_NAME,
1736: x_return_status := l_return_status;
1737: --Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1738: EXCEPTION
1739: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1740: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1741: (
1742: l_api_name,
1743: G_PKG_NAME,
1744: 'Okl_Api.G_RET_STS_ERROR',
1740: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1741: (
1742: l_api_name,
1743: G_PKG_NAME,
1744: 'Okl_Api.G_RET_STS_ERROR',
1745: x_msg_count,
1746: x_msg_data,
1747: '_PVT'
1748: );
1745: x_msg_count,
1746: x_msg_data,
1747: '_PVT'
1748: );
1749: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1750: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1751: (
1752: l_api_name,
1753: G_PKG_NAME,
1746: x_msg_data,
1747: '_PVT'
1748: );
1749: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1750: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1751: (
1752: l_api_name,
1753: G_PKG_NAME,
1754: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1750: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1751: (
1752: l_api_name,
1753: G_PKG_NAME,
1754: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1755: x_msg_count,
1756: x_msg_data,
1757: '_PVT'
1758: );
1756: x_msg_data,
1757: '_PVT'
1758: );
1759: WHEN OTHERS THEN
1760: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1761: (
1762: l_api_name,
1763: G_PKG_NAME,
1764: 'OTHERS',
1773: -- PL/SQL TBL update_row for:OKL_ST_GEN_TEMPLATES --
1774: ----------------------------------------------------
1775: PROCEDURE update_row(
1776: p_api_version IN NUMBER,
1777: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1778: x_return_status OUT NOCOPY VARCHAR2,
1779: x_msg_count OUT NOCOPY NUMBER,
1780: x_msg_data OUT NOCOPY VARCHAR2,
1781: p_gttv_tbl IN gttv_tbl_type,
1782: x_gttv_tbl OUT NOCOPY gttv_tbl_type) IS
1783:
1784: l_api_version CONSTANT NUMBER := 1;
1785: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1786: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1787: i NUMBER := 0;
1788:
1789: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1790: BEGIN
1785: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1786: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1787: i NUMBER := 0;
1788:
1789: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1790: BEGIN
1791: Okl_Api.init_msg_list(p_init_msg_list);
1792: -- Make sure PL/SQL table has records in it before passing
1793: IF (p_gttv_tbl.COUNT > 0) THEN
1787: i NUMBER := 0;
1788:
1789: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1790: BEGIN
1791: Okl_Api.init_msg_list(p_init_msg_list);
1792: -- Make sure PL/SQL table has records in it before passing
1793: IF (p_gttv_tbl.COUNT > 0) THEN
1794: i := p_gttv_tbl.FIRST;
1795: LOOP
1794: i := p_gttv_tbl.FIRST;
1795: LOOP
1796: update_row (
1797: p_api_version => p_api_version,
1798: p_init_msg_list => Okl_Api.G_FALSE,
1799: x_return_status => x_return_status,
1800: x_msg_count => x_msg_count,
1801: x_msg_data => x_msg_data,
1802: p_gttv_rec => p_gttv_tbl(i),
1801: x_msg_data => x_msg_data,
1802: p_gttv_rec => p_gttv_tbl(i),
1803: x_gttv_rec => x_gttv_tbl(i));
1804:
1805: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1806: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1807: l_overall_status := x_return_status;
1808: END IF;
1809: END IF;
1802: p_gttv_rec => p_gttv_tbl(i),
1803: x_gttv_rec => x_gttv_tbl(i));
1804:
1805: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
1806: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1807: l_overall_status := x_return_status;
1808: END IF;
1809: END IF;
1810:
1815: x_return_status := l_overall_status;
1816:
1817: END IF;
1818: EXCEPTION
1819: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1820: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1821: (
1822: l_api_name,
1823: G_PKG_NAME,
1816:
1817: END IF;
1818: EXCEPTION
1819: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1820: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1821: (
1822: l_api_name,
1823: G_PKG_NAME,
1824: 'Okl_Api.G_RET_STS_ERROR',
1820: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1821: (
1822: l_api_name,
1823: G_PKG_NAME,
1824: 'Okl_Api.G_RET_STS_ERROR',
1825: x_msg_count,
1826: x_msg_data,
1827: '_PVT'
1828: );
1825: x_msg_count,
1826: x_msg_data,
1827: '_PVT'
1828: );
1829: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1830: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1831: (
1832: l_api_name,
1833: G_PKG_NAME,
1826: x_msg_data,
1827: '_PVT'
1828: );
1829: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1830: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1831: (
1832: l_api_name,
1833: G_PKG_NAME,
1834: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1830: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1831: (
1832: l_api_name,
1833: G_PKG_NAME,
1834: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1835: x_msg_count,
1836: x_msg_data,
1837: '_PVT'
1838: );
1836: x_msg_data,
1837: '_PVT'
1838: );
1839: WHEN OTHERS THEN
1840: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1841: (
1842: l_api_name,
1843: G_PKG_NAME,
1844: 'OTHERS',
1854: -----------------------------------------
1855: -- delete_row for:OKL_ST_GEN_TEMPLATES --
1856: -----------------------------------------
1857: PROCEDURE delete_row(
1858: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1859: x_return_status OUT NOCOPY VARCHAR2,
1860: x_msg_count OUT NOCOPY NUMBER,
1861: x_msg_data OUT NOCOPY VARCHAR2,
1862: p_gtt_rec IN gtt_rec_type) IS
1862: p_gtt_rec IN gtt_rec_type) IS
1863:
1864: l_api_version CONSTANT NUMBER := 1;
1865: l_api_name CONSTANT VARCHAR2(30) := 'OPTS_delete_row';
1866: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1867: l_gtt_rec gtt_rec_type:= p_gtt_rec;
1868: l_row_notfound BOOLEAN := TRUE;
1869: BEGIN
1870: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1866: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1867: l_gtt_rec gtt_rec_type:= p_gtt_rec;
1868: l_row_notfound BOOLEAN := TRUE;
1869: BEGIN
1870: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1871: p_init_msg_list,
1872: '_PVT',
1873: x_return_status);
1874: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1870: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1871: p_init_msg_list,
1872: '_PVT',
1873: x_return_status);
1874: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1876: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1877: RAISE Okl_Api.G_EXCEPTION_ERROR;
1878: END IF;
1871: p_init_msg_list,
1872: '_PVT',
1873: x_return_status);
1874: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1876: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1877: RAISE Okl_Api.G_EXCEPTION_ERROR;
1878: END IF;
1879:
1872: '_PVT',
1873: x_return_status);
1874: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1876: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1877: RAISE Okl_Api.G_EXCEPTION_ERROR;
1878: END IF;
1879:
1880: -- Actual deletion of the row
1873: x_return_status);
1874: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1876: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1877: RAISE Okl_Api.G_EXCEPTION_ERROR;
1878: END IF;
1879:
1880: -- Actual deletion of the row
1881: DELETE FROM OKL_ST_GEN_TEMPLATES
1880: -- Actual deletion of the row
1881: DELETE FROM OKL_ST_GEN_TEMPLATES
1882: WHERE ID = l_gtt_rec.id;
1883:
1884: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1885:
1886: EXCEPTION
1887: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1888: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1883:
1884: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1885:
1886: EXCEPTION
1887: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1888: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1884: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1885:
1886: EXCEPTION
1887: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1888: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1892: 'Okl_Api.G_RET_STS_ERROR',
1888: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1892: 'Okl_Api.G_RET_STS_ERROR',
1893: x_msg_count,
1894: x_msg_data,
1895: '_PVT'
1896: );
1893: x_msg_count,
1894: x_msg_data,
1895: '_PVT'
1896: );
1897: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1898: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1899: (
1900: l_api_name,
1901: G_PKG_NAME,
1894: x_msg_data,
1895: '_PVT'
1896: );
1897: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1898: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1899: (
1900: l_api_name,
1901: G_PKG_NAME,
1902: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1898: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1899: (
1900: l_api_name,
1901: G_PKG_NAME,
1902: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1903: x_msg_count,
1904: x_msg_data,
1905: '_PVT'
1906: );
1904: x_msg_data,
1905: '_PVT'
1906: );
1907: WHEN OTHERS THEN
1908: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1909: (
1910: l_api_name,
1911: G_PKG_NAME,
1912: 'OTHERS',
1920: -- delete_row for:OKL_ST_GEN_TEMPLATES --
1921: ------------------------------------------
1922: PROCEDURE delete_row(
1923: p_api_version IN NUMBER,
1924: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1925: x_return_status OUT NOCOPY VARCHAR2,
1926: x_msg_count OUT NOCOPY NUMBER,
1927: x_msg_data OUT NOCOPY VARCHAR2,
1928: p_gttv_rec IN gttv_rec_type) IS
1928: p_gttv_rec IN gttv_rec_type) IS
1929:
1930: l_api_version CONSTANT NUMBER := 1;
1931: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
1932: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1933: l_gttv_rec gttv_rec_type := p_gttv_rec;
1934: l_gtt_rec gtt_rec_type;
1935: BEGIN
1936: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1932: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1933: l_gttv_rec gttv_rec_type := p_gttv_rec;
1934: l_gtt_rec gtt_rec_type;
1935: BEGIN
1936: l_return_status := Okl_Api.START_ACTIVITY(l_api_name,
1937: G_PKG_NAME,
1938: p_init_msg_list,
1939: l_api_version,
1940: p_api_version,
1939: l_api_version,
1940: p_api_version,
1941: '_PVT',
1942: x_return_status);
1943: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1944: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1945: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1946: RAISE Okl_Api.G_EXCEPTION_ERROR;
1947: END IF;
1940: p_api_version,
1941: '_PVT',
1942: x_return_status);
1943: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1944: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1945: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1946: RAISE Okl_Api.G_EXCEPTION_ERROR;
1947: END IF;
1948: --------------------------------------
1941: '_PVT',
1942: x_return_status);
1943: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1944: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1945: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1946: RAISE Okl_Api.G_EXCEPTION_ERROR;
1947: END IF;
1948: --------------------------------------
1949: -- Move VIEW record to "Child" records
1942: x_return_status);
1943: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1944: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1945: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1946: RAISE Okl_Api.G_EXCEPTION_ERROR;
1947: END IF;
1948: --------------------------------------
1949: -- Move VIEW record to "Child" records
1950: --------------------------------------
1959: x_msg_data => x_msg_data,
1960: p_gtt_rec => l_gtt_rec
1961: );
1962:
1963: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1964: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1965: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1966: RAISE Okl_Api.G_EXCEPTION_ERROR;
1967: END IF;
1960: p_gtt_rec => l_gtt_rec
1961: );
1962:
1963: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1964: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1965: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1966: RAISE Okl_Api.G_EXCEPTION_ERROR;
1967: END IF;
1968: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1961: );
1962:
1963: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1964: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1965: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1966: RAISE Okl_Api.G_EXCEPTION_ERROR;
1967: END IF;
1968: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1969: EXCEPTION
1962:
1963: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1964: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1965: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1966: RAISE Okl_Api.G_EXCEPTION_ERROR;
1967: END IF;
1968: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1969: EXCEPTION
1970: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1964: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1965: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1966: RAISE Okl_Api.G_EXCEPTION_ERROR;
1967: END IF;
1968: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1969: EXCEPTION
1970: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1971: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1972: (
1966: RAISE Okl_Api.G_EXCEPTION_ERROR;
1967: END IF;
1968: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1969: EXCEPTION
1970: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1971: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1972: (
1973: l_api_name,
1974: G_PKG_NAME,
1967: END IF;
1968: Okl_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1969: EXCEPTION
1970: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1971: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1972: (
1973: l_api_name,
1974: G_PKG_NAME,
1975: 'Okl_Api.G_RET_STS_ERROR',
1971: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
1972: (
1973: l_api_name,
1974: G_PKG_NAME,
1975: 'Okl_Api.G_RET_STS_ERROR',
1976: x_msg_count,
1977: x_msg_data,
1978: '_PVT'
1979: );
1976: x_msg_count,
1977: x_msg_data,
1978: '_PVT'
1979: );
1980: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1981: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1982: (
1983: l_api_name,
1984: G_PKG_NAME,
1977: x_msg_data,
1978: '_PVT'
1979: );
1980: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1981: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1982: (
1983: l_api_name,
1984: G_PKG_NAME,
1985: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1981: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1982: (
1983: l_api_name,
1984: G_PKG_NAME,
1985: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1986: x_msg_count,
1987: x_msg_data,
1988: '_PVT'
1989: );
1987: x_msg_data,
1988: '_PVT'
1989: );
1990: WHEN OTHERS THEN
1991: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
1992: (
1993: l_api_name,
1994: G_PKG_NAME,
1995: 'OTHERS',
2003: -- PL/SQL TBL delete_row for:OKL_ST_GEN_TEMPLATES --
2004: ----------------------------------------------------
2005: PROCEDURE delete_row(
2006: p_api_version IN NUMBER,
2007: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2008: x_return_status OUT NOCOPY VARCHAR2,
2009: x_msg_count OUT NOCOPY NUMBER,
2010: x_msg_data OUT NOCOPY VARCHAR2,
2011: p_gttv_tbl IN gttv_tbl_type) IS
2011: p_gttv_tbl IN gttv_tbl_type) IS
2012:
2013: l_api_version CONSTANT NUMBER := 1;
2014: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2015: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2016: i NUMBER := 0;
2017:
2018: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2019:
2014: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2015: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2016: i NUMBER := 0;
2017:
2018: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2019:
2020: BEGIN
2021: Okl_Api.init_msg_list(p_init_msg_list);
2022:
2017:
2018: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2019:
2020: BEGIN
2021: Okl_Api.init_msg_list(p_init_msg_list);
2022:
2023: -- Make sure PL/SQL table has records in it before passing
2024: IF (p_gttv_tbl.COUNT > 0) THEN
2025: i := p_gttv_tbl.FIRST;
2025: i := p_gttv_tbl.FIRST;
2026: LOOP
2027: delete_row (
2028: p_api_version => p_api_version,
2029: p_init_msg_list => Okl_Api.G_FALSE,
2030: x_return_status => x_return_status,
2031: x_msg_count => x_msg_count,
2032: x_msg_data => x_msg_data,
2033: p_gttv_rec => p_gttv_tbl(i));
2031: x_msg_count => x_msg_count,
2032: x_msg_data => x_msg_data,
2033: p_gttv_rec => p_gttv_tbl(i));
2034:
2035: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
2036: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
2037: l_overall_status := x_return_status;
2038: END IF;
2039: END IF;
2032: x_msg_data => x_msg_data,
2033: p_gttv_rec => p_gttv_tbl(i));
2034:
2035: IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
2036: IF l_overall_status <> Okl_Api.G_RET_STS_UNEXP_ERROR THEN
2037: l_overall_status := x_return_status;
2038: END IF;
2039: END IF;
2040:
2044:
2045: x_return_status := l_overall_status;
2046: END IF;
2047: EXCEPTION
2048: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2049: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2050: (
2051: l_api_name,
2052: G_PKG_NAME,
2045: x_return_status := l_overall_status;
2046: END IF;
2047: EXCEPTION
2048: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2049: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2050: (
2051: l_api_name,
2052: G_PKG_NAME,
2053: 'Okl_Api.G_RET_STS_ERROR',
2049: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
2050: (
2051: l_api_name,
2052: G_PKG_NAME,
2053: 'Okl_Api.G_RET_STS_ERROR',
2054: x_msg_count,
2055: x_msg_data,
2056: '_PVT'
2057: );
2054: x_msg_count,
2055: x_msg_data,
2056: '_PVT'
2057: );
2058: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2059: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2060: (
2061: l_api_name,
2062: G_PKG_NAME,
2055: x_msg_data,
2056: '_PVT'
2057: );
2058: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2059: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2060: (
2061: l_api_name,
2062: G_PKG_NAME,
2063: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2059: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2060: (
2061: l_api_name,
2062: G_PKG_NAME,
2063: 'Okl_Api.G_RET_STS_UNEXP_ERROR',
2064: x_msg_count,
2065: x_msg_data,
2066: '_PVT'
2067: );
2065: x_msg_data,
2066: '_PVT'
2067: );
2068: WHEN OTHERS THEN
2069: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2070: (
2071: l_api_name,
2072: G_PKG_NAME,
2073: 'OTHERS',