139: p_coev_rec IN coev_rec_type
140: ) RETURN coev_rec_type IS
141: l_coev_rec coev_rec_type := p_coev_rec;
142: BEGIN
143: IF (l_coev_rec.cnh_id = OKC_API.G_MISS_NUM) THEN
144: l_coev_rec.cnh_id := NULL;
145: END IF;
146: IF (l_coev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
147: l_coev_rec.object_version_number := NULL;
142: BEGIN
143: IF (l_coev_rec.cnh_id = OKC_API.G_MISS_NUM) THEN
144: l_coev_rec.cnh_id := NULL;
145: END IF;
146: IF (l_coev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
147: l_coev_rec.object_version_number := NULL;
148: END IF;
149: IF (l_coev_rec.datetime = OKC_API.G_MISS_DATE) THEN
150: l_coev_rec.datetime := NULL;
145: END IF;
146: IF (l_coev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
147: l_coev_rec.object_version_number := NULL;
148: END IF;
149: IF (l_coev_rec.datetime = OKC_API.G_MISS_DATE) THEN
150: l_coev_rec.datetime := NULL;
151: END IF;
152: IF (l_coev_rec.created_by = OKC_API.G_MISS_NUM) THEN
153: l_coev_rec.created_by := NULL;
148: END IF;
149: IF (l_coev_rec.datetime = OKC_API.G_MISS_DATE) THEN
150: l_coev_rec.datetime := NULL;
151: END IF;
152: IF (l_coev_rec.created_by = OKC_API.G_MISS_NUM) THEN
153: l_coev_rec.created_by := NULL;
154: END IF;
155: IF (l_coev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
156: l_coev_rec.creation_date := NULL;
151: END IF;
152: IF (l_coev_rec.created_by = OKC_API.G_MISS_NUM) THEN
153: l_coev_rec.created_by := NULL;
154: END IF;
155: IF (l_coev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
156: l_coev_rec.creation_date := NULL;
157: END IF;
158: IF (l_coev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
159: l_coev_rec.last_updated_by := NULL;
154: END IF;
155: IF (l_coev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
156: l_coev_rec.creation_date := NULL;
157: END IF;
158: IF (l_coev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
159: l_coev_rec.last_updated_by := NULL;
160: END IF;
161: IF (l_coev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
162: l_coev_rec.last_update_date := NULL;
157: END IF;
158: IF (l_coev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
159: l_coev_rec.last_updated_by := NULL;
160: END IF;
161: IF (l_coev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
162: l_coev_rec.last_update_date := NULL;
163: END IF;
164: IF (l_coev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
165: l_coev_rec.last_update_login := NULL;
160: END IF;
161: IF (l_coev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
162: l_coev_rec.last_update_date := NULL;
163: END IF;
164: IF (l_coev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
165: l_coev_rec.last_update_login := NULL;
166: END IF;
167: RETURN(l_coev_rec);
168: END null_out_defaults;
175: /* commenting out nocopy generated code in favor of hand written code
176: FUNCTION Validate_Attributes (
177: p_coev_rec IN coev_rec_type
178: ) RETURN VARCHAR2 IS
179: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
180: BEGIN
181: IF p_coev_rec.id = OKC_API.G_MISS_NUM OR
182: p_coev_rec.id IS NULL
183: THEN
177: p_coev_rec IN coev_rec_type
178: ) RETURN VARCHAR2 IS
179: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
180: BEGIN
181: IF p_coev_rec.id = OKC_API.G_MISS_NUM OR
182: p_coev_rec.id IS NULL
183: THEN
184: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
185: l_return_status := OKC_API.G_RET_STS_ERROR;
180: BEGIN
181: IF p_coev_rec.id = OKC_API.G_MISS_NUM OR
182: p_coev_rec.id IS NULL
183: THEN
184: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
185: l_return_status := OKC_API.G_RET_STS_ERROR;
186: ELSIF p_coev_rec.cnh_id = OKC_API.G_MISS_NUM OR
187: p_coev_rec.cnh_id IS NULL
188: THEN
181: IF p_coev_rec.id = OKC_API.G_MISS_NUM OR
182: p_coev_rec.id IS NULL
183: THEN
184: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
185: l_return_status := OKC_API.G_RET_STS_ERROR;
186: ELSIF p_coev_rec.cnh_id = OKC_API.G_MISS_NUM OR
187: p_coev_rec.cnh_id IS NULL
188: THEN
189: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnh_id');
182: p_coev_rec.id IS NULL
183: THEN
184: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
185: l_return_status := OKC_API.G_RET_STS_ERROR;
186: ELSIF p_coev_rec.cnh_id = OKC_API.G_MISS_NUM OR
187: p_coev_rec.cnh_id IS NULL
188: THEN
189: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnh_id');
190: l_return_status := OKC_API.G_RET_STS_ERROR;
185: l_return_status := OKC_API.G_RET_STS_ERROR;
186: ELSIF p_coev_rec.cnh_id = OKC_API.G_MISS_NUM OR
187: p_coev_rec.cnh_id IS NULL
188: THEN
189: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnh_id');
190: l_return_status := OKC_API.G_RET_STS_ERROR;
191: ELSIF p_coev_rec.object_version_number = OKC_API.G_MISS_NUM OR
192: p_coev_rec.object_version_number IS NULL
193: THEN
186: ELSIF p_coev_rec.cnh_id = OKC_API.G_MISS_NUM OR
187: p_coev_rec.cnh_id IS NULL
188: THEN
189: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnh_id');
190: l_return_status := OKC_API.G_RET_STS_ERROR;
191: ELSIF p_coev_rec.object_version_number = OKC_API.G_MISS_NUM OR
192: p_coev_rec.object_version_number IS NULL
193: THEN
194: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
187: p_coev_rec.cnh_id IS NULL
188: THEN
189: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnh_id');
190: l_return_status := OKC_API.G_RET_STS_ERROR;
191: ELSIF p_coev_rec.object_version_number = OKC_API.G_MISS_NUM OR
192: p_coev_rec.object_version_number IS NULL
193: THEN
194: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
195: l_return_status := OKC_API.G_RET_STS_ERROR;
190: l_return_status := OKC_API.G_RET_STS_ERROR;
191: ELSIF p_coev_rec.object_version_number = OKC_API.G_MISS_NUM OR
192: p_coev_rec.object_version_number IS NULL
193: THEN
194: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
195: l_return_status := OKC_API.G_RET_STS_ERROR;
196: ELSIF p_coev_rec.datetime = OKC_API.G_MISS_DATE OR
197: p_coev_rec.datetime IS NULL
198: THEN
191: ELSIF p_coev_rec.object_version_number = OKC_API.G_MISS_NUM OR
192: p_coev_rec.object_version_number IS NULL
193: THEN
194: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
195: l_return_status := OKC_API.G_RET_STS_ERROR;
196: ELSIF p_coev_rec.datetime = OKC_API.G_MISS_DATE OR
197: p_coev_rec.datetime IS NULL
198: THEN
199: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'datetime');
192: p_coev_rec.object_version_number IS NULL
193: THEN
194: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
195: l_return_status := OKC_API.G_RET_STS_ERROR;
196: ELSIF p_coev_rec.datetime = OKC_API.G_MISS_DATE OR
197: p_coev_rec.datetime IS NULL
198: THEN
199: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'datetime');
200: l_return_status := OKC_API.G_RET_STS_ERROR;
195: l_return_status := OKC_API.G_RET_STS_ERROR;
196: ELSIF p_coev_rec.datetime = OKC_API.G_MISS_DATE OR
197: p_coev_rec.datetime IS NULL
198: THEN
199: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'datetime');
200: l_return_status := OKC_API.G_RET_STS_ERROR;
201: END IF;
202: RETURN(l_return_status);
203: END Validate_Attributes;
196: ELSIF p_coev_rec.datetime = OKC_API.G_MISS_DATE OR
197: p_coev_rec.datetime IS NULL
198: THEN
199: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'datetime');
200: l_return_status := OKC_API.G_RET_STS_ERROR;
201: END IF;
202: RETURN(l_return_status);
203: END Validate_Attributes;
204: */
220: PROCEDURE Validate_Cnh_Id(x_return_status OUT NOCOPY VARCHAR2
221: ,p_coev_rec IN coev_rec_type)
222: IS
223:
224: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
225:
226: BEGIN
227: -- initialize return status
228: x_return_status := OKC_API.G_RET_STS_SUCCESS;
224: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
225:
226: BEGIN
227: -- initialize return status
228: x_return_status := OKC_API.G_RET_STS_SUCCESS;
229:
230: -- check for data before processing
231: IF (p_coev_rec.cnh_id IS NULL) OR
232: (p_coev_rec.cnh_id = OKC_API.G_MISS_NUM) THEN
228: x_return_status := OKC_API.G_RET_STS_SUCCESS;
229:
230: -- check for data before processing
231: IF (p_coev_rec.cnh_id IS NULL) OR
232: (p_coev_rec.cnh_id = OKC_API.G_MISS_NUM) THEN
233: OKC_API.SET_MESSAGE(p_app_name => g_app_name
234: ,p_msg_name => g_required_value
235: ,p_token1 => g_col_name_token
236: ,p_token1_value => 'cnh_id');
229:
230: -- check for data before processing
231: IF (p_coev_rec.cnh_id IS NULL) OR
232: (p_coev_rec.cnh_id = OKC_API.G_MISS_NUM) THEN
233: OKC_API.SET_MESSAGE(p_app_name => g_app_name
234: ,p_msg_name => g_required_value
235: ,p_token1 => g_col_name_token
236: ,p_token1_value => 'cnh_id');
237: x_return_status := OKC_API.G_RET_STS_ERROR;
233: OKC_API.SET_MESSAGE(p_app_name => g_app_name
234: ,p_msg_name => g_required_value
235: ,p_token1 => g_col_name_token
236: ,p_token1_value => 'cnh_id');
237: x_return_status := OKC_API.G_RET_STS_ERROR;
238: RAISE G_EXCEPTION_HALT_VALIDATION;
239: END IF;
240:
241: EXCEPTION
245: NULL;
246:
247: WHEN OTHERS THEN
248: -- store SQL error message on message stack for caller
249: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
250: p_msg_name => g_unexpected_error,
251: p_token1 => g_sqlcode_token,
252: p_token1_value => sqlcode,
253: p_token2 => g_sqlerrm_token,
253: p_token2 => g_sqlerrm_token,
254: p_token2_value => sqlerrm);
255:
256: -- notify caller of an UNEXPECTED error
257: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
258:
259: END Validate_Cnh_Id;
260:
261: ---------------------------------------------------------------------------
273: PROCEDURE Validate_Object_Version_Number(x_return_status OUT NOCOPY VARCHAR2
274: ,p_coev_rec IN coev_rec_type)
275: IS
276:
277: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
278:
279: BEGIN
280: -- initialize return status
281: x_return_status := OKC_API.G_RET_STS_SUCCESS;
277: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
278:
279: BEGIN
280: -- initialize return status
281: x_return_status := OKC_API.G_RET_STS_SUCCESS;
282:
283: -- check for data before processing
284: IF (p_coev_rec.object_version_number IS NULL) OR
285: (p_coev_rec.object_version_Number = OKC_API.G_MISS_NUM) THEN
281: x_return_status := OKC_API.G_RET_STS_SUCCESS;
282:
283: -- check for data before processing
284: IF (p_coev_rec.object_version_number IS NULL) OR
285: (p_coev_rec.object_version_Number = OKC_API.G_MISS_NUM) THEN
286: OKC_API.SET_MESSAGE(p_app_name => g_app_name
287: ,p_msg_name => g_required_value
288: ,p_token1 => g_col_name_token
289: ,p_token1_value => 'object_version_number');
282:
283: -- check for data before processing
284: IF (p_coev_rec.object_version_number IS NULL) OR
285: (p_coev_rec.object_version_Number = OKC_API.G_MISS_NUM) THEN
286: OKC_API.SET_MESSAGE(p_app_name => g_app_name
287: ,p_msg_name => g_required_value
288: ,p_token1 => g_col_name_token
289: ,p_token1_value => 'object_version_number');
290: x_return_status := OKC_API.G_RET_STS_ERROR;
286: OKC_API.SET_MESSAGE(p_app_name => g_app_name
287: ,p_msg_name => g_required_value
288: ,p_token1 => g_col_name_token
289: ,p_token1_value => 'object_version_number');
290: x_return_status := OKC_API.G_RET_STS_ERROR;
291: RAISE G_EXCEPTION_HALT_VALIDATION;
292: END IF;
293:
294: EXCEPTION
298: NULL;
299:
300: WHEN OTHERS THEN
301: -- store SQL error message on message stack for caller
302: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
303: p_msg_name => g_unexpected_error,
304: p_token1 => g_sqlcode_token,
305: p_token1_value => sqlcode,
306: p_token2 => g_sqlerrm_token,
306: p_token2 => g_sqlerrm_token,
307: p_token2_value => sqlerrm);
308:
309: -- notify caller of an UNEXPECTED error
310: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
311:
312: END Validate_Object_Version_Number;
313:
314: ---------------------------------------------------------------------------
326: PROCEDURE Validate_Datetime(x_return_status OUT NOCOPY VARCHAR2
327: ,p_coev_rec IN coev_rec_type)
328: IS
329:
330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
331:
332: BEGIN
333: -- initialize return status
334: x_return_status := OKC_API.G_RET_STS_SUCCESS;
330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
331:
332: BEGIN
333: -- initialize return status
334: x_return_status := OKC_API.G_RET_STS_SUCCESS;
335:
336: -- check for data before processing
337: IF (p_coev_rec.datetime IS NULL) OR
338: (p_coev_rec.datetime = OKC_API.G_MISS_DATE) THEN
334: x_return_status := OKC_API.G_RET_STS_SUCCESS;
335:
336: -- check for data before processing
337: IF (p_coev_rec.datetime IS NULL) OR
338: (p_coev_rec.datetime = OKC_API.G_MISS_DATE) THEN
339: OKC_API.SET_MESSAGE(p_app_name => g_app_name
340: ,p_msg_name => g_required_value
341: ,p_token1 => g_col_name_token
342: ,p_token1_value => 'datetime');
335:
336: -- check for data before processing
337: IF (p_coev_rec.datetime IS NULL) OR
338: (p_coev_rec.datetime = OKC_API.G_MISS_DATE) THEN
339: OKC_API.SET_MESSAGE(p_app_name => g_app_name
340: ,p_msg_name => g_required_value
341: ,p_token1 => g_col_name_token
342: ,p_token1_value => 'datetime');
343: x_return_status := OKC_API.G_RET_STS_ERROR;
339: OKC_API.SET_MESSAGE(p_app_name => g_app_name
340: ,p_msg_name => g_required_value
341: ,p_token1 => g_col_name_token
342: ,p_token1_value => 'datetime');
343: x_return_status := OKC_API.G_RET_STS_ERROR;
344: RAISE G_EXCEPTION_HALT_VALIDATION;
345: END IF;
346:
347: EXCEPTION
351: NULL;
352:
353: WHEN OTHERS THEN
354: -- store SQL error message on message stack for caller
355: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
356: p_msg_name => g_unexpected_error,
357: p_token1 => g_sqlcode_token,
358: p_token1_value => sqlcode,
359: p_token2 => g_sqlerrm_token,
359: p_token2 => g_sqlerrm_token,
360: p_token2_value => sqlerrm);
361:
362: -- notify caller of an UNEXPECTED error
363: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
364:
365: END Validate_Datetime;
366:
367: ---------------------------------------------------------------------------
384: SELECT '1'
385: FROM Okc_Condition_Headers_V
386: WHERE okc_condition_headers_v.id = p_id;
387: l_dummy_var VARCHAR2(1);
388: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
389: l_row_notfound BOOLEAN := TRUE;
390: BEGIN
391: IF (p_coev_rec.CNH_ID IS NOT NULL)
392: THEN
394: FETCH okc_cnhv_pk_csr INTO l_dummy_var;
395: l_row_notfound := okc_cnhv_pk_csr%NOTFOUND;
396: CLOSE okc_cnhv_pk_csr;
397: IF (l_row_notfound) THEN
398: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CNH_ID');
399: RAISE item_not_found_error;
400: END IF;
401: END IF;
402: RETURN (l_return_status);
401: END IF;
402: RETURN (l_return_status);
403: EXCEPTION
404: WHEN item_not_found_error THEN
405: l_return_status := OKC_API.G_RET_STS_ERROR;
406: RETURN (l_return_status);
407: END validate_foreign_keys;
408:
409:
422:
423: FUNCTION Validate_Attributes (
424: p_coev_rec IN coev_rec_type
425: ) RETURN VARCHAR2 IS
426: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
427: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
428:
429: BEGIN
430: -- call each column-level validation
423: FUNCTION Validate_Attributes (
424: p_coev_rec IN coev_rec_type
425: ) RETURN VARCHAR2 IS
426: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
427: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
428:
429: BEGIN
430: -- call each column-level validation
431:
429: BEGIN
430: -- call each column-level validation
431:
432: -- Validate Id
433: IF p_coev_rec.id = OKC_API.G_MISS_NUM OR
434: p_coev_rec.id IS NULL
435: THEN
436: OKC_API.set_message(G_APP_NAME,G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
437: l_return_status := OKC_API.G_RET_STS_ERROR;
432: -- Validate Id
433: IF p_coev_rec.id = OKC_API.G_MISS_NUM OR
434: p_coev_rec.id IS NULL
435: THEN
436: OKC_API.set_message(G_APP_NAME,G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
437: l_return_status := OKC_API.G_RET_STS_ERROR;
438: END IF;
439:
440: -- Validate Cnh_Id
433: IF p_coev_rec.id = OKC_API.G_MISS_NUM OR
434: p_coev_rec.id IS NULL
435: THEN
436: OKC_API.set_message(G_APP_NAME,G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
437: l_return_status := OKC_API.G_RET_STS_ERROR;
438: END IF;
439:
440: -- Validate Cnh_Id
441: Validate_Cnh_Id(x_return_status,p_coev_rec);
439:
440: -- Validate Cnh_Id
441: Validate_Cnh_Id(x_return_status,p_coev_rec);
442: -- store the highest degree of error
443: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
444: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: -- need to leave
446: l_return_status := x_return_status;
447: RAISE G_EXCEPTION_HALT_VALIDATION;
440: -- Validate Cnh_Id
441: Validate_Cnh_Id(x_return_status,p_coev_rec);
442: -- store the highest degree of error
443: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
444: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: -- need to leave
446: l_return_status := x_return_status;
447: RAISE G_EXCEPTION_HALT_VALIDATION;
448: ELSE
453:
454: -- Validate Object_Version_Number
455: Validate_Object_Version_Number(x_return_status,p_coev_rec);
456: -- store the highest degree of error
457: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
458: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
459: -- need to leave
460: l_return_status := x_return_status;
461: RAISE G_EXCEPTION_HALT_VALIDATION;
454: -- Validate Object_Version_Number
455: Validate_Object_Version_Number(x_return_status,p_coev_rec);
456: -- store the highest degree of error
457: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
458: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
459: -- need to leave
460: l_return_status := x_return_status;
461: RAISE G_EXCEPTION_HALT_VALIDATION;
462: ELSE
467:
468: -- Validate Datetime
469: Validate_Datetime(x_return_status,p_coev_rec);
470: -- store the highest degree of error
471: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
472: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
473: -- need to leave
474: l_return_status := x_return_status;
475: RAISE G_EXCEPTION_HALT_VALIDATION;
468: -- Validate Datetime
469: Validate_Datetime(x_return_status,p_coev_rec);
470: -- store the highest degree of error
471: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
472: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
473: -- need to leave
474: l_return_status := x_return_status;
475: RAISE G_EXCEPTION_HALT_VALIDATION;
476: ELSE
480: END IF;
481:
482: -- Validate_Foreign_Keys;
483: l_return_status := Validate_Foreign_Keys(p_coev_rec);
484: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
486: -- need to leave
487: x_return_status := l_return_status;
488: RAISE G_EXCEPTION_HALT_VALIDATION;
481:
482: -- Validate_Foreign_Keys;
483: l_return_status := Validate_Foreign_Keys(p_coev_rec);
484: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
486: -- need to leave
487: x_return_status := l_return_status;
488: RAISE G_EXCEPTION_HALT_VALIDATION;
489: ELSE
499: NULL;
500: RETURN (l_return_status);
501: WHEN OTHERS THEN
502: -- store SQL error message on message stack for caller
503: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
504: p_msg_name => g_unexpected_error,
505: p_token1 => g_sqlcode_token,
506: p_token1_value => sqlcode,
507: p_token2 => g_sqlerrm_token,
506: p_token1_value => sqlcode,
507: p_token2 => g_sqlerrm_token,
508: p_token2_value => sqlerrm);
509: -- notify caller of an UNEXPECTED error
510: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
511: RETURN(l_return_status);
512:
513: END Validate_Attributes;
514:
523:
524: FUNCTION Validate_Record (
525: p_coev_rec IN coev_rec_type
526: ) RETURN VARCHAR2 IS
527: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
528: ------------------------------------
529: -- FUNCTION validate_foreign_keys --
530: ------------------------------------
531: FUNCTION validate_foreign_keys (
574: LAST_UPDATE_LOGIN
575: FROM Okc_Condition_Headers_V
576: WHERE okc_condition_headers_v.id = p_id;
577: l_okc_cnhv_pk okc_cnhv_pk_csr%ROWTYPE;
578: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
579: l_row_notfound BOOLEAN := TRUE;
580: BEGIN
581: IF (p_coev_rec.CNH_ID IS NOT NULL)
582: THEN
584: FETCH okc_cnhv_pk_csr INTO l_okc_cnhv_pk;
585: l_row_notfound := okc_cnhv_pk_csr%NOTFOUND;
586: CLOSE okc_cnhv_pk_csr;
587: IF (l_row_notfound) THEN
588: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CNH_ID');
589: RAISE item_not_found_error;
590: END IF;
591: END IF;
592: RETURN (l_return_status);
591: END IF;
592: RETURN (l_return_status);
593: EXCEPTION
594: WHEN item_not_found_error THEN
595: l_return_status := OKC_API.G_RET_STS_ERROR;
596: RETURN (l_return_status);
597: END validate_foreign_keys;
598: BEGIN
599: l_return_status := validate_foreign_keys (p_coev_rec);
603:
604: FUNCTION Validate_Record (
605: p_coev_rec IN coev_rec_type
606: ) RETURN VARCHAR2 IS
607: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
608: BEGIN
609: RETURN (l_return_status);
610: END Validate_Record;
611:
659: p_coev_rec IN coev_rec_type) IS
660:
661: l_api_version CONSTANT NUMBER := 1;
662: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
663: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
664: l_coev_rec coev_rec_type := p_coev_rec;
665: l_coe_rec coe_rec_type;
666: BEGIN
667: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
663: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
664: l_coev_rec coev_rec_type := p_coev_rec;
665: l_coe_rec coe_rec_type;
666: BEGIN
667: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
668: G_PKG_NAME,
669: p_init_msg_list,
670: l_api_version,
671: p_api_version,
670: l_api_version,
671: p_api_version,
672: '_PVT',
673: x_return_status);
674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
677: RAISE OKC_API.G_EXCEPTION_ERROR;
678: END IF;
671: p_api_version,
672: '_PVT',
673: x_return_status);
674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
677: RAISE OKC_API.G_EXCEPTION_ERROR;
678: END IF;
679: --- Validate all non-missing attributes (Item Level Validation)
672: '_PVT',
673: x_return_status);
674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
677: RAISE OKC_API.G_EXCEPTION_ERROR;
678: END IF;
679: --- Validate all non-missing attributes (Item Level Validation)
680: l_return_status := Validate_Attributes(l_coev_rec);
673: x_return_status);
674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
677: RAISE OKC_API.G_EXCEPTION_ERROR;
678: END IF;
679: --- Validate all non-missing attributes (Item Level Validation)
680: l_return_status := Validate_Attributes(l_coev_rec);
681: --- If any errors happen abort API
678: END IF;
679: --- Validate all non-missing attributes (Item Level Validation)
680: l_return_status := Validate_Attributes(l_coev_rec);
681: --- If any errors happen abort API
682: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
683: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
684: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
685: RAISE OKC_API.G_EXCEPTION_ERROR;
686: END IF;
679: --- Validate all non-missing attributes (Item Level Validation)
680: l_return_status := Validate_Attributes(l_coev_rec);
681: --- If any errors happen abort API
682: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
683: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
684: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
685: RAISE OKC_API.G_EXCEPTION_ERROR;
686: END IF;
687: l_return_status := Validate_Record(l_coev_rec);
680: l_return_status := Validate_Attributes(l_coev_rec);
681: --- If any errors happen abort API
682: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
683: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
684: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
685: RAISE OKC_API.G_EXCEPTION_ERROR;
686: END IF;
687: l_return_status := Validate_Record(l_coev_rec);
688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
681: --- If any errors happen abort API
682: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
683: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
684: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
685: RAISE OKC_API.G_EXCEPTION_ERROR;
686: END IF;
687: l_return_status := Validate_Record(l_coev_rec);
688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
684: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
685: RAISE OKC_API.G_EXCEPTION_ERROR;
686: END IF;
687: l_return_status := Validate_Record(l_coev_rec);
688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
691: RAISE OKC_API.G_EXCEPTION_ERROR;
692: END IF;
685: RAISE OKC_API.G_EXCEPTION_ERROR;
686: END IF;
687: l_return_status := Validate_Record(l_coev_rec);
688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
691: RAISE OKC_API.G_EXCEPTION_ERROR;
692: END IF;
693: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
686: END IF;
687: l_return_status := Validate_Record(l_coev_rec);
688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
691: RAISE OKC_API.G_EXCEPTION_ERROR;
692: END IF;
693: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
694: EXCEPTION
687: l_return_status := Validate_Record(l_coev_rec);
688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
691: RAISE OKC_API.G_EXCEPTION_ERROR;
692: END IF;
693: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
694: EXCEPTION
695: WHEN OKC_API.G_EXCEPTION_ERROR THEN
689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
691: RAISE OKC_API.G_EXCEPTION_ERROR;
692: END IF;
693: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
694: EXCEPTION
695: WHEN OKC_API.G_EXCEPTION_ERROR THEN
696: x_return_status := OKC_API.HANDLE_EXCEPTIONS
697: (
691: RAISE OKC_API.G_EXCEPTION_ERROR;
692: END IF;
693: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
694: EXCEPTION
695: WHEN OKC_API.G_EXCEPTION_ERROR THEN
696: x_return_status := OKC_API.HANDLE_EXCEPTIONS
697: (
698: l_api_name,
699: G_PKG_NAME,
692: END IF;
693: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
694: EXCEPTION
695: WHEN OKC_API.G_EXCEPTION_ERROR THEN
696: x_return_status := OKC_API.HANDLE_EXCEPTIONS
697: (
698: l_api_name,
699: G_PKG_NAME,
700: 'OKC_API.G_RET_STS_ERROR',
696: x_return_status := OKC_API.HANDLE_EXCEPTIONS
697: (
698: l_api_name,
699: G_PKG_NAME,
700: 'OKC_API.G_RET_STS_ERROR',
701: x_msg_count,
702: x_msg_data,
703: '_PVT'
704: );
701: x_msg_count,
702: x_msg_data,
703: '_PVT'
704: );
705: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
706: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
707: (
708: l_api_name,
709: G_PKG_NAME,
702: x_msg_data,
703: '_PVT'
704: );
705: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
706: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
707: (
708: l_api_name,
709: G_PKG_NAME,
710: 'OKC_API.G_RET_STS_UNEXP_ERROR',
706: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
707: (
708: l_api_name,
709: G_PKG_NAME,
710: 'OKC_API.G_RET_STS_UNEXP_ERROR',
711: x_msg_count,
712: x_msg_data,
713: '_PVT'
714: );
712: x_msg_data,
713: '_PVT'
714: );
715: WHEN OTHERS THEN
716: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
717: (
718: l_api_name,
719: G_PKG_NAME,
720: 'OTHERS',
735: p_coev_tbl IN coev_tbl_type) IS
736:
737: l_api_version CONSTANT NUMBER := 1;
738: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
739: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
740: i NUMBER := 0;
741: BEGIN
742: OKC_API.init_msg_list(p_init_msg_list);
743: -- Make sure PL/SQL table has records in it before passing
738: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
739: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
740: i NUMBER := 0;
741: BEGIN
742: OKC_API.init_msg_list(p_init_msg_list);
743: -- Make sure PL/SQL table has records in it before passing
744: IF (p_coev_tbl.COUNT > 0) THEN
745: i := p_coev_tbl.FIRST;
746: LOOP
745: i := p_coev_tbl.FIRST;
746: LOOP
747: validate_row (
748: p_api_version => p_api_version,
749: p_init_msg_list => OKC_API.G_FALSE,
750: x_return_status => x_return_status,
751: x_msg_count => x_msg_count,
752: x_msg_data => x_msg_data,
753: p_coev_rec => p_coev_tbl(i));
755: i := p_coev_tbl.NEXT(i);
756: END LOOP;
757: END IF;
758: EXCEPTION
759: WHEN OKC_API.G_EXCEPTION_ERROR THEN
760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
761: (
762: l_api_name,
763: G_PKG_NAME,
756: END LOOP;
757: END IF;
758: EXCEPTION
759: WHEN OKC_API.G_EXCEPTION_ERROR THEN
760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
761: (
762: l_api_name,
763: G_PKG_NAME,
764: 'OKC_API.G_RET_STS_ERROR',
760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
761: (
762: l_api_name,
763: G_PKG_NAME,
764: 'OKC_API.G_RET_STS_ERROR',
765: x_msg_count,
766: x_msg_data,
767: '_PVT'
768: );
765: x_msg_count,
766: x_msg_data,
767: '_PVT'
768: );
769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
770: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
771: (
772: l_api_name,
773: G_PKG_NAME,
766: x_msg_data,
767: '_PVT'
768: );
769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
770: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
771: (
772: l_api_name,
773: G_PKG_NAME,
774: 'OKC_API.G_RET_STS_UNEXP_ERROR',
770: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
771: (
772: l_api_name,
773: G_PKG_NAME,
774: 'OKC_API.G_RET_STS_UNEXP_ERROR',
775: x_msg_count,
776: x_msg_data,
777: '_PVT'
778: );
776: x_msg_data,
777: '_PVT'
778: );
779: WHEN OTHERS THEN
780: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
781: (
782: l_api_name,
783: G_PKG_NAME,
784: 'OTHERS',
803: x_coe_rec OUT NOCOPY coe_rec_type) IS
804:
805: l_api_version CONSTANT NUMBER := 1;
806: l_api_name CONSTANT VARCHAR2(30) := 'OCCURS_insert_row';
807: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
808: l_coe_rec coe_rec_type := p_coe_rec;
809: l_def_coe_rec coe_rec_type;
810: ---------------------------------------------
811: -- Set_Attributes for:OKC_CONDITION_OCCURS --
813: FUNCTION Set_Attributes (
814: p_coe_rec IN coe_rec_type,
815: x_coe_rec OUT NOCOPY coe_rec_type
816: ) RETURN VARCHAR2 IS
817: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
818: BEGIN
819: x_coe_rec := p_coe_rec;
820: RETURN(l_return_status);
821: END Set_Attributes;
819: x_coe_rec := p_coe_rec;
820: RETURN(l_return_status);
821: END Set_Attributes;
822: BEGIN
823: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
824: p_init_msg_list,
825: '_PVT',
826: x_return_status);
827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
823: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
824: p_init_msg_list,
825: '_PVT',
826: x_return_status);
827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
830: RAISE OKC_API.G_EXCEPTION_ERROR;
831: END IF;
824: p_init_msg_list,
825: '_PVT',
826: x_return_status);
827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
830: RAISE OKC_API.G_EXCEPTION_ERROR;
831: END IF;
832: --- Setting item attributes
825: '_PVT',
826: x_return_status);
827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
830: RAISE OKC_API.G_EXCEPTION_ERROR;
831: END IF;
832: --- Setting item attributes
833: l_return_status := Set_Attributes(
826: x_return_status);
827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
830: RAISE OKC_API.G_EXCEPTION_ERROR;
831: END IF;
832: --- Setting item attributes
833: l_return_status := Set_Attributes(
834: p_coe_rec, -- IN
833: l_return_status := Set_Attributes(
834: p_coe_rec, -- IN
835: l_coe_rec); -- OUT
836: --- If any errors happen abort API
837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
840: RAISE OKC_API.G_EXCEPTION_ERROR;
841: END IF;
834: p_coe_rec, -- IN
835: l_coe_rec); -- OUT
836: --- If any errors happen abort API
837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
840: RAISE OKC_API.G_EXCEPTION_ERROR;
841: END IF;
842:
835: l_coe_rec); -- OUT
836: --- If any errors happen abort API
837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
840: RAISE OKC_API.G_EXCEPTION_ERROR;
841: END IF;
842:
843: -- bug 2131122, use sysdate for LAST OCCURRENCE regardless of value passed for datetime.
836: --- If any errors happen abort API
837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
840: RAISE OKC_API.G_EXCEPTION_ERROR;
841: END IF;
842:
843: -- bug 2131122, use sysdate for LAST OCCURRENCE regardless of value passed for datetime.
844: l_coe_rec.datetime := sysdate;
864: l_coe_rec.last_update_date,
865: l_coe_rec.last_update_login);
866: -- Set OUT values
867: x_coe_rec := l_coe_rec;
868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
869: EXCEPTION
870: WHEN OKC_API.G_EXCEPTION_ERROR THEN
871: x_return_status := OKC_API.HANDLE_EXCEPTIONS
872: (
866: -- Set OUT values
867: x_coe_rec := l_coe_rec;
868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
869: EXCEPTION
870: WHEN OKC_API.G_EXCEPTION_ERROR THEN
871: x_return_status := OKC_API.HANDLE_EXCEPTIONS
872: (
873: l_api_name,
874: G_PKG_NAME,
867: x_coe_rec := l_coe_rec;
868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
869: EXCEPTION
870: WHEN OKC_API.G_EXCEPTION_ERROR THEN
871: x_return_status := OKC_API.HANDLE_EXCEPTIONS
872: (
873: l_api_name,
874: G_PKG_NAME,
875: 'OKC_API.G_RET_STS_ERROR',
871: x_return_status := OKC_API.HANDLE_EXCEPTIONS
872: (
873: l_api_name,
874: G_PKG_NAME,
875: 'OKC_API.G_RET_STS_ERROR',
876: x_msg_count,
877: x_msg_data,
878: '_PVT'
879: );
876: x_msg_count,
877: x_msg_data,
878: '_PVT'
879: );
880: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
881: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
882: (
883: l_api_name,
884: G_PKG_NAME,
877: x_msg_data,
878: '_PVT'
879: );
880: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
881: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
882: (
883: l_api_name,
884: G_PKG_NAME,
885: 'OKC_API.G_RET_STS_UNEXP_ERROR',
881: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
882: (
883: l_api_name,
884: G_PKG_NAME,
885: 'OKC_API.G_RET_STS_UNEXP_ERROR',
886: x_msg_count,
887: x_msg_data,
888: '_PVT'
889: );
887: x_msg_data,
888: '_PVT'
889: );
890: WHEN OTHERS THEN
891: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
892: (
893: l_api_name,
894: G_PKG_NAME,
895: 'OTHERS',
911: x_coev_rec OUT NOCOPY coev_rec_type) IS
912:
913: l_api_version CONSTANT NUMBER := 1;
914: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
915: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
916: l_coev_rec coev_rec_type;
917: l_def_coev_rec coev_rec_type;
918: l_coe_rec coe_rec_type;
919: lx_coe_rec coe_rec_type;
938: FUNCTION Set_Attributes (
939: p_coev_rec IN coev_rec_type,
940: x_coev_rec OUT NOCOPY coev_rec_type
941: ) RETURN VARCHAR2 IS
942: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
943: BEGIN
944: x_coev_rec := p_coev_rec;
945: x_coev_rec.OBJECT_VERSION_NUMBER := 1;
946: RETURN(l_return_status);
945: x_coev_rec.OBJECT_VERSION_NUMBER := 1;
946: RETURN(l_return_status);
947: END Set_Attributes;
948: BEGIN
949: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
950: G_PKG_NAME,
951: p_init_msg_list,
952: l_api_version,
953: p_api_version,
952: l_api_version,
953: p_api_version,
954: '_PVT',
955: x_return_status);
956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_ERROR;
960: END IF;
953: p_api_version,
954: '_PVT',
955: x_return_status);
956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_ERROR;
960: END IF;
961: l_coev_rec := null_out_defaults(p_coev_rec);
954: '_PVT',
955: x_return_status);
956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_ERROR;
960: END IF;
961: l_coev_rec := null_out_defaults(p_coev_rec);
962: -- Set primary key value
955: x_return_status);
956: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
958: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_ERROR;
960: END IF;
961: l_coev_rec := null_out_defaults(p_coev_rec);
962: -- Set primary key value
963: l_coev_rec.ID := get_seq_id;
965: l_return_status := Set_Attributes(
966: l_coev_rec, -- IN
967: l_def_coev_rec); -- OUT
968: --- If any errors happen abort API
969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
972: RAISE OKC_API.G_EXCEPTION_ERROR;
973: END IF;
966: l_coev_rec, -- IN
967: l_def_coev_rec); -- OUT
968: --- If any errors happen abort API
969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
972: RAISE OKC_API.G_EXCEPTION_ERROR;
973: END IF;
974: l_def_coev_rec := fill_who_columns(l_def_coev_rec);
967: l_def_coev_rec); -- OUT
968: --- If any errors happen abort API
969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
972: RAISE OKC_API.G_EXCEPTION_ERROR;
973: END IF;
974: l_def_coev_rec := fill_who_columns(l_def_coev_rec);
975: --- Validate all non-missing attributes (Item Level Validation)
968: --- If any errors happen abort API
969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
972: RAISE OKC_API.G_EXCEPTION_ERROR;
973: END IF;
974: l_def_coev_rec := fill_who_columns(l_def_coev_rec);
975: --- Validate all non-missing attributes (Item Level Validation)
976: l_return_status := Validate_Attributes(l_def_coev_rec);
974: l_def_coev_rec := fill_who_columns(l_def_coev_rec);
975: --- Validate all non-missing attributes (Item Level Validation)
976: l_return_status := Validate_Attributes(l_def_coev_rec);
977: --- If any errors happen abort API
978: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
980: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
981: RAISE OKC_API.G_EXCEPTION_ERROR;
982: END IF;
975: --- Validate all non-missing attributes (Item Level Validation)
976: l_return_status := Validate_Attributes(l_def_coev_rec);
977: --- If any errors happen abort API
978: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
980: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
981: RAISE OKC_API.G_EXCEPTION_ERROR;
982: END IF;
983: l_return_status := Validate_Record(l_def_coev_rec);
976: l_return_status := Validate_Attributes(l_def_coev_rec);
977: --- If any errors happen abort API
978: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
980: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
981: RAISE OKC_API.G_EXCEPTION_ERROR;
982: END IF;
983: l_return_status := Validate_Record(l_def_coev_rec);
984: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
977: --- If any errors happen abort API
978: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
980: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
981: RAISE OKC_API.G_EXCEPTION_ERROR;
982: END IF;
983: l_return_status := Validate_Record(l_def_coev_rec);
984: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
980: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
981: RAISE OKC_API.G_EXCEPTION_ERROR;
982: END IF;
983: l_return_status := Validate_Record(l_def_coev_rec);
984: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
987: RAISE OKC_API.G_EXCEPTION_ERROR;
988: END IF;
981: RAISE OKC_API.G_EXCEPTION_ERROR;
982: END IF;
983: l_return_status := Validate_Record(l_def_coev_rec);
984: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
987: RAISE OKC_API.G_EXCEPTION_ERROR;
988: END IF;
989: --------------------------------------
982: END IF;
983: l_return_status := Validate_Record(l_def_coev_rec);
984: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
987: RAISE OKC_API.G_EXCEPTION_ERROR;
988: END IF;
989: --------------------------------------
990: -- Move VIEW record to "Child" records
983: l_return_status := Validate_Record(l_def_coev_rec);
984: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
986: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
987: RAISE OKC_API.G_EXCEPTION_ERROR;
988: END IF;
989: --------------------------------------
990: -- Move VIEW record to "Child" records
991: --------------------------------------
1000: x_msg_data,
1001: l_coe_rec,
1002: lx_coe_rec
1003: );
1004: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1005: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1006: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1007: RAISE OKC_API.G_EXCEPTION_ERROR;
1008: END IF;
1001: l_coe_rec,
1002: lx_coe_rec
1003: );
1004: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1005: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1006: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1007: RAISE OKC_API.G_EXCEPTION_ERROR;
1008: END IF;
1009: migrate(lx_coe_rec, l_def_coev_rec);
1002: lx_coe_rec
1003: );
1004: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1005: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1006: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1007: RAISE OKC_API.G_EXCEPTION_ERROR;
1008: END IF;
1009: migrate(lx_coe_rec, l_def_coev_rec);
1010: -- Set OUT values
1003: );
1004: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1005: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1006: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1007: RAISE OKC_API.G_EXCEPTION_ERROR;
1008: END IF;
1009: migrate(lx_coe_rec, l_def_coev_rec);
1010: -- Set OUT values
1011: x_coev_rec := l_def_coev_rec;
1008: END IF;
1009: migrate(lx_coe_rec, l_def_coev_rec);
1010: -- Set OUT values
1011: x_coev_rec := l_def_coev_rec;
1012: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1013: EXCEPTION
1014: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1015: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1016: (
1010: -- Set OUT values
1011: x_coev_rec := l_def_coev_rec;
1012: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1013: EXCEPTION
1014: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1015: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1016: (
1017: l_api_name,
1018: G_PKG_NAME,
1011: x_coev_rec := l_def_coev_rec;
1012: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1013: EXCEPTION
1014: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1015: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1016: (
1017: l_api_name,
1018: G_PKG_NAME,
1019: 'OKC_API.G_RET_STS_ERROR',
1015: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1016: (
1017: l_api_name,
1018: G_PKG_NAME,
1019: 'OKC_API.G_RET_STS_ERROR',
1020: x_msg_count,
1021: x_msg_data,
1022: '_PVT'
1023: );
1020: x_msg_count,
1021: x_msg_data,
1022: '_PVT'
1023: );
1024: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1025: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1026: (
1027: l_api_name,
1028: G_PKG_NAME,
1021: x_msg_data,
1022: '_PVT'
1023: );
1024: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1025: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1026: (
1027: l_api_name,
1028: G_PKG_NAME,
1029: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1025: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1026: (
1027: l_api_name,
1028: G_PKG_NAME,
1029: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1030: x_msg_count,
1031: x_msg_data,
1032: '_PVT'
1033: );
1031: x_msg_data,
1032: '_PVT'
1033: );
1034: WHEN OTHERS THEN
1035: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1036: (
1037: l_api_name,
1038: G_PKG_NAME,
1039: 'OTHERS',
1055: x_coev_tbl OUT NOCOPY coev_tbl_type) IS
1056:
1057: l_api_version CONSTANT NUMBER := 1;
1058: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1059: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1060: i NUMBER := 0;
1061: BEGIN
1062: OKC_API.init_msg_list(p_init_msg_list);
1063: -- Make sure PL/SQL table has records in it before passing
1058: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1059: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1060: i NUMBER := 0;
1061: BEGIN
1062: OKC_API.init_msg_list(p_init_msg_list);
1063: -- Make sure PL/SQL table has records in it before passing
1064: IF (p_coev_tbl.COUNT > 0) THEN
1065: i := p_coev_tbl.FIRST;
1066: LOOP
1065: i := p_coev_tbl.FIRST;
1066: LOOP
1067: insert_row (
1068: p_api_version => p_api_version,
1069: p_init_msg_list => OKC_API.G_FALSE,
1070: x_return_status => x_return_status,
1071: x_msg_count => x_msg_count,
1072: x_msg_data => x_msg_data,
1073: p_coev_rec => p_coev_tbl(i),
1076: i := p_coev_tbl.NEXT(i);
1077: END LOOP;
1078: END IF;
1079: EXCEPTION
1080: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1081: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1082: (
1083: l_api_name,
1084: G_PKG_NAME,
1077: END LOOP;
1078: END IF;
1079: EXCEPTION
1080: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1081: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1082: (
1083: l_api_name,
1084: G_PKG_NAME,
1085: 'OKC_API.G_RET_STS_ERROR',
1081: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1082: (
1083: l_api_name,
1084: G_PKG_NAME,
1085: 'OKC_API.G_RET_STS_ERROR',
1086: x_msg_count,
1087: x_msg_data,
1088: '_PVT'
1089: );
1086: x_msg_count,
1087: x_msg_data,
1088: '_PVT'
1089: );
1090: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1091: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1092: (
1093: l_api_name,
1094: G_PKG_NAME,
1087: x_msg_data,
1088: '_PVT'
1089: );
1090: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1091: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1092: (
1093: l_api_name,
1094: G_PKG_NAME,
1095: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1091: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1092: (
1093: l_api_name,
1094: G_PKG_NAME,
1095: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1096: x_msg_count,
1097: x_msg_data,
1098: '_PVT'
1099: );
1097: x_msg_data,
1098: '_PVT'
1099: );
1100: WHEN OTHERS THEN
1101: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1102: (
1103: l_api_name,
1104: G_PKG_NAME,
1105: 'OTHERS',
1136: FROM OKC_CONDITION_OCCURS
1137: WHERE ID = p_coe_rec.id;
1138: l_api_version CONSTANT NUMBER := 1;
1139: l_api_name CONSTANT VARCHAR2(30) := 'OCCURS_lock_row';
1140: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1141: l_object_version_number OKC_CONDITION_OCCURS.OBJECT_VERSION_NUMBER%TYPE;
1142: lc_object_version_number OKC_CONDITION_OCCURS.OBJECT_VERSION_NUMBER%TYPE;
1143: l_row_notfound BOOLEAN := FALSE;
1144: lc_row_notfound BOOLEAN := FALSE;
1142: lc_object_version_number OKC_CONDITION_OCCURS.OBJECT_VERSION_NUMBER%TYPE;
1143: l_row_notfound BOOLEAN := FALSE;
1144: lc_row_notfound BOOLEAN := FALSE;
1145: BEGIN
1146: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1147: p_init_msg_list,
1148: '_PVT',
1149: x_return_status);
1150: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1146: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1147: p_init_msg_list,
1148: '_PVT',
1149: x_return_status);
1150: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1152: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1153: RAISE OKC_API.G_EXCEPTION_ERROR;
1154: END IF;
1147: p_init_msg_list,
1148: '_PVT',
1149: x_return_status);
1150: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1152: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1153: RAISE OKC_API.G_EXCEPTION_ERROR;
1154: END IF;
1155: BEGIN
1148: '_PVT',
1149: x_return_status);
1150: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1152: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1153: RAISE OKC_API.G_EXCEPTION_ERROR;
1154: END IF;
1155: BEGIN
1156: OPEN lock_csr(p_coe_rec);
1149: x_return_status);
1150: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1152: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1153: RAISE OKC_API.G_EXCEPTION_ERROR;
1154: END IF;
1155: BEGIN
1156: OPEN lock_csr(p_coe_rec);
1157: FETCH lock_csr INTO l_object_version_number;
1161: WHEN E_Resource_Busy THEN
1162: IF (lock_csr%ISOPEN) THEN
1163: CLOSE lock_csr;
1164: END IF;
1165: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1166: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1167: END;
1168:
1169: IF ( l_row_notfound ) THEN
1172: lc_row_notfound := lchk_csr%NOTFOUND;
1173: CLOSE lchk_csr;
1174: END IF;
1175: IF (lc_row_notfound) THEN
1176: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1177: RAISE OKC_API.G_EXCEPTION_ERROR;
1178: ELSIF lc_object_version_number > p_coe_rec.object_version_number THEN
1179: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1180: RAISE OKC_API.G_EXCEPTION_ERROR;
1173: CLOSE lchk_csr;
1174: END IF;
1175: IF (lc_row_notfound) THEN
1176: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1177: RAISE OKC_API.G_EXCEPTION_ERROR;
1178: ELSIF lc_object_version_number > p_coe_rec.object_version_number THEN
1179: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1180: RAISE OKC_API.G_EXCEPTION_ERROR;
1181: ELSIF lc_object_version_number <> p_coe_rec.object_version_number THEN
1175: IF (lc_row_notfound) THEN
1176: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1177: RAISE OKC_API.G_EXCEPTION_ERROR;
1178: ELSIF lc_object_version_number > p_coe_rec.object_version_number THEN
1179: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1180: RAISE OKC_API.G_EXCEPTION_ERROR;
1181: ELSIF lc_object_version_number <> p_coe_rec.object_version_number THEN
1182: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1183: RAISE OKC_API.G_EXCEPTION_ERROR;
1176: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1177: RAISE OKC_API.G_EXCEPTION_ERROR;
1178: ELSIF lc_object_version_number > p_coe_rec.object_version_number THEN
1179: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1180: RAISE OKC_API.G_EXCEPTION_ERROR;
1181: ELSIF lc_object_version_number <> p_coe_rec.object_version_number THEN
1182: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1183: RAISE OKC_API.G_EXCEPTION_ERROR;
1184: ELSIF lc_object_version_number = -1 THEN
1178: ELSIF lc_object_version_number > p_coe_rec.object_version_number THEN
1179: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1180: RAISE OKC_API.G_EXCEPTION_ERROR;
1181: ELSIF lc_object_version_number <> p_coe_rec.object_version_number THEN
1182: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1183: RAISE OKC_API.G_EXCEPTION_ERROR;
1184: ELSIF lc_object_version_number = -1 THEN
1185: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1186: RAISE OKC_API.G_EXCEPTION_ERROR;
1179: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1180: RAISE OKC_API.G_EXCEPTION_ERROR;
1181: ELSIF lc_object_version_number <> p_coe_rec.object_version_number THEN
1182: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1183: RAISE OKC_API.G_EXCEPTION_ERROR;
1184: ELSIF lc_object_version_number = -1 THEN
1185: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1186: RAISE OKC_API.G_EXCEPTION_ERROR;
1187: END IF;
1181: ELSIF lc_object_version_number <> p_coe_rec.object_version_number THEN
1182: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1183: RAISE OKC_API.G_EXCEPTION_ERROR;
1184: ELSIF lc_object_version_number = -1 THEN
1185: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1186: RAISE OKC_API.G_EXCEPTION_ERROR;
1187: END IF;
1188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1189: EXCEPTION
1182: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1183: RAISE OKC_API.G_EXCEPTION_ERROR;
1184: ELSIF lc_object_version_number = -1 THEN
1185: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1186: RAISE OKC_API.G_EXCEPTION_ERROR;
1187: END IF;
1188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1189: EXCEPTION
1190: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1184: ELSIF lc_object_version_number = -1 THEN
1185: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1186: RAISE OKC_API.G_EXCEPTION_ERROR;
1187: END IF;
1188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1189: EXCEPTION
1190: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1191: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1192: (
1186: RAISE OKC_API.G_EXCEPTION_ERROR;
1187: END IF;
1188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1189: EXCEPTION
1190: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1191: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1192: (
1193: l_api_name,
1194: G_PKG_NAME,
1187: END IF;
1188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1189: EXCEPTION
1190: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1191: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1192: (
1193: l_api_name,
1194: G_PKG_NAME,
1195: 'OKC_API.G_RET_STS_ERROR',
1191: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1192: (
1193: l_api_name,
1194: G_PKG_NAME,
1195: 'OKC_API.G_RET_STS_ERROR',
1196: x_msg_count,
1197: x_msg_data,
1198: '_PVT'
1199: );
1196: x_msg_count,
1197: x_msg_data,
1198: '_PVT'
1199: );
1200: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1201: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1202: (
1203: l_api_name,
1204: G_PKG_NAME,
1197: x_msg_data,
1198: '_PVT'
1199: );
1200: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1201: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1202: (
1203: l_api_name,
1204: G_PKG_NAME,
1205: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1201: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1202: (
1203: l_api_name,
1204: G_PKG_NAME,
1205: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1206: x_msg_count,
1207: x_msg_data,
1208: '_PVT'
1209: );
1207: x_msg_data,
1208: '_PVT'
1209: );
1210: WHEN OTHERS THEN
1211: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1212: (
1213: l_api_name,
1214: G_PKG_NAME,
1215: 'OTHERS',
1230: p_coev_rec IN coev_rec_type) IS
1231:
1232: l_api_version CONSTANT NUMBER := 1;
1233: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1234: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1235: l_coe_rec coe_rec_type;
1236: BEGIN
1237: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1238: G_PKG_NAME,
1233: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1234: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1235: l_coe_rec coe_rec_type;
1236: BEGIN
1237: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1238: G_PKG_NAME,
1239: p_init_msg_list,
1240: l_api_version,
1241: p_api_version,
1240: l_api_version,
1241: p_api_version,
1242: '_PVT',
1243: x_return_status);
1244: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1247: RAISE OKC_API.G_EXCEPTION_ERROR;
1248: END IF;
1241: p_api_version,
1242: '_PVT',
1243: x_return_status);
1244: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1247: RAISE OKC_API.G_EXCEPTION_ERROR;
1248: END IF;
1249: --------------------------------------
1242: '_PVT',
1243: x_return_status);
1244: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1247: RAISE OKC_API.G_EXCEPTION_ERROR;
1248: END IF;
1249: --------------------------------------
1250: -- Move VIEW record to "Child" records
1243: x_return_status);
1244: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1247: RAISE OKC_API.G_EXCEPTION_ERROR;
1248: END IF;
1249: --------------------------------------
1250: -- Move VIEW record to "Child" records
1251: --------------------------------------
1259: x_msg_count,
1260: x_msg_data,
1261: l_coe_rec
1262: );
1263: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1264: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1266: RAISE OKC_API.G_EXCEPTION_ERROR;
1267: END IF;
1260: x_msg_data,
1261: l_coe_rec
1262: );
1263: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1264: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1266: RAISE OKC_API.G_EXCEPTION_ERROR;
1267: END IF;
1268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1261: l_coe_rec
1262: );
1263: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1264: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1266: RAISE OKC_API.G_EXCEPTION_ERROR;
1267: END IF;
1268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1269: EXCEPTION
1262: );
1263: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1264: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1266: RAISE OKC_API.G_EXCEPTION_ERROR;
1267: END IF;
1268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1269: EXCEPTION
1270: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1264: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1265: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1266: RAISE OKC_API.G_EXCEPTION_ERROR;
1267: END IF;
1268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1269: EXCEPTION
1270: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1271: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1272: (
1266: RAISE OKC_API.G_EXCEPTION_ERROR;
1267: END IF;
1268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1269: EXCEPTION
1270: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1271: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1272: (
1273: l_api_name,
1274: G_PKG_NAME,
1267: END IF;
1268: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1269: EXCEPTION
1270: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1271: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1272: (
1273: l_api_name,
1274: G_PKG_NAME,
1275: 'OKC_API.G_RET_STS_ERROR',
1271: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1272: (
1273: l_api_name,
1274: G_PKG_NAME,
1275: 'OKC_API.G_RET_STS_ERROR',
1276: x_msg_count,
1277: x_msg_data,
1278: '_PVT'
1279: );
1276: x_msg_count,
1277: x_msg_data,
1278: '_PVT'
1279: );
1280: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1281: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1282: (
1283: l_api_name,
1284: G_PKG_NAME,
1277: x_msg_data,
1278: '_PVT'
1279: );
1280: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1281: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1282: (
1283: l_api_name,
1284: G_PKG_NAME,
1285: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1281: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1282: (
1283: l_api_name,
1284: G_PKG_NAME,
1285: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1286: x_msg_count,
1287: x_msg_data,
1288: '_PVT'
1289: );
1287: x_msg_data,
1288: '_PVT'
1289: );
1290: WHEN OTHERS THEN
1291: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1292: (
1293: l_api_name,
1294: G_PKG_NAME,
1295: 'OTHERS',
1310: p_coev_tbl IN coev_tbl_type) IS
1311:
1312: l_api_version CONSTANT NUMBER := 1;
1313: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1314: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1315: i NUMBER := 0;
1316: BEGIN
1317: OKC_API.init_msg_list(p_init_msg_list);
1318: -- Make sure PL/SQL table has records in it before passing
1313: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1314: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1315: i NUMBER := 0;
1316: BEGIN
1317: OKC_API.init_msg_list(p_init_msg_list);
1318: -- Make sure PL/SQL table has records in it before passing
1319: IF (p_coev_tbl.COUNT > 0) THEN
1320: i := p_coev_tbl.FIRST;
1321: LOOP
1320: i := p_coev_tbl.FIRST;
1321: LOOP
1322: lock_row (
1323: p_api_version => p_api_version,
1324: p_init_msg_list => OKC_API.G_FALSE,
1325: x_return_status => x_return_status,
1326: x_msg_count => x_msg_count,
1327: x_msg_data => x_msg_data,
1328: p_coev_rec => p_coev_tbl(i));
1330: i := p_coev_tbl.NEXT(i);
1331: END LOOP;
1332: END IF;
1333: EXCEPTION
1334: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1336: (
1337: l_api_name,
1338: G_PKG_NAME,
1331: END LOOP;
1332: END IF;
1333: EXCEPTION
1334: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1336: (
1337: l_api_name,
1338: G_PKG_NAME,
1339: 'OKC_API.G_RET_STS_ERROR',
1335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1336: (
1337: l_api_name,
1338: G_PKG_NAME,
1339: 'OKC_API.G_RET_STS_ERROR',
1340: x_msg_count,
1341: x_msg_data,
1342: '_PVT'
1343: );
1340: x_msg_count,
1341: x_msg_data,
1342: '_PVT'
1343: );
1344: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1345: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1346: (
1347: l_api_name,
1348: G_PKG_NAME,
1341: x_msg_data,
1342: '_PVT'
1343: );
1344: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1345: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1346: (
1347: l_api_name,
1348: G_PKG_NAME,
1349: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1345: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1346: (
1347: l_api_name,
1348: G_PKG_NAME,
1349: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1350: x_msg_count,
1351: x_msg_data,
1352: '_PVT'
1353: );
1351: x_msg_data,
1352: '_PVT'
1353: );
1354: WHEN OTHERS THEN
1355: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1356: (
1357: l_api_name,
1358: G_PKG_NAME,
1359: 'OTHERS',
1378: x_coe_rec OUT NOCOPY coe_rec_type) IS
1379:
1380: l_api_version CONSTANT NUMBER := 1;
1381: l_api_name CONSTANT VARCHAR2(30) := 'OCCURS_update_row';
1382: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1383: l_coe_rec coe_rec_type := p_coe_rec;
1384: l_def_coe_rec coe_rec_type;
1385: l_row_notfound BOOLEAN := TRUE;
1386: ----------------------------------
1391: x_coe_rec OUT NOCOPY coe_rec_type
1392: ) RETURN VARCHAR2 IS
1393: l_coe_rec coe_rec_type;
1394: l_row_notfound BOOLEAN := TRUE;
1395: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1396: BEGIN
1397: x_coe_rec := p_coe_rec;
1398: -- Get current database values
1399: l_coe_rec := get_rec(p_coe_rec, l_row_notfound);
1397: x_coe_rec := p_coe_rec;
1398: -- Get current database values
1399: l_coe_rec := get_rec(p_coe_rec, l_row_notfound);
1400: IF (l_row_notfound) THEN
1401: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1402: END IF;
1403: IF (x_coe_rec.id = OKC_API.G_MISS_NUM)
1404: THEN
1405: x_coe_rec.id := l_coe_rec.id;
1399: l_coe_rec := get_rec(p_coe_rec, l_row_notfound);
1400: IF (l_row_notfound) THEN
1401: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1402: END IF;
1403: IF (x_coe_rec.id = OKC_API.G_MISS_NUM)
1404: THEN
1405: x_coe_rec.id := l_coe_rec.id;
1406: END IF;
1407: IF (x_coe_rec.cnh_id = OKC_API.G_MISS_NUM)
1403: IF (x_coe_rec.id = OKC_API.G_MISS_NUM)
1404: THEN
1405: x_coe_rec.id := l_coe_rec.id;
1406: END IF;
1407: IF (x_coe_rec.cnh_id = OKC_API.G_MISS_NUM)
1408: THEN
1409: x_coe_rec.cnh_id := l_coe_rec.cnh_id;
1410: END IF;
1411: IF (x_coe_rec.datetime = OKC_API.G_MISS_DATE)
1407: IF (x_coe_rec.cnh_id = OKC_API.G_MISS_NUM)
1408: THEN
1409: x_coe_rec.cnh_id := l_coe_rec.cnh_id;
1410: END IF;
1411: IF (x_coe_rec.datetime = OKC_API.G_MISS_DATE)
1412: THEN
1413: x_coe_rec.datetime := l_coe_rec.datetime;
1414: END IF;
1415: IF (x_coe_rec.object_version_number = OKC_API.G_MISS_NUM)
1411: IF (x_coe_rec.datetime = OKC_API.G_MISS_DATE)
1412: THEN
1413: x_coe_rec.datetime := l_coe_rec.datetime;
1414: END IF;
1415: IF (x_coe_rec.object_version_number = OKC_API.G_MISS_NUM)
1416: THEN
1417: x_coe_rec.object_version_number := l_coe_rec.object_version_number;
1418: END IF;
1419: IF (x_coe_rec.created_by = OKC_API.G_MISS_NUM)
1415: IF (x_coe_rec.object_version_number = OKC_API.G_MISS_NUM)
1416: THEN
1417: x_coe_rec.object_version_number := l_coe_rec.object_version_number;
1418: END IF;
1419: IF (x_coe_rec.created_by = OKC_API.G_MISS_NUM)
1420: THEN
1421: x_coe_rec.created_by := l_coe_rec.created_by;
1422: END IF;
1423: IF (x_coe_rec.creation_date = OKC_API.G_MISS_DATE)
1419: IF (x_coe_rec.created_by = OKC_API.G_MISS_NUM)
1420: THEN
1421: x_coe_rec.created_by := l_coe_rec.created_by;
1422: END IF;
1423: IF (x_coe_rec.creation_date = OKC_API.G_MISS_DATE)
1424: THEN
1425: x_coe_rec.creation_date := l_coe_rec.creation_date;
1426: END IF;
1427: IF (x_coe_rec.last_updated_by = OKC_API.G_MISS_NUM)
1423: IF (x_coe_rec.creation_date = OKC_API.G_MISS_DATE)
1424: THEN
1425: x_coe_rec.creation_date := l_coe_rec.creation_date;
1426: END IF;
1427: IF (x_coe_rec.last_updated_by = OKC_API.G_MISS_NUM)
1428: THEN
1429: x_coe_rec.last_updated_by := l_coe_rec.last_updated_by;
1430: END IF;
1431: IF (x_coe_rec.last_update_date = OKC_API.G_MISS_DATE)
1427: IF (x_coe_rec.last_updated_by = OKC_API.G_MISS_NUM)
1428: THEN
1429: x_coe_rec.last_updated_by := l_coe_rec.last_updated_by;
1430: END IF;
1431: IF (x_coe_rec.last_update_date = OKC_API.G_MISS_DATE)
1432: THEN
1433: x_coe_rec.last_update_date := l_coe_rec.last_update_date;
1434: END IF;
1435: IF (x_coe_rec.last_update_login = OKC_API.G_MISS_NUM)
1431: IF (x_coe_rec.last_update_date = OKC_API.G_MISS_DATE)
1432: THEN
1433: x_coe_rec.last_update_date := l_coe_rec.last_update_date;
1434: END IF;
1435: IF (x_coe_rec.last_update_login = OKC_API.G_MISS_NUM)
1436: THEN
1437: x_coe_rec.last_update_login := l_coe_rec.last_update_login;
1438: END IF;
1439: RETURN(l_return_status);
1444: FUNCTION Set_Attributes (
1445: p_coe_rec IN coe_rec_type,
1446: x_coe_rec OUT NOCOPY coe_rec_type
1447: ) RETURN VARCHAR2 IS
1448: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1449: BEGIN
1450: x_coe_rec := p_coe_rec;
1451: RETURN(l_return_status);
1452: END Set_Attributes;
1450: x_coe_rec := p_coe_rec;
1451: RETURN(l_return_status);
1452: END Set_Attributes;
1453: BEGIN
1454: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1455: p_init_msg_list,
1456: '_PVT',
1457: x_return_status);
1458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1454: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1455: p_init_msg_list,
1456: '_PVT',
1457: x_return_status);
1458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1461: RAISE OKC_API.G_EXCEPTION_ERROR;
1462: END IF;
1455: p_init_msg_list,
1456: '_PVT',
1457: x_return_status);
1458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1461: RAISE OKC_API.G_EXCEPTION_ERROR;
1462: END IF;
1463: --- Setting item attributes
1456: '_PVT',
1457: x_return_status);
1458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1461: RAISE OKC_API.G_EXCEPTION_ERROR;
1462: END IF;
1463: --- Setting item attributes
1464: l_return_status := Set_Attributes(
1457: x_return_status);
1458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1461: RAISE OKC_API.G_EXCEPTION_ERROR;
1462: END IF;
1463: --- Setting item attributes
1464: l_return_status := Set_Attributes(
1465: p_coe_rec, -- IN
1464: l_return_status := Set_Attributes(
1465: p_coe_rec, -- IN
1466: l_coe_rec); -- OUT
1467: --- If any errors happen abort API
1468: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1470: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1471: RAISE OKC_API.G_EXCEPTION_ERROR;
1472: END IF;
1465: p_coe_rec, -- IN
1466: l_coe_rec); -- OUT
1467: --- If any errors happen abort API
1468: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1470: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1471: RAISE OKC_API.G_EXCEPTION_ERROR;
1472: END IF;
1473: l_return_status := populate_new_record(l_coe_rec, l_def_coe_rec);
1466: l_coe_rec); -- OUT
1467: --- If any errors happen abort API
1468: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1470: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1471: RAISE OKC_API.G_EXCEPTION_ERROR;
1472: END IF;
1473: l_return_status := populate_new_record(l_coe_rec, l_def_coe_rec);
1474: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: --- If any errors happen abort API
1468: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1470: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1471: RAISE OKC_API.G_EXCEPTION_ERROR;
1472: END IF;
1473: l_return_status := populate_new_record(l_coe_rec, l_def_coe_rec);
1474: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1470: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1471: RAISE OKC_API.G_EXCEPTION_ERROR;
1472: END IF;
1473: l_return_status := populate_new_record(l_coe_rec, l_def_coe_rec);
1474: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1477: RAISE OKC_API.G_EXCEPTION_ERROR;
1478: END IF;
1471: RAISE OKC_API.G_EXCEPTION_ERROR;
1472: END IF;
1473: l_return_status := populate_new_record(l_coe_rec, l_def_coe_rec);
1474: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1477: RAISE OKC_API.G_EXCEPTION_ERROR;
1478: END IF;
1479: UPDATE OKC_CONDITION_OCCURS
1472: END IF;
1473: l_return_status := populate_new_record(l_coe_rec, l_def_coe_rec);
1474: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1477: RAISE OKC_API.G_EXCEPTION_ERROR;
1478: END IF;
1479: UPDATE OKC_CONDITION_OCCURS
1480: SET CNH_ID = l_def_coe_rec.cnh_id,
1473: l_return_status := populate_new_record(l_coe_rec, l_def_coe_rec);
1474: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1477: RAISE OKC_API.G_EXCEPTION_ERROR;
1478: END IF;
1479: UPDATE OKC_CONDITION_OCCURS
1480: SET CNH_ID = l_def_coe_rec.cnh_id,
1481: DATETIME = l_def_coe_rec.datetime,
1487: LAST_UPDATE_LOGIN = l_def_coe_rec.last_update_login
1488: WHERE ID = l_def_coe_rec.id;
1489:
1490: x_coe_rec := l_def_coe_rec;
1491: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1492: EXCEPTION
1493: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1494: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1495: (
1489:
1490: x_coe_rec := l_def_coe_rec;
1491: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1492: EXCEPTION
1493: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1494: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1495: (
1496: l_api_name,
1497: G_PKG_NAME,
1490: x_coe_rec := l_def_coe_rec;
1491: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1492: EXCEPTION
1493: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1494: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1495: (
1496: l_api_name,
1497: G_PKG_NAME,
1498: 'OKC_API.G_RET_STS_ERROR',
1494: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1495: (
1496: l_api_name,
1497: G_PKG_NAME,
1498: 'OKC_API.G_RET_STS_ERROR',
1499: x_msg_count,
1500: x_msg_data,
1501: '_PVT'
1502: );
1499: x_msg_count,
1500: x_msg_data,
1501: '_PVT'
1502: );
1503: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1504: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1505: (
1506: l_api_name,
1507: G_PKG_NAME,
1500: x_msg_data,
1501: '_PVT'
1502: );
1503: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1504: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1505: (
1506: l_api_name,
1507: G_PKG_NAME,
1508: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1504: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1505: (
1506: l_api_name,
1507: G_PKG_NAME,
1508: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1509: x_msg_count,
1510: x_msg_data,
1511: '_PVT'
1512: );
1510: x_msg_data,
1511: '_PVT'
1512: );
1513: WHEN OTHERS THEN
1514: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1515: (
1516: l_api_name,
1517: G_PKG_NAME,
1518: 'OTHERS',
1534: x_coev_rec OUT NOCOPY coev_rec_type) IS
1535:
1536: l_api_version CONSTANT NUMBER := 1;
1537: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1538: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1539: l_coev_rec coev_rec_type := p_coev_rec;
1540: l_def_coev_rec coev_rec_type;
1541: l_coe_rec coe_rec_type;
1542: lx_coe_rec coe_rec_type;
1561: x_coev_rec OUT NOCOPY coev_rec_type
1562: ) RETURN VARCHAR2 IS
1563: l_coev_rec coev_rec_type;
1564: l_row_notfound BOOLEAN := TRUE;
1565: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1566: BEGIN
1567: x_coev_rec := p_coev_rec;
1568: -- Get current database values
1569: l_coev_rec := get_rec(p_coev_rec, l_row_notfound);
1567: x_coev_rec := p_coev_rec;
1568: -- Get current database values
1569: l_coev_rec := get_rec(p_coev_rec, l_row_notfound);
1570: IF (l_row_notfound) THEN
1571: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1572: END IF;
1573: IF (x_coev_rec.id = OKC_API.G_MISS_NUM)
1574: THEN
1575: x_coev_rec.id := l_coev_rec.id;
1569: l_coev_rec := get_rec(p_coev_rec, l_row_notfound);
1570: IF (l_row_notfound) THEN
1571: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1572: END IF;
1573: IF (x_coev_rec.id = OKC_API.G_MISS_NUM)
1574: THEN
1575: x_coev_rec.id := l_coev_rec.id;
1576: END IF;
1577: IF (x_coev_rec.cnh_id = OKC_API.G_MISS_NUM)
1573: IF (x_coev_rec.id = OKC_API.G_MISS_NUM)
1574: THEN
1575: x_coev_rec.id := l_coev_rec.id;
1576: END IF;
1577: IF (x_coev_rec.cnh_id = OKC_API.G_MISS_NUM)
1578: THEN
1579: x_coev_rec.cnh_id := l_coev_rec.cnh_id;
1580: END IF;
1581: IF (x_coev_rec.object_version_number = OKC_API.G_MISS_NUM)
1577: IF (x_coev_rec.cnh_id = OKC_API.G_MISS_NUM)
1578: THEN
1579: x_coev_rec.cnh_id := l_coev_rec.cnh_id;
1580: END IF;
1581: IF (x_coev_rec.object_version_number = OKC_API.G_MISS_NUM)
1582: THEN
1583: x_coev_rec.object_version_number := l_coev_rec.object_version_number;
1584: END IF;
1585: IF (x_coev_rec.datetime = OKC_API.G_MISS_DATE)
1581: IF (x_coev_rec.object_version_number = OKC_API.G_MISS_NUM)
1582: THEN
1583: x_coev_rec.object_version_number := l_coev_rec.object_version_number;
1584: END IF;
1585: IF (x_coev_rec.datetime = OKC_API.G_MISS_DATE)
1586: THEN
1587: x_coev_rec.datetime := l_coev_rec.datetime;
1588: END IF;
1589: IF (x_coev_rec.created_by = OKC_API.G_MISS_NUM)
1585: IF (x_coev_rec.datetime = OKC_API.G_MISS_DATE)
1586: THEN
1587: x_coev_rec.datetime := l_coev_rec.datetime;
1588: END IF;
1589: IF (x_coev_rec.created_by = OKC_API.G_MISS_NUM)
1590: THEN
1591: x_coev_rec.created_by := l_coev_rec.created_by;
1592: END IF;
1593: IF (x_coev_rec.creation_date = OKC_API.G_MISS_DATE)
1589: IF (x_coev_rec.created_by = OKC_API.G_MISS_NUM)
1590: THEN
1591: x_coev_rec.created_by := l_coev_rec.created_by;
1592: END IF;
1593: IF (x_coev_rec.creation_date = OKC_API.G_MISS_DATE)
1594: THEN
1595: x_coev_rec.creation_date := l_coev_rec.creation_date;
1596: END IF;
1597: IF (x_coev_rec.last_updated_by = OKC_API.G_MISS_NUM)
1593: IF (x_coev_rec.creation_date = OKC_API.G_MISS_DATE)
1594: THEN
1595: x_coev_rec.creation_date := l_coev_rec.creation_date;
1596: END IF;
1597: IF (x_coev_rec.last_updated_by = OKC_API.G_MISS_NUM)
1598: THEN
1599: x_coev_rec.last_updated_by := l_coev_rec.last_updated_by;
1600: END IF;
1601: IF (x_coev_rec.last_update_date = OKC_API.G_MISS_DATE)
1597: IF (x_coev_rec.last_updated_by = OKC_API.G_MISS_NUM)
1598: THEN
1599: x_coev_rec.last_updated_by := l_coev_rec.last_updated_by;
1600: END IF;
1601: IF (x_coev_rec.last_update_date = OKC_API.G_MISS_DATE)
1602: THEN
1603: x_coev_rec.last_update_date := l_coev_rec.last_update_date;
1604: END IF;
1605: IF (x_coev_rec.last_update_login = OKC_API.G_MISS_NUM)
1601: IF (x_coev_rec.last_update_date = OKC_API.G_MISS_DATE)
1602: THEN
1603: x_coev_rec.last_update_date := l_coev_rec.last_update_date;
1604: END IF;
1605: IF (x_coev_rec.last_update_login = OKC_API.G_MISS_NUM)
1606: THEN
1607: x_coev_rec.last_update_login := l_coev_rec.last_update_login;
1608: END IF;
1609: RETURN(l_return_status);
1614: FUNCTION Set_Attributes (
1615: p_coev_rec IN coev_rec_type,
1616: x_coev_rec OUT NOCOPY coev_rec_type
1617: ) RETURN VARCHAR2 IS
1618: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1619: BEGIN
1620: x_coev_rec := p_coev_rec;
1621: x_coev_rec.OBJECT_VERSION_NUMBER := NVL(x_coev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1622: RETURN(l_return_status);
1621: x_coev_rec.OBJECT_VERSION_NUMBER := NVL(x_coev_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1622: RETURN(l_return_status);
1623: END Set_Attributes;
1624: BEGIN
1625: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1626: G_PKG_NAME,
1627: p_init_msg_list,
1628: l_api_version,
1629: p_api_version,
1628: l_api_version,
1629: p_api_version,
1630: '_PVT',
1631: x_return_status);
1632: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1635: RAISE OKC_API.G_EXCEPTION_ERROR;
1636: END IF;
1629: p_api_version,
1630: '_PVT',
1631: x_return_status);
1632: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1635: RAISE OKC_API.G_EXCEPTION_ERROR;
1636: END IF;
1637: --- Setting item attributes
1630: '_PVT',
1631: x_return_status);
1632: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1635: RAISE OKC_API.G_EXCEPTION_ERROR;
1636: END IF;
1637: --- Setting item attributes
1638: l_return_status := Set_Attributes(
1631: x_return_status);
1632: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1635: RAISE OKC_API.G_EXCEPTION_ERROR;
1636: END IF;
1637: --- Setting item attributes
1638: l_return_status := Set_Attributes(
1639: p_coev_rec, -- IN
1638: l_return_status := Set_Attributes(
1639: p_coev_rec, -- IN
1640: l_coev_rec); -- OUT
1641: --- If any errors happen abort API
1642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_ERROR;
1646: END IF;
1639: p_coev_rec, -- IN
1640: l_coev_rec); -- OUT
1641: --- If any errors happen abort API
1642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_ERROR;
1646: END IF;
1647: l_return_status := populate_new_record(l_coev_rec, l_def_coev_rec);
1640: l_coev_rec); -- OUT
1641: --- If any errors happen abort API
1642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_ERROR;
1646: END IF;
1647: l_return_status := populate_new_record(l_coev_rec, l_def_coev_rec);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1641: --- If any errors happen abort API
1642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_ERROR;
1646: END IF;
1647: l_return_status := populate_new_record(l_coev_rec, l_def_coev_rec);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_ERROR;
1646: END IF;
1647: l_return_status := populate_new_record(l_coev_rec, l_def_coev_rec);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1645: RAISE OKC_API.G_EXCEPTION_ERROR;
1646: END IF;
1647: l_return_status := populate_new_record(l_coev_rec, l_def_coev_rec);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1653: l_def_coev_rec := fill_who_columns(l_def_coev_rec);
1646: END IF;
1647: l_return_status := populate_new_record(l_coev_rec, l_def_coev_rec);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1653: l_def_coev_rec := fill_who_columns(l_def_coev_rec);
1654: --- Validate all non-missing attributes (Item Level Validation)
1647: l_return_status := populate_new_record(l_coev_rec, l_def_coev_rec);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1653: l_def_coev_rec := fill_who_columns(l_def_coev_rec);
1654: --- Validate all non-missing attributes (Item Level Validation)
1655: l_return_status := Validate_Attributes(l_def_coev_rec);
1653: l_def_coev_rec := fill_who_columns(l_def_coev_rec);
1654: --- Validate all non-missing attributes (Item Level Validation)
1655: l_return_status := Validate_Attributes(l_def_coev_rec);
1656: --- If any errors happen abort API
1657: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1659: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1660: RAISE OKC_API.G_EXCEPTION_ERROR;
1661: END IF;
1654: --- Validate all non-missing attributes (Item Level Validation)
1655: l_return_status := Validate_Attributes(l_def_coev_rec);
1656: --- If any errors happen abort API
1657: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1659: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1660: RAISE OKC_API.G_EXCEPTION_ERROR;
1661: END IF;
1662: l_return_status := Validate_Record(l_def_coev_rec);
1655: l_return_status := Validate_Attributes(l_def_coev_rec);
1656: --- If any errors happen abort API
1657: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1659: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1660: RAISE OKC_API.G_EXCEPTION_ERROR;
1661: END IF;
1662: l_return_status := Validate_Record(l_def_coev_rec);
1663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: --- If any errors happen abort API
1657: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1659: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1660: RAISE OKC_API.G_EXCEPTION_ERROR;
1661: END IF;
1662: l_return_status := Validate_Record(l_def_coev_rec);
1663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1659: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1660: RAISE OKC_API.G_EXCEPTION_ERROR;
1661: END IF;
1662: l_return_status := Validate_Record(l_def_coev_rec);
1663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1660: RAISE OKC_API.G_EXCEPTION_ERROR;
1661: END IF;
1662: l_return_status := Validate_Record(l_def_coev_rec);
1663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668:
1661: END IF;
1662: l_return_status := Validate_Record(l_def_coev_rec);
1663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668:
1669: --------------------------------------
1662: l_return_status := Validate_Record(l_def_coev_rec);
1663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_ERROR;
1667: END IF;
1668:
1669: --------------------------------------
1670: -- Move VIEW record to "Child" records
1680: x_msg_data,
1681: l_coe_rec,
1682: lx_coe_rec
1683: );
1684: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1681: l_coe_rec,
1682: lx_coe_rec
1683: );
1684: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: migrate(lx_coe_rec, l_def_coev_rec);
1682: lx_coe_rec
1683: );
1684: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: migrate(lx_coe_rec, l_def_coev_rec);
1690: x_coev_rec := l_def_coev_rec;
1683: );
1684: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: migrate(lx_coe_rec, l_def_coev_rec);
1690: x_coev_rec := l_def_coev_rec;
1691: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: migrate(lx_coe_rec, l_def_coev_rec);
1690: x_coev_rec := l_def_coev_rec;
1691: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1692: EXCEPTION
1693: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1694: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1695: (
1689: migrate(lx_coe_rec, l_def_coev_rec);
1690: x_coev_rec := l_def_coev_rec;
1691: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1692: EXCEPTION
1693: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1694: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1695: (
1696: l_api_name,
1697: G_PKG_NAME,
1690: x_coev_rec := l_def_coev_rec;
1691: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1692: EXCEPTION
1693: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1694: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1695: (
1696: l_api_name,
1697: G_PKG_NAME,
1698: 'OKC_API.G_RET_STS_ERROR',
1694: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1695: (
1696: l_api_name,
1697: G_PKG_NAME,
1698: 'OKC_API.G_RET_STS_ERROR',
1699: x_msg_count,
1700: x_msg_data,
1701: '_PVT'
1702: );
1699: x_msg_count,
1700: x_msg_data,
1701: '_PVT'
1702: );
1703: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1704: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1705: (
1706: l_api_name,
1707: G_PKG_NAME,
1700: x_msg_data,
1701: '_PVT'
1702: );
1703: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1704: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1705: (
1706: l_api_name,
1707: G_PKG_NAME,
1708: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1704: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1705: (
1706: l_api_name,
1707: G_PKG_NAME,
1708: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1709: x_msg_count,
1710: x_msg_data,
1711: '_PVT'
1712: );
1710: x_msg_data,
1711: '_PVT'
1712: );
1713: WHEN OTHERS THEN
1714: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1715: (
1716: l_api_name,
1717: G_PKG_NAME,
1718: 'OTHERS',
1734: x_coev_tbl OUT NOCOPY coev_tbl_type) IS
1735:
1736: l_api_version CONSTANT NUMBER := 1;
1737: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1738: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1739: i NUMBER := 0;
1740: BEGIN
1741: OKC_API.init_msg_list(p_init_msg_list);
1742: -- Make sure PL/SQL table has records in it before passing
1737: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1738: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1739: i NUMBER := 0;
1740: BEGIN
1741: OKC_API.init_msg_list(p_init_msg_list);
1742: -- Make sure PL/SQL table has records in it before passing
1743: IF (p_coev_tbl.COUNT > 0) THEN
1744: i := p_coev_tbl.FIRST;
1745: LOOP
1744: i := p_coev_tbl.FIRST;
1745: LOOP
1746: update_row (
1747: p_api_version => p_api_version,
1748: p_init_msg_list => OKC_API.G_FALSE,
1749: x_return_status => x_return_status,
1750: x_msg_count => x_msg_count,
1751: x_msg_data => x_msg_data,
1752: p_coev_rec => p_coev_tbl(i),
1755: i := p_coev_tbl.NEXT(i);
1756: END LOOP;
1757: END IF;
1758: EXCEPTION
1759: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1761: (
1762: l_api_name,
1763: G_PKG_NAME,
1756: END LOOP;
1757: END IF;
1758: EXCEPTION
1759: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1761: (
1762: l_api_name,
1763: G_PKG_NAME,
1764: 'OKC_API.G_RET_STS_ERROR',
1760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1761: (
1762: l_api_name,
1763: G_PKG_NAME,
1764: 'OKC_API.G_RET_STS_ERROR',
1765: x_msg_count,
1766: x_msg_data,
1767: '_PVT'
1768: );
1765: x_msg_count,
1766: x_msg_data,
1767: '_PVT'
1768: );
1769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1770: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1771: (
1772: l_api_name,
1773: G_PKG_NAME,
1766: x_msg_data,
1767: '_PVT'
1768: );
1769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1770: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1771: (
1772: l_api_name,
1773: G_PKG_NAME,
1774: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1770: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1771: (
1772: l_api_name,
1773: G_PKG_NAME,
1774: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1775: x_msg_count,
1776: x_msg_data,
1777: '_PVT'
1778: );
1776: x_msg_data,
1777: '_PVT'
1778: );
1779: WHEN OTHERS THEN
1780: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1781: (
1782: l_api_name,
1783: G_PKG_NAME,
1784: 'OTHERS',
1802: p_coe_rec IN coe_rec_type) IS
1803:
1804: l_api_version CONSTANT NUMBER := 1;
1805: l_api_name CONSTANT VARCHAR2(30) := 'OCCURS_delete_row';
1806: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1807: l_coe_rec coe_rec_type:= p_coe_rec;
1808: l_row_notfound BOOLEAN := TRUE;
1809: BEGIN
1810: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1806: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1807: l_coe_rec coe_rec_type:= p_coe_rec;
1808: l_row_notfound BOOLEAN := TRUE;
1809: BEGIN
1810: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1811: p_init_msg_list,
1812: '_PVT',
1813: x_return_status);
1814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1810: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1811: p_init_msg_list,
1812: '_PVT',
1813: x_return_status);
1814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: END IF;
1811: p_init_msg_list,
1812: '_PVT',
1813: x_return_status);
1814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: END IF;
1819: DELETE FROM OKC_CONDITION_OCCURS
1812: '_PVT',
1813: x_return_status);
1814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: END IF;
1819: DELETE FROM OKC_CONDITION_OCCURS
1820: WHERE ID = l_coe_rec.id;
1813: x_return_status);
1814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: END IF;
1819: DELETE FROM OKC_CONDITION_OCCURS
1820: WHERE ID = l_coe_rec.id;
1821:
1818: END IF;
1819: DELETE FROM OKC_CONDITION_OCCURS
1820: WHERE ID = l_coe_rec.id;
1821:
1822: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1823: EXCEPTION
1824: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1825: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1826: (
1820: WHERE ID = l_coe_rec.id;
1821:
1822: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1823: EXCEPTION
1824: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1825: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1826: (
1827: l_api_name,
1828: G_PKG_NAME,
1821:
1822: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1823: EXCEPTION
1824: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1825: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1826: (
1827: l_api_name,
1828: G_PKG_NAME,
1829: 'OKC_API.G_RET_STS_ERROR',
1825: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1826: (
1827: l_api_name,
1828: G_PKG_NAME,
1829: 'OKC_API.G_RET_STS_ERROR',
1830: x_msg_count,
1831: x_msg_data,
1832: '_PVT'
1833: );
1830: x_msg_count,
1831: x_msg_data,
1832: '_PVT'
1833: );
1834: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1835: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1836: (
1837: l_api_name,
1838: G_PKG_NAME,
1831: x_msg_data,
1832: '_PVT'
1833: );
1834: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1835: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1836: (
1837: l_api_name,
1838: G_PKG_NAME,
1839: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1835: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1836: (
1837: l_api_name,
1838: G_PKG_NAME,
1839: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1840: x_msg_count,
1841: x_msg_data,
1842: '_PVT'
1843: );
1841: x_msg_data,
1842: '_PVT'
1843: );
1844: WHEN OTHERS THEN
1845: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1846: (
1847: l_api_name,
1848: G_PKG_NAME,
1849: 'OTHERS',
1864: p_coev_rec IN coev_rec_type) IS
1865:
1866: l_api_version CONSTANT NUMBER := 1;
1867: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
1868: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1869: l_coev_rec coev_rec_type := p_coev_rec;
1870: l_coe_rec coe_rec_type;
1871: BEGIN
1872: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1868: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1869: l_coev_rec coev_rec_type := p_coev_rec;
1870: l_coe_rec coe_rec_type;
1871: BEGIN
1872: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1873: G_PKG_NAME,
1874: p_init_msg_list,
1875: l_api_version,
1876: p_api_version,
1875: l_api_version,
1876: p_api_version,
1877: '_PVT',
1878: x_return_status);
1879: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1881: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1882: RAISE OKC_API.G_EXCEPTION_ERROR;
1883: END IF;
1876: p_api_version,
1877: '_PVT',
1878: x_return_status);
1879: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1881: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1882: RAISE OKC_API.G_EXCEPTION_ERROR;
1883: END IF;
1884: --------------------------------------
1877: '_PVT',
1878: x_return_status);
1879: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1881: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1882: RAISE OKC_API.G_EXCEPTION_ERROR;
1883: END IF;
1884: --------------------------------------
1885: -- Move VIEW record to "Child" records
1878: x_return_status);
1879: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1881: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1882: RAISE OKC_API.G_EXCEPTION_ERROR;
1883: END IF;
1884: --------------------------------------
1885: -- Move VIEW record to "Child" records
1886: --------------------------------------
1894: x_msg_count,
1895: x_msg_data,
1896: l_coe_rec
1897: );
1898: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1895: x_msg_data,
1896: l_coe_rec
1897: );
1898: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1903: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1896: l_coe_rec
1897: );
1898: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1903: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1904: EXCEPTION
1897: );
1898: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1903: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1904: EXCEPTION
1905: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1903: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1904: EXCEPTION
1905: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1906: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1907: (
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1903: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1904: EXCEPTION
1905: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1906: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1907: (
1908: l_api_name,
1909: G_PKG_NAME,
1902: END IF;
1903: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1904: EXCEPTION
1905: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1906: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1907: (
1908: l_api_name,
1909: G_PKG_NAME,
1910: 'OKC_API.G_RET_STS_ERROR',
1906: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1907: (
1908: l_api_name,
1909: G_PKG_NAME,
1910: 'OKC_API.G_RET_STS_ERROR',
1911: x_msg_count,
1912: x_msg_data,
1913: '_PVT'
1914: );
1911: x_msg_count,
1912: x_msg_data,
1913: '_PVT'
1914: );
1915: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1916: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1917: (
1918: l_api_name,
1919: G_PKG_NAME,
1912: x_msg_data,
1913: '_PVT'
1914: );
1915: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1916: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1917: (
1918: l_api_name,
1919: G_PKG_NAME,
1920: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1916: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1917: (
1918: l_api_name,
1919: G_PKG_NAME,
1920: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1921: x_msg_count,
1922: x_msg_data,
1923: '_PVT'
1924: );
1922: x_msg_data,
1923: '_PVT'
1924: );
1925: WHEN OTHERS THEN
1926: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1927: (
1928: l_api_name,
1929: G_PKG_NAME,
1930: 'OTHERS',
1945: p_coev_tbl IN coev_tbl_type) IS
1946:
1947: l_api_version CONSTANT NUMBER := 1;
1948: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
1949: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1950: i NUMBER := 0;
1951: BEGIN
1952: OKC_API.init_msg_list(p_init_msg_list);
1953: -- Make sure PL/SQL table has records in it before passing
1948: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
1949: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1950: i NUMBER := 0;
1951: BEGIN
1952: OKC_API.init_msg_list(p_init_msg_list);
1953: -- Make sure PL/SQL table has records in it before passing
1954: IF (p_coev_tbl.COUNT > 0) THEN
1955: i := p_coev_tbl.FIRST;
1956: LOOP
1955: i := p_coev_tbl.FIRST;
1956: LOOP
1957: delete_row (
1958: p_api_version => p_api_version,
1959: p_init_msg_list => OKC_API.G_FALSE,
1960: x_return_status => x_return_status,
1961: x_msg_count => x_msg_count,
1962: x_msg_data => x_msg_data,
1963: p_coev_rec => p_coev_tbl(i));
1965: i := p_coev_tbl.NEXT(i);
1966: END LOOP;
1967: END IF;
1968: EXCEPTION
1969: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1970: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1971: (
1972: l_api_name,
1973: G_PKG_NAME,
1966: END LOOP;
1967: END IF;
1968: EXCEPTION
1969: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1970: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1971: (
1972: l_api_name,
1973: G_PKG_NAME,
1974: 'OKC_API.G_RET_STS_ERROR',
1970: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1971: (
1972: l_api_name,
1973: G_PKG_NAME,
1974: 'OKC_API.G_RET_STS_ERROR',
1975: x_msg_count,
1976: x_msg_data,
1977: '_PVT'
1978: );
1975: x_msg_count,
1976: x_msg_data,
1977: '_PVT'
1978: );
1979: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1980: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1981: (
1982: l_api_name,
1983: G_PKG_NAME,
1976: x_msg_data,
1977: '_PVT'
1978: );
1979: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1980: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1981: (
1982: l_api_name,
1983: G_PKG_NAME,
1984: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1980: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1981: (
1982: l_api_name,
1983: G_PKG_NAME,
1984: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1985: x_msg_count,
1986: x_msg_data,
1987: '_PVT'
1988: );
1986: x_msg_data,
1987: '_PVT'
1988: );
1989: WHEN OTHERS THEN
1990: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1991: (
1992: l_api_name,
1993: G_PKG_NAME,
1994: 'OTHERS',
2017: i NUMBER := p_coev_tbl.FIRST;
2018: BEGIN
2019:
2020: -- Initializing return status
2021: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2022: while i is not null
2023: LOOP
2024: j := j + 1;
2025: in_id (j) := p_coev_tbl(i).id;
2061: );
2062: EXCEPTION
2063: WHEN OTHERS THEN
2064: -- store SQL error message on message stack
2065: OKC_API.SET_MESSAGE(
2066: p_app_name => G_APP_NAME,
2067: p_msg_name => G_UNEXPECTED_ERROR,
2068: p_token1 => G_SQLCODE_TOKEN,
2069: p_token1_value => SQLCODE,
2069: p_token1_value => SQLCODE,
2070: p_token2 => G_SQLERRM_TOKEN,
2071: p_token2_value => SQLERRM);
2072: -- notify caller of an error as UNEXPETED error
2073: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2074:
2075: -- RAISE;
2076: END INSERT_ROW_UPG;
2077: