[Home] [Help]
7: PROCEDURE validate_id (p_cuvv_rec IN cuvv_rec_type,
8: x_return_status OUT NOCOPY VARCHAR2) IS
9:
10: BEGIN
11: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12: --Check for Null
13: IF p_cuvv_rec.id = Okl_Api.G_MISS_NUM OR
14: p_cuvv_rec.id IS NULL
15: THEN
9:
10: BEGIN
11: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12: --Check for Null
13: IF p_cuvv_rec.id = Okl_Api.G_MISS_NUM OR
14: p_cuvv_rec.id IS NULL
15: THEN
16:
17: x_return_status := Okl_Api.G_RET_STS_ERROR;
13: IF p_cuvv_rec.id = Okl_Api.G_MISS_NUM OR
14: p_cuvv_rec.id IS NULL
15: THEN
16:
17: x_return_status := Okl_Api.G_RET_STS_ERROR;
18: --set error message in message stack
19: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
20: p_msg_name => G_REQUIRED_VALUE,
21: p_token1 => G_COL_NAME_TOKEN,
15: THEN
16:
17: x_return_status := Okl_Api.G_RET_STS_ERROR;
18: --set error message in message stack
19: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
20: p_msg_name => G_REQUIRED_VALUE,
21: p_token1 => G_COL_NAME_TOKEN,
22: p_token1_value => 'id');
23: RAISE G_EXCEPTION_HALT_VALIDATION;
31: PROCEDURE validate_object_version_number (p_cuvv_rec IN cuvv_rec_type,
32: x_return_status OUT NOCOPY VARCHAR2) IS
33:
34: BEGIN
35: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
36: --Check for Null
37: IF p_cuvv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
38: p_cuvv_rec.object_version_number IS NULL
39: THEN
33:
34: BEGIN
35: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
36: --Check for Null
37: IF p_cuvv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
38: p_cuvv_rec.object_version_number IS NULL
39: THEN
40:
41: x_return_status := Okl_Api.G_RET_STS_ERROR;
37: IF p_cuvv_rec.object_version_number = Okl_Api.G_MISS_NUM OR
38: p_cuvv_rec.object_version_number IS NULL
39: THEN
40:
41: x_return_status := Okl_Api.G_RET_STS_ERROR;
42: --set error message in message stack
43: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
44: p_msg_name => G_REQUIRED_VALUE,
45: p_token1 => G_COL_NAME_TOKEN,
39: THEN
40:
41: x_return_status := Okl_Api.G_RET_STS_ERROR;
42: --set error message in message stack
43: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
44: p_msg_name => G_REQUIRED_VALUE,
45: p_token1 => G_COL_NAME_TOKEN,
46: p_token1_value => 'object_version_number');
47: RAISE G_EXCEPTION_HALT_VALIDATION;
62: FROM OKL_CRITERIA_B
63: WHERE id = p_cuvv_rec.crn_id;
64:
65: BEGIN
66: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
67:
68: --Check for Null
69: IF p_cuvv_rec.crn_id = Okl_Api.G_MISS_NUM OR
70: p_cuvv_rec.crn_id IS NULL
65: BEGIN
66: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
67:
68: --Check for Null
69: IF p_cuvv_rec.crn_id = Okl_Api.G_MISS_NUM OR
70: p_cuvv_rec.crn_id IS NULL
71: THEN
72: x_return_status := Okl_Api.G_RET_STS_ERROR;
73: --set error message in message stack
68: --Check for Null
69: IF p_cuvv_rec.crn_id = Okl_Api.G_MISS_NUM OR
70: p_cuvv_rec.crn_id IS NULL
71: THEN
72: x_return_status := Okl_Api.G_RET_STS_ERROR;
73: --set error message in message stack
74: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
75: p_msg_name => G_REQUIRED_VALUE,
76: p_token1 => G_COL_NAME_TOKEN,
70: p_cuvv_rec.crn_id IS NULL
71: THEN
72: x_return_status := Okl_Api.G_RET_STS_ERROR;
73: --set error message in message stack
74: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
75: p_msg_name => G_REQUIRED_VALUE,
76: p_token1 => G_COL_NAME_TOKEN,
77: p_token1_value => 'crn_id');
78: RAISE G_EXCEPTION_HALT_VALIDATION;
83: FETCH l_crn_id_csr INTO l_dummy_var;
84: CLOSE l_crn_id_csr;
85:
86: IF (l_dummy_var <> '1') THEN
87: x_return_status := Okl_Api.G_RET_STS_ERROR;
88: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
89: p_msg_name => G_NO_PARENT_RECORD,
90: p_token1 => G_COL_NAME_TOKEN,
91: p_token1_value => 'CRN_ID_FOR',
84: CLOSE l_crn_id_csr;
85:
86: IF (l_dummy_var <> '1') THEN
87: x_return_status := Okl_Api.G_RET_STS_ERROR;
88: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
89: p_msg_name => G_NO_PARENT_RECORD,
90: p_token1 => G_COL_NAME_TOKEN,
91: p_token1_value => 'CRN_ID_FOR',
92: p_token2 => G_CHILD_TABLE_TOKEN,
104: PROCEDURE validate_sequence_number (p_cuvv_rec IN cuvv_rec_type,
105: x_return_status OUT NOCOPY VARCHAR2) IS
106:
107: BEGIN
108: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
109: --Check for Null
110: IF p_cuvv_rec.sequence_number = Okl_Api.G_MISS_NUM OR
111: p_cuvv_rec.sequence_number IS NULL
112: THEN
106:
107: BEGIN
108: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
109: --Check for Null
110: IF p_cuvv_rec.sequence_number = Okl_Api.G_MISS_NUM OR
111: p_cuvv_rec.sequence_number IS NULL
112: THEN
113:
114: x_return_status := Okl_Api.G_RET_STS_ERROR;
110: IF p_cuvv_rec.sequence_number = Okl_Api.G_MISS_NUM OR
111: p_cuvv_rec.sequence_number IS NULL
112: THEN
113:
114: x_return_status := Okl_Api.G_RET_STS_ERROR;
115: --set error message in message stack
116: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
117: p_msg_name => G_REQUIRED_VALUE,
118: p_token1 => G_COL_NAME_TOKEN,
112: THEN
113:
114: x_return_status := Okl_Api.G_RET_STS_ERROR;
115: --set error message in message stack
116: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
117: p_msg_name => G_REQUIRED_VALUE,
118: p_token1 => G_COL_NAME_TOKEN,
119: p_token1_value => 'sequence_number');
120: RAISE G_EXCEPTION_HALT_VALIDATION;
128: PROCEDURE validate_value (p_cuvv_rec IN cuvv_rec_type,
129: x_return_status OUT NOCOPY VARCHAR2) IS
130:
131: BEGIN
132: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
133: --Check for Null
134: IF p_cuvv_rec.value = Okl_Api.G_MISS_NUM OR
135: p_cuvv_rec.value IS NULL
136: THEN
130:
131: BEGIN
132: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
133: --Check for Null
134: IF p_cuvv_rec.value = Okl_Api.G_MISS_NUM OR
135: p_cuvv_rec.value IS NULL
136: THEN
137:
138: x_return_status := Okl_Api.G_RET_STS_ERROR;
134: IF p_cuvv_rec.value = Okl_Api.G_MISS_NUM OR
135: p_cuvv_rec.value IS NULL
136: THEN
137:
138: x_return_status := Okl_Api.G_RET_STS_ERROR;
139: --set error message in message stack
140: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
141: p_msg_name => G_REQUIRED_VALUE,
142: p_token1 => G_COL_NAME_TOKEN,
136: THEN
137:
138: x_return_status := Okl_Api.G_RET_STS_ERROR;
139: --set error message in message stack
140: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
141: p_msg_name => G_REQUIRED_VALUE,
142: p_token1 => G_COL_NAME_TOKEN,
143: p_token1_value => 'value');
144: RAISE G_EXCEPTION_HALT_VALIDATION;
473: p_cuvv_rec IN cuvv_rec_type
474: ) RETURN cuvv_rec_type IS
475: l_cuvv_rec cuvv_rec_type := p_cuvv_rec;
476: BEGIN
477: IF (l_cuvv_rec.object_version_number = Okl_Api.G_MISS_NUM) THEN
478: l_cuvv_rec.object_version_number := NULL;
479: END IF;
480: IF (l_cuvv_rec.sfwt_flag = okl_api.G_MISS_CHAR) THEN
481: l_cuvv_rec.sfwt_flag := NULL;
476: BEGIN
477: IF (l_cuvv_rec.object_version_number = Okl_Api.G_MISS_NUM) THEN
478: l_cuvv_rec.object_version_number := NULL;
479: END IF;
480: IF (l_cuvv_rec.sfwt_flag = okl_api.G_MISS_CHAR) THEN
481: l_cuvv_rec.sfwt_flag := NULL;
482: END IF;
483: IF (l_cuvv_rec.crn_id = okl_api.G_MISS_NUM) THEN
484: l_cuvv_rec.crn_id := NULL;
479: END IF;
480: IF (l_cuvv_rec.sfwt_flag = okl_api.G_MISS_CHAR) THEN
481: l_cuvv_rec.sfwt_flag := NULL;
482: END IF;
483: IF (l_cuvv_rec.crn_id = okl_api.G_MISS_NUM) THEN
484: l_cuvv_rec.crn_id := NULL;
485: END IF;
486: IF (l_cuvv_rec.sequence_number = okl_api.G_MISS_NUM) THEN
487: l_cuvv_rec.sequence_number := NULL;
482: END IF;
483: IF (l_cuvv_rec.crn_id = okl_api.G_MISS_NUM) THEN
484: l_cuvv_rec.crn_id := NULL;
485: END IF;
486: IF (l_cuvv_rec.sequence_number = okl_api.G_MISS_NUM) THEN
487: l_cuvv_rec.sequence_number := NULL;
488: END IF;
489: IF (l_cuvv_rec.value = okl_api.G_MISS_NUM) THEN
490: l_cuvv_rec.value := NULL;
485: END IF;
486: IF (l_cuvv_rec.sequence_number = okl_api.G_MISS_NUM) THEN
487: l_cuvv_rec.sequence_number := NULL;
488: END IF;
489: IF (l_cuvv_rec.value = okl_api.G_MISS_NUM) THEN
490: l_cuvv_rec.value := NULL;
491: END IF;
492: IF (l_cuvv_rec.description = okl_api.G_MISS_CHAR) THEN
493: l_cuvv_rec.description := NULL;
488: END IF;
489: IF (l_cuvv_rec.value = okl_api.G_MISS_NUM) THEN
490: l_cuvv_rec.value := NULL;
491: END IF;
492: IF (l_cuvv_rec.description = okl_api.G_MISS_CHAR) THEN
493: l_cuvv_rec.description := NULL;
494: END IF;
495: IF (l_cuvv_rec.attribute_category = okl_api.G_MISS_CHAR) THEN
496: l_cuvv_rec.attribute_category := NULL;
491: END IF;
492: IF (l_cuvv_rec.description = okl_api.G_MISS_CHAR) THEN
493: l_cuvv_rec.description := NULL;
494: END IF;
495: IF (l_cuvv_rec.attribute_category = okl_api.G_MISS_CHAR) THEN
496: l_cuvv_rec.attribute_category := NULL;
497: END IF;
498: IF (l_cuvv_rec.attribute1 = okl_api.G_MISS_CHAR) THEN
499: l_cuvv_rec.attribute1 := NULL;
494: END IF;
495: IF (l_cuvv_rec.attribute_category = okl_api.G_MISS_CHAR) THEN
496: l_cuvv_rec.attribute_category := NULL;
497: END IF;
498: IF (l_cuvv_rec.attribute1 = okl_api.G_MISS_CHAR) THEN
499: l_cuvv_rec.attribute1 := NULL;
500: END IF;
501: IF (l_cuvv_rec.attribute2 = okl_api.G_MISS_CHAR) THEN
502: l_cuvv_rec.attribute2 := NULL;
497: END IF;
498: IF (l_cuvv_rec.attribute1 = okl_api.G_MISS_CHAR) THEN
499: l_cuvv_rec.attribute1 := NULL;
500: END IF;
501: IF (l_cuvv_rec.attribute2 = okl_api.G_MISS_CHAR) THEN
502: l_cuvv_rec.attribute2 := NULL;
503: END IF;
504: IF (l_cuvv_rec.attribute3 = okl_api.G_MISS_CHAR) THEN
505: l_cuvv_rec.attribute3 := NULL;
500: END IF;
501: IF (l_cuvv_rec.attribute2 = okl_api.G_MISS_CHAR) THEN
502: l_cuvv_rec.attribute2 := NULL;
503: END IF;
504: IF (l_cuvv_rec.attribute3 = okl_api.G_MISS_CHAR) THEN
505: l_cuvv_rec.attribute3 := NULL;
506: END IF;
507: IF (l_cuvv_rec.attribute4 = okl_api.G_MISS_CHAR) THEN
508: l_cuvv_rec.attribute4 := NULL;
503: END IF;
504: IF (l_cuvv_rec.attribute3 = okl_api.G_MISS_CHAR) THEN
505: l_cuvv_rec.attribute3 := NULL;
506: END IF;
507: IF (l_cuvv_rec.attribute4 = okl_api.G_MISS_CHAR) THEN
508: l_cuvv_rec.attribute4 := NULL;
509: END IF;
510: IF (l_cuvv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
511: l_cuvv_rec.attribute5 := NULL;
506: END IF;
507: IF (l_cuvv_rec.attribute4 = okl_api.G_MISS_CHAR) THEN
508: l_cuvv_rec.attribute4 := NULL;
509: END IF;
510: IF (l_cuvv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
511: l_cuvv_rec.attribute5 := NULL;
512: END IF;
513: IF (l_cuvv_rec.attribute6 = okl_api.G_MISS_CHAR) THEN
514: l_cuvv_rec.attribute6 := NULL;
509: END IF;
510: IF (l_cuvv_rec.attribute5 = Okl_Api.G_MISS_CHAR) THEN
511: l_cuvv_rec.attribute5 := NULL;
512: END IF;
513: IF (l_cuvv_rec.attribute6 = okl_api.G_MISS_CHAR) THEN
514: l_cuvv_rec.attribute6 := NULL;
515: END IF;
516: IF (l_cuvv_rec.attribute7 = okl_api.G_MISS_CHAR) THEN
517: l_cuvv_rec.attribute7 := NULL;
512: END IF;
513: IF (l_cuvv_rec.attribute6 = okl_api.G_MISS_CHAR) THEN
514: l_cuvv_rec.attribute6 := NULL;
515: END IF;
516: IF (l_cuvv_rec.attribute7 = okl_api.G_MISS_CHAR) THEN
517: l_cuvv_rec.attribute7 := NULL;
518: END IF;
519: IF (l_cuvv_rec.attribute8 = okl_api.G_MISS_CHAR) THEN
520: l_cuvv_rec.attribute8 := NULL;
515: END IF;
516: IF (l_cuvv_rec.attribute7 = okl_api.G_MISS_CHAR) THEN
517: l_cuvv_rec.attribute7 := NULL;
518: END IF;
519: IF (l_cuvv_rec.attribute8 = okl_api.G_MISS_CHAR) THEN
520: l_cuvv_rec.attribute8 := NULL;
521: END IF;
522: IF (l_cuvv_rec.attribute9 = okl_api.G_MISS_CHAR) THEN
523: l_cuvv_rec.attribute9 := NULL;
518: END IF;
519: IF (l_cuvv_rec.attribute8 = okl_api.G_MISS_CHAR) THEN
520: l_cuvv_rec.attribute8 := NULL;
521: END IF;
522: IF (l_cuvv_rec.attribute9 = okl_api.G_MISS_CHAR) THEN
523: l_cuvv_rec.attribute9 := NULL;
524: END IF;
525: IF (l_cuvv_rec.attribute10 = okl_api.G_MISS_CHAR) THEN
526: l_cuvv_rec.attribute10 := NULL;
521: END IF;
522: IF (l_cuvv_rec.attribute9 = okl_api.G_MISS_CHAR) THEN
523: l_cuvv_rec.attribute9 := NULL;
524: END IF;
525: IF (l_cuvv_rec.attribute10 = okl_api.G_MISS_CHAR) THEN
526: l_cuvv_rec.attribute10 := NULL;
527: END IF;
528: IF (l_cuvv_rec.attribute11 = okl_api.G_MISS_CHAR) THEN
529: l_cuvv_rec.attribute11 := NULL;
524: END IF;
525: IF (l_cuvv_rec.attribute10 = okl_api.G_MISS_CHAR) THEN
526: l_cuvv_rec.attribute10 := NULL;
527: END IF;
528: IF (l_cuvv_rec.attribute11 = okl_api.G_MISS_CHAR) THEN
529: l_cuvv_rec.attribute11 := NULL;
530: END IF;
531: IF (l_cuvv_rec.attribute12 = okl_api.G_MISS_CHAR) THEN
532: l_cuvv_rec.attribute12 := NULL;
527: END IF;
528: IF (l_cuvv_rec.attribute11 = okl_api.G_MISS_CHAR) THEN
529: l_cuvv_rec.attribute11 := NULL;
530: END IF;
531: IF (l_cuvv_rec.attribute12 = okl_api.G_MISS_CHAR) THEN
532: l_cuvv_rec.attribute12 := NULL;
533: END IF;
534: IF (l_cuvv_rec.attribute13 = okl_api.G_MISS_CHAR) THEN
535: l_cuvv_rec.attribute13 := NULL;
530: END IF;
531: IF (l_cuvv_rec.attribute12 = okl_api.G_MISS_CHAR) THEN
532: l_cuvv_rec.attribute12 := NULL;
533: END IF;
534: IF (l_cuvv_rec.attribute13 = okl_api.G_MISS_CHAR) THEN
535: l_cuvv_rec.attribute13 := NULL;
536: END IF;
537: IF (l_cuvv_rec.attribute14 = okl_api.G_MISS_CHAR) THEN
538: l_cuvv_rec.attribute14 := NULL;
533: END IF;
534: IF (l_cuvv_rec.attribute13 = okl_api.G_MISS_CHAR) THEN
535: l_cuvv_rec.attribute13 := NULL;
536: END IF;
537: IF (l_cuvv_rec.attribute14 = okl_api.G_MISS_CHAR) THEN
538: l_cuvv_rec.attribute14 := NULL;
539: END IF;
540: IF (l_cuvv_rec.attribute15 = okl_api.G_MISS_CHAR) THEN
541: l_cuvv_rec.attribute15 := NULL;
536: END IF;
537: IF (l_cuvv_rec.attribute14 = okl_api.G_MISS_CHAR) THEN
538: l_cuvv_rec.attribute14 := NULL;
539: END IF;
540: IF (l_cuvv_rec.attribute15 = okl_api.G_MISS_CHAR) THEN
541: l_cuvv_rec.attribute15 := NULL;
542: END IF;
543: IF (l_cuvv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
544: l_cuvv_rec.created_by := NULL;
539: END IF;
540: IF (l_cuvv_rec.attribute15 = okl_api.G_MISS_CHAR) THEN
541: l_cuvv_rec.attribute15 := NULL;
542: END IF;
543: IF (l_cuvv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
544: l_cuvv_rec.created_by := NULL;
545: END IF;
546: IF (l_cuvv_rec.creation_date = okl_api.G_MISS_DATE) THEN
547: l_cuvv_rec.creation_date := NULL;
542: END IF;
543: IF (l_cuvv_rec.created_by = Okl_Api.G_MISS_NUM) THEN
544: l_cuvv_rec.created_by := NULL;
545: END IF;
546: IF (l_cuvv_rec.creation_date = okl_api.G_MISS_DATE) THEN
547: l_cuvv_rec.creation_date := NULL;
548: END IF;
549: IF (l_cuvv_rec.last_updated_by = okl_api.G_MISS_NUM) THEN
550: l_cuvv_rec.last_updated_by := NULL;
545: END IF;
546: IF (l_cuvv_rec.creation_date = okl_api.G_MISS_DATE) THEN
547: l_cuvv_rec.creation_date := NULL;
548: END IF;
549: IF (l_cuvv_rec.last_updated_by = okl_api.G_MISS_NUM) THEN
550: l_cuvv_rec.last_updated_by := NULL;
551: END IF;
552: IF (l_cuvv_rec.last_update_date = okl_api.G_MISS_DATE) THEN
553: l_cuvv_rec.last_update_date := NULL;
548: END IF;
549: IF (l_cuvv_rec.last_updated_by = okl_api.G_MISS_NUM) THEN
550: l_cuvv_rec.last_updated_by := NULL;
551: END IF;
552: IF (l_cuvv_rec.last_update_date = okl_api.G_MISS_DATE) THEN
553: l_cuvv_rec.last_update_date := NULL;
554: END IF;
555: IF (l_cuvv_rec.last_update_login = okl_api.G_MISS_NUM) THEN
556: l_cuvv_rec.last_update_login := NULL;
551: END IF;
552: IF (l_cuvv_rec.last_update_date = okl_api.G_MISS_DATE) THEN
553: l_cuvv_rec.last_update_date := NULL;
554: END IF;
555: IF (l_cuvv_rec.last_update_login = okl_api.G_MISS_NUM) THEN
556: l_cuvv_rec.last_update_login := NULL;
557: END IF;
558: RETURN(l_cuvv_rec);
559: END null_out_defaults;
565: ---------------------------------------------------
566: FUNCTION Validate_Attributes (
567: p_cuvv_rec IN cuvv_rec_type
568: ) RETURN VARCHAR2 IS
569: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
570: -- TAPI postgen 05/23/2001
571: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
572: -- End TAPI postgen 05/23/2001
573: BEGIN
567: p_cuvv_rec IN cuvv_rec_type
568: ) RETURN VARCHAR2 IS
569: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
570: -- TAPI postgen 05/23/2001
571: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
572: -- End TAPI postgen 05/23/2001
573: BEGIN
574: -- TAPI postgen 05/23/2001
575: validate_id(p_cuvv_rec, x_return_status);
572: -- End TAPI postgen 05/23/2001
573: BEGIN
574: -- TAPI postgen 05/23/2001
575: validate_id(p_cuvv_rec, x_return_status);
576: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
577: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
578: l_return_status := x_return_status;
579: RAISE G_EXCEPTION_HALT_VALIDATION;
580: ELSE
573: BEGIN
574: -- TAPI postgen 05/23/2001
575: validate_id(p_cuvv_rec, x_return_status);
576: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
577: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
578: l_return_status := x_return_status;
579: RAISE G_EXCEPTION_HALT_VALIDATION;
580: ELSE
581: l_return_status := x_return_status; -- record that there was an error
582: END IF;
583: END IF;
584:
585: validate_object_version_number(p_cuvv_rec, x_return_status);
586: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
587: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
588: l_return_status := x_return_status;
589: RAISE G_EXCEPTION_HALT_VALIDATION;
590: ELSE
583: END IF;
584:
585: validate_object_version_number(p_cuvv_rec, x_return_status);
586: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
587: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
588: l_return_status := x_return_status;
589: RAISE G_EXCEPTION_HALT_VALIDATION;
590: ELSE
591: l_return_status := x_return_status; -- record that there was an error
592: END IF;
593: END IF;
594:
595: validate_crn_id(p_cuvv_rec, x_return_status);
596: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
597: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
598: l_return_status := x_return_status;
599: RAISE G_EXCEPTION_HALT_VALIDATION;
600: ELSE
593: END IF;
594:
595: validate_crn_id(p_cuvv_rec, x_return_status);
596: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
597: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
598: l_return_status := x_return_status;
599: RAISE G_EXCEPTION_HALT_VALIDATION;
600: ELSE
601: l_return_status := x_return_status; -- record that there was an error
602: END IF;
603: END IF;
604:
605: validate_sequence_number(p_cuvv_rec, x_return_status);
606: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
607: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
608: l_return_status := x_return_status;
609: RAISE G_EXCEPTION_HALT_VALIDATION;
610: ELSE
603: END IF;
604:
605: validate_sequence_number(p_cuvv_rec, x_return_status);
606: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
607: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
608: l_return_status := x_return_status;
609: RAISE G_EXCEPTION_HALT_VALIDATION;
610: ELSE
611: l_return_status := x_return_status; -- record that there was an error
612: END IF;
613: END IF;
614:
615: validate_value(p_cuvv_rec, x_return_status);
616: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
617: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
618: l_return_status := x_return_status;
619: RAISE G_EXCEPTION_HALT_VALIDATION;
620: ELSE
613: END IF;
614:
615: validate_value(p_cuvv_rec, x_return_status);
616: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
617: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
618: l_return_status := x_return_status;
619: RAISE G_EXCEPTION_HALT_VALIDATION;
620: ELSE
621: l_return_status := x_return_status; -- record that there was an error
623: END IF;
624:
625: -- End TAPI postgen 05/23/2001
626:
627: IF p_cuvv_rec.id = okl_api.G_MISS_NUM OR
628: p_cuvv_rec.id IS NULL
629: THEN
630: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
631: l_return_status := okl_api.G_RET_STS_ERROR;
626:
627: IF p_cuvv_rec.id = okl_api.G_MISS_NUM OR
628: p_cuvv_rec.id IS NULL
629: THEN
630: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
631: l_return_status := okl_api.G_RET_STS_ERROR;
632: ELSIF p_cuvv_rec.object_version_number = okl_api.G_MISS_NUM OR
633: p_cuvv_rec.object_version_number IS NULL
634: THEN
627: IF p_cuvv_rec.id = okl_api.G_MISS_NUM OR
628: p_cuvv_rec.id IS NULL
629: THEN
630: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
631: l_return_status := okl_api.G_RET_STS_ERROR;
632: ELSIF p_cuvv_rec.object_version_number = okl_api.G_MISS_NUM OR
633: p_cuvv_rec.object_version_number IS NULL
634: THEN
635: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
628: p_cuvv_rec.id IS NULL
629: THEN
630: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
631: l_return_status := okl_api.G_RET_STS_ERROR;
632: ELSIF p_cuvv_rec.object_version_number = okl_api.G_MISS_NUM OR
633: p_cuvv_rec.object_version_number IS NULL
634: THEN
635: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
636: l_return_status := okl_api.G_RET_STS_ERROR;
631: l_return_status := okl_api.G_RET_STS_ERROR;
632: ELSIF p_cuvv_rec.object_version_number = okl_api.G_MISS_NUM OR
633: p_cuvv_rec.object_version_number IS NULL
634: THEN
635: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
636: l_return_status := okl_api.G_RET_STS_ERROR;
637: ELSIF p_cuvv_rec.crn_id = okl_api.G_MISS_NUM OR
638: p_cuvv_rec.crn_id IS NULL
639: THEN
632: ELSIF p_cuvv_rec.object_version_number = okl_api.G_MISS_NUM OR
633: p_cuvv_rec.object_version_number IS NULL
634: THEN
635: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
636: l_return_status := okl_api.G_RET_STS_ERROR;
637: ELSIF p_cuvv_rec.crn_id = okl_api.G_MISS_NUM OR
638: p_cuvv_rec.crn_id IS NULL
639: THEN
640: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'crn_id');
633: p_cuvv_rec.object_version_number IS NULL
634: THEN
635: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
636: l_return_status := okl_api.G_RET_STS_ERROR;
637: ELSIF p_cuvv_rec.crn_id = okl_api.G_MISS_NUM OR
638: p_cuvv_rec.crn_id IS NULL
639: THEN
640: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'crn_id');
641: l_return_status := okl_api.G_RET_STS_ERROR;
636: l_return_status := okl_api.G_RET_STS_ERROR;
637: ELSIF p_cuvv_rec.crn_id = okl_api.G_MISS_NUM OR
638: p_cuvv_rec.crn_id IS NULL
639: THEN
640: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'crn_id');
641: l_return_status := okl_api.G_RET_STS_ERROR;
642: ELSIF p_cuvv_rec.sequence_number = okl_api.G_MISS_NUM OR
643: p_cuvv_rec.sequence_number IS NULL
644: THEN
637: ELSIF p_cuvv_rec.crn_id = okl_api.G_MISS_NUM OR
638: p_cuvv_rec.crn_id IS NULL
639: THEN
640: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'crn_id');
641: l_return_status := okl_api.G_RET_STS_ERROR;
642: ELSIF p_cuvv_rec.sequence_number = okl_api.G_MISS_NUM OR
643: p_cuvv_rec.sequence_number IS NULL
644: THEN
645: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
638: p_cuvv_rec.crn_id IS NULL
639: THEN
640: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'crn_id');
641: l_return_status := okl_api.G_RET_STS_ERROR;
642: ELSIF p_cuvv_rec.sequence_number = okl_api.G_MISS_NUM OR
643: p_cuvv_rec.sequence_number IS NULL
644: THEN
645: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
646: l_return_status := okl_api.G_RET_STS_ERROR;
641: l_return_status := okl_api.G_RET_STS_ERROR;
642: ELSIF p_cuvv_rec.sequence_number = okl_api.G_MISS_NUM OR
643: p_cuvv_rec.sequence_number IS NULL
644: THEN
645: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
646: l_return_status := okl_api.G_RET_STS_ERROR;
647: ELSIF p_cuvv_rec.value = okl_api.G_MISS_NUM OR
648: p_cuvv_rec.value IS NULL
649: THEN
642: ELSIF p_cuvv_rec.sequence_number = okl_api.G_MISS_NUM OR
643: p_cuvv_rec.sequence_number IS NULL
644: THEN
645: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
646: l_return_status := okl_api.G_RET_STS_ERROR;
647: ELSIF p_cuvv_rec.value = okl_api.G_MISS_NUM OR
648: p_cuvv_rec.value IS NULL
649: THEN
650: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'value');
643: p_cuvv_rec.sequence_number IS NULL
644: THEN
645: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
646: l_return_status := okl_api.G_RET_STS_ERROR;
647: ELSIF p_cuvv_rec.value = okl_api.G_MISS_NUM OR
648: p_cuvv_rec.value IS NULL
649: THEN
650: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'value');
651: l_return_status := okl_api.G_RET_STS_ERROR;
646: l_return_status := okl_api.G_RET_STS_ERROR;
647: ELSIF p_cuvv_rec.value = okl_api.G_MISS_NUM OR
648: p_cuvv_rec.value IS NULL
649: THEN
650: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'value');
651: l_return_status := okl_api.G_RET_STS_ERROR;
652: END IF;
653: RETURN(l_return_status);
654: END Validate_Attributes;
647: ELSIF p_cuvv_rec.value = okl_api.G_MISS_NUM OR
648: p_cuvv_rec.value IS NULL
649: THEN
650: okl_api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'value');
651: l_return_status := okl_api.G_RET_STS_ERROR;
652: END IF;
653: RETURN(l_return_status);
654: END Validate_Attributes;
655:
661: -----------------------------------------------
662: FUNCTION Validate_Record (
663: p_cuvv_rec IN cuvv_rec_type
664: ) RETURN VARCHAR2 IS
665: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
666: BEGIN
667: RETURN (l_return_status);
668: END Validate_Record;
669:
770: -- validate_row for:OKL_CRTRN_USER_VALS_V --
771: --------------------------------------------
772: PROCEDURE validate_row(
773: p_api_version IN NUMBER,
774: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
775: x_return_status OUT NOCOPY VARCHAR2,
776: x_msg_count OUT NOCOPY NUMBER,
777: x_msg_data OUT NOCOPY VARCHAR2,
778: p_cuvv_rec IN cuvv_rec_type) IS
778: p_cuvv_rec IN cuvv_rec_type) IS
779:
780: l_api_version CONSTANT NUMBER := 1;
781: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
782: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
783: l_cuvv_rec cuvv_rec_type := p_cuvv_rec;
784: l_cuv_rec cuv_rec_type;
785: l_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType;
786: BEGIN
783: l_cuvv_rec cuvv_rec_type := p_cuvv_rec;
784: l_cuv_rec cuv_rec_type;
785: l_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType;
786: BEGIN
787: l_return_status := okl_api.START_ACTIVITY(l_api_name,
788: G_PKG_NAME,
789: p_init_msg_list,
790: l_api_version,
791: p_api_version,
790: l_api_version,
791: p_api_version,
792: '_PVT',
793: x_return_status);
794: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
797: RAISE okl_api.G_EXCEPTION_ERROR;
798: END IF;
791: p_api_version,
792: '_PVT',
793: x_return_status);
794: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
797: RAISE okl_api.G_EXCEPTION_ERROR;
798: END IF;
799: --- Validate all non-missing attributes (Item Level Validation)
792: '_PVT',
793: x_return_status);
794: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
797: RAISE okl_api.G_EXCEPTION_ERROR;
798: END IF;
799: --- Validate all non-missing attributes (Item Level Validation)
800: l_return_status := Validate_Attributes(l_cuvv_rec);
793: x_return_status);
794: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
795: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
796: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
797: RAISE okl_api.G_EXCEPTION_ERROR;
798: END IF;
799: --- Validate all non-missing attributes (Item Level Validation)
800: l_return_status := Validate_Attributes(l_cuvv_rec);
801: --- If any errors happen abort API
798: END IF;
799: --- Validate all non-missing attributes (Item Level Validation)
800: l_return_status := Validate_Attributes(l_cuvv_rec);
801: --- If any errors happen abort API
802: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
805: RAISE okl_api.G_EXCEPTION_ERROR;
806: END IF;
799: --- Validate all non-missing attributes (Item Level Validation)
800: l_return_status := Validate_Attributes(l_cuvv_rec);
801: --- If any errors happen abort API
802: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
805: RAISE okl_api.G_EXCEPTION_ERROR;
806: END IF;
807: l_return_status := Validate_Record(l_cuvv_rec);
800: l_return_status := Validate_Attributes(l_cuvv_rec);
801: --- If any errors happen abort API
802: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
805: RAISE okl_api.G_EXCEPTION_ERROR;
806: END IF;
807: l_return_status := Validate_Record(l_cuvv_rec);
808: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
801: --- If any errors happen abort API
802: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
805: RAISE okl_api.G_EXCEPTION_ERROR;
806: END IF;
807: l_return_status := Validate_Record(l_cuvv_rec);
808: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
809: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
805: RAISE okl_api.G_EXCEPTION_ERROR;
806: END IF;
807: l_return_status := Validate_Record(l_cuvv_rec);
808: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
809: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
810: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
811: RAISE okl_api.G_EXCEPTION_ERROR;
812: END IF;
805: RAISE okl_api.G_EXCEPTION_ERROR;
806: END IF;
807: l_return_status := Validate_Record(l_cuvv_rec);
808: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
809: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
810: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
811: RAISE okl_api.G_EXCEPTION_ERROR;
812: END IF;
813: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
806: END IF;
807: l_return_status := Validate_Record(l_cuvv_rec);
808: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
809: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
810: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
811: RAISE okl_api.G_EXCEPTION_ERROR;
812: END IF;
813: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
814: EXCEPTION
807: l_return_status := Validate_Record(l_cuvv_rec);
808: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
809: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
810: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
811: RAISE okl_api.G_EXCEPTION_ERROR;
812: END IF;
813: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
814: EXCEPTION
815: WHEN okl_api.G_EXCEPTION_ERROR THEN
809: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
810: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
811: RAISE okl_api.G_EXCEPTION_ERROR;
812: END IF;
813: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
814: EXCEPTION
815: WHEN okl_api.G_EXCEPTION_ERROR THEN
816: x_return_status := okl_api.HANDLE_EXCEPTIONS
817: (
811: RAISE okl_api.G_EXCEPTION_ERROR;
812: END IF;
813: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
814: EXCEPTION
815: WHEN okl_api.G_EXCEPTION_ERROR THEN
816: x_return_status := okl_api.HANDLE_EXCEPTIONS
817: (
818: l_api_name,
819: G_PKG_NAME,
812: END IF;
813: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
814: EXCEPTION
815: WHEN okl_api.G_EXCEPTION_ERROR THEN
816: x_return_status := okl_api.HANDLE_EXCEPTIONS
817: (
818: l_api_name,
819: G_PKG_NAME,
820: 'okl_api.G_RET_STS_ERROR',
816: x_return_status := okl_api.HANDLE_EXCEPTIONS
817: (
818: l_api_name,
819: G_PKG_NAME,
820: 'okl_api.G_RET_STS_ERROR',
821: x_msg_count,
822: x_msg_data,
823: '_PVT'
824: );
821: x_msg_count,
822: x_msg_data,
823: '_PVT'
824: );
825: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
826: x_return_status :=okl_api.HANDLE_EXCEPTIONS
827: (
828: l_api_name,
829: G_PKG_NAME,
822: x_msg_data,
823: '_PVT'
824: );
825: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
826: x_return_status :=okl_api.HANDLE_EXCEPTIONS
827: (
828: l_api_name,
829: G_PKG_NAME,
830: 'okl_api.G_RET_STS_UNEXP_ERROR',
826: x_return_status :=okl_api.HANDLE_EXCEPTIONS
827: (
828: l_api_name,
829: G_PKG_NAME,
830: 'okl_api.G_RET_STS_UNEXP_ERROR',
831: x_msg_count,
832: x_msg_data,
833: '_PVT'
834: );
832: x_msg_data,
833: '_PVT'
834: );
835: WHEN OTHERS THEN
836: x_return_status :=okl_api.HANDLE_EXCEPTIONS
837: (
838: l_api_name,
839: G_PKG_NAME,
840: 'OTHERS',
847: -- PL/SQL TBL validate_row for:CUVV_TBL --
848: ------------------------------------------
849: PROCEDURE validate_row(
850: p_api_version IN NUMBER,
851: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
852: x_return_status OUT NOCOPY VARCHAR2,
853: x_msg_count OUT NOCOPY NUMBER,
854: x_msg_data OUT NOCOPY VARCHAR2,
855: p_cuvv_tbl IN cuvv_tbl_type) IS
855: p_cuvv_tbl IN cuvv_tbl_type) IS
856:
857: l_api_version CONSTANT NUMBER := 1;
858: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
859: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
860: i NUMBER := 0;
861: BEGIN
862: okl_api.init_msg_list(p_init_msg_list);
863: -- Make sure PL/SQL table has records in it before passing
858: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
859: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
860: i NUMBER := 0;
861: BEGIN
862: okl_api.init_msg_list(p_init_msg_list);
863: -- Make sure PL/SQL table has records in it before passing
864: IF (p_cuvv_tbl.COUNT > 0) THEN
865: i := p_cuvv_tbl.FIRST;
866: LOOP
865: i := p_cuvv_tbl.FIRST;
866: LOOP
867: validate_row (
868: p_api_version => p_api_version,
869: p_init_msg_list => okl_api.G_FALSE,
870: x_return_status => x_return_status,
871: x_msg_count => x_msg_count,
872: x_msg_data => x_msg_data,
873: p_cuvv_rec => p_cuvv_tbl(i));
875: i := p_cuvv_tbl.NEXT(i);
876: END LOOP;
877: END IF;
878: EXCEPTION
879: WHEN okl_api.G_EXCEPTION_ERROR THEN
880: x_return_status := okl_api.HANDLE_EXCEPTIONS
881: (
882: l_api_name,
883: G_PKG_NAME,
876: END LOOP;
877: END IF;
878: EXCEPTION
879: WHEN okl_api.G_EXCEPTION_ERROR THEN
880: x_return_status := okl_api.HANDLE_EXCEPTIONS
881: (
882: l_api_name,
883: G_PKG_NAME,
884: 'okl_api.G_RET_STS_ERROR',
880: x_return_status := okl_api.HANDLE_EXCEPTIONS
881: (
882: l_api_name,
883: G_PKG_NAME,
884: 'okl_api.G_RET_STS_ERROR',
885: x_msg_count,
886: x_msg_data,
887: '_PVT'
888: );
885: x_msg_count,
886: x_msg_data,
887: '_PVT'
888: );
889: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
890: x_return_status :=okl_api.HANDLE_EXCEPTIONS
891: (
892: l_api_name,
893: G_PKG_NAME,
886: x_msg_data,
887: '_PVT'
888: );
889: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
890: x_return_status :=okl_api.HANDLE_EXCEPTIONS
891: (
892: l_api_name,
893: G_PKG_NAME,
894: 'okl_api.G_RET_STS_UNEXP_ERROR',
890: x_return_status :=okl_api.HANDLE_EXCEPTIONS
891: (
892: l_api_name,
893: G_PKG_NAME,
894: 'okl_api.G_RET_STS_UNEXP_ERROR',
895: x_msg_count,
896: x_msg_data,
897: '_PVT'
898: );
896: x_msg_data,
897: '_PVT'
898: );
899: WHEN OTHERS THEN
900: x_return_status :=okl_api.HANDLE_EXCEPTIONS
901: (
902: l_api_name,
903: G_PKG_NAME,
904: 'OTHERS',
914: ------------------------------------------
915: -- insert_row for:OKL_CRTRN_USER_VALS_B --
916: ------------------------------------------
917: PROCEDURE insert_row(
918: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
919: x_return_status OUT NOCOPY VARCHAR2,
920: x_msg_count OUT NOCOPY NUMBER,
921: x_msg_data OUT NOCOPY VARCHAR2,
922: p_cuv_rec IN cuv_rec_type,
923: x_cuv_rec OUT NOCOPY cuv_rec_type) IS
924:
925: l_api_version CONSTANT NUMBER := 1;
926: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
927: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
928: l_cuv_rec cuv_rec_type := p_cuv_rec;
929: l_def_cuv_rec cuv_rec_type;
930: ----------------------------------------------
931: -- Set_Attributes for:OKL_CRTRN_USER_VALS_B --
933: FUNCTION Set_Attributes (
934: p_cuv_rec IN cuv_rec_type,
935: x_cuv_rec OUT NOCOPY cuv_rec_type
936: ) RETURN VARCHAR2 IS
937: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
938: BEGIN
939: x_cuv_rec := p_cuv_rec;
940: RETURN(l_return_status);
941: END Set_Attributes;
939: x_cuv_rec := p_cuv_rec;
940: RETURN(l_return_status);
941: END Set_Attributes;
942: BEGIN
943: l_return_status := okl_api.START_ACTIVITY(l_api_name,
944: p_init_msg_list,
945: '_PVT',
946: x_return_status);
947: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
943: l_return_status := okl_api.START_ACTIVITY(l_api_name,
944: p_init_msg_list,
945: '_PVT',
946: x_return_status);
947: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
948: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
949: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
950: RAISE okl_api.G_EXCEPTION_ERROR;
951: END IF;
944: p_init_msg_list,
945: '_PVT',
946: x_return_status);
947: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
948: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
949: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
950: RAISE okl_api.G_EXCEPTION_ERROR;
951: END IF;
952: --- Setting item attributes
945: '_PVT',
946: x_return_status);
947: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
948: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
949: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
950: RAISE okl_api.G_EXCEPTION_ERROR;
951: END IF;
952: --- Setting item attributes
953: l_return_status := Set_Attributes(
946: x_return_status);
947: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
948: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
949: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
950: RAISE okl_api.G_EXCEPTION_ERROR;
951: END IF;
952: --- Setting item attributes
953: l_return_status := Set_Attributes(
954: p_cuv_rec, -- IN
953: l_return_status := Set_Attributes(
954: p_cuv_rec, -- IN
955: l_cuv_rec); -- OUT
956: --- If any errors happen abort API
957: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
958: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
959: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
960: RAISE okl_api.G_EXCEPTION_ERROR;
961: END IF;
954: p_cuv_rec, -- IN
955: l_cuv_rec); -- OUT
956: --- If any errors happen abort API
957: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
958: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
959: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
960: RAISE okl_api.G_EXCEPTION_ERROR;
961: END IF;
962: INSERT INTO OKL_CRTRN_USER_VALS_B(
955: l_cuv_rec); -- OUT
956: --- If any errors happen abort API
957: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
958: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
959: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
960: RAISE okl_api.G_EXCEPTION_ERROR;
961: END IF;
962: INSERT INTO OKL_CRTRN_USER_VALS_B(
963: id,
956: --- If any errors happen abort API
957: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
958: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
959: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
960: RAISE okl_api.G_EXCEPTION_ERROR;
961: END IF;
962: INSERT INTO OKL_CRTRN_USER_VALS_B(
963: id,
964: crn_id,
1014: l_cuv_rec.last_update_date,
1015: l_cuv_rec.last_update_login);
1016: -- Set OUT values
1017: x_cuv_rec := l_cuv_rec;
1018: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1019: EXCEPTION
1020: WHEN okl_api.G_EXCEPTION_ERROR THEN
1021: x_return_status := okl_api.HANDLE_EXCEPTIONS
1022: (
1016: -- Set OUT values
1017: x_cuv_rec := l_cuv_rec;
1018: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1019: EXCEPTION
1020: WHEN okl_api.G_EXCEPTION_ERROR THEN
1021: x_return_status := okl_api.HANDLE_EXCEPTIONS
1022: (
1023: l_api_name,
1024: G_PKG_NAME,
1017: x_cuv_rec := l_cuv_rec;
1018: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1019: EXCEPTION
1020: WHEN okl_api.G_EXCEPTION_ERROR THEN
1021: x_return_status := okl_api.HANDLE_EXCEPTIONS
1022: (
1023: l_api_name,
1024: G_PKG_NAME,
1025: 'okl_api.G_RET_STS_ERROR',
1021: x_return_status := okl_api.HANDLE_EXCEPTIONS
1022: (
1023: l_api_name,
1024: G_PKG_NAME,
1025: 'okl_api.G_RET_STS_ERROR',
1026: x_msg_count,
1027: x_msg_data,
1028: '_PVT'
1029: );
1026: x_msg_count,
1027: x_msg_data,
1028: '_PVT'
1029: );
1030: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1031: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1032: (
1033: l_api_name,
1034: G_PKG_NAME,
1027: x_msg_data,
1028: '_PVT'
1029: );
1030: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1031: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1032: (
1033: l_api_name,
1034: G_PKG_NAME,
1035: 'okl_api.G_RET_STS_UNEXP_ERROR',
1031: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1032: (
1033: l_api_name,
1034: G_PKG_NAME,
1035: 'okl_api.G_RET_STS_UNEXP_ERROR',
1036: x_msg_count,
1037: x_msg_data,
1038: '_PVT'
1039: );
1037: x_msg_data,
1038: '_PVT'
1039: );
1040: WHEN OTHERS THEN
1041: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1042: (
1043: l_api_name,
1044: G_PKG_NAME,
1045: 'OTHERS',
1051: -------------------------------------------
1052: -- insert_row for:OKL_CRTRN_USER_VALS_TL --
1053: -------------------------------------------
1054: PROCEDURE insert_row(
1055: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
1056: x_return_status OUT NOCOPY VARCHAR2,
1057: x_msg_count OUT NOCOPY NUMBER,
1058: x_msg_data OUT NOCOPY VARCHAR2,
1059: p_okl_crtrn_user_vals_tl_rec IN OklCrtrnUserValsTlRecType,
1060: x_okl_crtrn_user_vals_tl_rec OUT NOCOPY OklCrtrnUserValsTlRecType) IS
1061:
1062: l_api_version CONSTANT NUMBER := 1;
1063: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1064: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1065: l_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType := p_okl_crtrn_user_vals_tl_rec;
1066: ldefoklcrtrnuservalstlrec OklCrtrnUserValsTlRecType;
1067: CURSOR get_languages IS
1068: SELECT *
1074: FUNCTION Set_Attributes (
1075: p_okl_crtrn_user_vals_tl_rec IN OklCrtrnUserValsTlRecType,
1076: x_okl_crtrn_user_vals_tl_rec OUT NOCOPY OklCrtrnUserValsTlRecType
1077: ) RETURN VARCHAR2 IS
1078: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1079: BEGIN
1080: x_okl_crtrn_user_vals_tl_rec := p_okl_crtrn_user_vals_tl_rec;
1081: x_okl_crtrn_user_vals_tl_rec.LANGUAGE := USERENV('LANG');
1082: x_okl_crtrn_user_vals_tl_rec.SOURCE_LANG := USERENV('LANG');
1082: x_okl_crtrn_user_vals_tl_rec.SOURCE_LANG := USERENV('LANG');
1083: RETURN(l_return_status);
1084: END Set_Attributes;
1085: BEGIN
1086: l_return_status := okl_api.START_ACTIVITY(l_api_name,
1087: p_init_msg_list,
1088: '_PVT',
1089: x_return_status);
1090: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1086: l_return_status := okl_api.START_ACTIVITY(l_api_name,
1087: p_init_msg_list,
1088: '_PVT',
1089: x_return_status);
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: p_init_msg_list,
1088: '_PVT',
1089: x_return_status);
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: --- Setting item attributes
1088: '_PVT',
1089: x_return_status);
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: --- Setting item attributes
1096: l_return_status := Set_Attributes(
1089: x_return_status);
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: --- Setting item attributes
1096: l_return_status := Set_Attributes(
1097: p_okl_crtrn_user_vals_tl_rec, -- IN
1096: l_return_status := Set_Attributes(
1097: p_okl_crtrn_user_vals_tl_rec, -- IN
1098: l_okl_crtrn_user_vals_tl_rec); -- OUT
1099: --- If any errors happen abort API
1100: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1103: RAISE okl_api.G_EXCEPTION_ERROR;
1104: END IF;
1097: p_okl_crtrn_user_vals_tl_rec, -- IN
1098: l_okl_crtrn_user_vals_tl_rec); -- OUT
1099: --- If any errors happen abort API
1100: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1103: RAISE okl_api.G_EXCEPTION_ERROR;
1104: END IF;
1105: FOR l_lang_rec IN get_languages LOOP
1098: l_okl_crtrn_user_vals_tl_rec); -- OUT
1099: --- If any errors happen abort API
1100: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1103: RAISE okl_api.G_EXCEPTION_ERROR;
1104: END IF;
1105: FOR l_lang_rec IN get_languages LOOP
1106: l_okl_crtrn_user_vals_tl_rec.LANGUAGE := l_lang_rec.language_code;
1099: --- If any errors happen abort API
1100: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1103: RAISE okl_api.G_EXCEPTION_ERROR;
1104: END IF;
1105: FOR l_lang_rec IN get_languages LOOP
1106: l_okl_crtrn_user_vals_tl_rec.LANGUAGE := l_lang_rec.language_code;
1107: INSERT INTO OKL_CRTRN_USER_VALS_TL(
1128: l_okl_crtrn_user_vals_tl_rec.last_update_login);
1129: END LOOP;
1130: -- Set OUT values
1131: x_okl_crtrn_user_vals_tl_rec := l_okl_crtrn_user_vals_tl_rec;
1132: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1133: EXCEPTION
1134: WHEN okl_api.G_EXCEPTION_ERROR THEN
1135: x_return_status := okl_api.HANDLE_EXCEPTIONS
1136: (
1130: -- Set OUT values
1131: x_okl_crtrn_user_vals_tl_rec := l_okl_crtrn_user_vals_tl_rec;
1132: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1133: EXCEPTION
1134: WHEN okl_api.G_EXCEPTION_ERROR THEN
1135: x_return_status := okl_api.HANDLE_EXCEPTIONS
1136: (
1137: l_api_name,
1138: G_PKG_NAME,
1131: x_okl_crtrn_user_vals_tl_rec := l_okl_crtrn_user_vals_tl_rec;
1132: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1133: EXCEPTION
1134: WHEN okl_api.G_EXCEPTION_ERROR THEN
1135: x_return_status := okl_api.HANDLE_EXCEPTIONS
1136: (
1137: l_api_name,
1138: G_PKG_NAME,
1139: 'okl_api.G_RET_STS_ERROR',
1135: x_return_status := okl_api.HANDLE_EXCEPTIONS
1136: (
1137: l_api_name,
1138: G_PKG_NAME,
1139: 'okl_api.G_RET_STS_ERROR',
1140: x_msg_count,
1141: x_msg_data,
1142: '_PVT'
1143: );
1140: x_msg_count,
1141: x_msg_data,
1142: '_PVT'
1143: );
1144: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1145: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1146: (
1147: l_api_name,
1148: G_PKG_NAME,
1141: x_msg_data,
1142: '_PVT'
1143: );
1144: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1145: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1146: (
1147: l_api_name,
1148: G_PKG_NAME,
1149: 'okl_api.G_RET_STS_UNEXP_ERROR',
1145: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1146: (
1147: l_api_name,
1148: G_PKG_NAME,
1149: 'okl_api.G_RET_STS_UNEXP_ERROR',
1150: x_msg_count,
1151: x_msg_data,
1152: '_PVT'
1153: );
1151: x_msg_data,
1152: '_PVT'
1153: );
1154: WHEN OTHERS THEN
1155: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1156: (
1157: l_api_name,
1158: G_PKG_NAME,
1159: 'OTHERS',
1166: -- insert_row for:OKL_CRTRN_USER_VALS_V --
1167: ------------------------------------------
1168: PROCEDURE insert_row(
1169: p_api_version IN NUMBER,
1170: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
1171: x_return_status OUT NOCOPY VARCHAR2,
1172: x_msg_count OUT NOCOPY NUMBER,
1173: x_msg_data OUT NOCOPY VARCHAR2,
1174: p_cuvv_rec IN cuvv_rec_type,
1175: x_cuvv_rec OUT NOCOPY cuvv_rec_type) IS
1176:
1177: l_api_version CONSTANT NUMBER := 1;
1178: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1179: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1180: l_cuvv_rec cuvv_rec_type;
1181: l_def_cuvv_rec cuvv_rec_type;
1182: l_cuv_rec cuv_rec_type;
1183: lx_cuv_rec cuv_rec_type;
1204: FUNCTION Set_Attributes (
1205: p_cuvv_rec IN cuvv_rec_type,
1206: x_cuvv_rec OUT NOCOPY cuvv_rec_type
1207: ) RETURN VARCHAR2 IS
1208: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1209: BEGIN
1210: x_cuvv_rec := p_cuvv_rec;
1211: x_cuvv_rec.OBJECT_VERSION_NUMBER := 1;
1212: x_cuvv_rec.SFWT_FLAG := 'N';
1212: x_cuvv_rec.SFWT_FLAG := 'N';
1213: RETURN(l_return_status);
1214: END Set_Attributes;
1215: BEGIN
1216: l_return_status := okl_api.START_ACTIVITY(l_api_name,
1217: G_PKG_NAME,
1218: p_init_msg_list,
1219: l_api_version,
1220: p_api_version,
1219: l_api_version,
1220: p_api_version,
1221: '_PVT',
1222: x_return_status);
1223: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1224: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1225: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1226: RAISE okl_api.G_EXCEPTION_ERROR;
1227: END IF;
1220: p_api_version,
1221: '_PVT',
1222: x_return_status);
1223: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1224: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1225: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1226: RAISE okl_api.G_EXCEPTION_ERROR;
1227: END IF;
1228: l_cuvv_rec := null_out_defaults(p_cuvv_rec);
1221: '_PVT',
1222: x_return_status);
1223: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1224: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1225: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1226: RAISE okl_api.G_EXCEPTION_ERROR;
1227: END IF;
1228: l_cuvv_rec := null_out_defaults(p_cuvv_rec);
1229: -- Set primary key value
1222: x_return_status);
1223: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1224: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1225: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1226: RAISE okl_api.G_EXCEPTION_ERROR;
1227: END IF;
1228: l_cuvv_rec := null_out_defaults(p_cuvv_rec);
1229: -- Set primary key value
1230: l_cuvv_rec.ID := get_seq_id;
1232: l_return_status := Set_Attributes(
1233: l_cuvv_rec, -- IN
1234: l_def_cuvv_rec); -- OUT
1235: --- If any errors happen abort API
1236: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1239: RAISE okl_api.G_EXCEPTION_ERROR;
1240: END IF;
1233: l_cuvv_rec, -- IN
1234: l_def_cuvv_rec); -- OUT
1235: --- If any errors happen abort API
1236: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1239: RAISE okl_api.G_EXCEPTION_ERROR;
1240: END IF;
1241: l_def_cuvv_rec := fill_who_columns(l_def_cuvv_rec);
1234: l_def_cuvv_rec); -- OUT
1235: --- If any errors happen abort API
1236: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1239: RAISE okl_api.G_EXCEPTION_ERROR;
1240: END IF;
1241: l_def_cuvv_rec := fill_who_columns(l_def_cuvv_rec);
1242: --- Validate all non-missing attributes (Item Level Validation)
1235: --- If any errors happen abort API
1236: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1239: RAISE okl_api.G_EXCEPTION_ERROR;
1240: END IF;
1241: l_def_cuvv_rec := fill_who_columns(l_def_cuvv_rec);
1242: --- Validate all non-missing attributes (Item Level Validation)
1243: l_return_status := Validate_Attributes(l_def_cuvv_rec);
1241: l_def_cuvv_rec := fill_who_columns(l_def_cuvv_rec);
1242: --- Validate all non-missing attributes (Item Level Validation)
1243: l_return_status := Validate_Attributes(l_def_cuvv_rec);
1244: --- If any errors happen abort API
1245: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1246: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1247: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1248: RAISE okl_api.G_EXCEPTION_ERROR;
1249: END IF;
1242: --- Validate all non-missing attributes (Item Level Validation)
1243: l_return_status := Validate_Attributes(l_def_cuvv_rec);
1244: --- If any errors happen abort API
1245: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1246: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1247: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1248: RAISE okl_api.G_EXCEPTION_ERROR;
1249: END IF;
1250: l_return_status := Validate_Record(l_def_cuvv_rec);
1243: l_return_status := Validate_Attributes(l_def_cuvv_rec);
1244: --- If any errors happen abort API
1245: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1246: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1247: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1248: RAISE okl_api.G_EXCEPTION_ERROR;
1249: END IF;
1250: l_return_status := Validate_Record(l_def_cuvv_rec);
1251: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1244: --- If any errors happen abort API
1245: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1246: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1247: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1248: RAISE okl_api.G_EXCEPTION_ERROR;
1249: END IF;
1250: l_return_status := Validate_Record(l_def_cuvv_rec);
1251: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1252: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1247: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1248: RAISE okl_api.G_EXCEPTION_ERROR;
1249: END IF;
1250: l_return_status := Validate_Record(l_def_cuvv_rec);
1251: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1252: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1253: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1254: RAISE okl_api.G_EXCEPTION_ERROR;
1255: END IF;
1248: RAISE okl_api.G_EXCEPTION_ERROR;
1249: END IF;
1250: l_return_status := Validate_Record(l_def_cuvv_rec);
1251: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1252: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1253: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1254: RAISE okl_api.G_EXCEPTION_ERROR;
1255: END IF;
1256: --------------------------------------
1249: END IF;
1250: l_return_status := Validate_Record(l_def_cuvv_rec);
1251: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1252: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1253: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1254: RAISE okl_api.G_EXCEPTION_ERROR;
1255: END IF;
1256: --------------------------------------
1257: -- Move VIEW record to "Child" records
1250: l_return_status := Validate_Record(l_def_cuvv_rec);
1251: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1252: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1253: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1254: RAISE okl_api.G_EXCEPTION_ERROR;
1255: END IF;
1256: --------------------------------------
1257: -- Move VIEW record to "Child" records
1258: --------------------------------------
1268: x_msg_data,
1269: l_cuv_rec,
1270: lx_cuv_rec
1271: );
1272: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1273: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1274: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1275: RAISE okl_api.G_EXCEPTION_ERROR;
1276: END IF;
1269: l_cuv_rec,
1270: lx_cuv_rec
1271: );
1272: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1273: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1274: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1275: RAISE okl_api.G_EXCEPTION_ERROR;
1276: END IF;
1277: migrate(lx_cuv_rec, l_def_cuvv_rec);
1270: lx_cuv_rec
1271: );
1272: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1273: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1274: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1275: RAISE okl_api.G_EXCEPTION_ERROR;
1276: END IF;
1277: migrate(lx_cuv_rec, l_def_cuvv_rec);
1278: insert_row(
1271: );
1272: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1273: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1274: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1275: RAISE okl_api.G_EXCEPTION_ERROR;
1276: END IF;
1277: migrate(lx_cuv_rec, l_def_cuvv_rec);
1278: insert_row(
1279: p_init_msg_list,
1282: x_msg_data,
1283: l_okl_crtrn_user_vals_tl_rec,
1284: lx_okl_crtrn_user_vals_tl_rec
1285: );
1286: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1287: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1288: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1289: RAISE okl_api.G_EXCEPTION_ERROR;
1290: END IF;
1283: l_okl_crtrn_user_vals_tl_rec,
1284: lx_okl_crtrn_user_vals_tl_rec
1285: );
1286: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1287: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1288: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1289: RAISE okl_api.G_EXCEPTION_ERROR;
1290: END IF;
1291: migrate(lx_okl_crtrn_user_vals_tl_rec, l_def_cuvv_rec);
1284: lx_okl_crtrn_user_vals_tl_rec
1285: );
1286: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1287: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1288: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1289: RAISE okl_api.G_EXCEPTION_ERROR;
1290: END IF;
1291: migrate(lx_okl_crtrn_user_vals_tl_rec, l_def_cuvv_rec);
1292: -- Set OUT values
1285: );
1286: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1287: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1288: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1289: RAISE okl_api.G_EXCEPTION_ERROR;
1290: END IF;
1291: migrate(lx_okl_crtrn_user_vals_tl_rec, l_def_cuvv_rec);
1292: -- Set OUT values
1293: x_cuvv_rec := l_def_cuvv_rec;
1290: END IF;
1291: migrate(lx_okl_crtrn_user_vals_tl_rec, l_def_cuvv_rec);
1292: -- Set OUT values
1293: x_cuvv_rec := l_def_cuvv_rec;
1294: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1295: EXCEPTION
1296: WHEN okl_api.G_EXCEPTION_ERROR THEN
1297: x_return_status := okl_api.HANDLE_EXCEPTIONS
1298: (
1292: -- Set OUT values
1293: x_cuvv_rec := l_def_cuvv_rec;
1294: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1295: EXCEPTION
1296: WHEN okl_api.G_EXCEPTION_ERROR THEN
1297: x_return_status := okl_api.HANDLE_EXCEPTIONS
1298: (
1299: l_api_name,
1300: G_PKG_NAME,
1293: x_cuvv_rec := l_def_cuvv_rec;
1294: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1295: EXCEPTION
1296: WHEN okl_api.G_EXCEPTION_ERROR THEN
1297: x_return_status := okl_api.HANDLE_EXCEPTIONS
1298: (
1299: l_api_name,
1300: G_PKG_NAME,
1301: 'okl_api.G_RET_STS_ERROR',
1297: x_return_status := okl_api.HANDLE_EXCEPTIONS
1298: (
1299: l_api_name,
1300: G_PKG_NAME,
1301: 'okl_api.G_RET_STS_ERROR',
1302: x_msg_count,
1303: x_msg_data,
1304: '_PVT'
1305: );
1302: x_msg_count,
1303: x_msg_data,
1304: '_PVT'
1305: );
1306: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1307: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1308: (
1309: l_api_name,
1310: G_PKG_NAME,
1303: x_msg_data,
1304: '_PVT'
1305: );
1306: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1307: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1308: (
1309: l_api_name,
1310: G_PKG_NAME,
1311: 'okl_api.G_RET_STS_UNEXP_ERROR',
1307: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1308: (
1309: l_api_name,
1310: G_PKG_NAME,
1311: 'okl_api.G_RET_STS_UNEXP_ERROR',
1312: x_msg_count,
1313: x_msg_data,
1314: '_PVT'
1315: );
1313: x_msg_data,
1314: '_PVT'
1315: );
1316: WHEN OTHERS THEN
1317: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1318: (
1319: l_api_name,
1320: G_PKG_NAME,
1321: 'OTHERS',
1328: -- PL/SQL TBL insert_row for:CUVV_TBL --
1329: ----------------------------------------
1330: PROCEDURE insert_row(
1331: p_api_version IN NUMBER,
1332: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
1333: x_return_status OUT NOCOPY VARCHAR2,
1334: x_msg_count OUT NOCOPY NUMBER,
1335: x_msg_data OUT NOCOPY VARCHAR2,
1336: p_cuvv_tbl IN cuvv_tbl_type,
1337: x_cuvv_tbl OUT NOCOPY cuvv_tbl_type) IS
1338:
1339: l_api_version CONSTANT NUMBER := 1;
1340: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1341: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1342: i NUMBER := 0;
1343: BEGIN
1344: okl_api.init_msg_list(p_init_msg_list);
1345: -- Make sure PL/SQL table has records in it before passing
1340: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1341: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1342: i NUMBER := 0;
1343: BEGIN
1344: okl_api.init_msg_list(p_init_msg_list);
1345: -- Make sure PL/SQL table has records in it before passing
1346: IF (p_cuvv_tbl.COUNT > 0) THEN
1347: i := p_cuvv_tbl.FIRST;
1348: LOOP
1347: i := p_cuvv_tbl.FIRST;
1348: LOOP
1349: insert_row (
1350: p_api_version => p_api_version,
1351: p_init_msg_list => okl_api.G_FALSE,
1352: x_return_status => x_return_status,
1353: x_msg_count => x_msg_count,
1354: x_msg_data => x_msg_data,
1355: p_cuvv_rec => p_cuvv_tbl(i),
1358: i := p_cuvv_tbl.NEXT(i);
1359: END LOOP;
1360: END IF;
1361: EXCEPTION
1362: WHEN okl_api.G_EXCEPTION_ERROR THEN
1363: x_return_status := okl_api.HANDLE_EXCEPTIONS
1364: (
1365: l_api_name,
1366: G_PKG_NAME,
1359: END LOOP;
1360: END IF;
1361: EXCEPTION
1362: WHEN okl_api.G_EXCEPTION_ERROR THEN
1363: x_return_status := okl_api.HANDLE_EXCEPTIONS
1364: (
1365: l_api_name,
1366: G_PKG_NAME,
1367: 'okl_api.G_RET_STS_ERROR',
1363: x_return_status := okl_api.HANDLE_EXCEPTIONS
1364: (
1365: l_api_name,
1366: G_PKG_NAME,
1367: 'okl_api.G_RET_STS_ERROR',
1368: x_msg_count,
1369: x_msg_data,
1370: '_PVT'
1371: );
1368: x_msg_count,
1369: x_msg_data,
1370: '_PVT'
1371: );
1372: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1373: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1374: (
1375: l_api_name,
1376: G_PKG_NAME,
1369: x_msg_data,
1370: '_PVT'
1371: );
1372: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1373: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1374: (
1375: l_api_name,
1376: G_PKG_NAME,
1377: 'okl_api.G_RET_STS_UNEXP_ERROR',
1373: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1374: (
1375: l_api_name,
1376: G_PKG_NAME,
1377: 'okl_api.G_RET_STS_UNEXP_ERROR',
1378: x_msg_count,
1379: x_msg_data,
1380: '_PVT'
1381: );
1379: x_msg_data,
1380: '_PVT'
1381: );
1382: WHEN OTHERS THEN
1383: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1384: (
1385: l_api_name,
1386: G_PKG_NAME,
1387: 'OTHERS',
1397: ----------------------------------------
1398: -- lock_row for:OKL_CRTRN_USER_VALS_B --
1399: ----------------------------------------
1400: PROCEDURE lock_row(
1401: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
1402: x_return_status OUT NOCOPY VARCHAR2,
1403: x_msg_count OUT NOCOPY NUMBER,
1404: x_msg_data OUT NOCOPY VARCHAR2,
1405: p_cuv_rec IN cuv_rec_type) IS
1418: FROM OKL_CRTRN_USER_VALS_B
1419: WHERE ID = p_cuv_rec.id;
1420: l_api_version CONSTANT NUMBER := 1;
1421: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1422: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1423: l_object_version_number OKL_CRTRN_USER_VALS_B.OBJECT_VERSION_NUMBER%TYPE;
1424: lc_object_version_number OKL_CRTRN_USER_VALS_B.OBJECT_VERSION_NUMBER%TYPE;
1425: l_row_notfound BOOLEAN := FALSE;
1426: lc_row_notfound BOOLEAN := FALSE;
1424: lc_object_version_number OKL_CRTRN_USER_VALS_B.OBJECT_VERSION_NUMBER%TYPE;
1425: l_row_notfound BOOLEAN := FALSE;
1426: lc_row_notfound BOOLEAN := FALSE;
1427: BEGIN
1428: l_return_status := okl_api.START_ACTIVITY(l_api_name,
1429: p_init_msg_list,
1430: '_PVT',
1431: x_return_status);
1432: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1428: l_return_status := okl_api.START_ACTIVITY(l_api_name,
1429: p_init_msg_list,
1430: '_PVT',
1431: x_return_status);
1432: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1435: RAISE okl_api.G_EXCEPTION_ERROR;
1436: END IF;
1429: p_init_msg_list,
1430: '_PVT',
1431: x_return_status);
1432: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1435: RAISE okl_api.G_EXCEPTION_ERROR;
1436: END IF;
1437: BEGIN
1430: '_PVT',
1431: x_return_status);
1432: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1435: RAISE okl_api.G_EXCEPTION_ERROR;
1436: END IF;
1437: BEGIN
1438: OPEN lock_csr(p_cuv_rec);
1431: x_return_status);
1432: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1435: RAISE okl_api.G_EXCEPTION_ERROR;
1436: END IF;
1437: BEGIN
1438: OPEN lock_csr(p_cuv_rec);
1439: FETCH lock_csr INTO l_object_version_number;
1443: WHEN E_Resource_Busy THEN
1444: IF (lock_csr%ISOPEN) THEN
1445: CLOSE lock_csr;
1446: END IF;
1447: okl_api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1448: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1449: END;
1450:
1451: IF ( l_row_notfound ) THEN
1454: lc_row_notfound := lchk_csr%NOTFOUND;
1455: CLOSE lchk_csr;
1456: END IF;
1457: IF (lc_row_notfound) THEN
1458: okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1459: RAISE okl_api.G_EXCEPTION_ERROR;
1460: ELSIF lc_object_version_number > p_cuv_rec.object_version_number THEN
1461: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1462: RAISE okl_api.G_EXCEPTION_ERROR;
1455: CLOSE lchk_csr;
1456: END IF;
1457: IF (lc_row_notfound) THEN
1458: okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1459: RAISE okl_api.G_EXCEPTION_ERROR;
1460: ELSIF lc_object_version_number > p_cuv_rec.object_version_number THEN
1461: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1462: RAISE okl_api.G_EXCEPTION_ERROR;
1463: ELSIF lc_object_version_number <> p_cuv_rec.object_version_number THEN
1457: IF (lc_row_notfound) THEN
1458: okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1459: RAISE okl_api.G_EXCEPTION_ERROR;
1460: ELSIF lc_object_version_number > p_cuv_rec.object_version_number THEN
1461: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1462: RAISE okl_api.G_EXCEPTION_ERROR;
1463: ELSIF lc_object_version_number <> p_cuv_rec.object_version_number THEN
1464: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1465: RAISE okl_api.G_EXCEPTION_ERROR;
1458: okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1459: RAISE okl_api.G_EXCEPTION_ERROR;
1460: ELSIF lc_object_version_number > p_cuv_rec.object_version_number THEN
1461: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1462: RAISE okl_api.G_EXCEPTION_ERROR;
1463: ELSIF lc_object_version_number <> p_cuv_rec.object_version_number THEN
1464: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1465: RAISE okl_api.G_EXCEPTION_ERROR;
1466: ELSIF lc_object_version_number = -1 THEN
1460: ELSIF lc_object_version_number > p_cuv_rec.object_version_number THEN
1461: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1462: RAISE okl_api.G_EXCEPTION_ERROR;
1463: ELSIF lc_object_version_number <> p_cuv_rec.object_version_number THEN
1464: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1465: RAISE okl_api.G_EXCEPTION_ERROR;
1466: ELSIF lc_object_version_number = -1 THEN
1467: okl_api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1468: RAISE okl_api.G_EXCEPTION_ERROR;
1461: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1462: RAISE okl_api.G_EXCEPTION_ERROR;
1463: ELSIF lc_object_version_number <> p_cuv_rec.object_version_number THEN
1464: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1465: RAISE okl_api.G_EXCEPTION_ERROR;
1466: ELSIF lc_object_version_number = -1 THEN
1467: okl_api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1468: RAISE okl_api.G_EXCEPTION_ERROR;
1469: END IF;
1463: ELSIF lc_object_version_number <> p_cuv_rec.object_version_number THEN
1464: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1465: RAISE okl_api.G_EXCEPTION_ERROR;
1466: ELSIF lc_object_version_number = -1 THEN
1467: okl_api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1468: RAISE okl_api.G_EXCEPTION_ERROR;
1469: END IF;
1470: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1471: EXCEPTION
1464: okl_api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1465: RAISE okl_api.G_EXCEPTION_ERROR;
1466: ELSIF lc_object_version_number = -1 THEN
1467: okl_api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1468: RAISE okl_api.G_EXCEPTION_ERROR;
1469: END IF;
1470: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1471: EXCEPTION
1472: WHEN okl_api.G_EXCEPTION_ERROR THEN
1466: ELSIF lc_object_version_number = -1 THEN
1467: okl_api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1468: RAISE okl_api.G_EXCEPTION_ERROR;
1469: END IF;
1470: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1471: EXCEPTION
1472: WHEN okl_api.G_EXCEPTION_ERROR THEN
1473: x_return_status := okl_api.HANDLE_EXCEPTIONS
1474: (
1468: RAISE okl_api.G_EXCEPTION_ERROR;
1469: END IF;
1470: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1471: EXCEPTION
1472: WHEN okl_api.G_EXCEPTION_ERROR THEN
1473: x_return_status := okl_api.HANDLE_EXCEPTIONS
1474: (
1475: l_api_name,
1476: G_PKG_NAME,
1469: END IF;
1470: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1471: EXCEPTION
1472: WHEN okl_api.G_EXCEPTION_ERROR THEN
1473: x_return_status := okl_api.HANDLE_EXCEPTIONS
1474: (
1475: l_api_name,
1476: G_PKG_NAME,
1477: 'okl_api.G_RET_STS_ERROR',
1473: x_return_status := okl_api.HANDLE_EXCEPTIONS
1474: (
1475: l_api_name,
1476: G_PKG_NAME,
1477: 'okl_api.G_RET_STS_ERROR',
1478: x_msg_count,
1479: x_msg_data,
1480: '_PVT'
1481: );
1478: x_msg_count,
1479: x_msg_data,
1480: '_PVT'
1481: );
1482: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1483: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1484: (
1485: l_api_name,
1486: G_PKG_NAME,
1479: x_msg_data,
1480: '_PVT'
1481: );
1482: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1483: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1484: (
1485: l_api_name,
1486: G_PKG_NAME,
1487: 'okl_api.G_RET_STS_UNEXP_ERROR',
1483: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1484: (
1485: l_api_name,
1486: G_PKG_NAME,
1487: 'okl_api.G_RET_STS_UNEXP_ERROR',
1488: x_msg_count,
1489: x_msg_data,
1490: '_PVT'
1491: );
1489: x_msg_data,
1490: '_PVT'
1491: );
1492: WHEN OTHERS THEN
1493: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1494: (
1495: l_api_name,
1496: G_PKG_NAME,
1497: 'OTHERS',
1503: -----------------------------------------
1504: -- lock_row for:OKL_CRTRN_USER_VALS_TL --
1505: -----------------------------------------
1506: PROCEDURE lock_row(
1507: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
1508: x_return_status OUT NOCOPY VARCHAR2,
1509: x_msg_count OUT NOCOPY NUMBER,
1510: x_msg_data OUT NOCOPY VARCHAR2,
1511: p_okl_crtrn_user_vals_tl_rec IN OklCrtrnUserValsTlRecType) IS
1519: FOR UPDATE NOWAIT;
1520:
1521: l_api_version CONSTANT NUMBER := 1;
1522: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1523: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1524: l_lock_var lock_csr%ROWTYPE;
1525: l_row_notfound BOOLEAN := FALSE;
1526: lc_row_notfound BOOLEAN := FALSE;
1527: BEGIN
1524: l_lock_var lock_csr%ROWTYPE;
1525: l_row_notfound BOOLEAN := FALSE;
1526: lc_row_notfound BOOLEAN := FALSE;
1527: BEGIN
1528: l_return_status := okl_api.START_ACTIVITY(l_api_name,
1529: p_init_msg_list,
1530: '_PVT',
1531: x_return_status);
1532: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1528: l_return_status := okl_api.START_ACTIVITY(l_api_name,
1529: p_init_msg_list,
1530: '_PVT',
1531: x_return_status);
1532: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1533: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1534: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1535: RAISE okl_api.G_EXCEPTION_ERROR;
1536: END IF;
1529: p_init_msg_list,
1530: '_PVT',
1531: x_return_status);
1532: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1533: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1534: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1535: RAISE okl_api.G_EXCEPTION_ERROR;
1536: END IF;
1537: BEGIN
1530: '_PVT',
1531: x_return_status);
1532: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1533: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1534: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1535: RAISE okl_api.G_EXCEPTION_ERROR;
1536: END IF;
1537: BEGIN
1538: OPEN lock_csr(p_okl_crtrn_user_vals_tl_rec);
1531: x_return_status);
1532: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1533: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1534: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1535: RAISE okl_api.G_EXCEPTION_ERROR;
1536: END IF;
1537: BEGIN
1538: OPEN lock_csr(p_okl_crtrn_user_vals_tl_rec);
1539: FETCH lock_csr INTO l_lock_var;
1543: WHEN E_Resource_Busy THEN
1544: IF (lock_csr%ISOPEN) THEN
1545: CLOSE lock_csr;
1546: END IF;
1547: okl_api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1548: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1549: END;
1550:
1551: IF ( l_row_notfound ) THEN
1548: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1549: END;
1550:
1551: IF ( l_row_notfound ) THEN
1552: okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1553: RAISE okl_api.G_EXCEPTION_ERROR;
1554: END IF;
1555: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1556: EXCEPTION
1549: END;
1550:
1551: IF ( l_row_notfound ) THEN
1552: okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1553: RAISE okl_api.G_EXCEPTION_ERROR;
1554: END IF;
1555: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1556: EXCEPTION
1557: WHEN okl_api.G_EXCEPTION_ERROR THEN
1551: IF ( l_row_notfound ) THEN
1552: okl_api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1553: RAISE okl_api.G_EXCEPTION_ERROR;
1554: END IF;
1555: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1556: EXCEPTION
1557: WHEN okl_api.G_EXCEPTION_ERROR THEN
1558: x_return_status := okl_api.HANDLE_EXCEPTIONS
1559: (
1553: RAISE okl_api.G_EXCEPTION_ERROR;
1554: END IF;
1555: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1556: EXCEPTION
1557: WHEN okl_api.G_EXCEPTION_ERROR THEN
1558: x_return_status := okl_api.HANDLE_EXCEPTIONS
1559: (
1560: l_api_name,
1561: G_PKG_NAME,
1554: END IF;
1555: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1556: EXCEPTION
1557: WHEN okl_api.G_EXCEPTION_ERROR THEN
1558: x_return_status := okl_api.HANDLE_EXCEPTIONS
1559: (
1560: l_api_name,
1561: G_PKG_NAME,
1562: 'okl_api.G_RET_STS_ERROR',
1558: x_return_status := okl_api.HANDLE_EXCEPTIONS
1559: (
1560: l_api_name,
1561: G_PKG_NAME,
1562: 'okl_api.G_RET_STS_ERROR',
1563: x_msg_count,
1564: x_msg_data,
1565: '_PVT'
1566: );
1563: x_msg_count,
1564: x_msg_data,
1565: '_PVT'
1566: );
1567: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1568: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1569: (
1570: l_api_name,
1571: G_PKG_NAME,
1564: x_msg_data,
1565: '_PVT'
1566: );
1567: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1568: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1569: (
1570: l_api_name,
1571: G_PKG_NAME,
1572: 'okl_api.G_RET_STS_UNEXP_ERROR',
1568: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1569: (
1570: l_api_name,
1571: G_PKG_NAME,
1572: 'okl_api.G_RET_STS_UNEXP_ERROR',
1573: x_msg_count,
1574: x_msg_data,
1575: '_PVT'
1576: );
1574: x_msg_data,
1575: '_PVT'
1576: );
1577: WHEN OTHERS THEN
1578: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1579: (
1580: l_api_name,
1581: G_PKG_NAME,
1582: 'OTHERS',
1589: -- lock_row for:OKL_CRTRN_USER_VALS_V --
1590: ----------------------------------------
1591: PROCEDURE lock_row(
1592: p_api_version IN NUMBER,
1593: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
1594: x_return_status OUT NOCOPY VARCHAR2,
1595: x_msg_count OUT NOCOPY NUMBER,
1596: x_msg_data OUT NOCOPY VARCHAR2,
1597: p_cuvv_rec IN cuvv_rec_type) IS
1597: p_cuvv_rec IN cuvv_rec_type) IS
1598:
1599: l_api_version CONSTANT NUMBER := 1;
1600: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1601: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1602: l_cuv_rec cuv_rec_type;
1603: l_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType;
1604: BEGIN
1605: l_return_status := okl_api.START_ACTIVITY(l_api_name,
1601: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1602: l_cuv_rec cuv_rec_type;
1603: l_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType;
1604: BEGIN
1605: l_return_status := okl_api.START_ACTIVITY(l_api_name,
1606: G_PKG_NAME,
1607: p_init_msg_list,
1608: l_api_version,
1609: p_api_version,
1608: l_api_version,
1609: p_api_version,
1610: '_PVT',
1611: x_return_status);
1612: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1613: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1614: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1615: RAISE okl_api.G_EXCEPTION_ERROR;
1616: END IF;
1609: p_api_version,
1610: '_PVT',
1611: x_return_status);
1612: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1613: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1614: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1615: RAISE okl_api.G_EXCEPTION_ERROR;
1616: END IF;
1617: --------------------------------------
1610: '_PVT',
1611: x_return_status);
1612: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1613: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1614: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1615: RAISE okl_api.G_EXCEPTION_ERROR;
1616: END IF;
1617: --------------------------------------
1618: -- Move VIEW record to "Child" records
1611: x_return_status);
1612: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1613: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1614: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1615: RAISE okl_api.G_EXCEPTION_ERROR;
1616: END IF;
1617: --------------------------------------
1618: -- Move VIEW record to "Child" records
1619: --------------------------------------
1628: x_msg_count,
1629: x_msg_data,
1630: l_cuv_rec
1631: );
1632: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1635: RAISE okl_api.G_EXCEPTION_ERROR;
1636: END IF;
1629: x_msg_data,
1630: l_cuv_rec
1631: );
1632: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1635: RAISE okl_api.G_EXCEPTION_ERROR;
1636: END IF;
1637: lock_row(
1630: l_cuv_rec
1631: );
1632: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1635: RAISE okl_api.G_EXCEPTION_ERROR;
1636: END IF;
1637: lock_row(
1638: p_init_msg_list,
1631: );
1632: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1635: RAISE okl_api.G_EXCEPTION_ERROR;
1636: END IF;
1637: lock_row(
1638: p_init_msg_list,
1639: x_return_status,
1640: x_msg_count,
1641: x_msg_data,
1642: l_okl_crtrn_user_vals_tl_rec
1643: );
1644: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1645: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1646: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1647: RAISE okl_api.G_EXCEPTION_ERROR;
1648: END IF;
1641: x_msg_data,
1642: l_okl_crtrn_user_vals_tl_rec
1643: );
1644: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1645: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1646: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1647: RAISE okl_api.G_EXCEPTION_ERROR;
1648: END IF;
1649: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1642: l_okl_crtrn_user_vals_tl_rec
1643: );
1644: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1645: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1646: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1647: RAISE okl_api.G_EXCEPTION_ERROR;
1648: END IF;
1649: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1650: EXCEPTION
1643: );
1644: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1645: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1646: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1647: RAISE okl_api.G_EXCEPTION_ERROR;
1648: END IF;
1649: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1650: EXCEPTION
1651: WHEN okl_api.G_EXCEPTION_ERROR THEN
1645: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1646: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
1647: RAISE okl_api.G_EXCEPTION_ERROR;
1648: END IF;
1649: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1650: EXCEPTION
1651: WHEN okl_api.G_EXCEPTION_ERROR THEN
1652: x_return_status := okl_api.HANDLE_EXCEPTIONS
1653: (
1647: RAISE okl_api.G_EXCEPTION_ERROR;
1648: END IF;
1649: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1650: EXCEPTION
1651: WHEN okl_api.G_EXCEPTION_ERROR THEN
1652: x_return_status := okl_api.HANDLE_EXCEPTIONS
1653: (
1654: l_api_name,
1655: G_PKG_NAME,
1648: END IF;
1649: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1650: EXCEPTION
1651: WHEN okl_api.G_EXCEPTION_ERROR THEN
1652: x_return_status := okl_api.HANDLE_EXCEPTIONS
1653: (
1654: l_api_name,
1655: G_PKG_NAME,
1656: 'okl_api.G_RET_STS_ERROR',
1652: x_return_status := okl_api.HANDLE_EXCEPTIONS
1653: (
1654: l_api_name,
1655: G_PKG_NAME,
1656: 'okl_api.G_RET_STS_ERROR',
1657: x_msg_count,
1658: x_msg_data,
1659: '_PVT'
1660: );
1657: x_msg_count,
1658: x_msg_data,
1659: '_PVT'
1660: );
1661: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1662: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1663: (
1664: l_api_name,
1665: G_PKG_NAME,
1658: x_msg_data,
1659: '_PVT'
1660: );
1661: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1662: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1663: (
1664: l_api_name,
1665: G_PKG_NAME,
1666: 'okl_api.G_RET_STS_UNEXP_ERROR',
1662: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1663: (
1664: l_api_name,
1665: G_PKG_NAME,
1666: 'okl_api.G_RET_STS_UNEXP_ERROR',
1667: x_msg_count,
1668: x_msg_data,
1669: '_PVT'
1670: );
1668: x_msg_data,
1669: '_PVT'
1670: );
1671: WHEN OTHERS THEN
1672: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1673: (
1674: l_api_name,
1675: G_PKG_NAME,
1676: 'OTHERS',
1683: -- PL/SQL TBL lock_row for:CUVV_TBL --
1684: --------------------------------------
1685: PROCEDURE lock_row(
1686: p_api_version IN NUMBER,
1687: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
1688: x_return_status OUT NOCOPY VARCHAR2,
1689: x_msg_count OUT NOCOPY NUMBER,
1690: x_msg_data OUT NOCOPY VARCHAR2,
1691: p_cuvv_tbl IN cuvv_tbl_type) IS
1691: p_cuvv_tbl IN cuvv_tbl_type) IS
1692:
1693: l_api_version CONSTANT NUMBER := 1;
1694: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1695: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1696: i NUMBER := 0;
1697: BEGIN
1698: okl_api.init_msg_list(p_init_msg_list);
1699: -- Make sure PL/SQL table has records in it before passing
1694: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1695: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1696: i NUMBER := 0;
1697: BEGIN
1698: okl_api.init_msg_list(p_init_msg_list);
1699: -- Make sure PL/SQL table has records in it before passing
1700: IF (p_cuvv_tbl.COUNT > 0) THEN
1701: i := p_cuvv_tbl.FIRST;
1702: LOOP
1701: i := p_cuvv_tbl.FIRST;
1702: LOOP
1703: lock_row (
1704: p_api_version => p_api_version,
1705: p_init_msg_list => okl_api.G_FALSE,
1706: x_return_status => x_return_status,
1707: x_msg_count => x_msg_count,
1708: x_msg_data => x_msg_data,
1709: p_cuvv_rec => p_cuvv_tbl(i));
1711: i := p_cuvv_tbl.NEXT(i);
1712: END LOOP;
1713: END IF;
1714: EXCEPTION
1715: WHEN okl_api.G_EXCEPTION_ERROR THEN
1716: x_return_status := okl_api.HANDLE_EXCEPTIONS
1717: (
1718: l_api_name,
1719: G_PKG_NAME,
1712: END LOOP;
1713: END IF;
1714: EXCEPTION
1715: WHEN okl_api.G_EXCEPTION_ERROR THEN
1716: x_return_status := okl_api.HANDLE_EXCEPTIONS
1717: (
1718: l_api_name,
1719: G_PKG_NAME,
1720: 'okl_api.G_RET_STS_ERROR',
1716: x_return_status := okl_api.HANDLE_EXCEPTIONS
1717: (
1718: l_api_name,
1719: G_PKG_NAME,
1720: 'okl_api.G_RET_STS_ERROR',
1721: x_msg_count,
1722: x_msg_data,
1723: '_PVT'
1724: );
1721: x_msg_count,
1722: x_msg_data,
1723: '_PVT'
1724: );
1725: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1726: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1727: (
1728: l_api_name,
1729: G_PKG_NAME,
1722: x_msg_data,
1723: '_PVT'
1724: );
1725: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1726: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1727: (
1728: l_api_name,
1729: G_PKG_NAME,
1730: 'okl_api.G_RET_STS_UNEXP_ERROR',
1726: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1727: (
1728: l_api_name,
1729: G_PKG_NAME,
1730: 'okl_api.G_RET_STS_UNEXP_ERROR',
1731: x_msg_count,
1732: x_msg_data,
1733: '_PVT'
1734: );
1732: x_msg_data,
1733: '_PVT'
1734: );
1735: WHEN OTHERS THEN
1736: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1737: (
1738: l_api_name,
1739: G_PKG_NAME,
1740: 'OTHERS',
1750: ------------------------------------------
1751: -- update_row for:OKL_CRTRN_USER_VALS_B --
1752: ------------------------------------------
1753: PROCEDURE update_row(
1754: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
1755: x_return_status OUT NOCOPY VARCHAR2,
1756: x_msg_count OUT NOCOPY NUMBER,
1757: x_msg_data OUT NOCOPY VARCHAR2,
1758: p_cuv_rec IN cuv_rec_type,
1759: x_cuv_rec OUT NOCOPY cuv_rec_type) IS
1760:
1761: l_api_version CONSTANT NUMBER := 1;
1762: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
1763: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1764: l_cuv_rec cuv_rec_type := p_cuv_rec;
1765: l_def_cuv_rec cuv_rec_type;
1766: l_row_notfound BOOLEAN := TRUE;
1767: ----------------------------------
1772: x_cuv_rec OUT NOCOPY cuv_rec_type
1773: ) RETURN VARCHAR2 IS
1774: l_cuv_rec cuv_rec_type;
1775: l_row_notfound BOOLEAN := TRUE;
1776: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1777: BEGIN
1778: x_cuv_rec := p_cuv_rec;
1779: -- Get current database values
1780: l_cuv_rec := get_rec(p_cuv_rec, l_row_notfound);
1778: x_cuv_rec := p_cuv_rec;
1779: -- Get current database values
1780: l_cuv_rec := get_rec(p_cuv_rec, l_row_notfound);
1781: IF (l_row_notfound) THEN
1782: l_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
1783: END IF;
1784: IF (x_cuv_rec.id = okl_api.G_MISS_NUM)
1785: THEN
1786: x_cuv_rec.id := l_cuv_rec.id;
1780: l_cuv_rec := get_rec(p_cuv_rec, l_row_notfound);
1781: IF (l_row_notfound) THEN
1782: l_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
1783: END IF;
1784: IF (x_cuv_rec.id = okl_api.G_MISS_NUM)
1785: THEN
1786: x_cuv_rec.id := l_cuv_rec.id;
1787: END IF;
1788: IF (x_cuv_rec.crn_id = okl_api.G_MISS_NUM)
1784: IF (x_cuv_rec.id = okl_api.G_MISS_NUM)
1785: THEN
1786: x_cuv_rec.id := l_cuv_rec.id;
1787: END IF;
1788: IF (x_cuv_rec.crn_id = okl_api.G_MISS_NUM)
1789: THEN
1790: x_cuv_rec.crn_id := l_cuv_rec.crn_id;
1791: END IF;
1792: IF (x_cuv_rec.sequence_number = okl_api.G_MISS_NUM)
1788: IF (x_cuv_rec.crn_id = okl_api.G_MISS_NUM)
1789: THEN
1790: x_cuv_rec.crn_id := l_cuv_rec.crn_id;
1791: END IF;
1792: IF (x_cuv_rec.sequence_number = okl_api.G_MISS_NUM)
1793: THEN
1794: x_cuv_rec.sequence_number := l_cuv_rec.sequence_number;
1795: END IF;
1796: IF (x_cuv_rec.value = okl_api.G_MISS_NUM)
1792: IF (x_cuv_rec.sequence_number = okl_api.G_MISS_NUM)
1793: THEN
1794: x_cuv_rec.sequence_number := l_cuv_rec.sequence_number;
1795: END IF;
1796: IF (x_cuv_rec.value = okl_api.G_MISS_NUM)
1797: THEN
1798: x_cuv_rec.value := l_cuv_rec.value;
1799: END IF;
1800: IF (x_cuv_rec.object_version_number = okl_api.G_MISS_NUM)
1796: IF (x_cuv_rec.value = okl_api.G_MISS_NUM)
1797: THEN
1798: x_cuv_rec.value := l_cuv_rec.value;
1799: END IF;
1800: IF (x_cuv_rec.object_version_number = okl_api.G_MISS_NUM)
1801: THEN
1802: x_cuv_rec.object_version_number := l_cuv_rec.object_version_number;
1803: END IF;
1804: IF (x_cuv_rec.attribute_category = okl_api.G_MISS_CHAR)
1800: IF (x_cuv_rec.object_version_number = okl_api.G_MISS_NUM)
1801: THEN
1802: x_cuv_rec.object_version_number := l_cuv_rec.object_version_number;
1803: END IF;
1804: IF (x_cuv_rec.attribute_category = okl_api.G_MISS_CHAR)
1805: THEN
1806: x_cuv_rec.attribute_category := l_cuv_rec.attribute_category;
1807: END IF;
1808: IF (x_cuv_rec.attribute1 = okl_api.G_MISS_CHAR)
1804: IF (x_cuv_rec.attribute_category = okl_api.G_MISS_CHAR)
1805: THEN
1806: x_cuv_rec.attribute_category := l_cuv_rec.attribute_category;
1807: END IF;
1808: IF (x_cuv_rec.attribute1 = okl_api.G_MISS_CHAR)
1809: THEN
1810: x_cuv_rec.attribute1 := l_cuv_rec.attribute1;
1811: END IF;
1812: IF (x_cuv_rec.attribute2 = okl_api.G_MISS_CHAR)
1808: IF (x_cuv_rec.attribute1 = okl_api.G_MISS_CHAR)
1809: THEN
1810: x_cuv_rec.attribute1 := l_cuv_rec.attribute1;
1811: END IF;
1812: IF (x_cuv_rec.attribute2 = okl_api.G_MISS_CHAR)
1813: THEN
1814: x_cuv_rec.attribute2 := l_cuv_rec.attribute2;
1815: END IF;
1816: IF (x_cuv_rec.attribute3 = okl_api.G_MISS_CHAR)
1812: IF (x_cuv_rec.attribute2 = okl_api.G_MISS_CHAR)
1813: THEN
1814: x_cuv_rec.attribute2 := l_cuv_rec.attribute2;
1815: END IF;
1816: IF (x_cuv_rec.attribute3 = okl_api.G_MISS_CHAR)
1817: THEN
1818: x_cuv_rec.attribute3 := l_cuv_rec.attribute3;
1819: END IF;
1820: IF (x_cuv_rec.attribute4 = okl_api.G_MISS_CHAR)
1816: IF (x_cuv_rec.attribute3 = okl_api.G_MISS_CHAR)
1817: THEN
1818: x_cuv_rec.attribute3 := l_cuv_rec.attribute3;
1819: END IF;
1820: IF (x_cuv_rec.attribute4 = okl_api.G_MISS_CHAR)
1821: THEN
1822: x_cuv_rec.attribute4 := l_cuv_rec.attribute4;
1823: END IF;
1824: IF (x_cuv_rec.attribute5 = okl_api.G_MISS_CHAR)
1820: IF (x_cuv_rec.attribute4 = okl_api.G_MISS_CHAR)
1821: THEN
1822: x_cuv_rec.attribute4 := l_cuv_rec.attribute4;
1823: END IF;
1824: IF (x_cuv_rec.attribute5 = okl_api.G_MISS_CHAR)
1825: THEN
1826: x_cuv_rec.attribute5 := l_cuv_rec.attribute5;
1827: END IF;
1828: IF (x_cuv_rec.attribute6 = okl_api.G_MISS_CHAR)
1824: IF (x_cuv_rec.attribute5 = okl_api.G_MISS_CHAR)
1825: THEN
1826: x_cuv_rec.attribute5 := l_cuv_rec.attribute5;
1827: END IF;
1828: IF (x_cuv_rec.attribute6 = okl_api.G_MISS_CHAR)
1829: THEN
1830: x_cuv_rec.attribute6 := l_cuv_rec.attribute6;
1831: END IF;
1832: IF (x_cuv_rec.attribute7 = okl_api.G_MISS_CHAR)
1828: IF (x_cuv_rec.attribute6 = okl_api.G_MISS_CHAR)
1829: THEN
1830: x_cuv_rec.attribute6 := l_cuv_rec.attribute6;
1831: END IF;
1832: IF (x_cuv_rec.attribute7 = okl_api.G_MISS_CHAR)
1833: THEN
1834: x_cuv_rec.attribute7 := l_cuv_rec.attribute7;
1835: END IF;
1836: IF (x_cuv_rec.attribute8 = okl_api.G_MISS_CHAR)
1832: IF (x_cuv_rec.attribute7 = okl_api.G_MISS_CHAR)
1833: THEN
1834: x_cuv_rec.attribute7 := l_cuv_rec.attribute7;
1835: END IF;
1836: IF (x_cuv_rec.attribute8 = okl_api.G_MISS_CHAR)
1837: THEN
1838: x_cuv_rec.attribute8 := l_cuv_rec.attribute8;
1839: END IF;
1840: IF (x_cuv_rec.attribute9 = okl_api.G_MISS_CHAR)
1836: IF (x_cuv_rec.attribute8 = okl_api.G_MISS_CHAR)
1837: THEN
1838: x_cuv_rec.attribute8 := l_cuv_rec.attribute8;
1839: END IF;
1840: IF (x_cuv_rec.attribute9 = okl_api.G_MISS_CHAR)
1841: THEN
1842: x_cuv_rec.attribute9 := l_cuv_rec.attribute9;
1843: END IF;
1844: IF (x_cuv_rec.attribute10 = okl_api.G_MISS_CHAR)
1840: IF (x_cuv_rec.attribute9 = okl_api.G_MISS_CHAR)
1841: THEN
1842: x_cuv_rec.attribute9 := l_cuv_rec.attribute9;
1843: END IF;
1844: IF (x_cuv_rec.attribute10 = okl_api.G_MISS_CHAR)
1845: THEN
1846: x_cuv_rec.attribute10 := l_cuv_rec.attribute10;
1847: END IF;
1848: IF (x_cuv_rec.attribute11 = okl_api.G_MISS_CHAR)
1844: IF (x_cuv_rec.attribute10 = okl_api.G_MISS_CHAR)
1845: THEN
1846: x_cuv_rec.attribute10 := l_cuv_rec.attribute10;
1847: END IF;
1848: IF (x_cuv_rec.attribute11 = okl_api.G_MISS_CHAR)
1849: THEN
1850: x_cuv_rec.attribute11 := l_cuv_rec.attribute11;
1851: END IF;
1852: IF (x_cuv_rec.attribute12 = okl_api.G_MISS_CHAR)
1848: IF (x_cuv_rec.attribute11 = okl_api.G_MISS_CHAR)
1849: THEN
1850: x_cuv_rec.attribute11 := l_cuv_rec.attribute11;
1851: END IF;
1852: IF (x_cuv_rec.attribute12 = okl_api.G_MISS_CHAR)
1853: THEN
1854: x_cuv_rec.attribute12 := l_cuv_rec.attribute12;
1855: END IF;
1856: IF (x_cuv_rec.attribute13 = okl_api.G_MISS_CHAR)
1852: IF (x_cuv_rec.attribute12 = okl_api.G_MISS_CHAR)
1853: THEN
1854: x_cuv_rec.attribute12 := l_cuv_rec.attribute12;
1855: END IF;
1856: IF (x_cuv_rec.attribute13 = okl_api.G_MISS_CHAR)
1857: THEN
1858: x_cuv_rec.attribute13 := l_cuv_rec.attribute13;
1859: END IF;
1860: IF (x_cuv_rec.attribute14 = okl_api.G_MISS_CHAR)
1856: IF (x_cuv_rec.attribute13 = okl_api.G_MISS_CHAR)
1857: THEN
1858: x_cuv_rec.attribute13 := l_cuv_rec.attribute13;
1859: END IF;
1860: IF (x_cuv_rec.attribute14 = okl_api.G_MISS_CHAR)
1861: THEN
1862: x_cuv_rec.attribute14 := l_cuv_rec.attribute14;
1863: END IF;
1864: IF (x_cuv_rec.attribute15 = okl_api.G_MISS_CHAR)
1860: IF (x_cuv_rec.attribute14 = okl_api.G_MISS_CHAR)
1861: THEN
1862: x_cuv_rec.attribute14 := l_cuv_rec.attribute14;
1863: END IF;
1864: IF (x_cuv_rec.attribute15 = okl_api.G_MISS_CHAR)
1865: THEN
1866: x_cuv_rec.attribute15 := l_cuv_rec.attribute15;
1867: END IF;
1868: IF (x_cuv_rec.created_by = okl_api.G_MISS_NUM)
1864: IF (x_cuv_rec.attribute15 = okl_api.G_MISS_CHAR)
1865: THEN
1866: x_cuv_rec.attribute15 := l_cuv_rec.attribute15;
1867: END IF;
1868: IF (x_cuv_rec.created_by = okl_api.G_MISS_NUM)
1869: THEN
1870: x_cuv_rec.created_by := l_cuv_rec.created_by;
1871: END IF;
1872: IF (x_cuv_rec.creation_date = okl_api.G_MISS_DATE)
1868: IF (x_cuv_rec.created_by = okl_api.G_MISS_NUM)
1869: THEN
1870: x_cuv_rec.created_by := l_cuv_rec.created_by;
1871: END IF;
1872: IF (x_cuv_rec.creation_date = okl_api.G_MISS_DATE)
1873: THEN
1874: x_cuv_rec.creation_date := l_cuv_rec.creation_date;
1875: END IF;
1876: IF (x_cuv_rec.last_updated_by = okl_api.G_MISS_NUM)
1872: IF (x_cuv_rec.creation_date = okl_api.G_MISS_DATE)
1873: THEN
1874: x_cuv_rec.creation_date := l_cuv_rec.creation_date;
1875: END IF;
1876: IF (x_cuv_rec.last_updated_by = okl_api.G_MISS_NUM)
1877: THEN
1878: x_cuv_rec.last_updated_by := l_cuv_rec.last_updated_by;
1879: END IF;
1880: IF (x_cuv_rec.last_update_date = okl_api.G_MISS_DATE)
1876: IF (x_cuv_rec.last_updated_by = okl_api.G_MISS_NUM)
1877: THEN
1878: x_cuv_rec.last_updated_by := l_cuv_rec.last_updated_by;
1879: END IF;
1880: IF (x_cuv_rec.last_update_date = okl_api.G_MISS_DATE)
1881: THEN
1882: x_cuv_rec.last_update_date := l_cuv_rec.last_update_date;
1883: END IF;
1884: IF (x_cuv_rec.last_update_login = okl_api.G_MISS_NUM)
1880: IF (x_cuv_rec.last_update_date = okl_api.G_MISS_DATE)
1881: THEN
1882: x_cuv_rec.last_update_date := l_cuv_rec.last_update_date;
1883: END IF;
1884: IF (x_cuv_rec.last_update_login = okl_api.G_MISS_NUM)
1885: THEN
1886: x_cuv_rec.last_update_login := l_cuv_rec.last_update_login;
1887: END IF;
1888: RETURN(l_return_status);
1893: FUNCTION Set_Attributes (
1894: p_cuv_rec IN cuv_rec_type,
1895: x_cuv_rec OUT NOCOPY cuv_rec_type
1896: ) RETURN VARCHAR2 IS
1897: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
1898: BEGIN
1899: x_cuv_rec := p_cuv_rec;
1900: RETURN(l_return_status);
1901: END Set_Attributes;
1899: x_cuv_rec := p_cuv_rec;
1900: RETURN(l_return_status);
1901: END Set_Attributes;
1902: BEGIN
1903: l_return_status := okl_api.START_ACTIVITY(l_api_name,
1904: p_init_msg_list,
1905: '_PVT',
1906: x_return_status);
1907: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1903: l_return_status := okl_api.START_ACTIVITY(l_api_name,
1904: p_init_msg_list,
1905: '_PVT',
1906: x_return_status);
1907: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1910: RAISE okl_api.G_EXCEPTION_ERROR;
1911: END IF;
1904: p_init_msg_list,
1905: '_PVT',
1906: x_return_status);
1907: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1910: RAISE okl_api.G_EXCEPTION_ERROR;
1911: END IF;
1912: --- Setting item attributes
1905: '_PVT',
1906: x_return_status);
1907: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1910: RAISE okl_api.G_EXCEPTION_ERROR;
1911: END IF;
1912: --- Setting item attributes
1913: l_return_status := Set_Attributes(
1906: x_return_status);
1907: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1910: RAISE okl_api.G_EXCEPTION_ERROR;
1911: END IF;
1912: --- Setting item attributes
1913: l_return_status := Set_Attributes(
1914: p_cuv_rec, -- IN
1913: l_return_status := Set_Attributes(
1914: p_cuv_rec, -- IN
1915: l_cuv_rec); -- OUT
1916: --- If any errors happen abort API
1917: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1918: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1919: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1920: RAISE okl_api.G_EXCEPTION_ERROR;
1921: END IF;
1914: p_cuv_rec, -- IN
1915: l_cuv_rec); -- OUT
1916: --- If any errors happen abort API
1917: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1918: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1919: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1920: RAISE okl_api.G_EXCEPTION_ERROR;
1921: END IF;
1922: l_return_status := populate_new_record(l_cuv_rec, l_def_cuv_rec);
1915: l_cuv_rec); -- OUT
1916: --- If any errors happen abort API
1917: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1918: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1919: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1920: RAISE okl_api.G_EXCEPTION_ERROR;
1921: END IF;
1922: l_return_status := populate_new_record(l_cuv_rec, l_def_cuv_rec);
1923: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1916: --- If any errors happen abort API
1917: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1918: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1919: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1920: RAISE okl_api.G_EXCEPTION_ERROR;
1921: END IF;
1922: l_return_status := populate_new_record(l_cuv_rec, l_def_cuv_rec);
1923: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1924: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1919: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1920: RAISE okl_api.G_EXCEPTION_ERROR;
1921: END IF;
1922: l_return_status := populate_new_record(l_cuv_rec, l_def_cuv_rec);
1923: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1924: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1925: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1926: RAISE okl_api.G_EXCEPTION_ERROR;
1927: END IF;
1920: RAISE okl_api.G_EXCEPTION_ERROR;
1921: END IF;
1922: l_return_status := populate_new_record(l_cuv_rec, l_def_cuv_rec);
1923: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1924: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1925: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1926: RAISE okl_api.G_EXCEPTION_ERROR;
1927: END IF;
1928: UPDATE OKL_CRTRN_USER_VALS_B
1921: END IF;
1922: l_return_status := populate_new_record(l_cuv_rec, l_def_cuv_rec);
1923: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1924: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1925: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1926: RAISE okl_api.G_EXCEPTION_ERROR;
1927: END IF;
1928: UPDATE OKL_CRTRN_USER_VALS_B
1929: SET CRN_ID = l_def_cuv_rec.crn_id,
1922: l_return_status := populate_new_record(l_cuv_rec, l_def_cuv_rec);
1923: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
1924: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
1925: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
1926: RAISE okl_api.G_EXCEPTION_ERROR;
1927: END IF;
1928: UPDATE OKL_CRTRN_USER_VALS_B
1929: SET CRN_ID = l_def_cuv_rec.crn_id,
1930: SEQUENCE_NUMBER = l_def_cuv_rec.sequence_number,
1953: LAST_UPDATE_LOGIN = l_def_cuv_rec.last_update_login
1954: WHERE ID = l_def_cuv_rec.id;
1955:
1956: x_cuv_rec := l_def_cuv_rec;
1957: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1958: EXCEPTION
1959: WHEN okl_api.G_EXCEPTION_ERROR THEN
1960: x_return_status := okl_api.HANDLE_EXCEPTIONS
1961: (
1955:
1956: x_cuv_rec := l_def_cuv_rec;
1957: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1958: EXCEPTION
1959: WHEN okl_api.G_EXCEPTION_ERROR THEN
1960: x_return_status := okl_api.HANDLE_EXCEPTIONS
1961: (
1962: l_api_name,
1963: G_PKG_NAME,
1956: x_cuv_rec := l_def_cuv_rec;
1957: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
1958: EXCEPTION
1959: WHEN okl_api.G_EXCEPTION_ERROR THEN
1960: x_return_status := okl_api.HANDLE_EXCEPTIONS
1961: (
1962: l_api_name,
1963: G_PKG_NAME,
1964: 'okl_api.G_RET_STS_ERROR',
1960: x_return_status := okl_api.HANDLE_EXCEPTIONS
1961: (
1962: l_api_name,
1963: G_PKG_NAME,
1964: 'okl_api.G_RET_STS_ERROR',
1965: x_msg_count,
1966: x_msg_data,
1967: '_PVT'
1968: );
1965: x_msg_count,
1966: x_msg_data,
1967: '_PVT'
1968: );
1969: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1970: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1971: (
1972: l_api_name,
1973: G_PKG_NAME,
1966: x_msg_data,
1967: '_PVT'
1968: );
1969: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1970: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1971: (
1972: l_api_name,
1973: G_PKG_NAME,
1974: 'okl_api.G_RET_STS_UNEXP_ERROR',
1970: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1971: (
1972: l_api_name,
1973: G_PKG_NAME,
1974: 'okl_api.G_RET_STS_UNEXP_ERROR',
1975: x_msg_count,
1976: x_msg_data,
1977: '_PVT'
1978: );
1976: x_msg_data,
1977: '_PVT'
1978: );
1979: WHEN OTHERS THEN
1980: x_return_status :=okl_api.HANDLE_EXCEPTIONS
1981: (
1982: l_api_name,
1983: G_PKG_NAME,
1984: 'OTHERS',
1990: -------------------------------------------
1991: -- update_row for:OKL_CRTRN_USER_VALS_TL --
1992: -------------------------------------------
1993: PROCEDURE update_row(
1994: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
1995: x_return_status OUT NOCOPY VARCHAR2,
1996: x_msg_count OUT NOCOPY NUMBER,
1997: x_msg_data OUT NOCOPY VARCHAR2,
1998: p_okl_crtrn_user_vals_tl_rec IN OklCrtrnUserValsTlRecType,
1999: x_okl_crtrn_user_vals_tl_rec OUT NOCOPY OklCrtrnUserValsTlRecType) IS
2000:
2001: l_api_version CONSTANT NUMBER := 1;
2002: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2003: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2004: l_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType := p_okl_crtrn_user_vals_tl_rec;
2005: ldefoklcrtrnuservalstlrec OklCrtrnUserValsTlRecType;
2006: l_row_notfound BOOLEAN := TRUE;
2007: ----------------------------------
2012: x_okl_crtrn_user_vals_tl_rec OUT NOCOPY OklCrtrnUserValsTlRecType
2013: ) RETURN VARCHAR2 IS
2014: l_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType;
2015: l_row_notfound BOOLEAN := TRUE;
2016: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2017: BEGIN
2018: x_okl_crtrn_user_vals_tl_rec := p_okl_crtrn_user_vals_tl_rec;
2019: -- Get current database values
2020: l_okl_crtrn_user_vals_tl_rec := get_rec(p_okl_crtrn_user_vals_tl_rec, l_row_notfound);
2018: x_okl_crtrn_user_vals_tl_rec := p_okl_crtrn_user_vals_tl_rec;
2019: -- Get current database values
2020: l_okl_crtrn_user_vals_tl_rec := get_rec(p_okl_crtrn_user_vals_tl_rec, l_row_notfound);
2021: IF (l_row_notfound) THEN
2022: l_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
2023: END IF;
2024: IF (x_okl_crtrn_user_vals_tl_rec.id = okl_api.G_MISS_NUM)
2025: THEN
2026: x_okl_crtrn_user_vals_tl_rec.id := l_okl_crtrn_user_vals_tl_rec.id;
2020: l_okl_crtrn_user_vals_tl_rec := get_rec(p_okl_crtrn_user_vals_tl_rec, l_row_notfound);
2021: IF (l_row_notfound) THEN
2022: l_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
2023: END IF;
2024: IF (x_okl_crtrn_user_vals_tl_rec.id = okl_api.G_MISS_NUM)
2025: THEN
2026: x_okl_crtrn_user_vals_tl_rec.id := l_okl_crtrn_user_vals_tl_rec.id;
2027: END IF;
2028: IF (x_okl_crtrn_user_vals_tl_rec.LANGUAGE = okl_api.G_MISS_CHAR)
2024: IF (x_okl_crtrn_user_vals_tl_rec.id = okl_api.G_MISS_NUM)
2025: THEN
2026: x_okl_crtrn_user_vals_tl_rec.id := l_okl_crtrn_user_vals_tl_rec.id;
2027: END IF;
2028: IF (x_okl_crtrn_user_vals_tl_rec.LANGUAGE = okl_api.G_MISS_CHAR)
2029: THEN
2030: x_okl_crtrn_user_vals_tl_rec.LANGUAGE := l_okl_crtrn_user_vals_tl_rec.LANGUAGE;
2031: END IF;
2032: IF (x_okl_crtrn_user_vals_tl_rec.source_lang = okl_api.G_MISS_CHAR)
2028: IF (x_okl_crtrn_user_vals_tl_rec.LANGUAGE = okl_api.G_MISS_CHAR)
2029: THEN
2030: x_okl_crtrn_user_vals_tl_rec.LANGUAGE := l_okl_crtrn_user_vals_tl_rec.LANGUAGE;
2031: END IF;
2032: IF (x_okl_crtrn_user_vals_tl_rec.source_lang = okl_api.G_MISS_CHAR)
2033: THEN
2034: x_okl_crtrn_user_vals_tl_rec.source_lang := l_okl_crtrn_user_vals_tl_rec.source_lang;
2035: END IF;
2036: IF (x_okl_crtrn_user_vals_tl_rec.sfwt_flag = okl_api.G_MISS_CHAR)
2032: IF (x_okl_crtrn_user_vals_tl_rec.source_lang = okl_api.G_MISS_CHAR)
2033: THEN
2034: x_okl_crtrn_user_vals_tl_rec.source_lang := l_okl_crtrn_user_vals_tl_rec.source_lang;
2035: END IF;
2036: IF (x_okl_crtrn_user_vals_tl_rec.sfwt_flag = okl_api.G_MISS_CHAR)
2037: THEN
2038: x_okl_crtrn_user_vals_tl_rec.sfwt_flag := l_okl_crtrn_user_vals_tl_rec.sfwt_flag;
2039: END IF;
2040: IF (x_okl_crtrn_user_vals_tl_rec.description = okl_api.G_MISS_CHAR)
2036: IF (x_okl_crtrn_user_vals_tl_rec.sfwt_flag = okl_api.G_MISS_CHAR)
2037: THEN
2038: x_okl_crtrn_user_vals_tl_rec.sfwt_flag := l_okl_crtrn_user_vals_tl_rec.sfwt_flag;
2039: END IF;
2040: IF (x_okl_crtrn_user_vals_tl_rec.description = okl_api.G_MISS_CHAR)
2041: THEN
2042: x_okl_crtrn_user_vals_tl_rec.description := l_okl_crtrn_user_vals_tl_rec.description;
2043: END IF;
2044: IF (x_okl_crtrn_user_vals_tl_rec.created_by = okl_api.G_MISS_NUM)
2040: IF (x_okl_crtrn_user_vals_tl_rec.description = okl_api.G_MISS_CHAR)
2041: THEN
2042: x_okl_crtrn_user_vals_tl_rec.description := l_okl_crtrn_user_vals_tl_rec.description;
2043: END IF;
2044: IF (x_okl_crtrn_user_vals_tl_rec.created_by = okl_api.G_MISS_NUM)
2045: THEN
2046: x_okl_crtrn_user_vals_tl_rec.created_by := l_okl_crtrn_user_vals_tl_rec.created_by;
2047: END IF;
2048: IF (x_okl_crtrn_user_vals_tl_rec.creation_date = okl_api.G_MISS_DATE)
2044: IF (x_okl_crtrn_user_vals_tl_rec.created_by = okl_api.G_MISS_NUM)
2045: THEN
2046: x_okl_crtrn_user_vals_tl_rec.created_by := l_okl_crtrn_user_vals_tl_rec.created_by;
2047: END IF;
2048: IF (x_okl_crtrn_user_vals_tl_rec.creation_date = okl_api.G_MISS_DATE)
2049: THEN
2050: x_okl_crtrn_user_vals_tl_rec.creation_date := l_okl_crtrn_user_vals_tl_rec.creation_date;
2051: END IF;
2052: IF (x_okl_crtrn_user_vals_tl_rec.last_updated_by = okl_api.G_MISS_NUM)
2048: IF (x_okl_crtrn_user_vals_tl_rec.creation_date = okl_api.G_MISS_DATE)
2049: THEN
2050: x_okl_crtrn_user_vals_tl_rec.creation_date := l_okl_crtrn_user_vals_tl_rec.creation_date;
2051: END IF;
2052: IF (x_okl_crtrn_user_vals_tl_rec.last_updated_by = okl_api.G_MISS_NUM)
2053: THEN
2054: x_okl_crtrn_user_vals_tl_rec.last_updated_by := l_okl_crtrn_user_vals_tl_rec.last_updated_by;
2055: END IF;
2056: IF (x_okl_crtrn_user_vals_tl_rec.last_update_date = okl_api.G_MISS_DATE)
2052: IF (x_okl_crtrn_user_vals_tl_rec.last_updated_by = okl_api.G_MISS_NUM)
2053: THEN
2054: x_okl_crtrn_user_vals_tl_rec.last_updated_by := l_okl_crtrn_user_vals_tl_rec.last_updated_by;
2055: END IF;
2056: IF (x_okl_crtrn_user_vals_tl_rec.last_update_date = okl_api.G_MISS_DATE)
2057: THEN
2058: x_okl_crtrn_user_vals_tl_rec.last_update_date := l_okl_crtrn_user_vals_tl_rec.last_update_date;
2059: END IF;
2060: IF (x_okl_crtrn_user_vals_tl_rec.last_update_login = okl_api.G_MISS_NUM)
2056: IF (x_okl_crtrn_user_vals_tl_rec.last_update_date = okl_api.G_MISS_DATE)
2057: THEN
2058: x_okl_crtrn_user_vals_tl_rec.last_update_date := l_okl_crtrn_user_vals_tl_rec.last_update_date;
2059: END IF;
2060: IF (x_okl_crtrn_user_vals_tl_rec.last_update_login = okl_api.G_MISS_NUM)
2061: THEN
2062: x_okl_crtrn_user_vals_tl_rec.last_update_login := l_okl_crtrn_user_vals_tl_rec.last_update_login;
2063: END IF;
2064: RETURN(l_return_status);
2069: FUNCTION Set_Attributes (
2070: p_okl_crtrn_user_vals_tl_rec IN OklCrtrnUserValsTlRecType,
2071: x_okl_crtrn_user_vals_tl_rec OUT NOCOPY OklCrtrnUserValsTlRecType
2072: ) RETURN VARCHAR2 IS
2073: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2074: BEGIN
2075: x_okl_crtrn_user_vals_tl_rec := p_okl_crtrn_user_vals_tl_rec;
2076: x_okl_crtrn_user_vals_tl_rec.LANGUAGE := USERENV('LANG');
2077: x_okl_crtrn_user_vals_tl_rec.SOURCE_LANG := USERENV('LANG');
2077: x_okl_crtrn_user_vals_tl_rec.SOURCE_LANG := USERENV('LANG');
2078: RETURN(l_return_status);
2079: END Set_Attributes;
2080: BEGIN
2081: l_return_status := okl_api.START_ACTIVITY(l_api_name,
2082: p_init_msg_list,
2083: '_PVT',
2084: x_return_status);
2085: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2081: l_return_status := okl_api.START_ACTIVITY(l_api_name,
2082: p_init_msg_list,
2083: '_PVT',
2084: x_return_status);
2085: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2086: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2087: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2088: RAISE okl_api.G_EXCEPTION_ERROR;
2089: END IF;
2082: p_init_msg_list,
2083: '_PVT',
2084: x_return_status);
2085: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2086: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2087: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2088: RAISE okl_api.G_EXCEPTION_ERROR;
2089: END IF;
2090: --- Setting item attributes
2083: '_PVT',
2084: x_return_status);
2085: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2086: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2087: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2088: RAISE okl_api.G_EXCEPTION_ERROR;
2089: END IF;
2090: --- Setting item attributes
2091: l_return_status := Set_Attributes(
2084: x_return_status);
2085: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2086: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2087: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2088: RAISE okl_api.G_EXCEPTION_ERROR;
2089: END IF;
2090: --- Setting item attributes
2091: l_return_status := Set_Attributes(
2092: p_okl_crtrn_user_vals_tl_rec, -- IN
2091: l_return_status := Set_Attributes(
2092: p_okl_crtrn_user_vals_tl_rec, -- IN
2093: l_okl_crtrn_user_vals_tl_rec); -- OUT
2094: --- If any errors happen abort API
2095: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2096: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2097: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2098: RAISE okl_api.G_EXCEPTION_ERROR;
2099: END IF;
2092: p_okl_crtrn_user_vals_tl_rec, -- IN
2093: l_okl_crtrn_user_vals_tl_rec); -- OUT
2094: --- If any errors happen abort API
2095: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2096: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2097: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2098: RAISE okl_api.G_EXCEPTION_ERROR;
2099: END IF;
2100: l_return_status := populate_new_record(l_okl_crtrn_user_vals_tl_rec, ldefoklcrtrnuservalstlrec);
2093: l_okl_crtrn_user_vals_tl_rec); -- OUT
2094: --- If any errors happen abort API
2095: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2096: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2097: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2098: RAISE okl_api.G_EXCEPTION_ERROR;
2099: END IF;
2100: l_return_status := populate_new_record(l_okl_crtrn_user_vals_tl_rec, ldefoklcrtrnuservalstlrec);
2101: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2094: --- If any errors happen abort API
2095: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2096: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2097: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2098: RAISE okl_api.G_EXCEPTION_ERROR;
2099: END IF;
2100: l_return_status := populate_new_record(l_okl_crtrn_user_vals_tl_rec, ldefoklcrtrnuservalstlrec);
2101: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2102: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2097: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2098: RAISE okl_api.G_EXCEPTION_ERROR;
2099: END IF;
2100: l_return_status := populate_new_record(l_okl_crtrn_user_vals_tl_rec, ldefoklcrtrnuservalstlrec);
2101: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2102: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2103: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2104: RAISE okl_api.G_EXCEPTION_ERROR;
2105: END IF;
2098: RAISE okl_api.G_EXCEPTION_ERROR;
2099: END IF;
2100: l_return_status := populate_new_record(l_okl_crtrn_user_vals_tl_rec, ldefoklcrtrnuservalstlrec);
2101: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2102: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2103: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2104: RAISE okl_api.G_EXCEPTION_ERROR;
2105: END IF;
2106: UPDATE OKL_CRTRN_USER_VALS_TL
2099: END IF;
2100: l_return_status := populate_new_record(l_okl_crtrn_user_vals_tl_rec, ldefoklcrtrnuservalstlrec);
2101: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2102: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2103: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2104: RAISE okl_api.G_EXCEPTION_ERROR;
2105: END IF;
2106: UPDATE OKL_CRTRN_USER_VALS_TL
2107: SET DESCRIPTION = ldefoklcrtrnuservalstlrec.description,
2100: l_return_status := populate_new_record(l_okl_crtrn_user_vals_tl_rec, ldefoklcrtrnuservalstlrec);
2101: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2102: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2103: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2104: RAISE okl_api.G_EXCEPTION_ERROR;
2105: END IF;
2106: UPDATE OKL_CRTRN_USER_VALS_TL
2107: SET DESCRIPTION = ldefoklcrtrnuservalstlrec.description,
2108: CREATED_BY = ldefoklcrtrnuservalstlrec.created_by,
2119: WHERE ID = ldefoklcrtrnuservalstlrec.id
2120: AND SOURCE_LANG <> USERENV('LANG');
2121:
2122: x_okl_crtrn_user_vals_tl_rec := ldefoklcrtrnuservalstlrec;
2123: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2124: EXCEPTION
2125: WHEN okl_api.G_EXCEPTION_ERROR THEN
2126: x_return_status := okl_api.HANDLE_EXCEPTIONS
2127: (
2121:
2122: x_okl_crtrn_user_vals_tl_rec := ldefoklcrtrnuservalstlrec;
2123: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2124: EXCEPTION
2125: WHEN okl_api.G_EXCEPTION_ERROR THEN
2126: x_return_status := okl_api.HANDLE_EXCEPTIONS
2127: (
2128: l_api_name,
2129: G_PKG_NAME,
2122: x_okl_crtrn_user_vals_tl_rec := ldefoklcrtrnuservalstlrec;
2123: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2124: EXCEPTION
2125: WHEN okl_api.G_EXCEPTION_ERROR THEN
2126: x_return_status := okl_api.HANDLE_EXCEPTIONS
2127: (
2128: l_api_name,
2129: G_PKG_NAME,
2130: 'okl_api.G_RET_STS_ERROR',
2126: x_return_status := okl_api.HANDLE_EXCEPTIONS
2127: (
2128: l_api_name,
2129: G_PKG_NAME,
2130: 'okl_api.G_RET_STS_ERROR',
2131: x_msg_count,
2132: x_msg_data,
2133: '_PVT'
2134: );
2131: x_msg_count,
2132: x_msg_data,
2133: '_PVT'
2134: );
2135: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2136: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2137: (
2138: l_api_name,
2139: G_PKG_NAME,
2132: x_msg_data,
2133: '_PVT'
2134: );
2135: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2136: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2137: (
2138: l_api_name,
2139: G_PKG_NAME,
2140: 'okl_api.G_RET_STS_UNEXP_ERROR',
2136: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2137: (
2138: l_api_name,
2139: G_PKG_NAME,
2140: 'okl_api.G_RET_STS_UNEXP_ERROR',
2141: x_msg_count,
2142: x_msg_data,
2143: '_PVT'
2144: );
2142: x_msg_data,
2143: '_PVT'
2144: );
2145: WHEN OTHERS THEN
2146: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2147: (
2148: l_api_name,
2149: G_PKG_NAME,
2150: 'OTHERS',
2157: -- update_row for:OKL_CRTRN_USER_VALS_V --
2158: ------------------------------------------
2159: PROCEDURE update_row(
2160: p_api_version IN NUMBER,
2161: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
2162: x_return_status OUT NOCOPY VARCHAR2,
2163: x_msg_count OUT NOCOPY NUMBER,
2164: x_msg_data OUT NOCOPY VARCHAR2,
2165: p_cuvv_rec IN cuvv_rec_type,
2166: x_cuvv_rec OUT NOCOPY cuvv_rec_type) IS
2167:
2168: l_api_version CONSTANT NUMBER := 1;
2169: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2170: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2171: l_cuvv_rec cuvv_rec_type := p_cuvv_rec;
2172: l_def_cuvv_rec cuvv_rec_type;
2173: l_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType;
2174: lx_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType;
2195: x_cuvv_rec OUT NOCOPY cuvv_rec_type
2196: ) RETURN VARCHAR2 IS
2197: l_cuvv_rec cuvv_rec_type;
2198: l_row_notfound BOOLEAN := TRUE;
2199: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2200: BEGIN
2201: x_cuvv_rec := p_cuvv_rec;
2202: -- Get current database values
2203: l_cuvv_rec := get_rec(p_cuvv_rec, l_row_notfound);
2201: x_cuvv_rec := p_cuvv_rec;
2202: -- Get current database values
2203: l_cuvv_rec := get_rec(p_cuvv_rec, l_row_notfound);
2204: IF (l_row_notfound) THEN
2205: l_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
2206: END IF;
2207: IF (x_cuvv_rec.id = okl_api.G_MISS_NUM)
2208: THEN
2209: x_cuvv_rec.id := l_cuvv_rec.id;
2203: l_cuvv_rec := get_rec(p_cuvv_rec, l_row_notfound);
2204: IF (l_row_notfound) THEN
2205: l_return_status := okl_api.G_RET_STS_UNEXP_ERROR;
2206: END IF;
2207: IF (x_cuvv_rec.id = okl_api.G_MISS_NUM)
2208: THEN
2209: x_cuvv_rec.id := l_cuvv_rec.id;
2210: END IF;
2211: IF (x_cuvv_rec.object_version_number = okl_api.G_MISS_NUM)
2207: IF (x_cuvv_rec.id = okl_api.G_MISS_NUM)
2208: THEN
2209: x_cuvv_rec.id := l_cuvv_rec.id;
2210: END IF;
2211: IF (x_cuvv_rec.object_version_number = okl_api.G_MISS_NUM)
2212: THEN
2213: x_cuvv_rec.object_version_number := l_cuvv_rec.object_version_number;
2214: END IF;
2215: IF (x_cuvv_rec.sfwt_flag = okl_api.G_MISS_CHAR)
2211: IF (x_cuvv_rec.object_version_number = okl_api.G_MISS_NUM)
2212: THEN
2213: x_cuvv_rec.object_version_number := l_cuvv_rec.object_version_number;
2214: END IF;
2215: IF (x_cuvv_rec.sfwt_flag = okl_api.G_MISS_CHAR)
2216: THEN
2217: x_cuvv_rec.sfwt_flag := l_cuvv_rec.sfwt_flag;
2218: END IF;
2219: IF (x_cuvv_rec.crn_id = okl_api.G_MISS_NUM)
2215: IF (x_cuvv_rec.sfwt_flag = okl_api.G_MISS_CHAR)
2216: THEN
2217: x_cuvv_rec.sfwt_flag := l_cuvv_rec.sfwt_flag;
2218: END IF;
2219: IF (x_cuvv_rec.crn_id = okl_api.G_MISS_NUM)
2220: THEN
2221: x_cuvv_rec.crn_id := l_cuvv_rec.crn_id;
2222: END IF;
2223: IF (x_cuvv_rec.sequence_number = okl_api.G_MISS_NUM)
2219: IF (x_cuvv_rec.crn_id = okl_api.G_MISS_NUM)
2220: THEN
2221: x_cuvv_rec.crn_id := l_cuvv_rec.crn_id;
2222: END IF;
2223: IF (x_cuvv_rec.sequence_number = okl_api.G_MISS_NUM)
2224: THEN
2225: x_cuvv_rec.sequence_number := l_cuvv_rec.sequence_number;
2226: END IF;
2227: IF (x_cuvv_rec.value = okl_api.G_MISS_NUM)
2223: IF (x_cuvv_rec.sequence_number = okl_api.G_MISS_NUM)
2224: THEN
2225: x_cuvv_rec.sequence_number := l_cuvv_rec.sequence_number;
2226: END IF;
2227: IF (x_cuvv_rec.value = okl_api.G_MISS_NUM)
2228: THEN
2229: x_cuvv_rec.value := l_cuvv_rec.value;
2230: END IF;
2231: IF (x_cuvv_rec.description = okl_api.G_MISS_CHAR)
2227: IF (x_cuvv_rec.value = okl_api.G_MISS_NUM)
2228: THEN
2229: x_cuvv_rec.value := l_cuvv_rec.value;
2230: END IF;
2231: IF (x_cuvv_rec.description = okl_api.G_MISS_CHAR)
2232: THEN
2233: x_cuvv_rec.description := l_cuvv_rec.description;
2234: END IF;
2235: IF (x_cuvv_rec.attribute_category = okl_api.G_MISS_CHAR)
2231: IF (x_cuvv_rec.description = okl_api.G_MISS_CHAR)
2232: THEN
2233: x_cuvv_rec.description := l_cuvv_rec.description;
2234: END IF;
2235: IF (x_cuvv_rec.attribute_category = okl_api.G_MISS_CHAR)
2236: THEN
2237: x_cuvv_rec.attribute_category := l_cuvv_rec.attribute_category;
2238: END IF;
2239: IF (x_cuvv_rec.attribute1 = okl_api.G_MISS_CHAR)
2235: IF (x_cuvv_rec.attribute_category = okl_api.G_MISS_CHAR)
2236: THEN
2237: x_cuvv_rec.attribute_category := l_cuvv_rec.attribute_category;
2238: END IF;
2239: IF (x_cuvv_rec.attribute1 = okl_api.G_MISS_CHAR)
2240: THEN
2241: x_cuvv_rec.attribute1 := l_cuvv_rec.attribute1;
2242: END IF;
2243: IF (x_cuvv_rec.attribute2 = okl_api.G_MISS_CHAR)
2239: IF (x_cuvv_rec.attribute1 = okl_api.G_MISS_CHAR)
2240: THEN
2241: x_cuvv_rec.attribute1 := l_cuvv_rec.attribute1;
2242: END IF;
2243: IF (x_cuvv_rec.attribute2 = okl_api.G_MISS_CHAR)
2244: THEN
2245: x_cuvv_rec.attribute2 := l_cuvv_rec.attribute2;
2246: END IF;
2247: IF (x_cuvv_rec.attribute3 = okl_api.G_MISS_CHAR)
2243: IF (x_cuvv_rec.attribute2 = okl_api.G_MISS_CHAR)
2244: THEN
2245: x_cuvv_rec.attribute2 := l_cuvv_rec.attribute2;
2246: END IF;
2247: IF (x_cuvv_rec.attribute3 = okl_api.G_MISS_CHAR)
2248: THEN
2249: x_cuvv_rec.attribute3 := l_cuvv_rec.attribute3;
2250: END IF;
2251: IF (x_cuvv_rec.attribute4 = okl_api.G_MISS_CHAR)
2247: IF (x_cuvv_rec.attribute3 = okl_api.G_MISS_CHAR)
2248: THEN
2249: x_cuvv_rec.attribute3 := l_cuvv_rec.attribute3;
2250: END IF;
2251: IF (x_cuvv_rec.attribute4 = okl_api.G_MISS_CHAR)
2252: THEN
2253: x_cuvv_rec.attribute4 := l_cuvv_rec.attribute4;
2254: END IF;
2255: IF (x_cuvv_rec.attribute5 = okl_api.G_MISS_CHAR)
2251: IF (x_cuvv_rec.attribute4 = okl_api.G_MISS_CHAR)
2252: THEN
2253: x_cuvv_rec.attribute4 := l_cuvv_rec.attribute4;
2254: END IF;
2255: IF (x_cuvv_rec.attribute5 = okl_api.G_MISS_CHAR)
2256: THEN
2257: x_cuvv_rec.attribute5 := l_cuvv_rec.attribute5;
2258: END IF;
2259: IF (x_cuvv_rec.attribute6 = okl_api.G_MISS_CHAR)
2255: IF (x_cuvv_rec.attribute5 = okl_api.G_MISS_CHAR)
2256: THEN
2257: x_cuvv_rec.attribute5 := l_cuvv_rec.attribute5;
2258: END IF;
2259: IF (x_cuvv_rec.attribute6 = okl_api.G_MISS_CHAR)
2260: THEN
2261: x_cuvv_rec.attribute6 := l_cuvv_rec.attribute6;
2262: END IF;
2263: IF (x_cuvv_rec.attribute7 = okl_api.G_MISS_CHAR)
2259: IF (x_cuvv_rec.attribute6 = okl_api.G_MISS_CHAR)
2260: THEN
2261: x_cuvv_rec.attribute6 := l_cuvv_rec.attribute6;
2262: END IF;
2263: IF (x_cuvv_rec.attribute7 = okl_api.G_MISS_CHAR)
2264: THEN
2265: x_cuvv_rec.attribute7 := l_cuvv_rec.attribute7;
2266: END IF;
2267: IF (x_cuvv_rec.attribute8 = okl_api.G_MISS_CHAR)
2263: IF (x_cuvv_rec.attribute7 = okl_api.G_MISS_CHAR)
2264: THEN
2265: x_cuvv_rec.attribute7 := l_cuvv_rec.attribute7;
2266: END IF;
2267: IF (x_cuvv_rec.attribute8 = okl_api.G_MISS_CHAR)
2268: THEN
2269: x_cuvv_rec.attribute8 := l_cuvv_rec.attribute8;
2270: END IF;
2271: IF (x_cuvv_rec.attribute9 = okl_api.G_MISS_CHAR)
2267: IF (x_cuvv_rec.attribute8 = okl_api.G_MISS_CHAR)
2268: THEN
2269: x_cuvv_rec.attribute8 := l_cuvv_rec.attribute8;
2270: END IF;
2271: IF (x_cuvv_rec.attribute9 = okl_api.G_MISS_CHAR)
2272: THEN
2273: x_cuvv_rec.attribute9 := l_cuvv_rec.attribute9;
2274: END IF;
2275: IF (x_cuvv_rec.attribute10 = okl_api.G_MISS_CHAR)
2271: IF (x_cuvv_rec.attribute9 = okl_api.G_MISS_CHAR)
2272: THEN
2273: x_cuvv_rec.attribute9 := l_cuvv_rec.attribute9;
2274: END IF;
2275: IF (x_cuvv_rec.attribute10 = okl_api.G_MISS_CHAR)
2276: THEN
2277: x_cuvv_rec.attribute10 := l_cuvv_rec.attribute10;
2278: END IF;
2279: IF (x_cuvv_rec.attribute11 = okl_api.G_MISS_CHAR)
2275: IF (x_cuvv_rec.attribute10 = okl_api.G_MISS_CHAR)
2276: THEN
2277: x_cuvv_rec.attribute10 := l_cuvv_rec.attribute10;
2278: END IF;
2279: IF (x_cuvv_rec.attribute11 = okl_api.G_MISS_CHAR)
2280: THEN
2281: x_cuvv_rec.attribute11 := l_cuvv_rec.attribute11;
2282: END IF;
2283: IF (x_cuvv_rec.attribute12 = okl_api.G_MISS_CHAR)
2279: IF (x_cuvv_rec.attribute11 = okl_api.G_MISS_CHAR)
2280: THEN
2281: x_cuvv_rec.attribute11 := l_cuvv_rec.attribute11;
2282: END IF;
2283: IF (x_cuvv_rec.attribute12 = okl_api.G_MISS_CHAR)
2284: THEN
2285: x_cuvv_rec.attribute12 := l_cuvv_rec.attribute12;
2286: END IF;
2287: IF (x_cuvv_rec.attribute13 = okl_api.G_MISS_CHAR)
2283: IF (x_cuvv_rec.attribute12 = okl_api.G_MISS_CHAR)
2284: THEN
2285: x_cuvv_rec.attribute12 := l_cuvv_rec.attribute12;
2286: END IF;
2287: IF (x_cuvv_rec.attribute13 = okl_api.G_MISS_CHAR)
2288: THEN
2289: x_cuvv_rec.attribute13 := l_cuvv_rec.attribute13;
2290: END IF;
2291: IF (x_cuvv_rec.attribute14 = okl_api.G_MISS_CHAR)
2287: IF (x_cuvv_rec.attribute13 = okl_api.G_MISS_CHAR)
2288: THEN
2289: x_cuvv_rec.attribute13 := l_cuvv_rec.attribute13;
2290: END IF;
2291: IF (x_cuvv_rec.attribute14 = okl_api.G_MISS_CHAR)
2292: THEN
2293: x_cuvv_rec.attribute14 := l_cuvv_rec.attribute14;
2294: END IF;
2295: IF (x_cuvv_rec.attribute15 = okl_api.G_MISS_CHAR)
2291: IF (x_cuvv_rec.attribute14 = okl_api.G_MISS_CHAR)
2292: THEN
2293: x_cuvv_rec.attribute14 := l_cuvv_rec.attribute14;
2294: END IF;
2295: IF (x_cuvv_rec.attribute15 = okl_api.G_MISS_CHAR)
2296: THEN
2297: x_cuvv_rec.attribute15 := l_cuvv_rec.attribute15;
2298: END IF;
2299: IF (x_cuvv_rec.created_by = okl_api.G_MISS_NUM)
2295: IF (x_cuvv_rec.attribute15 = okl_api.G_MISS_CHAR)
2296: THEN
2297: x_cuvv_rec.attribute15 := l_cuvv_rec.attribute15;
2298: END IF;
2299: IF (x_cuvv_rec.created_by = okl_api.G_MISS_NUM)
2300: THEN
2301: x_cuvv_rec.created_by := l_cuvv_rec.created_by;
2302: END IF;
2303: IF (x_cuvv_rec.creation_date = okl_api.G_MISS_DATE)
2299: IF (x_cuvv_rec.created_by = okl_api.G_MISS_NUM)
2300: THEN
2301: x_cuvv_rec.created_by := l_cuvv_rec.created_by;
2302: END IF;
2303: IF (x_cuvv_rec.creation_date = okl_api.G_MISS_DATE)
2304: THEN
2305: x_cuvv_rec.creation_date := l_cuvv_rec.creation_date;
2306: END IF;
2307: IF (x_cuvv_rec.last_updated_by = okl_api.G_MISS_NUM)
2303: IF (x_cuvv_rec.creation_date = okl_api.G_MISS_DATE)
2304: THEN
2305: x_cuvv_rec.creation_date := l_cuvv_rec.creation_date;
2306: END IF;
2307: IF (x_cuvv_rec.last_updated_by = okl_api.G_MISS_NUM)
2308: THEN
2309: x_cuvv_rec.last_updated_by := l_cuvv_rec.last_updated_by;
2310: END IF;
2311: IF (x_cuvv_rec.last_update_date = okl_api.G_MISS_DATE)
2307: IF (x_cuvv_rec.last_updated_by = okl_api.G_MISS_NUM)
2308: THEN
2309: x_cuvv_rec.last_updated_by := l_cuvv_rec.last_updated_by;
2310: END IF;
2311: IF (x_cuvv_rec.last_update_date = okl_api.G_MISS_DATE)
2312: THEN
2313: x_cuvv_rec.last_update_date := l_cuvv_rec.last_update_date;
2314: END IF;
2315: IF (x_cuvv_rec.last_update_login = okl_api.G_MISS_NUM)
2311: IF (x_cuvv_rec.last_update_date = okl_api.G_MISS_DATE)
2312: THEN
2313: x_cuvv_rec.last_update_date := l_cuvv_rec.last_update_date;
2314: END IF;
2315: IF (x_cuvv_rec.last_update_login = okl_api.G_MISS_NUM)
2316: THEN
2317: x_cuvv_rec.last_update_login := l_cuvv_rec.last_update_login;
2318: END IF;
2319: RETURN(l_return_status);
2324: FUNCTION Set_Attributes (
2325: p_cuvv_rec IN cuvv_rec_type,
2326: x_cuvv_rec OUT NOCOPY cuvv_rec_type
2327: ) RETURN VARCHAR2 IS
2328: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2329: BEGIN
2330: x_cuvv_rec := p_cuvv_rec;
2331: x_cuvv_rec.OBJECT_VERSION_NUMBER := NVL(x_cuvv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2332: RETURN(l_return_status);
2331: x_cuvv_rec.OBJECT_VERSION_NUMBER := NVL(x_cuvv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2332: RETURN(l_return_status);
2333: END Set_Attributes;
2334: BEGIN
2335: l_return_status := okl_api.START_ACTIVITY(l_api_name,
2336: G_PKG_NAME,
2337: p_init_msg_list,
2338: l_api_version,
2339: p_api_version,
2338: l_api_version,
2339: p_api_version,
2340: '_PVT',
2341: x_return_status);
2342: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2343: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2344: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2345: RAISE okl_api.G_EXCEPTION_ERROR;
2346: END IF;
2339: p_api_version,
2340: '_PVT',
2341: x_return_status);
2342: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2343: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2344: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2345: RAISE okl_api.G_EXCEPTION_ERROR;
2346: END IF;
2347: --- Setting item attributes
2340: '_PVT',
2341: x_return_status);
2342: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2343: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2344: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2345: RAISE okl_api.G_EXCEPTION_ERROR;
2346: END IF;
2347: --- Setting item attributes
2348: l_return_status := Set_Attributes(
2341: x_return_status);
2342: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2343: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2344: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2345: RAISE okl_api.G_EXCEPTION_ERROR;
2346: END IF;
2347: --- Setting item attributes
2348: l_return_status := Set_Attributes(
2349: p_cuvv_rec, -- IN
2348: l_return_status := Set_Attributes(
2349: p_cuvv_rec, -- IN
2350: l_cuvv_rec); -- OUT
2351: --- If any errors happen abort API
2352: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2355: RAISE okl_api.G_EXCEPTION_ERROR;
2356: END IF;
2349: p_cuvv_rec, -- IN
2350: l_cuvv_rec); -- OUT
2351: --- If any errors happen abort API
2352: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2355: RAISE okl_api.G_EXCEPTION_ERROR;
2356: END IF;
2357: l_return_status := populate_new_record(l_cuvv_rec, l_def_cuvv_rec);
2350: l_cuvv_rec); -- OUT
2351: --- If any errors happen abort API
2352: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2355: RAISE okl_api.G_EXCEPTION_ERROR;
2356: END IF;
2357: l_return_status := populate_new_record(l_cuvv_rec, l_def_cuvv_rec);
2358: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2351: --- If any errors happen abort API
2352: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2355: RAISE okl_api.G_EXCEPTION_ERROR;
2356: END IF;
2357: l_return_status := populate_new_record(l_cuvv_rec, l_def_cuvv_rec);
2358: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2359: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2355: RAISE okl_api.G_EXCEPTION_ERROR;
2356: END IF;
2357: l_return_status := populate_new_record(l_cuvv_rec, l_def_cuvv_rec);
2358: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2359: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2360: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2361: RAISE okl_api.G_EXCEPTION_ERROR;
2362: END IF;
2355: RAISE okl_api.G_EXCEPTION_ERROR;
2356: END IF;
2357: l_return_status := populate_new_record(l_cuvv_rec, l_def_cuvv_rec);
2358: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2359: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2360: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2361: RAISE okl_api.G_EXCEPTION_ERROR;
2362: END IF;
2363: l_def_cuvv_rec := fill_who_columns(l_def_cuvv_rec);
2356: END IF;
2357: l_return_status := populate_new_record(l_cuvv_rec, l_def_cuvv_rec);
2358: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2359: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2360: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2361: RAISE okl_api.G_EXCEPTION_ERROR;
2362: END IF;
2363: l_def_cuvv_rec := fill_who_columns(l_def_cuvv_rec);
2364: --- Validate all non-missing attributes (Item Level Validation)
2357: l_return_status := populate_new_record(l_cuvv_rec, l_def_cuvv_rec);
2358: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2359: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2360: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2361: RAISE okl_api.G_EXCEPTION_ERROR;
2362: END IF;
2363: l_def_cuvv_rec := fill_who_columns(l_def_cuvv_rec);
2364: --- Validate all non-missing attributes (Item Level Validation)
2365: l_return_status := Validate_Attributes(l_def_cuvv_rec);
2363: l_def_cuvv_rec := fill_who_columns(l_def_cuvv_rec);
2364: --- Validate all non-missing attributes (Item Level Validation)
2365: l_return_status := Validate_Attributes(l_def_cuvv_rec);
2366: --- If any errors happen abort API
2367: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2368: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2369: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2370: RAISE okl_api.G_EXCEPTION_ERROR;
2371: END IF;
2364: --- Validate all non-missing attributes (Item Level Validation)
2365: l_return_status := Validate_Attributes(l_def_cuvv_rec);
2366: --- If any errors happen abort API
2367: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2368: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2369: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2370: RAISE okl_api.G_EXCEPTION_ERROR;
2371: END IF;
2372: l_return_status := Validate_Record(l_def_cuvv_rec);
2365: l_return_status := Validate_Attributes(l_def_cuvv_rec);
2366: --- If any errors happen abort API
2367: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2368: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2369: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2370: RAISE okl_api.G_EXCEPTION_ERROR;
2371: END IF;
2372: l_return_status := Validate_Record(l_def_cuvv_rec);
2373: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2366: --- If any errors happen abort API
2367: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2368: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2369: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2370: RAISE okl_api.G_EXCEPTION_ERROR;
2371: END IF;
2372: l_return_status := Validate_Record(l_def_cuvv_rec);
2373: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2369: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2370: RAISE okl_api.G_EXCEPTION_ERROR;
2371: END IF;
2372: l_return_status := Validate_Record(l_def_cuvv_rec);
2373: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2376: RAISE okl_api.G_EXCEPTION_ERROR;
2377: END IF;
2370: RAISE okl_api.G_EXCEPTION_ERROR;
2371: END IF;
2372: l_return_status := Validate_Record(l_def_cuvv_rec);
2373: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2376: RAISE okl_api.G_EXCEPTION_ERROR;
2377: END IF;
2378:
2371: END IF;
2372: l_return_status := Validate_Record(l_def_cuvv_rec);
2373: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2376: RAISE okl_api.G_EXCEPTION_ERROR;
2377: END IF;
2378:
2379: --------------------------------------
2372: l_return_status := Validate_Record(l_def_cuvv_rec);
2373: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2376: RAISE okl_api.G_EXCEPTION_ERROR;
2377: END IF;
2378:
2379: --------------------------------------
2380: -- Move VIEW record to "Child" records
2391: x_msg_data,
2392: l_okl_crtrn_user_vals_tl_rec,
2393: lx_okl_crtrn_user_vals_tl_rec
2394: );
2395: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2396: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2397: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2398: RAISE okl_api.G_EXCEPTION_ERROR;
2399: END IF;
2392: l_okl_crtrn_user_vals_tl_rec,
2393: lx_okl_crtrn_user_vals_tl_rec
2394: );
2395: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2396: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2397: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2398: RAISE okl_api.G_EXCEPTION_ERROR;
2399: END IF;
2400: migrate(lx_okl_crtrn_user_vals_tl_rec, l_def_cuvv_rec);
2393: lx_okl_crtrn_user_vals_tl_rec
2394: );
2395: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2396: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2397: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2398: RAISE okl_api.G_EXCEPTION_ERROR;
2399: END IF;
2400: migrate(lx_okl_crtrn_user_vals_tl_rec, l_def_cuvv_rec);
2401: update_row(
2394: );
2395: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2396: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2397: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2398: RAISE okl_api.G_EXCEPTION_ERROR;
2399: END IF;
2400: migrate(lx_okl_crtrn_user_vals_tl_rec, l_def_cuvv_rec);
2401: update_row(
2402: p_init_msg_list,
2405: x_msg_data,
2406: l_cuv_rec,
2407: lx_cuv_rec
2408: );
2409: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2412: RAISE okl_api.G_EXCEPTION_ERROR;
2413: END IF;
2406: l_cuv_rec,
2407: lx_cuv_rec
2408: );
2409: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2412: RAISE okl_api.G_EXCEPTION_ERROR;
2413: END IF;
2414: migrate(lx_cuv_rec, l_def_cuvv_rec);
2407: lx_cuv_rec
2408: );
2409: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2412: RAISE okl_api.G_EXCEPTION_ERROR;
2413: END IF;
2414: migrate(lx_cuv_rec, l_def_cuvv_rec);
2415: x_cuvv_rec := l_def_cuvv_rec;
2408: );
2409: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2412: RAISE okl_api.G_EXCEPTION_ERROR;
2413: END IF;
2414: migrate(lx_cuv_rec, l_def_cuvv_rec);
2415: x_cuvv_rec := l_def_cuvv_rec;
2416: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2412: RAISE okl_api.G_EXCEPTION_ERROR;
2413: END IF;
2414: migrate(lx_cuv_rec, l_def_cuvv_rec);
2415: x_cuvv_rec := l_def_cuvv_rec;
2416: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2417: EXCEPTION
2418: WHEN okl_api.G_EXCEPTION_ERROR THEN
2419: x_return_status := okl_api.HANDLE_EXCEPTIONS
2420: (
2414: migrate(lx_cuv_rec, l_def_cuvv_rec);
2415: x_cuvv_rec := l_def_cuvv_rec;
2416: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2417: EXCEPTION
2418: WHEN okl_api.G_EXCEPTION_ERROR THEN
2419: x_return_status := okl_api.HANDLE_EXCEPTIONS
2420: (
2421: l_api_name,
2422: G_PKG_NAME,
2415: x_cuvv_rec := l_def_cuvv_rec;
2416: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2417: EXCEPTION
2418: WHEN okl_api.G_EXCEPTION_ERROR THEN
2419: x_return_status := okl_api.HANDLE_EXCEPTIONS
2420: (
2421: l_api_name,
2422: G_PKG_NAME,
2423: 'okl_api.G_RET_STS_ERROR',
2419: x_return_status := okl_api.HANDLE_EXCEPTIONS
2420: (
2421: l_api_name,
2422: G_PKG_NAME,
2423: 'okl_api.G_RET_STS_ERROR',
2424: x_msg_count,
2425: x_msg_data,
2426: '_PVT'
2427: );
2424: x_msg_count,
2425: x_msg_data,
2426: '_PVT'
2427: );
2428: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2429: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2430: (
2431: l_api_name,
2432: G_PKG_NAME,
2425: x_msg_data,
2426: '_PVT'
2427: );
2428: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2429: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2430: (
2431: l_api_name,
2432: G_PKG_NAME,
2433: 'okl_api.G_RET_STS_UNEXP_ERROR',
2429: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2430: (
2431: l_api_name,
2432: G_PKG_NAME,
2433: 'okl_api.G_RET_STS_UNEXP_ERROR',
2434: x_msg_count,
2435: x_msg_data,
2436: '_PVT'
2437: );
2435: x_msg_data,
2436: '_PVT'
2437: );
2438: WHEN OTHERS THEN
2439: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2440: (
2441: l_api_name,
2442: G_PKG_NAME,
2443: 'OTHERS',
2450: -- PL/SQL TBL update_row for:CUVV_TBL --
2451: ----------------------------------------
2452: PROCEDURE update_row(
2453: p_api_version IN NUMBER,
2454: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
2455: x_return_status OUT NOCOPY VARCHAR2,
2456: x_msg_count OUT NOCOPY NUMBER,
2457: x_msg_data OUT NOCOPY VARCHAR2,
2458: p_cuvv_tbl IN cuvv_tbl_type,
2459: x_cuvv_tbl OUT NOCOPY cuvv_tbl_type) IS
2460:
2461: l_api_version CONSTANT NUMBER := 1;
2462: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2463: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2464: i NUMBER := 0;
2465: BEGIN
2466: okl_api.init_msg_list(p_init_msg_list);
2467: -- Make sure PL/SQL table has records in it before passing
2462: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2463: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2464: i NUMBER := 0;
2465: BEGIN
2466: okl_api.init_msg_list(p_init_msg_list);
2467: -- Make sure PL/SQL table has records in it before passing
2468: IF (p_cuvv_tbl.COUNT > 0) THEN
2469: i := p_cuvv_tbl.FIRST;
2470: LOOP
2469: i := p_cuvv_tbl.FIRST;
2470: LOOP
2471: update_row (
2472: p_api_version => p_api_version,
2473: p_init_msg_list => okl_api.G_FALSE,
2474: x_return_status => x_return_status,
2475: x_msg_count => x_msg_count,
2476: x_msg_data => x_msg_data,
2477: p_cuvv_rec => p_cuvv_tbl(i),
2480: i := p_cuvv_tbl.NEXT(i);
2481: END LOOP;
2482: END IF;
2483: EXCEPTION
2484: WHEN okl_api.G_EXCEPTION_ERROR THEN
2485: x_return_status := okl_api.HANDLE_EXCEPTIONS
2486: (
2487: l_api_name,
2488: G_PKG_NAME,
2481: END LOOP;
2482: END IF;
2483: EXCEPTION
2484: WHEN okl_api.G_EXCEPTION_ERROR THEN
2485: x_return_status := okl_api.HANDLE_EXCEPTIONS
2486: (
2487: l_api_name,
2488: G_PKG_NAME,
2489: 'okl_api.G_RET_STS_ERROR',
2485: x_return_status := okl_api.HANDLE_EXCEPTIONS
2486: (
2487: l_api_name,
2488: G_PKG_NAME,
2489: 'okl_api.G_RET_STS_ERROR',
2490: x_msg_count,
2491: x_msg_data,
2492: '_PVT'
2493: );
2490: x_msg_count,
2491: x_msg_data,
2492: '_PVT'
2493: );
2494: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2495: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2496: (
2497: l_api_name,
2498: G_PKG_NAME,
2491: x_msg_data,
2492: '_PVT'
2493: );
2494: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2495: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2496: (
2497: l_api_name,
2498: G_PKG_NAME,
2499: 'okl_api.G_RET_STS_UNEXP_ERROR',
2495: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2496: (
2497: l_api_name,
2498: G_PKG_NAME,
2499: 'okl_api.G_RET_STS_UNEXP_ERROR',
2500: x_msg_count,
2501: x_msg_data,
2502: '_PVT'
2503: );
2501: x_msg_data,
2502: '_PVT'
2503: );
2504: WHEN OTHERS THEN
2505: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2506: (
2507: l_api_name,
2508: G_PKG_NAME,
2509: 'OTHERS',
2519: ------------------------------------------
2520: -- delete_row for:OKL_CRTRN_USER_VALS_B --
2521: ------------------------------------------
2522: PROCEDURE delete_row(
2523: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
2524: x_return_status OUT NOCOPY VARCHAR2,
2525: x_msg_count OUT NOCOPY NUMBER,
2526: x_msg_data OUT NOCOPY VARCHAR2,
2527: p_cuv_rec IN cuv_rec_type) IS
2527: p_cuv_rec IN cuv_rec_type) IS
2528:
2529: l_api_version CONSTANT NUMBER := 1;
2530: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
2531: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2532: l_cuv_rec cuv_rec_type:= p_cuv_rec;
2533: l_row_notfound BOOLEAN := TRUE;
2534: BEGIN
2535: l_return_status := okl_api.START_ACTIVITY(l_api_name,
2531: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2532: l_cuv_rec cuv_rec_type:= p_cuv_rec;
2533: l_row_notfound BOOLEAN := TRUE;
2534: BEGIN
2535: l_return_status := okl_api.START_ACTIVITY(l_api_name,
2536: p_init_msg_list,
2537: '_PVT',
2538: x_return_status);
2539: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2535: l_return_status := okl_api.START_ACTIVITY(l_api_name,
2536: p_init_msg_list,
2537: '_PVT',
2538: x_return_status);
2539: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2540: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2541: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2542: RAISE okl_api.G_EXCEPTION_ERROR;
2543: END IF;
2536: p_init_msg_list,
2537: '_PVT',
2538: x_return_status);
2539: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2540: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2541: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2542: RAISE okl_api.G_EXCEPTION_ERROR;
2543: END IF;
2544: DELETE FROM OKL_CRTRN_USER_VALS_B
2537: '_PVT',
2538: x_return_status);
2539: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2540: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2541: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2542: RAISE okl_api.G_EXCEPTION_ERROR;
2543: END IF;
2544: DELETE FROM OKL_CRTRN_USER_VALS_B
2545: WHERE ID = l_cuv_rec.id;
2538: x_return_status);
2539: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2540: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2541: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2542: RAISE okl_api.G_EXCEPTION_ERROR;
2543: END IF;
2544: DELETE FROM OKL_CRTRN_USER_VALS_B
2545: WHERE ID = l_cuv_rec.id;
2546:
2543: END IF;
2544: DELETE FROM OKL_CRTRN_USER_VALS_B
2545: WHERE ID = l_cuv_rec.id;
2546:
2547: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2548: EXCEPTION
2549: WHEN okl_api.G_EXCEPTION_ERROR THEN
2550: x_return_status := okl_api.HANDLE_EXCEPTIONS
2551: (
2545: WHERE ID = l_cuv_rec.id;
2546:
2547: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2548: EXCEPTION
2549: WHEN okl_api.G_EXCEPTION_ERROR THEN
2550: x_return_status := okl_api.HANDLE_EXCEPTIONS
2551: (
2552: l_api_name,
2553: G_PKG_NAME,
2546:
2547: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2548: EXCEPTION
2549: WHEN okl_api.G_EXCEPTION_ERROR THEN
2550: x_return_status := okl_api.HANDLE_EXCEPTIONS
2551: (
2552: l_api_name,
2553: G_PKG_NAME,
2554: 'okl_api.G_RET_STS_ERROR',
2550: x_return_status := okl_api.HANDLE_EXCEPTIONS
2551: (
2552: l_api_name,
2553: G_PKG_NAME,
2554: 'okl_api.G_RET_STS_ERROR',
2555: x_msg_count,
2556: x_msg_data,
2557: '_PVT'
2558: );
2555: x_msg_count,
2556: x_msg_data,
2557: '_PVT'
2558: );
2559: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2560: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2561: (
2562: l_api_name,
2563: G_PKG_NAME,
2556: x_msg_data,
2557: '_PVT'
2558: );
2559: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2560: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2561: (
2562: l_api_name,
2563: G_PKG_NAME,
2564: 'okl_api.G_RET_STS_UNEXP_ERROR',
2560: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2561: (
2562: l_api_name,
2563: G_PKG_NAME,
2564: 'okl_api.G_RET_STS_UNEXP_ERROR',
2565: x_msg_count,
2566: x_msg_data,
2567: '_PVT'
2568: );
2566: x_msg_data,
2567: '_PVT'
2568: );
2569: WHEN OTHERS THEN
2570: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2571: (
2572: l_api_name,
2573: G_PKG_NAME,
2574: 'OTHERS',
2580: -------------------------------------------
2581: -- delete_row for:OKL_CRTRN_USER_VALS_TL --
2582: -------------------------------------------
2583: PROCEDURE delete_row(
2584: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
2585: x_return_status OUT NOCOPY VARCHAR2,
2586: x_msg_count OUT NOCOPY NUMBER,
2587: x_msg_data OUT NOCOPY VARCHAR2,
2588: p_okl_crtrn_user_vals_tl_rec IN OklCrtrnUserValsTlRecType) IS
2588: p_okl_crtrn_user_vals_tl_rec IN OklCrtrnUserValsTlRecType) IS
2589:
2590: l_api_version CONSTANT NUMBER := 1;
2591: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2592: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2593: l_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType:= p_okl_crtrn_user_vals_tl_rec;
2594: l_row_notfound BOOLEAN := TRUE;
2595: -----------------------------------------------
2596: -- Set_Attributes for:OKL_CRTRN_USER_VALS_TL --
2598: FUNCTION Set_Attributes (
2599: p_okl_crtrn_user_vals_tl_rec IN OklCrtrnUserValsTlRecType,
2600: x_okl_crtrn_user_vals_tl_rec OUT NOCOPY OklCrtrnUserValsTlRecType
2601: ) RETURN VARCHAR2 IS
2602: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2603: BEGIN
2604: x_okl_crtrn_user_vals_tl_rec := p_okl_crtrn_user_vals_tl_rec;
2605: x_okl_crtrn_user_vals_tl_rec.LANGUAGE := USERENV('LANG');
2606: RETURN(l_return_status);
2605: x_okl_crtrn_user_vals_tl_rec.LANGUAGE := USERENV('LANG');
2606: RETURN(l_return_status);
2607: END Set_Attributes;
2608: BEGIN
2609: l_return_status := okl_api.START_ACTIVITY(l_api_name,
2610: p_init_msg_list,
2611: '_PVT',
2612: x_return_status);
2613: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2609: l_return_status := okl_api.START_ACTIVITY(l_api_name,
2610: p_init_msg_list,
2611: '_PVT',
2612: x_return_status);
2613: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2614: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2615: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2616: RAISE okl_api.G_EXCEPTION_ERROR;
2617: END IF;
2610: p_init_msg_list,
2611: '_PVT',
2612: x_return_status);
2613: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2614: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2615: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2616: RAISE okl_api.G_EXCEPTION_ERROR;
2617: END IF;
2618: --- Setting item attributes
2611: '_PVT',
2612: x_return_status);
2613: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2614: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2615: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2616: RAISE okl_api.G_EXCEPTION_ERROR;
2617: END IF;
2618: --- Setting item attributes
2619: l_return_status := Set_Attributes(
2612: x_return_status);
2613: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2614: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2615: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2616: RAISE okl_api.G_EXCEPTION_ERROR;
2617: END IF;
2618: --- Setting item attributes
2619: l_return_status := Set_Attributes(
2620: p_okl_crtrn_user_vals_tl_rec, -- IN
2619: l_return_status := Set_Attributes(
2620: p_okl_crtrn_user_vals_tl_rec, -- IN
2621: l_okl_crtrn_user_vals_tl_rec); -- OUT
2622: --- If any errors happen abort API
2623: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2626: RAISE okl_api.G_EXCEPTION_ERROR;
2627: END IF;
2620: p_okl_crtrn_user_vals_tl_rec, -- IN
2621: l_okl_crtrn_user_vals_tl_rec); -- OUT
2622: --- If any errors happen abort API
2623: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2626: RAISE okl_api.G_EXCEPTION_ERROR;
2627: END IF;
2628: DELETE FROM OKL_CRTRN_USER_VALS_TL
2621: l_okl_crtrn_user_vals_tl_rec); -- OUT
2622: --- If any errors happen abort API
2623: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2626: RAISE okl_api.G_EXCEPTION_ERROR;
2627: END IF;
2628: DELETE FROM OKL_CRTRN_USER_VALS_TL
2629: WHERE ID = l_okl_crtrn_user_vals_tl_rec.id;
2622: --- If any errors happen abort API
2623: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2626: RAISE okl_api.G_EXCEPTION_ERROR;
2627: END IF;
2628: DELETE FROM OKL_CRTRN_USER_VALS_TL
2629: WHERE ID = l_okl_crtrn_user_vals_tl_rec.id;
2630:
2627: END IF;
2628: DELETE FROM OKL_CRTRN_USER_VALS_TL
2629: WHERE ID = l_okl_crtrn_user_vals_tl_rec.id;
2630:
2631: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2632: EXCEPTION
2633: WHEN okl_api.G_EXCEPTION_ERROR THEN
2634: x_return_status := okl_api.HANDLE_EXCEPTIONS
2635: (
2629: WHERE ID = l_okl_crtrn_user_vals_tl_rec.id;
2630:
2631: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2632: EXCEPTION
2633: WHEN okl_api.G_EXCEPTION_ERROR THEN
2634: x_return_status := okl_api.HANDLE_EXCEPTIONS
2635: (
2636: l_api_name,
2637: G_PKG_NAME,
2630:
2631: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2632: EXCEPTION
2633: WHEN okl_api.G_EXCEPTION_ERROR THEN
2634: x_return_status := okl_api.HANDLE_EXCEPTIONS
2635: (
2636: l_api_name,
2637: G_PKG_NAME,
2638: 'okl_api.G_RET_STS_ERROR',
2634: x_return_status := okl_api.HANDLE_EXCEPTIONS
2635: (
2636: l_api_name,
2637: G_PKG_NAME,
2638: 'okl_api.G_RET_STS_ERROR',
2639: x_msg_count,
2640: x_msg_data,
2641: '_PVT'
2642: );
2639: x_msg_count,
2640: x_msg_data,
2641: '_PVT'
2642: );
2643: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2644: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2645: (
2646: l_api_name,
2647: G_PKG_NAME,
2640: x_msg_data,
2641: '_PVT'
2642: );
2643: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2644: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2645: (
2646: l_api_name,
2647: G_PKG_NAME,
2648: 'okl_api.G_RET_STS_UNEXP_ERROR',
2644: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2645: (
2646: l_api_name,
2647: G_PKG_NAME,
2648: 'okl_api.G_RET_STS_UNEXP_ERROR',
2649: x_msg_count,
2650: x_msg_data,
2651: '_PVT'
2652: );
2650: x_msg_data,
2651: '_PVT'
2652: );
2653: WHEN OTHERS THEN
2654: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2655: (
2656: l_api_name,
2657: G_PKG_NAME,
2658: 'OTHERS',
2665: -- delete_row for:OKL_CRTRN_USER_VALS_V --
2666: ------------------------------------------
2667: PROCEDURE delete_row(
2668: p_api_version IN NUMBER,
2669: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
2670: x_return_status OUT NOCOPY VARCHAR2,
2671: x_msg_count OUT NOCOPY NUMBER,
2672: x_msg_data OUT NOCOPY VARCHAR2,
2673: p_cuvv_rec IN cuvv_rec_type) IS
2673: p_cuvv_rec IN cuvv_rec_type) IS
2674:
2675: l_api_version CONSTANT NUMBER := 1;
2676: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2677: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2678: l_cuvv_rec cuvv_rec_type := p_cuvv_rec;
2679: l_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType;
2680: l_cuv_rec cuv_rec_type;
2681: BEGIN
2678: l_cuvv_rec cuvv_rec_type := p_cuvv_rec;
2679: l_okl_crtrn_user_vals_tl_rec OklCrtrnUserValsTlRecType;
2680: l_cuv_rec cuv_rec_type;
2681: BEGIN
2682: l_return_status := okl_api.START_ACTIVITY(l_api_name,
2683: G_PKG_NAME,
2684: p_init_msg_list,
2685: l_api_version,
2686: p_api_version,
2685: l_api_version,
2686: p_api_version,
2687: '_PVT',
2688: x_return_status);
2689: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2690: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2691: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2692: RAISE okl_api.G_EXCEPTION_ERROR;
2693: END IF;
2686: p_api_version,
2687: '_PVT',
2688: x_return_status);
2689: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2690: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2691: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2692: RAISE okl_api.G_EXCEPTION_ERROR;
2693: END IF;
2694: --------------------------------------
2687: '_PVT',
2688: x_return_status);
2689: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2690: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2691: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2692: RAISE okl_api.G_EXCEPTION_ERROR;
2693: END IF;
2694: --------------------------------------
2695: -- Move VIEW record to "Child" records
2688: x_return_status);
2689: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2690: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2691: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
2692: RAISE okl_api.G_EXCEPTION_ERROR;
2693: END IF;
2694: --------------------------------------
2695: -- Move VIEW record to "Child" records
2696: --------------------------------------
2705: x_msg_count,
2706: x_msg_data,
2707: l_okl_crtrn_user_vals_tl_rec
2708: );
2709: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2712: RAISE okl_api.G_EXCEPTION_ERROR;
2713: END IF;
2706: x_msg_data,
2707: l_okl_crtrn_user_vals_tl_rec
2708: );
2709: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2712: RAISE okl_api.G_EXCEPTION_ERROR;
2713: END IF;
2714: delete_row(
2707: l_okl_crtrn_user_vals_tl_rec
2708: );
2709: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2712: RAISE okl_api.G_EXCEPTION_ERROR;
2713: END IF;
2714: delete_row(
2715: p_init_msg_list,
2708: );
2709: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2712: RAISE okl_api.G_EXCEPTION_ERROR;
2713: END IF;
2714: delete_row(
2715: p_init_msg_list,
2716: x_return_status,
2717: x_msg_count,
2718: x_msg_data,
2719: l_cuv_rec
2720: );
2721: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2722: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2723: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2724: RAISE okl_api.G_EXCEPTION_ERROR;
2725: END IF;
2718: x_msg_data,
2719: l_cuv_rec
2720: );
2721: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2722: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2723: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2724: RAISE okl_api.G_EXCEPTION_ERROR;
2725: END IF;
2726: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2719: l_cuv_rec
2720: );
2721: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2722: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2723: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2724: RAISE okl_api.G_EXCEPTION_ERROR;
2725: END IF;
2726: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2727: EXCEPTION
2720: );
2721: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
2722: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2723: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2724: RAISE okl_api.G_EXCEPTION_ERROR;
2725: END IF;
2726: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2727: EXCEPTION
2728: WHEN okl_api.G_EXCEPTION_ERROR THEN
2722: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
2723: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
2724: RAISE okl_api.G_EXCEPTION_ERROR;
2725: END IF;
2726: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2727: EXCEPTION
2728: WHEN okl_api.G_EXCEPTION_ERROR THEN
2729: x_return_status := okl_api.HANDLE_EXCEPTIONS
2730: (
2724: RAISE okl_api.G_EXCEPTION_ERROR;
2725: END IF;
2726: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2727: EXCEPTION
2728: WHEN okl_api.G_EXCEPTION_ERROR THEN
2729: x_return_status := okl_api.HANDLE_EXCEPTIONS
2730: (
2731: l_api_name,
2732: G_PKG_NAME,
2725: END IF;
2726: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
2727: EXCEPTION
2728: WHEN okl_api.G_EXCEPTION_ERROR THEN
2729: x_return_status := okl_api.HANDLE_EXCEPTIONS
2730: (
2731: l_api_name,
2732: G_PKG_NAME,
2733: 'okl_api.G_RET_STS_ERROR',
2729: x_return_status := okl_api.HANDLE_EXCEPTIONS
2730: (
2731: l_api_name,
2732: G_PKG_NAME,
2733: 'okl_api.G_RET_STS_ERROR',
2734: x_msg_count,
2735: x_msg_data,
2736: '_PVT'
2737: );
2734: x_msg_count,
2735: x_msg_data,
2736: '_PVT'
2737: );
2738: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2739: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2740: (
2741: l_api_name,
2742: G_PKG_NAME,
2735: x_msg_data,
2736: '_PVT'
2737: );
2738: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2739: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2740: (
2741: l_api_name,
2742: G_PKG_NAME,
2743: 'okl_api.G_RET_STS_UNEXP_ERROR',
2739: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2740: (
2741: l_api_name,
2742: G_PKG_NAME,
2743: 'okl_api.G_RET_STS_UNEXP_ERROR',
2744: x_msg_count,
2745: x_msg_data,
2746: '_PVT'
2747: );
2745: x_msg_data,
2746: '_PVT'
2747: );
2748: WHEN OTHERS THEN
2749: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2750: (
2751: l_api_name,
2752: G_PKG_NAME,
2753: 'OTHERS',
2760: -- PL/SQL TBL delete_row for:CUVV_TBL --
2761: ----------------------------------------
2762: PROCEDURE delete_row(
2763: p_api_version IN NUMBER,
2764: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
2765: x_return_status OUT NOCOPY VARCHAR2,
2766: x_msg_count OUT NOCOPY NUMBER,
2767: x_msg_data OUT NOCOPY VARCHAR2,
2768: p_cuvv_tbl IN cuvv_tbl_type) IS
2768: p_cuvv_tbl IN cuvv_tbl_type) IS
2769:
2770: l_api_version CONSTANT NUMBER := 1;
2771: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2772: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2773: i NUMBER := 0;
2774: BEGIN
2775: okl_api.init_msg_list(p_init_msg_list);
2776: -- Make sure PL/SQL table has records in it before passing
2771: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2772: l_return_status VARCHAR2(1) := okl_api.G_RET_STS_SUCCESS;
2773: i NUMBER := 0;
2774: BEGIN
2775: okl_api.init_msg_list(p_init_msg_list);
2776: -- Make sure PL/SQL table has records in it before passing
2777: IF (p_cuvv_tbl.COUNT > 0) THEN
2778: i := p_cuvv_tbl.FIRST;
2779: LOOP
2778: i := p_cuvv_tbl.FIRST;
2779: LOOP
2780: delete_row (
2781: p_api_version => p_api_version,
2782: p_init_msg_list => okl_api.G_FALSE,
2783: x_return_status => x_return_status,
2784: x_msg_count => x_msg_count,
2785: x_msg_data => x_msg_data,
2786: p_cuvv_rec => p_cuvv_tbl(i));
2788: i := p_cuvv_tbl.NEXT(i);
2789: END LOOP;
2790: END IF;
2791: EXCEPTION
2792: WHEN okl_api.G_EXCEPTION_ERROR THEN
2793: x_return_status := okl_api.HANDLE_EXCEPTIONS
2794: (
2795: l_api_name,
2796: G_PKG_NAME,
2789: END LOOP;
2790: END IF;
2791: EXCEPTION
2792: WHEN okl_api.G_EXCEPTION_ERROR THEN
2793: x_return_status := okl_api.HANDLE_EXCEPTIONS
2794: (
2795: l_api_name,
2796: G_PKG_NAME,
2797: 'okl_api.G_RET_STS_ERROR',
2793: x_return_status := okl_api.HANDLE_EXCEPTIONS
2794: (
2795: l_api_name,
2796: G_PKG_NAME,
2797: 'okl_api.G_RET_STS_ERROR',
2798: x_msg_count,
2799: x_msg_data,
2800: '_PVT'
2801: );
2798: x_msg_count,
2799: x_msg_data,
2800: '_PVT'
2801: );
2802: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2803: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2804: (
2805: l_api_name,
2806: G_PKG_NAME,
2799: x_msg_data,
2800: '_PVT'
2801: );
2802: WHEN okl_api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2803: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2804: (
2805: l_api_name,
2806: G_PKG_NAME,
2807: 'okl_api.G_RET_STS_UNEXP_ERROR',
2803: x_return_status :=okl_api.HANDLE_EXCEPTIONS
2804: (
2805: l_api_name,
2806: G_PKG_NAME,
2807: 'okl_api.G_RET_STS_UNEXP_ERROR',
2808: x_msg_count,
2809: x_msg_data,
2810: '_PVT'
2811: );
2809: x_msg_data,
2810: '_PVT'
2811: );
2812: WHEN OTHERS THEN
2813: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
2814: (
2815: l_api_name,
2816: G_PKG_NAME,
2817: 'OTHERS',