[Home] [Help]
1: PACKAGE BODY OKL_VIB_PVT AS
2: /* $Header: OKLSVIBB.pls 120.2 2006/11/13 07:38:09 dpsingh noship $ */
3: /************************ HAND-CODED *********************************/
4: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
5: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := 'OKL_API.G_CHILD_TABLE_TOKEN';
6: G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
7: G_MODEL_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ITEM';
8: G_ADDON_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ADD_ITEM';
9: G_FA_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FIXED_ASSET';
32: FROM okc_k_headers_b
33: WHERE id = p_dnz_chr_id);
34: BEGIN
35: -- initialize return status
36: x_return_status := OKL_API.G_RET_STS_SUCCESS;
37: -- data is required
38: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
39: (p_dnz_chr_id IS NULL) THEN
40: -- halt validation as it is a required field
34: BEGIN
35: -- initialize return status
36: x_return_status := OKL_API.G_RET_STS_SUCCESS;
37: -- data is required
38: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
39: (p_dnz_chr_id IS NULL) THEN
40: -- halt validation as it is a required field
41: RAISE G_EXCEPTION_STOP_VALIDATION;
42: END IF;
54: EXCEPTION
55: WHEN G_EXCEPTION_STOP_VALIDATION then
56: -- We are here since the field is required
57: -- store SQL error message on message stack
58: OKL_API.set_message(p_app_name => G_APP_NAME,
59: p_msg_name => G_REQUIRED_VALUE,
60: p_token1 => G_COL_NAME_TOKEN,
61: p_token1_value => 'dnz_chr_id');
62: -- Notify Error
59: p_msg_name => G_REQUIRED_VALUE,
60: p_token1 => G_COL_NAME_TOKEN,
61: p_token1_value => 'dnz_chr_id');
62: -- Notify Error
63: x_return_status := OKL_API.G_RET_STS_ERROR;
64: WHEN G_EXCEPTION_HALT_VALIDATION then
65: -- We are here b'cause we have no parent record
66: -- store SQL error message on message stack
67: OKL_API.set_message(p_app_name => G_APP_NAME,
63: x_return_status := OKL_API.G_RET_STS_ERROR;
64: WHEN G_EXCEPTION_HALT_VALIDATION then
65: -- We are here b'cause we have no parent record
66: -- store SQL error message on message stack
67: OKL_API.set_message(p_app_name => G_APP_NAME,
68: p_msg_name => G_NO_MATCHING_RECORD,
69: p_token1 => G_COL_NAME_TOKEN,
70: p_token1_value => 'dnz_chr_id');
71: -- If the cursor is open then it has to be closed
72: IF c_dnz_chr_id_validate%ISOPEN THEN
73: CLOSE c_dnz_chr_id_validate;
74: END IF;
75: -- notify caller of an error
76: x_return_status := OKL_API.G_RET_STS_ERROR;
77: WHEN OTHERS THEN
78: -- store SQL error message on message stack
79: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
80: p_msg_name => G_UNEXPECTED_ERROR,
75: -- notify caller of an error
76: x_return_status := OKL_API.G_RET_STS_ERROR;
77: WHEN OTHERS THEN
78: -- store SQL error message on message stack
79: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
80: p_msg_name => G_UNEXPECTED_ERROR,
81: p_token1 => G_SQLCODE_TOKEN,
82: p_token1_value => SQLCODE,
83: p_token2 => G_SQLERRM_TOKEN,
86: IF c_dnz_chr_id_validate%ISOPEN THEN
87: CLOSE c_dnz_chr_id_validate;
88: END IF;
89: -- notify caller of an error as UNEXPETED error
90: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
91: END validate_dnz_chr_id;
92: ---------------------------------------------------------------------------------
93: -- Start of Commnets
94: -- Badrinath Kuchibholta
134: AND t4.lse_id = t3.id
135: AND t4.scs_code = 'LEASE');
136: BEGIN
137: -- initialize return status
138: x_return_status := OKL_API.G_RET_STS_SUCCESS;
139: -- data is required
140: IF (p_id = OKL_API.G_MISS_NUM) OR
141: (p_id IS NULL) THEN
142: -- halt validation as it is a required field
136: BEGIN
137: -- initialize return status
138: x_return_status := OKL_API.G_RET_STS_SUCCESS;
139: -- data is required
140: IF (p_id = OKL_API.G_MISS_NUM) OR
141: (p_id IS NULL) THEN
142: -- halt validation as it is a required field
143: RAISE G_EXCEPTION_STOP_VALIDATION;
144: END IF;
172: EXCEPTION
173: WHEN G_EXCEPTION_STOP_VALIDATION then
174: -- We are here since the field is required
175: -- store SQL error message on message stack
176: OKL_API.set_message(p_app_name => G_APP_NAME,
177: p_msg_name => G_REQUIRED_VALUE,
178: p_token1 => G_COL_NAME_TOKEN,
179: p_token1_value => 'ib_cle_id');
180: -- Notify Error
177: p_msg_name => G_REQUIRED_VALUE,
178: p_token1 => G_COL_NAME_TOKEN,
179: p_token1_value => 'ib_cle_id');
180: -- Notify Error
181: x_return_status := OKL_API.G_RET_STS_ERROR;
182: WHEN G_EXCEPTION_HALT_VALIDATION then
183: -- We are here b'cause we have no parent record
184: -- store SQL error message on message stack
185: OKL_API.set_message(p_app_name => G_APP_NAME,
181: x_return_status := OKL_API.G_RET_STS_ERROR;
182: WHEN G_EXCEPTION_HALT_VALIDATION then
183: -- We are here b'cause we have no parent record
184: -- store SQL error message on message stack
185: OKL_API.set_message(p_app_name => G_APP_NAME,
186: p_msg_name => G_NO_MATCHING_RECORD,
187: p_token1 => G_COL_NAME_TOKEN,
188: p_token1_value => 'ib_cle_id');
189: -- If the cursor is open then it has to be closed
193: IF c_cle_id_validate1%ISOPEN THEN
194: CLOSE c_cle_id_validate1;
195: END IF;
196: -- notify caller of an error
197: x_return_status := OKL_API.G_RET_STS_ERROR;
198: WHEN OTHERS THEN
199: -- store SQL error message on message stack
200: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
201: p_msg_name => G_UNEXPECTED_ERROR,
196: -- notify caller of an error
197: x_return_status := OKL_API.G_RET_STS_ERROR;
198: WHEN OTHERS THEN
199: -- store SQL error message on message stack
200: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
201: p_msg_name => G_UNEXPECTED_ERROR,
202: p_token1 => G_SQLCODE_TOKEN,
203: p_token1_value => SQLCODE,
204: p_token2 => G_SQLERRM_TOKEN,
210: IF c_cle_id_validate1%ISOPEN THEN
211: CLOSE c_cle_id_validate1;
212: END IF;
213: -- notify caller of an error as UNEXPETED error
214: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
215: END validate_ib_cle_id;
216:
217: -- Added by dpsingh
218: ---------------------------------------------------------------------------
234: item_not_found_error EXCEPTION;
235: BEGIN
236:
237: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
238: IF (p_legal_entity_id = OKL_API.G_MISS_NUM OR
239: p_legal_entity_id IS NULL)
240: THEN
241: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
242: x_return_status := OKL_API.G_RET_STS_ERROR;
237: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
238: IF (p_legal_entity_id = OKL_API.G_MISS_NUM OR
239: p_legal_entity_id IS NULL)
240: THEN
241: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
242: x_return_status := OKL_API.G_RET_STS_ERROR;
243: ELSIF (p_legal_entity_id IS NOT NULL) AND
244: (p_legal_entity_id <> Okl_Api.G_MISS_NUM) THEN
245: l_exists := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id) ;
238: IF (p_legal_entity_id = OKL_API.G_MISS_NUM OR
239: p_legal_entity_id IS NULL)
240: THEN
241: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
242: x_return_status := OKL_API.G_RET_STS_ERROR;
243: ELSIF (p_legal_entity_id IS NOT NULL) AND
244: (p_legal_entity_id <> Okl_Api.G_MISS_NUM) THEN
245: l_exists := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id) ;
246: IF (l_exists<>1) THEN
240: THEN
241: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
242: x_return_status := OKL_API.G_RET_STS_ERROR;
243: ELSIF (p_legal_entity_id IS NOT NULL) AND
244: (p_legal_entity_id <> Okl_Api.G_MISS_NUM) THEN
245: l_exists := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id) ;
246: IF (l_exists<>1) THEN
247: Okl_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LEGAL_ENTITY_ID');
248: RAISE item_not_found_error;
243: ELSIF (p_legal_entity_id IS NOT NULL) AND
244: (p_legal_entity_id <> Okl_Api.G_MISS_NUM) THEN
245: l_exists := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id) ;
246: IF (l_exists<>1) THEN
247: Okl_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LEGAL_ENTITY_ID');
248: RAISE item_not_found_error;
249: END IF;
250: END IF;
251:
397: x_return_status OUT NOCOPY VARCHAR2
398: ) RETURN vibv_rec_type IS
399: l_vibv_rec vibv_rec_type;
400: l_row_notfound BOOLEAN := TRUE;
401: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
402: BEGIN
403: l_vibv_rec := get_rec(p_vibv_rec, l_row_notfound);
404: IF (l_row_notfound) THEN
405: x_return_status := OKL_API.G_RET_STS_ERROR;
401: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
402: BEGIN
403: l_vibv_rec := get_rec(p_vibv_rec, l_row_notfound);
404: IF (l_row_notfound) THEN
405: x_return_status := OKL_API.G_RET_STS_ERROR;
406: END IF;
407: x_return_status:= l_return_status;
408: RETURN(l_vibv_rec);
409: END get_rec;
514: x_return_status OUT NOCOPY VARCHAR2
515: ) RETURN vib_rec_type IS
516: l_vib_rec vib_rec_type;
517: l_row_notfound BOOLEAN := TRUE;
518: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
519: BEGIN
520: l_vib_rec := get_rec(p_vib_rec, l_row_notfound);
521: IF (l_row_notfound) THEN
522: x_return_status := OKL_API.G_RET_STS_ERROR;
518: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
519: BEGIN
520: l_vib_rec := get_rec(p_vib_rec, l_row_notfound);
521: IF (l_row_notfound) THEN
522: x_return_status := OKL_API.G_RET_STS_ERROR;
523: END IF;
524: x_return_status:= l_return_status;
525: RETURN(l_vib_rec);
526: END get_rec;
541: p_vibv_rec IN vibv_rec_type
542: ) RETURN vibv_rec_type IS
543: l_vibv_rec vibv_rec_type := p_vibv_rec;
544: BEGIN
545: IF (l_vibv_rec.id = OKL_API.G_MISS_NUM ) THEN
546: l_vibv_rec.id := NULL;
547: END IF;
548: IF (l_vibv_rec.major_version = OKL_API.G_MISS_NUM ) THEN
549: l_vibv_rec.major_version := NULL;
544: BEGIN
545: IF (l_vibv_rec.id = OKL_API.G_MISS_NUM ) THEN
546: l_vibv_rec.id := NULL;
547: END IF;
548: IF (l_vibv_rec.major_version = OKL_API.G_MISS_NUM ) THEN
549: l_vibv_rec.major_version := NULL;
550: END IF;
551: IF (l_vibv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
552: l_vibv_rec.object_version_number := NULL;
547: END IF;
548: IF (l_vibv_rec.major_version = OKL_API.G_MISS_NUM ) THEN
549: l_vibv_rec.major_version := NULL;
550: END IF;
551: IF (l_vibv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
552: l_vibv_rec.object_version_number := NULL;
553: END IF;
554: IF (l_vibv_rec.dnz_chr_id = OKL_API.G_MISS_NUM ) THEN
555: l_vibv_rec.dnz_chr_id := NULL;
550: END IF;
551: IF (l_vibv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
552: l_vibv_rec.object_version_number := NULL;
553: END IF;
554: IF (l_vibv_rec.dnz_chr_id = OKL_API.G_MISS_NUM ) THEN
555: l_vibv_rec.dnz_chr_id := NULL;
556: END IF;
557: IF (l_vibv_rec.ib_cle_id = OKL_API.G_MISS_NUM ) THEN
558: l_vibv_rec.ib_cle_id := NULL;
553: END IF;
554: IF (l_vibv_rec.dnz_chr_id = OKL_API.G_MISS_NUM ) THEN
555: l_vibv_rec.dnz_chr_id := NULL;
556: END IF;
557: IF (l_vibv_rec.ib_cle_id = OKL_API.G_MISS_NUM ) THEN
558: l_vibv_rec.ib_cle_id := NULL;
559: END IF;
560: IF (l_vibv_rec.name = OKL_API.G_MISS_NUM ) THEN
561: l_vibv_rec.name := NULL;
556: END IF;
557: IF (l_vibv_rec.ib_cle_id = OKL_API.G_MISS_NUM ) THEN
558: l_vibv_rec.ib_cle_id := NULL;
559: END IF;
560: IF (l_vibv_rec.name = OKL_API.G_MISS_NUM ) THEN
561: l_vibv_rec.name := NULL;
562: END IF;
563: IF (l_vibv_rec.description = OKL_API.G_MISS_CHAR ) THEN
564: l_vibv_rec.description := NULL;
559: END IF;
560: IF (l_vibv_rec.name = OKL_API.G_MISS_NUM ) THEN
561: l_vibv_rec.name := NULL;
562: END IF;
563: IF (l_vibv_rec.description = OKL_API.G_MISS_CHAR ) THEN
564: l_vibv_rec.description := NULL;
565: END IF;
566: IF (l_vibv_rec.inventory_item_id = OKL_API.G_MISS_NUM ) THEN
567: l_vibv_rec.inventory_item_id := NULL;
562: END IF;
563: IF (l_vibv_rec.description = OKL_API.G_MISS_CHAR ) THEN
564: l_vibv_rec.description := NULL;
565: END IF;
566: IF (l_vibv_rec.inventory_item_id = OKL_API.G_MISS_NUM ) THEN
567: l_vibv_rec.inventory_item_id := NULL;
568: END IF;
569: IF (l_vibv_rec.current_serial_number = OKL_API.G_MISS_CHAR ) THEN
570: l_vibv_rec.current_serial_number := NULL;
565: END IF;
566: IF (l_vibv_rec.inventory_item_id = OKL_API.G_MISS_NUM ) THEN
567: l_vibv_rec.inventory_item_id := NULL;
568: END IF;
569: IF (l_vibv_rec.current_serial_number = OKL_API.G_MISS_CHAR ) THEN
570: l_vibv_rec.current_serial_number := NULL;
571: END IF;
572: IF (l_vibv_rec.install_site_use_id = OKL_API.G_MISS_NUM ) THEN
573: l_vibv_rec.install_site_use_id := NULL;
568: END IF;
569: IF (l_vibv_rec.current_serial_number = OKL_API.G_MISS_CHAR ) THEN
570: l_vibv_rec.current_serial_number := NULL;
571: END IF;
572: IF (l_vibv_rec.install_site_use_id = OKL_API.G_MISS_NUM ) THEN
573: l_vibv_rec.install_site_use_id := NULL;
574: END IF;
575: IF (l_vibv_rec.quantity = OKL_API.G_MISS_NUM ) THEN
576: l_vibv_rec.quantity := NULL;
571: END IF;
572: IF (l_vibv_rec.install_site_use_id = OKL_API.G_MISS_NUM ) THEN
573: l_vibv_rec.install_site_use_id := NULL;
574: END IF;
575: IF (l_vibv_rec.quantity = OKL_API.G_MISS_NUM ) THEN
576: l_vibv_rec.quantity := NULL;
577: END IF;
578: IF (l_vibv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
579: l_vibv_rec.attribute_category := NULL;
574: END IF;
575: IF (l_vibv_rec.quantity = OKL_API.G_MISS_NUM ) THEN
576: l_vibv_rec.quantity := NULL;
577: END IF;
578: IF (l_vibv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
579: l_vibv_rec.attribute_category := NULL;
580: END IF;
581: IF (l_vibv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
582: l_vibv_rec.attribute1 := NULL;
577: END IF;
578: IF (l_vibv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
579: l_vibv_rec.attribute_category := NULL;
580: END IF;
581: IF (l_vibv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
582: l_vibv_rec.attribute1 := NULL;
583: END IF;
584: IF (l_vibv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
585: l_vibv_rec.attribute2 := NULL;
580: END IF;
581: IF (l_vibv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
582: l_vibv_rec.attribute1 := NULL;
583: END IF;
584: IF (l_vibv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
585: l_vibv_rec.attribute2 := NULL;
586: END IF;
587: IF (l_vibv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
588: l_vibv_rec.attribute3 := NULL;
583: END IF;
584: IF (l_vibv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
585: l_vibv_rec.attribute2 := NULL;
586: END IF;
587: IF (l_vibv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
588: l_vibv_rec.attribute3 := NULL;
589: END IF;
590: IF (l_vibv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
591: l_vibv_rec.attribute4 := NULL;
586: END IF;
587: IF (l_vibv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
588: l_vibv_rec.attribute3 := NULL;
589: END IF;
590: IF (l_vibv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
591: l_vibv_rec.attribute4 := NULL;
592: END IF;
593: IF (l_vibv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
594: l_vibv_rec.attribute5 := NULL;
589: END IF;
590: IF (l_vibv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
591: l_vibv_rec.attribute4 := NULL;
592: END IF;
593: IF (l_vibv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
594: l_vibv_rec.attribute5 := NULL;
595: END IF;
596: IF (l_vibv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
597: l_vibv_rec.attribute6 := NULL;
592: END IF;
593: IF (l_vibv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
594: l_vibv_rec.attribute5 := NULL;
595: END IF;
596: IF (l_vibv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
597: l_vibv_rec.attribute6 := NULL;
598: END IF;
599: IF (l_vibv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
600: l_vibv_rec.attribute7 := NULL;
595: END IF;
596: IF (l_vibv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
597: l_vibv_rec.attribute6 := NULL;
598: END IF;
599: IF (l_vibv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
600: l_vibv_rec.attribute7 := NULL;
601: END IF;
602: IF (l_vibv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
603: l_vibv_rec.attribute8 := NULL;
598: END IF;
599: IF (l_vibv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
600: l_vibv_rec.attribute7 := NULL;
601: END IF;
602: IF (l_vibv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
603: l_vibv_rec.attribute8 := NULL;
604: END IF;
605: IF (l_vibv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
606: l_vibv_rec.attribute9 := NULL;
601: END IF;
602: IF (l_vibv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
603: l_vibv_rec.attribute8 := NULL;
604: END IF;
605: IF (l_vibv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
606: l_vibv_rec.attribute9 := NULL;
607: END IF;
608: IF (l_vibv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
609: l_vibv_rec.attribute10 := NULL;
604: END IF;
605: IF (l_vibv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
606: l_vibv_rec.attribute9 := NULL;
607: END IF;
608: IF (l_vibv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
609: l_vibv_rec.attribute10 := NULL;
610: END IF;
611: IF (l_vibv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
612: l_vibv_rec.attribute11 := NULL;
607: END IF;
608: IF (l_vibv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
609: l_vibv_rec.attribute10 := NULL;
610: END IF;
611: IF (l_vibv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
612: l_vibv_rec.attribute11 := NULL;
613: END IF;
614: IF (l_vibv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
615: l_vibv_rec.attribute12 := NULL;
610: END IF;
611: IF (l_vibv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
612: l_vibv_rec.attribute11 := NULL;
613: END IF;
614: IF (l_vibv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
615: l_vibv_rec.attribute12 := NULL;
616: END IF;
617: IF (l_vibv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
618: l_vibv_rec.attribute13 := NULL;
613: END IF;
614: IF (l_vibv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
615: l_vibv_rec.attribute12 := NULL;
616: END IF;
617: IF (l_vibv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
618: l_vibv_rec.attribute13 := NULL;
619: END IF;
620: IF (l_vibv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
621: l_vibv_rec.attribute14 := NULL;
616: END IF;
617: IF (l_vibv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
618: l_vibv_rec.attribute13 := NULL;
619: END IF;
620: IF (l_vibv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
621: l_vibv_rec.attribute14 := NULL;
622: END IF;
623: IF (l_vibv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
624: l_vibv_rec.attribute15 := NULL;
619: END IF;
620: IF (l_vibv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
621: l_vibv_rec.attribute14 := NULL;
622: END IF;
623: IF (l_vibv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
624: l_vibv_rec.attribute15 := NULL;
625: END IF;
626: IF (l_vibv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
627: l_vibv_rec.created_by := NULL;
622: END IF;
623: IF (l_vibv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
624: l_vibv_rec.attribute15 := NULL;
625: END IF;
626: IF (l_vibv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
627: l_vibv_rec.created_by := NULL;
628: END IF;
629: IF (l_vibv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
630: l_vibv_rec.creation_date := NULL;
625: END IF;
626: IF (l_vibv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
627: l_vibv_rec.created_by := NULL;
628: END IF;
629: IF (l_vibv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
630: l_vibv_rec.creation_date := NULL;
631: END IF;
632: IF (l_vibv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
633: l_vibv_rec.last_updated_by := NULL;
628: END IF;
629: IF (l_vibv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
630: l_vibv_rec.creation_date := NULL;
631: END IF;
632: IF (l_vibv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
633: l_vibv_rec.last_updated_by := NULL;
634: END IF;
635: IF (l_vibv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
636: l_vibv_rec.last_update_date := NULL;
631: END IF;
632: IF (l_vibv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
633: l_vibv_rec.last_updated_by := NULL;
634: END IF;
635: IF (l_vibv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
636: l_vibv_rec.last_update_date := NULL;
637: END IF;
638: IF (l_vibv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
639: l_vibv_rec.last_update_login := NULL;
634: END IF;
635: IF (l_vibv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
636: l_vibv_rec.last_update_date := NULL;
637: END IF;
638: IF (l_vibv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
639: l_vibv_rec.last_update_login := NULL;
640: END IF;
641: --Added by dpsingh for LE uptake
642: IF (l_vibv_rec.legal_entity_id = OKL_API.G_MISS_NUM ) THEN
638: IF (l_vibv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
639: l_vibv_rec.last_update_login := NULL;
640: END IF;
641: --Added by dpsingh for LE uptake
642: IF (l_vibv_rec.legal_entity_id = OKL_API.G_MISS_NUM ) THEN
643: l_vibv_rec.legal_entity_id := NULL;
644: END IF;
645: RETURN(l_vibv_rec);
646: END null_out_defaults;
652: ------------------------------------------------
653: FUNCTION Validate_Attributes (
654: p_vibv_rec IN vibv_rec_type
655: ) RETURN VARCHAR2 IS
656: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
657: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
658: BEGIN
659: -- Call OKC_UTIL.ADD_VIEW to prepare the PL/SQL table to hold columns of view
660: OKC_UTIL.ADD_VIEW('OKL_CONTRACT_IB_HV', x_return_status);
653: FUNCTION Validate_Attributes (
654: p_vibv_rec IN vibv_rec_type
655: ) RETURN VARCHAR2 IS
656: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
657: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
658: BEGIN
659: -- Call OKC_UTIL.ADD_VIEW to prepare the PL/SQL table to hold columns of view
660: OKC_UTIL.ADD_VIEW('OKL_CONTRACT_IB_HV', x_return_status);
661: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
657: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
658: BEGIN
659: -- Call OKC_UTIL.ADD_VIEW to prepare the PL/SQL table to hold columns of view
660: OKC_UTIL.ADD_VIEW('OKL_CONTRACT_IB_HV', x_return_status);
661: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
662: l_return_status := x_return_status;
663: END IF;
664: IF p_vibv_rec.id = OKL_API.G_MISS_NUM OR
665: p_vibv_rec.id IS NULL THEN
660: OKC_UTIL.ADD_VIEW('OKL_CONTRACT_IB_HV', x_return_status);
661: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
662: l_return_status := x_return_status;
663: END IF;
664: IF p_vibv_rec.id = OKL_API.G_MISS_NUM OR
665: p_vibv_rec.id IS NULL THEN
666: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
667: x_return_status := OKL_API.G_RET_STS_ERROR;
668: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
662: l_return_status := x_return_status;
663: END IF;
664: IF p_vibv_rec.id = OKL_API.G_MISS_NUM OR
665: p_vibv_rec.id IS NULL THEN
666: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
667: x_return_status := OKL_API.G_RET_STS_ERROR;
668: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
669: l_return_status := x_return_status;
670: END IF;
663: END IF;
664: IF p_vibv_rec.id = OKL_API.G_MISS_NUM OR
665: p_vibv_rec.id IS NULL THEN
666: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
667: x_return_status := OKL_API.G_RET_STS_ERROR;
668: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
669: l_return_status := x_return_status;
670: END IF;
671: ELSIF p_vibv_rec.major_version = OKL_API.G_MISS_NUM OR
664: IF p_vibv_rec.id = OKL_API.G_MISS_NUM OR
665: p_vibv_rec.id IS NULL THEN
666: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
667: x_return_status := OKL_API.G_RET_STS_ERROR;
668: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
669: l_return_status := x_return_status;
670: END IF;
671: ELSIF p_vibv_rec.major_version = OKL_API.G_MISS_NUM OR
672: p_vibv_rec.major_version IS NULL THEN
667: x_return_status := OKL_API.G_RET_STS_ERROR;
668: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
669: l_return_status := x_return_status;
670: END IF;
671: ELSIF p_vibv_rec.major_version = OKL_API.G_MISS_NUM OR
672: p_vibv_rec.major_version IS NULL THEN
673: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'major_version');
674: x_return_status := OKL_API.G_RET_STS_ERROR;
675: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
669: l_return_status := x_return_status;
670: END IF;
671: ELSIF p_vibv_rec.major_version = OKL_API.G_MISS_NUM OR
672: p_vibv_rec.major_version IS NULL THEN
673: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'major_version');
674: x_return_status := OKL_API.G_RET_STS_ERROR;
675: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
676: l_return_status := x_return_status;
677: END IF;
670: END IF;
671: ELSIF p_vibv_rec.major_version = OKL_API.G_MISS_NUM OR
672: p_vibv_rec.major_version IS NULL THEN
673: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'major_version');
674: x_return_status := OKL_API.G_RET_STS_ERROR;
675: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
676: l_return_status := x_return_status;
677: END IF;
678: ELSIF p_vibv_rec.object_version_number = OKL_API.G_MISS_NUM OR
671: ELSIF p_vibv_rec.major_version = OKL_API.G_MISS_NUM OR
672: p_vibv_rec.major_version IS NULL THEN
673: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'major_version');
674: x_return_status := OKL_API.G_RET_STS_ERROR;
675: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
676: l_return_status := x_return_status;
677: END IF;
678: ELSIF p_vibv_rec.object_version_number = OKL_API.G_MISS_NUM OR
679: p_vibv_rec.object_version_number IS NULL THEN
674: x_return_status := OKL_API.G_RET_STS_ERROR;
675: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
676: l_return_status := x_return_status;
677: END IF;
678: ELSIF p_vibv_rec.object_version_number = OKL_API.G_MISS_NUM OR
679: p_vibv_rec.object_version_number IS NULL THEN
680: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
681: x_return_status := OKL_API.G_RET_STS_ERROR;
682: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
676: l_return_status := x_return_status;
677: END IF;
678: ELSIF p_vibv_rec.object_version_number = OKL_API.G_MISS_NUM OR
679: p_vibv_rec.object_version_number IS NULL THEN
680: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
681: x_return_status := OKL_API.G_RET_STS_ERROR;
682: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
683: l_return_status := x_return_status;
684: END IF;
677: END IF;
678: ELSIF p_vibv_rec.object_version_number = OKL_API.G_MISS_NUM OR
679: p_vibv_rec.object_version_number IS NULL THEN
680: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
681: x_return_status := OKL_API.G_RET_STS_ERROR;
682: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
683: l_return_status := x_return_status;
684: END IF;
685: END IF;
678: ELSIF p_vibv_rec.object_version_number = OKL_API.G_MISS_NUM OR
679: p_vibv_rec.object_version_number IS NULL THEN
680: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
681: x_return_status := OKL_API.G_RET_STS_ERROR;
682: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
683: l_return_status := x_return_status;
684: END IF;
685: END IF;
686: --*******************************Hand Code ***********************************--
684: END IF;
685: END IF;
686: --*******************************Hand Code ***********************************--
687: validate_dnz_chr_id(x_return_status, p_vibv_rec.dnz_chr_id);
688: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
689: l_return_status := x_return_status;
690: END IF;
691: validate_ib_cle_id(x_return_status, p_vibv_rec.ib_cle_id);
692: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
688: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
689: l_return_status := x_return_status;
690: END IF;
691: validate_ib_cle_id(x_return_status, p_vibv_rec.ib_cle_id);
692: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
693: l_return_status := x_return_status;
694: END IF;
695:
696: --Added by dpsingh
696: --Added by dpsingh
697:
698: -- Validate_LE_Id
699: Validate_LE_Id(p_vibv_rec.legal_entity_id,x_return_status);
700: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
701: l_return_status := x_return_status;
702: END IF;
703: --*******************************Hand Code ***********************************--
704: RETURN(l_return_status);
703: --*******************************Hand Code ***********************************--
704: RETURN(l_return_status);
705: EXCEPTION
706: WHEN OTHERS THEN
707: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
708: ,p_msg_name => G_UNEXPECTED_ERROR
709: ,p_token1 => G_SQLCODE_TOKEN
710: ,p_token1_value => SQLCODE
711: ,p_token2 => G_SQLERRM_TOKEN
709: ,p_token1 => G_SQLCODE_TOKEN
710: ,p_token1_value => SQLCODE
711: ,p_token2 => G_SQLERRM_TOKEN
712: ,p_token2_value => SQLERRM);
713: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
714: RETURN(l_return_status);
715: END Validate_Attributes;
716: ---------------------------------------------------------------------------
717: -- PROCEDURE Validate_Record
720: -- Validate Record for:OKL_CONTRACT_IB_HV --
721: --------------------------------------------
722: FUNCTION Validate_Record (
723: p_vibv_rec IN vibv_rec_type) RETURN VARCHAR2 IS
724: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
725: BEGIN
726: RETURN (l_return_status);
727: END Validate_Record;
728: ---------------------------------------------------------------------------
818: -- validate_row for:OKL_CONTRACT_IB_HV --
819: -----------------------------------------
820: PROCEDURE validate_row(
821: p_api_version IN NUMBER,
822: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
823: x_return_status OUT NOCOPY VARCHAR2,
824: x_msg_count OUT NOCOPY NUMBER,
825: x_msg_data OUT NOCOPY VARCHAR2,
826: p_vibv_rec IN vibv_rec_type) IS
826: p_vibv_rec IN vibv_rec_type) IS
827:
828: l_api_version CONSTANT NUMBER := 1;
829: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
830: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
831: l_vibv_rec vibv_rec_type := p_vibv_rec;
832: l_vib_rec vib_rec_type;
833: BEGIN
834: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
830: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
831: l_vibv_rec vibv_rec_type := p_vibv_rec;
832: l_vib_rec vib_rec_type;
833: BEGIN
834: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
835: G_PKG_NAME,
836: p_init_msg_list,
837: l_api_version,
838: p_api_version,
837: l_api_version,
838: p_api_version,
839: '_PVT',
840: x_return_status);
841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
844: RAISE OKL_API.G_EXCEPTION_ERROR;
845: END IF;
838: p_api_version,
839: '_PVT',
840: x_return_status);
841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
844: RAISE OKL_API.G_EXCEPTION_ERROR;
845: END IF;
846: --- Validate all non-missing attributes (Item Level Validation)
839: '_PVT',
840: x_return_status);
841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
844: RAISE OKL_API.G_EXCEPTION_ERROR;
845: END IF;
846: --- Validate all non-missing attributes (Item Level Validation)
847: l_return_status := Validate_Attributes(l_vibv_rec);
840: x_return_status);
841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
844: RAISE OKL_API.G_EXCEPTION_ERROR;
845: END IF;
846: --- Validate all non-missing attributes (Item Level Validation)
847: l_return_status := Validate_Attributes(l_vibv_rec);
848: --- If any errors happen abort API
845: END IF;
846: --- Validate all non-missing attributes (Item Level Validation)
847: l_return_status := Validate_Attributes(l_vibv_rec);
848: --- If any errors happen abort API
849: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
852: RAISE OKL_API.G_EXCEPTION_ERROR;
853: END IF;
846: --- Validate all non-missing attributes (Item Level Validation)
847: l_return_status := Validate_Attributes(l_vibv_rec);
848: --- If any errors happen abort API
849: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
852: RAISE OKL_API.G_EXCEPTION_ERROR;
853: END IF;
854: l_return_status := Validate_Record(l_vibv_rec);
847: l_return_status := Validate_Attributes(l_vibv_rec);
848: --- If any errors happen abort API
849: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
852: RAISE OKL_API.G_EXCEPTION_ERROR;
853: END IF;
854: l_return_status := Validate_Record(l_vibv_rec);
855: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
848: --- If any errors happen abort API
849: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
852: RAISE OKL_API.G_EXCEPTION_ERROR;
853: END IF;
854: l_return_status := Validate_Record(l_vibv_rec);
855: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
852: RAISE OKL_API.G_EXCEPTION_ERROR;
853: END IF;
854: l_return_status := Validate_Record(l_vibv_rec);
855: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
857: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
858: RAISE OKL_API.G_EXCEPTION_ERROR;
859: END IF;
852: RAISE OKL_API.G_EXCEPTION_ERROR;
853: END IF;
854: l_return_status := Validate_Record(l_vibv_rec);
855: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
857: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
858: RAISE OKL_API.G_EXCEPTION_ERROR;
859: END IF;
860: x_return_status := l_return_status;
853: END IF;
854: l_return_status := Validate_Record(l_vibv_rec);
855: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
857: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
858: RAISE OKL_API.G_EXCEPTION_ERROR;
859: END IF;
860: x_return_status := l_return_status;
861: EXCEPTION
854: l_return_status := Validate_Record(l_vibv_rec);
855: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
857: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
858: RAISE OKL_API.G_EXCEPTION_ERROR;
859: END IF;
860: x_return_status := l_return_status;
861: EXCEPTION
862: WHEN OKL_API.G_EXCEPTION_ERROR THEN
858: RAISE OKL_API.G_EXCEPTION_ERROR;
859: END IF;
860: x_return_status := l_return_status;
861: EXCEPTION
862: WHEN OKL_API.G_EXCEPTION_ERROR THEN
863: x_return_status := OKL_API.HANDLE_EXCEPTIONS
864: (
865: l_api_name,
866: G_PKG_NAME,
859: END IF;
860: x_return_status := l_return_status;
861: EXCEPTION
862: WHEN OKL_API.G_EXCEPTION_ERROR THEN
863: x_return_status := OKL_API.HANDLE_EXCEPTIONS
864: (
865: l_api_name,
866: G_PKG_NAME,
867: 'OKL_API.G_RET_STS_ERROR',
863: x_return_status := OKL_API.HANDLE_EXCEPTIONS
864: (
865: l_api_name,
866: G_PKG_NAME,
867: 'OKL_API.G_RET_STS_ERROR',
868: x_msg_count,
869: x_msg_data,
870: '_PVT'
871: );
868: x_msg_count,
869: x_msg_data,
870: '_PVT'
871: );
872: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
873: x_return_status := OKL_API.HANDLE_EXCEPTIONS
874: (
875: l_api_name,
876: G_PKG_NAME,
869: x_msg_data,
870: '_PVT'
871: );
872: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
873: x_return_status := OKL_API.HANDLE_EXCEPTIONS
874: (
875: l_api_name,
876: G_PKG_NAME,
877: 'OKL_API.G_RET_STS_UNEXP_ERROR',
873: x_return_status := OKL_API.HANDLE_EXCEPTIONS
874: (
875: l_api_name,
876: G_PKG_NAME,
877: 'OKL_API.G_RET_STS_UNEXP_ERROR',
878: x_msg_count,
879: x_msg_data,
880: '_PVT'
881: );
879: x_msg_data,
880: '_PVT'
881: );
882: WHEN OTHERS THEN
883: x_return_status := OKL_API.HANDLE_EXCEPTIONS
884: (
885: l_api_name,
886: G_PKG_NAME,
887: 'OTHERS',
894: -- PL/SQL TBL validate_row for:OKL_CONTRACT_IB_HV --
895: ----------------------------------------------------
896: PROCEDURE validate_row(
897: p_api_version IN NUMBER,
898: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
899: x_return_status OUT NOCOPY VARCHAR2,
900: x_msg_count OUT NOCOPY NUMBER,
901: x_msg_data OUT NOCOPY VARCHAR2,
902: p_vibv_tbl IN vibv_tbl_type) IS
904: l_api_version CONSTANT NUMBER := 1;
905: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
906: i NUMBER := 0;
907: BEGIN
908: OKL_API.init_msg_list(p_init_msg_list);
909: -- Make sure PL/SQL table has records in it before passing
910: IF (p_vibv_tbl.COUNT > 0) THEN
911: i := p_vibv_tbl.FIRST;
912: LOOP
920: EXIT WHEN (i = p_vibv_tbl.LAST);
921: i := p_vibv_tbl.NEXT(i);
922: END LOOP;
923: END IF;
924: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
925: EXCEPTION
926: WHEN OKL_API.G_EXCEPTION_ERROR THEN
927: x_return_status := OKL_API.HANDLE_EXCEPTIONS
928: (
922: END LOOP;
923: END IF;
924: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
925: EXCEPTION
926: WHEN OKL_API.G_EXCEPTION_ERROR THEN
927: x_return_status := OKL_API.HANDLE_EXCEPTIONS
928: (
929: l_api_name,
930: G_PKG_NAME,
923: END IF;
924: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
925: EXCEPTION
926: WHEN OKL_API.G_EXCEPTION_ERROR THEN
927: x_return_status := OKL_API.HANDLE_EXCEPTIONS
928: (
929: l_api_name,
930: G_PKG_NAME,
931: 'OKL_API.G_RET_STS_ERROR',
927: x_return_status := OKL_API.HANDLE_EXCEPTIONS
928: (
929: l_api_name,
930: G_PKG_NAME,
931: 'OKL_API.G_RET_STS_ERROR',
932: x_msg_count,
933: x_msg_data,
934: '_PVT'
935: );
932: x_msg_count,
933: x_msg_data,
934: '_PVT'
935: );
936: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
937: x_return_status := OKL_API.HANDLE_EXCEPTIONS
938: (
939: l_api_name,
940: G_PKG_NAME,
933: x_msg_data,
934: '_PVT'
935: );
936: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
937: x_return_status := OKL_API.HANDLE_EXCEPTIONS
938: (
939: l_api_name,
940: G_PKG_NAME,
941: 'OKL_API.G_RET_STS_UNEXP_ERROR',
937: x_return_status := OKL_API.HANDLE_EXCEPTIONS
938: (
939: l_api_name,
940: G_PKG_NAME,
941: 'OKL_API.G_RET_STS_UNEXP_ERROR',
942: x_msg_count,
943: x_msg_data,
944: '_PVT'
945: );
943: x_msg_data,
944: '_PVT'
945: );
946: WHEN OTHERS THEN
947: x_return_status := OKL_API.HANDLE_EXCEPTIONS
948: (
949: l_api_name,
950: G_PKG_NAME,
951: 'OTHERS',
960: ---------------------------------------
961: -- insert_row for:OKL_CONTRACT_IB_HV --
962: ---------------------------------------
963: PROCEDURE insert_row(
964: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
965: x_return_status OUT NOCOPY VARCHAR2,
966: x_msg_count OUT NOCOPY NUMBER,
967: x_msg_data OUT NOCOPY VARCHAR2,
968: p_vib_rec IN vib_rec_type,
969: x_vib_rec OUT NOCOPY vib_rec_type) IS
970:
971: l_api_version CONSTANT NUMBER := 1;
972: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
973: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
974: l_vib_rec vib_rec_type := p_vib_rec;
975: l_def_vib_rec vib_rec_type;
976: -------------------------------------------
977: -- Set_Attributes for:OKL_CONTRACT_IB_HV --
979: FUNCTION Set_Attributes (
980: p_vib_rec IN vib_rec_type,
981: x_vib_rec OUT NOCOPY vib_rec_type
982: ) RETURN VARCHAR2 IS
983: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
984: BEGIN
985: x_vib_rec := p_vib_rec;
986: RETURN(l_return_status);
987: END Set_Attributes;
985: x_vib_rec := p_vib_rec;
986: RETURN(l_return_status);
987: END Set_Attributes;
988: BEGIN
989: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
990: p_init_msg_list,
991: '_PVT',
992: x_return_status);
993: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
989: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
990: p_init_msg_list,
991: '_PVT',
992: x_return_status);
993: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
990: p_init_msg_list,
991: '_PVT',
992: x_return_status);
993: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
998: --- Setting item atributes
991: '_PVT',
992: x_return_status);
993: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
998: --- Setting item atributes
999: l_return_status := Set_Attributes(
992: x_return_status);
993: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
998: --- Setting item atributes
999: l_return_status := Set_Attributes(
1000: p_vib_rec, -- IN
999: l_return_status := Set_Attributes(
1000: p_vib_rec, -- IN
1001: l_vib_rec); -- OUT
1002: --- If any errors happen abort API
1003: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1005: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1006: RAISE OKL_API.G_EXCEPTION_ERROR;
1007: END IF;
1000: p_vib_rec, -- IN
1001: l_vib_rec); -- OUT
1002: --- If any errors happen abort API
1003: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1005: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1006: RAISE OKL_API.G_EXCEPTION_ERROR;
1007: END IF;
1008: INSERT INTO OKL_CONTRACT_IB_H(
1001: l_vib_rec); -- OUT
1002: --- If any errors happen abort API
1003: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1005: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1006: RAISE OKL_API.G_EXCEPTION_ERROR;
1007: END IF;
1008: INSERT INTO OKL_CONTRACT_IB_H(
1009: id,
1002: --- If any errors happen abort API
1003: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1005: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1006: RAISE OKL_API.G_EXCEPTION_ERROR;
1007: END IF;
1008: INSERT INTO OKL_CONTRACT_IB_H(
1009: id,
1010: major_version,
1078: l_vib_rec.legal_entity_id);
1079: -- Set OUT values
1080: x_vib_rec := l_vib_rec;
1081: x_return_status := l_return_status;
1082: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1083: EXCEPTION
1084: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1085: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1086: (
1080: x_vib_rec := l_vib_rec;
1081: x_return_status := l_return_status;
1082: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1083: EXCEPTION
1084: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1085: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1086: (
1087: l_api_name,
1088: G_PKG_NAME,
1081: x_return_status := l_return_status;
1082: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1083: EXCEPTION
1084: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1085: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1086: (
1087: l_api_name,
1088: G_PKG_NAME,
1089: 'OKL_API.G_RET_STS_ERROR',
1085: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1086: (
1087: l_api_name,
1088: G_PKG_NAME,
1089: 'OKL_API.G_RET_STS_ERROR',
1090: x_msg_count,
1091: x_msg_data,
1092: '_PVT'
1093: );
1090: x_msg_count,
1091: x_msg_data,
1092: '_PVT'
1093: );
1094: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1095: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1096: (
1097: l_api_name,
1098: G_PKG_NAME,
1091: x_msg_data,
1092: '_PVT'
1093: );
1094: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1095: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1096: (
1097: l_api_name,
1098: G_PKG_NAME,
1099: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1095: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1096: (
1097: l_api_name,
1098: G_PKG_NAME,
1099: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1100: x_msg_count,
1101: x_msg_data,
1102: '_PVT'
1103: );
1101: x_msg_data,
1102: '_PVT'
1103: );
1104: WHEN OTHERS THEN
1105: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1106: (
1107: l_api_name,
1108: G_PKG_NAME,
1109: 'OTHERS',
1116: -- insert_row for :OKL_CONTRACT_IB_HV --
1117: ---------------------------------------------
1118: PROCEDURE insert_row(
1119: p_api_version IN NUMBER,
1120: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1121: x_return_status OUT NOCOPY VARCHAR2,
1122: x_msg_count OUT NOCOPY NUMBER,
1123: x_msg_data OUT NOCOPY VARCHAR2,
1124: p_vibv_rec IN vibv_rec_type,
1125: x_vibv_rec OUT NOCOPY vibv_rec_type) IS
1126:
1127: l_api_version CONSTANT NUMBER := 1;
1128: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1129: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1130: l_vibv_rec vibv_rec_type := p_vibv_rec;
1131: l_def_vibv_rec vibv_rec_type;
1132: l_vib_rec vib_rec_type;
1133: lx_vib_rec vib_rec_type;
1152: FUNCTION Set_Attributes (
1153: p_vibv_rec IN vibv_rec_type,
1154: x_vibv_rec OUT NOCOPY vibv_rec_type
1155: ) RETURN VARCHAR2 IS
1156: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1157: BEGIN
1158: x_vibv_rec := p_vibv_rec;
1159: x_vibv_rec.OBJECT_VERSION_NUMBER := 1;
1160: RETURN(l_return_status);
1159: x_vibv_rec.OBJECT_VERSION_NUMBER := 1;
1160: RETURN(l_return_status);
1161: END Set_Attributes;
1162: BEGIN
1163: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1164: G_PKG_NAME,
1165: p_init_msg_list,
1166: l_api_version,
1167: p_api_version,
1166: l_api_version,
1167: p_api_version,
1168: '_PVT',
1169: x_return_status);
1170: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1167: p_api_version,
1168: '_PVT',
1169: x_return_status);
1170: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1175: l_vibv_rec := null_out_defaults(p_vibv_rec);
1168: '_PVT',
1169: x_return_status);
1170: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1175: l_vibv_rec := null_out_defaults(p_vibv_rec);
1176: -- Set primary key value
1169: x_return_status);
1170: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1173: RAISE OKL_API.G_EXCEPTION_ERROR;
1174: END IF;
1175: l_vibv_rec := null_out_defaults(p_vibv_rec);
1176: -- Set primary key value
1177: l_vibv_rec.ID := get_seq_id;
1179: l_return_Status := Set_Attributes(
1180: l_vibv_rec, -- IN
1181: l_def_vibv_rec); -- OUT
1182: --- If any errors happen abort API
1183: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_ERROR;
1187: END IF;
1180: l_vibv_rec, -- IN
1181: l_def_vibv_rec); -- OUT
1182: --- If any errors happen abort API
1183: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_ERROR;
1187: END IF;
1188: l_def_vibv_rec := fill_who_columns(l_def_vibv_rec);
1181: l_def_vibv_rec); -- OUT
1182: --- If any errors happen abort API
1183: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_ERROR;
1187: END IF;
1188: l_def_vibv_rec := fill_who_columns(l_def_vibv_rec);
1189: --- Validate all non-missing attributes (Item Level Validation)
1182: --- If any errors happen abort API
1183: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1186: RAISE OKL_API.G_EXCEPTION_ERROR;
1187: END IF;
1188: l_def_vibv_rec := fill_who_columns(l_def_vibv_rec);
1189: --- Validate all non-missing attributes (Item Level Validation)
1190: l_return_status := Validate_Attributes(l_def_vibv_rec);
1188: l_def_vibv_rec := fill_who_columns(l_def_vibv_rec);
1189: --- Validate all non-missing attributes (Item Level Validation)
1190: l_return_status := Validate_Attributes(l_def_vibv_rec);
1191: --- If any errors happen abort API
1192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1195: RAISE OKL_API.G_EXCEPTION_ERROR;
1196: END IF;
1189: --- Validate all non-missing attributes (Item Level Validation)
1190: l_return_status := Validate_Attributes(l_def_vibv_rec);
1191: --- If any errors happen abort API
1192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1195: RAISE OKL_API.G_EXCEPTION_ERROR;
1196: END IF;
1197: l_return_status := Validate_Record(l_def_vibv_rec);
1190: l_return_status := Validate_Attributes(l_def_vibv_rec);
1191: --- If any errors happen abort API
1192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1195: RAISE OKL_API.G_EXCEPTION_ERROR;
1196: END IF;
1197: l_return_status := Validate_Record(l_def_vibv_rec);
1198: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1191: --- If any errors happen abort API
1192: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1195: RAISE OKL_API.G_EXCEPTION_ERROR;
1196: END IF;
1197: l_return_status := Validate_Record(l_def_vibv_rec);
1198: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1194: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1195: RAISE OKL_API.G_EXCEPTION_ERROR;
1196: END IF;
1197: l_return_status := Validate_Record(l_def_vibv_rec);
1198: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1195: RAISE OKL_API.G_EXCEPTION_ERROR;
1196: END IF;
1197: l_return_status := Validate_Record(l_def_vibv_rec);
1198: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203: -----------------------------------------
1196: END IF;
1197: l_return_status := Validate_Record(l_def_vibv_rec);
1198: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203: -----------------------------------------
1204: -- Move VIEW record to "Child" records --
1197: l_return_status := Validate_Record(l_def_vibv_rec);
1198: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203: -----------------------------------------
1204: -- Move VIEW record to "Child" records --
1205: -----------------------------------------
1214: x_msg_data,
1215: l_vib_rec,
1216: lx_vib_rec
1217: );
1218: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1215: l_vib_rec,
1216: lx_vib_rec
1217: );
1218: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: migrate(lx_vib_rec, l_def_vibv_rec);
1216: lx_vib_rec
1217: );
1218: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: migrate(lx_vib_rec, l_def_vibv_rec);
1224: -- Set OUT values
1217: );
1218: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: migrate(lx_vib_rec, l_def_vibv_rec);
1224: -- Set OUT values
1225: x_vibv_rec := l_def_vibv_rec;
1223: migrate(lx_vib_rec, l_def_vibv_rec);
1224: -- Set OUT values
1225: x_vibv_rec := l_def_vibv_rec;
1226: x_return_status := l_return_status;
1227: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1228: EXCEPTION
1229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1231: (
1225: x_vibv_rec := l_def_vibv_rec;
1226: x_return_status := l_return_status;
1227: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1228: EXCEPTION
1229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1231: (
1232: l_api_name,
1233: G_PKG_NAME,
1226: x_return_status := l_return_status;
1227: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1228: EXCEPTION
1229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1231: (
1232: l_api_name,
1233: G_PKG_NAME,
1234: 'OKL_API.G_RET_STS_ERROR',
1230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1231: (
1232: l_api_name,
1233: G_PKG_NAME,
1234: 'OKL_API.G_RET_STS_ERROR',
1235: x_msg_count,
1236: x_msg_data,
1237: '_PVT'
1238: );
1235: x_msg_count,
1236: x_msg_data,
1237: '_PVT'
1238: );
1239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1240: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1241: (
1242: l_api_name,
1243: G_PKG_NAME,
1236: x_msg_data,
1237: '_PVT'
1238: );
1239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1240: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1241: (
1242: l_api_name,
1243: G_PKG_NAME,
1244: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1240: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1241: (
1242: l_api_name,
1243: G_PKG_NAME,
1244: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1245: x_msg_count,
1246: x_msg_data,
1247: '_PVT'
1248: );
1246: x_msg_data,
1247: '_PVT'
1248: );
1249: WHEN OTHERS THEN
1250: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1251: (
1252: l_api_name,
1253: G_PKG_NAME,
1254: 'OTHERS',
1261: -- PL/SQL TBL insert_row for:vibV_TBL --
1262: ----------------------------------------
1263: PROCEDURE insert_row(
1264: p_api_version IN NUMBER,
1265: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1266: x_return_status OUT NOCOPY VARCHAR2,
1267: x_msg_count OUT NOCOPY NUMBER,
1268: x_msg_data OUT NOCOPY VARCHAR2,
1269: p_vibv_tbl IN vibv_tbl_type,
1272: l_api_version CONSTANT NUMBER := 1;
1273: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1274: i NUMBER := 0;
1275: BEGIN
1276: OKL_API.init_msg_list(p_init_msg_list);
1277: -- Make sure PL/SQL table has records in it before passing
1278: IF (p_vibv_tbl.COUNT > 0) THEN
1279: i := p_vibv_tbl.FIRST;
1280: LOOP
1289: EXIT WHEN (i = p_vibv_tbl.LAST);
1290: i := p_vibv_tbl.NEXT(i);
1291: END LOOP;
1292: END IF;
1293: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1294: EXCEPTION
1295: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1297: (
1291: END LOOP;
1292: END IF;
1293: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1294: EXCEPTION
1295: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1297: (
1298: l_api_name,
1299: G_PKG_NAME,
1292: END IF;
1293: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1294: EXCEPTION
1295: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1297: (
1298: l_api_name,
1299: G_PKG_NAME,
1300: 'OKL_API.G_RET_STS_ERROR',
1296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1297: (
1298: l_api_name,
1299: G_PKG_NAME,
1300: 'OKL_API.G_RET_STS_ERROR',
1301: x_msg_count,
1302: x_msg_data,
1303: '_PVT'
1304: );
1301: x_msg_count,
1302: x_msg_data,
1303: '_PVT'
1304: );
1305: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1306: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1307: (
1308: l_api_name,
1309: G_PKG_NAME,
1302: x_msg_data,
1303: '_PVT'
1304: );
1305: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1306: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1307: (
1308: l_api_name,
1309: G_PKG_NAME,
1310: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1306: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1307: (
1308: l_api_name,
1309: G_PKG_NAME,
1310: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1311: x_msg_count,
1312: x_msg_data,
1313: '_PVT'
1314: );
1312: x_msg_data,
1313: '_PVT'
1314: );
1315: WHEN OTHERS THEN
1316: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1317: (
1318: l_api_name,
1319: G_PKG_NAME,
1320: 'OTHERS',
1329: -------------------------------------
1330: -- lock_row for:OKL_CONTRACT_IB_HV --
1331: -------------------------------------
1332: PROCEDURE lock_row(
1333: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1334: x_return_status OUT NOCOPY VARCHAR2,
1335: x_msg_count OUT NOCOPY NUMBER,
1336: x_msg_data OUT NOCOPY VARCHAR2,
1337: p_vib_rec IN vib_rec_type) IS
1349: FROM OKL_CONTRACT_IB_H
1350: WHERE ID = p_vib_rec.id;
1351: l_api_version CONSTANT NUMBER := 1;
1352: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1353: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1354: l_object_version_number OKL_CONTRACT_IB_H.OBJECT_VERSION_NUMBER%TYPE;
1355: lc_object_version_number OKL_CONTRACT_IB_H.OBJECT_VERSION_NUMBER%TYPE;
1356: l_row_notfound BOOLEAN := FALSE;
1357: lc_row_notfound BOOLEAN := FALSE;
1355: lc_object_version_number OKL_CONTRACT_IB_H.OBJECT_VERSION_NUMBER%TYPE;
1356: l_row_notfound BOOLEAN := FALSE;
1357: lc_row_notfound BOOLEAN := FALSE;
1358: BEGIN
1359: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1360: p_init_msg_list,
1361: '_PVT',
1362: x_return_status);
1363: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1359: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1360: p_init_msg_list,
1361: '_PVT',
1362: x_return_status);
1363: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1365: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1366: RAISE OKL_API.G_EXCEPTION_ERROR;
1367: END IF;
1360: p_init_msg_list,
1361: '_PVT',
1362: x_return_status);
1363: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1365: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1366: RAISE OKL_API.G_EXCEPTION_ERROR;
1367: END IF;
1368: BEGIN
1361: '_PVT',
1362: x_return_status);
1363: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1365: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1366: RAISE OKL_API.G_EXCEPTION_ERROR;
1367: END IF;
1368: BEGIN
1369: OPEN lock_csr(p_vib_rec);
1362: x_return_status);
1363: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1365: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1366: RAISE OKL_API.G_EXCEPTION_ERROR;
1367: END IF;
1368: BEGIN
1369: OPEN lock_csr(p_vib_rec);
1370: FETCH lock_csr INTO l_object_version_number;
1374: WHEN E_Resource_Busy THEN
1375: IF (lock_csr%ISOPEN) THEN
1376: CLOSE lock_csr;
1377: END IF;
1378: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1379: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1380: END;
1381: IF ( l_row_notfound ) THEN
1382: OPEN lchk_csr(p_vib_rec);
1384: lc_row_notfound := lchk_csr%NOTFOUND;
1385: CLOSE lchk_csr;
1386: END IF;
1387: IF (lc_row_notfound) THEN
1388: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1389: RAISE OKL_API.G_EXCEPTION_ERROR;
1390: ELSIF lc_object_version_number > p_vib_rec.object_version_number THEN
1391: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1392: RAISE OKL_API.G_EXCEPTION_ERROR;
1385: CLOSE lchk_csr;
1386: END IF;
1387: IF (lc_row_notfound) THEN
1388: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1389: RAISE OKL_API.G_EXCEPTION_ERROR;
1390: ELSIF lc_object_version_number > p_vib_rec.object_version_number THEN
1391: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1392: RAISE OKL_API.G_EXCEPTION_ERROR;
1393: ELSIF lc_object_version_number <> p_vib_rec.object_version_number THEN
1387: IF (lc_row_notfound) THEN
1388: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1389: RAISE OKL_API.G_EXCEPTION_ERROR;
1390: ELSIF lc_object_version_number > p_vib_rec.object_version_number THEN
1391: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1392: RAISE OKL_API.G_EXCEPTION_ERROR;
1393: ELSIF lc_object_version_number <> p_vib_rec.object_version_number THEN
1394: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1388: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1389: RAISE OKL_API.G_EXCEPTION_ERROR;
1390: ELSIF lc_object_version_number > p_vib_rec.object_version_number THEN
1391: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1392: RAISE OKL_API.G_EXCEPTION_ERROR;
1393: ELSIF lc_object_version_number <> p_vib_rec.object_version_number THEN
1394: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: ELSIF lc_object_version_number = -1 THEN
1390: ELSIF lc_object_version_number > p_vib_rec.object_version_number THEN
1391: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1392: RAISE OKL_API.G_EXCEPTION_ERROR;
1393: ELSIF lc_object_version_number <> p_vib_rec.object_version_number THEN
1394: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: ELSIF lc_object_version_number = -1 THEN
1397: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1398: RAISE OKL_API.G_EXCEPTION_ERROR;
1391: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1392: RAISE OKL_API.G_EXCEPTION_ERROR;
1393: ELSIF lc_object_version_number <> p_vib_rec.object_version_number THEN
1394: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: ELSIF lc_object_version_number = -1 THEN
1397: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1398: RAISE OKL_API.G_EXCEPTION_ERROR;
1399: END IF;
1393: ELSIF lc_object_version_number <> p_vib_rec.object_version_number THEN
1394: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: ELSIF lc_object_version_number = -1 THEN
1397: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1398: RAISE OKL_API.G_EXCEPTION_ERROR;
1399: END IF;
1400: x_return_status := l_return_status;
1401: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1394: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: ELSIF lc_object_version_number = -1 THEN
1397: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1398: RAISE OKL_API.G_EXCEPTION_ERROR;
1399: END IF;
1400: x_return_status := l_return_status;
1401: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1402: EXCEPTION
1397: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1398: RAISE OKL_API.G_EXCEPTION_ERROR;
1399: END IF;
1400: x_return_status := l_return_status;
1401: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1402: EXCEPTION
1403: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1404: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1405: (
1399: END IF;
1400: x_return_status := l_return_status;
1401: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1402: EXCEPTION
1403: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1404: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1405: (
1406: l_api_name,
1407: G_PKG_NAME,
1400: x_return_status := l_return_status;
1401: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1402: EXCEPTION
1403: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1404: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1405: (
1406: l_api_name,
1407: G_PKG_NAME,
1408: 'OKL_API.G_RET_STS_ERROR',
1404: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1405: (
1406: l_api_name,
1407: G_PKG_NAME,
1408: 'OKL_API.G_RET_STS_ERROR',
1409: x_msg_count,
1410: x_msg_data,
1411: '_PVT'
1412: );
1409: x_msg_count,
1410: x_msg_data,
1411: '_PVT'
1412: );
1413: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1414: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1415: (
1416: l_api_name,
1417: G_PKG_NAME,
1410: x_msg_data,
1411: '_PVT'
1412: );
1413: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1414: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1415: (
1416: l_api_name,
1417: G_PKG_NAME,
1418: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1414: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1415: (
1416: l_api_name,
1417: G_PKG_NAME,
1418: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1419: x_msg_count,
1420: x_msg_data,
1421: '_PVT'
1422: );
1420: x_msg_data,
1421: '_PVT'
1422: );
1423: WHEN OTHERS THEN
1424: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1425: (
1426: l_api_name,
1427: G_PKG_NAME,
1428: 'OTHERS',
1435: -- lock_row for: OKL_CONTRACT_IB_HV --
1436: --------------------------------------
1437: PROCEDURE lock_row(
1438: p_api_version IN NUMBER,
1439: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1440: x_return_status OUT NOCOPY VARCHAR2,
1441: x_msg_count OUT NOCOPY NUMBER,
1442: x_msg_data OUT NOCOPY VARCHAR2,
1443: p_vibv_rec IN vibv_rec_type) IS
1443: p_vibv_rec IN vibv_rec_type) IS
1444:
1445: l_api_version CONSTANT NUMBER := 1;
1446: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1447: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1448: l_vibv_rec vibv_rec_type;
1449: l_vib_rec vib_rec_type;
1450: BEGIN
1451: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1447: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1448: l_vibv_rec vibv_rec_type;
1449: l_vib_rec vib_rec_type;
1450: BEGIN
1451: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1452: G_PKG_NAME,
1453: p_init_msg_list,
1454: l_api_version,
1455: p_api_version,
1454: l_api_version,
1455: p_api_version,
1456: '_PVT',
1457: x_return_status);
1458: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1461: RAISE OKL_API.G_EXCEPTION_ERROR;
1462: END IF;
1455: p_api_version,
1456: '_PVT',
1457: x_return_status);
1458: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1461: RAISE OKL_API.G_EXCEPTION_ERROR;
1462: END IF;
1463: -----------------------------------------
1456: '_PVT',
1457: x_return_status);
1458: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1461: RAISE OKL_API.G_EXCEPTION_ERROR;
1462: END IF;
1463: -----------------------------------------
1464: -- Move VIEW record to "Child" records --
1457: x_return_status);
1458: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1461: RAISE OKL_API.G_EXCEPTION_ERROR;
1462: END IF;
1463: -----------------------------------------
1464: -- Move VIEW record to "Child" records --
1465: -----------------------------------------
1472: l_return_status,
1473: x_msg_count,
1474: x_msg_data,
1475: l_vib_rec);
1476: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1478: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1479: RAISE OKL_API.G_EXCEPTION_ERROR;
1480: END IF;
1473: x_msg_count,
1474: x_msg_data,
1475: l_vib_rec);
1476: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1478: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1479: RAISE OKL_API.G_EXCEPTION_ERROR;
1480: END IF;
1481: x_return_status := l_return_status;
1474: x_msg_data,
1475: l_vib_rec);
1476: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1478: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1479: RAISE OKL_API.G_EXCEPTION_ERROR;
1480: END IF;
1481: x_return_status := l_return_status;
1482: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1475: l_vib_rec);
1476: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1478: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1479: RAISE OKL_API.G_EXCEPTION_ERROR;
1480: END IF;
1481: x_return_status := l_return_status;
1482: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1483: EXCEPTION
1478: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1479: RAISE OKL_API.G_EXCEPTION_ERROR;
1480: END IF;
1481: x_return_status := l_return_status;
1482: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1483: EXCEPTION
1484: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1485: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1486: (
1480: END IF;
1481: x_return_status := l_return_status;
1482: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1483: EXCEPTION
1484: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1485: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1486: (
1487: l_api_name,
1488: G_PKG_NAME,
1481: x_return_status := l_return_status;
1482: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1483: EXCEPTION
1484: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1485: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1486: (
1487: l_api_name,
1488: G_PKG_NAME,
1489: 'OKL_API.G_RET_STS_ERROR',
1485: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1486: (
1487: l_api_name,
1488: G_PKG_NAME,
1489: 'OKL_API.G_RET_STS_ERROR',
1490: x_msg_count,
1491: x_msg_data,
1492: '_PVT'
1493: );
1490: x_msg_count,
1491: x_msg_data,
1492: '_PVT'
1493: );
1494: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1495: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1496: (
1497: l_api_name,
1498: G_PKG_NAME,
1491: x_msg_data,
1492: '_PVT'
1493: );
1494: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1495: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1496: (
1497: l_api_name,
1498: G_PKG_NAME,
1499: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1495: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1496: (
1497: l_api_name,
1498: G_PKG_NAME,
1499: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1500: x_msg_count,
1501: x_msg_data,
1502: '_PVT'
1503: );
1501: x_msg_data,
1502: '_PVT'
1503: );
1504: WHEN OTHERS THEN
1505: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1506: (
1507: l_api_name,
1508: G_PKG_NAME,
1509: 'OTHERS',
1516: -- PL/SQL TBL lock_row for:VIBV_TBL --
1517: --------------------------------------
1518: PROCEDURE lock_row(
1519: p_api_version IN NUMBER,
1520: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1521: x_return_status OUT NOCOPY VARCHAR2,
1522: x_msg_count OUT NOCOPY NUMBER,
1523: x_msg_data OUT NOCOPY VARCHAR2,
1524: p_vibv_tbl IN vibv_tbl_type) IS
1526: l_api_version CONSTANT NUMBER := 1;
1527: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
1528: i NUMBER := 0;
1529: BEGIN
1530: OKL_API.init_msg_list(p_init_msg_list);
1531: -- Make sure PL/SQL table has recrods in it before passing
1532: IF (p_vibv_tbl.COUNT > 0) THEN
1533: i := p_vibv_tbl.FIRST;
1534: LOOP
1542: EXIT WHEN (i = p_vibv_tbl.LAST);
1543: i := p_vibv_tbl.NEXT(i);
1544: END LOOP;
1545: END IF;
1546: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1547: EXCEPTION
1548: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1549: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1550: (
1544: END LOOP;
1545: END IF;
1546: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1547: EXCEPTION
1548: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1549: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1550: (
1551: l_api_name,
1552: G_PKG_NAME,
1545: END IF;
1546: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1547: EXCEPTION
1548: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1549: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1550: (
1551: l_api_name,
1552: G_PKG_NAME,
1553: 'OKL_API.G_RET_STS_ERROR',
1549: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1550: (
1551: l_api_name,
1552: G_PKG_NAME,
1553: 'OKL_API.G_RET_STS_ERROR',
1554: x_msg_count,
1555: x_msg_data,
1556: '_PVT'
1557: );
1554: x_msg_count,
1555: x_msg_data,
1556: '_PVT'
1557: );
1558: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1559: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1560: (
1561: l_api_name,
1562: G_PKG_NAME,
1555: x_msg_data,
1556: '_PVT'
1557: );
1558: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1559: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1560: (
1561: l_api_name,
1562: G_PKG_NAME,
1563: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1559: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1560: (
1561: l_api_name,
1562: G_PKG_NAME,
1563: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1564: x_msg_count,
1565: x_msg_data,
1566: '_PVT'
1567: );
1565: x_msg_data,
1566: '_PVT'
1567: );
1568: WHEN OTHERS THEN
1569: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1570: (
1571: l_api_name,
1572: G_PKG_NAME,
1573: 'OTHERS',
1582: ---------------------------------------
1583: -- update_row for:OKL_CONTRACT_IB_HV --
1584: ---------------------------------------
1585: PROCEDURE update_row(
1586: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1587: x_return_status OUT NOCOPY VARCHAR2,
1588: x_msg_count OUT NOCOPY NUMBER,
1589: x_msg_data OUT NOCOPY VARCHAR2,
1590: p_vib_rec IN vib_rec_type,
1591: x_vib_rec OUT NOCOPY vib_rec_type) IS
1592:
1593: l_api_version CONSTANT NUMBER := 1;
1594: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
1595: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1596: l_vib_rec vib_rec_type := p_vib_rec;
1597: l_def_vib_rec vib_rec_type;
1598: l_row_notfound BOOLEAN := TRUE;
1599: ----------------------------------
1604: x_vib_rec OUT NOCOPY vib_rec_type
1605: ) RETURN VARCHAR2 IS
1606: l_vib_rec vib_rec_type;
1607: l_row_notfound BOOLEAN := TRUE;
1608: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1609: BEGIN
1610: x_vib_rec := p_vib_rec;
1611: -- Get current database values
1612: l_vib_rec := get_rec(p_vib_rec, l_return_status);
1609: BEGIN
1610: x_vib_rec := p_vib_rec;
1611: -- Get current database values
1612: l_vib_rec := get_rec(p_vib_rec, l_return_status);
1613: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1614: IF (x_vib_rec.id = OKL_API.G_MISS_NUM)
1615: THEN
1616: x_vib_rec.id := l_vib_rec.id;
1617: END IF;
1610: x_vib_rec := p_vib_rec;
1611: -- Get current database values
1612: l_vib_rec := get_rec(p_vib_rec, l_return_status);
1613: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1614: IF (x_vib_rec.id = OKL_API.G_MISS_NUM)
1615: THEN
1616: x_vib_rec.id := l_vib_rec.id;
1617: END IF;
1618: IF (x_vib_rec.major_version = OKL_API.G_MISS_NUM)
1614: IF (x_vib_rec.id = OKL_API.G_MISS_NUM)
1615: THEN
1616: x_vib_rec.id := l_vib_rec.id;
1617: END IF;
1618: IF (x_vib_rec.major_version = OKL_API.G_MISS_NUM)
1619: THEN
1620: x_vib_rec.major_version := l_vib_rec.major_version;
1621: END IF;
1622: IF (x_vib_rec.object_version_number = OKL_API.G_MISS_NUM)
1618: IF (x_vib_rec.major_version = OKL_API.G_MISS_NUM)
1619: THEN
1620: x_vib_rec.major_version := l_vib_rec.major_version;
1621: END IF;
1622: IF (x_vib_rec.object_version_number = OKL_API.G_MISS_NUM)
1623: THEN
1624: x_vib_rec.object_version_number := l_vib_rec.object_version_number;
1625: END IF;
1626: IF (x_vib_rec.dnz_chr_id = OKL_API.G_MISS_NUM)
1622: IF (x_vib_rec.object_version_number = OKL_API.G_MISS_NUM)
1623: THEN
1624: x_vib_rec.object_version_number := l_vib_rec.object_version_number;
1625: END IF;
1626: IF (x_vib_rec.dnz_chr_id = OKL_API.G_MISS_NUM)
1627: THEN
1628: x_vib_rec.dnz_chr_id := l_vib_rec.dnz_chr_id;
1629: END IF;
1630: IF (x_vib_rec.ib_cle_id = OKL_API.G_MISS_NUM)
1626: IF (x_vib_rec.dnz_chr_id = OKL_API.G_MISS_NUM)
1627: THEN
1628: x_vib_rec.dnz_chr_id := l_vib_rec.dnz_chr_id;
1629: END IF;
1630: IF (x_vib_rec.ib_cle_id = OKL_API.G_MISS_NUM)
1631: THEN
1632: x_vib_rec.ib_cle_id := l_vib_rec.ib_cle_id;
1633: END IF;
1634: IF (x_vib_rec.name = OKL_API.G_MISS_NUM)
1630: IF (x_vib_rec.ib_cle_id = OKL_API.G_MISS_NUM)
1631: THEN
1632: x_vib_rec.ib_cle_id := l_vib_rec.ib_cle_id;
1633: END IF;
1634: IF (x_vib_rec.name = OKL_API.G_MISS_NUM)
1635: THEN
1636: x_vib_rec.name := l_vib_rec.name;
1637: END IF;
1638: IF (x_vib_rec.description = OKL_API.G_MISS_CHAR)
1634: IF (x_vib_rec.name = OKL_API.G_MISS_NUM)
1635: THEN
1636: x_vib_rec.name := l_vib_rec.name;
1637: END IF;
1638: IF (x_vib_rec.description = OKL_API.G_MISS_CHAR)
1639: THEN
1640: x_vib_rec.description := l_vib_rec.description;
1641: END IF;
1642: IF (x_vib_rec.inventory_item_id = OKL_API.G_MISS_NUM)
1638: IF (x_vib_rec.description = OKL_API.G_MISS_CHAR)
1639: THEN
1640: x_vib_rec.description := l_vib_rec.description;
1641: END IF;
1642: IF (x_vib_rec.inventory_item_id = OKL_API.G_MISS_NUM)
1643: THEN
1644: x_vib_rec.inventory_item_id := l_vib_rec.inventory_item_id;
1645: END IF;
1646: IF (x_vib_rec.current_serial_number = OKL_API.G_MISS_CHAR)
1642: IF (x_vib_rec.inventory_item_id = OKL_API.G_MISS_NUM)
1643: THEN
1644: x_vib_rec.inventory_item_id := l_vib_rec.inventory_item_id;
1645: END IF;
1646: IF (x_vib_rec.current_serial_number = OKL_API.G_MISS_CHAR)
1647: THEN
1648: x_vib_rec.current_serial_number := l_vib_rec.current_serial_number;
1649: END IF;
1650: IF (x_vib_rec.install_site_use_id = OKL_API.G_MISS_NUM)
1646: IF (x_vib_rec.current_serial_number = OKL_API.G_MISS_CHAR)
1647: THEN
1648: x_vib_rec.current_serial_number := l_vib_rec.current_serial_number;
1649: END IF;
1650: IF (x_vib_rec.install_site_use_id = OKL_API.G_MISS_NUM)
1651: THEN
1652: x_vib_rec.install_site_use_id := l_vib_rec.install_site_use_id;
1653: END IF;
1654: IF (x_vib_rec.quantity = OKL_API.G_MISS_NUM)
1650: IF (x_vib_rec.install_site_use_id = OKL_API.G_MISS_NUM)
1651: THEN
1652: x_vib_rec.install_site_use_id := l_vib_rec.install_site_use_id;
1653: END IF;
1654: IF (x_vib_rec.quantity = OKL_API.G_MISS_NUM)
1655: THEN
1656: x_vib_rec.quantity := l_vib_rec.quantity;
1657: END IF;
1658: IF (x_vib_rec.attribute_category = OKL_API.G_MISS_CHAR)
1654: IF (x_vib_rec.quantity = OKL_API.G_MISS_NUM)
1655: THEN
1656: x_vib_rec.quantity := l_vib_rec.quantity;
1657: END IF;
1658: IF (x_vib_rec.attribute_category = OKL_API.G_MISS_CHAR)
1659: THEN
1660: x_vib_rec.attribute_category := l_vib_rec.attribute_category;
1661: END IF;
1662: IF (x_vib_rec.attribute1 = OKL_API.G_MISS_CHAR)
1658: IF (x_vib_rec.attribute_category = OKL_API.G_MISS_CHAR)
1659: THEN
1660: x_vib_rec.attribute_category := l_vib_rec.attribute_category;
1661: END IF;
1662: IF (x_vib_rec.attribute1 = OKL_API.G_MISS_CHAR)
1663: THEN
1664: x_vib_rec.attribute1 := l_vib_rec.attribute1;
1665: END IF;
1666: IF (x_vib_rec.attribute2 = OKL_API.G_MISS_CHAR)
1662: IF (x_vib_rec.attribute1 = OKL_API.G_MISS_CHAR)
1663: THEN
1664: x_vib_rec.attribute1 := l_vib_rec.attribute1;
1665: END IF;
1666: IF (x_vib_rec.attribute2 = OKL_API.G_MISS_CHAR)
1667: THEN
1668: x_vib_rec.attribute2 := l_vib_rec.attribute2;
1669: END IF;
1670: IF (x_vib_rec.attribute3 = OKL_API.G_MISS_CHAR)
1666: IF (x_vib_rec.attribute2 = OKL_API.G_MISS_CHAR)
1667: THEN
1668: x_vib_rec.attribute2 := l_vib_rec.attribute2;
1669: END IF;
1670: IF (x_vib_rec.attribute3 = OKL_API.G_MISS_CHAR)
1671: THEN
1672: x_vib_rec.attribute3 := l_vib_rec.attribute3;
1673: END IF;
1674: IF (x_vib_rec.attribute4 = OKL_API.G_MISS_CHAR)
1670: IF (x_vib_rec.attribute3 = OKL_API.G_MISS_CHAR)
1671: THEN
1672: x_vib_rec.attribute3 := l_vib_rec.attribute3;
1673: END IF;
1674: IF (x_vib_rec.attribute4 = OKL_API.G_MISS_CHAR)
1675: THEN
1676: x_vib_rec.attribute4 := l_vib_rec.attribute4;
1677: END IF;
1678: IF (x_vib_rec.attribute5 = OKL_API.G_MISS_CHAR)
1674: IF (x_vib_rec.attribute4 = OKL_API.G_MISS_CHAR)
1675: THEN
1676: x_vib_rec.attribute4 := l_vib_rec.attribute4;
1677: END IF;
1678: IF (x_vib_rec.attribute5 = OKL_API.G_MISS_CHAR)
1679: THEN
1680: x_vib_rec.attribute5 := l_vib_rec.attribute5;
1681: END IF;
1682: IF (x_vib_rec.attribute6 = OKL_API.G_MISS_CHAR)
1678: IF (x_vib_rec.attribute5 = OKL_API.G_MISS_CHAR)
1679: THEN
1680: x_vib_rec.attribute5 := l_vib_rec.attribute5;
1681: END IF;
1682: IF (x_vib_rec.attribute6 = OKL_API.G_MISS_CHAR)
1683: THEN
1684: x_vib_rec.attribute6 := l_vib_rec.attribute6;
1685: END IF;
1686: IF (x_vib_rec.attribute7 = OKL_API.G_MISS_CHAR)
1682: IF (x_vib_rec.attribute6 = OKL_API.G_MISS_CHAR)
1683: THEN
1684: x_vib_rec.attribute6 := l_vib_rec.attribute6;
1685: END IF;
1686: IF (x_vib_rec.attribute7 = OKL_API.G_MISS_CHAR)
1687: THEN
1688: x_vib_rec.attribute7 := l_vib_rec.attribute7;
1689: END IF;
1690: IF (x_vib_rec.attribute8 = OKL_API.G_MISS_CHAR)
1686: IF (x_vib_rec.attribute7 = OKL_API.G_MISS_CHAR)
1687: THEN
1688: x_vib_rec.attribute7 := l_vib_rec.attribute7;
1689: END IF;
1690: IF (x_vib_rec.attribute8 = OKL_API.G_MISS_CHAR)
1691: THEN
1692: x_vib_rec.attribute8 := l_vib_rec.attribute8;
1693: END IF;
1694: IF (x_vib_rec.attribute9 = OKL_API.G_MISS_CHAR)
1690: IF (x_vib_rec.attribute8 = OKL_API.G_MISS_CHAR)
1691: THEN
1692: x_vib_rec.attribute8 := l_vib_rec.attribute8;
1693: END IF;
1694: IF (x_vib_rec.attribute9 = OKL_API.G_MISS_CHAR)
1695: THEN
1696: x_vib_rec.attribute9 := l_vib_rec.attribute9;
1697: END IF;
1698: IF (x_vib_rec.attribute10 = OKL_API.G_MISS_CHAR)
1694: IF (x_vib_rec.attribute9 = OKL_API.G_MISS_CHAR)
1695: THEN
1696: x_vib_rec.attribute9 := l_vib_rec.attribute9;
1697: END IF;
1698: IF (x_vib_rec.attribute10 = OKL_API.G_MISS_CHAR)
1699: THEN
1700: x_vib_rec.attribute10 := l_vib_rec.attribute10;
1701: END IF;
1702: IF (x_vib_rec.attribute11 = OKL_API.G_MISS_CHAR)
1698: IF (x_vib_rec.attribute10 = OKL_API.G_MISS_CHAR)
1699: THEN
1700: x_vib_rec.attribute10 := l_vib_rec.attribute10;
1701: END IF;
1702: IF (x_vib_rec.attribute11 = OKL_API.G_MISS_CHAR)
1703: THEN
1704: x_vib_rec.attribute11 := l_vib_rec.attribute11;
1705: END IF;
1706: IF (x_vib_rec.attribute12 = OKL_API.G_MISS_CHAR)
1702: IF (x_vib_rec.attribute11 = OKL_API.G_MISS_CHAR)
1703: THEN
1704: x_vib_rec.attribute11 := l_vib_rec.attribute11;
1705: END IF;
1706: IF (x_vib_rec.attribute12 = OKL_API.G_MISS_CHAR)
1707: THEN
1708: x_vib_rec.attribute12 := l_vib_rec.attribute12;
1709: END IF;
1710: IF (x_vib_rec.attribute13 = OKL_API.G_MISS_CHAR)
1706: IF (x_vib_rec.attribute12 = OKL_API.G_MISS_CHAR)
1707: THEN
1708: x_vib_rec.attribute12 := l_vib_rec.attribute12;
1709: END IF;
1710: IF (x_vib_rec.attribute13 = OKL_API.G_MISS_CHAR)
1711: THEN
1712: x_vib_rec.attribute13 := l_vib_rec.attribute13;
1713: END IF;
1714: IF (x_vib_rec.attribute14 = OKL_API.G_MISS_CHAR)
1710: IF (x_vib_rec.attribute13 = OKL_API.G_MISS_CHAR)
1711: THEN
1712: x_vib_rec.attribute13 := l_vib_rec.attribute13;
1713: END IF;
1714: IF (x_vib_rec.attribute14 = OKL_API.G_MISS_CHAR)
1715: THEN
1716: x_vib_rec.attribute14 := l_vib_rec.attribute14;
1717: END IF;
1718: IF (x_vib_rec.attribute15 = OKL_API.G_MISS_CHAR)
1714: IF (x_vib_rec.attribute14 = OKL_API.G_MISS_CHAR)
1715: THEN
1716: x_vib_rec.attribute14 := l_vib_rec.attribute14;
1717: END IF;
1718: IF (x_vib_rec.attribute15 = OKL_API.G_MISS_CHAR)
1719: THEN
1720: x_vib_rec.attribute15 := l_vib_rec.attribute15;
1721: END IF;
1722: IF (x_vib_rec.created_by = OKL_API.G_MISS_NUM)
1718: IF (x_vib_rec.attribute15 = OKL_API.G_MISS_CHAR)
1719: THEN
1720: x_vib_rec.attribute15 := l_vib_rec.attribute15;
1721: END IF;
1722: IF (x_vib_rec.created_by = OKL_API.G_MISS_NUM)
1723: THEN
1724: x_vib_rec.created_by := l_vib_rec.created_by;
1725: END IF;
1726: IF (x_vib_rec.creation_date = OKL_API.G_MISS_DATE)
1722: IF (x_vib_rec.created_by = OKL_API.G_MISS_NUM)
1723: THEN
1724: x_vib_rec.created_by := l_vib_rec.created_by;
1725: END IF;
1726: IF (x_vib_rec.creation_date = OKL_API.G_MISS_DATE)
1727: THEN
1728: x_vib_rec.creation_date := l_vib_rec.creation_date;
1729: END IF;
1730: IF (x_vib_rec.last_updated_by = OKL_API.G_MISS_NUM)
1726: IF (x_vib_rec.creation_date = OKL_API.G_MISS_DATE)
1727: THEN
1728: x_vib_rec.creation_date := l_vib_rec.creation_date;
1729: END IF;
1730: IF (x_vib_rec.last_updated_by = OKL_API.G_MISS_NUM)
1731: THEN
1732: x_vib_rec.last_updated_by := l_vib_rec.last_updated_by;
1733: END IF;
1734: IF (x_vib_rec.last_update_date = OKL_API.G_MISS_DATE)
1730: IF (x_vib_rec.last_updated_by = OKL_API.G_MISS_NUM)
1731: THEN
1732: x_vib_rec.last_updated_by := l_vib_rec.last_updated_by;
1733: END IF;
1734: IF (x_vib_rec.last_update_date = OKL_API.G_MISS_DATE)
1735: THEN
1736: x_vib_rec.last_update_date := l_vib_rec.last_update_date;
1737: END IF;
1738: IF (x_vib_rec.last_update_login = OKL_API.G_MISS_NUM)
1734: IF (x_vib_rec.last_update_date = OKL_API.G_MISS_DATE)
1735: THEN
1736: x_vib_rec.last_update_date := l_vib_rec.last_update_date;
1737: END IF;
1738: IF (x_vib_rec.last_update_login = OKL_API.G_MISS_NUM)
1739: THEN
1740: x_vib_rec.last_update_login := l_vib_rec.last_update_login;
1741: END IF;
1742: --Added by dpsingh for LE uptake
1739: THEN
1740: x_vib_rec.last_update_login := l_vib_rec.last_update_login;
1741: END IF;
1742: --Added by dpsingh for LE uptake
1743: IF (x_vib_rec.legal_entity_id = OKL_API.G_MISS_NUM)
1744: THEN
1745: x_vib_rec.legal_entity_id := l_vib_rec.legal_entity_id;
1746: END IF;
1747: END IF;
1753: FUNCTION Set_Attributes (
1754: p_vib_rec IN vib_rec_type,
1755: x_vib_rec OUT NOCOPY vib_rec_type
1756: ) RETURN VARCHAR2 IS
1757: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1758: BEGIN
1759: x_vib_rec := p_vib_rec;
1760: x_vib_rec.OBJECT_VERSION_NUMBER := p_vib_rec.OBJECT_VERSION_NUMBER + 1;
1761: RETURN(l_return_status);
1760: x_vib_rec.OBJECT_VERSION_NUMBER := p_vib_rec.OBJECT_VERSION_NUMBER + 1;
1761: RETURN(l_return_status);
1762: END Set_Attributes;
1763: BEGIN
1764: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1765: p_init_msg_list,
1766: '_PVT',
1767: x_return_status);
1768: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1764: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1765: p_init_msg_list,
1766: '_PVT',
1767: x_return_status);
1768: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1771: RAISE OKL_API.G_EXCEPTION_ERROR;
1772: END IF;
1765: p_init_msg_list,
1766: '_PVT',
1767: x_return_status);
1768: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1771: RAISE OKL_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: --- Setting item attributes
1766: '_PVT',
1767: x_return_status);
1768: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1771: RAISE OKL_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: --- Setting item attributes
1774: l_return_status := Set_Attributes(
1767: x_return_status);
1768: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1771: RAISE OKL_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: --- Setting item attributes
1774: l_return_status := Set_Attributes(
1775: p_vib_rec, -- IN
1774: l_return_status := Set_Attributes(
1775: p_vib_rec, -- IN
1776: l_vib_rec); -- OUT
1777: --- If any errors happen abort API
1778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1781: RAISE OKL_API.G_EXCEPTION_ERROR;
1782: END IF;
1775: p_vib_rec, -- IN
1776: l_vib_rec); -- OUT
1777: --- If any errors happen abort API
1778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1781: RAISE OKL_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: l_return_status := populate_new_record(l_vib_rec, l_def_vib_rec);
1776: l_vib_rec); -- OUT
1777: --- If any errors happen abort API
1778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1781: RAISE OKL_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: l_return_status := populate_new_record(l_vib_rec, l_def_vib_rec);
1784: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1777: --- If any errors happen abort API
1778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1781: RAISE OKL_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: l_return_status := populate_new_record(l_vib_rec, l_def_vib_rec);
1784: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1781: RAISE OKL_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: l_return_status := populate_new_record(l_vib_rec, l_def_vib_rec);
1784: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1786: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1787: RAISE OKL_API.G_EXCEPTION_ERROR;
1788: END IF;
1781: RAISE OKL_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: l_return_status := populate_new_record(l_vib_rec, l_def_vib_rec);
1784: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1786: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1787: RAISE OKL_API.G_EXCEPTION_ERROR;
1788: END IF;
1789: UPDATE OKL_CONTRACT_IB_H
1782: END IF;
1783: l_return_status := populate_new_record(l_vib_rec, l_def_vib_rec);
1784: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1786: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1787: RAISE OKL_API.G_EXCEPTION_ERROR;
1788: END IF;
1789: UPDATE OKL_CONTRACT_IB_H
1790: SET ID = l_def_vib_rec.id,
1783: l_return_status := populate_new_record(l_vib_rec, l_def_vib_rec);
1784: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1786: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1787: RAISE OKL_API.G_EXCEPTION_ERROR;
1788: END IF;
1789: UPDATE OKL_CONTRACT_IB_H
1790: SET ID = l_def_vib_rec.id,
1791: MAJOR_VERSION = l_def_vib_rec.major_version,
1823: LEGAL_ENTITY_ID = l_def_vib_rec.legal_entity_id
1824: WHERE ID = l_def_vib_rec.id;
1825: x_vib_rec := l_vib_rec;
1826: x_return_status := l_return_status;
1827: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1828: EXCEPTION
1829: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1830: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1831: (
1825: x_vib_rec := l_vib_rec;
1826: x_return_status := l_return_status;
1827: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1828: EXCEPTION
1829: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1830: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1831: (
1832: l_api_name,
1833: G_PKG_NAME,
1826: x_return_status := l_return_status;
1827: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1828: EXCEPTION
1829: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1830: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1831: (
1832: l_api_name,
1833: G_PKG_NAME,
1834: 'OKL_API.G_RET_STS_ERROR',
1830: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1831: (
1832: l_api_name,
1833: G_PKG_NAME,
1834: 'OKL_API.G_RET_STS_ERROR',
1835: x_msg_count,
1836: x_msg_data,
1837: '_PVT'
1838: );
1835: x_msg_count,
1836: x_msg_data,
1837: '_PVT'
1838: );
1839: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1840: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1841: (
1842: l_api_name,
1843: G_PKG_NAME,
1836: x_msg_data,
1837: '_PVT'
1838: );
1839: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1840: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1841: (
1842: l_api_name,
1843: G_PKG_NAME,
1844: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1840: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1841: (
1842: l_api_name,
1843: G_PKG_NAME,
1844: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1845: x_msg_count,
1846: x_msg_data,
1847: '_PVT'
1848: );
1846: x_msg_data,
1847: '_PVT'
1848: );
1849: WHEN OTHERS THEN
1850: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1851: (
1852: l_api_name,
1853: G_PKG_NAME,
1854: 'OTHERS',
1861: -- update_row for:OKL_CONTRACT_IB_HV --
1862: ---------------------------------------
1863: PROCEDURE update_row(
1864: p_api_version IN NUMBER,
1865: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1866: x_return_status OUT NOCOPY VARCHAR2,
1867: x_msg_count OUT NOCOPY NUMBER,
1868: x_msg_data OUT NOCOPY VARCHAR2,
1869: p_vibv_rec IN vibv_rec_type,
1870: x_vibv_rec OUT NOCOPY vibv_rec_type) IS
1871:
1872: l_api_version CONSTANT NUMBER := 1;
1873: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1874: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1875: l_vibv_rec vibv_rec_type := p_vibv_rec;
1876: l_def_vibv_rec vibv_rec_type;
1877: l_db_vibv_rec vibv_rec_type;
1878: l_vib_rec vib_rec_type;
1897: p_vibv_rec IN vibv_rec_type,
1898: x_vibv_rec OUT NOCOPY vibv_rec_type
1899: ) RETURN VARCHAR2 IS
1900: l_row_notfound BOOLEAN := TRUE;
1901: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1902: BEGIN
1903: x_vibv_rec := p_vibv_rec;
1904: l_db_vibv_rec := get_rec(p_vibv_rec, l_return_status);
1905: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1901: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1902: BEGIN
1903: x_vibv_rec := p_vibv_rec;
1904: l_db_vibv_rec := get_rec(p_vibv_rec, l_return_status);
1905: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1906: IF (x_vibv_rec.id = OKL_API.G_MISS_NUM)
1907: THEN
1908: x_vibv_rec.id := l_db_vibv_rec.id;
1909: END IF;
1902: BEGIN
1903: x_vibv_rec := p_vibv_rec;
1904: l_db_vibv_rec := get_rec(p_vibv_rec, l_return_status);
1905: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1906: IF (x_vibv_rec.id = OKL_API.G_MISS_NUM)
1907: THEN
1908: x_vibv_rec.id := l_db_vibv_rec.id;
1909: END IF;
1910: IF (x_vibv_rec.major_version = OKL_API.G_MISS_NUM)
1906: IF (x_vibv_rec.id = OKL_API.G_MISS_NUM)
1907: THEN
1908: x_vibv_rec.id := l_db_vibv_rec.id;
1909: END IF;
1910: IF (x_vibv_rec.major_version = OKL_API.G_MISS_NUM)
1911: THEN
1912: x_vibv_rec.major_version := l_db_vibv_rec.major_version;
1913: END IF;
1914: IF (x_vibv_rec.object_version_number = OKL_API.G_MISS_NUM)
1910: IF (x_vibv_rec.major_version = OKL_API.G_MISS_NUM)
1911: THEN
1912: x_vibv_rec.major_version := l_db_vibv_rec.major_version;
1913: END IF;
1914: IF (x_vibv_rec.object_version_number = OKL_API.G_MISS_NUM)
1915: THEN
1916: x_vibv_rec.object_version_number := l_db_vibv_rec.object_version_number;
1917: END IF;
1918: IF (x_vibv_rec.dnz_chr_id = OKL_API.G_MISS_NUM)
1914: IF (x_vibv_rec.object_version_number = OKL_API.G_MISS_NUM)
1915: THEN
1916: x_vibv_rec.object_version_number := l_db_vibv_rec.object_version_number;
1917: END IF;
1918: IF (x_vibv_rec.dnz_chr_id = OKL_API.G_MISS_NUM)
1919: THEN
1920: x_vibv_rec.dnz_chr_id := l_db_vibv_rec.dnz_chr_id;
1921: END IF;
1922: IF (x_vibv_rec.ib_cle_id = OKL_API.G_MISS_NUM)
1918: IF (x_vibv_rec.dnz_chr_id = OKL_API.G_MISS_NUM)
1919: THEN
1920: x_vibv_rec.dnz_chr_id := l_db_vibv_rec.dnz_chr_id;
1921: END IF;
1922: IF (x_vibv_rec.ib_cle_id = OKL_API.G_MISS_NUM)
1923: THEN
1924: x_vibv_rec.ib_cle_id := l_db_vibv_rec.ib_cle_id;
1925: END IF;
1926: IF (x_vibv_rec.name = OKL_API.G_MISS_NUM)
1922: IF (x_vibv_rec.ib_cle_id = OKL_API.G_MISS_NUM)
1923: THEN
1924: x_vibv_rec.ib_cle_id := l_db_vibv_rec.ib_cle_id;
1925: END IF;
1926: IF (x_vibv_rec.name = OKL_API.G_MISS_NUM)
1927: THEN
1928: x_vibv_rec.name := l_db_vibv_rec.name;
1929: END IF;
1930: IF (x_vibv_rec.description = OKL_API.G_MISS_CHAR)
1926: IF (x_vibv_rec.name = OKL_API.G_MISS_NUM)
1927: THEN
1928: x_vibv_rec.name := l_db_vibv_rec.name;
1929: END IF;
1930: IF (x_vibv_rec.description = OKL_API.G_MISS_CHAR)
1931: THEN
1932: x_vibv_rec.description := l_db_vibv_rec.description;
1933: END IF;
1934: IF (x_vibv_rec.inventory_item_id = OKL_API.G_MISS_NUM)
1930: IF (x_vibv_rec.description = OKL_API.G_MISS_CHAR)
1931: THEN
1932: x_vibv_rec.description := l_db_vibv_rec.description;
1933: END IF;
1934: IF (x_vibv_rec.inventory_item_id = OKL_API.G_MISS_NUM)
1935: THEN
1936: x_vibv_rec.inventory_item_id := l_db_vibv_rec.inventory_item_id;
1937: END IF;
1938: IF (x_vibv_rec.current_serial_number = OKL_API.G_MISS_CHAR)
1934: IF (x_vibv_rec.inventory_item_id = OKL_API.G_MISS_NUM)
1935: THEN
1936: x_vibv_rec.inventory_item_id := l_db_vibv_rec.inventory_item_id;
1937: END IF;
1938: IF (x_vibv_rec.current_serial_number = OKL_API.G_MISS_CHAR)
1939: THEN
1940: x_vibv_rec.current_serial_number := l_db_vibv_rec.current_serial_number;
1941: END IF;
1942: IF (x_vibv_rec.install_site_use_id = OKL_API.G_MISS_NUM)
1938: IF (x_vibv_rec.current_serial_number = OKL_API.G_MISS_CHAR)
1939: THEN
1940: x_vibv_rec.current_serial_number := l_db_vibv_rec.current_serial_number;
1941: END IF;
1942: IF (x_vibv_rec.install_site_use_id = OKL_API.G_MISS_NUM)
1943: THEN
1944: x_vibv_rec.install_site_use_id := l_db_vibv_rec.install_site_use_id;
1945: END IF;
1946: IF (x_vibv_rec.quantity = OKL_API.G_MISS_NUM)
1942: IF (x_vibv_rec.install_site_use_id = OKL_API.G_MISS_NUM)
1943: THEN
1944: x_vibv_rec.install_site_use_id := l_db_vibv_rec.install_site_use_id;
1945: END IF;
1946: IF (x_vibv_rec.quantity = OKL_API.G_MISS_NUM)
1947: THEN
1948: x_vibv_rec.quantity := l_db_vibv_rec.quantity;
1949: END IF;
1950: IF (x_vibv_rec.attribute_category = OKL_API.G_MISS_CHAR)
1946: IF (x_vibv_rec.quantity = OKL_API.G_MISS_NUM)
1947: THEN
1948: x_vibv_rec.quantity := l_db_vibv_rec.quantity;
1949: END IF;
1950: IF (x_vibv_rec.attribute_category = OKL_API.G_MISS_CHAR)
1951: THEN
1952: x_vibv_rec.attribute_category := l_db_vibv_rec.attribute_category;
1953: END IF;
1954: IF (x_vibv_rec.attribute1 = OKL_API.G_MISS_CHAR)
1950: IF (x_vibv_rec.attribute_category = OKL_API.G_MISS_CHAR)
1951: THEN
1952: x_vibv_rec.attribute_category := l_db_vibv_rec.attribute_category;
1953: END IF;
1954: IF (x_vibv_rec.attribute1 = OKL_API.G_MISS_CHAR)
1955: THEN
1956: x_vibv_rec.attribute1 := l_db_vibv_rec.attribute1;
1957: END IF;
1958: IF (x_vibv_rec.attribute2 = OKL_API.G_MISS_CHAR)
1954: IF (x_vibv_rec.attribute1 = OKL_API.G_MISS_CHAR)
1955: THEN
1956: x_vibv_rec.attribute1 := l_db_vibv_rec.attribute1;
1957: END IF;
1958: IF (x_vibv_rec.attribute2 = OKL_API.G_MISS_CHAR)
1959: THEN
1960: x_vibv_rec.attribute2 := l_db_vibv_rec.attribute2;
1961: END IF;
1962: IF (x_vibv_rec.attribute3 = OKL_API.G_MISS_CHAR)
1958: IF (x_vibv_rec.attribute2 = OKL_API.G_MISS_CHAR)
1959: THEN
1960: x_vibv_rec.attribute2 := l_db_vibv_rec.attribute2;
1961: END IF;
1962: IF (x_vibv_rec.attribute3 = OKL_API.G_MISS_CHAR)
1963: THEN
1964: x_vibv_rec.attribute3 := l_db_vibv_rec.attribute3;
1965: END IF;
1966: IF (x_vibv_rec.attribute4 = OKL_API.G_MISS_CHAR)
1962: IF (x_vibv_rec.attribute3 = OKL_API.G_MISS_CHAR)
1963: THEN
1964: x_vibv_rec.attribute3 := l_db_vibv_rec.attribute3;
1965: END IF;
1966: IF (x_vibv_rec.attribute4 = OKL_API.G_MISS_CHAR)
1967: THEN
1968: x_vibv_rec.attribute4 := l_db_vibv_rec.attribute4;
1969: END IF;
1970: IF (x_vibv_rec.attribute5 = OKL_API.G_MISS_CHAR)
1966: IF (x_vibv_rec.attribute4 = OKL_API.G_MISS_CHAR)
1967: THEN
1968: x_vibv_rec.attribute4 := l_db_vibv_rec.attribute4;
1969: END IF;
1970: IF (x_vibv_rec.attribute5 = OKL_API.G_MISS_CHAR)
1971: THEN
1972: x_vibv_rec.attribute5 := l_db_vibv_rec.attribute5;
1973: END IF;
1974: IF (x_vibv_rec.attribute6 = OKL_API.G_MISS_CHAR)
1970: IF (x_vibv_rec.attribute5 = OKL_API.G_MISS_CHAR)
1971: THEN
1972: x_vibv_rec.attribute5 := l_db_vibv_rec.attribute5;
1973: END IF;
1974: IF (x_vibv_rec.attribute6 = OKL_API.G_MISS_CHAR)
1975: THEN
1976: x_vibv_rec.attribute6 := l_db_vibv_rec.attribute6;
1977: END IF;
1978: IF (x_vibv_rec.attribute7 = OKL_API.G_MISS_CHAR)
1974: IF (x_vibv_rec.attribute6 = OKL_API.G_MISS_CHAR)
1975: THEN
1976: x_vibv_rec.attribute6 := l_db_vibv_rec.attribute6;
1977: END IF;
1978: IF (x_vibv_rec.attribute7 = OKL_API.G_MISS_CHAR)
1979: THEN
1980: x_vibv_rec.attribute7 := l_db_vibv_rec.attribute7;
1981: END IF;
1982: IF (x_vibv_rec.attribute8 = OKL_API.G_MISS_CHAR)
1978: IF (x_vibv_rec.attribute7 = OKL_API.G_MISS_CHAR)
1979: THEN
1980: x_vibv_rec.attribute7 := l_db_vibv_rec.attribute7;
1981: END IF;
1982: IF (x_vibv_rec.attribute8 = OKL_API.G_MISS_CHAR)
1983: THEN
1984: x_vibv_rec.attribute8 := l_db_vibv_rec.attribute8;
1985: END IF;
1986: IF (x_vibv_rec.attribute9 = OKL_API.G_MISS_CHAR)
1982: IF (x_vibv_rec.attribute8 = OKL_API.G_MISS_CHAR)
1983: THEN
1984: x_vibv_rec.attribute8 := l_db_vibv_rec.attribute8;
1985: END IF;
1986: IF (x_vibv_rec.attribute9 = OKL_API.G_MISS_CHAR)
1987: THEN
1988: x_vibv_rec.attribute9 := l_db_vibv_rec.attribute9;
1989: END IF;
1990: IF (x_vibv_rec.attribute10 = OKL_API.G_MISS_CHAR)
1986: IF (x_vibv_rec.attribute9 = OKL_API.G_MISS_CHAR)
1987: THEN
1988: x_vibv_rec.attribute9 := l_db_vibv_rec.attribute9;
1989: END IF;
1990: IF (x_vibv_rec.attribute10 = OKL_API.G_MISS_CHAR)
1991: THEN
1992: x_vibv_rec.attribute10 := l_db_vibv_rec.attribute10;
1993: END IF;
1994: IF (x_vibv_rec.attribute11 = OKL_API.G_MISS_CHAR)
1990: IF (x_vibv_rec.attribute10 = OKL_API.G_MISS_CHAR)
1991: THEN
1992: x_vibv_rec.attribute10 := l_db_vibv_rec.attribute10;
1993: END IF;
1994: IF (x_vibv_rec.attribute11 = OKL_API.G_MISS_CHAR)
1995: THEN
1996: x_vibv_rec.attribute11 := l_db_vibv_rec.attribute11;
1997: END IF;
1998: IF (x_vibv_rec.attribute12 = OKL_API.G_MISS_CHAR)
1994: IF (x_vibv_rec.attribute11 = OKL_API.G_MISS_CHAR)
1995: THEN
1996: x_vibv_rec.attribute11 := l_db_vibv_rec.attribute11;
1997: END IF;
1998: IF (x_vibv_rec.attribute12 = OKL_API.G_MISS_CHAR)
1999: THEN
2000: x_vibv_rec.attribute12 := l_db_vibv_rec.attribute12;
2001: END IF;
2002: IF (x_vibv_rec.attribute13 = OKL_API.G_MISS_CHAR)
1998: IF (x_vibv_rec.attribute12 = OKL_API.G_MISS_CHAR)
1999: THEN
2000: x_vibv_rec.attribute12 := l_db_vibv_rec.attribute12;
2001: END IF;
2002: IF (x_vibv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2003: THEN
2004: x_vibv_rec.attribute13 := l_db_vibv_rec.attribute13;
2005: END IF;
2006: IF (x_vibv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2002: IF (x_vibv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2003: THEN
2004: x_vibv_rec.attribute13 := l_db_vibv_rec.attribute13;
2005: END IF;
2006: IF (x_vibv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2007: THEN
2008: x_vibv_rec.attribute14 := l_db_vibv_rec.attribute14;
2009: END IF;
2010: IF (x_vibv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2006: IF (x_vibv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2007: THEN
2008: x_vibv_rec.attribute14 := l_db_vibv_rec.attribute14;
2009: END IF;
2010: IF (x_vibv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2011: THEN
2012: x_vibv_rec.attribute15 := l_db_vibv_rec.attribute15;
2013: END IF;
2014: IF (x_vibv_rec.created_by = OKL_API.G_MISS_NUM)
2010: IF (x_vibv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2011: THEN
2012: x_vibv_rec.attribute15 := l_db_vibv_rec.attribute15;
2013: END IF;
2014: IF (x_vibv_rec.created_by = OKL_API.G_MISS_NUM)
2015: THEN
2016: x_vibv_rec.created_by := l_db_vibv_rec.created_by;
2017: END IF;
2018: IF (x_vibv_rec.creation_date = OKL_API.G_MISS_DATE)
2014: IF (x_vibv_rec.created_by = OKL_API.G_MISS_NUM)
2015: THEN
2016: x_vibv_rec.created_by := l_db_vibv_rec.created_by;
2017: END IF;
2018: IF (x_vibv_rec.creation_date = OKL_API.G_MISS_DATE)
2019: THEN
2020: x_vibv_rec.creation_date := l_db_vibv_rec.creation_date;
2021: END IF;
2022: IF (x_vibv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2018: IF (x_vibv_rec.creation_date = OKL_API.G_MISS_DATE)
2019: THEN
2020: x_vibv_rec.creation_date := l_db_vibv_rec.creation_date;
2021: END IF;
2022: IF (x_vibv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2023: THEN
2024: x_vibv_rec.last_updated_by := l_db_vibv_rec.last_updated_by;
2025: END IF;
2026: IF (x_vibv_rec.last_update_date = OKL_API.G_MISS_DATE)
2022: IF (x_vibv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2023: THEN
2024: x_vibv_rec.last_updated_by := l_db_vibv_rec.last_updated_by;
2025: END IF;
2026: IF (x_vibv_rec.last_update_date = OKL_API.G_MISS_DATE)
2027: THEN
2028: x_vibv_rec.last_update_date := l_db_vibv_rec.last_update_date;
2029: END IF;
2030: IF (x_vibv_rec.last_update_login = OKL_API.G_MISS_NUM)
2026: IF (x_vibv_rec.last_update_date = OKL_API.G_MISS_DATE)
2027: THEN
2028: x_vibv_rec.last_update_date := l_db_vibv_rec.last_update_date;
2029: END IF;
2030: IF (x_vibv_rec.last_update_login = OKL_API.G_MISS_NUM)
2031: THEN
2032: x_vibv_rec.last_update_login := l_db_vibv_rec.last_update_login;
2033: END IF;
2034: --Added by dpsingh for LE uptake
2031: THEN
2032: x_vibv_rec.last_update_login := l_db_vibv_rec.last_update_login;
2033: END IF;
2034: --Added by dpsingh for LE uptake
2035: IF (x_vibv_rec.legal_entity_id = OKL_API.G_MISS_NUM)
2036: THEN
2037: x_vibv_rec.legal_entity_id := l_db_vibv_rec.legal_entity_id;
2038: END IF;
2039: END IF;
2045: FUNCTION Set_Attributes (
2046: p_vibv_rec IN vibv_rec_type,
2047: x_vibv_rec OUT NOCOPY vibv_rec_type
2048: ) RETURN VARCHAR2 IS
2049: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2050: BEGIN
2051: x_vibv_rec := p_vibv_rec;
2052: RETURN(l_return_status);
2053: END Set_Attributes;
2051: x_vibv_rec := p_vibv_rec;
2052: RETURN(l_return_status);
2053: END Set_Attributes;
2054: BEGIN
2055: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2056: G_PKG_NAME,
2057: p_init_msg_list,
2058: l_api_version,
2059: p_api_version,
2058: l_api_version,
2059: p_api_version,
2060: '_PVT',
2061: x_return_status);
2062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2066: END IF;
2059: p_api_version,
2060: '_PVT',
2061: x_return_status);
2062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2066: END IF;
2067: --- Setting item attributes
2060: '_PVT',
2061: x_return_status);
2062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2066: END IF;
2067: --- Setting item attributes
2068: l_return_status := Set_Attributes(
2061: x_return_status);
2062: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2066: END IF;
2067: --- Setting item attributes
2068: l_return_status := Set_Attributes(
2069: p_vibv_rec, -- IN
2068: l_return_status := Set_Attributes(
2069: p_vibv_rec, -- IN
2070: x_vibv_rec); -- OUT
2071: --- If any errors happen abort API
2072: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2074: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2075: RAISE OKL_API.G_EXCEPTION_ERROR;
2076: END IF;
2069: p_vibv_rec, -- IN
2070: x_vibv_rec); -- OUT
2071: --- If any errors happen abort API
2072: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2074: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2075: RAISE OKL_API.G_EXCEPTION_ERROR;
2076: END IF;
2077: l_return_status := populate_new_record(l_vibv_rec, l_def_vibv_rec);
2070: x_vibv_rec); -- OUT
2071: --- If any errors happen abort API
2072: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2074: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2075: RAISE OKL_API.G_EXCEPTION_ERROR;
2076: END IF;
2077: l_return_status := populate_new_record(l_vibv_rec, l_def_vibv_rec);
2078: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2071: --- If any errors happen abort API
2072: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2074: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2075: RAISE OKL_API.G_EXCEPTION_ERROR;
2076: END IF;
2077: l_return_status := populate_new_record(l_vibv_rec, l_def_vibv_rec);
2078: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2074: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2075: RAISE OKL_API.G_EXCEPTION_ERROR;
2076: END IF;
2077: l_return_status := populate_new_record(l_vibv_rec, l_def_vibv_rec);
2078: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2081: RAISE OKL_API.G_EXCEPTION_ERROR;
2082: END IF;
2075: RAISE OKL_API.G_EXCEPTION_ERROR;
2076: END IF;
2077: l_return_status := populate_new_record(l_vibv_rec, l_def_vibv_rec);
2078: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2081: RAISE OKL_API.G_EXCEPTION_ERROR;
2082: END IF;
2083: l_def_vibv_rec := fill_who_columns(l_def_vibv_rec);
2076: END IF;
2077: l_return_status := populate_new_record(l_vibv_rec, l_def_vibv_rec);
2078: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2081: RAISE OKL_API.G_EXCEPTION_ERROR;
2082: END IF;
2083: l_def_vibv_rec := fill_who_columns(l_def_vibv_rec);
2084: --- Validate all non-missing attributes (Item Level Validation)
2077: l_return_status := populate_new_record(l_vibv_rec, l_def_vibv_rec);
2078: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2081: RAISE OKL_API.G_EXCEPTION_ERROR;
2082: END IF;
2083: l_def_vibv_rec := fill_who_columns(l_def_vibv_rec);
2084: --- Validate all non-missing attributes (Item Level Validation)
2085: l_return_status := Validate_Attributes(l_def_vibv_rec);
2083: l_def_vibv_rec := fill_who_columns(l_def_vibv_rec);
2084: --- Validate all non-missing attributes (Item Level Validation)
2085: l_return_status := Validate_Attributes(l_def_vibv_rec);
2086: --- If any errors happen abort API
2087: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2089: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2090: RAISE OKL_API.G_EXCEPTION_ERROR;
2091: END IF;
2084: --- Validate all non-missing attributes (Item Level Validation)
2085: l_return_status := Validate_Attributes(l_def_vibv_rec);
2086: --- If any errors happen abort API
2087: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2089: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2090: RAISE OKL_API.G_EXCEPTION_ERROR;
2091: END IF;
2092: l_return_status := Validate_Record(l_def_vibv_rec);
2085: l_return_status := Validate_Attributes(l_def_vibv_rec);
2086: --- If any errors happen abort API
2087: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2089: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2090: RAISE OKL_API.G_EXCEPTION_ERROR;
2091: END IF;
2092: l_return_status := Validate_Record(l_def_vibv_rec);
2093: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2086: --- If any errors happen abort API
2087: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2089: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2090: RAISE OKL_API.G_EXCEPTION_ERROR;
2091: END IF;
2092: l_return_status := Validate_Record(l_def_vibv_rec);
2093: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2089: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2090: RAISE OKL_API.G_EXCEPTION_ERROR;
2091: END IF;
2092: l_return_status := Validate_Record(l_def_vibv_rec);
2093: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2095: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2096: RAISE OKL_API.G_EXCEPTION_ERROR;
2097: END IF;
2090: RAISE OKL_API.G_EXCEPTION_ERROR;
2091: END IF;
2092: l_return_status := Validate_Record(l_def_vibv_rec);
2093: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2095: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2096: RAISE OKL_API.G_EXCEPTION_ERROR;
2097: END IF;
2098: -----------------------------------------
2091: END IF;
2092: l_return_status := Validate_Record(l_def_vibv_rec);
2093: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2095: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2096: RAISE OKL_API.G_EXCEPTION_ERROR;
2097: END IF;
2098: -----------------------------------------
2099: -- Move VIEW record to "Child" records --
2092: l_return_status := Validate_Record(l_def_vibv_rec);
2093: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2095: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2096: RAISE OKL_API.G_EXCEPTION_ERROR;
2097: END IF;
2098: -----------------------------------------
2099: -- Move VIEW record to "Child" records --
2100: -----------------------------------------
2109: x_msg_data,
2110: l_vib_rec,
2111: lx_vib_rec
2112: );
2113: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2115: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2116: RAISE OKL_API.G_EXCEPTION_ERROR;
2117: END IF;
2110: l_vib_rec,
2111: lx_vib_rec
2112: );
2113: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2115: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2116: RAISE OKL_API.G_EXCEPTION_ERROR;
2117: END IF;
2118: migrate(lx_vib_rec, l_def_vibv_rec);
2111: lx_vib_rec
2112: );
2113: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2115: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2116: RAISE OKL_API.G_EXCEPTION_ERROR;
2117: END IF;
2118: migrate(lx_vib_rec, l_def_vibv_rec);
2119: x_vibv_rec := l_def_vibv_rec;
2112: );
2113: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2115: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2116: RAISE OKL_API.G_EXCEPTION_ERROR;
2117: END IF;
2118: migrate(lx_vib_rec, l_def_vibv_rec);
2119: x_vibv_rec := l_def_vibv_rec;
2120: x_return_status := l_return_status;
2117: END IF;
2118: migrate(lx_vib_rec, l_def_vibv_rec);
2119: x_vibv_rec := l_def_vibv_rec;
2120: x_return_status := l_return_status;
2121: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2122: EXCEPTION
2123: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2124: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2125: (
2119: x_vibv_rec := l_def_vibv_rec;
2120: x_return_status := l_return_status;
2121: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2122: EXCEPTION
2123: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2124: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2125: (
2126: l_api_name,
2127: G_PKG_NAME,
2120: x_return_status := l_return_status;
2121: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2122: EXCEPTION
2123: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2124: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2125: (
2126: l_api_name,
2127: G_PKG_NAME,
2128: 'OKL_API.G_RET_STS_ERROR',
2124: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2125: (
2126: l_api_name,
2127: G_PKG_NAME,
2128: 'OKL_API.G_RET_STS_ERROR',
2129: x_msg_count,
2130: x_msg_data,
2131: '_PVT'
2132: );
2129: x_msg_count,
2130: x_msg_data,
2131: '_PVT'
2132: );
2133: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2134: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2135: (
2136: l_api_name,
2137: G_PKG_NAME,
2130: x_msg_data,
2131: '_PVT'
2132: );
2133: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2134: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2135: (
2136: l_api_name,
2137: G_PKG_NAME,
2138: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2134: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2135: (
2136: l_api_name,
2137: G_PKG_NAME,
2138: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2139: x_msg_count,
2140: x_msg_data,
2141: '_PVT'
2142: );
2140: x_msg_data,
2141: '_PVT'
2142: );
2143: WHEN OTHERS THEN
2144: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2145: (
2146: l_api_name,
2147: G_PKG_NAME,
2148: 'OTHERS',
2155: -- PL/SQL TBL update_row for:vibv_tbl --
2156: ----------------------------------------
2157: PROCEDURE update_row(
2158: p_api_version IN NUMBER,
2159: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2160: x_return_status OUT NOCOPY VARCHAR2,
2161: x_msg_count OUT NOCOPY NUMBER,
2162: x_msg_data OUT NOCOPY VARCHAR2,
2163: p_vibv_tbl IN vibv_tbl_type,
2166: l_api_version CONSTANT NUMBER := 1;
2167: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2168: i NUMBER := 0;
2169: BEGIN
2170: OKL_API.init_msg_list(p_init_msg_list);
2171: -- Make sure PL/SQL table has records in it before passing
2172: IF (p_vibv_tbl.COUNT > 0) THEN
2173: i := p_vibv_tbl.FIRST;
2174: LOOP
2183: EXIT WHEN (i = p_vibv_tbl.LAST);
2184: i := p_vibv_tbl.NEXT(i);
2185: END LOOP;
2186: END IF;
2187: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2188: EXCEPTION
2189: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2190: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2191: (
2185: END LOOP;
2186: END IF;
2187: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2188: EXCEPTION
2189: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2190: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2191: (
2192: l_api_name,
2193: G_PKG_NAME,
2186: END IF;
2187: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2188: EXCEPTION
2189: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2190: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2191: (
2192: l_api_name,
2193: G_PKG_NAME,
2194: 'OKL_API.G_RET_STS_ERROR',
2190: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2191: (
2192: l_api_name,
2193: G_PKG_NAME,
2194: 'OKL_API.G_RET_STS_ERROR',
2195: x_msg_count,
2196: x_msg_data,
2197: '_PVT'
2198: );
2195: x_msg_count,
2196: x_msg_data,
2197: '_PVT'
2198: );
2199: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2200: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2201: (
2202: l_api_name,
2203: G_PKG_NAME,
2196: x_msg_data,
2197: '_PVT'
2198: );
2199: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2200: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2201: (
2202: l_api_name,
2203: G_PKG_NAME,
2204: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2200: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2201: (
2202: l_api_name,
2203: G_PKG_NAME,
2204: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2205: x_msg_count,
2206: x_msg_data,
2207: '_PVT'
2208: );
2206: x_msg_data,
2207: '_PVT'
2208: );
2209: WHEN OTHERS THEN
2210: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2211: (
2212: l_api_name,
2213: G_PKG_NAME,
2214: 'OTHERS',
2223: ---------------------------------------
2224: -- delete_row for:OKL_CONTRACT_IB_HV --
2225: ---------------------------------------
2226: PROCEDURE delete_row(
2227: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2228: x_return_status OUT NOCOPY VARCHAR2,
2229: x_msg_count OUT NOCOPY NUMBER,
2230: x_msg_data OUT NOCOPY VARCHAR2,
2231: p_vib_rec IN vib_rec_type) IS
2231: p_vib_rec IN vib_rec_type) IS
2232:
2233: l_api_version CONSTANT NUMBER := 1;
2234: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
2235: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2236: l_vib_rec vib_rec_type := p_vib_rec;
2237: l_row_notfound BOOLEAN := TRUE;
2238: BEGIN
2239: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2235: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2236: l_vib_rec vib_rec_type := p_vib_rec;
2237: l_row_notfound BOOLEAN := TRUE;
2238: BEGIN
2239: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2240: p_init_msg_list,
2241: '_PVT',
2242: x_return_status);
2243: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2239: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2240: p_init_msg_list,
2241: '_PVT',
2242: x_return_status);
2243: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_ERROR;
2247: END IF;
2240: p_init_msg_list,
2241: '_PVT',
2242: x_return_status);
2243: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_ERROR;
2247: END IF;
2248:
2241: '_PVT',
2242: x_return_status);
2243: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_ERROR;
2247: END IF;
2248:
2249: DELETE FROM OKL_CONTRACT_IB_H
2242: x_return_status);
2243: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_ERROR;
2247: END IF;
2248:
2249: DELETE FROM OKL_CONTRACT_IB_H
2250: WHERE ID = l_vib_rec.id;
2248:
2249: DELETE FROM OKL_CONTRACT_IB_H
2250: WHERE ID = l_vib_rec.id;
2251: x_return_status := l_return_status;
2252: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2253: EXCEPTION
2254: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2255: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2256: (
2250: WHERE ID = l_vib_rec.id;
2251: x_return_status := l_return_status;
2252: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2253: EXCEPTION
2254: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2255: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2256: (
2257: l_api_name,
2258: G_PKG_NAME,
2251: x_return_status := l_return_status;
2252: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2253: EXCEPTION
2254: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2255: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2256: (
2257: l_api_name,
2258: G_PKG_NAME,
2259: 'OKL_API.G_RET_STS_ERROR',
2255: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2256: (
2257: l_api_name,
2258: G_PKG_NAME,
2259: 'OKL_API.G_RET_STS_ERROR',
2260: x_msg_count,
2261: x_msg_data,
2262: '_PVT'
2263: );
2260: x_msg_count,
2261: x_msg_data,
2262: '_PVT'
2263: );
2264: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2265: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2266: (
2267: l_api_name,
2268: G_PKG_NAME,
2261: x_msg_data,
2262: '_PVT'
2263: );
2264: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2265: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2266: (
2267: l_api_name,
2268: G_PKG_NAME,
2269: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2265: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2266: (
2267: l_api_name,
2268: G_PKG_NAME,
2269: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2270: x_msg_count,
2271: x_msg_data,
2272: '_PVT'
2273: );
2271: x_msg_data,
2272: '_PVT'
2273: );
2274: WHEN OTHERS THEN
2275: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2276: (
2277: l_api_name,
2278: G_PKG_NAME,
2279: 'OTHERS',
2286: -- delete_row for:OKL_CONTRACT_IB_HV --
2287: ---------------------------------------
2288: PROCEDURE delete_row(
2289: p_api_version IN NUMBER,
2290: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2291: x_return_status OUT NOCOPY VARCHAR2,
2292: x_msg_count OUT NOCOPY NUMBER,
2293: x_msg_data OUT NOCOPY VARCHAR2,
2294: p_vibv_rec IN vibv_rec_type) IS
2294: p_vibv_rec IN vibv_rec_type) IS
2295:
2296: l_api_version CONSTANT NUMBER := 1;
2297: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2298: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2299: l_vibv_rec vibv_rec_type := p_vibv_rec;
2300: l_vib_rec vib_rec_type;
2301: BEGIN
2302: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2298: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2299: l_vibv_rec vibv_rec_type := p_vibv_rec;
2300: l_vib_rec vib_rec_type;
2301: BEGIN
2302: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2303: G_PKG_NAME,
2304: p_init_msg_list,
2305: l_api_version,
2306: p_api_version,
2305: l_api_version,
2306: p_api_version,
2307: '_PVT',
2308: x_return_status);
2309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2312: RAISE OKL_API.G_EXCEPTION_ERROR;
2313: END IF;
2306: p_api_version,
2307: '_PVT',
2308: x_return_status);
2309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2312: RAISE OKL_API.G_EXCEPTION_ERROR;
2313: END IF;
2314: -----------------------------------------
2307: '_PVT',
2308: x_return_status);
2309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2312: RAISE OKL_API.G_EXCEPTION_ERROR;
2313: END IF;
2314: -----------------------------------------
2315: -- Move VIEW record to "Child" records --
2308: x_return_status);
2309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2312: RAISE OKL_API.G_EXCEPTION_ERROR;
2313: END IF;
2314: -----------------------------------------
2315: -- Move VIEW record to "Child" records --
2316: -----------------------------------------
2324: x_msg_count,
2325: x_msg_data,
2326: l_vib_rec
2327: );
2328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2331: RAISE OKL_API.G_EXCEPTION_ERROR;
2332: END IF;
2325: x_msg_data,
2326: l_vib_rec
2327: );
2328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2331: RAISE OKL_API.G_EXCEPTION_ERROR;
2332: END IF;
2333: x_return_status := l_return_status;
2326: l_vib_rec
2327: );
2328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2331: RAISE OKL_API.G_EXCEPTION_ERROR;
2332: END IF;
2333: x_return_status := l_return_status;
2334: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2327: );
2328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2331: RAISE OKL_API.G_EXCEPTION_ERROR;
2332: END IF;
2333: x_return_status := l_return_status;
2334: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2335: EXCEPTION
2330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2331: RAISE OKL_API.G_EXCEPTION_ERROR;
2332: END IF;
2333: x_return_status := l_return_status;
2334: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2335: EXCEPTION
2336: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2337: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2338: (
2332: END IF;
2333: x_return_status := l_return_status;
2334: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2335: EXCEPTION
2336: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2337: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2338: (
2339: l_api_name,
2340: G_PKG_NAME,
2333: x_return_status := l_return_status;
2334: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2335: EXCEPTION
2336: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2337: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2338: (
2339: l_api_name,
2340: G_PKG_NAME,
2341: 'OKL_API.G_RET_STS_ERROR',
2337: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2338: (
2339: l_api_name,
2340: G_PKG_NAME,
2341: 'OKL_API.G_RET_STS_ERROR',
2342: x_msg_count,
2343: x_msg_data,
2344: '_PVT'
2345: );
2342: x_msg_count,
2343: x_msg_data,
2344: '_PVT'
2345: );
2346: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2347: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2348: (
2349: l_api_name,
2350: G_PKG_NAME,
2343: x_msg_data,
2344: '_PVT'
2345: );
2346: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2347: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2348: (
2349: l_api_name,
2350: G_PKG_NAME,
2351: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2347: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2348: (
2349: l_api_name,
2350: G_PKG_NAME,
2351: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2352: x_msg_count,
2353: x_msg_data,
2354: '_PVT'
2355: );
2353: x_msg_data,
2354: '_PVT'
2355: );
2356: WHEN OTHERS THEN
2357: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2358: (
2359: l_api_name,
2360: G_PKG_NAME,
2361: 'OTHERS',
2368: -- PL/SQL TBL delete_row for:OKL_CONTRACT_IB_HV --
2369: --------------------------------------------------
2370: PROCEDURE delete_row(
2371: p_api_version IN NUMBER,
2372: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2373: x_return_status OUT NOCOPY VARCHAR2,
2374: x_msg_count OUT NOCOPY NUMBER,
2375: x_msg_data OUT NOCOPY VARCHAR2,
2376: p_vibv_tbl IN vibv_tbl_type) IS
2378: l_api_version CONSTANT NUMBER := 1;
2379: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
2380: i NUMBER := 0;
2381: BEGIN
2382: OKL_API.init_msg_list(p_init_msg_list);
2383: -- Make sure PL/SQL table has records in it before passing
2384: IF (p_vibv_tbl.COUNT > 0) THEN
2385: i := p_vibv_tbl.FIRST;
2386: LOOP
2394: EXIT WHEN (i = p_vibv_tbl.LAST);
2395: i := p_vibv_tbl.NEXT(i);
2396: END LOOP;
2397: END IF;
2398: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2399: EXCEPTION
2400: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2401: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2402: (
2396: END LOOP;
2397: END IF;
2398: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2399: EXCEPTION
2400: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2401: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2402: (
2403: l_api_name,
2404: G_PKG_NAME,
2397: END IF;
2398: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2399: EXCEPTION
2400: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2401: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2402: (
2403: l_api_name,
2404: G_PKG_NAME,
2405: 'OKL_API.G_RET_STS_ERROR',
2401: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2402: (
2403: l_api_name,
2404: G_PKG_NAME,
2405: 'OKL_API.G_RET_STS_ERROR',
2406: x_msg_count,
2407: x_msg_data,
2408: '_PVT'
2409: );
2406: x_msg_count,
2407: x_msg_data,
2408: '_PVT'
2409: );
2410: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2411: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2412: (
2413: l_api_name,
2414: G_PKG_NAME,
2407: x_msg_data,
2408: '_PVT'
2409: );
2410: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2411: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2412: (
2413: l_api_name,
2414: G_PKG_NAME,
2415: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2411: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2412: (
2413: l_api_name,
2414: G_PKG_NAME,
2415: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2416: x_msg_count,
2417: x_msg_data,
2418: '_PVT'
2419: );
2417: x_msg_data,
2418: '_PVT'
2419: );
2420: WHEN OTHERS THEN
2421: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2422: (
2423: l_api_name,
2424: G_PKG_NAME,
2425: 'OTHERS',