158: p_fepv_rec IN fepv_rec_type
159: ) RETURN fepv_rec_type IS
160: l_fepv_rec fepv_rec_type := p_fepv_rec;
161: BEGIN
162: IF (l_fepv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
163: l_fepv_rec.object_version_number := NULL;
164: END IF;
165: IF (l_fepv_rec.cnl_id = OKC_API.G_MISS_NUM) THEN
166: l_fepv_rec.cnl_id := NULL;
161: BEGIN
162: IF (l_fepv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
163: l_fepv_rec.object_version_number := NULL;
164: END IF;
165: IF (l_fepv_rec.cnl_id = OKC_API.G_MISS_NUM) THEN
166: l_fepv_rec.cnl_id := NULL;
167: END IF;
168: IF (l_fepv_rec.pdp_id = OKC_API.G_MISS_NUM) THEN
169: l_fepv_rec.pdp_id := NULL;
164: END IF;
165: IF (l_fepv_rec.cnl_id = OKC_API.G_MISS_NUM) THEN
166: l_fepv_rec.cnl_id := NULL;
167: END IF;
168: IF (l_fepv_rec.pdp_id = OKC_API.G_MISS_NUM) THEN
169: l_fepv_rec.pdp_id := NULL;
170: END IF;
171: IF (l_fepv_rec.aae_id = OKC_API.G_MISS_NUM) THEN
172: l_fepv_rec.aae_id := NULL;
167: END IF;
168: IF (l_fepv_rec.pdp_id = OKC_API.G_MISS_NUM) THEN
169: l_fepv_rec.pdp_id := NULL;
170: END IF;
171: IF (l_fepv_rec.aae_id = OKC_API.G_MISS_NUM) THEN
172: l_fepv_rec.aae_id := NULL;
173: END IF;
174: IF (l_fepv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
175: l_fepv_rec.dnz_chr_id := NULL;
170: END IF;
171: IF (l_fepv_rec.aae_id = OKC_API.G_MISS_NUM) THEN
172: l_fepv_rec.aae_id := NULL;
173: END IF;
174: IF (l_fepv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
175: l_fepv_rec.dnz_chr_id := NULL;
176: END IF;
177: IF (l_fepv_rec.value = OKC_API.G_MISS_CHAR) THEN
178: l_fepv_rec.value := NULL;
173: END IF;
174: IF (l_fepv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
175: l_fepv_rec.dnz_chr_id := NULL;
176: END IF;
177: IF (l_fepv_rec.value = OKC_API.G_MISS_CHAR) THEN
178: l_fepv_rec.value := NULL;
179: END IF;
180: IF (l_fepv_rec.application_id = OKC_API.G_MISS_NUM) THEN
181: l_fepv_rec.application_id := NULL;
176: END IF;
177: IF (l_fepv_rec.value = OKC_API.G_MISS_CHAR) THEN
178: l_fepv_rec.value := NULL;
179: END IF;
180: IF (l_fepv_rec.application_id = OKC_API.G_MISS_NUM) THEN
181: l_fepv_rec.application_id := NULL;
182: END IF;
183: IF (l_fepv_rec.seeded_flag = OKC_API.G_MISS_CHAR) THEN
184: l_fepv_rec.seeded_flag := NULL;
179: END IF;
180: IF (l_fepv_rec.application_id = OKC_API.G_MISS_NUM) THEN
181: l_fepv_rec.application_id := NULL;
182: END IF;
183: IF (l_fepv_rec.seeded_flag = OKC_API.G_MISS_CHAR) THEN
184: l_fepv_rec.seeded_flag := NULL;
185: END IF;
186: IF (l_fepv_rec.created_by = OKC_API.G_MISS_NUM) THEN
187: l_fepv_rec.created_by := NULL;
182: END IF;
183: IF (l_fepv_rec.seeded_flag = OKC_API.G_MISS_CHAR) THEN
184: l_fepv_rec.seeded_flag := NULL;
185: END IF;
186: IF (l_fepv_rec.created_by = OKC_API.G_MISS_NUM) THEN
187: l_fepv_rec.created_by := NULL;
188: END IF;
189: IF (l_fepv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
190: l_fepv_rec.creation_date := NULL;
185: END IF;
186: IF (l_fepv_rec.created_by = OKC_API.G_MISS_NUM) THEN
187: l_fepv_rec.created_by := NULL;
188: END IF;
189: IF (l_fepv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
190: l_fepv_rec.creation_date := NULL;
191: END IF;
192: IF (l_fepv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
193: l_fepv_rec.last_updated_by := NULL;
188: END IF;
189: IF (l_fepv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
190: l_fepv_rec.creation_date := NULL;
191: END IF;
192: IF (l_fepv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
193: l_fepv_rec.last_updated_by := NULL;
194: END IF;
195: IF (l_fepv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
196: l_fepv_rec.last_update_date := NULL;
191: END IF;
192: IF (l_fepv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
193: l_fepv_rec.last_updated_by := NULL;
194: END IF;
195: IF (l_fepv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
196: l_fepv_rec.last_update_date := NULL;
197: END IF;
198: IF (l_fepv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
199: l_fepv_rec.last_update_login := NULL;
194: END IF;
195: IF (l_fepv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
196: l_fepv_rec.last_update_date := NULL;
197: END IF;
198: IF (l_fepv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
199: l_fepv_rec.last_update_login := NULL;
200: END IF;
201: RETURN(l_fepv_rec);
202: END null_out_defaults;
210: --------------------------------------------------------
211: FUNCTION Validate_Attributes (
212: p_fepv_rec IN fepv_rec_type
213: ) RETURN VARCHAR2 IS
214: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
215: BEGIN
216: IF p_fepv_rec.id = OKC_API.G_MISS_NUM OR
217: p_fepv_rec.id IS NULL
218: THEN
212: p_fepv_rec IN fepv_rec_type
213: ) RETURN VARCHAR2 IS
214: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
215: BEGIN
216: IF p_fepv_rec.id = OKC_API.G_MISS_NUM OR
217: p_fepv_rec.id IS NULL
218: THEN
219: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
220: l_return_status := OKC_API.G_RET_STS_ERROR;
215: BEGIN
216: IF p_fepv_rec.id = OKC_API.G_MISS_NUM OR
217: p_fepv_rec.id IS NULL
218: THEN
219: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
220: l_return_status := OKC_API.G_RET_STS_ERROR;
221: ELSIF p_fepv_rec.object_version_number = OKC_API.G_MISS_NUM OR
222: p_fepv_rec.object_version_number IS NULL
223: THEN
216: IF p_fepv_rec.id = OKC_API.G_MISS_NUM OR
217: p_fepv_rec.id IS NULL
218: THEN
219: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
220: l_return_status := OKC_API.G_RET_STS_ERROR;
221: ELSIF p_fepv_rec.object_version_number = OKC_API.G_MISS_NUM OR
222: p_fepv_rec.object_version_number IS NULL
223: THEN
224: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
217: p_fepv_rec.id IS NULL
218: THEN
219: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
220: l_return_status := OKC_API.G_RET_STS_ERROR;
221: ELSIF p_fepv_rec.object_version_number = OKC_API.G_MISS_NUM OR
222: p_fepv_rec.object_version_number IS NULL
223: THEN
224: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
225: l_return_status := OKC_API.G_RET_STS_ERROR;
220: l_return_status := OKC_API.G_RET_STS_ERROR;
221: ELSIF p_fepv_rec.object_version_number = OKC_API.G_MISS_NUM OR
222: p_fepv_rec.object_version_number IS NULL
223: THEN
224: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
225: l_return_status := OKC_API.G_RET_STS_ERROR;
226: ELSIF p_fepv_rec.cnl_id = OKC_API.G_MISS_NUM OR
227: p_fepv_rec.cnl_id IS NULL
228: THEN
221: ELSIF p_fepv_rec.object_version_number = OKC_API.G_MISS_NUM OR
222: p_fepv_rec.object_version_number IS NULL
223: THEN
224: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
225: l_return_status := OKC_API.G_RET_STS_ERROR;
226: ELSIF p_fepv_rec.cnl_id = OKC_API.G_MISS_NUM OR
227: p_fepv_rec.cnl_id IS NULL
228: THEN
229: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnl_id');
222: p_fepv_rec.object_version_number IS NULL
223: THEN
224: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
225: l_return_status := OKC_API.G_RET_STS_ERROR;
226: ELSIF p_fepv_rec.cnl_id = OKC_API.G_MISS_NUM OR
227: p_fepv_rec.cnl_id IS NULL
228: THEN
229: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnl_id');
230: l_return_status := OKC_API.G_RET_STS_ERROR;
225: l_return_status := OKC_API.G_RET_STS_ERROR;
226: ELSIF p_fepv_rec.cnl_id = OKC_API.G_MISS_NUM OR
227: p_fepv_rec.cnl_id IS NULL
228: THEN
229: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnl_id');
230: l_return_status := OKC_API.G_RET_STS_ERROR;
231: ELSIF p_fepv_rec.pdp_id = OKC_API.G_MISS_NUM OR
232: p_fepv_rec.pdp_id IS NULL
233: THEN
226: ELSIF p_fepv_rec.cnl_id = OKC_API.G_MISS_NUM OR
227: p_fepv_rec.cnl_id IS NULL
228: THEN
229: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnl_id');
230: l_return_status := OKC_API.G_RET_STS_ERROR;
231: ELSIF p_fepv_rec.pdp_id = OKC_API.G_MISS_NUM OR
232: p_fepv_rec.pdp_id IS NULL
233: THEN
234: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'pdp_id');
227: p_fepv_rec.cnl_id IS NULL
228: THEN
229: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnl_id');
230: l_return_status := OKC_API.G_RET_STS_ERROR;
231: ELSIF p_fepv_rec.pdp_id = OKC_API.G_MISS_NUM OR
232: p_fepv_rec.pdp_id IS NULL
233: THEN
234: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'pdp_id');
235: l_return_status := OKC_API.G_RET_STS_ERROR;
230: l_return_status := OKC_API.G_RET_STS_ERROR;
231: ELSIF p_fepv_rec.pdp_id = OKC_API.G_MISS_NUM OR
232: p_fepv_rec.pdp_id IS NULL
233: THEN
234: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'pdp_id');
235: l_return_status := OKC_API.G_RET_STS_ERROR;
236: END IF;
237: RETURN(l_return_status);
238: END Validate_Attributes;
231: ELSIF p_fepv_rec.pdp_id = OKC_API.G_MISS_NUM OR
232: p_fepv_rec.pdp_id IS NULL
233: THEN
234: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'pdp_id');
235: l_return_status := OKC_API.G_RET_STS_ERROR;
236: END IF;
237: RETURN(l_return_status);
238: END Validate_Attributes;
239:
245: ----------------------------------------------------
246: FUNCTION Validate_Record (
247: p_fepv_rec IN fepv_rec_type
248: ) RETURN VARCHAR2 IS
249: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
250: ------------------------------------
251: -- FUNCTION validate_foreign_keys --
252: ------------------------------------
253: FUNCTION validate_foreign_keys (
388: LAST_UPDATE_LOGIN
389: FROM Okc_Process_Defs_V
390: WHERE okc_process_defs_v.id = p_id;
391: l_okc_pdfv_pk okc_pdfv_pk_csr%ROWTYPE;
392: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
393: l_row_notfound BOOLEAN := TRUE;
394: BEGIN
395: IF (p_fepv_rec.CNL_ID IS NOT NULL)
396: THEN
398: FETCH okc_cnlv_pk_csr INTO l_okc_cnlv_pk;
399: l_row_notfound := okc_cnlv_pk_csr%NOTFOUND;
400: CLOSE okc_cnlv_pk_csr;
401: IF (l_row_notfound) THEN
402: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CNL_ID');
403: RAISE item_not_found_error;
404: END IF;
405: END IF;
406: IF (p_fepv_rec.AAE_ID IS NOT NULL)
409: FETCH okc_aaev_pk_csr INTO l_okc_aaev_pk;
410: l_row_notfound := okc_aaev_pk_csr%NOTFOUND;
411: CLOSE okc_aaev_pk_csr;
412: IF (l_row_notfound) THEN
413: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'AAE_ID');
414: RAISE item_not_found_error;
415: END IF;
416: END IF;
417: IF (p_fepv_rec.PDP_ID IS NOT NULL)
420: FETCH okc_pdfv_pk_csr INTO l_okc_pdfv_pk;
421: l_row_notfound := okc_pdfv_pk_csr%NOTFOUND;
422: CLOSE okc_pdfv_pk_csr;
423: IF (l_row_notfound) THEN
424: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PDP_ID');
425: RAISE item_not_found_error;
426: END IF;
427: END IF;
428: RETURN (l_return_status);
427: END IF;
428: RETURN (l_return_status);
429: EXCEPTION
430: WHEN item_not_found_error THEN
431: l_return_status := OKC_API.G_RET_STS_ERROR;
432: RETURN (l_return_status);
433: END validate_foreign_keys;
434: BEGIN
435: l_return_status := validate_foreign_keys (p_fepv_rec);
455: PROCEDURE Validate_Object_Version_Number(x_return_status OUT NOCOPY VARCHAR2
456: ,p_fepv_rec IN fepv_rec_type)
457: IS
458:
459: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
460:
461: BEGIN
462: -- initialize return status
463: x_return_status := OKC_API.G_RET_STS_SUCCESS;
459: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
460:
461: BEGIN
462: -- initialize return status
463: x_return_status := OKC_API.G_RET_STS_SUCCESS;
464: -- check for data before processing
465: IF (p_fepv_rec.object_version_number IS NULL) OR
466: (p_fepv_rec.object_version_Number = OKC_API.G_MISS_NUM) THEN
467: OKC_API.SET_MESSAGE(p_app_name => g_app_name
462: -- initialize return status
463: x_return_status := OKC_API.G_RET_STS_SUCCESS;
464: -- check for data before processing
465: IF (p_fepv_rec.object_version_number IS NULL) OR
466: (p_fepv_rec.object_version_Number = OKC_API.G_MISS_NUM) THEN
467: OKC_API.SET_MESSAGE(p_app_name => g_app_name
468: ,p_msg_name => g_required_value
469: ,p_token1 => g_col_name_token
470: ,p_token1_value => 'object_version_number');
463: x_return_status := OKC_API.G_RET_STS_SUCCESS;
464: -- check for data before processing
465: IF (p_fepv_rec.object_version_number IS NULL) OR
466: (p_fepv_rec.object_version_Number = OKC_API.G_MISS_NUM) THEN
467: OKC_API.SET_MESSAGE(p_app_name => g_app_name
468: ,p_msg_name => g_required_value
469: ,p_token1 => g_col_name_token
470: ,p_token1_value => 'object_version_number');
471: x_return_status := OKC_API.G_RET_STS_ERROR;
467: OKC_API.SET_MESSAGE(p_app_name => g_app_name
468: ,p_msg_name => g_required_value
469: ,p_token1 => g_col_name_token
470: ,p_token1_value => 'object_version_number');
471: x_return_status := OKC_API.G_RET_STS_ERROR;
472: RAISE G_EXCEPTION_HALT_VALIDATION;
473: END IF;
474:
475: EXCEPTION
479: NULL;
480:
481: WHEN OTHERS THEN
482: -- store SQL error message on message stack for caller
483: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
484: p_msg_name => g_unexpected_error,
485: p_token1 => g_sqlcode_token,
486: p_token1_value => sqlcode,
487: p_token2 => g_sqlerrm_token,
487: p_token2 => g_sqlerrm_token,
488: p_token2_value => sqlerrm);
489:
490: -- notify caller of an UNEXPECTED error
491: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
492:
493: END Validate_Object_Version_Number;
494:
495: ---------------------------------------------------------------------------
509: x_return_status OUT NOCOPY VARCHAR2,
510: p_fepv_rec IN fepv_rec_type) IS
511: BEGIN
512: -- initialize return status
513: x_return_status := OKC_API.G_RET_STS_SUCCESS;
514: -- Check if seeded_flag is Y or N
515: IF UPPER(p_fepv_rec.seeded_flag) NOT IN ('Y', 'N') THEN
516: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
517: p_msg_name => g_invalid_value,
512: -- initialize return status
513: x_return_status := OKC_API.G_RET_STS_SUCCESS;
514: -- Check if seeded_flag is Y or N
515: IF UPPER(p_fepv_rec.seeded_flag) NOT IN ('Y', 'N') THEN
516: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
517: p_msg_name => g_invalid_value,
518: p_token1 => g_col_name_token,
519: p_token1_value => 'seeded_flag');
520: x_return_status := OKC_API.G_RET_STS_ERROR;
516: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
517: p_msg_name => g_invalid_value,
518: p_token1 => g_col_name_token,
519: p_token1_value => 'seeded_flag');
520: x_return_status := OKC_API.G_RET_STS_ERROR;
521: raise G_EXCEPTION_HALT_VALIDATION;
522: END IF;
523:
524: --Check if the data is in upper case
522: END IF;
523:
524: --Check if the data is in upper case
525: IF p_fepv_rec.seeded_flag <> UPPER(p_fepv_rec.seeded_flag) THEN
526: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
527: p_msg_name => g_uppercase_required,
528: p_token1 => g_col_name_token,
529: p_token1_value => 'seeded_flag');
530: x_return_status := OKC_API.G_RET_STS_ERROR;
526: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
527: p_msg_name => g_uppercase_required,
528: p_token1 => g_col_name_token,
529: p_token1_value => 'seeded_flag');
530: x_return_status := OKC_API.G_RET_STS_ERROR;
531: raise G_EXCEPTION_HALT_VALIDATION;
532: END IF;
533: EXCEPTION
534: when G_EXCEPTION_HALT_VALIDATION then
537: null;
538:
539: when OTHERS then
540: -- store SQL error message on message stack for caller
541: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
542: p_msg_name => g_unexpected_error,
543: p_token1 => g_sqlcode_token,
544: p_token1_value => sqlcode,
545: p_token2 => g_sqlerrm_token,
544: p_token1_value => sqlcode,
545: p_token2 => g_sqlerrm_token,
546: p_token2_value => sqlerrm);
547: -- notify caller of an UNEXPECTED error
548: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
549: END validate_seeded_flag;
550:
551: ---------------------------------------------------------------------------
552: -- PROCEDURE Validate_Application_Id
569: where application_id = p_application_id;
570: l_dummy VARCHAR2(1) := '?';
571: BEGIN
572: -- initialize return status
573: x_return_status := OKC_API.G_RET_STS_SUCCESS;
574:
575: IF p_fepv_rec.application_id IS NOT NULL THEN
576: --Check if application id exists in the fnd_application or not
577: OPEN application_id_cur(p_fepv_rec.application_id);
577: OPEN application_id_cur(p_fepv_rec.application_id);
578: FETCH application_id_cur INTO l_dummy;
579: CLOSE application_id_cur ;
580: IF l_dummy = '?' THEN
581: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
582: p_msg_name => g_invalid_value,
583: p_token1 => g_col_name_token,
584: p_token1_value => 'application_id');
585: x_return_status := OKC_API.G_RET_STS_ERROR;
581: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
582: p_msg_name => g_invalid_value,
583: p_token1 => g_col_name_token,
584: p_token1_value => 'application_id');
585: x_return_status := OKC_API.G_RET_STS_ERROR;
586: raise G_EXCEPTION_HALT_VALIDATION;
587: END IF;
588: END IF;
589: EXCEPTION
593: null;
594:
595: when OTHERS then
596: -- store SQL error message on message stack for caller
597: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
598: p_msg_name => g_unexpected_error,
599: p_token1 => g_sqlcode_token,
600: p_token1_value => sqlcode,
601: p_token2 => g_sqlerrm_token,
600: p_token1_value => sqlcode,
601: p_token2 => g_sqlerrm_token,
602: p_token2_value => sqlerrm);
603: -- notify caller of an UNEXPECTED error
604: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
605: END validate_application_id;
606:
607: ---------------------------------------------------------------------------
608: -- PROCEDURE Validate_Cnl_Id
619: PROCEDURE Validate_Cnl_Id(x_return_status OUT NOCOPY VARCHAR2
620: ,p_fepv_rec IN fepv_rec_type)
621: IS
622:
623: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
624:
625: BEGIN
626: -- initialize return status
627: x_return_status := OKC_API.G_RET_STS_SUCCESS;
623: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
624:
625: BEGIN
626: -- initialize return status
627: x_return_status := OKC_API.G_RET_STS_SUCCESS;
628: -- check for data before processing
629: IF (p_fepv_rec.cnl_id IS NULL) OR
630: (p_fepv_rec.cnl_id = OKC_API.G_MISS_NUM) THEN
631: OKC_API.SET_MESSAGE(p_app_name => g_app_name
626: -- initialize return status
627: x_return_status := OKC_API.G_RET_STS_SUCCESS;
628: -- check for data before processing
629: IF (p_fepv_rec.cnl_id IS NULL) OR
630: (p_fepv_rec.cnl_id = OKC_API.G_MISS_NUM) THEN
631: OKC_API.SET_MESSAGE(p_app_name => g_app_name
632: ,p_msg_name => g_required_value
633: ,p_token1 => g_col_name_token
634: ,p_token1_value => 'cnl_id');
627: x_return_status := OKC_API.G_RET_STS_SUCCESS;
628: -- check for data before processing
629: IF (p_fepv_rec.cnl_id IS NULL) OR
630: (p_fepv_rec.cnl_id = OKC_API.G_MISS_NUM) THEN
631: OKC_API.SET_MESSAGE(p_app_name => g_app_name
632: ,p_msg_name => g_required_value
633: ,p_token1 => g_col_name_token
634: ,p_token1_value => 'cnl_id');
635: x_return_status := OKC_API.G_RET_STS_ERROR;
631: OKC_API.SET_MESSAGE(p_app_name => g_app_name
632: ,p_msg_name => g_required_value
633: ,p_token1 => g_col_name_token
634: ,p_token1_value => 'cnl_id');
635: x_return_status := OKC_API.G_RET_STS_ERROR;
636: RAISE G_EXCEPTION_HALT_VALIDATION;
637: END IF;
638:
639: EXCEPTION
643: NULL;
644:
645: WHEN OTHERS THEN
646: -- store SQL error message on message stack for caller
647: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
648: p_msg_name => g_unexpected_error,
649: p_token1 => g_sqlcode_token,
650: p_token1_value => sqlcode,
651: p_token2 => g_sqlerrm_token,
651: p_token2 => g_sqlerrm_token,
652: p_token2_value => sqlerrm);
653:
654: -- notify caller of an UNEXPECTED error
655: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
656:
657: END Validate_Cnl_Id;
658:
659: ---------------------------------------------------------------------------
671: PROCEDURE Validate_Pdp_Id(x_return_status OUT NOCOPY VARCHAR2
672: ,p_fepv_rec IN fepv_rec_type)
673: IS
674:
675: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
676:
677: BEGIN
678: -- initialize return status
679: x_return_status := OKC_API.G_RET_STS_SUCCESS;
675: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
676:
677: BEGIN
678: -- initialize return status
679: x_return_status := OKC_API.G_RET_STS_SUCCESS;
680: -- check for data before processing
681: IF (p_fepv_rec.pdp_id IS NULL) OR
682: (p_fepv_rec.pdp_id = OKC_API.G_MISS_NUM) THEN
683: OKC_API.SET_MESSAGE(p_app_name => g_app_name
678: -- initialize return status
679: x_return_status := OKC_API.G_RET_STS_SUCCESS;
680: -- check for data before processing
681: IF (p_fepv_rec.pdp_id IS NULL) OR
682: (p_fepv_rec.pdp_id = OKC_API.G_MISS_NUM) THEN
683: OKC_API.SET_MESSAGE(p_app_name => g_app_name
684: ,p_msg_name => g_required_value
685: ,p_token1 => g_col_name_token
686: ,p_token1_value => 'pdp_id');
679: x_return_status := OKC_API.G_RET_STS_SUCCESS;
680: -- check for data before processing
681: IF (p_fepv_rec.pdp_id IS NULL) OR
682: (p_fepv_rec.pdp_id = OKC_API.G_MISS_NUM) THEN
683: OKC_API.SET_MESSAGE(p_app_name => g_app_name
684: ,p_msg_name => g_required_value
685: ,p_token1 => g_col_name_token
686: ,p_token1_value => 'pdp_id');
687: x_return_status := OKC_API.G_RET_STS_ERROR;
683: OKC_API.SET_MESSAGE(p_app_name => g_app_name
684: ,p_msg_name => g_required_value
685: ,p_token1 => g_col_name_token
686: ,p_token1_value => 'pdp_id');
687: x_return_status := OKC_API.G_RET_STS_ERROR;
688: RAISE G_EXCEPTION_HALT_VALIDATION;
689: END IF;
690:
691: EXCEPTION
695: NULL;
696:
697: WHEN OTHERS THEN
698: -- store SQL error message on message stack for caller
699: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
700: p_msg_name => g_unexpected_error,
701: p_token1 => g_sqlcode_token,
702: p_token1_value => sqlcode,
703: p_token2 => g_sqlerrm_token,
703: p_token2 => g_sqlerrm_token,
704: p_token2_value => sqlerrm);
705:
706: -- notify caller of an UNEXPECTED error
707: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
708:
709: END Validate_Pdp_Id;
710:
711: ---------------------------------------------------------------------------
723: PROCEDURE Validate_Value(x_return_status OUT NOCOPY VARCHAR2
724: ,p_fepv_rec IN fepv_rec_type)
725: IS
726:
727: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
728: l_temp NUMBER ;
729:
730: BEGIN
731: -- initialize return status
728: l_temp NUMBER ;
729:
730: BEGIN
731: -- initialize return status
732: x_return_status := OKC_API.G_RET_STS_SUCCESS;
733:
734: -- check that value should not contain the special characters
735: l_temp := INSTR(p_fepv_rec.value,'<');
736: IF l_temp <> 0 THEN
733:
734: -- check that value should not contain the special characters
735: l_temp := INSTR(p_fepv_rec.value,'<');
736: IF l_temp <> 0 THEN
737: OKC_API.SET_MESSAGE(p_app_name => g_app_name
738: ,p_msg_name => g_invalid_value
739: ,p_token1 => g_col_name_token
740: ,p_token1_value => 'value');
741:
739: ,p_token1 => g_col_name_token
740: ,p_token1_value => 'value');
741:
742: -- notify caller of an error
743: x_return_status := OKC_API.G_RET_STS_ERROR;
744:
745: -- halt further validation of this column
746: RAISE G_EXCEPTION_HALT_VALIDATION;
747: END IF;
747: END IF;
748:
749: l_temp := INSTR(p_fepv_rec.value,'>');
750: IF l_temp <> 0 THEN
751: OKC_API.SET_MESSAGE(p_app_name => g_app_name
752: ,p_msg_name => g_invalid_value
753: ,p_token1 => g_col_name_token
754: ,p_token1_value => 'value');
755:
753: ,p_token1 => g_col_name_token
754: ,p_token1_value => 'value');
755:
756: -- notify caller of an error
757: x_return_status := OKC_API.G_RET_STS_ERROR;
758:
759: -- halt further validation of this column
760: RAISE G_EXCEPTION_HALT_VALIDATION;
761: END IF;
761: END IF;
762:
763: l_temp := INSTR(p_fepv_rec.value,'?');
764: IF l_temp <> 0 THEN
765: OKC_API.SET_MESSAGE(p_app_name => g_app_name
766: ,p_msg_name => g_invalid_value
767: ,p_token1 => g_col_name_token
768: ,p_token1_value => 'value');
769:
767: ,p_token1 => g_col_name_token
768: ,p_token1_value => 'value');
769:
770: -- notify caller of an error
771: x_return_status := OKC_API.G_RET_STS_ERROR;
772:
773: -- halt further validation of this column
774: RAISE G_EXCEPTION_HALT_VALIDATION;
775: END IF;
775: END IF;
776:
777: l_temp := INSTR(p_fepv_rec.value,'[');
778: IF l_temp <> 0 THEN
779: OKC_API.SET_MESSAGE(p_app_name => g_app_name
780: ,p_msg_name => g_invalid_value
781: ,p_token1 => g_col_name_token
782: ,p_token1_value => 'value');
783:
781: ,p_token1 => g_col_name_token
782: ,p_token1_value => 'value');
783:
784: -- notify caller of an error
785: x_return_status := OKC_API.G_RET_STS_ERROR;
786:
787: -- halt further validation of this column
788: RAISE G_EXCEPTION_HALT_VALIDATION;
789: END IF;
789: END IF;
790:
791: l_temp := INSTR(p_fepv_rec.value,']');
792: IF l_temp <> 0 THEN
793: OKC_API.SET_MESSAGE(p_app_name => g_app_name
794: ,p_msg_name => g_invalid_value
795: ,p_token1 => g_col_name_token
796: ,p_token1_value => 'value');
797:
795: ,p_token1 => g_col_name_token
796: ,p_token1_value => 'value');
797:
798: -- notify caller of an error
799: x_return_status := OKC_API.G_RET_STS_ERROR;
800:
801: -- halt further validation of this column
802: RAISE G_EXCEPTION_HALT_VALIDATION;
803: END IF;
803: END IF;
804:
805: l_temp := INSTR(p_fepv_rec.value,'/');
806: IF l_temp <> 0 THEN
807: OKC_API.SET_MESSAGE(p_app_name => g_app_name
808: ,p_msg_name => g_invalid_value
809: ,p_token1 => g_col_name_token
810: ,p_token1_value => 'value');
811:
809: ,p_token1 => g_col_name_token
810: ,p_token1_value => 'value');
811:
812: -- notify caller of an error
813: x_return_status := OKC_API.G_RET_STS_ERROR;
814:
815: -- halt further validation of this column
816: RAISE G_EXCEPTION_HALT_VALIDATION;
817: END IF;
817: END IF;
818:
819: l_temp := INSTR(p_fepv_rec.value,'#');
820: IF l_temp <> 0 THEN
821: OKC_API.SET_MESSAGE(p_app_name => g_app_name
822: ,p_msg_name => g_invalid_value
823: ,p_token1 => g_col_name_token
824: ,p_token1_value => 'value');
825:
823: ,p_token1 => g_col_name_token
824: ,p_token1_value => 'value');
825:
826: -- notify caller of an error
827: x_return_status := OKC_API.G_RET_STS_ERROR;
828:
829: -- halt further validation of this column
830: RAISE G_EXCEPTION_HALT_VALIDATION;
831: END IF;
831: END IF;
832:
833: l_temp := INSTR(p_fepv_rec.value,'.');
834: IF l_temp <> 0 THEN
835: OKC_API.SET_MESSAGE(p_app_name => g_app_name
836: ,p_msg_name => g_invalid_value
837: ,p_token1 => g_col_name_token
838: ,p_token1_value => 'value');
839:
837: ,p_token1 => g_col_name_token
838: ,p_token1_value => 'value');
839:
840: -- notify caller of an error
841: x_return_status := OKC_API.G_RET_STS_ERROR;
842:
843: -- halt further validation of this column
844: RAISE G_EXCEPTION_HALT_VALIDATION;
845: END IF;
845: END IF;
846:
847: l_temp := INSTR(p_fepv_rec.value,'=');
848: IF l_temp <> 0 THEN
849: OKC_API.SET_MESSAGE(p_app_name => g_app_name
850: ,p_msg_name => g_invalid_value
851: ,p_token1 => g_col_name_token
852: ,p_token1_value => 'value');
853:
851: ,p_token1 => g_col_name_token
852: ,p_token1_value => 'value');
853:
854: -- notify caller of an error
855: x_return_status := OKC_API.G_RET_STS_ERROR;
856:
857: -- halt further validation of this column
858: RAISE G_EXCEPTION_HALT_VALIDATION;
859: END IF;
859: END IF;
860:
861: l_temp := INSTR(p_fepv_rec.value,'!');
862: IF l_temp <> 0 THEN
863: OKC_API.SET_MESSAGE(p_app_name => g_app_name
864: ,p_msg_name => g_invalid_value
865: ,p_token1 => g_col_name_token
866: ,p_token1_value => 'value');
867:
865: ,p_token1 => g_col_name_token
866: ,p_token1_value => 'value');
867:
868: -- notify caller of an error
869: x_return_status := OKC_API.G_RET_STS_ERROR;
870:
871: -- halt further validation of this column
872: RAISE G_EXCEPTION_HALT_VALIDATION;
873: END IF;
873: END IF;
874:
875: l_temp := INSTR(p_fepv_rec.value,',');
876: IF l_temp <> 0 THEN
877: OKC_API.SET_MESSAGE(p_app_name => g_app_name
878: ,p_msg_name => g_invalid_value
879: ,p_token1 => g_col_name_token
880: ,p_token1_value => 'value');
881:
879: ,p_token1 => g_col_name_token
880: ,p_token1_value => 'value');
881:
882: -- notify caller of an error
883: x_return_status := OKC_API.G_RET_STS_ERROR;
884:
885: -- halt further validation of this column
886: RAISE G_EXCEPTION_HALT_VALIDATION;
887: END IF;
887: END IF;
888:
889: l_temp := INSTR(p_fepv_rec.value,'(');
890: IF l_temp <> 0 THEN
891: OKC_API.SET_MESSAGE(p_app_name => g_app_name
892: ,p_msg_name => g_invalid_value
893: ,p_token1 => g_col_name_token
894: ,p_token1_value => 'value');
895:
893: ,p_token1 => g_col_name_token
894: ,p_token1_value => 'value');
895:
896: -- notify caller of an error
897: x_return_status := OKC_API.G_RET_STS_ERROR;
898:
899: -- halt further validation of this column
900: RAISE G_EXCEPTION_HALT_VALIDATION;
901: END IF;
901: END IF;
902:
903: l_temp := INSTR(p_fepv_rec.value,')');
904: IF l_temp <> 0 THEN
905: OKC_API.SET_MESSAGE(p_app_name => g_app_name
906: ,p_msg_name => g_invalid_value
907: ,p_token1 => g_col_name_token
908: ,p_token1_value => 'value');
909:
907: ,p_token1 => g_col_name_token
908: ,p_token1_value => 'value');
909:
910: -- notify caller of an error
911: x_return_status := OKC_API.G_RET_STS_ERROR;
912:
913: -- halt further validation of this column
914: RAISE G_EXCEPTION_HALT_VALIDATION;
915: END IF;
921: NULL;
922:
923: WHEN OTHERS THEN
924: -- store SQL error message on message stack for caller
925: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
926: p_msg_name => g_unexpected_error,
927: p_token1 => g_sqlcode_token,
928: p_token1_value => sqlcode,
929: p_token2 => g_sqlerrm_token,
929: p_token2 => g_sqlerrm_token,
930: p_token2_value => sqlerrm);
931:
932: -- notify caller of an UNEXPECTED error
933: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
934:
935: END Validate_Value;
936:
937: ---------------------------------------------------------------------------
949: PROCEDURE Validate_Unique_Fep_Record(x_return_status OUT NOCOPY VARCHAR2
950: ,p_fepv_rec IN fepv_rec_type) IS
951:
952:
953: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
954: --l_unq_tbl OKC_UTIL.unq_tbl_type;
955: l_dummy VARCHAR2(1);
956: l_row_found Boolean := False;
957: CURSOR c1(p_cnl_id okc_function_expr_params_v.cnl_id%TYPE,
963: AND id <> nvl(p_fepv_rec.id,-99999);
964:
965: BEGIN
966: -- initialize return status
967: x_return_status := OKC_API.G_RET_STS_SUCCESS;
968:
969:
970: /*Bug 1636056:The following code commented out nocopy since it was not using bind
971: variables and parsing was taking place.Replaced with explicit cursor
978: l_unq_tbl(2).p_col_name := 'pdp_id';
979: l_unq_tbl(2).p_col_val := p_fepv_rec.pdp_id;
980:
981: -- initialize return status
982: x_return_status := OKC_API.G_RET_STS_SUCCESS;
983:
984: -- call check_comp_unique utility
985: OKC_UTIL.CHECK_COMP_UNIQUE(p_view_name => 'OKC_FUNCTION_EXPR_PARAMS_V'
986: ,p_col_tbl => l_unq_tbl
987: ,p_id => p_fepv_rec.id
988: ,x_return_status => l_return_status);
989:
990:
991: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
992: -- notify caller of an error
993: x_return_status := OKC_API.G_RET_STS_ERROR;
994: -- halt further validation of this column
995: RAISE G_EXCEPTION_HALT_VALIDATION;
989:
990:
991: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
992: -- notify caller of an error
993: x_return_status := OKC_API.G_RET_STS_ERROR;
994: -- halt further validation of this column
995: RAISE G_EXCEPTION_HALT_VALIDATION;
996: END IF;
997: */
1000: FETCH c1 into l_dummy;
1001: l_row_found := c1%FOUND;
1002: CLOSE c1;
1003: IF l_row_found then
1004: --OKC_API.set_message(G_APP_NAME,G_UNQS,G_COL_NAME_TOKEN1,'cnl_id',G_COL_NAME_TOKEN2,'pdp_id');
1005: OKC_API.set_message(G_APP_NAME,G_UNQS);
1006: x_return_status := OKC_API.G_RET_STS_ERROR;
1007: END IF;
1008:
1001: l_row_found := c1%FOUND;
1002: CLOSE c1;
1003: IF l_row_found then
1004: --OKC_API.set_message(G_APP_NAME,G_UNQS,G_COL_NAME_TOKEN1,'cnl_id',G_COL_NAME_TOKEN2,'pdp_id');
1005: OKC_API.set_message(G_APP_NAME,G_UNQS);
1006: x_return_status := OKC_API.G_RET_STS_ERROR;
1007: END IF;
1008:
1009: EXCEPTION
1002: CLOSE c1;
1003: IF l_row_found then
1004: --OKC_API.set_message(G_APP_NAME,G_UNQS,G_COL_NAME_TOKEN1,'cnl_id',G_COL_NAME_TOKEN2,'pdp_id');
1005: OKC_API.set_message(G_APP_NAME,G_UNQS);
1006: x_return_status := OKC_API.G_RET_STS_ERROR;
1007: END IF;
1008:
1009: EXCEPTION
1010: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1013: NULL;
1014:
1015: WHEN OTHERS THEN
1016: -- store SQL error message on message stack for caller
1017: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1018: p_msg_name => g_unexpected_error,
1019: p_token1 => g_sqlcode_token,
1020: p_token1_value => sqlcode,
1021: p_token2 => g_sqlerrm_token,
1021: p_token2 => g_sqlerrm_token,
1022: p_token2_value => sqlerrm);
1023:
1024: -- notify caller of an UNEXPECTED error
1025: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1026:
1027: END Validate_Unique_Fep_Record;
1028:
1029: ---------------------------------------------------------------------------
1062: WHERE okc_process_def_parameters_v.id = p_id;
1063:
1064: l_dummy1 VARCHAR2(1);
1065:
1066: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1067: l_row_notfound BOOLEAN := TRUE;
1068: BEGIN
1069: IF (p_fepv_rec.CNL_ID IS NOT NULL)
1070: THEN
1072: FETCH okc_cnlv_pk_csr INTO l_dummy_var;
1073: l_row_notfound := okc_cnlv_pk_csr%NOTFOUND;
1074: CLOSE okc_cnlv_pk_csr;
1075: IF (l_row_notfound) THEN
1076: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CNL_ID');
1077: RAISE item_not_found_error;
1078: END IF;
1079: END IF;
1080: IF (p_fepv_rec.AAE_ID IS NOT NULL)
1083: FETCH okc_aaev_pk_csr INTO l_dummy;
1084: l_row_notfound := okc_aaev_pk_csr%NOTFOUND;
1085: CLOSE okc_aaev_pk_csr;
1086: IF (l_row_notfound) THEN
1087: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'AAE_ID');
1088: RAISE item_not_found_error;
1089: END IF;
1090: END IF;
1091: IF (p_fepv_rec.PDP_ID IS NOT NULL)
1094: FETCH okc_pdpv_pk_csr INTO l_dummy;
1095: l_row_notfound := okc_pdpv_pk_csr%NOTFOUND;
1096: CLOSE okc_pdpv_pk_csr;
1097: IF (l_row_notfound) THEN
1098: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PDP_ID');
1099: RAISE item_not_found_error;
1100: END IF;
1101: END IF;
1102: RETURN (l_return_status);
1101: END IF;
1102: RETURN (l_return_status);
1103: EXCEPTION
1104: WHEN item_not_found_error THEN
1105: l_return_status := OKC_API.G_RET_STS_ERROR;
1106: RETURN (l_return_status);
1107: END validate_foreign_keys;
1108:
1109: ---------------------------------------------------------------------------
1121:
1122: FUNCTION Validate_Attributes (
1123: p_fepv_rec IN fepv_rec_type
1124: ) RETURN VARCHAR2 IS
1125: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1126: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1127:
1128: BEGIN
1129: -- call each column-level validation
1122: FUNCTION Validate_Attributes (
1123: p_fepv_rec IN fepv_rec_type
1124: ) RETURN VARCHAR2 IS
1125: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1126: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1127:
1128: BEGIN
1129: -- call each column-level validation
1130:
1128: BEGIN
1129: -- call each column-level validation
1130:
1131: -- Validate_Id
1132: IF p_fepv_rec.id = OKC_API.G_MISS_NUM OR
1133: p_fepv_rec.id IS NULL
1134: THEN
1135: OKC_API.set_message(G_APP_NAME,G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1136: l_return_status := OKC_API.G_RET_STS_ERROR;
1131: -- Validate_Id
1132: IF p_fepv_rec.id = OKC_API.G_MISS_NUM OR
1133: p_fepv_rec.id IS NULL
1134: THEN
1135: OKC_API.set_message(G_APP_NAME,G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1136: l_return_status := OKC_API.G_RET_STS_ERROR;
1137: END IF;
1138:
1139: -- Validate Object_Version_Number
1132: IF p_fepv_rec.id = OKC_API.G_MISS_NUM OR
1133: p_fepv_rec.id IS NULL
1134: THEN
1135: OKC_API.set_message(G_APP_NAME,G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1136: l_return_status := OKC_API.G_RET_STS_ERROR;
1137: END IF;
1138:
1139: -- Validate Object_Version_Number
1140: Validate_Object_Version_Number(x_return_status,p_fepv_rec);
1138:
1139: -- Validate Object_Version_Number
1140: Validate_Object_Version_Number(x_return_status,p_fepv_rec);
1141: -- store the highest degree of error
1142: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1143: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1144: -- need to leave
1145: l_return_status := x_return_status;
1146: RAISE G_EXCEPTION_HALT_VALIDATION;
1139: -- Validate Object_Version_Number
1140: Validate_Object_Version_Number(x_return_status,p_fepv_rec);
1141: -- store the highest degree of error
1142: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1143: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1144: -- need to leave
1145: l_return_status := x_return_status;
1146: RAISE G_EXCEPTION_HALT_VALIDATION;
1147: ELSE
1152:
1153: -- Validate Seeded_Flag
1154: Validate_Seeded_Flag(x_return_status,p_fepv_rec);
1155: -- store the highest degree of error
1156: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1158: -- need to leave
1159: l_return_status := x_return_status;
1160: RAISE G_EXCEPTION_HALT_VALIDATION;
1153: -- Validate Seeded_Flag
1154: Validate_Seeded_Flag(x_return_status,p_fepv_rec);
1155: -- store the highest degree of error
1156: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1158: -- need to leave
1159: l_return_status := x_return_status;
1160: RAISE G_EXCEPTION_HALT_VALIDATION;
1161: ELSE
1166:
1167: -- Validate Application_Id
1168: Validate_Application_Id(x_return_status,p_fepv_rec);
1169: -- store the highest degree of error
1170: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1171: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1172: -- need to leave
1173: l_return_status := x_return_status;
1174: RAISE G_EXCEPTION_HALT_VALIDATION;
1167: -- Validate Application_Id
1168: Validate_Application_Id(x_return_status,p_fepv_rec);
1169: -- store the highest degree of error
1170: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1171: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1172: -- need to leave
1173: l_return_status := x_return_status;
1174: RAISE G_EXCEPTION_HALT_VALIDATION;
1175: ELSE
1180:
1181: -- Validate Cnl_Id
1182: Validate_Cnl_Id(x_return_status,p_fepv_rec);
1183: -- store the highest degree of error
1184: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1185: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1186: -- need to leave
1187: l_return_status := x_return_status;
1188: RAISE G_EXCEPTION_HALT_VALIDATION;
1181: -- Validate Cnl_Id
1182: Validate_Cnl_Id(x_return_status,p_fepv_rec);
1183: -- store the highest degree of error
1184: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1185: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1186: -- need to leave
1187: l_return_status := x_return_status;
1188: RAISE G_EXCEPTION_HALT_VALIDATION;
1189: ELSE
1194:
1195: -- Validate Pdp_Id
1196: Validate_Pdp_Id(x_return_status,p_fepv_rec);
1197: -- store the highest degree of error
1198: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1199: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1200: -- need to leave
1201: l_return_status := x_return_status;
1202: RAISE G_EXCEPTION_HALT_VALIDATION;
1195: -- Validate Pdp_Id
1196: Validate_Pdp_Id(x_return_status,p_fepv_rec);
1197: -- store the highest degree of error
1198: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1199: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1200: -- need to leave
1201: l_return_status := x_return_status;
1202: RAISE G_EXCEPTION_HALT_VALIDATION;
1203: ELSE
1207: END IF;
1208:
1209: -- Validate_Foreign_Keys;
1210: l_return_status := Validate_Foreign_Keys(p_fepv_rec);
1211: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1213: -- need to leave
1214: x_return_status := l_return_status;
1215: RAISE G_EXCEPTION_HALT_VALIDATION;
1208:
1209: -- Validate_Foreign_Keys;
1210: l_return_status := Validate_Foreign_Keys(p_fepv_rec);
1211: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1213: -- need to leave
1214: x_return_status := l_return_status;
1215: RAISE G_EXCEPTION_HALT_VALIDATION;
1216: ELSE
1225: NULL;
1226: RETURN (l_return_status);
1227: WHEN OTHERS THEN
1228: -- store SQL error message on message stack for caller
1229: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1230: p_msg_name => g_unexpected_error,
1231: p_token1 => g_sqlcode_token,
1232: p_token1_value => sqlcode,
1233: p_token2 => g_sqlerrm_token,
1232: p_token1_value => sqlcode,
1233: p_token2 => g_sqlerrm_token,
1234: p_token2_value => sqlerrm);
1235: -- notify caller of an UNEXPECTED error
1236: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1237: RETURN(l_return_status);
1238:
1239: END Validate_Attributes;
1240:
1241:
1242: FUNCTION Validate_Record (
1243: p_fepv_rec IN fepv_rec_type
1244: ) RETURN VARCHAR2 IS
1245: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1246: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1247: BEGIN
1248: -- Validate Unique_Fep_Record
1249: Validate_Unique_Fep_Record(x_return_status,p_fepv_rec);
1242: FUNCTION Validate_Record (
1243: p_fepv_rec IN fepv_rec_type
1244: ) RETURN VARCHAR2 IS
1245: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1246: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1247: BEGIN
1248: -- Validate Unique_Fep_Record
1249: Validate_Unique_Fep_Record(x_return_status,p_fepv_rec);
1250: -- store the highest degree of error
1247: BEGIN
1248: -- Validate Unique_Fep_Record
1249: Validate_Unique_Fep_Record(x_return_status,p_fepv_rec);
1250: -- store the highest degree of error
1251: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1252: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1253: -- need to leave
1254: l_return_status := x_return_status;
1255: RAISE G_EXCEPTION_HALT_VALIDATION;
1248: -- Validate Unique_Fep_Record
1249: Validate_Unique_Fep_Record(x_return_status,p_fepv_rec);
1250: -- store the highest degree of error
1251: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1252: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1253: -- need to leave
1254: l_return_status := x_return_status;
1255: RAISE G_EXCEPTION_HALT_VALIDATION;
1256: ELSE
1323: p_fepv_rec IN fepv_rec_type) IS
1324:
1325: l_api_version CONSTANT NUMBER := 1;
1326: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1327: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1328: l_fepv_rec fepv_rec_type := p_fepv_rec;
1329: l_fep_rec fep_rec_type;
1330: BEGIN
1331: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1327: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1328: l_fepv_rec fepv_rec_type := p_fepv_rec;
1329: l_fep_rec fep_rec_type;
1330: BEGIN
1331: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1332: G_PKG_NAME,
1333: p_init_msg_list,
1334: l_api_version,
1335: p_api_version,
1334: l_api_version,
1335: p_api_version,
1336: '_PVT',
1337: x_return_status);
1338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_ERROR;
1342: END IF;
1335: p_api_version,
1336: '_PVT',
1337: x_return_status);
1338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_ERROR;
1342: END IF;
1343: --- Validate all non-missing attributes (Item Level Validation)
1336: '_PVT',
1337: x_return_status);
1338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_ERROR;
1342: END IF;
1343: --- Validate all non-missing attributes (Item Level Validation)
1344: l_return_status := Validate_Attributes(l_fepv_rec);
1337: x_return_status);
1338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_ERROR;
1342: END IF;
1343: --- Validate all non-missing attributes (Item Level Validation)
1344: l_return_status := Validate_Attributes(l_fepv_rec);
1345: --- If any errors happen abort API
1342: END IF;
1343: --- Validate all non-missing attributes (Item Level Validation)
1344: l_return_status := Validate_Attributes(l_fepv_rec);
1345: --- If any errors happen abort API
1346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1349: RAISE OKC_API.G_EXCEPTION_ERROR;
1350: END IF;
1343: --- Validate all non-missing attributes (Item Level Validation)
1344: l_return_status := Validate_Attributes(l_fepv_rec);
1345: --- If any errors happen abort API
1346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1349: RAISE OKC_API.G_EXCEPTION_ERROR;
1350: END IF;
1351: l_return_status := Validate_Record(l_fepv_rec);
1344: l_return_status := Validate_Attributes(l_fepv_rec);
1345: --- If any errors happen abort API
1346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1349: RAISE OKC_API.G_EXCEPTION_ERROR;
1350: END IF;
1351: l_return_status := Validate_Record(l_fepv_rec);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1345: --- If any errors happen abort API
1346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1349: RAISE OKC_API.G_EXCEPTION_ERROR;
1350: END IF;
1351: l_return_status := Validate_Record(l_fepv_rec);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1349: RAISE OKC_API.G_EXCEPTION_ERROR;
1350: END IF;
1351: l_return_status := Validate_Record(l_fepv_rec);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1349: RAISE OKC_API.G_EXCEPTION_ERROR;
1350: END IF;
1351: l_return_status := Validate_Record(l_fepv_rec);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1350: END IF;
1351: l_return_status := Validate_Record(l_fepv_rec);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1358: EXCEPTION
1351: l_return_status := Validate_Record(l_fepv_rec);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1358: EXCEPTION
1359: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1358: EXCEPTION
1359: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1360: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1361: (
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1358: EXCEPTION
1359: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1360: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1361: (
1362: l_api_name,
1363: G_PKG_NAME,
1356: END IF;
1357: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1358: EXCEPTION
1359: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1360: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1361: (
1362: l_api_name,
1363: G_PKG_NAME,
1364: 'OKC_API.G_RET_STS_ERROR',
1360: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1361: (
1362: l_api_name,
1363: G_PKG_NAME,
1364: 'OKC_API.G_RET_STS_ERROR',
1365: x_msg_count,
1366: x_msg_data,
1367: '_PVT'
1368: );
1365: x_msg_count,
1366: x_msg_data,
1367: '_PVT'
1368: );
1369: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1370: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1371: (
1372: l_api_name,
1373: G_PKG_NAME,
1366: x_msg_data,
1367: '_PVT'
1368: );
1369: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1370: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1371: (
1372: l_api_name,
1373: G_PKG_NAME,
1374: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1370: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1371: (
1372: l_api_name,
1373: G_PKG_NAME,
1374: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1375: x_msg_count,
1376: x_msg_data,
1377: '_PVT'
1378: );
1376: x_msg_data,
1377: '_PVT'
1378: );
1379: WHEN OTHERS THEN
1380: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1381: (
1382: l_api_name,
1383: G_PKG_NAME,
1384: 'OTHERS',
1399: p_fepv_tbl IN fepv_tbl_type) IS
1400:
1401: l_api_version CONSTANT NUMBER := 1;
1402: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1403: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1404: i NUMBER := 0;
1405: BEGIN
1406: OKC_API.init_msg_list(p_init_msg_list);
1407: -- Make sure PL/SQL table has records in it before passing
1402: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1403: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1404: i NUMBER := 0;
1405: BEGIN
1406: OKC_API.init_msg_list(p_init_msg_list);
1407: -- Make sure PL/SQL table has records in it before passing
1408: IF (p_fepv_tbl.COUNT > 0) THEN
1409: i := p_fepv_tbl.FIRST;
1410: LOOP
1409: i := p_fepv_tbl.FIRST;
1410: LOOP
1411: validate_row (
1412: p_api_version => p_api_version,
1413: p_init_msg_list => OKC_API.G_FALSE,
1414: x_return_status => x_return_status,
1415: x_msg_count => x_msg_count,
1416: x_msg_data => x_msg_data,
1417: p_fepv_rec => p_fepv_tbl(i));
1419: i := p_fepv_tbl.NEXT(i);
1420: END LOOP;
1421: END IF;
1422: EXCEPTION
1423: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1424: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1425: (
1426: l_api_name,
1427: G_PKG_NAME,
1420: END LOOP;
1421: END IF;
1422: EXCEPTION
1423: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1424: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1425: (
1426: l_api_name,
1427: G_PKG_NAME,
1428: 'OKC_API.G_RET_STS_ERROR',
1424: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1425: (
1426: l_api_name,
1427: G_PKG_NAME,
1428: 'OKC_API.G_RET_STS_ERROR',
1429: x_msg_count,
1430: x_msg_data,
1431: '_PVT'
1432: );
1429: x_msg_count,
1430: x_msg_data,
1431: '_PVT'
1432: );
1433: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1434: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1435: (
1436: l_api_name,
1437: G_PKG_NAME,
1430: x_msg_data,
1431: '_PVT'
1432: );
1433: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1434: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1435: (
1436: l_api_name,
1437: G_PKG_NAME,
1438: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1434: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1435: (
1436: l_api_name,
1437: G_PKG_NAME,
1438: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1439: x_msg_count,
1440: x_msg_data,
1441: '_PVT'
1442: );
1440: x_msg_data,
1441: '_PVT'
1442: );
1443: WHEN OTHERS THEN
1444: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1445: (
1446: l_api_name,
1447: G_PKG_NAME,
1448: 'OTHERS',
1467: x_fep_rec OUT NOCOPY fep_rec_type) IS
1468:
1469: l_api_version CONSTANT NUMBER := 1;
1470: l_api_name CONSTANT VARCHAR2(30) := 'PARAMS_insert_row';
1471: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1472: l_fep_rec fep_rec_type := p_fep_rec;
1473: l_def_fep_rec fep_rec_type;
1474: -------------------------------------------------
1475: -- Set_Attributes for:OKC_FUNCTION_EXPR_PARAMS --
1477: FUNCTION Set_Attributes (
1478: p_fep_rec IN fep_rec_type,
1479: x_fep_rec OUT NOCOPY fep_rec_type
1480: ) RETURN VARCHAR2 IS
1481: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1482: BEGIN
1483: x_fep_rec := p_fep_rec;
1484: RETURN(l_return_status);
1485: END Set_Attributes;
1483: x_fep_rec := p_fep_rec;
1484: RETURN(l_return_status);
1485: END Set_Attributes;
1486: BEGIN
1487: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1488: p_init_msg_list,
1489: '_PVT',
1490: x_return_status);
1491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1487: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1488: p_init_msg_list,
1489: '_PVT',
1490: x_return_status);
1491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1494: RAISE OKC_API.G_EXCEPTION_ERROR;
1495: END IF;
1488: p_init_msg_list,
1489: '_PVT',
1490: x_return_status);
1491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1494: RAISE OKC_API.G_EXCEPTION_ERROR;
1495: END IF;
1496: --- Setting item attributes
1489: '_PVT',
1490: x_return_status);
1491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1494: RAISE OKC_API.G_EXCEPTION_ERROR;
1495: END IF;
1496: --- Setting item attributes
1497: l_return_status := Set_Attributes(
1490: x_return_status);
1491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1494: RAISE OKC_API.G_EXCEPTION_ERROR;
1495: END IF;
1496: --- Setting item attributes
1497: l_return_status := Set_Attributes(
1498: p_fep_rec, -- IN
1497: l_return_status := Set_Attributes(
1498: p_fep_rec, -- IN
1499: l_fep_rec); -- OUT
1500: --- If any errors happen abort API
1501: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1502: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1503: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1504: RAISE OKC_API.G_EXCEPTION_ERROR;
1505: END IF;
1498: p_fep_rec, -- IN
1499: l_fep_rec); -- OUT
1500: --- If any errors happen abort API
1501: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1502: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1503: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1504: RAISE OKC_API.G_EXCEPTION_ERROR;
1505: END IF;
1506: INSERT INTO OKC_FUNCTION_EXPR_PARAMS(
1499: l_fep_rec); -- OUT
1500: --- If any errors happen abort API
1501: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1502: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1503: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1504: RAISE OKC_API.G_EXCEPTION_ERROR;
1505: END IF;
1506: INSERT INTO OKC_FUNCTION_EXPR_PARAMS(
1507: id,
1500: --- If any errors happen abort API
1501: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1502: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1503: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1504: RAISE OKC_API.G_EXCEPTION_ERROR;
1505: END IF;
1506: INSERT INTO OKC_FUNCTION_EXPR_PARAMS(
1507: id,
1508: cnl_id,
1534: l_fep_rec.last_update_date,
1535: l_fep_rec.last_update_login);
1536: -- Set OUT values
1537: x_fep_rec := l_fep_rec;
1538: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1539: EXCEPTION
1540: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1541: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1542: (
1536: -- Set OUT values
1537: x_fep_rec := l_fep_rec;
1538: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1539: EXCEPTION
1540: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1541: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1542: (
1543: l_api_name,
1544: G_PKG_NAME,
1537: x_fep_rec := l_fep_rec;
1538: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1539: EXCEPTION
1540: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1541: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1542: (
1543: l_api_name,
1544: G_PKG_NAME,
1545: 'OKC_API.G_RET_STS_ERROR',
1541: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1542: (
1543: l_api_name,
1544: G_PKG_NAME,
1545: 'OKC_API.G_RET_STS_ERROR',
1546: x_msg_count,
1547: x_msg_data,
1548: '_PVT'
1549: );
1546: x_msg_count,
1547: x_msg_data,
1548: '_PVT'
1549: );
1550: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1551: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1552: (
1553: l_api_name,
1554: G_PKG_NAME,
1547: x_msg_data,
1548: '_PVT'
1549: );
1550: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1551: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1552: (
1553: l_api_name,
1554: G_PKG_NAME,
1555: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1551: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1552: (
1553: l_api_name,
1554: G_PKG_NAME,
1555: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1556: x_msg_count,
1557: x_msg_data,
1558: '_PVT'
1559: );
1557: x_msg_data,
1558: '_PVT'
1559: );
1560: WHEN OTHERS THEN
1561: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1562: (
1563: l_api_name,
1564: G_PKG_NAME,
1565: 'OTHERS',
1582:
1583: l_id NUMBER ;
1584: l_api_version CONSTANT NUMBER := 1;
1585: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1586: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1587: l_fepv_rec fepv_rec_type;
1588: l_def_fepv_rec fepv_rec_type;
1589: l_fep_rec fep_rec_type;
1590: lx_fep_rec fep_rec_type;
1609: FUNCTION Set_Attributes (
1610: p_fepv_rec IN fepv_rec_type,
1611: x_fepv_rec OUT NOCOPY fepv_rec_type
1612: ) RETURN VARCHAR2 IS
1613: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1614: BEGIN
1615: x_fepv_rec := p_fepv_rec;
1616: x_fepv_rec.OBJECT_VERSION_NUMBER := 1;
1617: RETURN(l_return_status);
1616: x_fepv_rec.OBJECT_VERSION_NUMBER := 1;
1617: RETURN(l_return_status);
1618: END Set_Attributes;
1619: BEGIN
1620: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1621: G_PKG_NAME,
1622: p_init_msg_list,
1623: l_api_version,
1624: p_api_version,
1623: l_api_version,
1624: p_api_version,
1625: '_PVT',
1626: x_return_status);
1627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1630: RAISE OKC_API.G_EXCEPTION_ERROR;
1631: END IF;
1624: p_api_version,
1625: '_PVT',
1626: x_return_status);
1627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1630: RAISE OKC_API.G_EXCEPTION_ERROR;
1631: END IF;
1632: l_fepv_rec := null_out_defaults(p_fepv_rec);
1625: '_PVT',
1626: x_return_status);
1627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1630: RAISE OKC_API.G_EXCEPTION_ERROR;
1631: END IF;
1632: l_fepv_rec := null_out_defaults(p_fepv_rec);
1633: -- Set primary key value
1626: x_return_status);
1627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1630: RAISE OKC_API.G_EXCEPTION_ERROR;
1631: END IF;
1632: l_fepv_rec := null_out_defaults(p_fepv_rec);
1633: -- Set primary key value
1634: -- If function expression parameters is created by seed then use sequence generated id
1645: l_return_status := Set_Attributes(
1646: l_fepv_rec, -- IN
1647: l_def_fepv_rec); -- OUT
1648: --- If any errors happen abort API
1649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1652: RAISE OKC_API.G_EXCEPTION_ERROR;
1653: END IF;
1646: l_fepv_rec, -- IN
1647: l_def_fepv_rec); -- OUT
1648: --- If any errors happen abort API
1649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1652: RAISE OKC_API.G_EXCEPTION_ERROR;
1653: END IF;
1654: l_def_fepv_rec := fill_who_columns(l_def_fepv_rec);
1647: l_def_fepv_rec); -- OUT
1648: --- If any errors happen abort API
1649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1652: RAISE OKC_API.G_EXCEPTION_ERROR;
1653: END IF;
1654: l_def_fepv_rec := fill_who_columns(l_def_fepv_rec);
1655: --- Validate all non-missing attributes (Item Level Validation)
1648: --- If any errors happen abort API
1649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1652: RAISE OKC_API.G_EXCEPTION_ERROR;
1653: END IF;
1654: l_def_fepv_rec := fill_who_columns(l_def_fepv_rec);
1655: --- Validate all non-missing attributes (Item Level Validation)
1656: l_return_status := Validate_Attributes(l_def_fepv_rec);
1654: l_def_fepv_rec := fill_who_columns(l_def_fepv_rec);
1655: --- Validate all non-missing attributes (Item Level Validation)
1656: l_return_status := Validate_Attributes(l_def_fepv_rec);
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1655: --- Validate all non-missing attributes (Item Level Validation)
1656: l_return_status := Validate_Attributes(l_def_fepv_rec);
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: l_return_status := Validate_Record(l_def_fepv_rec);
1656: l_return_status := Validate_Attributes(l_def_fepv_rec);
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: l_return_status := Validate_Record(l_def_fepv_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: l_return_status := Validate_Record(l_def_fepv_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: l_return_status := Validate_Record(l_def_fepv_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1667: RAISE OKC_API.G_EXCEPTION_ERROR;
1668: END IF;
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: l_return_status := Validate_Record(l_def_fepv_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1667: RAISE OKC_API.G_EXCEPTION_ERROR;
1668: END IF;
1669:
1662: END IF;
1663: l_return_status := Validate_Record(l_def_fepv_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1667: RAISE OKC_API.G_EXCEPTION_ERROR;
1668: END IF;
1669:
1670: /********* ADDED TO CHECK THE UNIQUENESS ***************************
1663: l_return_status := Validate_Record(l_def_fepv_rec);
1664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1667: RAISE OKC_API.G_EXCEPTION_ERROR;
1668: END IF;
1669:
1670: /********* ADDED TO CHECK THE UNIQUENESS ***************************
1671: -- Validate Unique_Fep_Record
1670: /********* ADDED TO CHECK THE UNIQUENESS ***************************
1671: -- Validate Unique_Fep_Record
1672: Validate_Unique_Fep_Record(x_return_status,p_fepv_rec);
1673: -- store the highest degree of error
1674: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1675: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1676: -- need to leave
1677: l_return_status := x_return_status;
1678: RAISE G_EXCEPTION_HALT_VALIDATION;
1671: -- Validate Unique_Fep_Record
1672: Validate_Unique_Fep_Record(x_return_status,p_fepv_rec);
1673: -- store the highest degree of error
1674: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1675: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1676: -- need to leave
1677: l_return_status := x_return_status;
1678: RAISE G_EXCEPTION_HALT_VALIDATION;
1679: ELSE
1697: x_msg_data,
1698: l_fep_rec,
1699: lx_fep_rec
1700: );
1701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1704: RAISE OKC_API.G_EXCEPTION_ERROR;
1705: END IF;
1698: l_fep_rec,
1699: lx_fep_rec
1700: );
1701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1704: RAISE OKC_API.G_EXCEPTION_ERROR;
1705: END IF;
1706: migrate(lx_fep_rec, l_def_fepv_rec);
1699: lx_fep_rec
1700: );
1701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1704: RAISE OKC_API.G_EXCEPTION_ERROR;
1705: END IF;
1706: migrate(lx_fep_rec, l_def_fepv_rec);
1707: -- Set OUT values
1700: );
1701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1704: RAISE OKC_API.G_EXCEPTION_ERROR;
1705: END IF;
1706: migrate(lx_fep_rec, l_def_fepv_rec);
1707: -- Set OUT values
1708: x_fepv_rec := l_def_fepv_rec;
1705: END IF;
1706: migrate(lx_fep_rec, l_def_fepv_rec);
1707: -- Set OUT values
1708: x_fepv_rec := l_def_fepv_rec;
1709: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1710: EXCEPTION
1711: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1712: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1713: (
1707: -- Set OUT values
1708: x_fepv_rec := l_def_fepv_rec;
1709: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1710: EXCEPTION
1711: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1712: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1713: (
1714: l_api_name,
1715: G_PKG_NAME,
1708: x_fepv_rec := l_def_fepv_rec;
1709: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1710: EXCEPTION
1711: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1712: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1713: (
1714: l_api_name,
1715: G_PKG_NAME,
1716: 'OKC_API.G_RET_STS_ERROR',
1712: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1713: (
1714: l_api_name,
1715: G_PKG_NAME,
1716: 'OKC_API.G_RET_STS_ERROR',
1717: x_msg_count,
1718: x_msg_data,
1719: '_PVT'
1720: );
1717: x_msg_count,
1718: x_msg_data,
1719: '_PVT'
1720: );
1721: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1722: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1723: (
1724: l_api_name,
1725: G_PKG_NAME,
1718: x_msg_data,
1719: '_PVT'
1720: );
1721: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1722: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1723: (
1724: l_api_name,
1725: G_PKG_NAME,
1726: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1722: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1723: (
1724: l_api_name,
1725: G_PKG_NAME,
1726: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1727: x_msg_count,
1728: x_msg_data,
1729: '_PVT'
1730: );
1728: x_msg_data,
1729: '_PVT'
1730: );
1731: WHEN OTHERS THEN
1732: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1733: (
1734: l_api_name,
1735: G_PKG_NAME,
1736: 'OTHERS',
1752: x_fepv_tbl OUT NOCOPY fepv_tbl_type) IS
1753:
1754: l_api_version CONSTANT NUMBER := 1;
1755: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1756: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1757: i NUMBER := 0;
1758: BEGIN
1759: OKC_API.init_msg_list(p_init_msg_list);
1760: -- Make sure PL/SQL table has records in it before passing
1755: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1756: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1757: i NUMBER := 0;
1758: BEGIN
1759: OKC_API.init_msg_list(p_init_msg_list);
1760: -- Make sure PL/SQL table has records in it before passing
1761: IF (p_fepv_tbl.COUNT > 0) THEN
1762: i := p_fepv_tbl.FIRST;
1763: LOOP
1762: i := p_fepv_tbl.FIRST;
1763: LOOP
1764: insert_row (
1765: p_api_version => p_api_version,
1766: p_init_msg_list => OKC_API.G_FALSE,
1767: x_return_status => x_return_status,
1768: x_msg_count => x_msg_count,
1769: x_msg_data => x_msg_data,
1770: p_fepv_rec => p_fepv_tbl(i),
1773: i := p_fepv_tbl.NEXT(i);
1774: END LOOP;
1775: END IF;
1776: EXCEPTION
1777: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1778: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1779: (
1780: l_api_name,
1781: G_PKG_NAME,
1774: END LOOP;
1775: END IF;
1776: EXCEPTION
1777: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1778: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1779: (
1780: l_api_name,
1781: G_PKG_NAME,
1782: 'OKC_API.G_RET_STS_ERROR',
1778: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1779: (
1780: l_api_name,
1781: G_PKG_NAME,
1782: 'OKC_API.G_RET_STS_ERROR',
1783: x_msg_count,
1784: x_msg_data,
1785: '_PVT'
1786: );
1783: x_msg_count,
1784: x_msg_data,
1785: '_PVT'
1786: );
1787: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1788: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1789: (
1790: l_api_name,
1791: G_PKG_NAME,
1784: x_msg_data,
1785: '_PVT'
1786: );
1787: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1788: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1789: (
1790: l_api_name,
1791: G_PKG_NAME,
1792: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1788: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1789: (
1790: l_api_name,
1791: G_PKG_NAME,
1792: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1793: x_msg_count,
1794: x_msg_data,
1795: '_PVT'
1796: );
1794: x_msg_data,
1795: '_PVT'
1796: );
1797: WHEN OTHERS THEN
1798: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1799: (
1800: l_api_name,
1801: G_PKG_NAME,
1802: 'OTHERS',
1833: FROM OKC_FUNCTION_EXPR_PARAMS
1834: WHERE ID = p_fep_rec.id;
1835: l_api_version CONSTANT NUMBER := 1;
1836: l_api_name CONSTANT VARCHAR2(30) := 'PARAMS_lock_row';
1837: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1838: l_object_version_number OKC_FUNCTION_EXPR_PARAMS.OBJECT_VERSION_NUMBER%TYPE;
1839: lc_object_version_number OKC_FUNCTION_EXPR_PARAMS.OBJECT_VERSION_NUMBER%TYPE;
1840: l_row_notfound BOOLEAN := FALSE;
1841: lc_row_notfound BOOLEAN := FALSE;
1839: lc_object_version_number OKC_FUNCTION_EXPR_PARAMS.OBJECT_VERSION_NUMBER%TYPE;
1840: l_row_notfound BOOLEAN := FALSE;
1841: lc_row_notfound BOOLEAN := FALSE;
1842: BEGIN
1843: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1844: p_init_msg_list,
1845: '_PVT',
1846: x_return_status);
1847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1843: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1844: p_init_msg_list,
1845: '_PVT',
1846: x_return_status);
1847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_ERROR;
1851: END IF;
1844: p_init_msg_list,
1845: '_PVT',
1846: x_return_status);
1847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_ERROR;
1851: END IF;
1852: BEGIN
1845: '_PVT',
1846: x_return_status);
1847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_ERROR;
1851: END IF;
1852: BEGIN
1853: OPEN lock_csr(p_fep_rec);
1846: x_return_status);
1847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_ERROR;
1851: END IF;
1852: BEGIN
1853: OPEN lock_csr(p_fep_rec);
1854: FETCH lock_csr INTO l_object_version_number;
1858: WHEN E_Resource_Busy THEN
1859: IF (lock_csr%ISOPEN) THEN
1860: CLOSE lock_csr;
1861: END IF;
1862: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1863: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1864: END;
1865:
1866: IF ( l_row_notfound ) THEN
1869: lc_row_notfound := lchk_csr%NOTFOUND;
1870: CLOSE lchk_csr;
1871: END IF;
1872: IF (lc_row_notfound) THEN
1873: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: ELSIF lc_object_version_number > p_fep_rec.object_version_number THEN
1876: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1870: CLOSE lchk_csr;
1871: END IF;
1872: IF (lc_row_notfound) THEN
1873: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: ELSIF lc_object_version_number > p_fep_rec.object_version_number THEN
1876: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number <> p_fep_rec.object_version_number THEN
1872: IF (lc_row_notfound) THEN
1873: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: ELSIF lc_object_version_number > p_fep_rec.object_version_number THEN
1876: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number <> p_fep_rec.object_version_number THEN
1879: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1873: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: ELSIF lc_object_version_number > p_fep_rec.object_version_number THEN
1876: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number <> p_fep_rec.object_version_number THEN
1879: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number = -1 THEN
1875: ELSIF lc_object_version_number > p_fep_rec.object_version_number THEN
1876: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number <> p_fep_rec.object_version_number THEN
1879: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number = -1 THEN
1882: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1883: RAISE OKC_API.G_EXCEPTION_ERROR;
1876: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number <> p_fep_rec.object_version_number THEN
1879: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number = -1 THEN
1882: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1883: RAISE OKC_API.G_EXCEPTION_ERROR;
1884: END IF;
1878: ELSIF lc_object_version_number <> p_fep_rec.object_version_number THEN
1879: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number = -1 THEN
1882: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1883: RAISE OKC_API.G_EXCEPTION_ERROR;
1884: END IF;
1885: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1886: EXCEPTION
1879: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number = -1 THEN
1882: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1883: RAISE OKC_API.G_EXCEPTION_ERROR;
1884: END IF;
1885: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1886: EXCEPTION
1887: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1881: ELSIF lc_object_version_number = -1 THEN
1882: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1883: RAISE OKC_API.G_EXCEPTION_ERROR;
1884: END IF;
1885: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1886: EXCEPTION
1887: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1889: (
1883: RAISE OKC_API.G_EXCEPTION_ERROR;
1884: END IF;
1885: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1886: EXCEPTION
1887: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1884: END IF;
1885: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1886: EXCEPTION
1887: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1892: 'OKC_API.G_RET_STS_ERROR',
1888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1892: 'OKC_API.G_RET_STS_ERROR',
1893: x_msg_count,
1894: x_msg_data,
1895: '_PVT'
1896: );
1893: x_msg_count,
1894: x_msg_data,
1895: '_PVT'
1896: );
1897: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1898: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1899: (
1900: l_api_name,
1901: G_PKG_NAME,
1894: x_msg_data,
1895: '_PVT'
1896: );
1897: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1898: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1899: (
1900: l_api_name,
1901: G_PKG_NAME,
1902: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1898: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1899: (
1900: l_api_name,
1901: G_PKG_NAME,
1902: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1903: x_msg_count,
1904: x_msg_data,
1905: '_PVT'
1906: );
1904: x_msg_data,
1905: '_PVT'
1906: );
1907: WHEN OTHERS THEN
1908: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1909: (
1910: l_api_name,
1911: G_PKG_NAME,
1912: 'OTHERS',
1927: p_fepv_rec IN fepv_rec_type) IS
1928:
1929: l_api_version CONSTANT NUMBER := 1;
1930: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1931: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1932: l_fep_rec fep_rec_type;
1933: BEGIN
1934: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1935: G_PKG_NAME,
1930: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1931: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1932: l_fep_rec fep_rec_type;
1933: BEGIN
1934: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1935: G_PKG_NAME,
1936: p_init_msg_list,
1937: l_api_version,
1938: p_api_version,
1937: l_api_version,
1938: p_api_version,
1939: '_PVT',
1940: x_return_status);
1941: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1944: RAISE OKC_API.G_EXCEPTION_ERROR;
1945: END IF;
1938: p_api_version,
1939: '_PVT',
1940: x_return_status);
1941: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1944: RAISE OKC_API.G_EXCEPTION_ERROR;
1945: END IF;
1946: --------------------------------------
1939: '_PVT',
1940: x_return_status);
1941: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1944: RAISE OKC_API.G_EXCEPTION_ERROR;
1945: END IF;
1946: --------------------------------------
1947: -- Move VIEW record to "Child" records
1940: x_return_status);
1941: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1944: RAISE OKC_API.G_EXCEPTION_ERROR;
1945: END IF;
1946: --------------------------------------
1947: -- Move VIEW record to "Child" records
1948: --------------------------------------
1956: x_msg_count,
1957: x_msg_data,
1958: l_fep_rec
1959: );
1960: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_ERROR;
1964: END IF;
1957: x_msg_data,
1958: l_fep_rec
1959: );
1960: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_ERROR;
1964: END IF;
1965: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1958: l_fep_rec
1959: );
1960: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_ERROR;
1964: END IF;
1965: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1966: EXCEPTION
1959: );
1960: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_ERROR;
1964: END IF;
1965: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1966: EXCEPTION
1967: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_ERROR;
1964: END IF;
1965: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1966: EXCEPTION
1967: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1968: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1969: (
1963: RAISE OKC_API.G_EXCEPTION_ERROR;
1964: END IF;
1965: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1966: EXCEPTION
1967: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1968: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1969: (
1970: l_api_name,
1971: G_PKG_NAME,
1964: END IF;
1965: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1966: EXCEPTION
1967: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1968: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1969: (
1970: l_api_name,
1971: G_PKG_NAME,
1972: 'OKC_API.G_RET_STS_ERROR',
1968: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1969: (
1970: l_api_name,
1971: G_PKG_NAME,
1972: 'OKC_API.G_RET_STS_ERROR',
1973: x_msg_count,
1974: x_msg_data,
1975: '_PVT'
1976: );
1973: x_msg_count,
1974: x_msg_data,
1975: '_PVT'
1976: );
1977: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1978: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1979: (
1980: l_api_name,
1981: G_PKG_NAME,
1974: x_msg_data,
1975: '_PVT'
1976: );
1977: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1978: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1979: (
1980: l_api_name,
1981: G_PKG_NAME,
1982: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1978: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1979: (
1980: l_api_name,
1981: G_PKG_NAME,
1982: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1983: x_msg_count,
1984: x_msg_data,
1985: '_PVT'
1986: );
1984: x_msg_data,
1985: '_PVT'
1986: );
1987: WHEN OTHERS THEN
1988: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1989: (
1990: l_api_name,
1991: G_PKG_NAME,
1992: 'OTHERS',
2007: p_fepv_tbl IN fepv_tbl_type) IS
2008:
2009: l_api_version CONSTANT NUMBER := 1;
2010: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2011: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2012: i NUMBER := 0;
2013: BEGIN
2014: OKC_API.init_msg_list(p_init_msg_list);
2015: -- Make sure PL/SQL table has records in it before passing
2010: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2011: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2012: i NUMBER := 0;
2013: BEGIN
2014: OKC_API.init_msg_list(p_init_msg_list);
2015: -- Make sure PL/SQL table has records in it before passing
2016: IF (p_fepv_tbl.COUNT > 0) THEN
2017: i := p_fepv_tbl.FIRST;
2018: LOOP
2017: i := p_fepv_tbl.FIRST;
2018: LOOP
2019: lock_row (
2020: p_api_version => p_api_version,
2021: p_init_msg_list => OKC_API.G_FALSE,
2022: x_return_status => x_return_status,
2023: x_msg_count => x_msg_count,
2024: x_msg_data => x_msg_data,
2025: p_fepv_rec => p_fepv_tbl(i));
2027: i := p_fepv_tbl.NEXT(i);
2028: END LOOP;
2029: END IF;
2030: EXCEPTION
2031: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2032: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2033: (
2034: l_api_name,
2035: G_PKG_NAME,
2028: END LOOP;
2029: END IF;
2030: EXCEPTION
2031: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2032: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2033: (
2034: l_api_name,
2035: G_PKG_NAME,
2036: 'OKC_API.G_RET_STS_ERROR',
2032: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2033: (
2034: l_api_name,
2035: G_PKG_NAME,
2036: 'OKC_API.G_RET_STS_ERROR',
2037: x_msg_count,
2038: x_msg_data,
2039: '_PVT'
2040: );
2037: x_msg_count,
2038: x_msg_data,
2039: '_PVT'
2040: );
2041: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2042: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2043: (
2044: l_api_name,
2045: G_PKG_NAME,
2038: x_msg_data,
2039: '_PVT'
2040: );
2041: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2042: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2043: (
2044: l_api_name,
2045: G_PKG_NAME,
2046: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2042: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2043: (
2044: l_api_name,
2045: G_PKG_NAME,
2046: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2047: x_msg_count,
2048: x_msg_data,
2049: '_PVT'
2050: );
2048: x_msg_data,
2049: '_PVT'
2050: );
2051: WHEN OTHERS THEN
2052: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2053: (
2054: l_api_name,
2055: G_PKG_NAME,
2056: 'OTHERS',
2075: x_fep_rec OUT NOCOPY fep_rec_type) IS
2076:
2077: l_api_version CONSTANT NUMBER := 1;
2078: l_api_name CONSTANT VARCHAR2(30) := 'PARAMS_update_row';
2079: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2080: l_fep_rec fep_rec_type := p_fep_rec;
2081: l_def_fep_rec fep_rec_type;
2082: l_row_notfound BOOLEAN := TRUE;
2083: ----------------------------------
2088: x_fep_rec OUT NOCOPY fep_rec_type
2089: ) RETURN VARCHAR2 IS
2090: l_fep_rec fep_rec_type;
2091: l_row_notfound BOOLEAN := TRUE;
2092: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2093: BEGIN
2094: x_fep_rec := p_fep_rec;
2095: -- Get current database values
2096: l_fep_rec := get_rec(p_fep_rec, l_row_notfound);
2094: x_fep_rec := p_fep_rec;
2095: -- Get current database values
2096: l_fep_rec := get_rec(p_fep_rec, l_row_notfound);
2097: IF (l_row_notfound) THEN
2098: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2099: END IF;
2100: IF (x_fep_rec.id = OKC_API.G_MISS_NUM)
2101: THEN
2102: x_fep_rec.id := l_fep_rec.id;
2096: l_fep_rec := get_rec(p_fep_rec, l_row_notfound);
2097: IF (l_row_notfound) THEN
2098: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2099: END IF;
2100: IF (x_fep_rec.id = OKC_API.G_MISS_NUM)
2101: THEN
2102: x_fep_rec.id := l_fep_rec.id;
2103: END IF;
2104: IF (x_fep_rec.cnl_id = OKC_API.G_MISS_NUM)
2100: IF (x_fep_rec.id = OKC_API.G_MISS_NUM)
2101: THEN
2102: x_fep_rec.id := l_fep_rec.id;
2103: END IF;
2104: IF (x_fep_rec.cnl_id = OKC_API.G_MISS_NUM)
2105: THEN
2106: x_fep_rec.cnl_id := l_fep_rec.cnl_id;
2107: END IF;
2108: IF (x_fep_rec.pdp_id = OKC_API.G_MISS_NUM)
2104: IF (x_fep_rec.cnl_id = OKC_API.G_MISS_NUM)
2105: THEN
2106: x_fep_rec.cnl_id := l_fep_rec.cnl_id;
2107: END IF;
2108: IF (x_fep_rec.pdp_id = OKC_API.G_MISS_NUM)
2109: THEN
2110: x_fep_rec.pdp_id := l_fep_rec.pdp_id;
2111: END IF;
2112: IF (x_fep_rec.aae_id = OKC_API.G_MISS_NUM)
2108: IF (x_fep_rec.pdp_id = OKC_API.G_MISS_NUM)
2109: THEN
2110: x_fep_rec.pdp_id := l_fep_rec.pdp_id;
2111: END IF;
2112: IF (x_fep_rec.aae_id = OKC_API.G_MISS_NUM)
2113: THEN
2114: x_fep_rec.aae_id := l_fep_rec.aae_id;
2115: END IF;
2116: IF (x_fep_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2112: IF (x_fep_rec.aae_id = OKC_API.G_MISS_NUM)
2113: THEN
2114: x_fep_rec.aae_id := l_fep_rec.aae_id;
2115: END IF;
2116: IF (x_fep_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2117: THEN
2118: x_fep_rec.dnz_chr_id := l_fep_rec.dnz_chr_id;
2119: END IF;
2120: IF (x_fep_rec.object_version_number = OKC_API.G_MISS_NUM)
2116: IF (x_fep_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2117: THEN
2118: x_fep_rec.dnz_chr_id := l_fep_rec.dnz_chr_id;
2119: END IF;
2120: IF (x_fep_rec.object_version_number = OKC_API.G_MISS_NUM)
2121: THEN
2122: x_fep_rec.object_version_number := l_fep_rec.object_version_number;
2123: END IF;
2124: IF (x_fep_rec.value = OKC_API.G_MISS_CHAR)
2120: IF (x_fep_rec.object_version_number = OKC_API.G_MISS_NUM)
2121: THEN
2122: x_fep_rec.object_version_number := l_fep_rec.object_version_number;
2123: END IF;
2124: IF (x_fep_rec.value = OKC_API.G_MISS_CHAR)
2125: THEN
2126: x_fep_rec.value := l_fep_rec.value;
2127: END IF;
2128: IF (x_fep_rec.application_id = OKC_API.G_MISS_NUM)
2124: IF (x_fep_rec.value = OKC_API.G_MISS_CHAR)
2125: THEN
2126: x_fep_rec.value := l_fep_rec.value;
2127: END IF;
2128: IF (x_fep_rec.application_id = OKC_API.G_MISS_NUM)
2129: THEN
2130: x_fep_rec.application_id := l_fep_rec.application_id;
2131: END IF;
2132: IF (x_fep_rec.seeded_flag = OKC_API.G_MISS_CHAR)
2128: IF (x_fep_rec.application_id = OKC_API.G_MISS_NUM)
2129: THEN
2130: x_fep_rec.application_id := l_fep_rec.application_id;
2131: END IF;
2132: IF (x_fep_rec.seeded_flag = OKC_API.G_MISS_CHAR)
2133: THEN
2134: x_fep_rec.seeded_flag := l_fep_rec.seeded_flag;
2135: END IF;
2136: IF (x_fep_rec.created_by = OKC_API.G_MISS_NUM)
2132: IF (x_fep_rec.seeded_flag = OKC_API.G_MISS_CHAR)
2133: THEN
2134: x_fep_rec.seeded_flag := l_fep_rec.seeded_flag;
2135: END IF;
2136: IF (x_fep_rec.created_by = OKC_API.G_MISS_NUM)
2137: THEN
2138: x_fep_rec.created_by := l_fep_rec.created_by;
2139: END IF;
2140: IF (x_fep_rec.creation_date = OKC_API.G_MISS_DATE)
2136: IF (x_fep_rec.created_by = OKC_API.G_MISS_NUM)
2137: THEN
2138: x_fep_rec.created_by := l_fep_rec.created_by;
2139: END IF;
2140: IF (x_fep_rec.creation_date = OKC_API.G_MISS_DATE)
2141: THEN
2142: x_fep_rec.creation_date := l_fep_rec.creation_date;
2143: END IF;
2144: IF (x_fep_rec.last_updated_by = OKC_API.G_MISS_NUM)
2140: IF (x_fep_rec.creation_date = OKC_API.G_MISS_DATE)
2141: THEN
2142: x_fep_rec.creation_date := l_fep_rec.creation_date;
2143: END IF;
2144: IF (x_fep_rec.last_updated_by = OKC_API.G_MISS_NUM)
2145: THEN
2146: x_fep_rec.last_updated_by := l_fep_rec.last_updated_by;
2147: END IF;
2148: IF (x_fep_rec.last_update_date = OKC_API.G_MISS_DATE)
2144: IF (x_fep_rec.last_updated_by = OKC_API.G_MISS_NUM)
2145: THEN
2146: x_fep_rec.last_updated_by := l_fep_rec.last_updated_by;
2147: END IF;
2148: IF (x_fep_rec.last_update_date = OKC_API.G_MISS_DATE)
2149: THEN
2150: x_fep_rec.last_update_date := l_fep_rec.last_update_date;
2151: END IF;
2152: IF (x_fep_rec.last_update_login = OKC_API.G_MISS_NUM)
2148: IF (x_fep_rec.last_update_date = OKC_API.G_MISS_DATE)
2149: THEN
2150: x_fep_rec.last_update_date := l_fep_rec.last_update_date;
2151: END IF;
2152: IF (x_fep_rec.last_update_login = OKC_API.G_MISS_NUM)
2153: THEN
2154: x_fep_rec.last_update_login := l_fep_rec.last_update_login;
2155: END IF;
2156: RETURN(l_return_status);
2161: FUNCTION Set_Attributes (
2162: p_fep_rec IN fep_rec_type,
2163: x_fep_rec OUT NOCOPY fep_rec_type
2164: ) RETURN VARCHAR2 IS
2165: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2166: BEGIN
2167: x_fep_rec := p_fep_rec;
2168: RETURN(l_return_status);
2169: END Set_Attributes;
2167: x_fep_rec := p_fep_rec;
2168: RETURN(l_return_status);
2169: END Set_Attributes;
2170: BEGIN
2171: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2172: p_init_msg_list,
2173: '_PVT',
2174: x_return_status);
2175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2171: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2172: p_init_msg_list,
2173: '_PVT',
2174: x_return_status);
2175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: END IF;
2172: p_init_msg_list,
2173: '_PVT',
2174: x_return_status);
2175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: END IF;
2180: --- Setting item attributes
2173: '_PVT',
2174: x_return_status);
2175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: END IF;
2180: --- Setting item attributes
2181: l_return_status := Set_Attributes(
2174: x_return_status);
2175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: END IF;
2180: --- Setting item attributes
2181: l_return_status := Set_Attributes(
2182: p_fep_rec, -- IN
2181: l_return_status := Set_Attributes(
2182: p_fep_rec, -- IN
2183: l_fep_rec); -- OUT
2184: --- If any errors happen abort API
2185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2188: RAISE OKC_API.G_EXCEPTION_ERROR;
2189: END IF;
2182: p_fep_rec, -- IN
2183: l_fep_rec); -- OUT
2184: --- If any errors happen abort API
2185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2188: RAISE OKC_API.G_EXCEPTION_ERROR;
2189: END IF;
2190: l_return_status := populate_new_record(l_fep_rec, l_def_fep_rec);
2183: l_fep_rec); -- OUT
2184: --- If any errors happen abort API
2185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2188: RAISE OKC_API.G_EXCEPTION_ERROR;
2189: END IF;
2190: l_return_status := populate_new_record(l_fep_rec, l_def_fep_rec);
2191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2184: --- If any errors happen abort API
2185: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2186: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2188: RAISE OKC_API.G_EXCEPTION_ERROR;
2189: END IF;
2190: l_return_status := populate_new_record(l_fep_rec, l_def_fep_rec);
2191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2187: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2188: RAISE OKC_API.G_EXCEPTION_ERROR;
2189: END IF;
2190: l_return_status := populate_new_record(l_fep_rec, l_def_fep_rec);
2191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2194: RAISE OKC_API.G_EXCEPTION_ERROR;
2195: END IF;
2188: RAISE OKC_API.G_EXCEPTION_ERROR;
2189: END IF;
2190: l_return_status := populate_new_record(l_fep_rec, l_def_fep_rec);
2191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2194: RAISE OKC_API.G_EXCEPTION_ERROR;
2195: END IF;
2196: UPDATE OKC_FUNCTION_EXPR_PARAMS
2189: END IF;
2190: l_return_status := populate_new_record(l_fep_rec, l_def_fep_rec);
2191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2194: RAISE OKC_API.G_EXCEPTION_ERROR;
2195: END IF;
2196: UPDATE OKC_FUNCTION_EXPR_PARAMS
2197: SET CNL_ID = l_def_fep_rec.cnl_id,
2190: l_return_status := populate_new_record(l_fep_rec, l_def_fep_rec);
2191: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2193: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2194: RAISE OKC_API.G_EXCEPTION_ERROR;
2195: END IF;
2196: UPDATE OKC_FUNCTION_EXPR_PARAMS
2197: SET CNL_ID = l_def_fep_rec.cnl_id,
2198: PDP_ID = l_def_fep_rec.pdp_id,
2209: LAST_UPDATE_LOGIN = l_def_fep_rec.last_update_login
2210: WHERE ID = l_def_fep_rec.id;
2211:
2212: x_fep_rec := l_def_fep_rec;
2213: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2214: EXCEPTION
2215: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2217: (
2211:
2212: x_fep_rec := l_def_fep_rec;
2213: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2214: EXCEPTION
2215: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2217: (
2218: l_api_name,
2219: G_PKG_NAME,
2212: x_fep_rec := l_def_fep_rec;
2213: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2214: EXCEPTION
2215: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2217: (
2218: l_api_name,
2219: G_PKG_NAME,
2220: 'OKC_API.G_RET_STS_ERROR',
2216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2217: (
2218: l_api_name,
2219: G_PKG_NAME,
2220: 'OKC_API.G_RET_STS_ERROR',
2221: x_msg_count,
2222: x_msg_data,
2223: '_PVT'
2224: );
2221: x_msg_count,
2222: x_msg_data,
2223: '_PVT'
2224: );
2225: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2226: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2227: (
2228: l_api_name,
2229: G_PKG_NAME,
2222: x_msg_data,
2223: '_PVT'
2224: );
2225: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2226: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2227: (
2228: l_api_name,
2229: G_PKG_NAME,
2230: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2226: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2227: (
2228: l_api_name,
2229: G_PKG_NAME,
2230: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2231: x_msg_count,
2232: x_msg_data,
2233: '_PVT'
2234: );
2232: x_msg_data,
2233: '_PVT'
2234: );
2235: WHEN OTHERS THEN
2236: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2237: (
2238: l_api_name,
2239: G_PKG_NAME,
2240: 'OTHERS',
2256: x_fepv_rec OUT NOCOPY fepv_rec_type) IS
2257:
2258: l_api_version CONSTANT NUMBER := 1;
2259: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2260: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2261: l_fepv_rec fepv_rec_type := p_fepv_rec;
2262: l_def_fepv_rec fepv_rec_type;
2263: l_fep_rec fep_rec_type;
2264: lx_fep_rec fep_rec_type;
2283: x_fepv_rec OUT NOCOPY fepv_rec_type
2284: ) RETURN VARCHAR2 IS
2285: l_fepv_rec fepv_rec_type;
2286: l_row_notfound BOOLEAN := TRUE;
2287: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2288: BEGIN
2289: x_fepv_rec := p_fepv_rec;
2290: -- Get current database values
2291: l_fepv_rec := get_rec(p_fepv_rec, l_row_notfound);
2289: x_fepv_rec := p_fepv_rec;
2290: -- Get current database values
2291: l_fepv_rec := get_rec(p_fepv_rec, l_row_notfound);
2292: IF (l_row_notfound) THEN
2293: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2294: END IF;
2295: IF (x_fepv_rec.id = OKC_API.G_MISS_NUM)
2296: THEN
2297: x_fepv_rec.id := l_fepv_rec.id;
2291: l_fepv_rec := get_rec(p_fepv_rec, l_row_notfound);
2292: IF (l_row_notfound) THEN
2293: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2294: END IF;
2295: IF (x_fepv_rec.id = OKC_API.G_MISS_NUM)
2296: THEN
2297: x_fepv_rec.id := l_fepv_rec.id;
2298: END IF;
2299: IF (x_fepv_rec.object_version_number = OKC_API.G_MISS_NUM)
2295: IF (x_fepv_rec.id = OKC_API.G_MISS_NUM)
2296: THEN
2297: x_fepv_rec.id := l_fepv_rec.id;
2298: END IF;
2299: IF (x_fepv_rec.object_version_number = OKC_API.G_MISS_NUM)
2300: THEN
2301: x_fepv_rec.object_version_number := l_fepv_rec.object_version_number;
2302: END IF;
2303: IF (x_fepv_rec.cnl_id = OKC_API.G_MISS_NUM)
2299: IF (x_fepv_rec.object_version_number = OKC_API.G_MISS_NUM)
2300: THEN
2301: x_fepv_rec.object_version_number := l_fepv_rec.object_version_number;
2302: END IF;
2303: IF (x_fepv_rec.cnl_id = OKC_API.G_MISS_NUM)
2304: THEN
2305: x_fepv_rec.cnl_id := l_fepv_rec.cnl_id;
2306: END IF;
2307: IF (x_fepv_rec.pdp_id = OKC_API.G_MISS_NUM)
2303: IF (x_fepv_rec.cnl_id = OKC_API.G_MISS_NUM)
2304: THEN
2305: x_fepv_rec.cnl_id := l_fepv_rec.cnl_id;
2306: END IF;
2307: IF (x_fepv_rec.pdp_id = OKC_API.G_MISS_NUM)
2308: THEN
2309: x_fepv_rec.pdp_id := l_fepv_rec.pdp_id;
2310: END IF;
2311: IF (x_fepv_rec.aae_id = OKC_API.G_MISS_NUM)
2307: IF (x_fepv_rec.pdp_id = OKC_API.G_MISS_NUM)
2308: THEN
2309: x_fepv_rec.pdp_id := l_fepv_rec.pdp_id;
2310: END IF;
2311: IF (x_fepv_rec.aae_id = OKC_API.G_MISS_NUM)
2312: THEN
2313: x_fepv_rec.aae_id := l_fepv_rec.aae_id;
2314: END IF;
2315: IF (x_fepv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2311: IF (x_fepv_rec.aae_id = OKC_API.G_MISS_NUM)
2312: THEN
2313: x_fepv_rec.aae_id := l_fepv_rec.aae_id;
2314: END IF;
2315: IF (x_fepv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2316: THEN
2317: x_fepv_rec.dnz_chr_id := l_fepv_rec.dnz_chr_id;
2318: END IF;
2319: IF (x_fepv_rec.value = OKC_API.G_MISS_CHAR)
2315: IF (x_fepv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2316: THEN
2317: x_fepv_rec.dnz_chr_id := l_fepv_rec.dnz_chr_id;
2318: END IF;
2319: IF (x_fepv_rec.value = OKC_API.G_MISS_CHAR)
2320: THEN
2321: x_fepv_rec.value := l_fepv_rec.value;
2322: END IF;
2323: IF (x_fepv_rec.application_id = OKC_API.G_MISS_NUM)
2319: IF (x_fepv_rec.value = OKC_API.G_MISS_CHAR)
2320: THEN
2321: x_fepv_rec.value := l_fepv_rec.value;
2322: END IF;
2323: IF (x_fepv_rec.application_id = OKC_API.G_MISS_NUM)
2324: THEN
2325: x_fepv_rec.application_id := l_fepv_rec.application_id;
2326: END IF;
2327: IF (x_fepv_rec.seeded_flag = OKC_API.G_MISS_CHAR)
2323: IF (x_fepv_rec.application_id = OKC_API.G_MISS_NUM)
2324: THEN
2325: x_fepv_rec.application_id := l_fepv_rec.application_id;
2326: END IF;
2327: IF (x_fepv_rec.seeded_flag = OKC_API.G_MISS_CHAR)
2328: THEN
2329: x_fepv_rec.seeded_flag := l_fepv_rec.seeded_flag;
2330: END IF;
2331: IF (x_fepv_rec.created_by = OKC_API.G_MISS_NUM)
2327: IF (x_fepv_rec.seeded_flag = OKC_API.G_MISS_CHAR)
2328: THEN
2329: x_fepv_rec.seeded_flag := l_fepv_rec.seeded_flag;
2330: END IF;
2331: IF (x_fepv_rec.created_by = OKC_API.G_MISS_NUM)
2332: THEN
2333: x_fepv_rec.created_by := l_fepv_rec.created_by;
2334: END IF;
2335: IF (x_fepv_rec.creation_date = OKC_API.G_MISS_DATE)
2331: IF (x_fepv_rec.created_by = OKC_API.G_MISS_NUM)
2332: THEN
2333: x_fepv_rec.created_by := l_fepv_rec.created_by;
2334: END IF;
2335: IF (x_fepv_rec.creation_date = OKC_API.G_MISS_DATE)
2336: THEN
2337: x_fepv_rec.creation_date := l_fepv_rec.creation_date;
2338: END IF;
2339: IF (x_fepv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2335: IF (x_fepv_rec.creation_date = OKC_API.G_MISS_DATE)
2336: THEN
2337: x_fepv_rec.creation_date := l_fepv_rec.creation_date;
2338: END IF;
2339: IF (x_fepv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2340: THEN
2341: x_fepv_rec.last_updated_by := l_fepv_rec.last_updated_by;
2342: END IF;
2343: IF (x_fepv_rec.last_update_date = OKC_API.G_MISS_DATE)
2339: IF (x_fepv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2340: THEN
2341: x_fepv_rec.last_updated_by := l_fepv_rec.last_updated_by;
2342: END IF;
2343: IF (x_fepv_rec.last_update_date = OKC_API.G_MISS_DATE)
2344: THEN
2345: x_fepv_rec.last_update_date := l_fepv_rec.last_update_date;
2346: END IF;
2347: IF (x_fepv_rec.last_update_login = OKC_API.G_MISS_NUM)
2343: IF (x_fepv_rec.last_update_date = OKC_API.G_MISS_DATE)
2344: THEN
2345: x_fepv_rec.last_update_date := l_fepv_rec.last_update_date;
2346: END IF;
2347: IF (x_fepv_rec.last_update_login = OKC_API.G_MISS_NUM)
2348: THEN
2349: x_fepv_rec.last_update_login := l_fepv_rec.last_update_login;
2350: END IF;
2351: RETURN(l_return_status);
2356: FUNCTION Set_Attributes (
2357: p_fepv_rec IN fepv_rec_type,
2358: x_fepv_rec OUT NOCOPY fepv_rec_type
2359: ) RETURN VARCHAR2 IS
2360: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2361: BEGIN
2362: x_fepv_rec := p_fepv_rec;
2363: x_fepv_rec.OBJECT_VERSION_NUMBER := NVL(x_fepv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2364: RETURN(l_return_status);
2363: x_fepv_rec.OBJECT_VERSION_NUMBER := NVL(x_fepv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2364: RETURN(l_return_status);
2365: END Set_Attributes;
2366: BEGIN
2367: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2368: G_PKG_NAME,
2369: p_init_msg_list,
2370: l_api_version,
2371: p_api_version,
2370: l_api_version,
2371: p_api_version,
2372: '_PVT',
2373: x_return_status);
2374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2377: RAISE OKC_API.G_EXCEPTION_ERROR;
2378: END IF;
2371: p_api_version,
2372: '_PVT',
2373: x_return_status);
2374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2377: RAISE OKC_API.G_EXCEPTION_ERROR;
2378: END IF;
2379: -- Seed data should not be updated unless user is DATAMERGE
2372: '_PVT',
2373: x_return_status);
2374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2377: RAISE OKC_API.G_EXCEPTION_ERROR;
2378: END IF;
2379: -- Seed data should not be updated unless user is DATAMERGE
2380: IF l_fepv_rec.last_updated_by <> 1 THEN
2373: x_return_status);
2374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2377: RAISE OKC_API.G_EXCEPTION_ERROR;
2378: END IF;
2379: -- Seed data should not be updated unless user is DATAMERGE
2380: IF l_fepv_rec.last_updated_by <> 1 THEN
2381: IF l_fepv_rec.seeded_flag = 'Y' THEN
2378: END IF;
2379: -- Seed data should not be updated unless user is DATAMERGE
2380: IF l_fepv_rec.last_updated_by <> 1 THEN
2381: IF l_fepv_rec.seeded_flag = 'Y' THEN
2382: OKC_API.set_message(p_app_name => G_APP_NAME,
2383: p_msg_name => 'OKC_NOT_DELETE_SEEDED');
2384: RAISE OKC_API.G_EXCEPTION_ERROR;
2385: END IF;
2386: END IF;
2380: IF l_fepv_rec.last_updated_by <> 1 THEN
2381: IF l_fepv_rec.seeded_flag = 'Y' THEN
2382: OKC_API.set_message(p_app_name => G_APP_NAME,
2383: p_msg_name => 'OKC_NOT_DELETE_SEEDED');
2384: RAISE OKC_API.G_EXCEPTION_ERROR;
2385: END IF;
2386: END IF;
2387: --- Setting item attributes
2388: l_return_status := Set_Attributes(
2388: l_return_status := Set_Attributes(
2389: p_fepv_rec, -- IN
2390: l_fepv_rec); -- OUT
2391: --- If any errors happen abort API
2392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2395: RAISE OKC_API.G_EXCEPTION_ERROR;
2396: END IF;
2389: p_fepv_rec, -- IN
2390: l_fepv_rec); -- OUT
2391: --- If any errors happen abort API
2392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2395: RAISE OKC_API.G_EXCEPTION_ERROR;
2396: END IF;
2397: l_return_status := populate_new_record(l_fepv_rec, l_def_fepv_rec);
2390: l_fepv_rec); -- OUT
2391: --- If any errors happen abort API
2392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2395: RAISE OKC_API.G_EXCEPTION_ERROR;
2396: END IF;
2397: l_return_status := populate_new_record(l_fepv_rec, l_def_fepv_rec);
2398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2391: --- If any errors happen abort API
2392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2395: RAISE OKC_API.G_EXCEPTION_ERROR;
2396: END IF;
2397: l_return_status := populate_new_record(l_fepv_rec, l_def_fepv_rec);
2398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2395: RAISE OKC_API.G_EXCEPTION_ERROR;
2396: END IF;
2397: l_return_status := populate_new_record(l_fepv_rec, l_def_fepv_rec);
2398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2401: RAISE OKC_API.G_EXCEPTION_ERROR;
2402: END IF;
2395: RAISE OKC_API.G_EXCEPTION_ERROR;
2396: END IF;
2397: l_return_status := populate_new_record(l_fepv_rec, l_def_fepv_rec);
2398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2401: RAISE OKC_API.G_EXCEPTION_ERROR;
2402: END IF;
2403: l_def_fepv_rec := fill_who_columns(l_def_fepv_rec);
2396: END IF;
2397: l_return_status := populate_new_record(l_fepv_rec, l_def_fepv_rec);
2398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2401: RAISE OKC_API.G_EXCEPTION_ERROR;
2402: END IF;
2403: l_def_fepv_rec := fill_who_columns(l_def_fepv_rec);
2404: --- Validate all non-missing attributes (Item Level Validation)
2397: l_return_status := populate_new_record(l_fepv_rec, l_def_fepv_rec);
2398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2401: RAISE OKC_API.G_EXCEPTION_ERROR;
2402: END IF;
2403: l_def_fepv_rec := fill_who_columns(l_def_fepv_rec);
2404: --- Validate all non-missing attributes (Item Level Validation)
2405: l_return_status := Validate_Attributes(l_def_fepv_rec);
2403: l_def_fepv_rec := fill_who_columns(l_def_fepv_rec);
2404: --- Validate all non-missing attributes (Item Level Validation)
2405: l_return_status := Validate_Attributes(l_def_fepv_rec);
2406: --- If any errors happen abort API
2407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2410: RAISE OKC_API.G_EXCEPTION_ERROR;
2411: END IF;
2404: --- Validate all non-missing attributes (Item Level Validation)
2405: l_return_status := Validate_Attributes(l_def_fepv_rec);
2406: --- If any errors happen abort API
2407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2410: RAISE OKC_API.G_EXCEPTION_ERROR;
2411: END IF;
2412: l_return_status := Validate_Record(l_def_fepv_rec);
2405: l_return_status := Validate_Attributes(l_def_fepv_rec);
2406: --- If any errors happen abort API
2407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2410: RAISE OKC_API.G_EXCEPTION_ERROR;
2411: END IF;
2412: l_return_status := Validate_Record(l_def_fepv_rec);
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2406: --- If any errors happen abort API
2407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2410: RAISE OKC_API.G_EXCEPTION_ERROR;
2411: END IF;
2412: l_return_status := Validate_Record(l_def_fepv_rec);
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2410: RAISE OKC_API.G_EXCEPTION_ERROR;
2411: END IF;
2412: l_return_status := Validate_Record(l_def_fepv_rec);
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2416: RAISE OKC_API.G_EXCEPTION_ERROR;
2417: END IF;
2410: RAISE OKC_API.G_EXCEPTION_ERROR;
2411: END IF;
2412: l_return_status := Validate_Record(l_def_fepv_rec);
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2416: RAISE OKC_API.G_EXCEPTION_ERROR;
2417: END IF;
2418:
2411: END IF;
2412: l_return_status := Validate_Record(l_def_fepv_rec);
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2416: RAISE OKC_API.G_EXCEPTION_ERROR;
2417: END IF;
2418:
2419: --------------------------------------
2412: l_return_status := Validate_Record(l_def_fepv_rec);
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2416: RAISE OKC_API.G_EXCEPTION_ERROR;
2417: END IF;
2418:
2419: --------------------------------------
2420: -- Move VIEW record to "Child" records
2430: x_msg_data,
2431: l_fep_rec,
2432: lx_fep_rec
2433: );
2434: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_ERROR;
2438: END IF;
2431: l_fep_rec,
2432: lx_fep_rec
2433: );
2434: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_ERROR;
2438: END IF;
2439: migrate(lx_fep_rec, l_def_fepv_rec);
2432: lx_fep_rec
2433: );
2434: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_ERROR;
2438: END IF;
2439: migrate(lx_fep_rec, l_def_fepv_rec);
2440: x_fepv_rec := l_def_fepv_rec;
2433: );
2434: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_ERROR;
2438: END IF;
2439: migrate(lx_fep_rec, l_def_fepv_rec);
2440: x_fepv_rec := l_def_fepv_rec;
2441: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2437: RAISE OKC_API.G_EXCEPTION_ERROR;
2438: END IF;
2439: migrate(lx_fep_rec, l_def_fepv_rec);
2440: x_fepv_rec := l_def_fepv_rec;
2441: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2442: EXCEPTION
2443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2445: (
2439: migrate(lx_fep_rec, l_def_fepv_rec);
2440: x_fepv_rec := l_def_fepv_rec;
2441: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2442: EXCEPTION
2443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2445: (
2446: l_api_name,
2447: G_PKG_NAME,
2440: x_fepv_rec := l_def_fepv_rec;
2441: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2442: EXCEPTION
2443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2445: (
2446: l_api_name,
2447: G_PKG_NAME,
2448: 'OKC_API.G_RET_STS_ERROR',
2444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2445: (
2446: l_api_name,
2447: G_PKG_NAME,
2448: 'OKC_API.G_RET_STS_ERROR',
2449: x_msg_count,
2450: x_msg_data,
2451: '_PVT'
2452: );
2449: x_msg_count,
2450: x_msg_data,
2451: '_PVT'
2452: );
2453: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2454: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2455: (
2456: l_api_name,
2457: G_PKG_NAME,
2450: x_msg_data,
2451: '_PVT'
2452: );
2453: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2454: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2455: (
2456: l_api_name,
2457: G_PKG_NAME,
2458: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2454: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2455: (
2456: l_api_name,
2457: G_PKG_NAME,
2458: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2459: x_msg_count,
2460: x_msg_data,
2461: '_PVT'
2462: );
2460: x_msg_data,
2461: '_PVT'
2462: );
2463: WHEN OTHERS THEN
2464: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2465: (
2466: l_api_name,
2467: G_PKG_NAME,
2468: 'OTHERS',
2484: x_fepv_tbl OUT NOCOPY fepv_tbl_type) IS
2485:
2486: l_api_version CONSTANT NUMBER := 1;
2487: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2488: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2489: i NUMBER := 0;
2490: BEGIN
2491: OKC_API.init_msg_list(p_init_msg_list);
2492: -- Make sure PL/SQL table has records in it before passing
2487: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2488: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2489: i NUMBER := 0;
2490: BEGIN
2491: OKC_API.init_msg_list(p_init_msg_list);
2492: -- Make sure PL/SQL table has records in it before passing
2493: IF (p_fepv_tbl.COUNT > 0) THEN
2494: i := p_fepv_tbl.FIRST;
2495: LOOP
2494: i := p_fepv_tbl.FIRST;
2495: LOOP
2496: update_row (
2497: p_api_version => p_api_version,
2498: p_init_msg_list => OKC_API.G_FALSE,
2499: x_return_status => x_return_status,
2500: x_msg_count => x_msg_count,
2501: x_msg_data => x_msg_data,
2502: p_fepv_rec => p_fepv_tbl(i),
2505: i := p_fepv_tbl.NEXT(i);
2506: END LOOP;
2507: END IF;
2508: EXCEPTION
2509: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2510: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2511: (
2512: l_api_name,
2513: G_PKG_NAME,
2506: END LOOP;
2507: END IF;
2508: EXCEPTION
2509: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2510: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2511: (
2512: l_api_name,
2513: G_PKG_NAME,
2514: 'OKC_API.G_RET_STS_ERROR',
2510: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2511: (
2512: l_api_name,
2513: G_PKG_NAME,
2514: 'OKC_API.G_RET_STS_ERROR',
2515: x_msg_count,
2516: x_msg_data,
2517: '_PVT'
2518: );
2515: x_msg_count,
2516: x_msg_data,
2517: '_PVT'
2518: );
2519: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2520: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2521: (
2522: l_api_name,
2523: G_PKG_NAME,
2516: x_msg_data,
2517: '_PVT'
2518: );
2519: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2520: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2521: (
2522: l_api_name,
2523: G_PKG_NAME,
2524: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2520: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2521: (
2522: l_api_name,
2523: G_PKG_NAME,
2524: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2525: x_msg_count,
2526: x_msg_data,
2527: '_PVT'
2528: );
2526: x_msg_data,
2527: '_PVT'
2528: );
2529: WHEN OTHERS THEN
2530: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2531: (
2532: l_api_name,
2533: G_PKG_NAME,
2534: 'OTHERS',
2552: p_fep_rec IN fep_rec_type) IS
2553:
2554: l_api_version CONSTANT NUMBER := 1;
2555: l_api_name CONSTANT VARCHAR2(30) := 'PARAMS_delete_row';
2556: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2557: l_fep_rec fep_rec_type:= p_fep_rec;
2558: l_row_notfound BOOLEAN := TRUE;
2559: BEGIN
2560: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2556: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2557: l_fep_rec fep_rec_type:= p_fep_rec;
2558: l_row_notfound BOOLEAN := TRUE;
2559: BEGIN
2560: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2561: p_init_msg_list,
2562: '_PVT',
2563: x_return_status);
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2560: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2561: p_init_msg_list,
2562: '_PVT',
2563: x_return_status);
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2567: RAISE OKC_API.G_EXCEPTION_ERROR;
2568: END IF;
2561: p_init_msg_list,
2562: '_PVT',
2563: x_return_status);
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2567: RAISE OKC_API.G_EXCEPTION_ERROR;
2568: END IF;
2569: DELETE FROM OKC_FUNCTION_EXPR_PARAMS
2562: '_PVT',
2563: x_return_status);
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2567: RAISE OKC_API.G_EXCEPTION_ERROR;
2568: END IF;
2569: DELETE FROM OKC_FUNCTION_EXPR_PARAMS
2570: WHERE ID = l_fep_rec.id;
2563: x_return_status);
2564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2567: RAISE OKC_API.G_EXCEPTION_ERROR;
2568: END IF;
2569: DELETE FROM OKC_FUNCTION_EXPR_PARAMS
2570: WHERE ID = l_fep_rec.id;
2571:
2568: END IF;
2569: DELETE FROM OKC_FUNCTION_EXPR_PARAMS
2570: WHERE ID = l_fep_rec.id;
2571:
2572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2573: EXCEPTION
2574: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2575: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2576: (
2570: WHERE ID = l_fep_rec.id;
2571:
2572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2573: EXCEPTION
2574: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2575: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2576: (
2577: l_api_name,
2578: G_PKG_NAME,
2571:
2572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2573: EXCEPTION
2574: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2575: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2576: (
2577: l_api_name,
2578: G_PKG_NAME,
2579: 'OKC_API.G_RET_STS_ERROR',
2575: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2576: (
2577: l_api_name,
2578: G_PKG_NAME,
2579: 'OKC_API.G_RET_STS_ERROR',
2580: x_msg_count,
2581: x_msg_data,
2582: '_PVT'
2583: );
2580: x_msg_count,
2581: x_msg_data,
2582: '_PVT'
2583: );
2584: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2585: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2586: (
2587: l_api_name,
2588: G_PKG_NAME,
2581: x_msg_data,
2582: '_PVT'
2583: );
2584: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2585: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2586: (
2587: l_api_name,
2588: G_PKG_NAME,
2589: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2585: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2586: (
2587: l_api_name,
2588: G_PKG_NAME,
2589: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2590: x_msg_count,
2591: x_msg_data,
2592: '_PVT'
2593: );
2591: x_msg_data,
2592: '_PVT'
2593: );
2594: WHEN OTHERS THEN
2595: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2596: (
2597: l_api_name,
2598: G_PKG_NAME,
2599: 'OTHERS',
2614: p_fepv_rec IN fepv_rec_type) IS
2615:
2616: l_api_version CONSTANT NUMBER := 1;
2617: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2618: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2619: l_fepv_rec fepv_rec_type := p_fepv_rec;
2620: l_fep_rec fep_rec_type;
2621: BEGIN
2622: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2618: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2619: l_fepv_rec fepv_rec_type := p_fepv_rec;
2620: l_fep_rec fep_rec_type;
2621: BEGIN
2622: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2623: G_PKG_NAME,
2624: p_init_msg_list,
2625: l_api_version,
2626: p_api_version,
2625: l_api_version,
2626: p_api_version,
2627: '_PVT',
2628: x_return_status);
2629: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2630: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2631: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2632: RAISE OKC_API.G_EXCEPTION_ERROR;
2633: END IF;
2626: p_api_version,
2627: '_PVT',
2628: x_return_status);
2629: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2630: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2631: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2632: RAISE OKC_API.G_EXCEPTION_ERROR;
2633: END IF;
2634: -- Seed data should not be deleted unless user is DATAMERGE
2627: '_PVT',
2628: x_return_status);
2629: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2630: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2631: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2632: RAISE OKC_API.G_EXCEPTION_ERROR;
2633: END IF;
2634: -- Seed data should not be deleted unless user is DATAMERGE
2635: IF l_fepv_rec.last_updated_by <> 1 THEN
2628: x_return_status);
2629: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2630: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2631: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2632: RAISE OKC_API.G_EXCEPTION_ERROR;
2633: END IF;
2634: -- Seed data should not be deleted unless user is DATAMERGE
2635: IF l_fepv_rec.last_updated_by <> 1 THEN
2636: IF l_fepv_rec.seeded_flag = 'Y' THEN
2633: END IF;
2634: -- Seed data should not be deleted unless user is DATAMERGE
2635: IF l_fepv_rec.last_updated_by <> 1 THEN
2636: IF l_fepv_rec.seeded_flag = 'Y' THEN
2637: OKC_API.set_message(p_app_name => G_APP_NAME,
2638: p_msg_name => 'OKC_NOT_DELETE_SEEDED');
2639: RAISE OKC_API.G_EXCEPTION_ERROR;
2640: END IF;
2641: END IF;
2635: IF l_fepv_rec.last_updated_by <> 1 THEN
2636: IF l_fepv_rec.seeded_flag = 'Y' THEN
2637: OKC_API.set_message(p_app_name => G_APP_NAME,
2638: p_msg_name => 'OKC_NOT_DELETE_SEEDED');
2639: RAISE OKC_API.G_EXCEPTION_ERROR;
2640: END IF;
2641: END IF;
2642: --------------------------------------
2643: -- Move VIEW record to "Child" records
2652: x_msg_count,
2653: x_msg_data,
2654: l_fep_rec
2655: );
2656: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2658: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_ERROR;
2660: END IF;
2653: x_msg_data,
2654: l_fep_rec
2655: );
2656: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2658: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_ERROR;
2660: END IF;
2661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2654: l_fep_rec
2655: );
2656: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2658: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_ERROR;
2660: END IF;
2661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2662: EXCEPTION
2655: );
2656: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2658: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_ERROR;
2660: END IF;
2661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2662: EXCEPTION
2663: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2657: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2658: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_ERROR;
2660: END IF;
2661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2662: EXCEPTION
2663: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2664: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2665: (
2659: RAISE OKC_API.G_EXCEPTION_ERROR;
2660: END IF;
2661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2662: EXCEPTION
2663: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2664: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2665: (
2666: l_api_name,
2667: G_PKG_NAME,
2660: END IF;
2661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2662: EXCEPTION
2663: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2664: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2665: (
2666: l_api_name,
2667: G_PKG_NAME,
2668: 'OKC_API.G_RET_STS_ERROR',
2664: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2665: (
2666: l_api_name,
2667: G_PKG_NAME,
2668: 'OKC_API.G_RET_STS_ERROR',
2669: x_msg_count,
2670: x_msg_data,
2671: '_PVT'
2672: );
2669: x_msg_count,
2670: x_msg_data,
2671: '_PVT'
2672: );
2673: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2675: (
2676: l_api_name,
2677: G_PKG_NAME,
2670: x_msg_data,
2671: '_PVT'
2672: );
2673: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2675: (
2676: l_api_name,
2677: G_PKG_NAME,
2678: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2675: (
2676: l_api_name,
2677: G_PKG_NAME,
2678: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2679: x_msg_count,
2680: x_msg_data,
2681: '_PVT'
2682: );
2680: x_msg_data,
2681: '_PVT'
2682: );
2683: WHEN OTHERS THEN
2684: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2685: (
2686: l_api_name,
2687: G_PKG_NAME,
2688: 'OTHERS',
2703: p_fepv_tbl IN fepv_tbl_type) IS
2704:
2705: l_api_version CONSTANT NUMBER := 1;
2706: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2707: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2708: i NUMBER := 0;
2709: BEGIN
2710: OKC_API.init_msg_list(p_init_msg_list);
2711: -- Make sure PL/SQL table has records in it before passing
2706: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2707: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2708: i NUMBER := 0;
2709: BEGIN
2710: OKC_API.init_msg_list(p_init_msg_list);
2711: -- Make sure PL/SQL table has records in it before passing
2712: IF (p_fepv_tbl.COUNT > 0) THEN
2713: i := p_fepv_tbl.FIRST;
2714: LOOP
2713: i := p_fepv_tbl.FIRST;
2714: LOOP
2715: delete_row (
2716: p_api_version => p_api_version,
2717: p_init_msg_list => OKC_API.G_FALSE,
2718: x_return_status => x_return_status,
2719: x_msg_count => x_msg_count,
2720: x_msg_data => x_msg_data,
2721: p_fepv_rec => p_fepv_tbl(i));
2723: i := p_fepv_tbl.NEXT(i);
2724: END LOOP;
2725: END IF;
2726: EXCEPTION
2727: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2728: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2729: (
2730: l_api_name,
2731: G_PKG_NAME,
2724: END LOOP;
2725: END IF;
2726: EXCEPTION
2727: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2728: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2729: (
2730: l_api_name,
2731: G_PKG_NAME,
2732: 'OKC_API.G_RET_STS_ERROR',
2728: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2729: (
2730: l_api_name,
2731: G_PKG_NAME,
2732: 'OKC_API.G_RET_STS_ERROR',
2733: x_msg_count,
2734: x_msg_data,
2735: '_PVT'
2736: );
2733: x_msg_count,
2734: x_msg_data,
2735: '_PVT'
2736: );
2737: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2738: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2739: (
2740: l_api_name,
2741: G_PKG_NAME,
2734: x_msg_data,
2735: '_PVT'
2736: );
2737: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2738: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2739: (
2740: l_api_name,
2741: G_PKG_NAME,
2742: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2738: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2739: (
2740: l_api_name,
2741: G_PKG_NAME,
2742: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2743: x_msg_count,
2744: x_msg_data,
2745: '_PVT'
2746: );
2744: x_msg_data,
2745: '_PVT'
2746: );
2747: WHEN OTHERS THEN
2748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2749: (
2750: l_api_name,
2751: G_PKG_NAME,
2752: 'OTHERS',
2764: p_chr_id IN NUMBER,
2765: p_major_version IN NUMBER
2766: ) RETURN VARCHAR2 IS
2767:
2768: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
2769:
2770: BEGIN
2771: INSERT INTO okc_function_expr_params_h
2772: (
2809: EXCEPTION
2810: -- other appropriate handlers
2811: WHEN OTHERS THEN
2812: -- store SQL error message on message stack
2813: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
2814: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
2815: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
2816: p_token1_value => sqlcode,
2817: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2817: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2818: p_token2_value => sqlerrm);
2819:
2820: -- notify UNEXPECTED error
2821: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2822: return l_return_status;
2823: END create_version;
2824:
2825: --This Function is called from Versioning API OKC_VERSION_PVT
2830: p_chr_id IN NUMBER,
2831: p_major_version IN NUMBER
2832: ) RETURN VARCHAR2 IS
2833:
2834: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
2835:
2836: BEGIN
2837: INSERT INTO okc_function_expr_params
2838: (
2874: EXCEPTION
2875: -- other appropriate handlers
2876: WHEN OTHERS THEN
2877: -- store SQL error message on message stack
2878: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
2879: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
2880: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
2881: p_token1_value => sqlcode,
2882: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2882: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2883: p_token2_value => sqlerrm);
2884:
2885: -- notify UNEXPECTED error
2886: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2887: return l_return_status;
2888: END restore_version;
2889: END OKC_FEP_PVT;