140: p_fodv_rec IN fodv_rec_type
141: ) RETURN fodv_rec_type IS
142: l_fodv_rec fodv_rec_type := p_fodv_rec;
143: BEGIN
144: IF (l_fodv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
145: l_fodv_rec.object_version_number := NULL;
146: END IF;
147: IF (l_fodv_rec.opd_id = Okc_Api.G_MISS_NUM) THEN
148: l_fodv_rec.opd_id := NULL;
143: BEGIN
144: IF (l_fodv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
145: l_fodv_rec.object_version_number := NULL;
146: END IF;
147: IF (l_fodv_rec.opd_id = Okc_Api.G_MISS_NUM) THEN
148: l_fodv_rec.opd_id := NULL;
149: END IF;
150: IF (l_fodv_rec.fma_id = Okc_Api.G_MISS_NUM) THEN
151: l_fodv_rec.fma_id := NULL;
146: END IF;
147: IF (l_fodv_rec.opd_id = Okc_Api.G_MISS_NUM) THEN
148: l_fodv_rec.opd_id := NULL;
149: END IF;
150: IF (l_fodv_rec.fma_id = Okc_Api.G_MISS_NUM) THEN
151: l_fodv_rec.fma_id := NULL;
152: END IF;
153: IF (l_fodv_rec.label = Okc_Api.G_MISS_CHAR) THEN
154: l_fodv_rec.label := NULL;
149: END IF;
150: IF (l_fodv_rec.fma_id = Okc_Api.G_MISS_NUM) THEN
151: l_fodv_rec.fma_id := NULL;
152: END IF;
153: IF (l_fodv_rec.label = Okc_Api.G_MISS_CHAR) THEN
154: l_fodv_rec.label := NULL;
155: END IF;
156: IF (l_fodv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
157: l_fodv_rec.created_by := NULL;
152: END IF;
153: IF (l_fodv_rec.label = Okc_Api.G_MISS_CHAR) THEN
154: l_fodv_rec.label := NULL;
155: END IF;
156: IF (l_fodv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
157: l_fodv_rec.created_by := NULL;
158: END IF;
159: IF (l_fodv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
160: l_fodv_rec.creation_date := NULL;
155: END IF;
156: IF (l_fodv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
157: l_fodv_rec.created_by := NULL;
158: END IF;
159: IF (l_fodv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
160: l_fodv_rec.creation_date := NULL;
161: END IF;
162: IF (l_fodv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
163: l_fodv_rec.last_updated_by := NULL;
158: END IF;
159: IF (l_fodv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
160: l_fodv_rec.creation_date := NULL;
161: END IF;
162: IF (l_fodv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
163: l_fodv_rec.last_updated_by := NULL;
164: END IF;
165: IF (l_fodv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
166: l_fodv_rec.last_update_date := NULL;
161: END IF;
162: IF (l_fodv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
163: l_fodv_rec.last_updated_by := NULL;
164: END IF;
165: IF (l_fodv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
166: l_fodv_rec.last_update_date := NULL;
167: END IF;
168: IF (l_fodv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
169: l_fodv_rec.last_update_login := NULL;
164: END IF;
165: IF (l_fodv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
166: l_fodv_rec.last_update_date := NULL;
167: END IF;
168: IF (l_fodv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
169: l_fodv_rec.last_update_login := NULL;
170: END IF;
171: RETURN(l_fodv_rec);
172: END null_out_defaults;
182: -----------------------------------------------
183: FUNCTION Validate_Attributes (
184: p_fodv_rec IN fodv_rec_type
185: ) RETURN VARCHAR2 IS
186: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
187: BEGIN
188: IF p_fodv_rec.id = OKC_API.G_MISS_NUM OR
189: p_fodv_rec.id IS NULL
190: THEN
184: p_fodv_rec IN fodv_rec_type
185: ) RETURN VARCHAR2 IS
186: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
187: BEGIN
188: IF p_fodv_rec.id = OKC_API.G_MISS_NUM OR
189: p_fodv_rec.id IS NULL
190: THEN
191: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
192: l_return_status := OKC_API.G_RET_STS_ERROR;
187: BEGIN
188: IF p_fodv_rec.id = OKC_API.G_MISS_NUM OR
189: p_fodv_rec.id IS NULL
190: THEN
191: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
192: l_return_status := OKC_API.G_RET_STS_ERROR;
193: ELSIF p_fodv_rec.object_version_number = OKC_API.G_MISS_NUM OR
194: p_fodv_rec.object_version_number IS NULL
195: THEN
188: IF p_fodv_rec.id = OKC_API.G_MISS_NUM OR
189: p_fodv_rec.id IS NULL
190: THEN
191: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
192: l_return_status := OKC_API.G_RET_STS_ERROR;
193: ELSIF p_fodv_rec.object_version_number = OKC_API.G_MISS_NUM OR
194: p_fodv_rec.object_version_number IS NULL
195: THEN
196: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
189: p_fodv_rec.id IS NULL
190: THEN
191: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
192: l_return_status := OKC_API.G_RET_STS_ERROR;
193: ELSIF p_fodv_rec.object_version_number = OKC_API.G_MISS_NUM OR
194: p_fodv_rec.object_version_number IS NULL
195: THEN
196: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
197: l_return_status := OKC_API.G_RET_STS_ERROR;
192: l_return_status := OKC_API.G_RET_STS_ERROR;
193: ELSIF p_fodv_rec.object_version_number = OKC_API.G_MISS_NUM OR
194: p_fodv_rec.object_version_number IS NULL
195: THEN
196: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
197: l_return_status := OKC_API.G_RET_STS_ERROR;
198: ELSIF p_fodv_rec.opd_id = OKC_API.G_MISS_NUM OR
199: p_fodv_rec.opd_id IS NULL
200: THEN
193: ELSIF p_fodv_rec.object_version_number = OKC_API.G_MISS_NUM OR
194: p_fodv_rec.object_version_number IS NULL
195: THEN
196: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
197: l_return_status := OKC_API.G_RET_STS_ERROR;
198: ELSIF p_fodv_rec.opd_id = OKC_API.G_MISS_NUM OR
199: p_fodv_rec.opd_id IS NULL
200: THEN
201: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'opd_id');
194: p_fodv_rec.object_version_number IS NULL
195: THEN
196: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
197: l_return_status := OKC_API.G_RET_STS_ERROR;
198: ELSIF p_fodv_rec.opd_id = OKC_API.G_MISS_NUM OR
199: p_fodv_rec.opd_id IS NULL
200: THEN
201: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'opd_id');
202: l_return_status := OKC_API.G_RET_STS_ERROR;
197: l_return_status := OKC_API.G_RET_STS_ERROR;
198: ELSIF p_fodv_rec.opd_id = OKC_API.G_MISS_NUM OR
199: p_fodv_rec.opd_id IS NULL
200: THEN
201: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'opd_id');
202: l_return_status := OKC_API.G_RET_STS_ERROR;
203: ELSIF p_fodv_rec.fma_id = OKC_API.G_MISS_NUM OR
204: p_fodv_rec.fma_id IS NULL
205: THEN
198: ELSIF p_fodv_rec.opd_id = OKC_API.G_MISS_NUM OR
199: p_fodv_rec.opd_id IS NULL
200: THEN
201: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'opd_id');
202: l_return_status := OKC_API.G_RET_STS_ERROR;
203: ELSIF p_fodv_rec.fma_id = OKC_API.G_MISS_NUM OR
204: p_fodv_rec.fma_id IS NULL
205: THEN
206: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fma_id');
199: p_fodv_rec.opd_id IS NULL
200: THEN
201: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'opd_id');
202: l_return_status := OKC_API.G_RET_STS_ERROR;
203: ELSIF p_fodv_rec.fma_id = OKC_API.G_MISS_NUM OR
204: p_fodv_rec.fma_id IS NULL
205: THEN
206: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fma_id');
207: l_return_status := OKC_API.G_RET_STS_ERROR;
202: l_return_status := OKC_API.G_RET_STS_ERROR;
203: ELSIF p_fodv_rec.fma_id = OKC_API.G_MISS_NUM OR
204: p_fodv_rec.fma_id IS NULL
205: THEN
206: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fma_id');
207: l_return_status := OKC_API.G_RET_STS_ERROR;
208: ELSIF p_fodv_rec.label = OKC_API.G_MISS_CHAR OR
209: p_fodv_rec.label IS NULL
210: THEN
203: ELSIF p_fodv_rec.fma_id = OKC_API.G_MISS_NUM OR
204: p_fodv_rec.fma_id IS NULL
205: THEN
206: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fma_id');
207: l_return_status := OKC_API.G_RET_STS_ERROR;
208: ELSIF p_fodv_rec.label = OKC_API.G_MISS_CHAR OR
209: p_fodv_rec.label IS NULL
210: THEN
211: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'label');
204: p_fodv_rec.fma_id IS NULL
205: THEN
206: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fma_id');
207: l_return_status := OKC_API.G_RET_STS_ERROR;
208: ELSIF p_fodv_rec.label = OKC_API.G_MISS_CHAR OR
209: p_fodv_rec.label IS NULL
210: THEN
211: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'label');
212: l_return_status := OKC_API.G_RET_STS_ERROR;
207: l_return_status := OKC_API.G_RET_STS_ERROR;
208: ELSIF p_fodv_rec.label = OKC_API.G_MISS_CHAR OR
209: p_fodv_rec.label IS NULL
210: THEN
211: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'label');
212: l_return_status := OKC_API.G_RET_STS_ERROR;
213: END IF;
214: RETURN(l_return_status);
215: END Validate_Attributes;
208: ELSIF p_fodv_rec.label = OKC_API.G_MISS_CHAR OR
209: p_fodv_rec.label IS NULL
210: THEN
211: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'label');
212: l_return_status := OKC_API.G_RET_STS_ERROR;
213: END IF;
214: RETURN(l_return_status);
215: END Validate_Attributes;
216:
222: -------------------------------------------
223: FUNCTION Validate_Record (
224: p_fodv_rec IN fodv_rec_type
225: ) RETURN VARCHAR2 IS
226: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
227: BEGIN
228: RETURN (l_return_status);
229: END Validate_Record;
230: */
251: ) IS
252:
253: BEGIN
254: -- initialize return status
255: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
256:
257: IF p_fodv_rec.id = Okc_Api.G_MISS_NUM OR
258: p_fodv_rec.id IS NULL
259: THEN
253: BEGIN
254: -- initialize return status
255: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
256:
257: IF p_fodv_rec.id = Okc_Api.G_MISS_NUM OR
258: p_fodv_rec.id IS NULL
259: THEN
260: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
261: x_return_status := Okc_Api.G_RET_STS_ERROR;
256:
257: IF p_fodv_rec.id = Okc_Api.G_MISS_NUM OR
258: p_fodv_rec.id IS NULL
259: THEN
260: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
261: x_return_status := Okc_Api.G_RET_STS_ERROR;
262: RAISE G_EXCEPTION_HALT_VALIDATION;
263: END IF;
264:
257: IF p_fodv_rec.id = Okc_Api.G_MISS_NUM OR
258: p_fodv_rec.id IS NULL
259: THEN
260: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
261: x_return_status := Okc_Api.G_RET_STS_ERROR;
262: RAISE G_EXCEPTION_HALT_VALIDATION;
263: END IF;
264:
265: EXCEPTION
269: NULL;
270:
271: WHEN OTHERS THEN
272: -- store SQL error message on message stack for caller
273: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
274: ,p_msg_name => G_UNEXPECTED_ERROR
275: ,p_token1 => G_SQLCODE_TOKEN
276: ,p_token1_value => SQLCODE
277: ,p_token2 => G_SQLERRM_TOKEN
277: ,p_token2 => G_SQLERRM_TOKEN
278: ,p_token2_value => SQLERRM);
279:
280: -- notify caller of an UNEXPECTED error
281: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
282:
283: END Validate_Id;
284:
285: ---------------------------------------------------------------------------
301:
302: BEGIN
303:
304: -- initialize return status
305: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
306:
307: IF p_fodv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
308: p_fodv_rec.object_version_number IS NULL
309: THEN
303:
304: -- initialize return status
305: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
306:
307: IF p_fodv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
308: p_fodv_rec.object_version_number IS NULL
309: THEN
310: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
311: x_return_status := Okc_Api.G_RET_STS_ERROR;
306:
307: IF p_fodv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
308: p_fodv_rec.object_version_number IS NULL
309: THEN
310: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
311: x_return_status := Okc_Api.G_RET_STS_ERROR;
312: RAISE G_EXCEPTION_HALT_VALIDATION;
313: END IF;
314:
307: IF p_fodv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
308: p_fodv_rec.object_version_number IS NULL
309: THEN
310: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
311: x_return_status := Okc_Api.G_RET_STS_ERROR;
312: RAISE G_EXCEPTION_HALT_VALIDATION;
313: END IF;
314:
315: EXCEPTION
319: NULL;
320:
321: WHEN OTHERS THEN
322: -- store SQL error message on message stack for caller
323: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
324: ,p_msg_name => G_UNEXPECTED_ERROR
325: ,p_token1 => G_SQLCODE_TOKEN
326: ,p_token1_value => SQLCODE
327: ,p_token2 => G_SQLERRM_TOKEN
327: ,p_token2 => G_SQLERRM_TOKEN
328: ,p_token2_value => SQLERRM);
329:
330: -- notify caller of an UNEXPECTED error
331: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
332:
333: END Validate_Object_Version_Number;
334:
335: ---------------------------------------------------------------------------
359: WHERE OKL_OPERANDS_V.id = p_id;
360:
361: BEGIN
362: -- initialize return status
363: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
364:
365: IF p_fodv_rec.opd_id = Okc_Api.G_MISS_NUM OR
366: p_fodv_rec.opd_id IS NULL
367: THEN
361: BEGIN
362: -- initialize return status
363: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
364:
365: IF p_fodv_rec.opd_id = Okc_Api.G_MISS_NUM OR
366: p_fodv_rec.opd_id IS NULL
367: THEN
368: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'opd_id');
369: x_return_status := Okc_Api.G_RET_STS_ERROR;
364:
365: IF p_fodv_rec.opd_id = Okc_Api.G_MISS_NUM OR
366: p_fodv_rec.opd_id IS NULL
367: THEN
368: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'opd_id');
369: x_return_status := Okc_Api.G_RET_STS_ERROR;
370: RAISE G_EXCEPTION_HALT_VALIDATION;
371: END IF;
372:
365: IF p_fodv_rec.opd_id = Okc_Api.G_MISS_NUM OR
366: p_fodv_rec.opd_id IS NULL
367: THEN
368: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'opd_id');
369: x_return_status := Okc_Api.G_RET_STS_ERROR;
370: RAISE G_EXCEPTION_HALT_VALIDATION;
371: END IF;
372:
373: OPEN okl_opdv_pk_csr(p_fodv_rec.opd_id);
375: l_row_not_found := okl_opdv_pk_csr%NOTFOUND;
376: CLOSE okl_opdv_pk_csr;
377:
378: IF l_row_not_found THEN
379: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'opd_id');
380: x_return_status := Okc_Api.G_RET_STS_ERROR;
381: END IF;
382:
383: EXCEPTION
376: CLOSE okl_opdv_pk_csr;
377:
378: IF l_row_not_found THEN
379: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'opd_id');
380: x_return_status := Okc_Api.G_RET_STS_ERROR;
381: END IF;
382:
383: EXCEPTION
384: WHEN G_EXCEPTION_HALT_VALIDATION THEN
387: NULL;
388:
389: WHEN OTHERS THEN
390: -- store SQL error message on message stack for caller
391: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
392: ,p_msg_name => G_UNEXPECTED_ERROR
393: ,p_token1 => G_SQLCODE_TOKEN
394: ,p_token1_value => SQLCODE
395: ,p_token2 => G_SQLERRM_TOKEN
395: ,p_token2 => G_SQLERRM_TOKEN
396: ,p_token2_value => SQLERRM);
397:
398: -- notify caller of an UNEXPECTED error
399: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
400:
401: -- verify that the cursor was closed
402: IF okl_opdv_pk_csr%ISOPEN THEN
403: CLOSE okl_opdv_pk_csr;
432: WHERE OKL_FORMULAE_V.id = p_id;
433:
434: BEGIN
435: -- initialize return status
436: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
437:
438: IF p_fodv_rec.fma_id = Okc_Api.G_MISS_NUM OR
439: p_fodv_rec.fma_id IS NULL
440: THEN
434: BEGIN
435: -- initialize return status
436: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
437:
438: IF p_fodv_rec.fma_id = Okc_Api.G_MISS_NUM OR
439: p_fodv_rec.fma_id IS NULL
440: THEN
441: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fma_id');
442: x_return_status := Okc_Api.G_RET_STS_ERROR;
437:
438: IF p_fodv_rec.fma_id = Okc_Api.G_MISS_NUM OR
439: p_fodv_rec.fma_id IS NULL
440: THEN
441: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fma_id');
442: x_return_status := Okc_Api.G_RET_STS_ERROR;
443: RAISE G_EXCEPTION_HALT_VALIDATION;
444: END IF;
445:
438: IF p_fodv_rec.fma_id = Okc_Api.G_MISS_NUM OR
439: p_fodv_rec.fma_id IS NULL
440: THEN
441: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'fma_id');
442: x_return_status := Okc_Api.G_RET_STS_ERROR;
443: RAISE G_EXCEPTION_HALT_VALIDATION;
444: END IF;
445:
446: OPEN okl_fmav_pk_csr(p_fodv_rec.fma_id);
448: l_row_not_found := okl_fmav_pk_csr%NOTFOUND;
449: CLOSE okl_fmav_pk_csr;
450:
451: IF l_row_not_found THEN
452: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'fma_id');
453: x_return_status := Okc_Api.G_RET_STS_ERROR;
454: END IF;
455:
456: EXCEPTION
449: CLOSE okl_fmav_pk_csr;
450:
451: IF l_row_not_found THEN
452: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'fma_id');
453: x_return_status := Okc_Api.G_RET_STS_ERROR;
454: END IF;
455:
456: EXCEPTION
457: WHEN G_EXCEPTION_HALT_VALIDATION THEN
460: NULL;
461:
462: WHEN OTHERS THEN
463: -- store SQL error message on message stack for caller
464: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
465: ,p_msg_name => G_UNEXPECTED_ERROR
466: ,p_token1 => G_SQLCODE_TOKEN
467: ,p_token1_value => SQLCODE
468: ,p_token2 => G_SQLERRM_TOKEN
468: ,p_token2 => G_SQLERRM_TOKEN
469: ,p_token2_value => SQLERRM);
470:
471: -- notify caller of an UNEXPECTED error
472: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
473:
474: -- verify that the cursor was closed
475: IF okl_fmav_pk_csr%ISOPEN THEN
476: CLOSE okl_fmav_pk_csr;
495: ) IS
496:
497: BEGIN
498: -- initialize return status
499: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
500:
501: IF p_fodv_rec.label = Okc_Api.G_MISS_CHAR OR
502: p_fodv_rec.label IS NULL
503: THEN
497: BEGIN
498: -- initialize return status
499: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
500:
501: IF p_fodv_rec.label = Okc_Api.G_MISS_CHAR OR
502: p_fodv_rec.label IS NULL
503: THEN
504: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'label');
505: x_return_status := Okc_Api.G_RET_STS_ERROR;
500:
501: IF p_fodv_rec.label = Okc_Api.G_MISS_CHAR OR
502: p_fodv_rec.label IS NULL
503: THEN
504: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'label');
505: x_return_status := Okc_Api.G_RET_STS_ERROR;
506: RAISE G_EXCEPTION_HALT_VALIDATION;
507: END IF;
508: p_fodv_rec.label := Okl_Accounting_Util.okl_upper(p_fodv_rec.label);
501: IF p_fodv_rec.label = Okc_Api.G_MISS_CHAR OR
502: p_fodv_rec.label IS NULL
503: THEN
504: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'label');
505: x_return_status := Okc_Api.G_RET_STS_ERROR;
506: RAISE G_EXCEPTION_HALT_VALIDATION;
507: END IF;
508: p_fodv_rec.label := Okl_Accounting_Util.okl_upper(p_fodv_rec.label);
509:
514: NULL;
515:
516: WHEN OTHERS THEN
517: -- store SQL error message on message stack for caller
518: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME
519: ,p_msg_name => G_UNEXPECTED_ERROR
520: ,p_token1 => G_SQLCODE_TOKEN
521: ,p_token1_value => SQLCODE
522: ,p_token2 => G_SQLERRM_TOKEN
522: ,p_token2 => G_SQLERRM_TOKEN
523: ,p_token2_value => SQLERRM);
524:
525: -- notify caller of an UNEXPECTED error
526: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
527:
528: END Validate_Label;
529:
530: ---------------------------------------------------------------------------
543: FUNCTION Validate_Attributes (
544: p_fodv_rec IN OUT NOCOPY fodv_rec_type
545: ) RETURN VARCHAR2 IS
546:
547: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
548: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
549: l_fodv_rec fodv_rec_type := p_fodv_rec;
550: BEGIN
551: -- call each column-level validation
544: p_fodv_rec IN OUT NOCOPY fodv_rec_type
545: ) RETURN VARCHAR2 IS
546:
547: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
548: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
549: l_fodv_rec fodv_rec_type := p_fodv_rec;
550: BEGIN
551: -- call each column-level validation
552:
551: -- call each column-level validation
552:
553: -- Validate_Id
554: Validate_Id(l_fodv_rec, x_return_status);
555: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
556: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
557: -- need to exit
558: l_return_status := x_return_status;
559: RAISE G_EXCEPTION_HALT_VALIDATION;
552:
553: -- Validate_Id
554: Validate_Id(l_fodv_rec, x_return_status);
555: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
556: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
557: -- need to exit
558: l_return_status := x_return_status;
559: RAISE G_EXCEPTION_HALT_VALIDATION;
560: ELSE
564: END IF;
565:
566: -- Validate_Object_Version_Number
567: Validate_Object_Version_Number(l_fodv_rec, x_return_status);
568: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
569: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
570: -- need to exit
571: l_return_status := x_return_status;
572: RAISE G_EXCEPTION_HALT_VALIDATION;
565:
566: -- Validate_Object_Version_Number
567: Validate_Object_Version_Number(l_fodv_rec, x_return_status);
568: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
569: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
570: -- need to exit
571: l_return_status := x_return_status;
572: RAISE G_EXCEPTION_HALT_VALIDATION;
573: ELSE
577: END IF;
578:
579: -- Validate_Opd_id
580: Validate_Opd_id(l_fodv_rec, x_return_status);
581: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
582: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
583: -- need to exit
584: l_return_status := x_return_status;
585: RAISE G_EXCEPTION_HALT_VALIDATION;
578:
579: -- Validate_Opd_id
580: Validate_Opd_id(l_fodv_rec, x_return_status);
581: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
582: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
583: -- need to exit
584: l_return_status := x_return_status;
585: RAISE G_EXCEPTION_HALT_VALIDATION;
586: ELSE
590: END IF;
591:
592: -- Validate_Fma_Id
593: Validate_Fma_Id(l_fodv_rec, x_return_status);
594: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
595: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
596: -- need to exit
597: l_return_status := x_return_status;
598: RAISE G_EXCEPTION_HALT_VALIDATION;
591:
592: -- Validate_Fma_Id
593: Validate_Fma_Id(l_fodv_rec, x_return_status);
594: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
595: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
596: -- need to exit
597: l_return_status := x_return_status;
598: RAISE G_EXCEPTION_HALT_VALIDATION;
599: ELSE
603: END IF;
604:
605: -- Validate_Label
606: Validate_Label(l_fodv_rec, x_return_status);
607: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
608: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
609: -- need to exit
610: l_return_status := x_return_status;
611: RAISE G_EXCEPTION_HALT_VALIDATION;
604:
605: -- Validate_Label
606: Validate_Label(l_fodv_rec, x_return_status);
607: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
608: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
609: -- need to exit
610: l_return_status := x_return_status;
611: RAISE G_EXCEPTION_HALT_VALIDATION;
612: ELSE
623: RETURN (l_return_status);
624:
625: WHEN OTHERS THEN
626: -- store SQL error message on message stack for caller
627: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
628: p_msg_name => g_unexpected_error,
629: p_token1 => g_sqlcode_token,
630: p_token1_value => SQLCODE,
631: p_token2 => g_sqlerrm_token,
630: p_token1_value => SQLCODE,
631: p_token2 => g_sqlerrm_token,
632: p_token2_value => SQLERRM);
633: -- notify caller of an UNEXPECTED error
634: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
635:
636: RETURN(l_return_status);
637: END Validate_Attributes;
638:
672: AND id <> NVL(p_rec.id,-9999);
673:
674: BEGIN
675: -- initialize return status
676: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
677: OPEN okl_fod_uk_csr(p_fodv_rec);
678: FETCH okl_fod_uk_csr INTO l_dummy;
679: l_row_found := okl_fod_uk_csr%FOUND;
680: CLOSE okl_fod_uk_csr;
678: FETCH okl_fod_uk_csr INTO l_dummy;
679: l_row_found := okl_fod_uk_csr%FOUND;
680: CLOSE okl_fod_uk_csr;
681: IF l_row_found THEN
682: Okc_Api.set_message('OKL',G_UNQS, G_TABLE_TOKEN, 'Okl_Fmla_Oprnds_V');
683: x_return_status := Okc_Api.G_RET_STS_ERROR;
684: RAISE G_EXCEPTION_HALT_VALIDATION;
685: END IF;
686:
679: l_row_found := okl_fod_uk_csr%FOUND;
680: CLOSE okl_fod_uk_csr;
681: IF l_row_found THEN
682: Okc_Api.set_message('OKL',G_UNQS, G_TABLE_TOKEN, 'Okl_Fmla_Oprnds_V');
683: x_return_status := Okc_Api.G_RET_STS_ERROR;
684: RAISE G_EXCEPTION_HALT_VALIDATION;
685: END IF;
686:
687: OPEN okl_fod_uk1_csr(p_fodv_rec);
688: FETCH okl_fod_uk1_csr INTO l_dummy;
689: l_row_found := okl_fod_uk1_csr%FOUND;
690: CLOSE okl_fod_uk1_csr;
691: IF l_row_found THEN
692: Okc_Api.set_message('OKL',G_UNQS, G_TABLE_TOKEN, 'Okl_Fmla_Oprnds_V');
693: x_return_status := Okc_Api.G_RET_STS_ERROR;
694: RAISE G_EXCEPTION_HALT_VALIDATION;
695: END IF;
696:
689: l_row_found := okl_fod_uk1_csr%FOUND;
690: CLOSE okl_fod_uk1_csr;
691: IF l_row_found THEN
692: Okc_Api.set_message('OKL',G_UNQS, G_TABLE_TOKEN, 'Okl_Fmla_Oprnds_V');
693: x_return_status := Okc_Api.G_RET_STS_ERROR;
694: RAISE G_EXCEPTION_HALT_VALIDATION;
695: END IF;
696:
697:
702: NULL;
703:
704: WHEN OTHERS THEN
705: -- store SQL error message on message stack for caller
706: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
707: p_msg_name => g_unexpected_error,
708: p_token1 => g_sqlcode_token,
709: p_token1_value => SQLCODE,
710: p_token2 => g_sqlerrm_token,
710: p_token2 => g_sqlerrm_token,
711: p_token2_value => SQLERRM);
712:
713: -- notify caller of an UNEXPECTED error
714: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
715:
716: END Validate_Unique_Fod_Record;
717:
718: ---------------------------------------------------------------------------
730:
731: FUNCTION Validate_Record (
732: p_fodv_rec IN fodv_rec_type
733: ) RETURN VARCHAR2 IS
734: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
735: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
736: BEGIN
737: -- Validate_Unique_Fod_Record
738: Validate_Unique_Fod_Record(p_fodv_rec, x_return_status);
731: FUNCTION Validate_Record (
732: p_fodv_rec IN fodv_rec_type
733: ) RETURN VARCHAR2 IS
734: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
735: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
736: BEGIN
737: -- Validate_Unique_Fod_Record
738: Validate_Unique_Fod_Record(p_fodv_rec, x_return_status);
739: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
735: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
736: BEGIN
737: -- Validate_Unique_Fod_Record
738: Validate_Unique_Fod_Record(p_fodv_rec, x_return_status);
739: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
740: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
741: -- need to leave
742: l_return_status := x_return_status;
743: RAISE G_EXCEPTION_HALT_VALIDATION;
736: BEGIN
737: -- Validate_Unique_Fod_Record
738: Validate_Unique_Fod_Record(p_fodv_rec, x_return_status);
739: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
740: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
741: -- need to leave
742: l_return_status := x_return_status;
743: RAISE G_EXCEPTION_HALT_VALIDATION;
744: ELSE
755: RETURN (l_return_status);
756:
757: WHEN OTHERS THEN
758: -- store SQL error message on message stack for caller
759: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
760: p_msg_name => g_unexpected_error,
761: p_token1 => g_sqlcode_token,
762: p_token1_value => SQLCODE,
763: p_token2 => g_sqlerrm_token,
762: p_token1_value => SQLCODE,
763: p_token2 => g_sqlerrm_token,
764: p_token2_value => SQLERRM);
765: -- notify caller of an UNEXPECTED error
766: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
767: RETURN(l_return_status);
768: END Validate_Record;
769: -- END change : mvasudev
770:
819: -- validate_row for:OKL_FMLA_OPRNDS_V --
820: ----------------------------------------
821: PROCEDURE validate_row(
822: p_api_version IN NUMBER,
823: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
824: x_return_status OUT NOCOPY VARCHAR2,
825: x_msg_count OUT NOCOPY NUMBER,
826: x_msg_data OUT NOCOPY VARCHAR2,
827: p_fodv_rec IN fodv_rec_type) IS
827: p_fodv_rec IN fodv_rec_type) IS
828:
829: l_api_version CONSTANT NUMBER := 1;
830: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
831: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
832: l_fodv_rec fodv_rec_type := p_fodv_rec;
833: l_fod_rec fod_rec_type;
834: BEGIN
835: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
831: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
832: l_fodv_rec fodv_rec_type := p_fodv_rec;
833: l_fod_rec fod_rec_type;
834: BEGIN
835: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
836: G_PKG_NAME,
837: p_init_msg_list,
838: l_api_version,
839: p_api_version,
838: l_api_version,
839: p_api_version,
840: '_PVT',
841: x_return_status);
842: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
843: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
844: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
845: RAISE Okc_Api.G_EXCEPTION_ERROR;
846: END IF;
839: p_api_version,
840: '_PVT',
841: x_return_status);
842: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
843: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
844: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
845: RAISE Okc_Api.G_EXCEPTION_ERROR;
846: END IF;
847: --- Validate all non-missing attributes (Item Level Validation)
840: '_PVT',
841: x_return_status);
842: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
843: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
844: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
845: RAISE Okc_Api.G_EXCEPTION_ERROR;
846: END IF;
847: --- Validate all non-missing attributes (Item Level Validation)
848: l_return_status := Validate_Attributes(l_fodv_rec);
841: x_return_status);
842: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
843: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
844: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
845: RAISE Okc_Api.G_EXCEPTION_ERROR;
846: END IF;
847: --- Validate all non-missing attributes (Item Level Validation)
848: l_return_status := Validate_Attributes(l_fodv_rec);
849: --- If any errors happen abort API
846: END IF;
847: --- Validate all non-missing attributes (Item Level Validation)
848: l_return_status := Validate_Attributes(l_fodv_rec);
849: --- If any errors happen abort API
850: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
851: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
852: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
853: RAISE Okc_Api.G_EXCEPTION_ERROR;
854: END IF;
847: --- Validate all non-missing attributes (Item Level Validation)
848: l_return_status := Validate_Attributes(l_fodv_rec);
849: --- If any errors happen abort API
850: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
851: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
852: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
853: RAISE Okc_Api.G_EXCEPTION_ERROR;
854: END IF;
855: l_return_status := Validate_Record(l_fodv_rec);
848: l_return_status := Validate_Attributes(l_fodv_rec);
849: --- If any errors happen abort API
850: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
851: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
852: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
853: RAISE Okc_Api.G_EXCEPTION_ERROR;
854: END IF;
855: l_return_status := Validate_Record(l_fodv_rec);
856: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
849: --- If any errors happen abort API
850: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
851: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
852: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
853: RAISE Okc_Api.G_EXCEPTION_ERROR;
854: END IF;
855: l_return_status := Validate_Record(l_fodv_rec);
856: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
857: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
852: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
853: RAISE Okc_Api.G_EXCEPTION_ERROR;
854: END IF;
855: l_return_status := Validate_Record(l_fodv_rec);
856: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
857: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
858: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
859: RAISE Okc_Api.G_EXCEPTION_ERROR;
860: END IF;
853: RAISE Okc_Api.G_EXCEPTION_ERROR;
854: END IF;
855: l_return_status := Validate_Record(l_fodv_rec);
856: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
857: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
858: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
859: RAISE Okc_Api.G_EXCEPTION_ERROR;
860: END IF;
861: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
854: END IF;
855: l_return_status := Validate_Record(l_fodv_rec);
856: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
857: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
858: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
859: RAISE Okc_Api.G_EXCEPTION_ERROR;
860: END IF;
861: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
862: EXCEPTION
855: l_return_status := Validate_Record(l_fodv_rec);
856: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
857: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
858: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
859: RAISE Okc_Api.G_EXCEPTION_ERROR;
860: END IF;
861: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
862: EXCEPTION
863: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
857: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
858: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
859: RAISE Okc_Api.G_EXCEPTION_ERROR;
860: END IF;
861: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
862: EXCEPTION
863: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
864: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
865: (
859: RAISE Okc_Api.G_EXCEPTION_ERROR;
860: END IF;
861: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
862: EXCEPTION
863: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
864: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
865: (
866: l_api_name,
867: G_PKG_NAME,
860: END IF;
861: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
862: EXCEPTION
863: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
864: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
865: (
866: l_api_name,
867: G_PKG_NAME,
868: 'OKC_API.G_RET_STS_ERROR',
864: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
865: (
866: l_api_name,
867: G_PKG_NAME,
868: 'OKC_API.G_RET_STS_ERROR',
869: x_msg_count,
870: x_msg_data,
871: '_PVT'
872: );
869: x_msg_count,
870: x_msg_data,
871: '_PVT'
872: );
873: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
874: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
875: (
876: l_api_name,
877: G_PKG_NAME,
870: x_msg_data,
871: '_PVT'
872: );
873: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
874: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
875: (
876: l_api_name,
877: G_PKG_NAME,
878: 'OKC_API.G_RET_STS_UNEXP_ERROR',
874: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
875: (
876: l_api_name,
877: G_PKG_NAME,
878: 'OKC_API.G_RET_STS_UNEXP_ERROR',
879: x_msg_count,
880: x_msg_data,
881: '_PVT'
882: );
880: x_msg_data,
881: '_PVT'
882: );
883: WHEN OTHERS THEN
884: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
885: (
886: l_api_name,
887: G_PKG_NAME,
888: 'OTHERS',
895: -- PL/SQL TBL validate_row for:FODV_TBL --
896: ------------------------------------------
897: PROCEDURE validate_row(
898: p_api_version IN NUMBER,
899: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
900: x_return_status OUT NOCOPY VARCHAR2,
901: x_msg_count OUT NOCOPY NUMBER,
902: x_msg_data OUT NOCOPY VARCHAR2,
903: p_fodv_tbl IN fodv_tbl_type) IS
903: p_fodv_tbl IN fodv_tbl_type) IS
904:
905: l_api_version CONSTANT NUMBER := 1;
906: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
907: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
908: i NUMBER := 0;
909: -- START change : mvasudev, 05/15/2001
910: -- Adding OverAll Status Flag
911: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
907: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
908: i NUMBER := 0;
909: -- START change : mvasudev, 05/15/2001
910: -- Adding OverAll Status Flag
911: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
912: -- END change : mvasudev
913: BEGIN
914: Okc_Api.init_msg_list(p_init_msg_list);
915: -- Make sure PL/SQL table has records in it before passing
910: -- Adding OverAll Status Flag
911: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
912: -- END change : mvasudev
913: BEGIN
914: Okc_Api.init_msg_list(p_init_msg_list);
915: -- Make sure PL/SQL table has records in it before passing
916: IF (p_fodv_tbl.COUNT > 0) THEN
917: i := p_fodv_tbl.FIRST;
918: LOOP
917: i := p_fodv_tbl.FIRST;
918: LOOP
919: validate_row (
920: p_api_version => p_api_version,
921: p_init_msg_list => Okc_Api.G_FALSE,
922: x_return_status => x_return_status,
923: x_msg_count => x_msg_count,
924: x_msg_data => x_msg_data,
925: p_fodv_rec => p_fodv_tbl(i));
924: x_msg_data => x_msg_data,
925: p_fodv_rec => p_fodv_tbl(i));
926: -- START change : mvasudev, 05/15/2001
927: -- store the highest degree of error
928: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
929: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
930: l_overall_status := x_return_status;
931: END IF;
932: END IF;
925: p_fodv_rec => p_fodv_tbl(i));
926: -- START change : mvasudev, 05/15/2001
927: -- store the highest degree of error
928: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
929: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
930: l_overall_status := x_return_status;
931: END IF;
932: END IF;
933: -- END change : mvasudev
939: x_return_status := l_overall_status;
940: -- END change : mvasudev
941: END IF;
942: EXCEPTION
943: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
944: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
945: (
946: l_api_name,
947: G_PKG_NAME,
940: -- END change : mvasudev
941: END IF;
942: EXCEPTION
943: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
944: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
945: (
946: l_api_name,
947: G_PKG_NAME,
948: 'OKC_API.G_RET_STS_ERROR',
944: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
945: (
946: l_api_name,
947: G_PKG_NAME,
948: 'OKC_API.G_RET_STS_ERROR',
949: x_msg_count,
950: x_msg_data,
951: '_PVT'
952: );
949: x_msg_count,
950: x_msg_data,
951: '_PVT'
952: );
953: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
954: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
955: (
956: l_api_name,
957: G_PKG_NAME,
950: x_msg_data,
951: '_PVT'
952: );
953: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
954: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
955: (
956: l_api_name,
957: G_PKG_NAME,
958: 'OKC_API.G_RET_STS_UNEXP_ERROR',
954: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
955: (
956: l_api_name,
957: G_PKG_NAME,
958: 'OKC_API.G_RET_STS_UNEXP_ERROR',
959: x_msg_count,
960: x_msg_data,
961: '_PVT'
962: );
960: x_msg_data,
961: '_PVT'
962: );
963: WHEN OTHERS THEN
964: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
965: (
966: l_api_name,
967: G_PKG_NAME,
968: 'OTHERS',
978: ------------------------------------
979: -- insert_row for:OKL_FMLA_OPRNDS --
980: ------------------------------------
981: PROCEDURE insert_row(
982: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
983: x_return_status OUT NOCOPY VARCHAR2,
984: x_msg_count OUT NOCOPY NUMBER,
985: x_msg_data OUT NOCOPY VARCHAR2,
986: p_fod_rec IN fod_rec_type,
987: x_fod_rec OUT NOCOPY fod_rec_type) IS
988:
989: l_api_version CONSTANT NUMBER := 1;
990: l_api_name CONSTANT VARCHAR2(30) := 'OPRNDS_insert_row';
991: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
992: l_fod_rec fod_rec_type := p_fod_rec;
993: l_def_fod_rec fod_rec_type;
994: ----------------------------------------
995: -- Set_Attributes for:OKL_FMLA_OPRNDS --
997: FUNCTION Set_Attributes (
998: p_fod_rec IN fod_rec_type,
999: x_fod_rec OUT NOCOPY fod_rec_type
1000: ) RETURN VARCHAR2 IS
1001: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1002: BEGIN
1003: x_fod_rec := p_fod_rec;
1004: RETURN(l_return_status);
1005: END Set_Attributes;
1003: x_fod_rec := p_fod_rec;
1004: RETURN(l_return_status);
1005: END Set_Attributes;
1006: BEGIN
1007: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1008: p_init_msg_list,
1009: '_PVT',
1010: x_return_status);
1011: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1007: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1008: p_init_msg_list,
1009: '_PVT',
1010: x_return_status);
1011: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1012: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1013: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1014: RAISE Okc_Api.G_EXCEPTION_ERROR;
1015: END IF;
1008: p_init_msg_list,
1009: '_PVT',
1010: x_return_status);
1011: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1012: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1013: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1014: RAISE Okc_Api.G_EXCEPTION_ERROR;
1015: END IF;
1016: --- Setting item attributes
1009: '_PVT',
1010: x_return_status);
1011: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1012: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1013: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1014: RAISE Okc_Api.G_EXCEPTION_ERROR;
1015: END IF;
1016: --- Setting item attributes
1017: l_return_status := Set_Attributes(
1010: x_return_status);
1011: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1012: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1013: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1014: RAISE Okc_Api.G_EXCEPTION_ERROR;
1015: END IF;
1016: --- Setting item attributes
1017: l_return_status := Set_Attributes(
1018: p_fod_rec, -- IN
1017: l_return_status := Set_Attributes(
1018: p_fod_rec, -- IN
1019: l_fod_rec); -- OUT
1020: --- If any errors happen abort API
1021: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1022: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1023: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1024: RAISE Okc_Api.G_EXCEPTION_ERROR;
1025: END IF;
1018: p_fod_rec, -- IN
1019: l_fod_rec); -- OUT
1020: --- If any errors happen abort API
1021: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1022: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1023: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1024: RAISE Okc_Api.G_EXCEPTION_ERROR;
1025: END IF;
1026: INSERT INTO OKL_FMLA_OPRNDS(
1019: l_fod_rec); -- OUT
1020: --- If any errors happen abort API
1021: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1022: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1023: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1024: RAISE Okc_Api.G_EXCEPTION_ERROR;
1025: END IF;
1026: INSERT INTO OKL_FMLA_OPRNDS(
1027: id,
1020: --- If any errors happen abort API
1021: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1022: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1023: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1024: RAISE Okc_Api.G_EXCEPTION_ERROR;
1025: END IF;
1026: INSERT INTO OKL_FMLA_OPRNDS(
1027: id,
1028: opd_id,
1046: l_fod_rec.last_update_date,
1047: l_fod_rec.last_update_login);
1048: -- Set OUT values
1049: x_fod_rec := l_fod_rec;
1050: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1051: EXCEPTION
1052: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1053: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1054: (
1048: -- Set OUT values
1049: x_fod_rec := l_fod_rec;
1050: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1051: EXCEPTION
1052: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1053: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1054: (
1055: l_api_name,
1056: G_PKG_NAME,
1049: x_fod_rec := l_fod_rec;
1050: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1051: EXCEPTION
1052: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1053: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1054: (
1055: l_api_name,
1056: G_PKG_NAME,
1057: 'OKC_API.G_RET_STS_ERROR',
1053: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1054: (
1055: l_api_name,
1056: G_PKG_NAME,
1057: 'OKC_API.G_RET_STS_ERROR',
1058: x_msg_count,
1059: x_msg_data,
1060: '_PVT'
1061: );
1058: x_msg_count,
1059: x_msg_data,
1060: '_PVT'
1061: );
1062: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1063: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1064: (
1065: l_api_name,
1066: G_PKG_NAME,
1059: x_msg_data,
1060: '_PVT'
1061: );
1062: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1063: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1064: (
1065: l_api_name,
1066: G_PKG_NAME,
1067: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1063: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1064: (
1065: l_api_name,
1066: G_PKG_NAME,
1067: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1068: x_msg_count,
1069: x_msg_data,
1070: '_PVT'
1071: );
1069: x_msg_data,
1070: '_PVT'
1071: );
1072: WHEN OTHERS THEN
1073: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1074: (
1075: l_api_name,
1076: G_PKG_NAME,
1077: 'OTHERS',
1084: -- insert_row for:OKL_FMLA_OPRNDS_V --
1085: --------------------------------------
1086: PROCEDURE insert_row(
1087: p_api_version IN NUMBER,
1088: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1089: x_return_status OUT NOCOPY VARCHAR2,
1090: x_msg_count OUT NOCOPY NUMBER,
1091: x_msg_data OUT NOCOPY VARCHAR2,
1092: p_fodv_rec IN fodv_rec_type,
1093: x_fodv_rec OUT NOCOPY fodv_rec_type) IS
1094:
1095: l_api_version CONSTANT NUMBER := 1;
1096: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1097: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1098: l_fodv_rec fodv_rec_type;
1099: l_def_fodv_rec fodv_rec_type;
1100: l_fod_rec fod_rec_type;
1101: lx_fod_rec fod_rec_type;
1120: FUNCTION Set_Attributes (
1121: p_fodv_rec IN fodv_rec_type,
1122: x_fodv_rec OUT NOCOPY fodv_rec_type
1123: ) RETURN VARCHAR2 IS
1124: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1125: BEGIN
1126: x_fodv_rec := p_fodv_rec;
1127: x_fodv_rec.OBJECT_VERSION_NUMBER := 1;
1128: RETURN(l_return_status);
1127: x_fodv_rec.OBJECT_VERSION_NUMBER := 1;
1128: RETURN(l_return_status);
1129: END Set_Attributes;
1130: BEGIN
1131: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1132: G_PKG_NAME,
1133: p_init_msg_list,
1134: l_api_version,
1135: p_api_version,
1134: l_api_version,
1135: p_api_version,
1136: '_PVT',
1137: x_return_status);
1138: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1139: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1140: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1141: RAISE Okc_Api.G_EXCEPTION_ERROR;
1142: END IF;
1135: p_api_version,
1136: '_PVT',
1137: x_return_status);
1138: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1139: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1140: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1141: RAISE Okc_Api.G_EXCEPTION_ERROR;
1142: END IF;
1143: l_fodv_rec := null_out_defaults(p_fodv_rec);
1136: '_PVT',
1137: x_return_status);
1138: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1139: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1140: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1141: RAISE Okc_Api.G_EXCEPTION_ERROR;
1142: END IF;
1143: l_fodv_rec := null_out_defaults(p_fodv_rec);
1144: -- Set primary key value
1137: x_return_status);
1138: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1139: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1140: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1141: RAISE Okc_Api.G_EXCEPTION_ERROR;
1142: END IF;
1143: l_fodv_rec := null_out_defaults(p_fodv_rec);
1144: -- Set primary key value
1145: l_fodv_rec.ID := get_seq_id;
1147: l_return_status := Set_Attributes(
1148: l_fodv_rec, -- IN
1149: l_def_fodv_rec); -- OUT
1150: --- If any errors happen abort API
1151: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1152: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1153: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1154: RAISE Okc_Api.G_EXCEPTION_ERROR;
1155: END IF;
1148: l_fodv_rec, -- IN
1149: l_def_fodv_rec); -- OUT
1150: --- If any errors happen abort API
1151: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1152: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1153: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1154: RAISE Okc_Api.G_EXCEPTION_ERROR;
1155: END IF;
1156: l_def_fodv_rec := fill_who_columns(l_def_fodv_rec);
1149: l_def_fodv_rec); -- OUT
1150: --- If any errors happen abort API
1151: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1152: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1153: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1154: RAISE Okc_Api.G_EXCEPTION_ERROR;
1155: END IF;
1156: l_def_fodv_rec := fill_who_columns(l_def_fodv_rec);
1157: --- Validate all non-missing attributes (Item Level Validation)
1150: --- If any errors happen abort API
1151: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1152: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1153: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1154: RAISE Okc_Api.G_EXCEPTION_ERROR;
1155: END IF;
1156: l_def_fodv_rec := fill_who_columns(l_def_fodv_rec);
1157: --- Validate all non-missing attributes (Item Level Validation)
1158: l_return_status := Validate_Attributes(l_def_fodv_rec);
1156: l_def_fodv_rec := fill_who_columns(l_def_fodv_rec);
1157: --- Validate all non-missing attributes (Item Level Validation)
1158: l_return_status := Validate_Attributes(l_def_fodv_rec);
1159: --- If any errors happen abort API
1160: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1161: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1162: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1163: RAISE Okc_Api.G_EXCEPTION_ERROR;
1164: END IF;
1157: --- Validate all non-missing attributes (Item Level Validation)
1158: l_return_status := Validate_Attributes(l_def_fodv_rec);
1159: --- If any errors happen abort API
1160: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1161: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1162: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1163: RAISE Okc_Api.G_EXCEPTION_ERROR;
1164: END IF;
1165: l_return_status := Validate_Record(l_def_fodv_rec);
1158: l_return_status := Validate_Attributes(l_def_fodv_rec);
1159: --- If any errors happen abort API
1160: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1161: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1162: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1163: RAISE Okc_Api.G_EXCEPTION_ERROR;
1164: END IF;
1165: l_return_status := Validate_Record(l_def_fodv_rec);
1166: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1159: --- If any errors happen abort API
1160: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1161: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1162: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1163: RAISE Okc_Api.G_EXCEPTION_ERROR;
1164: END IF;
1165: l_return_status := Validate_Record(l_def_fodv_rec);
1166: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1167: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1162: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1163: RAISE Okc_Api.G_EXCEPTION_ERROR;
1164: END IF;
1165: l_return_status := Validate_Record(l_def_fodv_rec);
1166: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1167: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1168: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1169: RAISE Okc_Api.G_EXCEPTION_ERROR;
1170: END IF;
1163: RAISE Okc_Api.G_EXCEPTION_ERROR;
1164: END IF;
1165: l_return_status := Validate_Record(l_def_fodv_rec);
1166: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1167: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1168: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1169: RAISE Okc_Api.G_EXCEPTION_ERROR;
1170: END IF;
1171: --------------------------------------
1164: END IF;
1165: l_return_status := Validate_Record(l_def_fodv_rec);
1166: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1167: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1168: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1169: RAISE Okc_Api.G_EXCEPTION_ERROR;
1170: END IF;
1171: --------------------------------------
1172: -- Move VIEW record to "Child" records
1165: l_return_status := Validate_Record(l_def_fodv_rec);
1166: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1167: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1168: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1169: RAISE Okc_Api.G_EXCEPTION_ERROR;
1170: END IF;
1171: --------------------------------------
1172: -- Move VIEW record to "Child" records
1173: --------------------------------------
1182: x_msg_data,
1183: l_fod_rec,
1184: lx_fod_rec
1185: );
1186: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1187: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1188: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1189: RAISE Okc_Api.G_EXCEPTION_ERROR;
1190: END IF;
1183: l_fod_rec,
1184: lx_fod_rec
1185: );
1186: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1187: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1188: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1189: RAISE Okc_Api.G_EXCEPTION_ERROR;
1190: END IF;
1191: migrate(lx_fod_rec, l_def_fodv_rec);
1184: lx_fod_rec
1185: );
1186: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1187: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1188: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1189: RAISE Okc_Api.G_EXCEPTION_ERROR;
1190: END IF;
1191: migrate(lx_fod_rec, l_def_fodv_rec);
1192: -- Set OUT values
1185: );
1186: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1187: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1188: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1189: RAISE Okc_Api.G_EXCEPTION_ERROR;
1190: END IF;
1191: migrate(lx_fod_rec, l_def_fodv_rec);
1192: -- Set OUT values
1193: x_fodv_rec := l_def_fodv_rec;
1190: END IF;
1191: migrate(lx_fod_rec, l_def_fodv_rec);
1192: -- Set OUT values
1193: x_fodv_rec := l_def_fodv_rec;
1194: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1195: EXCEPTION
1196: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1197: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1198: (
1192: -- Set OUT values
1193: x_fodv_rec := l_def_fodv_rec;
1194: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1195: EXCEPTION
1196: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1197: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1198: (
1199: l_api_name,
1200: G_PKG_NAME,
1193: x_fodv_rec := l_def_fodv_rec;
1194: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1195: EXCEPTION
1196: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1197: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1198: (
1199: l_api_name,
1200: G_PKG_NAME,
1201: 'OKC_API.G_RET_STS_ERROR',
1197: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1198: (
1199: l_api_name,
1200: G_PKG_NAME,
1201: 'OKC_API.G_RET_STS_ERROR',
1202: x_msg_count,
1203: x_msg_data,
1204: '_PVT'
1205: );
1202: x_msg_count,
1203: x_msg_data,
1204: '_PVT'
1205: );
1206: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1207: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1208: (
1209: l_api_name,
1210: G_PKG_NAME,
1203: x_msg_data,
1204: '_PVT'
1205: );
1206: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1207: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1208: (
1209: l_api_name,
1210: G_PKG_NAME,
1211: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1207: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1208: (
1209: l_api_name,
1210: G_PKG_NAME,
1211: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1212: x_msg_count,
1213: x_msg_data,
1214: '_PVT'
1215: );
1213: x_msg_data,
1214: '_PVT'
1215: );
1216: WHEN OTHERS THEN
1217: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1218: (
1219: l_api_name,
1220: G_PKG_NAME,
1221: 'OTHERS',
1228: -- PL/SQL TBL insert_row for:FODV_TBL --
1229: ----------------------------------------
1230: PROCEDURE insert_row(
1231: p_api_version IN NUMBER,
1232: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1233: x_return_status OUT NOCOPY VARCHAR2,
1234: x_msg_count OUT NOCOPY NUMBER,
1235: x_msg_data OUT NOCOPY VARCHAR2,
1236: p_fodv_tbl IN fodv_tbl_type,
1237: x_fodv_tbl OUT NOCOPY fodv_tbl_type) IS
1238:
1239: l_api_version CONSTANT NUMBER := 1;
1240: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1241: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1242: i NUMBER := 0;
1243: -- START change : mvasudev, 05/15/2001
1244: -- Adding OverAll Status Flag
1245: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1241: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1242: i NUMBER := 0;
1243: -- START change : mvasudev, 05/15/2001
1244: -- Adding OverAll Status Flag
1245: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1246: -- END change : mvasudev
1247: BEGIN
1248: Okc_Api.init_msg_list(p_init_msg_list);
1249: -- Make sure PL/SQL table has records in it before passing
1244: -- Adding OverAll Status Flag
1245: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1246: -- END change : mvasudev
1247: BEGIN
1248: Okc_Api.init_msg_list(p_init_msg_list);
1249: -- Make sure PL/SQL table has records in it before passing
1250: IF (p_fodv_tbl.COUNT > 0) THEN
1251: i := p_fodv_tbl.FIRST;
1252: LOOP
1251: i := p_fodv_tbl.FIRST;
1252: LOOP
1253: insert_row (
1254: p_api_version => p_api_version,
1255: p_init_msg_list => Okc_Api.G_FALSE,
1256: x_return_status => x_return_status,
1257: x_msg_count => x_msg_count,
1258: x_msg_data => x_msg_data,
1259: p_fodv_rec => p_fodv_tbl(i),
1259: p_fodv_rec => p_fodv_tbl(i),
1260: x_fodv_rec => x_fodv_tbl(i));
1261: -- START change : mvasudev, 05/15/2001
1262: -- store the highest degree of error
1263: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1264: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1265: l_overall_status := x_return_status;
1266: END IF;
1267: END IF;
1260: x_fodv_rec => x_fodv_tbl(i));
1261: -- START change : mvasudev, 05/15/2001
1262: -- store the highest degree of error
1263: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1264: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1265: l_overall_status := x_return_status;
1266: END IF;
1267: END IF;
1268: -- END change : mvasudev
1274: x_return_status := l_overall_status;
1275: -- END change : mvasudev
1276: END IF;
1277: EXCEPTION
1278: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1279: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1280: (
1281: l_api_name,
1282: G_PKG_NAME,
1275: -- END change : mvasudev
1276: END IF;
1277: EXCEPTION
1278: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1279: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1280: (
1281: l_api_name,
1282: G_PKG_NAME,
1283: 'OKC_API.G_RET_STS_ERROR',
1279: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1280: (
1281: l_api_name,
1282: G_PKG_NAME,
1283: 'OKC_API.G_RET_STS_ERROR',
1284: x_msg_count,
1285: x_msg_data,
1286: '_PVT'
1287: );
1284: x_msg_count,
1285: x_msg_data,
1286: '_PVT'
1287: );
1288: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1289: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1290: (
1291: l_api_name,
1292: G_PKG_NAME,
1285: x_msg_data,
1286: '_PVT'
1287: );
1288: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1289: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1290: (
1291: l_api_name,
1292: G_PKG_NAME,
1293: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1289: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1290: (
1291: l_api_name,
1292: G_PKG_NAME,
1293: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1294: x_msg_count,
1295: x_msg_data,
1296: '_PVT'
1297: );
1295: x_msg_data,
1296: '_PVT'
1297: );
1298: WHEN OTHERS THEN
1299: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1300: (
1301: l_api_name,
1302: G_PKG_NAME,
1303: 'OTHERS',
1313: ----------------------------------
1314: -- lock_row for:OKL_FMLA_OPRNDS --
1315: ----------------------------------
1316: PROCEDURE lock_row(
1317: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1318: x_return_status OUT NOCOPY VARCHAR2,
1319: x_msg_count OUT NOCOPY NUMBER,
1320: x_msg_data OUT NOCOPY VARCHAR2,
1321: p_fod_rec IN fod_rec_type) IS
1334: FROM OKL_FMLA_OPRNDS
1335: WHERE ID = p_fod_rec.id;
1336: l_api_version CONSTANT NUMBER := 1;
1337: l_api_name CONSTANT VARCHAR2(30) := 'OPRNDS_lock_row';
1338: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1339: l_object_version_number OKL_FMLA_OPRNDS.OBJECT_VERSION_NUMBER%TYPE;
1340: lc_object_version_number OKL_FMLA_OPRNDS.OBJECT_VERSION_NUMBER%TYPE;
1341: l_row_notfound BOOLEAN := FALSE;
1342: lc_row_notfound BOOLEAN := FALSE;
1340: lc_object_version_number OKL_FMLA_OPRNDS.OBJECT_VERSION_NUMBER%TYPE;
1341: l_row_notfound BOOLEAN := FALSE;
1342: lc_row_notfound BOOLEAN := FALSE;
1343: BEGIN
1344: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1345: p_init_msg_list,
1346: '_PVT',
1347: x_return_status);
1348: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1344: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1345: p_init_msg_list,
1346: '_PVT',
1347: x_return_status);
1348: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1351: RAISE Okc_Api.G_EXCEPTION_ERROR;
1352: END IF;
1345: p_init_msg_list,
1346: '_PVT',
1347: x_return_status);
1348: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1351: RAISE Okc_Api.G_EXCEPTION_ERROR;
1352: END IF;
1353: BEGIN
1346: '_PVT',
1347: x_return_status);
1348: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1351: RAISE Okc_Api.G_EXCEPTION_ERROR;
1352: END IF;
1353: BEGIN
1354: OPEN lock_csr(p_fod_rec);
1347: x_return_status);
1348: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1349: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1350: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1351: RAISE Okc_Api.G_EXCEPTION_ERROR;
1352: END IF;
1353: BEGIN
1354: OPEN lock_csr(p_fod_rec);
1355: FETCH lock_csr INTO l_object_version_number;
1359: WHEN E_Resource_Busy THEN
1360: IF (lock_csr%ISOPEN) THEN
1361: CLOSE lock_csr;
1362: END IF;
1363: Okc_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1364: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1365: END;
1366:
1367: IF ( l_row_notfound ) THEN
1370: lc_row_notfound := lchk_csr%NOTFOUND;
1371: CLOSE lchk_csr;
1372: END IF;
1373: IF (lc_row_notfound) THEN
1374: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1375: RAISE Okc_Api.G_EXCEPTION_ERROR;
1376: ELSIF lc_object_version_number > p_fod_rec.object_version_number THEN
1377: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1378: RAISE Okc_Api.G_EXCEPTION_ERROR;
1371: CLOSE lchk_csr;
1372: END IF;
1373: IF (lc_row_notfound) THEN
1374: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1375: RAISE Okc_Api.G_EXCEPTION_ERROR;
1376: ELSIF lc_object_version_number > p_fod_rec.object_version_number THEN
1377: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1378: RAISE Okc_Api.G_EXCEPTION_ERROR;
1379: ELSIF lc_object_version_number <> p_fod_rec.object_version_number THEN
1373: IF (lc_row_notfound) THEN
1374: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1375: RAISE Okc_Api.G_EXCEPTION_ERROR;
1376: ELSIF lc_object_version_number > p_fod_rec.object_version_number THEN
1377: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1378: RAISE Okc_Api.G_EXCEPTION_ERROR;
1379: ELSIF lc_object_version_number <> p_fod_rec.object_version_number THEN
1380: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1381: RAISE Okc_Api.G_EXCEPTION_ERROR;
1374: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1375: RAISE Okc_Api.G_EXCEPTION_ERROR;
1376: ELSIF lc_object_version_number > p_fod_rec.object_version_number THEN
1377: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1378: RAISE Okc_Api.G_EXCEPTION_ERROR;
1379: ELSIF lc_object_version_number <> p_fod_rec.object_version_number THEN
1380: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1381: RAISE Okc_Api.G_EXCEPTION_ERROR;
1382: ELSIF lc_object_version_number = -1 THEN
1376: ELSIF lc_object_version_number > p_fod_rec.object_version_number THEN
1377: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1378: RAISE Okc_Api.G_EXCEPTION_ERROR;
1379: ELSIF lc_object_version_number <> p_fod_rec.object_version_number THEN
1380: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1381: RAISE Okc_Api.G_EXCEPTION_ERROR;
1382: ELSIF lc_object_version_number = -1 THEN
1383: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1384: RAISE Okc_Api.G_EXCEPTION_ERROR;
1377: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1378: RAISE Okc_Api.G_EXCEPTION_ERROR;
1379: ELSIF lc_object_version_number <> p_fod_rec.object_version_number THEN
1380: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1381: RAISE Okc_Api.G_EXCEPTION_ERROR;
1382: ELSIF lc_object_version_number = -1 THEN
1383: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1384: RAISE Okc_Api.G_EXCEPTION_ERROR;
1385: END IF;
1379: ELSIF lc_object_version_number <> p_fod_rec.object_version_number THEN
1380: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1381: RAISE Okc_Api.G_EXCEPTION_ERROR;
1382: ELSIF lc_object_version_number = -1 THEN
1383: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1384: RAISE Okc_Api.G_EXCEPTION_ERROR;
1385: END IF;
1386: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1380: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1381: RAISE Okc_Api.G_EXCEPTION_ERROR;
1382: ELSIF lc_object_version_number = -1 THEN
1383: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1384: RAISE Okc_Api.G_EXCEPTION_ERROR;
1385: END IF;
1386: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1382: ELSIF lc_object_version_number = -1 THEN
1383: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1384: RAISE Okc_Api.G_EXCEPTION_ERROR;
1385: END IF;
1386: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1389: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1390: (
1384: RAISE Okc_Api.G_EXCEPTION_ERROR;
1385: END IF;
1386: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1389: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1390: (
1391: l_api_name,
1392: G_PKG_NAME,
1385: END IF;
1386: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1389: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1390: (
1391: l_api_name,
1392: G_PKG_NAME,
1393: 'OKC_API.G_RET_STS_ERROR',
1389: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1390: (
1391: l_api_name,
1392: G_PKG_NAME,
1393: 'OKC_API.G_RET_STS_ERROR',
1394: x_msg_count,
1395: x_msg_data,
1396: '_PVT'
1397: );
1394: x_msg_count,
1395: x_msg_data,
1396: '_PVT'
1397: );
1398: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1399: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1400: (
1401: l_api_name,
1402: G_PKG_NAME,
1395: x_msg_data,
1396: '_PVT'
1397: );
1398: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1399: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1400: (
1401: l_api_name,
1402: G_PKG_NAME,
1403: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1399: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1400: (
1401: l_api_name,
1402: G_PKG_NAME,
1403: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1404: x_msg_count,
1405: x_msg_data,
1406: '_PVT'
1407: );
1405: x_msg_data,
1406: '_PVT'
1407: );
1408: WHEN OTHERS THEN
1409: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1410: (
1411: l_api_name,
1412: G_PKG_NAME,
1413: 'OTHERS',
1420: -- lock_row for:OKL_FMLA_OPRNDS_V --
1421: ------------------------------------
1422: PROCEDURE lock_row(
1423: p_api_version IN NUMBER,
1424: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1425: x_return_status OUT NOCOPY VARCHAR2,
1426: x_msg_count OUT NOCOPY NUMBER,
1427: x_msg_data OUT NOCOPY VARCHAR2,
1428: p_fodv_rec IN fodv_rec_type) IS
1428: p_fodv_rec IN fodv_rec_type) IS
1429:
1430: l_api_version CONSTANT NUMBER := 1;
1431: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1432: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1433: l_fod_rec fod_rec_type;
1434: BEGIN
1435: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1436: G_PKG_NAME,
1431: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1432: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1433: l_fod_rec fod_rec_type;
1434: BEGIN
1435: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1436: G_PKG_NAME,
1437: p_init_msg_list,
1438: l_api_version,
1439: p_api_version,
1438: l_api_version,
1439: p_api_version,
1440: '_PVT',
1441: x_return_status);
1442: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1443: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1444: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1445: RAISE Okc_Api.G_EXCEPTION_ERROR;
1446: END IF;
1439: p_api_version,
1440: '_PVT',
1441: x_return_status);
1442: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1443: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1444: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1445: RAISE Okc_Api.G_EXCEPTION_ERROR;
1446: END IF;
1447: --------------------------------------
1440: '_PVT',
1441: x_return_status);
1442: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1443: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1444: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1445: RAISE Okc_Api.G_EXCEPTION_ERROR;
1446: END IF;
1447: --------------------------------------
1448: -- Move VIEW record to "Child" records
1441: x_return_status);
1442: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1443: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1444: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1445: RAISE Okc_Api.G_EXCEPTION_ERROR;
1446: END IF;
1447: --------------------------------------
1448: -- Move VIEW record to "Child" records
1449: --------------------------------------
1457: x_msg_count,
1458: x_msg_data,
1459: l_fod_rec
1460: );
1461: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1462: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1463: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1464: RAISE Okc_Api.G_EXCEPTION_ERROR;
1465: END IF;
1458: x_msg_data,
1459: l_fod_rec
1460: );
1461: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1462: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1463: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1464: RAISE Okc_Api.G_EXCEPTION_ERROR;
1465: END IF;
1466: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1459: l_fod_rec
1460: );
1461: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1462: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1463: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1464: RAISE Okc_Api.G_EXCEPTION_ERROR;
1465: END IF;
1466: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1467: EXCEPTION
1460: );
1461: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1462: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1463: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1464: RAISE Okc_Api.G_EXCEPTION_ERROR;
1465: END IF;
1466: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1467: EXCEPTION
1468: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1462: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1463: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1464: RAISE Okc_Api.G_EXCEPTION_ERROR;
1465: END IF;
1466: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1467: EXCEPTION
1468: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1469: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1470: (
1464: RAISE Okc_Api.G_EXCEPTION_ERROR;
1465: END IF;
1466: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1467: EXCEPTION
1468: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1469: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1470: (
1471: l_api_name,
1472: G_PKG_NAME,
1465: END IF;
1466: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1467: EXCEPTION
1468: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1469: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1470: (
1471: l_api_name,
1472: G_PKG_NAME,
1473: 'OKC_API.G_RET_STS_ERROR',
1469: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1470: (
1471: l_api_name,
1472: G_PKG_NAME,
1473: 'OKC_API.G_RET_STS_ERROR',
1474: x_msg_count,
1475: x_msg_data,
1476: '_PVT'
1477: );
1474: x_msg_count,
1475: x_msg_data,
1476: '_PVT'
1477: );
1478: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1479: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1480: (
1481: l_api_name,
1482: G_PKG_NAME,
1475: x_msg_data,
1476: '_PVT'
1477: );
1478: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1479: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1480: (
1481: l_api_name,
1482: G_PKG_NAME,
1483: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1479: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1480: (
1481: l_api_name,
1482: G_PKG_NAME,
1483: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1484: x_msg_count,
1485: x_msg_data,
1486: '_PVT'
1487: );
1485: x_msg_data,
1486: '_PVT'
1487: );
1488: WHEN OTHERS THEN
1489: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1490: (
1491: l_api_name,
1492: G_PKG_NAME,
1493: 'OTHERS',
1500: -- PL/SQL TBL lock_row for:FODV_TBL --
1501: --------------------------------------
1502: PROCEDURE lock_row(
1503: p_api_version IN NUMBER,
1504: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1505: x_return_status OUT NOCOPY VARCHAR2,
1506: x_msg_count OUT NOCOPY NUMBER,
1507: x_msg_data OUT NOCOPY VARCHAR2,
1508: p_fodv_tbl IN fodv_tbl_type) IS
1508: p_fodv_tbl IN fodv_tbl_type) IS
1509:
1510: l_api_version CONSTANT NUMBER := 1;
1511: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1512: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1513: i NUMBER := 0;
1514: -- START change : mvasudev, 05/15/2001
1515: -- Adding OverAll Status Flag
1516: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1512: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1513: i NUMBER := 0;
1514: -- START change : mvasudev, 05/15/2001
1515: -- Adding OverAll Status Flag
1516: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1517: -- END change : mvasudev
1518: BEGIN
1519: Okc_Api.init_msg_list(p_init_msg_list);
1520: -- Make sure PL/SQL table has records in it before passing
1515: -- Adding OverAll Status Flag
1516: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1517: -- END change : mvasudev
1518: BEGIN
1519: Okc_Api.init_msg_list(p_init_msg_list);
1520: -- Make sure PL/SQL table has records in it before passing
1521: IF (p_fodv_tbl.COUNT > 0) THEN
1522: i := p_fodv_tbl.FIRST;
1523: LOOP
1522: i := p_fodv_tbl.FIRST;
1523: LOOP
1524: lock_row (
1525: p_api_version => p_api_version,
1526: p_init_msg_list => Okc_Api.G_FALSE,
1527: x_return_status => x_return_status,
1528: x_msg_count => x_msg_count,
1529: x_msg_data => x_msg_data,
1530: p_fodv_rec => p_fodv_tbl(i));
1529: x_msg_data => x_msg_data,
1530: p_fodv_rec => p_fodv_tbl(i));
1531: -- START change : mvasudev, 05/15/2001
1532: -- store the highest degree of error
1533: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1534: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1535: l_overall_status := x_return_status;
1536: END IF;
1537: END IF;
1530: p_fodv_rec => p_fodv_tbl(i));
1531: -- START change : mvasudev, 05/15/2001
1532: -- store the highest degree of error
1533: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1534: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1535: l_overall_status := x_return_status;
1536: END IF;
1537: END IF;
1538: -- END change : mvasudev
1544: x_return_status := l_overall_status;
1545: -- END change : mvasudev
1546: END IF;
1547: EXCEPTION
1548: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1549: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1550: (
1551: l_api_name,
1552: G_PKG_NAME,
1545: -- END change : mvasudev
1546: END IF;
1547: EXCEPTION
1548: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1549: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1550: (
1551: l_api_name,
1552: G_PKG_NAME,
1553: 'OKC_API.G_RET_STS_ERROR',
1549: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1550: (
1551: l_api_name,
1552: G_PKG_NAME,
1553: 'OKC_API.G_RET_STS_ERROR',
1554: x_msg_count,
1555: x_msg_data,
1556: '_PVT'
1557: );
1554: x_msg_count,
1555: x_msg_data,
1556: '_PVT'
1557: );
1558: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1559: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1560: (
1561: l_api_name,
1562: G_PKG_NAME,
1555: x_msg_data,
1556: '_PVT'
1557: );
1558: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1559: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1560: (
1561: l_api_name,
1562: G_PKG_NAME,
1563: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1559: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1560: (
1561: l_api_name,
1562: G_PKG_NAME,
1563: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1564: x_msg_count,
1565: x_msg_data,
1566: '_PVT'
1567: );
1565: x_msg_data,
1566: '_PVT'
1567: );
1568: WHEN OTHERS THEN
1569: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1570: (
1571: l_api_name,
1572: G_PKG_NAME,
1573: 'OTHERS',
1583: ------------------------------------
1584: -- update_row for:OKL_FMLA_OPRNDS --
1585: ------------------------------------
1586: PROCEDURE update_row(
1587: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1588: x_return_status OUT NOCOPY VARCHAR2,
1589: x_msg_count OUT NOCOPY NUMBER,
1590: x_msg_data OUT NOCOPY VARCHAR2,
1591: p_fod_rec IN fod_rec_type,
1592: x_fod_rec OUT NOCOPY fod_rec_type) IS
1593:
1594: l_api_version CONSTANT NUMBER := 1;
1595: l_api_name CONSTANT VARCHAR2(30) := 'OPRNDS_update_row';
1596: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1597: l_fod_rec fod_rec_type := p_fod_rec;
1598: l_def_fod_rec fod_rec_type;
1599: l_row_notfound BOOLEAN := TRUE;
1600: ----------------------------------
1605: x_fod_rec OUT NOCOPY fod_rec_type
1606: ) RETURN VARCHAR2 IS
1607: l_fod_rec fod_rec_type;
1608: l_row_notfound BOOLEAN := TRUE;
1609: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1610: BEGIN
1611: x_fod_rec := p_fod_rec;
1612: -- Get current database values
1613: l_fod_rec := get_rec(p_fod_rec, l_row_notfound);
1611: x_fod_rec := p_fod_rec;
1612: -- Get current database values
1613: l_fod_rec := get_rec(p_fod_rec, l_row_notfound);
1614: IF (l_row_notfound) THEN
1615: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1616: END IF;
1617: IF (x_fod_rec.id = Okc_Api.G_MISS_NUM)
1618: THEN
1619: x_fod_rec.id := l_fod_rec.id;
1613: l_fod_rec := get_rec(p_fod_rec, l_row_notfound);
1614: IF (l_row_notfound) THEN
1615: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1616: END IF;
1617: IF (x_fod_rec.id = Okc_Api.G_MISS_NUM)
1618: THEN
1619: x_fod_rec.id := l_fod_rec.id;
1620: END IF;
1621: IF (x_fod_rec.opd_id = Okc_Api.G_MISS_NUM)
1617: IF (x_fod_rec.id = Okc_Api.G_MISS_NUM)
1618: THEN
1619: x_fod_rec.id := l_fod_rec.id;
1620: END IF;
1621: IF (x_fod_rec.opd_id = Okc_Api.G_MISS_NUM)
1622: THEN
1623: x_fod_rec.opd_id := l_fod_rec.opd_id;
1624: END IF;
1625: IF (x_fod_rec.fma_id = Okc_Api.G_MISS_NUM)
1621: IF (x_fod_rec.opd_id = Okc_Api.G_MISS_NUM)
1622: THEN
1623: x_fod_rec.opd_id := l_fod_rec.opd_id;
1624: END IF;
1625: IF (x_fod_rec.fma_id = Okc_Api.G_MISS_NUM)
1626: THEN
1627: x_fod_rec.fma_id := l_fod_rec.fma_id;
1628: END IF;
1629: IF (x_fod_rec.label = Okc_Api.G_MISS_CHAR)
1625: IF (x_fod_rec.fma_id = Okc_Api.G_MISS_NUM)
1626: THEN
1627: x_fod_rec.fma_id := l_fod_rec.fma_id;
1628: END IF;
1629: IF (x_fod_rec.label = Okc_Api.G_MISS_CHAR)
1630: THEN
1631: x_fod_rec.label := l_fod_rec.label;
1632: END IF;
1633: IF (x_fod_rec.object_version_number = Okc_Api.G_MISS_NUM)
1629: IF (x_fod_rec.label = Okc_Api.G_MISS_CHAR)
1630: THEN
1631: x_fod_rec.label := l_fod_rec.label;
1632: END IF;
1633: IF (x_fod_rec.object_version_number = Okc_Api.G_MISS_NUM)
1634: THEN
1635: x_fod_rec.object_version_number := l_fod_rec.object_version_number;
1636: END IF;
1637: IF (x_fod_rec.created_by = Okc_Api.G_MISS_NUM)
1633: IF (x_fod_rec.object_version_number = Okc_Api.G_MISS_NUM)
1634: THEN
1635: x_fod_rec.object_version_number := l_fod_rec.object_version_number;
1636: END IF;
1637: IF (x_fod_rec.created_by = Okc_Api.G_MISS_NUM)
1638: THEN
1639: x_fod_rec.created_by := l_fod_rec.created_by;
1640: END IF;
1641: IF (x_fod_rec.creation_date = Okc_Api.G_MISS_DATE)
1637: IF (x_fod_rec.created_by = Okc_Api.G_MISS_NUM)
1638: THEN
1639: x_fod_rec.created_by := l_fod_rec.created_by;
1640: END IF;
1641: IF (x_fod_rec.creation_date = Okc_Api.G_MISS_DATE)
1642: THEN
1643: x_fod_rec.creation_date := l_fod_rec.creation_date;
1644: END IF;
1645: IF (x_fod_rec.last_updated_by = Okc_Api.G_MISS_NUM)
1641: IF (x_fod_rec.creation_date = Okc_Api.G_MISS_DATE)
1642: THEN
1643: x_fod_rec.creation_date := l_fod_rec.creation_date;
1644: END IF;
1645: IF (x_fod_rec.last_updated_by = Okc_Api.G_MISS_NUM)
1646: THEN
1647: x_fod_rec.last_updated_by := l_fod_rec.last_updated_by;
1648: END IF;
1649: IF (x_fod_rec.last_update_date = Okc_Api.G_MISS_DATE)
1645: IF (x_fod_rec.last_updated_by = Okc_Api.G_MISS_NUM)
1646: THEN
1647: x_fod_rec.last_updated_by := l_fod_rec.last_updated_by;
1648: END IF;
1649: IF (x_fod_rec.last_update_date = Okc_Api.G_MISS_DATE)
1650: THEN
1651: x_fod_rec.last_update_date := l_fod_rec.last_update_date;
1652: END IF;
1653: IF (x_fod_rec.last_update_login = Okc_Api.G_MISS_NUM)
1649: IF (x_fod_rec.last_update_date = Okc_Api.G_MISS_DATE)
1650: THEN
1651: x_fod_rec.last_update_date := l_fod_rec.last_update_date;
1652: END IF;
1653: IF (x_fod_rec.last_update_login = Okc_Api.G_MISS_NUM)
1654: THEN
1655: x_fod_rec.last_update_login := l_fod_rec.last_update_login;
1656: END IF;
1657: RETURN(l_return_status);
1662: FUNCTION Set_Attributes (
1663: p_fod_rec IN fod_rec_type,
1664: x_fod_rec OUT NOCOPY fod_rec_type
1665: ) RETURN VARCHAR2 IS
1666: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1667: BEGIN
1668: x_fod_rec := p_fod_rec;
1669: RETURN(l_return_status);
1670: END Set_Attributes;
1668: x_fod_rec := p_fod_rec;
1669: RETURN(l_return_status);
1670: END Set_Attributes;
1671: BEGIN
1672: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1673: p_init_msg_list,
1674: '_PVT',
1675: x_return_status);
1676: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1672: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1673: p_init_msg_list,
1674: '_PVT',
1675: x_return_status);
1676: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1679: RAISE Okc_Api.G_EXCEPTION_ERROR;
1680: END IF;
1673: p_init_msg_list,
1674: '_PVT',
1675: x_return_status);
1676: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1679: RAISE Okc_Api.G_EXCEPTION_ERROR;
1680: END IF;
1681: --- Setting item attributes
1674: '_PVT',
1675: x_return_status);
1676: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1679: RAISE Okc_Api.G_EXCEPTION_ERROR;
1680: END IF;
1681: --- Setting item attributes
1682: l_return_status := Set_Attributes(
1675: x_return_status);
1676: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1679: RAISE Okc_Api.G_EXCEPTION_ERROR;
1680: END IF;
1681: --- Setting item attributes
1682: l_return_status := Set_Attributes(
1683: p_fod_rec, -- IN
1682: l_return_status := Set_Attributes(
1683: p_fod_rec, -- IN
1684: l_fod_rec); -- OUT
1685: --- If any errors happen abort API
1686: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1687: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1689: RAISE Okc_Api.G_EXCEPTION_ERROR;
1690: END IF;
1683: p_fod_rec, -- IN
1684: l_fod_rec); -- OUT
1685: --- If any errors happen abort API
1686: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1687: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1689: RAISE Okc_Api.G_EXCEPTION_ERROR;
1690: END IF;
1691: l_return_status := populate_new_record(l_fod_rec, l_def_fod_rec);
1684: l_fod_rec); -- OUT
1685: --- If any errors happen abort API
1686: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1687: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1689: RAISE Okc_Api.G_EXCEPTION_ERROR;
1690: END IF;
1691: l_return_status := populate_new_record(l_fod_rec, l_def_fod_rec);
1692: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1685: --- If any errors happen abort API
1686: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1687: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1689: RAISE Okc_Api.G_EXCEPTION_ERROR;
1690: END IF;
1691: l_return_status := populate_new_record(l_fod_rec, l_def_fod_rec);
1692: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1693: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1689: RAISE Okc_Api.G_EXCEPTION_ERROR;
1690: END IF;
1691: l_return_status := populate_new_record(l_fod_rec, l_def_fod_rec);
1692: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1693: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1694: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1695: RAISE Okc_Api.G_EXCEPTION_ERROR;
1696: END IF;
1689: RAISE Okc_Api.G_EXCEPTION_ERROR;
1690: END IF;
1691: l_return_status := populate_new_record(l_fod_rec, l_def_fod_rec);
1692: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1693: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1694: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1695: RAISE Okc_Api.G_EXCEPTION_ERROR;
1696: END IF;
1697: UPDATE OKL_FMLA_OPRNDS
1690: END IF;
1691: l_return_status := populate_new_record(l_fod_rec, l_def_fod_rec);
1692: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1693: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1694: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1695: RAISE Okc_Api.G_EXCEPTION_ERROR;
1696: END IF;
1697: UPDATE OKL_FMLA_OPRNDS
1698: SET OPD_ID = l_def_fod_rec.opd_id,
1691: l_return_status := populate_new_record(l_fod_rec, l_def_fod_rec);
1692: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1693: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1694: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1695: RAISE Okc_Api.G_EXCEPTION_ERROR;
1696: END IF;
1697: UPDATE OKL_FMLA_OPRNDS
1698: SET OPD_ID = l_def_fod_rec.opd_id,
1699: FMA_ID = l_def_fod_rec.fma_id,
1706: LAST_UPDATE_LOGIN = l_def_fod_rec.last_update_login
1707: WHERE ID = l_def_fod_rec.id;
1708:
1709: x_fod_rec := l_def_fod_rec;
1710: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1711: EXCEPTION
1712: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1713: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1714: (
1708:
1709: x_fod_rec := l_def_fod_rec;
1710: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1711: EXCEPTION
1712: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1713: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1714: (
1715: l_api_name,
1716: G_PKG_NAME,
1709: x_fod_rec := l_def_fod_rec;
1710: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1711: EXCEPTION
1712: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1713: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1714: (
1715: l_api_name,
1716: G_PKG_NAME,
1717: 'OKC_API.G_RET_STS_ERROR',
1713: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1714: (
1715: l_api_name,
1716: G_PKG_NAME,
1717: 'OKC_API.G_RET_STS_ERROR',
1718: x_msg_count,
1719: x_msg_data,
1720: '_PVT'
1721: );
1718: x_msg_count,
1719: x_msg_data,
1720: '_PVT'
1721: );
1722: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1723: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1724: (
1725: l_api_name,
1726: G_PKG_NAME,
1719: x_msg_data,
1720: '_PVT'
1721: );
1722: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1723: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1724: (
1725: l_api_name,
1726: G_PKG_NAME,
1727: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1723: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1724: (
1725: l_api_name,
1726: G_PKG_NAME,
1727: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1728: x_msg_count,
1729: x_msg_data,
1730: '_PVT'
1731: );
1729: x_msg_data,
1730: '_PVT'
1731: );
1732: WHEN OTHERS THEN
1733: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1734: (
1735: l_api_name,
1736: G_PKG_NAME,
1737: 'OTHERS',
1744: -- update_row for:OKL_FMLA_OPRNDS_V --
1745: --------------------------------------
1746: PROCEDURE update_row(
1747: p_api_version IN NUMBER,
1748: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1749: x_return_status OUT NOCOPY VARCHAR2,
1750: x_msg_count OUT NOCOPY NUMBER,
1751: x_msg_data OUT NOCOPY VARCHAR2,
1752: p_fodv_rec IN fodv_rec_type,
1753: x_fodv_rec OUT NOCOPY fodv_rec_type) IS
1754:
1755: l_api_version CONSTANT NUMBER := 1;
1756: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1757: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1758: l_fodv_rec fodv_rec_type := p_fodv_rec;
1759: l_def_fodv_rec fodv_rec_type;
1760: l_fod_rec fod_rec_type;
1761: lx_fod_rec fod_rec_type;
1780: x_fodv_rec OUT NOCOPY fodv_rec_type
1781: ) RETURN VARCHAR2 IS
1782: l_fodv_rec fodv_rec_type;
1783: l_row_notfound BOOLEAN := TRUE;
1784: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1785: BEGIN
1786: x_fodv_rec := p_fodv_rec;
1787: -- Get current database values
1788: l_fodv_rec := get_rec(p_fodv_rec, l_row_notfound);
1786: x_fodv_rec := p_fodv_rec;
1787: -- Get current database values
1788: l_fodv_rec := get_rec(p_fodv_rec, l_row_notfound);
1789: IF (l_row_notfound) THEN
1790: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1791: END IF;
1792: IF (x_fodv_rec.id = Okc_Api.G_MISS_NUM)
1793: THEN
1794: x_fodv_rec.id := l_fodv_rec.id;
1788: l_fodv_rec := get_rec(p_fodv_rec, l_row_notfound);
1789: IF (l_row_notfound) THEN
1790: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1791: END IF;
1792: IF (x_fodv_rec.id = Okc_Api.G_MISS_NUM)
1793: THEN
1794: x_fodv_rec.id := l_fodv_rec.id;
1795: END IF;
1796: IF (x_fodv_rec.object_version_number = Okc_Api.G_MISS_NUM)
1792: IF (x_fodv_rec.id = Okc_Api.G_MISS_NUM)
1793: THEN
1794: x_fodv_rec.id := l_fodv_rec.id;
1795: END IF;
1796: IF (x_fodv_rec.object_version_number = Okc_Api.G_MISS_NUM)
1797: THEN
1798: x_fodv_rec.object_version_number := l_fodv_rec.object_version_number;
1799: END IF;
1800: IF (x_fodv_rec.opd_id = Okc_Api.G_MISS_NUM)
1796: IF (x_fodv_rec.object_version_number = Okc_Api.G_MISS_NUM)
1797: THEN
1798: x_fodv_rec.object_version_number := l_fodv_rec.object_version_number;
1799: END IF;
1800: IF (x_fodv_rec.opd_id = Okc_Api.G_MISS_NUM)
1801: THEN
1802: x_fodv_rec.opd_id := l_fodv_rec.opd_id;
1803: END IF;
1804: IF (x_fodv_rec.fma_id = Okc_Api.G_MISS_NUM)
1800: IF (x_fodv_rec.opd_id = Okc_Api.G_MISS_NUM)
1801: THEN
1802: x_fodv_rec.opd_id := l_fodv_rec.opd_id;
1803: END IF;
1804: IF (x_fodv_rec.fma_id = Okc_Api.G_MISS_NUM)
1805: THEN
1806: x_fodv_rec.fma_id := l_fodv_rec.fma_id;
1807: END IF;
1808: IF (x_fodv_rec.label = Okc_Api.G_MISS_CHAR)
1804: IF (x_fodv_rec.fma_id = Okc_Api.G_MISS_NUM)
1805: THEN
1806: x_fodv_rec.fma_id := l_fodv_rec.fma_id;
1807: END IF;
1808: IF (x_fodv_rec.label = Okc_Api.G_MISS_CHAR)
1809: THEN
1810: x_fodv_rec.label := l_fodv_rec.label;
1811: END IF;
1812: IF (x_fodv_rec.created_by = Okc_Api.G_MISS_NUM)
1808: IF (x_fodv_rec.label = Okc_Api.G_MISS_CHAR)
1809: THEN
1810: x_fodv_rec.label := l_fodv_rec.label;
1811: END IF;
1812: IF (x_fodv_rec.created_by = Okc_Api.G_MISS_NUM)
1813: THEN
1814: x_fodv_rec.created_by := l_fodv_rec.created_by;
1815: END IF;
1816: IF (x_fodv_rec.creation_date = Okc_Api.G_MISS_DATE)
1812: IF (x_fodv_rec.created_by = Okc_Api.G_MISS_NUM)
1813: THEN
1814: x_fodv_rec.created_by := l_fodv_rec.created_by;
1815: END IF;
1816: IF (x_fodv_rec.creation_date = Okc_Api.G_MISS_DATE)
1817: THEN
1818: x_fodv_rec.creation_date := l_fodv_rec.creation_date;
1819: END IF;
1820: IF (x_fodv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
1816: IF (x_fodv_rec.creation_date = Okc_Api.G_MISS_DATE)
1817: THEN
1818: x_fodv_rec.creation_date := l_fodv_rec.creation_date;
1819: END IF;
1820: IF (x_fodv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
1821: THEN
1822: x_fodv_rec.last_updated_by := l_fodv_rec.last_updated_by;
1823: END IF;
1824: IF (x_fodv_rec.last_update_date = Okc_Api.G_MISS_DATE)
1820: IF (x_fodv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
1821: THEN
1822: x_fodv_rec.last_updated_by := l_fodv_rec.last_updated_by;
1823: END IF;
1824: IF (x_fodv_rec.last_update_date = Okc_Api.G_MISS_DATE)
1825: THEN
1826: x_fodv_rec.last_update_date := l_fodv_rec.last_update_date;
1827: END IF;
1828: IF (x_fodv_rec.last_update_login = Okc_Api.G_MISS_NUM)
1824: IF (x_fodv_rec.last_update_date = Okc_Api.G_MISS_DATE)
1825: THEN
1826: x_fodv_rec.last_update_date := l_fodv_rec.last_update_date;
1827: END IF;
1828: IF (x_fodv_rec.last_update_login = Okc_Api.G_MISS_NUM)
1829: THEN
1830: x_fodv_rec.last_update_login := l_fodv_rec.last_update_login;
1831: END IF;
1832: RETURN(l_return_status);
1837: FUNCTION Set_Attributes (
1838: p_fodv_rec IN fodv_rec_type,
1839: x_fodv_rec OUT NOCOPY fodv_rec_type
1840: ) RETURN VARCHAR2 IS
1841: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1842: BEGIN
1843: x_fodv_rec := p_fodv_rec;
1844: x_fodv_rec.OBJECT_VERSION_NUMBER := NVL(x_fodv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1845: RETURN(l_return_status);
1844: x_fodv_rec.OBJECT_VERSION_NUMBER := NVL(x_fodv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1845: RETURN(l_return_status);
1846: END Set_Attributes;
1847: BEGIN
1848: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1849: G_PKG_NAME,
1850: p_init_msg_list,
1851: l_api_version,
1852: p_api_version,
1851: l_api_version,
1852: p_api_version,
1853: '_PVT',
1854: x_return_status);
1855: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1856: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1857: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1858: RAISE Okc_Api.G_EXCEPTION_ERROR;
1859: END IF;
1852: p_api_version,
1853: '_PVT',
1854: x_return_status);
1855: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1856: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1857: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1858: RAISE Okc_Api.G_EXCEPTION_ERROR;
1859: END IF;
1860: --- Setting item attributes
1853: '_PVT',
1854: x_return_status);
1855: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1856: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1857: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1858: RAISE Okc_Api.G_EXCEPTION_ERROR;
1859: END IF;
1860: --- Setting item attributes
1861: l_return_status := Set_Attributes(
1854: x_return_status);
1855: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1856: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1857: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1858: RAISE Okc_Api.G_EXCEPTION_ERROR;
1859: END IF;
1860: --- Setting item attributes
1861: l_return_status := Set_Attributes(
1862: p_fodv_rec, -- IN
1861: l_return_status := Set_Attributes(
1862: p_fodv_rec, -- IN
1863: l_fodv_rec); -- OUT
1864: --- If any errors happen abort API
1865: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1866: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1867: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1868: RAISE Okc_Api.G_EXCEPTION_ERROR;
1869: END IF;
1862: p_fodv_rec, -- IN
1863: l_fodv_rec); -- OUT
1864: --- If any errors happen abort API
1865: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1866: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1867: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1868: RAISE Okc_Api.G_EXCEPTION_ERROR;
1869: END IF;
1870: l_return_status := populate_new_record(l_fodv_rec, l_def_fodv_rec);
1863: l_fodv_rec); -- OUT
1864: --- If any errors happen abort API
1865: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1866: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1867: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1868: RAISE Okc_Api.G_EXCEPTION_ERROR;
1869: END IF;
1870: l_return_status := populate_new_record(l_fodv_rec, l_def_fodv_rec);
1871: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1864: --- If any errors happen abort API
1865: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1866: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1867: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1868: RAISE Okc_Api.G_EXCEPTION_ERROR;
1869: END IF;
1870: l_return_status := populate_new_record(l_fodv_rec, l_def_fodv_rec);
1871: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1867: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1868: RAISE Okc_Api.G_EXCEPTION_ERROR;
1869: END IF;
1870: l_return_status := populate_new_record(l_fodv_rec, l_def_fodv_rec);
1871: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1874: RAISE Okc_Api.G_EXCEPTION_ERROR;
1875: END IF;
1868: RAISE Okc_Api.G_EXCEPTION_ERROR;
1869: END IF;
1870: l_return_status := populate_new_record(l_fodv_rec, l_def_fodv_rec);
1871: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1874: RAISE Okc_Api.G_EXCEPTION_ERROR;
1875: END IF;
1876: l_def_fodv_rec := fill_who_columns(l_def_fodv_rec);
1869: END IF;
1870: l_return_status := populate_new_record(l_fodv_rec, l_def_fodv_rec);
1871: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1874: RAISE Okc_Api.G_EXCEPTION_ERROR;
1875: END IF;
1876: l_def_fodv_rec := fill_who_columns(l_def_fodv_rec);
1877: --- Validate all non-missing attributes (Item Level Validation)
1870: l_return_status := populate_new_record(l_fodv_rec, l_def_fodv_rec);
1871: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1874: RAISE Okc_Api.G_EXCEPTION_ERROR;
1875: END IF;
1876: l_def_fodv_rec := fill_who_columns(l_def_fodv_rec);
1877: --- Validate all non-missing attributes (Item Level Validation)
1878: l_return_status := Validate_Attributes(l_def_fodv_rec);
1876: l_def_fodv_rec := fill_who_columns(l_def_fodv_rec);
1877: --- Validate all non-missing attributes (Item Level Validation)
1878: l_return_status := Validate_Attributes(l_def_fodv_rec);
1879: --- If any errors happen abort API
1880: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1881: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1882: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1884: END IF;
1877: --- Validate all non-missing attributes (Item Level Validation)
1878: l_return_status := Validate_Attributes(l_def_fodv_rec);
1879: --- If any errors happen abort API
1880: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1881: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1882: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1884: END IF;
1885: l_return_status := Validate_Record(l_def_fodv_rec);
1878: l_return_status := Validate_Attributes(l_def_fodv_rec);
1879: --- If any errors happen abort API
1880: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1881: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1882: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1884: END IF;
1885: l_return_status := Validate_Record(l_def_fodv_rec);
1886: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1879: --- If any errors happen abort API
1880: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1881: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1882: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1884: END IF;
1885: l_return_status := Validate_Record(l_def_fodv_rec);
1886: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1887: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1882: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1884: END IF;
1885: l_return_status := Validate_Record(l_def_fodv_rec);
1886: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1887: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1888: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1889: RAISE Okc_Api.G_EXCEPTION_ERROR;
1890: END IF;
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1884: END IF;
1885: l_return_status := Validate_Record(l_def_fodv_rec);
1886: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1887: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1888: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1889: RAISE Okc_Api.G_EXCEPTION_ERROR;
1890: END IF;
1891:
1884: END IF;
1885: l_return_status := Validate_Record(l_def_fodv_rec);
1886: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1887: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1888: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1889: RAISE Okc_Api.G_EXCEPTION_ERROR;
1890: END IF;
1891:
1892: --------------------------------------
1885: l_return_status := Validate_Record(l_def_fodv_rec);
1886: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1887: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1888: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1889: RAISE Okc_Api.G_EXCEPTION_ERROR;
1890: END IF;
1891:
1892: --------------------------------------
1893: -- Move VIEW record to "Child" records
1903: x_msg_data,
1904: l_fod_rec,
1905: lx_fod_rec
1906: );
1907: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1910: RAISE Okc_Api.G_EXCEPTION_ERROR;
1911: END IF;
1904: l_fod_rec,
1905: lx_fod_rec
1906: );
1907: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1910: RAISE Okc_Api.G_EXCEPTION_ERROR;
1911: END IF;
1912: migrate(lx_fod_rec, l_def_fodv_rec);
1905: lx_fod_rec
1906: );
1907: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1910: RAISE Okc_Api.G_EXCEPTION_ERROR;
1911: END IF;
1912: migrate(lx_fod_rec, l_def_fodv_rec);
1913: x_fodv_rec := l_def_fodv_rec;
1906: );
1907: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1908: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1909: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1910: RAISE Okc_Api.G_EXCEPTION_ERROR;
1911: END IF;
1912: migrate(lx_fod_rec, l_def_fodv_rec);
1913: x_fodv_rec := l_def_fodv_rec;
1914: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1910: RAISE Okc_Api.G_EXCEPTION_ERROR;
1911: END IF;
1912: migrate(lx_fod_rec, l_def_fodv_rec);
1913: x_fodv_rec := l_def_fodv_rec;
1914: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1915: EXCEPTION
1916: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1917: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1918: (
1912: migrate(lx_fod_rec, l_def_fodv_rec);
1913: x_fodv_rec := l_def_fodv_rec;
1914: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1915: EXCEPTION
1916: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1917: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1918: (
1919: l_api_name,
1920: G_PKG_NAME,
1913: x_fodv_rec := l_def_fodv_rec;
1914: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1915: EXCEPTION
1916: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1917: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1918: (
1919: l_api_name,
1920: G_PKG_NAME,
1921: 'OKC_API.G_RET_STS_ERROR',
1917: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1918: (
1919: l_api_name,
1920: G_PKG_NAME,
1921: 'OKC_API.G_RET_STS_ERROR',
1922: x_msg_count,
1923: x_msg_data,
1924: '_PVT'
1925: );
1922: x_msg_count,
1923: x_msg_data,
1924: '_PVT'
1925: );
1926: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1927: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1928: (
1929: l_api_name,
1930: G_PKG_NAME,
1923: x_msg_data,
1924: '_PVT'
1925: );
1926: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1927: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1928: (
1929: l_api_name,
1930: G_PKG_NAME,
1931: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1927: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1928: (
1929: l_api_name,
1930: G_PKG_NAME,
1931: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1932: x_msg_count,
1933: x_msg_data,
1934: '_PVT'
1935: );
1933: x_msg_data,
1934: '_PVT'
1935: );
1936: WHEN OTHERS THEN
1937: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1938: (
1939: l_api_name,
1940: G_PKG_NAME,
1941: 'OTHERS',
1948: -- PL/SQL TBL update_row for:FODV_TBL --
1949: ----------------------------------------
1950: PROCEDURE update_row(
1951: p_api_version IN NUMBER,
1952: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1953: x_return_status OUT NOCOPY VARCHAR2,
1954: x_msg_count OUT NOCOPY NUMBER,
1955: x_msg_data OUT NOCOPY VARCHAR2,
1956: p_fodv_tbl IN fodv_tbl_type,
1957: x_fodv_tbl OUT NOCOPY fodv_tbl_type) IS
1958:
1959: l_api_version CONSTANT NUMBER := 1;
1960: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1961: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1962: i NUMBER := 0;
1963: -- START change : mvasudev, 05/15/2001
1964: -- Adding OverAll Status Flag
1965: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1961: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1962: i NUMBER := 0;
1963: -- START change : mvasudev, 05/15/2001
1964: -- Adding OverAll Status Flag
1965: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1966: -- END change : mvasudev
1967: BEGIN
1968: Okc_Api.init_msg_list(p_init_msg_list);
1969: -- Make sure PL/SQL table has records in it before passing
1964: -- Adding OverAll Status Flag
1965: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1966: -- END change : mvasudev
1967: BEGIN
1968: Okc_Api.init_msg_list(p_init_msg_list);
1969: -- Make sure PL/SQL table has records in it before passing
1970: IF (p_fodv_tbl.COUNT > 0) THEN
1971: i := p_fodv_tbl.FIRST;
1972: LOOP
1971: i := p_fodv_tbl.FIRST;
1972: LOOP
1973: update_row (
1974: p_api_version => p_api_version,
1975: p_init_msg_list => Okc_Api.G_FALSE,
1976: x_return_status => x_return_status,
1977: x_msg_count => x_msg_count,
1978: x_msg_data => x_msg_data,
1979: p_fodv_rec => p_fodv_tbl(i),
1979: p_fodv_rec => p_fodv_tbl(i),
1980: x_fodv_rec => x_fodv_tbl(i));
1981: -- START change : mvasudev, 05/15/2001
1982: -- store the highest degree of error
1983: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1984: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1985: l_overall_status := x_return_status;
1986: END IF;
1987: END IF;
1980: x_fodv_rec => x_fodv_tbl(i));
1981: -- START change : mvasudev, 05/15/2001
1982: -- store the highest degree of error
1983: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
1984: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
1985: l_overall_status := x_return_status;
1986: END IF;
1987: END IF;
1988: -- END change : mvasudev
1994: x_return_status := l_overall_status;
1995: -- END change : mvasudev
1996: END IF;
1997: EXCEPTION
1998: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1999: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2000: (
2001: l_api_name,
2002: G_PKG_NAME,
1995: -- END change : mvasudev
1996: END IF;
1997: EXCEPTION
1998: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1999: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2000: (
2001: l_api_name,
2002: G_PKG_NAME,
2003: 'OKC_API.G_RET_STS_ERROR',
1999: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2000: (
2001: l_api_name,
2002: G_PKG_NAME,
2003: 'OKC_API.G_RET_STS_ERROR',
2004: x_msg_count,
2005: x_msg_data,
2006: '_PVT'
2007: );
2004: x_msg_count,
2005: x_msg_data,
2006: '_PVT'
2007: );
2008: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2009: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2010: (
2011: l_api_name,
2012: G_PKG_NAME,
2005: x_msg_data,
2006: '_PVT'
2007: );
2008: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2009: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2010: (
2011: l_api_name,
2012: G_PKG_NAME,
2013: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2009: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2010: (
2011: l_api_name,
2012: G_PKG_NAME,
2013: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2014: x_msg_count,
2015: x_msg_data,
2016: '_PVT'
2017: );
2015: x_msg_data,
2016: '_PVT'
2017: );
2018: WHEN OTHERS THEN
2019: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2020: (
2021: l_api_name,
2022: G_PKG_NAME,
2023: 'OTHERS',
2033: ------------------------------------
2034: -- delete_row for:OKL_FMLA_OPRNDS --
2035: ------------------------------------
2036: PROCEDURE delete_row(
2037: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2038: x_return_status OUT NOCOPY VARCHAR2,
2039: x_msg_count OUT NOCOPY NUMBER,
2040: x_msg_data OUT NOCOPY VARCHAR2,
2041: p_fod_rec IN fod_rec_type) IS
2041: p_fod_rec IN fod_rec_type) IS
2042:
2043: l_api_version CONSTANT NUMBER := 1;
2044: l_api_name CONSTANT VARCHAR2(30) := 'OPRNDS_delete_row';
2045: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2046: l_fod_rec fod_rec_type:= p_fod_rec;
2047: l_row_notfound BOOLEAN := TRUE;
2048: BEGIN
2049: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2045: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2046: l_fod_rec fod_rec_type:= p_fod_rec;
2047: l_row_notfound BOOLEAN := TRUE;
2048: BEGIN
2049: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2050: p_init_msg_list,
2051: '_PVT',
2052: x_return_status);
2053: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2049: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2050: p_init_msg_list,
2051: '_PVT',
2052: x_return_status);
2053: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2056: RAISE Okc_Api.G_EXCEPTION_ERROR;
2057: END IF;
2050: p_init_msg_list,
2051: '_PVT',
2052: x_return_status);
2053: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2056: RAISE Okc_Api.G_EXCEPTION_ERROR;
2057: END IF;
2058: DELETE FROM OKL_FMLA_OPRNDS
2051: '_PVT',
2052: x_return_status);
2053: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2056: RAISE Okc_Api.G_EXCEPTION_ERROR;
2057: END IF;
2058: DELETE FROM OKL_FMLA_OPRNDS
2059: WHERE ID = l_fod_rec.id;
2052: x_return_status);
2053: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2056: RAISE Okc_Api.G_EXCEPTION_ERROR;
2057: END IF;
2058: DELETE FROM OKL_FMLA_OPRNDS
2059: WHERE ID = l_fod_rec.id;
2060:
2057: END IF;
2058: DELETE FROM OKL_FMLA_OPRNDS
2059: WHERE ID = l_fod_rec.id;
2060:
2061: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2062: EXCEPTION
2063: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2064: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2065: (
2059: WHERE ID = l_fod_rec.id;
2060:
2061: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2062: EXCEPTION
2063: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2064: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2065: (
2066: l_api_name,
2067: G_PKG_NAME,
2060:
2061: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2062: EXCEPTION
2063: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2064: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2065: (
2066: l_api_name,
2067: G_PKG_NAME,
2068: 'OKC_API.G_RET_STS_ERROR',
2064: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2065: (
2066: l_api_name,
2067: G_PKG_NAME,
2068: 'OKC_API.G_RET_STS_ERROR',
2069: x_msg_count,
2070: x_msg_data,
2071: '_PVT'
2072: );
2069: x_msg_count,
2070: x_msg_data,
2071: '_PVT'
2072: );
2073: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2074: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2075: (
2076: l_api_name,
2077: G_PKG_NAME,
2070: x_msg_data,
2071: '_PVT'
2072: );
2073: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2074: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2075: (
2076: l_api_name,
2077: G_PKG_NAME,
2078: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2074: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2075: (
2076: l_api_name,
2077: G_PKG_NAME,
2078: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2079: x_msg_count,
2080: x_msg_data,
2081: '_PVT'
2082: );
2080: x_msg_data,
2081: '_PVT'
2082: );
2083: WHEN OTHERS THEN
2084: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2085: (
2086: l_api_name,
2087: G_PKG_NAME,
2088: 'OTHERS',
2095: -- delete_row for:OKL_FMLA_OPRNDS_V --
2096: --------------------------------------
2097: PROCEDURE delete_row(
2098: p_api_version IN NUMBER,
2099: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2100: x_return_status OUT NOCOPY VARCHAR2,
2101: x_msg_count OUT NOCOPY NUMBER,
2102: x_msg_data OUT NOCOPY VARCHAR2,
2103: p_fodv_rec IN fodv_rec_type) IS
2103: p_fodv_rec IN fodv_rec_type) IS
2104:
2105: l_api_version CONSTANT NUMBER := 1;
2106: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2107: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2108: l_fodv_rec fodv_rec_type := p_fodv_rec;
2109: l_fod_rec fod_rec_type;
2110: BEGIN
2111: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2107: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2108: l_fodv_rec fodv_rec_type := p_fodv_rec;
2109: l_fod_rec fod_rec_type;
2110: BEGIN
2111: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2112: G_PKG_NAME,
2113: p_init_msg_list,
2114: l_api_version,
2115: p_api_version,
2114: l_api_version,
2115: p_api_version,
2116: '_PVT',
2117: x_return_status);
2118: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2119: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2120: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2121: RAISE Okc_Api.G_EXCEPTION_ERROR;
2122: END IF;
2115: p_api_version,
2116: '_PVT',
2117: x_return_status);
2118: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2119: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2120: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2121: RAISE Okc_Api.G_EXCEPTION_ERROR;
2122: END IF;
2123: --------------------------------------
2116: '_PVT',
2117: x_return_status);
2118: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2119: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2120: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2121: RAISE Okc_Api.G_EXCEPTION_ERROR;
2122: END IF;
2123: --------------------------------------
2124: -- Move VIEW record to "Child" records
2117: x_return_status);
2118: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2119: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2120: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2121: RAISE Okc_Api.G_EXCEPTION_ERROR;
2122: END IF;
2123: --------------------------------------
2124: -- Move VIEW record to "Child" records
2125: --------------------------------------
2133: x_msg_count,
2134: x_msg_data,
2135: l_fod_rec
2136: );
2137: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2140: RAISE Okc_Api.G_EXCEPTION_ERROR;
2141: END IF;
2134: x_msg_data,
2135: l_fod_rec
2136: );
2137: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2140: RAISE Okc_Api.G_EXCEPTION_ERROR;
2141: END IF;
2142: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2135: l_fod_rec
2136: );
2137: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2140: RAISE Okc_Api.G_EXCEPTION_ERROR;
2141: END IF;
2142: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2143: EXCEPTION
2136: );
2137: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2140: RAISE Okc_Api.G_EXCEPTION_ERROR;
2141: END IF;
2142: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2143: EXCEPTION
2144: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2138: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2140: RAISE Okc_Api.G_EXCEPTION_ERROR;
2141: END IF;
2142: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2143: EXCEPTION
2144: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2145: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2146: (
2140: RAISE Okc_Api.G_EXCEPTION_ERROR;
2141: END IF;
2142: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2143: EXCEPTION
2144: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2145: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2146: (
2147: l_api_name,
2148: G_PKG_NAME,
2141: END IF;
2142: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2143: EXCEPTION
2144: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2145: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2146: (
2147: l_api_name,
2148: G_PKG_NAME,
2149: 'OKC_API.G_RET_STS_ERROR',
2145: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2146: (
2147: l_api_name,
2148: G_PKG_NAME,
2149: 'OKC_API.G_RET_STS_ERROR',
2150: x_msg_count,
2151: x_msg_data,
2152: '_PVT'
2153: );
2150: x_msg_count,
2151: x_msg_data,
2152: '_PVT'
2153: );
2154: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2155: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2156: (
2157: l_api_name,
2158: G_PKG_NAME,
2151: x_msg_data,
2152: '_PVT'
2153: );
2154: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2155: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2156: (
2157: l_api_name,
2158: G_PKG_NAME,
2159: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2155: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2156: (
2157: l_api_name,
2158: G_PKG_NAME,
2159: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2160: x_msg_count,
2161: x_msg_data,
2162: '_PVT'
2163: );
2161: x_msg_data,
2162: '_PVT'
2163: );
2164: WHEN OTHERS THEN
2165: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2166: (
2167: l_api_name,
2168: G_PKG_NAME,
2169: 'OTHERS',
2176: -- PL/SQL TBL delete_row for:FODV_TBL --
2177: ----------------------------------------
2178: PROCEDURE delete_row(
2179: p_api_version IN NUMBER,
2180: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2181: x_return_status OUT NOCOPY VARCHAR2,
2182: x_msg_count OUT NOCOPY NUMBER,
2183: x_msg_data OUT NOCOPY VARCHAR2,
2184: p_fodv_tbl IN fodv_tbl_type) IS
2184: p_fodv_tbl IN fodv_tbl_type) IS
2185:
2186: l_api_version CONSTANT NUMBER := 1;
2187: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2188: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2189: i NUMBER := 0;
2190: -- START change : mvasudev, 05/15/2001
2191: -- Adding OverAll Status Flag
2192: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2188: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2189: i NUMBER := 0;
2190: -- START change : mvasudev, 05/15/2001
2191: -- Adding OverAll Status Flag
2192: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2193: -- END change : mvasudev
2194: BEGIN
2195: Okc_Api.init_msg_list(p_init_msg_list);
2196: -- Make sure PL/SQL table has records in it before passing
2191: -- Adding OverAll Status Flag
2192: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2193: -- END change : mvasudev
2194: BEGIN
2195: Okc_Api.init_msg_list(p_init_msg_list);
2196: -- Make sure PL/SQL table has records in it before passing
2197: IF (p_fodv_tbl.COUNT > 0) THEN
2198: i := p_fodv_tbl.FIRST;
2199: LOOP
2198: i := p_fodv_tbl.FIRST;
2199: LOOP
2200: delete_row (
2201: p_api_version => p_api_version,
2202: p_init_msg_list => Okc_Api.G_FALSE,
2203: x_return_status => x_return_status,
2204: x_msg_count => x_msg_count,
2205: x_msg_data => x_msg_data,
2206: p_fodv_rec => p_fodv_tbl(i));
2205: x_msg_data => x_msg_data,
2206: p_fodv_rec => p_fodv_tbl(i));
2207: -- START change : mvasudev, 05/15/2001
2208: -- store the highest degree of error
2209: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2210: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2211: l_overall_status := x_return_status;
2212: END IF;
2213: END IF;
2206: p_fodv_rec => p_fodv_tbl(i));
2207: -- START change : mvasudev, 05/15/2001
2208: -- store the highest degree of error
2209: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
2210: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
2211: l_overall_status := x_return_status;
2212: END IF;
2213: END IF;
2214: -- END change : mvasudev
2220: x_return_status := l_overall_status;
2221: -- END change : mvasudev
2222: END IF;
2223: EXCEPTION
2224: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2225: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2226: (
2227: l_api_name,
2228: G_PKG_NAME,
2221: -- END change : mvasudev
2222: END IF;
2223: EXCEPTION
2224: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2225: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2226: (
2227: l_api_name,
2228: G_PKG_NAME,
2229: 'OKC_API.G_RET_STS_ERROR',
2225: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2226: (
2227: l_api_name,
2228: G_PKG_NAME,
2229: 'OKC_API.G_RET_STS_ERROR',
2230: x_msg_count,
2231: x_msg_data,
2232: '_PVT'
2233: );
2230: x_msg_count,
2231: x_msg_data,
2232: '_PVT'
2233: );
2234: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2235: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2236: (
2237: l_api_name,
2238: G_PKG_NAME,
2231: x_msg_data,
2232: '_PVT'
2233: );
2234: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2235: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2236: (
2237: l_api_name,
2238: G_PKG_NAME,
2239: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2235: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2236: (
2237: l_api_name,
2238: G_PKG_NAME,
2239: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2240: x_msg_count,
2241: x_msg_data,
2242: '_PVT'
2243: );
2241: x_msg_data,
2242: '_PVT'
2243: );
2244: WHEN OTHERS THEN
2245: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2246: (
2247: l_api_name,
2248: G_PKG_NAME,
2249: 'OTHERS',