[Home] [Help]
1: PACKAGE BODY OKL_TAL_PVT AS
2: /* $Header: OKLSTALB.pls 120.8 2008/05/23 19:30:58 cklee noship $ */
3: -- Badrinath Kuchibholta
4: /************************ HAND-CODED *********************************/
5: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
6: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
7:
8: G_TAL_LOOKUP_TYPE CONSTANT VARCHAR2(200) := 'OKL_TRANS_LINE_TYPE';
9: G_ID2 CONSTANT VARCHAR2(200) := '#';
64: WHERE id = p_id);
65:
66: BEGIN
67: -- initialize return status
68: x_return_status := OKC_API.G_RET_STS_SUCCESS;
69: -- data is required
70: IF (p_talv_rec.tas_id = OKC_API.G_MISS_NUM) OR
71: (p_talv_rec.tas_id IS NULL) THEN
72: -- halt validation as it is a required field
66: BEGIN
67: -- initialize return status
68: x_return_status := OKC_API.G_RET_STS_SUCCESS;
69: -- data is required
70: IF (p_talv_rec.tas_id = OKC_API.G_MISS_NUM) OR
71: (p_talv_rec.tas_id IS NULL) THEN
72: -- halt validation as it is a required field
73: RAISE G_EXCEPTION_STOP_VALIDATION;
74: END IF;
87: EXCEPTION
88: WHEN G_EXCEPTION_STOP_VALIDATION then
89: -- We are here since the field is required
90: -- store SQL error message on message stack
91: OKC_API.set_message(p_app_name => G_APP_NAME,
92: p_msg_name => G_REQUIRED_VALUE,
93: p_token1 => G_COL_NAME_TOKEN,
94: p_token1_value => 'tas_id');
95: -- Notify Error
92: p_msg_name => G_REQUIRED_VALUE,
93: p_token1 => G_COL_NAME_TOKEN,
94: p_token1_value => 'tas_id');
95: -- Notify Error
96: x_return_status := OKC_API.G_RET_STS_ERROR;
97: WHEN G_EXCEPTION_HALT_VALIDATION then
98: -- We are here b'cause we have no parent record
99: -- store SQL error message on message stack
100: OKC_API.set_message(p_app_name => G_APP_NAME,
96: x_return_status := OKC_API.G_RET_STS_ERROR;
97: WHEN G_EXCEPTION_HALT_VALIDATION then
98: -- We are here b'cause we have no parent record
99: -- store SQL error message on message stack
100: OKC_API.set_message(p_app_name => G_APP_NAME,
101: p_msg_name => G_NO_MATCHING_RECORD,
102: p_token1 => G_COL_NAME_TOKEN,
103: p_token1_value => 'tas_id');
104: IF c_tas_id_validate%ISOPEN THEN
104: IF c_tas_id_validate%ISOPEN THEN
105: CLOSE c_tas_id_validate;
106: END IF;
107: -- notify caller of an error
108: x_return_status := OKC_API.G_RET_STS_ERROR;
109: WHEN OTHERS THEN
110: -- store SQL error message on message stack
111: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
112: p_msg_name => G_UNEXPECTED_ERROR,
107: -- notify caller of an error
108: x_return_status := OKC_API.G_RET_STS_ERROR;
109: WHEN OTHERS THEN
110: -- store SQL error message on message stack
111: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
112: p_msg_name => G_UNEXPECTED_ERROR,
113: p_token1 => G_SQLCODE_TOKEN,
114: p_token1_value => SQLCODE,
115: p_token2 => G_SQLERRM_TOKEN,
118: IF c_tas_id_validate%ISOPEN THEN
119: CLOSE c_tas_id_validate;
120: END IF;
121: -- notify caller of an error as UNEXPETED error
122: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
123: END validate_tas_id;
124: -------------------------------2--------------------------------------------------
125: -- Start of Commnets
126: -- Badrinath Kuchibholta
144: AND id2 = G_ID2);
145:
146: BEGIN
147: -- initialize return status
148: x_return_status := OKC_API.G_RET_STS_SUCCESS;
149: -- data is required
150: IF (p_talv_rec.ilo_id = OKC_API.G_MISS_NUM) OR
151: (p_talv_rec.ilo_id IS NULL) THEN
152: -- halt validation as it is a optional field
146: BEGIN
147: -- initialize return status
148: x_return_status := OKC_API.G_RET_STS_SUCCESS;
149: -- data is required
150: IF (p_talv_rec.ilo_id = OKC_API.G_MISS_NUM) OR
151: (p_talv_rec.ilo_id IS NULL) THEN
152: -- halt validation as it is a optional field
153: RAISE G_EXCEPTION_STOP_VALIDATION;
154: END IF;
170: null;
171: WHEN G_EXCEPTION_HALT_VALIDATION then
172: -- We are here b'cause we have no parent record
173: -- store SQL error message on message stack
174: OKC_API.set_message(p_app_name => G_APP_NAME,
175: p_msg_name => G_NO_MATCHING_RECORD,
176: p_token1 => G_COL_NAME_TOKEN,
177: p_token1_value => 'ilo_id');
178: -- notify caller of an error
178: -- notify caller of an error
179: IF c_ilo_id_validate%ISOPEN THEN
180: CLOSE c_ilo_id_validate;
181: END IF;
182: x_return_status := OKC_API.G_RET_STS_ERROR;
183: WHEN OTHERS THEN
184: -- store SQL error message on message stack
185: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
186: p_msg_name => G_UNEXPECTED_ERROR,
181: END IF;
182: x_return_status := OKC_API.G_RET_STS_ERROR;
183: WHEN OTHERS THEN
184: -- store SQL error message on message stack
185: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
186: p_msg_name => G_UNEXPECTED_ERROR,
187: p_token1 => G_SQLCODE_TOKEN,
188: p_token1_value => SQLCODE,
189: p_token2 => G_SQLERRM_TOKEN,
192: IF c_ilo_id_validate%ISOPEN THEN
193: CLOSE c_ilo_id_validate;
194: END IF;
195: -- notify caller of an error as UNEXPETED error
196: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
197: END validate_ilo_id;
198: --------------------------------3-------------------------------------------------
199: -- Start of Commnets
200: -- Badrinath Kuchibholta
218: AND id2 = G_ID2);
219:
220: BEGIN
221: -- initialize return status
222: x_return_status := OKC_API.G_RET_STS_SUCCESS;
223: -- data is required
224: IF (p_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM) OR
225: (p_talv_rec.ilo_id_old IS NULL) THEN
226: -- halt validation as it is a optional field
220: BEGIN
221: -- initialize return status
222: x_return_status := OKC_API.G_RET_STS_SUCCESS;
223: -- data is required
224: IF (p_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM) OR
225: (p_talv_rec.ilo_id_old IS NULL) THEN
226: -- halt validation as it is a optional field
227: RAISE G_EXCEPTION_STOP_VALIDATION;
228: END IF;
244: null;
245: WHEN G_EXCEPTION_HALT_VALIDATION then
246: -- We are here b'cause we have no parent record
247: -- store SQL error message on message stack
248: OKC_API.set_message(p_app_name => G_APP_NAME,
249: p_msg_name => G_NO_MATCHING_RECORD,
250: p_token1 => G_COL_NAME_TOKEN,
251: p_token1_value => 'ilo_id_old');
252: IF c_ilo_id_old_validate%ISOPEN THEN
252: IF c_ilo_id_old_validate%ISOPEN THEN
253: CLOSE c_ilo_id_old_validate;
254: END IF;
255: -- notify caller of an error
256: x_return_status := OKC_API.G_RET_STS_ERROR;
257: WHEN OTHERS THEN
258: -- store SQL error message on message stack
259: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
260: p_msg_name => G_UNEXPECTED_ERROR,
255: -- notify caller of an error
256: x_return_status := OKC_API.G_RET_STS_ERROR;
257: WHEN OTHERS THEN
258: -- store SQL error message on message stack
259: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
260: p_msg_name => G_UNEXPECTED_ERROR,
261: p_token1 => G_SQLCODE_TOKEN,
262: p_token1_value => SQLCODE,
263: p_token2 => G_SQLERRM_TOKEN,
266: IF c_ilo_id_old_validate%ISOPEN THEN
267: CLOSE c_ilo_id_old_validate;
268: END IF;
269: -- notify caller of an error as UNEXPETED error
270: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
271: END validate_ilo_id_old;
272: ---------------------------------4-----------------------------------------------
273: -- Start of Commnets
274: -- Badrinath Kuchibholta
291: WHERE id1 = p_id
292: AND id2 = G_ID2);
293: BEGIN
294: -- initialize return status
295: x_return_status := OKC_API.G_RET_STS_SUCCESS;
296: -- data is required
297: IF (p_talv_rec.iay_id = OKC_API.G_MISS_NUM) OR
298: (p_talv_rec.iay_id IS NULL) THEN
299: -- halt validation as it is a optional field
293: BEGIN
294: -- initialize return status
295: x_return_status := OKC_API.G_RET_STS_SUCCESS;
296: -- data is required
297: IF (p_talv_rec.iay_id = OKC_API.G_MISS_NUM) OR
298: (p_talv_rec.iay_id IS NULL) THEN
299: -- halt validation as it is a optional field
300: RAISE G_EXCEPTION_STOP_VALIDATION;
301: END IF;
317: null;
318: WHEN G_EXCEPTION_HALT_VALIDATION then
319: -- We are here b'cause we have no parent record
320: -- store SQL error message on message stack
321: OKC_API.set_message(p_app_name => G_APP_NAME,
322: p_msg_name => G_NO_MATCHING_RECORD,
323: p_token1 => G_COL_NAME_TOKEN,
324: p_token1_value => 'iay_id');
325: -- If the cursor is open then it has to be closed
326: IF c_iay_id_validate%ISOPEN THEN
327: CLOSE c_iay_id_validate;
328: END IF;
329: -- notify caller of an error
330: x_return_status := OKC_API.G_RET_STS_ERROR;
331: WHEN OTHERS THEN
332: -- store SQL error message on message stack
333: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
334: p_msg_name => G_UNEXPECTED_ERROR,
329: -- notify caller of an error
330: x_return_status := OKC_API.G_RET_STS_ERROR;
331: WHEN OTHERS THEN
332: -- store SQL error message on message stack
333: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
334: p_msg_name => G_UNEXPECTED_ERROR,
335: p_token1 => G_SQLCODE_TOKEN,
336: p_token1_value => SQLCODE,
337: p_token2 => G_SQLERRM_TOKEN,
340: IF c_iay_id_validate%ISOPEN THEN
341: CLOSE c_iay_id_validate;
342: END IF;
343: -- notify caller of an error as UNEXPETED error
344: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
345: END validate_iay_id;
346: ----------------------------------5----------------------------------------------
347: -- Start of Commnets
348: -- Badrinath Kuchibholta
365: WHERE id1 = p_id
366: AND id2 = G_ID2);
367: BEGIN
368: -- initialize return status
369: x_return_status := OKC_API.G_RET_STS_SUCCESS;
370: -- data is required
371: IF (p_talv_rec.iay_id_new = OKC_API.G_MISS_NUM) OR
372: (p_talv_rec.iay_id_new IS NULL) THEN
373: -- halt validation as it is a optional field
367: BEGIN
368: -- initialize return status
369: x_return_status := OKC_API.G_RET_STS_SUCCESS;
370: -- data is required
371: IF (p_talv_rec.iay_id_new = OKC_API.G_MISS_NUM) OR
372: (p_talv_rec.iay_id_new IS NULL) THEN
373: -- halt validation as it is a optional field
374: RAISE G_EXCEPTION_STOP_VALIDATION;
375: END IF;
392: null;
393: WHEN G_EXCEPTION_HALT_VALIDATION then
394: -- We are here b'cause we have no parent record
395: -- store SQL error message on message stack
396: OKC_API.set_message(p_app_name => G_APP_NAME,
397: p_msg_name => G_NO_MATCHING_RECORD,
398: p_token1 => G_COL_NAME_TOKEN,
399: p_token1_value => 'iay_id_new');
400: -- If the cursor is open then it has to be closed
401: IF c_iay_id_new_validate%ISOPEN THEN
402: CLOSE c_iay_id_new_validate;
403: END IF;
404: -- notify caller of an error
405: x_return_status := OKC_API.G_RET_STS_ERROR;
406: WHEN OTHERS THEN
407: -- store SQL error message on message stack
408: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
409: p_msg_name => G_UNEXPECTED_ERROR,
404: -- notify caller of an error
405: x_return_status := OKC_API.G_RET_STS_ERROR;
406: WHEN OTHERS THEN
407: -- store SQL error message on message stack
408: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
409: p_msg_name => G_UNEXPECTED_ERROR,
410: p_token1 => G_SQLCODE_TOKEN,
411: p_token1_value => SQLCODE,
412: p_token2 => G_SQLERRM_TOKEN,
415: IF c_iay_id_new_validate%ISOPEN THEN
416: CLOSE c_iay_id_new_validate;
417: END IF;
418: -- notify caller of an error as UNEXPETED error
419: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
420: END validate_iay_id_new;
421: ----------------------------------6-----------------------------------------------
422: -- Start of Commnets
423: -- Badrinath Kuchibholta
439: FROM OKL_K_LINES_V
440: WHERE id = p_id);
441: BEGIN
442: -- initialize return status
443: x_return_status := OKC_API.G_RET_STS_SUCCESS;
444: -- data is required
445: IF (p_talv_rec.kle_id = OKC_API.G_MISS_NUM) OR
446: (p_talv_rec.kle_id IS NULL) THEN
447: -- halt validation as it is a required field
441: BEGIN
442: -- initialize return status
443: x_return_status := OKC_API.G_RET_STS_SUCCESS;
444: -- data is required
445: IF (p_talv_rec.kle_id = OKC_API.G_MISS_NUM) OR
446: (p_talv_rec.kle_id IS NULL) THEN
447: -- halt validation as it is a required field
448: RAISE G_EXCEPTION_STOP_VALIDATION;
449: END IF;
462: EXCEPTION
463: WHEN G_EXCEPTION_STOP_VALIDATION then
464: -- We are here since the field is required
465: -- store SQL error message on message stack
466: OKC_API.set_message(p_app_name => G_APP_NAME,
467: p_msg_name => G_REQUIRED_VALUE,
468: p_token1 => G_COL_NAME_TOKEN,
469: p_token1_value => 'kle_id');
470: -- Notify Error
467: p_msg_name => G_REQUIRED_VALUE,
468: p_token1 => G_COL_NAME_TOKEN,
469: p_token1_value => 'kle_id');
470: -- Notify Error
471: x_return_status := OKC_API.G_RET_STS_ERROR;
472: WHEN G_EXCEPTION_HALT_VALIDATION then
473: -- We are here b'cause we have no parent record
474: -- store SQL error message on message stack
475: OKC_API.set_message(p_app_name => G_APP_NAME,
471: x_return_status := OKC_API.G_RET_STS_ERROR;
472: WHEN G_EXCEPTION_HALT_VALIDATION then
473: -- We are here b'cause we have no parent record
474: -- store SQL error message on message stack
475: OKC_API.set_message(p_app_name => G_APP_NAME,
476: p_msg_name => G_NO_MATCHING_RECORD,
477: p_token1 => G_COL_NAME_TOKEN,
478: p_token1_value => 'kle_id');
479: -- If the cursor is open then it has to be closed
480: IF c_kle_id_validate%ISOPEN THEN
481: CLOSE c_kle_id_validate;
482: END IF;
483: -- notify caller of an error
484: x_return_status := OKC_API.G_RET_STS_ERROR;
485: WHEN OTHERS THEN
486: -- store SQL error message on message stack
487: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
488: p_msg_name => G_UNEXPECTED_ERROR,
483: -- notify caller of an error
484: x_return_status := OKC_API.G_RET_STS_ERROR;
485: WHEN OTHERS THEN
486: -- store SQL error message on message stack
487: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
488: p_msg_name => G_UNEXPECTED_ERROR,
489: p_token1 => G_SQLCODE_TOKEN,
490: p_token1_value => SQLCODE,
491: p_token2 => G_SQLERRM_TOKEN,
494: IF c_kle_id_validate%ISOPEN THEN
495: CLOSE c_kle_id_validate;
496: END IF;
497: -- notify caller of an error as UNEXPETED error
498: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
499: END validate_kle_id;
500: -----------------------------------7-----------------------------------------------
501: -- Start of Commnets
502: -- Badrinath Kuchibholta
508: -- End of Commnets
509:
510: PROCEDURE validate_tal_type(x_return_status OUT NOCOPY VARCHAR2,
511: p_talv_rec IN talv_rec_type) IS
512: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
513: BEGIN
514: -- initialize return status
515: x_return_status := OKC_API.G_RET_STS_SUCCESS;
516: -- data is required
511: p_talv_rec IN talv_rec_type) IS
512: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
513: BEGIN
514: -- initialize return status
515: x_return_status := OKC_API.G_RET_STS_SUCCESS;
516: -- data is required
517: IF (p_talv_rec.tal_type = OKC_API.G_MISS_CHAR) OR
518: (p_talv_rec.tal_type IS NULL) THEN
519: -- halt validation as it is a required field
513: BEGIN
514: -- initialize return status
515: x_return_status := OKC_API.G_RET_STS_SUCCESS;
516: -- data is required
517: IF (p_talv_rec.tal_type = OKC_API.G_MISS_CHAR) OR
518: (p_talv_rec.tal_type IS NULL) THEN
519: -- halt validation as it is a required field
520: RAISE G_EXCEPTION_STOP_VALIDATION;
521: END IF;
531: EXCEPTION
532: WHEN G_EXCEPTION_STOP_VALIDATION then
533: -- We are here since the field is required
534: -- store SQL error message on message stack
535: OKC_API.set_message(p_app_name => G_APP_NAME,
536: p_msg_name => G_REQUIRED_VALUE,
537: p_token1 => G_COL_NAME_TOKEN,
538: p_token1_value => 'tal_type');
539: -- Notify Error
536: p_msg_name => G_REQUIRED_VALUE,
537: p_token1 => G_COL_NAME_TOKEN,
538: p_token1_value => 'tal_type');
539: -- Notify Error
540: x_return_status := OKC_API.G_RET_STS_ERROR;
541: WHEN G_EXCEPTION_HALT_VALIDATION then
542: -- We are here b'cause we have no parent record
543: -- store SQL error message on message stack
544: OKC_API.set_message(p_app_name => G_APP_NAME,
540: x_return_status := OKC_API.G_RET_STS_ERROR;
541: WHEN G_EXCEPTION_HALT_VALIDATION then
542: -- We are here b'cause we have no parent record
543: -- store SQL error message on message stack
544: OKC_API.set_message(p_app_name => G_APP_NAME,
545: p_msg_name => G_NO_MATCHING_RECORD,
546: p_token1 => G_COL_NAME_TOKEN,
547: p_token1_value => 'tal_type');
548: -- notify caller of an error
545: p_msg_name => G_NO_MATCHING_RECORD,
546: p_token1 => G_COL_NAME_TOKEN,
547: p_token1_value => 'tal_type');
548: -- notify caller of an error
549: x_return_status := OKC_API.G_RET_STS_ERROR;
550: WHEN OTHERS THEN
551: -- store SQL error message on message stack
552: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
553: p_msg_name => G_UNEXPECTED_ERROR,
548: -- notify caller of an error
549: x_return_status := OKC_API.G_RET_STS_ERROR;
550: WHEN OTHERS THEN
551: -- store SQL error message on message stack
552: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
553: p_msg_name => G_UNEXPECTED_ERROR,
554: p_token1 => G_SQLCODE_TOKEN,
555: p_token1_value => SQLCODE,
556: p_token2 => G_SQLERRM_TOKEN,
555: p_token1_value => SQLCODE,
556: p_token2 => G_SQLERRM_TOKEN,
557: p_token2_value => SQLERRM);
558: -- notify caller of an error as UNEXPETED error
559: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
560: END validate_tal_type;
561: -----------------------------------8---------------------------------------------
562: -- Start of Commnets
563: -- Badrinath Kuchibholta
584: AND cle.dnz_chr_id = chrv.id
585: AND chrv.authoring_org_id = p_org_id);
586: BEGIN
587: -- initialize return status
588: x_return_status := OKC_API.G_RET_STS_SUCCESS;
589: -- data is required
590: IF (p_talv_rec.org_id = OKC_API.G_MISS_NUM) OR
591: (p_talv_rec.org_id IS NULL) THEN
592: -- halt validation as it is optional field
586: BEGIN
587: -- initialize return status
588: x_return_status := OKC_API.G_RET_STS_SUCCESS;
589: -- data is required
590: IF (p_talv_rec.org_id = OKC_API.G_MISS_NUM) OR
591: (p_talv_rec.org_id IS NULL) THEN
592: -- halt validation as it is optional field
593: RAISE G_EXCEPTION_STOP_VALIDATION;
594: END IF;
611: null;
612: WHEN G_EXCEPTION_HALT_VALIDATION then
613: -- We are here b'cause we have no parent record
614: -- store SQL error message on message stack
615: OKC_API.set_message(p_app_name => G_APP_NAME,
616: p_msg_name => G_NO_MATCHING_RECORD,
617: p_token1 => G_COL_NAME_TOKEN,
618: p_token1_value => 'org_id');
619: IF c_org_id_validate%ISOPEN THEN
619: IF c_org_id_validate%ISOPEN THEN
620: CLOSE c_org_id_validate;
621: END IF;
622: -- notify caller of an error
623: x_return_status := OKC_API.G_RET_STS_ERROR;
624: WHEN OTHERS THEN
625: -- store SQL error message on message stack
626: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
627: p_msg_name => G_UNEXPECTED_ERROR,
622: -- notify caller of an error
623: x_return_status := OKC_API.G_RET_STS_ERROR;
624: WHEN OTHERS THEN
625: -- store SQL error message on message stack
626: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
627: p_msg_name => G_UNEXPECTED_ERROR,
628: p_token1 => G_SQLCODE_TOKEN,
629: p_token1_value => SQLCODE,
630: p_token2 => G_SQLERRM_TOKEN,
633: IF c_org_id_validate%ISOPEN THEN
634: CLOSE c_org_id_validate;
635: END IF;
636: -- notify caller of an error as UNEXPETED error
637: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
638: END validate_org_id;
639: -----------------------------------10---------------------------------------------
640: -- Start of Commnets
641: -- Badrinath Kuchibholta
650: p_talv_rec IN talv_rec_type) IS
651:
652: BEGIN
653: -- initialize return status
654: x_return_status := OKC_API.G_RET_STS_SUCCESS;
655: -- data is required
656: IF (p_talv_rec.current_units = OKC_API.G_MISS_NUM) OR
657: (p_talv_rec.current_units IS NULL) THEN
658: -- halt validation as it is a required field
652: BEGIN
653: -- initialize return status
654: x_return_status := OKC_API.G_RET_STS_SUCCESS;
655: -- data is required
656: IF (p_talv_rec.current_units = OKC_API.G_MISS_NUM) OR
657: (p_talv_rec.current_units IS NULL) THEN
658: -- halt validation as it is a required field
659: RAISE G_EXCEPTION_STOP_VALIDATION;
660: END IF;
666: EXCEPTION
667: WHEN G_EXCEPTION_STOP_VALIDATION then
668: -- We are here since the field is required
669: -- store SQL error message on message stack
670: OKC_API.set_message(p_app_name => G_APP_NAME,
671: p_msg_name => G_REQUIRED_VALUE,
672: p_token1 => G_COL_NAME_TOKEN,
673: p_token1_value => 'current_units');
674: -- Notify Error
671: p_msg_name => G_REQUIRED_VALUE,
672: p_token1 => G_COL_NAME_TOKEN,
673: p_token1_value => 'current_units');
674: -- Notify Error
675: x_return_status := OKC_API.G_RET_STS_ERROR;
676: WHEN G_EXCEPTION_HALT_VALIDATION then
677: -- We are here b'cause we have no parent record
678: -- store SQL error message on message stack
679: OKC_API.set_message(p_app_name => G_APP_NAME,
675: x_return_status := OKC_API.G_RET_STS_ERROR;
676: WHEN G_EXCEPTION_HALT_VALIDATION then
677: -- We are here b'cause we have no parent record
678: -- store SQL error message on message stack
679: OKC_API.set_message(p_app_name => G_APP_NAME,
680: p_msg_name => G_INVALID_VALUE,
681: p_token1 => G_COL_NAME_TOKEN,
682: p_token1_value => 'current_units');
683: -- notify caller of an error
680: p_msg_name => G_INVALID_VALUE,
681: p_token1 => G_COL_NAME_TOKEN,
682: p_token1_value => 'current_units');
683: -- notify caller of an error
684: x_return_status := OKC_API.G_RET_STS_ERROR;
685: WHEN OTHERS THEN
686: -- store SQL error message on message stack
687: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
688: p_msg_name => G_UNEXPECTED_ERROR,
683: -- notify caller of an error
684: x_return_status := OKC_API.G_RET_STS_ERROR;
685: WHEN OTHERS THEN
686: -- store SQL error message on message stack
687: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
688: p_msg_name => G_UNEXPECTED_ERROR,
689: p_token1 => G_SQLCODE_TOKEN,
690: p_token1_value => SQLCODE,
691: p_token2 => G_SQLERRM_TOKEN,
690: p_token1_value => SQLCODE,
691: p_token2 => G_SQLERRM_TOKEN,
692: p_token2_value => SQLERRM);
693: -- notify caller of an error as UNEXPETED error
694: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
695: END validate_current_units;
696:
697: -------------------------------------11-------------------------------------------
698: -- Start of Commnets
708: p_talv_rec IN talv_rec_type) IS
709:
710: BEGIN
711: -- initialize return status
712: x_return_status := OKC_API.G_RET_STS_SUCCESS;
713: -- data is required
714: IF (p_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR) OR
715: (p_talv_rec.used_asset_yn IS NULL) THEN
716: -- halt validation as it is a optional field
710: BEGIN
711: -- initialize return status
712: x_return_status := OKC_API.G_RET_STS_SUCCESS;
713: -- data is required
714: IF (p_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR) OR
715: (p_talv_rec.used_asset_yn IS NULL) THEN
716: -- halt validation as it is a optional field
717: RAISE G_EXCEPTION_STOP_VALIDATION;
718: END IF;
727: null;
728: WHEN G_EXCEPTION_HALT_VALIDATION then
729: -- We are here b'cause we have no parent record
730: -- store SQL error message on message stack
731: OKC_API.set_message(p_app_name => G_APP_NAME,
732: p_msg_name => G_INVALID_VALUE,
733: p_token1 => G_COL_NAME_TOKEN,
734: p_token1_value => 'used_asset_yn');
735: -- notify caller of an error
732: p_msg_name => G_INVALID_VALUE,
733: p_token1 => G_COL_NAME_TOKEN,
734: p_token1_value => 'used_asset_yn');
735: -- notify caller of an error
736: x_return_status := OKC_API.G_RET_STS_ERROR;
737: WHEN OTHERS THEN
738: -- store SQL error message on message stack
739: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
740: p_msg_name => G_UNEXPECTED_ERROR,
735: -- notify caller of an error
736: x_return_status := OKC_API.G_RET_STS_ERROR;
737: WHEN OTHERS THEN
738: -- store SQL error message on message stack
739: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
740: p_msg_name => G_UNEXPECTED_ERROR,
741: p_token1 => G_SQLCODE_TOKEN,
742: p_token1_value => SQLCODE,
743: p_token2 => G_SQLERRM_TOKEN,
742: p_token1_value => SQLCODE,
743: p_token2 => G_SQLERRM_TOKEN,
744: p_token2_value => SQLERRM);
745: -- notify caller of an error as UNEXPETED error
746: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
747: END validate_used_asset_yn;
748: ---------------------------------------12-----------------------------------------
749: -- Start of Commnets
750: -- Badrinath Kuchibholta
759: p_talv_rec IN talv_rec_type) IS
760:
761: BEGIN
762: -- initialize return status
763: x_return_status := OKC_API.G_RET_STS_SUCCESS;
764: -- data is required
765: IF (p_talv_rec.life_in_months = OKC_API.G_MISS_NUM) OR
766: (p_talv_rec.life_in_months IS NULL) THEN
767: -- halt validation as it is a optional field
761: BEGIN
762: -- initialize return status
763: x_return_status := OKC_API.G_RET_STS_SUCCESS;
764: -- data is required
765: IF (p_talv_rec.life_in_months = OKC_API.G_MISS_NUM) OR
766: (p_talv_rec.life_in_months IS NULL) THEN
767: -- halt validation as it is a optional field
768: RAISE G_EXCEPTION_STOP_VALIDATION;
769: END IF;
778: null;
779: WHEN G_EXCEPTION_HALT_VALIDATION then
780: -- We are here b'cause we have no parent record
781: -- store SQL error message on message stack
782: OKC_API.set_message(p_app_name => G_APP_NAME,
783: p_msg_name => G_INVALID_VALUE,
784: p_token1 => G_COL_NAME_TOKEN,
785: p_token1_value => 'life_in_months');
786: -- notify caller of an error
783: p_msg_name => G_INVALID_VALUE,
784: p_token1 => G_COL_NAME_TOKEN,
785: p_token1_value => 'life_in_months');
786: -- notify caller of an error
787: x_return_status := OKC_API.G_RET_STS_ERROR;
788: WHEN OTHERS THEN
789: -- store SQL error message on message stack
790: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
791: p_msg_name => G_UNEXPECTED_ERROR,
786: -- notify caller of an error
787: x_return_status := OKC_API.G_RET_STS_ERROR;
788: WHEN OTHERS THEN
789: -- store SQL error message on message stack
790: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
791: p_msg_name => G_UNEXPECTED_ERROR,
792: p_token1 => G_SQLCODE_TOKEN,
793: p_token1_value => SQLCODE,
794: p_token2 => G_SQLERRM_TOKEN,
793: p_token1_value => SQLCODE,
794: p_token2 => G_SQLERRM_TOKEN,
795: p_token2_value => SQLERRM);
796: -- notify caller of an error as UNEXPETED error
797: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
798: END validate_life_in_months;
799: -----------------------------------------13---------------------------------------
800: -- Start of Commnets
801: -- Badrinath Kuchibholta
818: WHERE id1 = p_id1
819: and id2 = G_ID2);
820: BEGIN
821: -- initialize return status
822: x_return_status := OKC_API.G_RET_STS_SUCCESS;
823: -- data is required
824: IF (p_talv_rec.depreciation_id = OKC_API.G_MISS_NUM) OR
825: (p_talv_rec.depreciation_id IS NULL) THEN
826: -- halt validation as it is a required field
820: BEGIN
821: -- initialize return status
822: x_return_status := OKC_API.G_RET_STS_SUCCESS;
823: -- data is required
824: IF (p_talv_rec.depreciation_id = OKC_API.G_MISS_NUM) OR
825: (p_talv_rec.depreciation_id IS NULL) THEN
826: -- halt validation as it is a required field
827: RAISE G_EXCEPTION_STOP_VALIDATION;
828: END IF;
844: null;
845: WHEN G_EXCEPTION_HALT_VALIDATION then
846: -- We are here b'cause we have no parent record
847: -- store SQL error message on message stack
848: OKC_API.set_message(p_app_name => G_APP_NAME,
849: p_msg_name => G_NO_MATCHING_RECORD,
850: p_token1 => G_COL_NAME_TOKEN,
851: p_token1_value => 'depreciation_id');
852: -- If the cursor is open then it has to be closed
853: IF c_deprn_id_validate%ISOPEN THEN
854: CLOSE c_deprn_id_validate;
855: END IF;
856: -- notify caller of an error
857: x_return_status := OKC_API.G_RET_STS_ERROR;
858: WHEN OTHERS THEN
859: -- store SQL error message on message stack
860: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
861: p_msg_name => G_UNEXPECTED_ERROR,
856: -- notify caller of an error
857: x_return_status := OKC_API.G_RET_STS_ERROR;
858: WHEN OTHERS THEN
859: -- store SQL error message on message stack
860: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
861: p_msg_name => G_UNEXPECTED_ERROR,
862: p_token1 => G_SQLCODE_TOKEN,
863: p_token1_value => SQLCODE,
864: p_token2 => G_SQLERRM_TOKEN,
867: IF c_deprn_id_validate%ISOPEN THEN
868: CLOSE c_deprn_id_validate;
869: END IF;
870: -- notify caller of an error as UNEXPETED error
871: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
872: END validate_deprn_id;
873: -------------------------------------------14-------------------------------------
874: -- Start of Commnets
875: -- Badrinath Kuchibholta
893: AND id2 = G_ID2);
894:
895: BEGIN
896: -- initialize return status
897: x_return_status := OKC_API.G_RET_STS_SUCCESS;
898: -- data is required
899: IF (p_talv_rec.fa_location_id = OKC_API.G_MISS_NUM) OR
900: (p_talv_rec.fa_location_id IS NULL) THEN
901: -- halt validation as it is a required field
895: BEGIN
896: -- initialize return status
897: x_return_status := OKC_API.G_RET_STS_SUCCESS;
898: -- data is required
899: IF (p_talv_rec.fa_location_id = OKC_API.G_MISS_NUM) OR
900: (p_talv_rec.fa_location_id IS NULL) THEN
901: -- halt validation as it is a required field
902: RAISE G_EXCEPTION_STOP_VALIDATION;
903: END IF;
920: null;
921: WHEN G_EXCEPTION_HALT_VALIDATION then
922: -- We are here b'cause we have no parent record
923: -- store SQL error message on message stack
924: OKC_API.set_message(p_app_name => G_APP_NAME,
925: p_msg_name => G_NO_MATCHING_RECORD,
926: p_token1 => G_COL_NAME_TOKEN,
927: p_token1_value => 'fa_location_id');
928: -- If the cursor is open then it has to be closed
929: IF c_fa_location_id_validate%ISOPEN THEN
930: CLOSE c_fa_location_id_validate;
931: END IF;
932: -- notify caller of an error
933: x_return_status := OKC_API.G_RET_STS_ERROR;
934: WHEN OTHERS THEN
935: -- store SQL error message on message stack
936: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
937: p_msg_name => G_UNEXPECTED_ERROR,
932: -- notify caller of an error
933: x_return_status := OKC_API.G_RET_STS_ERROR;
934: WHEN OTHERS THEN
935: -- store SQL error message on message stack
936: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
937: p_msg_name => G_UNEXPECTED_ERROR,
938: p_token1 => G_SQLCODE_TOKEN,
939: p_token1_value => SQLCODE,
940: p_token2 => G_SQLERRM_TOKEN,
943: IF c_fa_location_id_validate%ISOPEN THEN
944: CLOSE c_fa_location_id_validate;
945: END IF;
946: -- notify caller of an error as UNEXPETED error
947: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
948: END validate_fa_location_id;
949:
950: ---------------------------------------------15-----------------------------------
951: -- Start of Commnets
968: FROM OKC_K_HEADERS_B chrv
969: WHERE chrv.id = p_dnz_khr_id);
970: BEGIN
971: -- initialize return status
972: x_return_status := OKC_API.G_RET_STS_SUCCESS;
973: -- data is required
974: IF (p_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM) OR
975: (p_talv_rec.dnz_khr_id IS NULL) THEN
976: -- halt validation as it is a required field
970: BEGIN
971: -- initialize return status
972: x_return_status := OKC_API.G_RET_STS_SUCCESS;
973: -- data is required
974: IF (p_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM) OR
975: (p_talv_rec.dnz_khr_id IS NULL) THEN
976: -- halt validation as it is a required field
977: RAISE G_EXCEPTION_STOP_VALIDATION;
978: END IF;
995: null;
996: WHEN G_EXCEPTION_HALT_VALIDATION then
997: -- We are here b'cause we have no parent record
998: -- store SQL error message on message stack
999: OKC_API.set_message(p_app_name => G_APP_NAME,
1000: p_msg_name => G_NO_MATCHING_RECORD,
1001: p_token1 => G_COL_NAME_TOKEN,
1002: p_token1_value => 'dnz_khr_id');
1003: -- If the cursor is open then it has to be closed
1004: IF c_dnz_khr_id_validate%ISOPEN THEN
1005: CLOSE c_dnz_khr_id_validate;
1006: END IF;
1007: -- notify caller of an error
1008: x_return_status := OKC_API.G_RET_STS_ERROR;
1009: WHEN OTHERS THEN
1010: -- store SQL error message on message stack
1011: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1012: p_msg_name => G_UNEXPECTED_ERROR,
1007: -- notify caller of an error
1008: x_return_status := OKC_API.G_RET_STS_ERROR;
1009: WHEN OTHERS THEN
1010: -- store SQL error message on message stack
1011: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1012: p_msg_name => G_UNEXPECTED_ERROR,
1013: p_token1 => G_SQLCODE_TOKEN,
1014: p_token1_value => SQLCODE,
1015: p_token2 => G_SQLERRM_TOKEN,
1018: IF c_dnz_khr_id_validate%ISOPEN THEN
1019: CLOSE c_dnz_khr_id_validate;
1020: END IF;
1021: -- notify caller of an error as UNEXPETED error
1022: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1023: END validate_dnz_khr_id;
1024: ------------------------------19----------------------------------------------
1025: -- Start of Commnets
1026: -- Badrinath Kuchibholta
1044: AND book_class = 'CORPORATE');
1045:
1046: BEGIN
1047: -- initialize return status
1048: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1049: -- data is required
1050: IF (p_talv_rec.corporate_book = OKC_API.G_MISS_CHAR) OR
1051: (p_talv_rec.corporate_book IS NULL) THEN
1052: -- halt validation as it is a required field
1046: BEGIN
1047: -- initialize return status
1048: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1049: -- data is required
1050: IF (p_talv_rec.corporate_book = OKC_API.G_MISS_CHAR) OR
1051: (p_talv_rec.corporate_book IS NULL) THEN
1052: -- halt validation as it is a required field
1053: RAISE G_EXCEPTION_STOP_VALIDATION;
1054: END IF;
1070: null;
1071: WHEN G_EXCEPTION_HALT_VALIDATION then
1072: -- We are here b'cause we have no parent record
1073: -- store SQL error message on message stack
1074: OKC_API.set_message(p_app_name => G_APP_NAME,
1075: p_msg_name => G_NO_MATCHING_RECORD,
1076: p_token1 => G_COL_NAME_TOKEN,
1077: p_token1_value => 'corporate_book');
1078: IF c_corp_book_validate%ISOPEN THEN
1078: IF c_corp_book_validate%ISOPEN THEN
1079: CLOSE c_corp_book_validate;
1080: END IF;
1081: -- notify caller of an error
1082: x_return_status := OKC_API.G_RET_STS_ERROR;
1083: WHEN OTHERS THEN
1084: -- store SQL error message on message stack
1085: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1086: p_msg_name => G_UNEXPECTED_ERROR,
1081: -- notify caller of an error
1082: x_return_status := OKC_API.G_RET_STS_ERROR;
1083: WHEN OTHERS THEN
1084: -- store SQL error message on message stack
1085: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1086: p_msg_name => G_UNEXPECTED_ERROR,
1087: p_token1 => G_SQLCODE_TOKEN,
1088: p_token1_value => SQLCODE,
1089: p_token2 => G_SQLERRM_TOKEN,
1092: IF c_corp_book_validate%ISOPEN THEN
1093: CLOSE c_corp_book_validate;
1094: END IF;
1095: -- notify caller of an error as UNEXPETED error
1096: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1097: END validate_corp_book;
1098: --------------------------------20-------------------------------------------------
1099: -- Start of Commnets
1100: -- Badrinath Kuchibholta
1117: WHERE method_code = p_deprn_method);
1118:
1119: BEGIN
1120: -- initialize return status
1121: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1122: -- data is required
1123: IF (p_talv_rec.deprn_method = OKC_API.G_MISS_CHAR) OR
1124: (p_talv_rec.deprn_method IS NULL) THEN
1125: -- halt validation as it is a optional field
1119: BEGIN
1120: -- initialize return status
1121: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1122: -- data is required
1123: IF (p_talv_rec.deprn_method = OKC_API.G_MISS_CHAR) OR
1124: (p_talv_rec.deprn_method IS NULL) THEN
1125: -- halt validation as it is a optional field
1126: RAISE G_EXCEPTION_STOP_VALIDATION;
1127: END IF;
1143: null;
1144: WHEN G_EXCEPTION_HALT_VALIDATION then
1145: -- We are here b'cause we have no parent record
1146: -- store SQL error message on message stack
1147: OKC_API.set_message(p_app_name => G_APP_NAME,
1148: p_msg_name => G_NO_MATCHING_RECORD,
1149: p_token1 => G_COL_NAME_TOKEN,
1150: p_token1_value => 'deprn_method');
1151: IF c_deprn_method_validate%ISOPEN THEN
1151: IF c_deprn_method_validate%ISOPEN THEN
1152: CLOSE c_deprn_method_validate;
1153: END IF;
1154: -- notify caller of an error
1155: x_return_status := OKC_API.G_RET_STS_ERROR;
1156: WHEN OTHERS THEN
1157: -- store SQL error message on message stack
1158: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1159: p_msg_name => G_UNEXPECTED_ERROR,
1154: -- notify caller of an error
1155: x_return_status := OKC_API.G_RET_STS_ERROR;
1156: WHEN OTHERS THEN
1157: -- store SQL error message on message stack
1158: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1159: p_msg_name => G_UNEXPECTED_ERROR,
1160: p_token1 => G_SQLCODE_TOKEN,
1161: p_token1_value => SQLCODE,
1162: p_token2 => G_SQLERRM_TOKEN,
1165: IF c_deprn_method_validate%ISOPEN THEN
1166: CLOSE c_deprn_method_validate;
1167: END IF;
1168: -- notify caller of an error as UNEXPETED error
1169: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1170: END validate_deprn_method;
1171:
1172: -----------------------------------------------21---------------------------------
1173: -- Start of Commnets
1185: p_talv_rec IN talv_rec_type) IS
1186: ln_dummy number := 0;
1187: BEGIN
1188: -- initialize return status
1189: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1190: -- purchase date should be less than delivery date
1191: -- and in service date
1192: -- When all the dates are given
1193: IF (p_talv_rec.date_purchased IS NOT NULL
1209: EXCEPTION
1210: WHEN G_EXCEPTION_STOP_VALIDATION then
1211: -- We are here since the field is required
1212: -- store SQL error message on message stack
1213: OKC_API.set_message(p_app_name => G_APP_NAME,
1214: p_msg_name => G_REQUIRED_VALUE,
1215: p_token1 => G_COL_NAME_TOKEN,
1216: p_token1_value => 'date_purchased,date_delivery,in_service_date');
1217: -- Notify Error
1214: p_msg_name => G_REQUIRED_VALUE,
1215: p_token1 => G_COL_NAME_TOKEN,
1216: p_token1_value => 'date_purchased,date_delivery,in_service_date');
1217: -- Notify Error
1218: x_return_status := OKC_API.G_RET_STS_ERROR;
1219: WHEN G_EXCEPTION_HALT_VALIDATION then
1220: -- We are here b'cause validation falied
1221: -- store SQL error message on message stack
1222: OKC_API.set_message(p_app_name => G_APP_NAME,
1218: x_return_status := OKC_API.G_RET_STS_ERROR;
1219: WHEN G_EXCEPTION_HALT_VALIDATION then
1220: -- We are here b'cause validation falied
1221: -- store SQL error message on message stack
1222: OKC_API.set_message(p_app_name => G_APP_NAME,
1223: p_msg_name => G_RANGE_CHECK,
1224: p_token1 => G_COL_NAME_TOKEN1,
1225: p_token1_value => 'date_delivery',
1226: p_token2 => G_COL_NAME_TOKEN2,
1225: p_token1_value => 'date_delivery',
1226: p_token2 => G_COL_NAME_TOKEN2,
1227: p_token2_value => 'in_service_date');
1228: -- notify caller of an error
1229: x_return_status := OKC_API.G_RET_STS_ERROR;
1230: WHEN OTHERS THEN
1231: -- store SQL error message on message stack
1232: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1233: p_msg_name => G_UNEXPECTED_ERROR,
1228: -- notify caller of an error
1229: x_return_status := OKC_API.G_RET_STS_ERROR;
1230: WHEN OTHERS THEN
1231: -- store SQL error message on message stack
1232: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1233: p_msg_name => G_UNEXPECTED_ERROR,
1234: p_token1 => G_SQLCODE_TOKEN,
1235: p_token1_value => SQLCODE,
1236: p_token2 => G_SQLERRM_TOKEN,
1235: p_token1_value => SQLCODE,
1236: p_token2 => G_SQLERRM_TOKEN,
1237: p_token2_value => SQLERRM);
1238: -- notify caller of an error as UNEXPETED error
1239: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1240: END validate_pds_date;
1241:
1242: -------------------------------------------------22-------------------------------
1243: -- Start of Commnets
1255: ln_comp_prn_oec NUMBER := 0;
1256: ln_comp_prn_salv NUMBER := 0;
1257: BEGIN
1258: -- initialize return status
1259: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1260: IF (p_talv_rec.original_cost IS NOT NULL AND
1261: p_talv_rec.salvage_value IS NOT NULL OR
1262: p_talv_rec.percent_salvage_value IS NOT NULL) THEN
1263: ln_comp_prn_oec := (p_talv_rec.original_cost/100);
1298: EXCEPTION
1299: WHEN G_EXCEPTION_STOP_VALIDATION then
1300: -- We are here since the field is required
1301: -- store SQL error message on message stack
1302: OKC_API.set_message(p_app_name => G_APP_NAME,
1303: p_msg_name => G_REQUIRED_VALUE,
1304: p_token1 => G_COL_NAME_TOKEN,
1305: p_token1_value => 'Original_cost');
1306: -- Notify Error
1303: p_msg_name => G_REQUIRED_VALUE,
1304: p_token1 => G_COL_NAME_TOKEN,
1305: p_token1_value => 'Original_cost');
1306: -- Notify Error
1307: x_return_status := OKC_API.G_RET_STS_ERROR;
1308: WHEN G_EXCEPTION_HALT_VALIDATION then
1309: -- We are here b'cause validation falied
1310: -- store SQL error message on message stack
1311: OKC_API.set_message(p_app_name => G_APP_NAME,
1307: x_return_status := OKC_API.G_RET_STS_ERROR;
1308: WHEN G_EXCEPTION_HALT_VALIDATION then
1309: -- We are here b'cause validation falied
1310: -- store SQL error message on message stack
1311: OKC_API.set_message(p_app_name => G_APP_NAME,
1312: p_msg_name => G_SALVAGE_RANGE);
1313: -- notify caller of an error
1314: x_return_status := OKC_API.G_RET_STS_ERROR;
1315: WHEN OTHERS THEN
1310: -- store SQL error message on message stack
1311: OKC_API.set_message(p_app_name => G_APP_NAME,
1312: p_msg_name => G_SALVAGE_RANGE);
1313: -- notify caller of an error
1314: x_return_status := OKC_API.G_RET_STS_ERROR;
1315: WHEN OTHERS THEN
1316: -- store SQL error message on message stack
1317: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1318: p_msg_name => G_UNEXPECTED_ERROR,
1313: -- notify caller of an error
1314: x_return_status := OKC_API.G_RET_STS_ERROR;
1315: WHEN OTHERS THEN
1316: -- store SQL error message on message stack
1317: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1318: p_msg_name => G_UNEXPECTED_ERROR,
1319: p_token1 => G_SQLCODE_TOKEN,
1320: p_token1_value => SQLCODE,
1321: p_token2 => G_SQLERRM_TOKEN,
1320: p_token1_value => SQLCODE,
1321: p_token2 => G_SQLERRM_TOKEN,
1322: p_token2_value => SQLERRM);
1323: -- notify caller of an error as UNEXPETED error
1324: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1325: END validate_salv_oec;
1326: --Bug# 2981308
1327: -------------------------------------------------23-------------------------------
1328: -- Start of Commnets
1601: --dbms_output.put_line('Trans Curr Type: '|| p_talv_rec.currency_conversion_type);
1602:
1603: IF (p_talv_rec.currency_code IS NULL
1604: OR
1605: p_talv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN -- take functional currency
1606: x_talv_rec.currency_code := l_func_currency;
1607: x_talv_rec.currency_conversion_type := NULL;
1608: x_talv_rec.currency_conversion_rate := NULL;
1609: x_talv_rec.currency_conversion_date := NULL;
1614: FETCH curr_csr INTO l_ok;
1615: CLOSE curr_csr;
1616:
1617: IF (l_ok <> 'Y') THEN
1618: OKC_API.set_message(p_app_name => G_APP_NAME,
1619: p_msg_name => G_NO_MATCHING_RECORD,
1620: p_token1 => G_COL_NAME_TOKEN,
1621: p_token1_value => 'currency_code');
1622: x_return_status := OKC_API.G_RET_STS_ERROR;
1618: OKC_API.set_message(p_app_name => G_APP_NAME,
1619: p_msg_name => G_NO_MATCHING_RECORD,
1620: p_token1 => G_COL_NAME_TOKEN,
1621: p_token1_value => 'currency_code');
1622: x_return_status := OKC_API.G_RET_STS_ERROR;
1623: RAISE currency_validation_failed;
1624: END IF;
1625:
1626: IF (p_talv_rec.currency_code = l_func_currency) THEN -- both are same
1631:
1632: -- Conversion type, date and rate mandetory
1633: IF (p_talv_rec.currency_conversion_type IS NULL
1634: OR
1635: p_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
1636: OKC_API.set_message(
1637: p_app_name => G_APP_NAME,
1638: p_msg_name => G_REQUIRED_VALUE,
1639: p_token1 => G_COL_NAME_TOKEN,
1632: -- Conversion type, date and rate mandetory
1633: IF (p_talv_rec.currency_conversion_type IS NULL
1634: OR
1635: p_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
1636: OKC_API.set_message(
1637: p_app_name => G_APP_NAME,
1638: p_msg_name => G_REQUIRED_VALUE,
1639: p_token1 => G_COL_NAME_TOKEN,
1640: p_token1_value => 'currency_conversion_type');
1637: p_app_name => G_APP_NAME,
1638: p_msg_name => G_REQUIRED_VALUE,
1639: p_token1 => G_COL_NAME_TOKEN,
1640: p_token1_value => 'currency_conversion_type');
1641: x_return_status := OKC_API.G_RET_STS_ERROR;
1642: RAISE currency_validation_failed;
1643: END IF;
1644:
1645: l_ok := '?';
1647: FETCH conv_type_csr INTO l_ok;
1648: CLOSE conv_type_csr;
1649:
1650: IF (l_ok <> 'Y') THEN
1651: OKC_API.set_message(p_app_name => G_APP_NAME,
1652: p_msg_name => G_NO_MATCHING_RECORD,
1653: p_token1 => G_COL_NAME_TOKEN,
1654: p_token1_value => 'currency_conversion_type');
1655: x_return_status := OKC_API.G_RET_STS_ERROR;
1651: OKC_API.set_message(p_app_name => G_APP_NAME,
1652: p_msg_name => G_NO_MATCHING_RECORD,
1653: p_token1 => G_COL_NAME_TOKEN,
1654: p_token1_value => 'currency_conversion_type');
1655: x_return_status := OKC_API.G_RET_STS_ERROR;
1656: RAISE currency_validation_failed;
1657: END IF;
1658:
1659: IF (p_talv_rec.currency_conversion_date IS NULL
1657: END IF;
1658:
1659: IF (p_talv_rec.currency_conversion_date IS NULL
1660: OR
1661: p_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
1662: OKC_API.set_message(
1663: p_app_name => G_APP_NAME,
1664: p_msg_name => G_REQUIRED_VALUE,
1665: p_token1 => G_COL_NAME_TOKEN,
1658:
1659: IF (p_talv_rec.currency_conversion_date IS NULL
1660: OR
1661: p_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
1662: OKC_API.set_message(
1663: p_app_name => G_APP_NAME,
1664: p_msg_name => G_REQUIRED_VALUE,
1665: p_token1 => G_COL_NAME_TOKEN,
1666: p_token1_value => 'currency_conversion_date');
1663: p_app_name => G_APP_NAME,
1664: p_msg_name => G_REQUIRED_VALUE,
1665: p_token1 => G_COL_NAME_TOKEN,
1666: p_token1_value => 'currency_conversion_date');
1667: x_return_status := OKC_API.G_RET_STS_ERROR;
1668: RAISE currency_validation_failed;
1669: END IF;
1670:
1671: IF (p_talv_rec.currency_conversion_type = 'User') THEN
1671: IF (p_talv_rec.currency_conversion_type = 'User') THEN
1672:
1673: IF (p_talv_rec.currency_conversion_rate IS NULL
1674: OR
1675: p_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
1676: OKC_API.set_message(
1677: p_app_name => G_APP_NAME,
1678: p_msg_name => G_REQUIRED_VALUE,
1679: p_token1 => G_COL_NAME_TOKEN,
1672:
1673: IF (p_talv_rec.currency_conversion_rate IS NULL
1674: OR
1675: p_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
1676: OKC_API.set_message(
1677: p_app_name => G_APP_NAME,
1678: p_msg_name => G_REQUIRED_VALUE,
1679: p_token1 => G_COL_NAME_TOKEN,
1680: p_token1_value => 'currency_conversion_rate');
1677: p_app_name => G_APP_NAME,
1678: p_msg_name => G_REQUIRED_VALUE,
1679: p_token1 => G_COL_NAME_TOKEN,
1680: p_token1_value => 'currency_conversion_rate');
1681: x_return_status := OKC_API.G_RET_STS_ERROR;
1682: RAISE currency_validation_failed;
1683: END IF;
1684:
1685: x_talv_rec.currency_conversion_type := p_talv_rec.currency_conversion_type;
2278: p_talv_rec IN talv_rec_type
2279: ) RETURN talv_rec_type IS
2280: l_talv_rec talv_rec_type := p_talv_rec;
2281: BEGIN
2282: IF (l_talv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
2283: l_talv_rec.object_version_number := NULL;
2284: END IF;
2285: IF (l_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
2286: l_talv_rec.sfwt_flag := NULL;
2281: BEGIN
2282: IF (l_talv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
2283: l_talv_rec.object_version_number := NULL;
2284: END IF;
2285: IF (l_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
2286: l_talv_rec.sfwt_flag := NULL;
2287: END IF;
2288: IF (l_talv_rec.tas_id = OKC_API.G_MISS_NUM) THEN
2289: l_talv_rec.tas_id := NULL;
2284: END IF;
2285: IF (l_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
2286: l_talv_rec.sfwt_flag := NULL;
2287: END IF;
2288: IF (l_talv_rec.tas_id = OKC_API.G_MISS_NUM) THEN
2289: l_talv_rec.tas_id := NULL;
2290: END IF;
2291: IF (l_talv_rec.ilo_id = OKC_API.G_MISS_NUM) THEN
2292: l_talv_rec.ilo_id := NULL;
2287: END IF;
2288: IF (l_talv_rec.tas_id = OKC_API.G_MISS_NUM) THEN
2289: l_talv_rec.tas_id := NULL;
2290: END IF;
2291: IF (l_talv_rec.ilo_id = OKC_API.G_MISS_NUM) THEN
2292: l_talv_rec.ilo_id := NULL;
2293: END IF;
2294: IF (l_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM) THEN
2295: l_talv_rec.ilo_id_old := NULL;
2290: END IF;
2291: IF (l_talv_rec.ilo_id = OKC_API.G_MISS_NUM) THEN
2292: l_talv_rec.ilo_id := NULL;
2293: END IF;
2294: IF (l_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM) THEN
2295: l_talv_rec.ilo_id_old := NULL;
2296: END IF;
2297: IF (l_talv_rec.iay_id = OKC_API.G_MISS_NUM) THEN
2298: l_talv_rec.iay_id := NULL;
2293: END IF;
2294: IF (l_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM) THEN
2295: l_talv_rec.ilo_id_old := NULL;
2296: END IF;
2297: IF (l_talv_rec.iay_id = OKC_API.G_MISS_NUM) THEN
2298: l_talv_rec.iay_id := NULL;
2299: END IF;
2300: IF (l_talv_rec.iay_id_new = OKC_API.G_MISS_NUM) THEN
2301: l_talv_rec.iay_id_new := NULL;
2296: END IF;
2297: IF (l_talv_rec.iay_id = OKC_API.G_MISS_NUM) THEN
2298: l_talv_rec.iay_id := NULL;
2299: END IF;
2300: IF (l_talv_rec.iay_id_new = OKC_API.G_MISS_NUM) THEN
2301: l_talv_rec.iay_id_new := NULL;
2302: END IF;
2303: IF (l_talv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
2304: l_talv_rec.kle_id := NULL;
2299: END IF;
2300: IF (l_talv_rec.iay_id_new = OKC_API.G_MISS_NUM) THEN
2301: l_talv_rec.iay_id_new := NULL;
2302: END IF;
2303: IF (l_talv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
2304: l_talv_rec.kle_id := NULL;
2305: END IF;
2306: IF (l_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM) THEN
2307: l_talv_rec.dnz_khr_id := NULL;
2302: END IF;
2303: IF (l_talv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
2304: l_talv_rec.kle_id := NULL;
2305: END IF;
2306: IF (l_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM) THEN
2307: l_talv_rec.dnz_khr_id := NULL;
2308: END IF;
2309: IF (l_talv_rec.line_number = OKC_API.G_MISS_NUM) THEN
2310: l_talv_rec.line_number := NULL;
2305: END IF;
2306: IF (l_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM) THEN
2307: l_talv_rec.dnz_khr_id := NULL;
2308: END IF;
2309: IF (l_talv_rec.line_number = OKC_API.G_MISS_NUM) THEN
2310: l_talv_rec.line_number := NULL;
2311: END IF;
2312: IF (l_talv_rec.org_id = OKC_API.G_MISS_NUM) THEN
2313: l_talv_rec.org_id := NULL;
2308: END IF;
2309: IF (l_talv_rec.line_number = OKC_API.G_MISS_NUM) THEN
2310: l_talv_rec.line_number := NULL;
2311: END IF;
2312: IF (l_talv_rec.org_id = OKC_API.G_MISS_NUM) THEN
2313: l_talv_rec.org_id := NULL;
2314: END IF;
2315: IF (l_talv_rec.tal_type = OKC_API.G_MISS_CHAR) THEN
2316: l_talv_rec.tal_type := NULL;
2311: END IF;
2312: IF (l_talv_rec.org_id = OKC_API.G_MISS_NUM) THEN
2313: l_talv_rec.org_id := NULL;
2314: END IF;
2315: IF (l_talv_rec.tal_type = OKC_API.G_MISS_CHAR) THEN
2316: l_talv_rec.tal_type := NULL;
2317: END IF;
2318: IF (l_talv_rec.asset_number = OKC_API.G_MISS_CHAR) THEN
2319: l_talv_rec.asset_number := NULL;
2314: END IF;
2315: IF (l_talv_rec.tal_type = OKC_API.G_MISS_CHAR) THEN
2316: l_talv_rec.tal_type := NULL;
2317: END IF;
2318: IF (l_talv_rec.asset_number = OKC_API.G_MISS_CHAR) THEN
2319: l_talv_rec.asset_number := NULL;
2320: END IF;
2321: IF (l_talv_rec.description = OKC_API.G_MISS_CHAR) THEN
2322: l_talv_rec.description := NULL;
2317: END IF;
2318: IF (l_talv_rec.asset_number = OKC_API.G_MISS_CHAR) THEN
2319: l_talv_rec.asset_number := NULL;
2320: END IF;
2321: IF (l_talv_rec.description = OKC_API.G_MISS_CHAR) THEN
2322: l_talv_rec.description := NULL;
2323: END IF;
2324: IF (l_talv_rec.fa_location_id = OKC_API.G_MISS_NUM) THEN
2325: l_talv_rec.fa_location_id := NULL;
2320: END IF;
2321: IF (l_talv_rec.description = OKC_API.G_MISS_CHAR) THEN
2322: l_talv_rec.description := NULL;
2323: END IF;
2324: IF (l_talv_rec.fa_location_id = OKC_API.G_MISS_NUM) THEN
2325: l_talv_rec.fa_location_id := NULL;
2326: END IF;
2327: IF (l_talv_rec.original_cost = OKC_API.G_MISS_NUM) THEN
2328: l_talv_rec.original_cost := NULL;
2323: END IF;
2324: IF (l_talv_rec.fa_location_id = OKC_API.G_MISS_NUM) THEN
2325: l_talv_rec.fa_location_id := NULL;
2326: END IF;
2327: IF (l_talv_rec.original_cost = OKC_API.G_MISS_NUM) THEN
2328: l_talv_rec.original_cost := NULL;
2329: END IF;
2330: IF (l_talv_rec.current_units = OKC_API.G_MISS_NUM) THEN
2331: l_talv_rec.current_units := NULL;
2326: END IF;
2327: IF (l_talv_rec.original_cost = OKC_API.G_MISS_NUM) THEN
2328: l_talv_rec.original_cost := NULL;
2329: END IF;
2330: IF (l_talv_rec.current_units = OKC_API.G_MISS_NUM) THEN
2331: l_talv_rec.current_units := NULL;
2332: END IF;
2333: IF (l_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR) THEN
2334: l_talv_rec.manufacturer_name := NULL;
2329: END IF;
2330: IF (l_talv_rec.current_units = OKC_API.G_MISS_NUM) THEN
2331: l_talv_rec.current_units := NULL;
2332: END IF;
2333: IF (l_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR) THEN
2334: l_talv_rec.manufacturer_name := NULL;
2335: END IF;
2336: IF (l_talv_rec.year_manufactured = OKC_API.G_MISS_NUM) THEN
2337: l_talv_rec.year_manufactured := NULL;
2332: END IF;
2333: IF (l_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR) THEN
2334: l_talv_rec.manufacturer_name := NULL;
2335: END IF;
2336: IF (l_talv_rec.year_manufactured = OKC_API.G_MISS_NUM) THEN
2337: l_talv_rec.year_manufactured := NULL;
2338: END IF;
2339: IF (l_talv_rec.supplier_id = OKC_API.G_MISS_NUM) THEN
2340: l_talv_rec.supplier_id := NULL;
2335: END IF;
2336: IF (l_talv_rec.year_manufactured = OKC_API.G_MISS_NUM) THEN
2337: l_talv_rec.year_manufactured := NULL;
2338: END IF;
2339: IF (l_talv_rec.supplier_id = OKC_API.G_MISS_NUM) THEN
2340: l_talv_rec.supplier_id := NULL;
2341: END IF;
2342: IF (l_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR) THEN
2343: l_talv_rec.used_asset_yn := NULL;
2338: END IF;
2339: IF (l_talv_rec.supplier_id = OKC_API.G_MISS_NUM) THEN
2340: l_talv_rec.supplier_id := NULL;
2341: END IF;
2342: IF (l_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR) THEN
2343: l_talv_rec.used_asset_yn := NULL;
2344: END IF;
2345: IF (l_talv_rec.tag_number = OKC_API.G_MISS_CHAR) THEN
2346: l_talv_rec.tag_number := NULL;
2341: END IF;
2342: IF (l_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR) THEN
2343: l_talv_rec.used_asset_yn := NULL;
2344: END IF;
2345: IF (l_talv_rec.tag_number = OKC_API.G_MISS_CHAR) THEN
2346: l_talv_rec.tag_number := NULL;
2347: END IF;
2348: IF (l_talv_rec.model_number = OKC_API.G_MISS_CHAR) THEN
2349: l_talv_rec.model_number := NULL;
2344: END IF;
2345: IF (l_talv_rec.tag_number = OKC_API.G_MISS_CHAR) THEN
2346: l_talv_rec.tag_number := NULL;
2347: END IF;
2348: IF (l_talv_rec.model_number = OKC_API.G_MISS_CHAR) THEN
2349: l_talv_rec.model_number := NULL;
2350: END IF;
2351: IF (l_talv_rec.corporate_book = OKC_API.G_MISS_CHAR) THEN
2352: l_talv_rec.corporate_book := NULL;
2347: END IF;
2348: IF (l_talv_rec.model_number = OKC_API.G_MISS_CHAR) THEN
2349: l_talv_rec.model_number := NULL;
2350: END IF;
2351: IF (l_talv_rec.corporate_book = OKC_API.G_MISS_CHAR) THEN
2352: l_talv_rec.corporate_book := NULL;
2353: END IF;
2354: IF (l_talv_rec.date_purchased = OKC_API.G_MISS_DATE) THEN
2355: l_talv_rec.date_purchased := NULL;
2350: END IF;
2351: IF (l_talv_rec.corporate_book = OKC_API.G_MISS_CHAR) THEN
2352: l_talv_rec.corporate_book := NULL;
2353: END IF;
2354: IF (l_talv_rec.date_purchased = OKC_API.G_MISS_DATE) THEN
2355: l_talv_rec.date_purchased := NULL;
2356: END IF;
2357: IF (l_talv_rec.date_delivery = OKC_API.G_MISS_DATE) THEN
2358: l_talv_rec.date_delivery := NULL;
2353: END IF;
2354: IF (l_talv_rec.date_purchased = OKC_API.G_MISS_DATE) THEN
2355: l_talv_rec.date_purchased := NULL;
2356: END IF;
2357: IF (l_talv_rec.date_delivery = OKC_API.G_MISS_DATE) THEN
2358: l_talv_rec.date_delivery := NULL;
2359: END IF;
2360: IF (l_talv_rec.in_service_date = OKC_API.G_MISS_DATE) THEN
2361: l_talv_rec.in_service_date := NULL;
2356: END IF;
2357: IF (l_talv_rec.date_delivery = OKC_API.G_MISS_DATE) THEN
2358: l_talv_rec.date_delivery := NULL;
2359: END IF;
2360: IF (l_talv_rec.in_service_date = OKC_API.G_MISS_DATE) THEN
2361: l_talv_rec.in_service_date := NULL;
2362: END IF;
2363: IF (l_talv_rec.life_in_months = OKC_API.G_MISS_NUM) THEN
2364: l_talv_rec.life_in_months := NULL;
2359: END IF;
2360: IF (l_talv_rec.in_service_date = OKC_API.G_MISS_DATE) THEN
2361: l_talv_rec.in_service_date := NULL;
2362: END IF;
2363: IF (l_talv_rec.life_in_months = OKC_API.G_MISS_NUM) THEN
2364: l_talv_rec.life_in_months := NULL;
2365: END IF;
2366: IF (l_talv_rec.depreciation_id = OKC_API.G_MISS_NUM) THEN
2367: l_talv_rec.depreciation_id := NULL;
2362: END IF;
2363: IF (l_talv_rec.life_in_months = OKC_API.G_MISS_NUM) THEN
2364: l_talv_rec.life_in_months := NULL;
2365: END IF;
2366: IF (l_talv_rec.depreciation_id = OKC_API.G_MISS_NUM) THEN
2367: l_talv_rec.depreciation_id := NULL;
2368: END IF;
2369: IF (l_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM) THEN
2370: l_talv_rec.depreciation_cost := NULL;
2365: END IF;
2366: IF (l_talv_rec.depreciation_id = OKC_API.G_MISS_NUM) THEN
2367: l_talv_rec.depreciation_id := NULL;
2368: END IF;
2369: IF (l_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM) THEN
2370: l_talv_rec.depreciation_cost := NULL;
2371: END IF;
2372: IF (l_talv_rec.deprn_method = OKC_API.G_MISS_CHAR) THEN
2373: l_talv_rec.deprn_method := NULL;
2368: END IF;
2369: IF (l_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM) THEN
2370: l_talv_rec.depreciation_cost := NULL;
2371: END IF;
2372: IF (l_talv_rec.deprn_method = OKC_API.G_MISS_CHAR) THEN
2373: l_talv_rec.deprn_method := NULL;
2374: END IF;
2375: IF (l_talv_rec.deprn_rate = OKC_API.G_MISS_NUM) THEN
2376: l_talv_rec.deprn_rate := NULL;
2371: END IF;
2372: IF (l_talv_rec.deprn_method = OKC_API.G_MISS_CHAR) THEN
2373: l_talv_rec.deprn_method := NULL;
2374: END IF;
2375: IF (l_talv_rec.deprn_rate = OKC_API.G_MISS_NUM) THEN
2376: l_talv_rec.deprn_rate := NULL;
2377: END IF;
2378: IF (l_talv_rec.salvage_value = OKC_API.G_MISS_NUM) THEN
2379: l_talv_rec.salvage_value := NULL;
2374: END IF;
2375: IF (l_talv_rec.deprn_rate = OKC_API.G_MISS_NUM) THEN
2376: l_talv_rec.deprn_rate := NULL;
2377: END IF;
2378: IF (l_talv_rec.salvage_value = OKC_API.G_MISS_NUM) THEN
2379: l_talv_rec.salvage_value := NULL;
2380: END IF;
2381: IF (l_talv_rec.percent_salvage_value = OKC_API.G_MISS_NUM) THEN
2382: l_talv_rec.percent_salvage_value := NULL;
2377: END IF;
2378: IF (l_talv_rec.salvage_value = OKC_API.G_MISS_NUM) THEN
2379: l_talv_rec.salvage_value := NULL;
2380: END IF;
2381: IF (l_talv_rec.percent_salvage_value = OKC_API.G_MISS_NUM) THEN
2382: l_talv_rec.percent_salvage_value := NULL;
2383: END IF;
2384: --Bug# 2981308
2385: IF (l_talv_rec.asset_key_id = OKL_API.G_MISS_NUM) THEN
2392: --Bug# 4899328
2393: IF (l_talv_rec.fa_cost = OKL_API.G_MISS_NUM) THEN
2394: l_talv_rec.fa_cost := NULL;
2395: END IF;
2396: IF (l_talv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
2397: l_talv_rec.attribute_category := NULL;
2398: END IF;
2399: IF (l_talv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
2400: l_talv_rec.attribute1 := NULL;
2395: END IF;
2396: IF (l_talv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
2397: l_talv_rec.attribute_category := NULL;
2398: END IF;
2399: IF (l_talv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
2400: l_talv_rec.attribute1 := NULL;
2401: END IF;
2402: IF (l_talv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
2403: l_talv_rec.attribute2 := NULL;
2398: END IF;
2399: IF (l_talv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
2400: l_talv_rec.attribute1 := NULL;
2401: END IF;
2402: IF (l_talv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
2403: l_talv_rec.attribute2 := NULL;
2404: END IF;
2405: IF (l_talv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
2406: l_talv_rec.attribute3 := NULL;
2401: END IF;
2402: IF (l_talv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
2403: l_talv_rec.attribute2 := NULL;
2404: END IF;
2405: IF (l_talv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
2406: l_talv_rec.attribute3 := NULL;
2407: END IF;
2408: IF (l_talv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
2409: l_talv_rec.attribute4 := NULL;
2404: END IF;
2405: IF (l_talv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
2406: l_talv_rec.attribute3 := NULL;
2407: END IF;
2408: IF (l_talv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
2409: l_talv_rec.attribute4 := NULL;
2410: END IF;
2411: IF (l_talv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
2412: l_talv_rec.attribute5 := NULL;
2407: END IF;
2408: IF (l_talv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
2409: l_talv_rec.attribute4 := NULL;
2410: END IF;
2411: IF (l_talv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
2412: l_talv_rec.attribute5 := NULL;
2413: END IF;
2414: IF (l_talv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
2415: l_talv_rec.attribute6 := NULL;
2410: END IF;
2411: IF (l_talv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
2412: l_talv_rec.attribute5 := NULL;
2413: END IF;
2414: IF (l_talv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
2415: l_talv_rec.attribute6 := NULL;
2416: END IF;
2417: IF (l_talv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
2418: l_talv_rec.attribute7 := NULL;
2413: END IF;
2414: IF (l_talv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
2415: l_talv_rec.attribute6 := NULL;
2416: END IF;
2417: IF (l_talv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
2418: l_talv_rec.attribute7 := NULL;
2419: END IF;
2420: IF (l_talv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
2421: l_talv_rec.attribute8 := NULL;
2416: END IF;
2417: IF (l_talv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
2418: l_talv_rec.attribute7 := NULL;
2419: END IF;
2420: IF (l_talv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
2421: l_talv_rec.attribute8 := NULL;
2422: END IF;
2423: IF (l_talv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
2424: l_talv_rec.attribute9 := NULL;
2419: END IF;
2420: IF (l_talv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
2421: l_talv_rec.attribute8 := NULL;
2422: END IF;
2423: IF (l_talv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
2424: l_talv_rec.attribute9 := NULL;
2425: END IF;
2426: IF (l_talv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
2427: l_talv_rec.attribute10 := NULL;
2422: END IF;
2423: IF (l_talv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
2424: l_talv_rec.attribute9 := NULL;
2425: END IF;
2426: IF (l_talv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
2427: l_talv_rec.attribute10 := NULL;
2428: END IF;
2429: IF (l_talv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
2430: l_talv_rec.attribute11 := NULL;
2425: END IF;
2426: IF (l_talv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
2427: l_talv_rec.attribute10 := NULL;
2428: END IF;
2429: IF (l_talv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
2430: l_talv_rec.attribute11 := NULL;
2431: END IF;
2432: IF (l_talv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
2433: l_talv_rec.attribute12 := NULL;
2428: END IF;
2429: IF (l_talv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
2430: l_talv_rec.attribute11 := NULL;
2431: END IF;
2432: IF (l_talv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
2433: l_talv_rec.attribute12 := NULL;
2434: END IF;
2435: IF (l_talv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
2436: l_talv_rec.attribute13 := NULL;
2431: END IF;
2432: IF (l_talv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
2433: l_talv_rec.attribute12 := NULL;
2434: END IF;
2435: IF (l_talv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
2436: l_talv_rec.attribute13 := NULL;
2437: END IF;
2438: IF (l_talv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
2439: l_talv_rec.attribute14 := NULL;
2434: END IF;
2435: IF (l_talv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
2436: l_talv_rec.attribute13 := NULL;
2437: END IF;
2438: IF (l_talv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
2439: l_talv_rec.attribute14 := NULL;
2440: END IF;
2441: IF (l_talv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
2442: l_talv_rec.attribute15 := NULL;
2437: END IF;
2438: IF (l_talv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
2439: l_talv_rec.attribute14 := NULL;
2440: END IF;
2441: IF (l_talv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
2442: l_talv_rec.attribute15 := NULL;
2443: END IF;
2444: IF (l_talv_rec.created_by = OKC_API.G_MISS_NUM) THEN
2445: l_talv_rec.created_by := NULL;
2440: END IF;
2441: IF (l_talv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
2442: l_talv_rec.attribute15 := NULL;
2443: END IF;
2444: IF (l_talv_rec.created_by = OKC_API.G_MISS_NUM) THEN
2445: l_talv_rec.created_by := NULL;
2446: END IF;
2447: IF (l_talv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
2448: l_talv_rec.creation_date := NULL;
2443: END IF;
2444: IF (l_talv_rec.created_by = OKC_API.G_MISS_NUM) THEN
2445: l_talv_rec.created_by := NULL;
2446: END IF;
2447: IF (l_talv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
2448: l_talv_rec.creation_date := NULL;
2449: END IF;
2450: IF (l_talv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
2451: l_talv_rec.last_updated_by := NULL;
2446: END IF;
2447: IF (l_talv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
2448: l_talv_rec.creation_date := NULL;
2449: END IF;
2450: IF (l_talv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
2451: l_talv_rec.last_updated_by := NULL;
2452: END IF;
2453: IF (l_talv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
2454: l_talv_rec.last_update_date := NULL;
2449: END IF;
2450: IF (l_talv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
2451: l_talv_rec.last_updated_by := NULL;
2452: END IF;
2453: IF (l_talv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
2454: l_talv_rec.last_update_date := NULL;
2455: END IF;
2456: IF (l_talv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
2457: l_talv_rec.last_update_login := NULL;
2452: END IF;
2453: IF (l_talv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
2454: l_talv_rec.last_update_date := NULL;
2455: END IF;
2456: IF (l_talv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
2457: l_talv_rec.last_update_login := NULL;
2458: END IF;
2459: IF (l_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR) THEN
2460: l_talv_rec.depreciate_yn := NULL;
2455: END IF;
2456: IF (l_talv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
2457: l_talv_rec.last_update_login := NULL;
2458: END IF;
2459: IF (l_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR) THEN
2460: l_talv_rec.depreciate_yn := NULL;
2461: END IF;
2462: IF (l_talv_rec.hold_period_days = OKC_API.G_MISS_NUM) THEN
2463: l_talv_rec.hold_period_days := NULL;
2458: END IF;
2459: IF (l_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR) THEN
2460: l_talv_rec.depreciate_yn := NULL;
2461: END IF;
2462: IF (l_talv_rec.hold_period_days = OKC_API.G_MISS_NUM) THEN
2463: l_talv_rec.hold_period_days := NULL;
2464: END IF;
2465: IF (l_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM) THEN
2466: l_talv_rec.old_salvage_value := NULL;
2461: END IF;
2462: IF (l_talv_rec.hold_period_days = OKC_API.G_MISS_NUM) THEN
2463: l_talv_rec.hold_period_days := NULL;
2464: END IF;
2465: IF (l_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM) THEN
2466: l_talv_rec.old_salvage_value := NULL;
2467: END IF;
2468: IF (l_talv_rec.new_residual_value = OKC_API.G_MISS_NUM) THEN
2469: l_talv_rec.new_residual_value := NULL;
2464: END IF;
2465: IF (l_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM) THEN
2466: l_talv_rec.old_salvage_value := NULL;
2467: END IF;
2468: IF (l_talv_rec.new_residual_value = OKC_API.G_MISS_NUM) THEN
2469: l_talv_rec.new_residual_value := NULL;
2470: END IF;
2471: IF (l_talv_rec.old_residual_value = OKC_API.G_MISS_NUM) THEN
2472: l_talv_rec.old_residual_value := NULL;
2467: END IF;
2468: IF (l_talv_rec.new_residual_value = OKC_API.G_MISS_NUM) THEN
2469: l_talv_rec.new_residual_value := NULL;
2470: END IF;
2471: IF (l_talv_rec.old_residual_value = OKC_API.G_MISS_NUM) THEN
2472: l_talv_rec.old_residual_value := NULL;
2473: END IF;
2474: IF (l_talv_rec.units_retired = OKC_API.G_MISS_NUM) THEN
2475: l_talv_rec.units_retired := NULL;
2470: END IF;
2471: IF (l_talv_rec.old_residual_value = OKC_API.G_MISS_NUM) THEN
2472: l_talv_rec.old_residual_value := NULL;
2473: END IF;
2474: IF (l_talv_rec.units_retired = OKC_API.G_MISS_NUM) THEN
2475: l_talv_rec.units_retired := NULL;
2476: END IF;
2477: IF (l_talv_rec.cost_retired = OKC_API.G_MISS_NUM) THEN
2478: l_talv_rec.cost_retired := NULL;
2473: END IF;
2474: IF (l_talv_rec.units_retired = OKC_API.G_MISS_NUM) THEN
2475: l_talv_rec.units_retired := NULL;
2476: END IF;
2477: IF (l_talv_rec.cost_retired = OKC_API.G_MISS_NUM) THEN
2478: l_talv_rec.cost_retired := NULL;
2479: END IF;
2480: IF (l_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM) THEN
2481: l_talv_rec.sale_proceeds := NULL;
2476: END IF;
2477: IF (l_talv_rec.cost_retired = OKC_API.G_MISS_NUM) THEN
2478: l_talv_rec.cost_retired := NULL;
2479: END IF;
2480: IF (l_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM) THEN
2481: l_talv_rec.sale_proceeds := NULL;
2482: END IF;
2483: IF (l_talv_rec.removal_cost = OKC_API.G_MISS_NUM) THEN
2484: l_talv_rec.removal_cost := NULL;
2479: END IF;
2480: IF (l_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM) THEN
2481: l_talv_rec.sale_proceeds := NULL;
2482: END IF;
2483: IF (l_talv_rec.removal_cost = OKC_API.G_MISS_NUM) THEN
2484: l_talv_rec.removal_cost := NULL;
2485: END IF;
2486: IF (l_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM) THEN
2487: l_talv_rec.dnz_asset_id := NULL;
2482: END IF;
2483: IF (l_talv_rec.removal_cost = OKC_API.G_MISS_NUM) THEN
2484: l_talv_rec.removal_cost := NULL;
2485: END IF;
2486: IF (l_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM) THEN
2487: l_talv_rec.dnz_asset_id := NULL;
2488: END IF;
2489: IF (l_talv_rec.date_due = OKC_API.G_MISS_DATE) THEN
2490: l_talv_rec.date_due := NULL;
2485: END IF;
2486: IF (l_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM) THEN
2487: l_talv_rec.dnz_asset_id := NULL;
2488: END IF;
2489: IF (l_talv_rec.date_due = OKC_API.G_MISS_DATE) THEN
2490: l_talv_rec.date_due := NULL;
2491: END IF;
2492: IF (l_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM) THEN
2493: l_talv_rec.rep_asset_id := NULL;
2488: END IF;
2489: IF (l_talv_rec.date_due = OKC_API.G_MISS_DATE) THEN
2490: l_talv_rec.date_due := NULL;
2491: END IF;
2492: IF (l_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM) THEN
2493: l_talv_rec.rep_asset_id := NULL;
2494: END IF;
2495: IF (l_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM) THEN
2496: l_talv_rec.lke_asset_id := NULL;
2491: END IF;
2492: IF (l_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM) THEN
2493: l_talv_rec.rep_asset_id := NULL;
2494: END IF;
2495: IF (l_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM) THEN
2496: l_talv_rec.lke_asset_id := NULL;
2497: END IF;
2498: IF (l_talv_rec.match_amount = OKC_API.G_MISS_NUM) THEN
2499: l_talv_rec.match_amount := NULL;
2494: END IF;
2495: IF (l_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM) THEN
2496: l_talv_rec.lke_asset_id := NULL;
2497: END IF;
2498: IF (l_talv_rec.match_amount = OKC_API.G_MISS_NUM) THEN
2499: l_talv_rec.match_amount := NULL;
2500: END IF;
2501: IF (l_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR) THEN
2502: l_talv_rec.split_into_singles_flag := NULL;
2497: END IF;
2498: IF (l_talv_rec.match_amount = OKC_API.G_MISS_NUM) THEN
2499: l_talv_rec.match_amount := NULL;
2500: END IF;
2501: IF (l_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR) THEN
2502: l_talv_rec.split_into_singles_flag := NULL;
2503: END IF;
2504: IF (l_talv_rec.split_into_units = OKC_API.G_MISS_NUM) THEN
2505: l_talv_rec.split_into_units := NULL;
2500: END IF;
2501: IF (l_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR) THEN
2502: l_talv_rec.split_into_singles_flag := NULL;
2503: END IF;
2504: IF (l_talv_rec.split_into_units = OKC_API.G_MISS_NUM) THEN
2505: l_talv_rec.split_into_units := NULL;
2506: END IF;
2507:
2508: -- Multi-Currency Change
2505: l_talv_rec.split_into_units := NULL;
2506: END IF;
2507:
2508: -- Multi-Currency Change
2509: IF (l_talv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
2510: l_talv_rec.currency_code := NULL;
2511: END IF;
2512: IF (l_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
2513: l_talv_rec.currency_conversion_type := NULL;
2508: -- Multi-Currency Change
2509: IF (l_talv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
2510: l_talv_rec.currency_code := NULL;
2511: END IF;
2512: IF (l_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
2513: l_talv_rec.currency_conversion_type := NULL;
2514: END IF;
2515: IF (l_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
2516: l_talv_rec.currency_conversion_rate:= NULL;
2511: END IF;
2512: IF (l_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
2513: l_talv_rec.currency_conversion_type := NULL;
2514: END IF;
2515: IF (l_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
2516: l_talv_rec.currency_conversion_rate:= NULL;
2517: END IF;
2518: IF (l_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
2519: l_talv_rec.currency_conversion_date := NULL;
2514: END IF;
2515: IF (l_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
2516: l_talv_rec.currency_conversion_rate:= NULL;
2517: END IF;
2518: IF (l_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
2519: l_talv_rec.currency_conversion_date := NULL;
2520: END IF;
2521: -- Multi-Currency Change
2522:
2521: -- Multi-Currency Change
2522:
2523: -- VRS Project - START
2524:
2525: IF (l_talv_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM) THEN
2526: l_talv_rec.RESIDUAL_SHR_PARTY_ID:= NULL;
2527: END IF;
2528: IF (l_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
2529: l_talv_rec.RESIDUAL_SHR_AMOUNT:= NULL;
2524:
2525: IF (l_talv_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM) THEN
2526: l_talv_rec.RESIDUAL_SHR_PARTY_ID:= NULL;
2527: END IF;
2528: IF (l_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
2529: l_talv_rec.RESIDUAL_SHR_AMOUNT:= NULL;
2530: END IF;
2531: IF (l_talv_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM) THEN
2532: l_talv_rec.RETIREMENT_ID := NULL;
2527: END IF;
2528: IF (l_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
2529: l_talv_rec.RESIDUAL_SHR_AMOUNT:= NULL;
2530: END IF;
2531: IF (l_talv_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM) THEN
2532: l_talv_rec.RETIREMENT_ID := NULL;
2533: END IF;
2534:
2535: -- VRS Project - END
2544: ----------------------------------------------
2545: FUNCTION Validate_Attributes (
2546: p_talv_rec IN talv_rec_type
2547: ) RETURN VARCHAR2 IS
2548: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2549: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2550: BEGIN
2551: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2552: p_talv_rec.id IS NULL THEN
2545: FUNCTION Validate_Attributes (
2546: p_talv_rec IN talv_rec_type
2547: ) RETURN VARCHAR2 IS
2548: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2549: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2550: BEGIN
2551: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2552: p_talv_rec.id IS NULL THEN
2553: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2547: ) RETURN VARCHAR2 IS
2548: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2549: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2550: BEGIN
2551: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2552: p_talv_rec.id IS NULL THEN
2553: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2554: x_return_status := OKC_API.G_RET_STS_ERROR;
2555: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2549: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2550: BEGIN
2551: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2552: p_talv_rec.id IS NULL THEN
2553: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2554: x_return_status := OKC_API.G_RET_STS_ERROR;
2555: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2556: p_talv_rec.object_version_number IS NULL THEN
2557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2550: BEGIN
2551: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2552: p_talv_rec.id IS NULL THEN
2553: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2554: x_return_status := OKC_API.G_RET_STS_ERROR;
2555: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2556: p_talv_rec.object_version_number IS NULL THEN
2557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2558: x_return_status := OKC_API.G_RET_STS_ERROR;
2551: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2552: p_talv_rec.id IS NULL THEN
2553: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2554: x_return_status := OKC_API.G_RET_STS_ERROR;
2555: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2556: p_talv_rec.object_version_number IS NULL THEN
2557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2558: x_return_status := OKC_API.G_RET_STS_ERROR;
2559: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2553: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2554: x_return_status := OKC_API.G_RET_STS_ERROR;
2555: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2556: p_talv_rec.object_version_number IS NULL THEN
2557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2558: x_return_status := OKC_API.G_RET_STS_ERROR;
2559: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2560: p_talv_rec.line_number IS NULL THEN
2561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2554: x_return_status := OKC_API.G_RET_STS_ERROR;
2555: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2556: p_talv_rec.object_version_number IS NULL THEN
2557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2558: x_return_status := OKC_API.G_RET_STS_ERROR;
2559: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2560: p_talv_rec.line_number IS NULL THEN
2561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2562: x_return_status := OKC_API.G_RET_STS_ERROR;
2555: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2556: p_talv_rec.object_version_number IS NULL THEN
2557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2558: x_return_status := OKC_API.G_RET_STS_ERROR;
2559: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2560: p_talv_rec.line_number IS NULL THEN
2561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2562: x_return_status := OKC_API.G_RET_STS_ERROR;
2563: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2557: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2558: x_return_status := OKC_API.G_RET_STS_ERROR;
2559: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2560: p_talv_rec.line_number IS NULL THEN
2561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2562: x_return_status := OKC_API.G_RET_STS_ERROR;
2563: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2564: p_talv_rec.asset_number IS NULL THEN
2565: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2558: x_return_status := OKC_API.G_RET_STS_ERROR;
2559: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2560: p_talv_rec.line_number IS NULL THEN
2561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2562: x_return_status := OKC_API.G_RET_STS_ERROR;
2563: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2564: p_talv_rec.asset_number IS NULL THEN
2565: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2566: x_return_status := OKC_API.G_RET_STS_ERROR;
2559: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2560: p_talv_rec.line_number IS NULL THEN
2561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2562: x_return_status := OKC_API.G_RET_STS_ERROR;
2563: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2564: p_talv_rec.asset_number IS NULL THEN
2565: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2566: x_return_status := OKC_API.G_RET_STS_ERROR;
2567: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2562: x_return_status := OKC_API.G_RET_STS_ERROR;
2563: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2564: p_talv_rec.asset_number IS NULL THEN
2565: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2566: x_return_status := OKC_API.G_RET_STS_ERROR;
2567: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2568: p_talv_rec.original_cost IS NULL THEN
2569: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'original_cost');
2562: x_return_status := OKC_API.G_RET_STS_ERROR;
2563: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2564: p_talv_rec.asset_number IS NULL THEN
2565: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2566: x_return_status := OKC_API.G_RET_STS_ERROR;
2567: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2568: p_talv_rec.original_cost IS NULL THEN
2569: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'original_cost');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2563: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2564: p_talv_rec.asset_number IS NULL THEN
2565: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2566: x_return_status := OKC_API.G_RET_STS_ERROR;
2567: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2568: p_talv_rec.original_cost IS NULL THEN
2569: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'original_cost');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2571: END IF;
2565: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2566: x_return_status := OKC_API.G_RET_STS_ERROR;
2567: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2568: p_talv_rec.original_cost IS NULL THEN
2569: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'original_cost');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2571: END IF;
2572: /************************ HAND-CODED *********************************/
2573: -- Calling the validation procedures for attributes
2566: x_return_status := OKC_API.G_RET_STS_ERROR;
2567: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2568: p_talv_rec.original_cost IS NULL THEN
2569: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'original_cost');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2571: END IF;
2572: /************************ HAND-CODED *********************************/
2573: -- Calling the validation procedures for attributes
2574: validate_tas_id(x_return_status => l_return_status,
2573: -- Calling the validation procedures for attributes
2574: validate_tas_id(x_return_status => l_return_status,
2575: p_talv_rec => p_talv_rec);
2576: -- Store the Highest Degree of Error
2577: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2578: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2579: x_return_status := l_return_status;
2580: END IF;
2581: END IF;
2574: validate_tas_id(x_return_status => l_return_status,
2575: p_talv_rec => p_talv_rec);
2576: -- Store the Highest Degree of Error
2577: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2578: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2579: x_return_status := l_return_status;
2580: END IF;
2581: END IF;
2582: l_return_status := x_return_status;
2582: l_return_status := x_return_status;
2583: validate_ilo_id(x_return_status => l_return_status,
2584: p_talv_rec => p_talv_rec);
2585: -- Store the Highest Degree of Error
2586: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2587: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2588: x_return_status := l_return_status;
2589: END IF;
2590: END IF;
2583: validate_ilo_id(x_return_status => l_return_status,
2584: p_talv_rec => p_talv_rec);
2585: -- Store the Highest Degree of Error
2586: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2587: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2588: x_return_status := l_return_status;
2589: END IF;
2590: END IF;
2591: l_return_status := x_return_status;
2591: l_return_status := x_return_status;
2592: validate_ilo_id_old(x_return_status => l_return_status,
2593: p_talv_rec => p_talv_rec);
2594: -- Store the Highest Degree of Error
2595: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2596: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2597: x_return_status := l_return_status;
2598: END IF;
2599: END IF;
2592: validate_ilo_id_old(x_return_status => l_return_status,
2593: p_talv_rec => p_talv_rec);
2594: -- Store the Highest Degree of Error
2595: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2596: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2597: x_return_status := l_return_status;
2598: END IF;
2599: END IF;
2600: l_return_status := x_return_status;
2600: l_return_status := x_return_status;
2601: validate_iay_id(x_return_status => l_return_status,
2602: p_talv_rec => p_talv_rec);
2603: -- Store the Highest Degree of Error
2604: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2605: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2606: x_return_status := l_return_status;
2607: END IF;
2608: END IF;
2601: validate_iay_id(x_return_status => l_return_status,
2602: p_talv_rec => p_talv_rec);
2603: -- Store the Highest Degree of Error
2604: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2605: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2606: x_return_status := l_return_status;
2607: END IF;
2608: END IF;
2609: l_return_status := x_return_status;
2609: l_return_status := x_return_status;
2610: validate_iay_id_new(x_return_status => l_return_status,
2611: p_talv_rec => p_talv_rec);
2612: -- Store the Highest Degree of Error
2613: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2614: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2615: x_return_status := l_return_status;
2616: END IF;
2617: END IF;
2610: validate_iay_id_new(x_return_status => l_return_status,
2611: p_talv_rec => p_talv_rec);
2612: -- Store the Highest Degree of Error
2613: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2614: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2615: x_return_status := l_return_status;
2616: END IF;
2617: END IF;
2618: l_return_status := x_return_status;
2618: l_return_status := x_return_status;
2619: validate_kle_id(x_return_status => l_return_status,
2620: p_talv_rec => p_talv_rec);
2621: -- Store the Highest Degree of Error
2622: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2623: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2624: x_return_status := l_return_status;
2625: END IF;
2626: END IF;
2619: validate_kle_id(x_return_status => l_return_status,
2620: p_talv_rec => p_talv_rec);
2621: -- Store the Highest Degree of Error
2622: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2623: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2624: x_return_status := l_return_status;
2625: END IF;
2626: END IF;
2627: l_return_status := x_return_status;
2627: l_return_status := x_return_status;
2628: validate_tal_type(x_return_status => l_return_status,
2629: p_talv_rec => p_talv_rec);
2630: -- Store the Highest Degree of Error
2631: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2632: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2633: x_return_status := l_return_status;
2634: END IF;
2635: END IF;
2628: validate_tal_type(x_return_status => l_return_status,
2629: p_talv_rec => p_talv_rec);
2630: -- Store the Highest Degree of Error
2631: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2632: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2633: x_return_status := l_return_status;
2634: END IF;
2635: END IF;
2636: l_return_status := x_return_status;
2636: l_return_status := x_return_status;
2637: validate_org_id(x_return_status => l_return_status,
2638: p_talv_rec => p_talv_rec);
2639: -- Store the Highest Degree of Error
2640: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2641: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2642: x_return_status := l_return_status;
2643: END IF;
2644: END IF;
2637: validate_org_id(x_return_status => l_return_status,
2638: p_talv_rec => p_talv_rec);
2639: -- Store the Highest Degree of Error
2640: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2641: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2642: x_return_status := l_return_status;
2643: END IF;
2644: END IF;
2645: l_return_status := x_return_status;
2645: l_return_status := x_return_status;
2646: validate_current_units(x_return_status => l_return_status,
2647: p_talv_rec => p_talv_rec);
2648: -- Store the Highest Degree of Error
2649: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2650: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2651: x_return_status := l_return_status;
2652: END IF;
2653: END IF;
2646: validate_current_units(x_return_status => l_return_status,
2647: p_talv_rec => p_talv_rec);
2648: -- Store the Highest Degree of Error
2649: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2650: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2651: x_return_status := l_return_status;
2652: END IF;
2653: END IF;
2654: l_return_status := x_return_status;
2654: l_return_status := x_return_status;
2655: validate_used_asset_yn(x_return_status => l_return_status,
2656: p_talv_rec => p_talv_rec);
2657: -- Store the Highest Degree of Error
2658: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2659: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2660: x_return_status := l_return_status;
2661: END IF;
2662: END IF;
2655: validate_used_asset_yn(x_return_status => l_return_status,
2656: p_talv_rec => p_talv_rec);
2657: -- Store the Highest Degree of Error
2658: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2659: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2660: x_return_status := l_return_status;
2661: END IF;
2662: END IF;
2663: l_return_status := x_return_status;
2663: l_return_status := x_return_status;
2664: validate_life_in_months(x_return_status => l_return_status,
2665: p_talv_rec => p_talv_rec);
2666: -- Store the Highest Degree of Error
2667: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2668: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2669: x_return_status := l_return_status;
2670: END IF;
2671: END IF;
2664: validate_life_in_months(x_return_status => l_return_status,
2665: p_talv_rec => p_talv_rec);
2666: -- Store the Highest Degree of Error
2667: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2668: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2669: x_return_status := l_return_status;
2670: END IF;
2671: END IF;
2672: l_return_status := x_return_status;
2672: l_return_status := x_return_status;
2673: validate_deprn_id(x_return_status => l_return_status,
2674: p_talv_rec => p_talv_rec);
2675: -- Store the Highest Degree of Error
2676: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2677: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2678: x_return_status := l_return_status;
2679: END IF;
2680: END IF;
2673: validate_deprn_id(x_return_status => l_return_status,
2674: p_talv_rec => p_talv_rec);
2675: -- Store the Highest Degree of Error
2676: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2677: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2678: x_return_status := l_return_status;
2679: END IF;
2680: END IF;
2681: l_return_status := x_return_status;
2681: l_return_status := x_return_status;
2682: validate_fa_location_id(x_return_status => l_return_status,
2683: p_talv_rec => p_talv_rec);
2684: -- Store the Highest Degree of Error
2685: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2686: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2687: x_return_status := l_return_status;
2688: END IF;
2689: END IF;
2682: validate_fa_location_id(x_return_status => l_return_status,
2683: p_talv_rec => p_talv_rec);
2684: -- Store the Highest Degree of Error
2685: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2686: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2687: x_return_status := l_return_status;
2688: END IF;
2689: END IF;
2690: l_return_status := x_return_status;
2690: l_return_status := x_return_status;
2691: validate_dnz_khr_id(x_return_status => l_return_status,
2692: p_talv_rec => p_talv_rec);
2693: -- Store the Highest Degree of Error
2694: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2695: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2696: x_return_status := l_return_status;
2697: END IF;
2698: END IF;
2691: validate_dnz_khr_id(x_return_status => l_return_status,
2692: p_talv_rec => p_talv_rec);
2693: -- Store the Highest Degree of Error
2694: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2695: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2696: x_return_status := l_return_status;
2697: END IF;
2698: END IF;
2699: l_return_status := x_return_status;
2699: l_return_status := x_return_status;
2700: validate_corp_book(x_return_status => l_return_status,
2701: p_talv_rec => p_talv_rec);
2702: -- Store the Highest Degree of Error
2703: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2704: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2705: x_return_status := l_return_status;
2706: END IF;
2707: END IF;
2700: validate_corp_book(x_return_status => l_return_status,
2701: p_talv_rec => p_talv_rec);
2702: -- Store the Highest Degree of Error
2703: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2704: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2705: x_return_status := l_return_status;
2706: END IF;
2707: END IF;
2708: l_return_status := x_return_status;
2712: validate_asset_key (x_return_status => l_return_status,
2713: p_talv_rec => p_talv_rec);
2714:
2715: -- Store the Highest Degree of Error
2716: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2717: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2718: x_return_status := l_return_status;
2719: END IF;
2720: END IF;
2713: p_talv_rec => p_talv_rec);
2714:
2715: -- Store the Highest Degree of Error
2716: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2717: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2718: x_return_status := l_return_status;
2719: END IF;
2720: END IF;
2721: l_return_status := x_return_status;
2722: RETURN(l_return_status);
2723: EXCEPTION
2724: WHEN OTHERS THEN
2725: -- store SQL error message on message stack
2726: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2727: p_msg_name => G_UNEXPECTED_ERROR,
2728: p_token1 => G_SQLCODE_TOKEN,
2729: p_token1_value => SQLCODE,
2730: p_token2 => G_SQLERRM_TOKEN,
2729: p_token1_value => SQLCODE,
2730: p_token2 => G_SQLERRM_TOKEN,
2731: p_token2_value => SQLERRM);
2732: -- notify caller of an error as UNEXPETED error
2733: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2734: -- Return status to caller
2735: RETURN(x_return_status);
2736: /************************ HAND-CODED *********************************/
2737: END Validate_Attributes;
2744: ------------------------------------------
2745: FUNCTION Validate_Record (
2746: p_talv_rec IN talv_rec_type
2747: ) RETURN VARCHAR2 IS
2748: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2749: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2750: BEGIN
2751: /************************ HAND-CODED *********************************/
2752: validate_pds_date(x_return_status => l_return_status,
2745: FUNCTION Validate_Record (
2746: p_talv_rec IN talv_rec_type
2747: ) RETURN VARCHAR2 IS
2748: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2749: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2750: BEGIN
2751: /************************ HAND-CODED *********************************/
2752: validate_pds_date(x_return_status => l_return_status,
2753: p_talv_rec => p_talv_rec);
2751: /************************ HAND-CODED *********************************/
2752: validate_pds_date(x_return_status => l_return_status,
2753: p_talv_rec => p_talv_rec);
2754: -- Store the Highest Degree of Error
2755: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2756: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2757: x_return_status := l_return_status;
2758: END IF;
2759: END IF;
2752: validate_pds_date(x_return_status => l_return_status,
2753: p_talv_rec => p_talv_rec);
2754: -- Store the Highest Degree of Error
2755: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2756: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2757: x_return_status := l_return_status;
2758: END IF;
2759: END IF;
2760: l_return_status := x_return_status;
2763: /*
2764: validate_salv_oec(x_return_status => l_return_status,
2765: p_talv_rec => p_talv_rec);
2766: -- Store the Highest Degree of Error
2767: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2768: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2769: x_return_status := l_return_status;
2770: END IF;
2771: END IF;
2764: validate_salv_oec(x_return_status => l_return_status,
2765: p_talv_rec => p_talv_rec);
2766: -- Store the Highest Degree of Error
2767: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2768: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2769: x_return_status := l_return_status;
2770: END IF;
2771: END IF;
2772: */
2775: RETURN (l_return_status);
2776: EXCEPTION
2777: WHEN OTHERS THEN
2778: -- store SQL error message on message stack
2779: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2780: p_msg_name => G_UNEXPECTED_ERROR,
2781: p_token1 => G_SQLCODE_TOKEN,
2782: p_token1_value => SQLCODE,
2783: p_token2 => G_SQLERRM_TOKEN,
2782: p_token1_value => SQLCODE,
2783: p_token2 => G_SQLERRM_TOKEN,
2784: p_token2_value => SQLERRM);
2785: -- notify caller of an error as UNEXPETED error
2786: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2787: -- Return status to caller
2788: RETURN(x_return_status);
2789: /************************ HAND-CODED *********************************/
2790: END Validate_Record;
3016: -- validate_row for:OKL_TXL_ASSETS_V --
3017: ---------------------------------------
3018: PROCEDURE validate_row(
3019: p_api_version IN NUMBER,
3020: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3021: x_return_status OUT NOCOPY VARCHAR2,
3022: x_msg_count OUT NOCOPY NUMBER,
3023: x_msg_data OUT NOCOPY VARCHAR2,
3024: p_talv_rec IN talv_rec_type) IS
3024: p_talv_rec IN talv_rec_type) IS
3025:
3026: l_api_version CONSTANT NUMBER := 1;
3027: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
3028: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3029: l_talv_rec talv_rec_type := p_talv_rec;
3030: l_tal_rec tal_rec_type;
3031: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
3032: BEGIN
3029: l_talv_rec talv_rec_type := p_talv_rec;
3030: l_tal_rec tal_rec_type;
3031: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
3032: BEGIN
3033: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3034: G_PKG_NAME,
3035: p_init_msg_list,
3036: l_api_version,
3037: p_api_version,
3036: l_api_version,
3037: p_api_version,
3038: '_PVT',
3039: x_return_status);
3040: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3041: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3042: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3043: RAISE OKC_API.G_EXCEPTION_ERROR;
3044: END IF;
3037: p_api_version,
3038: '_PVT',
3039: x_return_status);
3040: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3041: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3042: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3043: RAISE OKC_API.G_EXCEPTION_ERROR;
3044: END IF;
3045: --- Validate all non-missing attributes (Item Level Validation)
3038: '_PVT',
3039: x_return_status);
3040: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3041: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3042: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3043: RAISE OKC_API.G_EXCEPTION_ERROR;
3044: END IF;
3045: --- Validate all non-missing attributes (Item Level Validation)
3046: l_return_status := Validate_Attributes(l_talv_rec);
3039: x_return_status);
3040: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3041: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3042: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3043: RAISE OKC_API.G_EXCEPTION_ERROR;
3044: END IF;
3045: --- Validate all non-missing attributes (Item Level Validation)
3046: l_return_status := Validate_Attributes(l_talv_rec);
3047: --- If any errors happen abort API
3044: END IF;
3045: --- Validate all non-missing attributes (Item Level Validation)
3046: l_return_status := Validate_Attributes(l_talv_rec);
3047: --- If any errors happen abort API
3048: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3049: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3050: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3051: RAISE OKC_API.G_EXCEPTION_ERROR;
3052: END IF;
3045: --- Validate all non-missing attributes (Item Level Validation)
3046: l_return_status := Validate_Attributes(l_talv_rec);
3047: --- If any errors happen abort API
3048: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3049: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3050: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3051: RAISE OKC_API.G_EXCEPTION_ERROR;
3052: END IF;
3053: l_return_status := Validate_Record(l_talv_rec);
3046: l_return_status := Validate_Attributes(l_talv_rec);
3047: --- If any errors happen abort API
3048: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3049: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3050: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3051: RAISE OKC_API.G_EXCEPTION_ERROR;
3052: END IF;
3053: l_return_status := Validate_Record(l_talv_rec);
3054: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3047: --- If any errors happen abort API
3048: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3049: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3050: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3051: RAISE OKC_API.G_EXCEPTION_ERROR;
3052: END IF;
3053: l_return_status := Validate_Record(l_talv_rec);
3054: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3050: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3051: RAISE OKC_API.G_EXCEPTION_ERROR;
3052: END IF;
3053: l_return_status := Validate_Record(l_talv_rec);
3054: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3056: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3057: RAISE OKC_API.G_EXCEPTION_ERROR;
3058: END IF;
3051: RAISE OKC_API.G_EXCEPTION_ERROR;
3052: END IF;
3053: l_return_status := Validate_Record(l_talv_rec);
3054: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3056: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3057: RAISE OKC_API.G_EXCEPTION_ERROR;
3058: END IF;
3059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3052: END IF;
3053: l_return_status := Validate_Record(l_talv_rec);
3054: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3056: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3057: RAISE OKC_API.G_EXCEPTION_ERROR;
3058: END IF;
3059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3060: EXCEPTION
3053: l_return_status := Validate_Record(l_talv_rec);
3054: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3056: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3057: RAISE OKC_API.G_EXCEPTION_ERROR;
3058: END IF;
3059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3060: EXCEPTION
3061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3056: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3057: RAISE OKC_API.G_EXCEPTION_ERROR;
3058: END IF;
3059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3060: EXCEPTION
3061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3063: (
3057: RAISE OKC_API.G_EXCEPTION_ERROR;
3058: END IF;
3059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3060: EXCEPTION
3061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3063: (
3064: l_api_name,
3065: G_PKG_NAME,
3058: END IF;
3059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3060: EXCEPTION
3061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3063: (
3064: l_api_name,
3065: G_PKG_NAME,
3066: 'OKC_API.G_RET_STS_ERROR',
3062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3063: (
3064: l_api_name,
3065: G_PKG_NAME,
3066: 'OKC_API.G_RET_STS_ERROR',
3067: x_msg_count,
3068: x_msg_data,
3069: '_PVT'
3070: );
3067: x_msg_count,
3068: x_msg_data,
3069: '_PVT'
3070: );
3071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3073: (
3074: l_api_name,
3075: G_PKG_NAME,
3068: x_msg_data,
3069: '_PVT'
3070: );
3071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3073: (
3074: l_api_name,
3075: G_PKG_NAME,
3076: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3073: (
3074: l_api_name,
3075: G_PKG_NAME,
3076: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3077: x_msg_count,
3078: x_msg_data,
3079: '_PVT'
3080: );
3078: x_msg_data,
3079: '_PVT'
3080: );
3081: WHEN OTHERS THEN
3082: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3083: (
3084: l_api_name,
3085: G_PKG_NAME,
3086: 'OTHERS',
3093: -- PL/SQL TBL validate_row for:TALV_TBL --
3094: ------------------------------------------
3095: PROCEDURE validate_row(
3096: p_api_version IN NUMBER,
3097: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3098: x_return_status OUT NOCOPY VARCHAR2,
3099: x_msg_count OUT NOCOPY NUMBER,
3100: x_msg_data OUT NOCOPY VARCHAR2,
3101: p_talv_tbl IN talv_tbl_type) IS
3101: p_talv_tbl IN talv_tbl_type) IS
3102:
3103: l_api_version CONSTANT NUMBER := 1;
3104: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
3105: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3106: i NUMBER := 0;
3107: BEGIN
3108: OKC_API.init_msg_list(p_init_msg_list);
3109: -- Make sure PL/SQL table has records in it before passing
3104: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
3105: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3106: i NUMBER := 0;
3107: BEGIN
3108: OKC_API.init_msg_list(p_init_msg_list);
3109: -- Make sure PL/SQL table has records in it before passing
3110: IF (p_talv_tbl.COUNT > 0) THEN
3111: i := p_talv_tbl.FIRST;
3112: LOOP
3111: i := p_talv_tbl.FIRST;
3112: LOOP
3113: validate_row (
3114: p_api_version => p_api_version,
3115: p_init_msg_list => OKC_API.G_FALSE,
3116: x_return_status => x_return_status,
3117: x_msg_count => x_msg_count,
3118: x_msg_data => x_msg_data,
3119: p_talv_rec => p_talv_tbl(i));
3121: i := p_talv_tbl.NEXT(i);
3122: END LOOP;
3123: END IF;
3124: EXCEPTION
3125: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3126: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3127: (
3128: l_api_name,
3129: G_PKG_NAME,
3122: END LOOP;
3123: END IF;
3124: EXCEPTION
3125: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3126: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3127: (
3128: l_api_name,
3129: G_PKG_NAME,
3130: 'OKC_API.G_RET_STS_ERROR',
3126: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3127: (
3128: l_api_name,
3129: G_PKG_NAME,
3130: 'OKC_API.G_RET_STS_ERROR',
3131: x_msg_count,
3132: x_msg_data,
3133: '_PVT'
3134: );
3131: x_msg_count,
3132: x_msg_data,
3133: '_PVT'
3134: );
3135: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3136: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3137: (
3138: l_api_name,
3139: G_PKG_NAME,
3132: x_msg_data,
3133: '_PVT'
3134: );
3135: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3136: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3137: (
3138: l_api_name,
3139: G_PKG_NAME,
3140: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3136: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3137: (
3138: l_api_name,
3139: G_PKG_NAME,
3140: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3141: x_msg_count,
3142: x_msg_data,
3143: '_PVT'
3144: );
3142: x_msg_data,
3143: '_PVT'
3144: );
3145: WHEN OTHERS THEN
3146: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3147: (
3148: l_api_name,
3149: G_PKG_NAME,
3150: 'OTHERS',
3160: -------------------------------------
3161: -- insert_row for:OKL_TXL_ASSETS_B --
3162: -------------------------------------
3163: PROCEDURE insert_row(
3164: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3165: x_return_status OUT NOCOPY VARCHAR2,
3166: x_msg_count OUT NOCOPY NUMBER,
3167: x_msg_data OUT NOCOPY VARCHAR2,
3168: p_tal_rec IN tal_rec_type,
3169: x_tal_rec OUT NOCOPY tal_rec_type) IS
3170:
3171: l_api_version CONSTANT NUMBER := 1;
3172: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
3173: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3174: l_tal_rec tal_rec_type := p_tal_rec;
3175: l_def_tal_rec tal_rec_type;
3176: -----------------------------------------
3177: -- Set_Attributes for:OKL_TXL_ASSETS_B --
3179: FUNCTION Set_Attributes (
3180: p_tal_rec IN tal_rec_type,
3181: x_tal_rec OUT NOCOPY tal_rec_type
3182: ) RETURN VARCHAR2 IS
3183: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3184: BEGIN
3185: x_tal_rec := p_tal_rec;
3186: RETURN(l_return_status);
3187: END Set_Attributes;
3185: x_tal_rec := p_tal_rec;
3186: RETURN(l_return_status);
3187: END Set_Attributes;
3188: BEGIN
3189: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3190: p_init_msg_list,
3191: '_PVT',
3192: x_return_status);
3193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3189: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3190: p_init_msg_list,
3191: '_PVT',
3192: x_return_status);
3193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3196: RAISE OKC_API.G_EXCEPTION_ERROR;
3197: END IF;
3190: p_init_msg_list,
3191: '_PVT',
3192: x_return_status);
3193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3196: RAISE OKC_API.G_EXCEPTION_ERROR;
3197: END IF;
3198: --- Setting item attributes
3191: '_PVT',
3192: x_return_status);
3193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3196: RAISE OKC_API.G_EXCEPTION_ERROR;
3197: END IF;
3198: --- Setting item attributes
3199: l_return_status := Set_Attributes(
3192: x_return_status);
3193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3196: RAISE OKC_API.G_EXCEPTION_ERROR;
3197: END IF;
3198: --- Setting item attributes
3199: l_return_status := Set_Attributes(
3200: p_tal_rec, -- IN
3199: l_return_status := Set_Attributes(
3200: p_tal_rec, -- IN
3201: l_tal_rec); -- OUT
3202: --- If any errors happen abort API
3203: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_ERROR;
3207: END IF;
3200: p_tal_rec, -- IN
3201: l_tal_rec); -- OUT
3202: --- If any errors happen abort API
3203: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: INSERT INTO OKL_TXL_ASSETS_B(
3201: l_tal_rec); -- OUT
3202: --- If any errors happen abort API
3203: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: INSERT INTO OKL_TXL_ASSETS_B(
3209: id,
3202: --- If any errors happen abort API
3203: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: INSERT INTO OKL_TXL_ASSETS_B(
3209: id,
3210: object_version_number,
3385: );
3386:
3387: -- Set OUT values
3388: x_tal_rec := l_tal_rec;
3389: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3390: EXCEPTION
3391: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3393: (
3387: -- Set OUT values
3388: x_tal_rec := l_tal_rec;
3389: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3390: EXCEPTION
3391: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3393: (
3394: l_api_name,
3395: G_PKG_NAME,
3388: x_tal_rec := l_tal_rec;
3389: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3390: EXCEPTION
3391: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3393: (
3394: l_api_name,
3395: G_PKG_NAME,
3396: 'OKC_API.G_RET_STS_ERROR',
3392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3393: (
3394: l_api_name,
3395: G_PKG_NAME,
3396: 'OKC_API.G_RET_STS_ERROR',
3397: x_msg_count,
3398: x_msg_data,
3399: '_PVT'
3400: );
3397: x_msg_count,
3398: x_msg_data,
3399: '_PVT'
3400: );
3401: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3402: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3403: (
3404: l_api_name,
3405: G_PKG_NAME,
3398: x_msg_data,
3399: '_PVT'
3400: );
3401: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3402: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3403: (
3404: l_api_name,
3405: G_PKG_NAME,
3406: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3402: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3403: (
3404: l_api_name,
3405: G_PKG_NAME,
3406: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3407: x_msg_count,
3408: x_msg_data,
3409: '_PVT'
3410: );
3408: x_msg_data,
3409: '_PVT'
3410: );
3411: WHEN OTHERS THEN
3412: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3413: (
3414: l_api_name,
3415: G_PKG_NAME,
3416: 'OTHERS',
3422: --------------------------------------
3423: -- insert_row for:OKL_TXL_ASSETS_TL --
3424: --------------------------------------
3425: PROCEDURE insert_row(
3426: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3427: x_return_status OUT NOCOPY VARCHAR2,
3428: x_msg_count OUT NOCOPY NUMBER,
3429: x_msg_data OUT NOCOPY VARCHAR2,
3430: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type,
3431: x_okl_txl_assets_tl_rec OUT NOCOPY okl_txl_assets_tl_rec_type) IS
3432:
3433: l_api_version CONSTANT NUMBER := 1;
3434: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
3435: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3436: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type := p_okl_txl_assets_tl_rec;
3437: l_def_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
3438: CURSOR get_languages IS
3439: SELECT *
3445: FUNCTION Set_Attributes (
3446: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type,
3447: x_okl_txl_assets_tl_rec OUT NOCOPY okl_txl_assets_tl_rec_type
3448: ) RETURN VARCHAR2 IS
3449: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3450: BEGIN
3451: x_okl_txl_assets_tl_rec := p_okl_txl_assets_tl_rec;
3452: x_okl_txl_assets_tl_rec.LANGUAGE := USERENV('LANG');
3453: x_okl_txl_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
3453: x_okl_txl_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
3454: RETURN(l_return_status);
3455: END Set_Attributes;
3456: BEGIN
3457: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3458: p_init_msg_list,
3459: '_PVT',
3460: x_return_status);
3461: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3457: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3458: p_init_msg_list,
3459: '_PVT',
3460: x_return_status);
3461: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3462: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3463: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3464: RAISE OKC_API.G_EXCEPTION_ERROR;
3465: END IF;
3458: p_init_msg_list,
3459: '_PVT',
3460: x_return_status);
3461: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3462: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3463: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3464: RAISE OKC_API.G_EXCEPTION_ERROR;
3465: END IF;
3466: --- Setting item attributes
3459: '_PVT',
3460: x_return_status);
3461: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3462: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3463: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3464: RAISE OKC_API.G_EXCEPTION_ERROR;
3465: END IF;
3466: --- Setting item attributes
3467: l_return_status := Set_Attributes(
3460: x_return_status);
3461: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3462: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3463: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3464: RAISE OKC_API.G_EXCEPTION_ERROR;
3465: END IF;
3466: --- Setting item attributes
3467: l_return_status := Set_Attributes(
3468: p_okl_txl_assets_tl_rec, -- IN
3467: l_return_status := Set_Attributes(
3468: p_okl_txl_assets_tl_rec, -- IN
3469: l_okl_txl_assets_tl_rec); -- OUT
3470: --- If any errors happen abort API
3471: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3472: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3473: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3474: RAISE OKC_API.G_EXCEPTION_ERROR;
3475: END IF;
3468: p_okl_txl_assets_tl_rec, -- IN
3469: l_okl_txl_assets_tl_rec); -- OUT
3470: --- If any errors happen abort API
3471: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3472: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3473: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3474: RAISE OKC_API.G_EXCEPTION_ERROR;
3475: END IF;
3476: FOR l_lang_rec IN get_languages LOOP
3469: l_okl_txl_assets_tl_rec); -- OUT
3470: --- If any errors happen abort API
3471: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3472: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3473: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3474: RAISE OKC_API.G_EXCEPTION_ERROR;
3475: END IF;
3476: FOR l_lang_rec IN get_languages LOOP
3477: l_okl_txl_assets_tl_rec.language := l_lang_rec.language_code;
3470: --- If any errors happen abort API
3471: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3472: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3473: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3474: RAISE OKC_API.G_EXCEPTION_ERROR;
3475: END IF;
3476: FOR l_lang_rec IN get_languages LOOP
3477: l_okl_txl_assets_tl_rec.language := l_lang_rec.language_code;
3478: INSERT INTO OKL_TXL_ASSETS_TL(
3499: l_okl_txl_assets_tl_rec.last_update_login);
3500: END LOOP;
3501: -- Set OUT values
3502: x_okl_txl_assets_tl_rec := l_okl_txl_assets_tl_rec;
3503: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3504: EXCEPTION
3505: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3506: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3507: (
3501: -- Set OUT values
3502: x_okl_txl_assets_tl_rec := l_okl_txl_assets_tl_rec;
3503: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3504: EXCEPTION
3505: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3506: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3507: (
3508: l_api_name,
3509: G_PKG_NAME,
3502: x_okl_txl_assets_tl_rec := l_okl_txl_assets_tl_rec;
3503: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3504: EXCEPTION
3505: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3506: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3507: (
3508: l_api_name,
3509: G_PKG_NAME,
3510: 'OKC_API.G_RET_STS_ERROR',
3506: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3507: (
3508: l_api_name,
3509: G_PKG_NAME,
3510: 'OKC_API.G_RET_STS_ERROR',
3511: x_msg_count,
3512: x_msg_data,
3513: '_PVT'
3514: );
3511: x_msg_count,
3512: x_msg_data,
3513: '_PVT'
3514: );
3515: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3516: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3517: (
3518: l_api_name,
3519: G_PKG_NAME,
3512: x_msg_data,
3513: '_PVT'
3514: );
3515: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3516: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3517: (
3518: l_api_name,
3519: G_PKG_NAME,
3520: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3516: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3517: (
3518: l_api_name,
3519: G_PKG_NAME,
3520: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3521: x_msg_count,
3522: x_msg_data,
3523: '_PVT'
3524: );
3522: x_msg_data,
3523: '_PVT'
3524: );
3525: WHEN OTHERS THEN
3526: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3527: (
3528: l_api_name,
3529: G_PKG_NAME,
3530: 'OTHERS',
3537: -- insert_row for:OKL_TXL_ASSETS_V --
3538: -------------------------------------
3539: PROCEDURE insert_row(
3540: p_api_version IN NUMBER,
3541: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3542: x_return_status OUT NOCOPY VARCHAR2,
3543: x_msg_count OUT NOCOPY NUMBER,
3544: x_msg_data OUT NOCOPY VARCHAR2,
3545: p_talv_rec IN talv_rec_type,
3546: x_talv_rec OUT NOCOPY talv_rec_type) IS
3547:
3548: l_api_version CONSTANT NUMBER := 1;
3549: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
3550: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3551: l_talv_rec talv_rec_type;
3552: l_def_talv_rec talv_rec_type;
3553: l_tal_rec tal_rec_type;
3554: lx_tal_rec tal_rec_type;
3576: FUNCTION Set_Attributes (
3577: p_talv_rec IN talv_rec_type,
3578: x_talv_rec OUT NOCOPY talv_rec_type
3579: ) RETURN VARCHAR2 IS
3580: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3581: BEGIN
3582: x_talv_rec := p_talv_rec;
3583: x_talv_rec.OBJECT_VERSION_NUMBER := 1;
3584: x_talv_rec.SFWT_FLAG := 'N';
3584: x_talv_rec.SFWT_FLAG := 'N';
3585: RETURN(l_return_status);
3586: END Set_Attributes;
3587: BEGIN
3588: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3589: G_PKG_NAME,
3590: p_init_msg_list,
3591: l_api_version,
3592: p_api_version,
3591: l_api_version,
3592: p_api_version,
3593: '_PVT',
3594: x_return_status);
3595: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_ERROR;
3599: END IF;
3592: p_api_version,
3593: '_PVT',
3594: x_return_status);
3595: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_ERROR;
3599: END IF;
3600: l_talv_rec := null_out_defaults(p_talv_rec);
3593: '_PVT',
3594: x_return_status);
3595: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_ERROR;
3599: END IF;
3600: l_talv_rec := null_out_defaults(p_talv_rec);
3601: -- Set primary key value
3594: x_return_status);
3595: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_ERROR;
3599: END IF;
3600: l_talv_rec := null_out_defaults(p_talv_rec);
3601: -- Set primary key value
3602: l_talv_rec.ID := get_seq_id;
3604: l_return_status := Set_Attributes(
3605: l_talv_rec, -- IN
3606: l_def_talv_rec); -- OUT
3607: --- If any errors happen abort API
3608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3611: RAISE OKC_API.G_EXCEPTION_ERROR;
3612: END IF;
3605: l_talv_rec, -- IN
3606: l_def_talv_rec); -- OUT
3607: --- If any errors happen abort API
3608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3611: RAISE OKC_API.G_EXCEPTION_ERROR;
3612: END IF;
3613: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
3606: l_def_talv_rec); -- OUT
3607: --- If any errors happen abort API
3608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3611: RAISE OKC_API.G_EXCEPTION_ERROR;
3612: END IF;
3613: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
3614: --- Validate all non-missing attributes (Item Level Validation)
3607: --- If any errors happen abort API
3608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3611: RAISE OKC_API.G_EXCEPTION_ERROR;
3612: END IF;
3613: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
3614: --- Validate all non-missing attributes (Item Level Validation)
3615: l_return_status := Validate_Attributes(l_def_talv_rec);
3614: --- Validate all non-missing attributes (Item Level Validation)
3615: l_return_status := Validate_Attributes(l_def_talv_rec);
3616: --- If any errors happen abort API
3617:
3618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3615: l_return_status := Validate_Attributes(l_def_talv_rec);
3616: --- If any errors happen abort API
3617:
3618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623: l_return_status := Validate_Record(l_def_talv_rec);
3616: --- If any errors happen abort API
3617:
3618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623: l_return_status := Validate_Record(l_def_talv_rec);
3624: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3617:
3618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623: l_return_status := Validate_Record(l_def_talv_rec);
3624: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3625: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: RAISE OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623: l_return_status := Validate_Record(l_def_talv_rec);
3624: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3625: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3626: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3627: RAISE OKC_API.G_EXCEPTION_ERROR;
3628: END IF;
3621: RAISE OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623: l_return_status := Validate_Record(l_def_talv_rec);
3624: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3625: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3626: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3627: RAISE OKC_API.G_EXCEPTION_ERROR;
3628: END IF;
3629:
3622: END IF;
3623: l_return_status := Validate_Record(l_def_talv_rec);
3624: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3625: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3626: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3627: RAISE OKC_API.G_EXCEPTION_ERROR;
3628: END IF;
3629:
3630: --
3623: l_return_status := Validate_Record(l_def_talv_rec);
3624: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3625: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3626: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3627: RAISE OKC_API.G_EXCEPTION_ERROR;
3628: END IF;
3629:
3630: --
3631: -- Multi-Currency Change, dedey, 12/04/2002
3635: p_talv_rec => l_def_talv_rec,
3636: x_talv_rec => lx_temp_talv_rec
3637: );
3638:
3639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3642: RAISE OKC_API.G_EXCEPTION_ERROR;
3643: END IF;
3636: x_talv_rec => lx_temp_talv_rec
3637: );
3638:
3639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3642: RAISE OKC_API.G_EXCEPTION_ERROR;
3643: END IF;
3644: l_def_talv_rec := lx_temp_talv_rec;
3637: );
3638:
3639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3642: RAISE OKC_API.G_EXCEPTION_ERROR;
3643: END IF;
3644: l_def_talv_rec := lx_temp_talv_rec;
3645:
3638:
3639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3642: RAISE OKC_API.G_EXCEPTION_ERROR;
3643: END IF;
3644: l_def_talv_rec := lx_temp_talv_rec;
3645:
3646: --dbms_output.put_line('After Change: '||lx_temp_talv_rec.currency_code);
3660: p_talv_rec => l_def_talv_rec,
3661: x_talv_rec => lx_temp_talv_rec
3662: );
3663:
3664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3667: RAISE OKC_API.G_EXCEPTION_ERROR;
3668: END IF;
3661: x_talv_rec => lx_temp_talv_rec
3662: );
3663:
3664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3667: RAISE OKC_API.G_EXCEPTION_ERROR;
3668: END IF;
3669: l_def_talv_rec := lx_temp_talv_rec;
3662: );
3663:
3664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3667: RAISE OKC_API.G_EXCEPTION_ERROR;
3668: END IF;
3669: l_def_talv_rec := lx_temp_talv_rec;
3670:
3663:
3664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3667: RAISE OKC_API.G_EXCEPTION_ERROR;
3668: END IF;
3669: l_def_talv_rec := lx_temp_talv_rec;
3670:
3671: --dbms_output.put_line('After Change Orig cost: '||lx_temp_talv_rec.original_cost);
3689: x_msg_data,
3690: l_tal_rec,
3691: lx_tal_rec
3692: );
3693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3696: RAISE OKC_API.G_EXCEPTION_ERROR;
3697: END IF;
3690: l_tal_rec,
3691: lx_tal_rec
3692: );
3693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3696: RAISE OKC_API.G_EXCEPTION_ERROR;
3697: END IF;
3698: migrate(lx_tal_rec, l_def_talv_rec);
3691: lx_tal_rec
3692: );
3693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3696: RAISE OKC_API.G_EXCEPTION_ERROR;
3697: END IF;
3698: migrate(lx_tal_rec, l_def_talv_rec);
3699: insert_row(
3692: );
3693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3694: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3696: RAISE OKC_API.G_EXCEPTION_ERROR;
3697: END IF;
3698: migrate(lx_tal_rec, l_def_talv_rec);
3699: insert_row(
3700: p_init_msg_list,
3703: x_msg_data,
3704: l_okl_txl_assets_tl_rec,
3705: lx_okl_txl_assets_tl_rec
3706: );
3707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3710: RAISE OKC_API.G_EXCEPTION_ERROR;
3711: END IF;
3704: l_okl_txl_assets_tl_rec,
3705: lx_okl_txl_assets_tl_rec
3706: );
3707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3710: RAISE OKC_API.G_EXCEPTION_ERROR;
3711: END IF;
3712: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
3705: lx_okl_txl_assets_tl_rec
3706: );
3707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3710: RAISE OKC_API.G_EXCEPTION_ERROR;
3711: END IF;
3712: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
3713: -- Set OUT values
3706: );
3707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3710: RAISE OKC_API.G_EXCEPTION_ERROR;
3711: END IF;
3712: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
3713: -- Set OUT values
3714: x_talv_rec := l_def_talv_rec;
3711: END IF;
3712: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
3713: -- Set OUT values
3714: x_talv_rec := l_def_talv_rec;
3715: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3716: EXCEPTION
3717: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3718: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3719: (
3713: -- Set OUT values
3714: x_talv_rec := l_def_talv_rec;
3715: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3716: EXCEPTION
3717: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3718: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3719: (
3720: l_api_name,
3721: G_PKG_NAME,
3714: x_talv_rec := l_def_talv_rec;
3715: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3716: EXCEPTION
3717: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3718: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3719: (
3720: l_api_name,
3721: G_PKG_NAME,
3722: 'OKC_API.G_RET_STS_ERROR',
3718: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3719: (
3720: l_api_name,
3721: G_PKG_NAME,
3722: 'OKC_API.G_RET_STS_ERROR',
3723: x_msg_count,
3724: x_msg_data,
3725: '_PVT'
3726: );
3723: x_msg_count,
3724: x_msg_data,
3725: '_PVT'
3726: );
3727: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3728: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3729: (
3730: l_api_name,
3731: G_PKG_NAME,
3724: x_msg_data,
3725: '_PVT'
3726: );
3727: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3728: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3729: (
3730: l_api_name,
3731: G_PKG_NAME,
3732: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3728: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3729: (
3730: l_api_name,
3731: G_PKG_NAME,
3732: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3733: x_msg_count,
3734: x_msg_data,
3735: '_PVT'
3736: );
3734: x_msg_data,
3735: '_PVT'
3736: );
3737: WHEN OTHERS THEN
3738: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3739: (
3740: l_api_name,
3741: G_PKG_NAME,
3742: 'OTHERS',
3749: -- PL/SQL TBL insert_row for:TALV_TBL --
3750: ----------------------------------------
3751: PROCEDURE insert_row(
3752: p_api_version IN NUMBER,
3753: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3754: x_return_status OUT NOCOPY VARCHAR2,
3755: x_msg_count OUT NOCOPY NUMBER,
3756: x_msg_data OUT NOCOPY VARCHAR2,
3757: p_talv_tbl IN talv_tbl_type,
3758: x_talv_tbl OUT NOCOPY talv_tbl_type) IS
3759:
3760: l_api_version CONSTANT NUMBER := 1;
3761: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3762: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3763: i NUMBER := 0;
3764: BEGIN
3765: OKC_API.init_msg_list(p_init_msg_list);
3766: -- Make sure PL/SQL table has records in it before passing
3761: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3762: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3763: i NUMBER := 0;
3764: BEGIN
3765: OKC_API.init_msg_list(p_init_msg_list);
3766: -- Make sure PL/SQL table has records in it before passing
3767: IF (p_talv_tbl.COUNT > 0) THEN
3768: i := p_talv_tbl.FIRST;
3769: LOOP
3768: i := p_talv_tbl.FIRST;
3769: LOOP
3770: insert_row (
3771: p_api_version => p_api_version,
3772: p_init_msg_list => OKC_API.G_FALSE,
3773: x_return_status => x_return_status,
3774: x_msg_count => x_msg_count,
3775: x_msg_data => x_msg_data,
3776: p_talv_rec => p_talv_tbl(i),
3779: i := p_talv_tbl.NEXT(i);
3780: END LOOP;
3781: END IF;
3782: EXCEPTION
3783: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3785: (
3786: l_api_name,
3787: G_PKG_NAME,
3780: END LOOP;
3781: END IF;
3782: EXCEPTION
3783: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3785: (
3786: l_api_name,
3787: G_PKG_NAME,
3788: 'OKC_API.G_RET_STS_ERROR',
3784: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3785: (
3786: l_api_name,
3787: G_PKG_NAME,
3788: 'OKC_API.G_RET_STS_ERROR',
3789: x_msg_count,
3790: x_msg_data,
3791: '_PVT'
3792: );
3789: x_msg_count,
3790: x_msg_data,
3791: '_PVT'
3792: );
3793: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3794: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3795: (
3796: l_api_name,
3797: G_PKG_NAME,
3790: x_msg_data,
3791: '_PVT'
3792: );
3793: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3794: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3795: (
3796: l_api_name,
3797: G_PKG_NAME,
3798: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3794: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3795: (
3796: l_api_name,
3797: G_PKG_NAME,
3798: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3799: x_msg_count,
3800: x_msg_data,
3801: '_PVT'
3802: );
3800: x_msg_data,
3801: '_PVT'
3802: );
3803: WHEN OTHERS THEN
3804: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3805: (
3806: l_api_name,
3807: G_PKG_NAME,
3808: 'OTHERS',
3818: -----------------------------------
3819: -- lock_row for:OKL_TXL_ASSETS_B --
3820: -----------------------------------
3821: PROCEDURE lock_row(
3822: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3823: x_return_status OUT NOCOPY VARCHAR2,
3824: x_msg_count OUT NOCOPY NUMBER,
3825: x_msg_data OUT NOCOPY VARCHAR2,
3826: p_tal_rec IN tal_rec_type) IS
3839: FROM OKL_TXL_ASSETS_B
3840: WHERE ID = p_tal_rec.id;
3841: l_api_version CONSTANT NUMBER := 1;
3842: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
3843: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3844: l_object_version_number OKL_TXL_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
3845: lc_object_version_number OKL_TXL_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
3846: l_row_notfound BOOLEAN := FALSE;
3847: lc_row_notfound BOOLEAN := FALSE;
3845: lc_object_version_number OKL_TXL_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
3846: l_row_notfound BOOLEAN := FALSE;
3847: lc_row_notfound BOOLEAN := FALSE;
3848: BEGIN
3849: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3850: p_init_msg_list,
3851: '_PVT',
3852: x_return_status);
3853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3849: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3850: p_init_msg_list,
3851: '_PVT',
3852: x_return_status);
3853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3856: RAISE OKC_API.G_EXCEPTION_ERROR;
3857: END IF;
3850: p_init_msg_list,
3851: '_PVT',
3852: x_return_status);
3853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3856: RAISE OKC_API.G_EXCEPTION_ERROR;
3857: END IF;
3858: BEGIN
3851: '_PVT',
3852: x_return_status);
3853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3856: RAISE OKC_API.G_EXCEPTION_ERROR;
3857: END IF;
3858: BEGIN
3859: OPEN lock_csr(p_tal_rec);
3852: x_return_status);
3853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3856: RAISE OKC_API.G_EXCEPTION_ERROR;
3857: END IF;
3858: BEGIN
3859: OPEN lock_csr(p_tal_rec);
3860: FETCH lock_csr INTO l_object_version_number;
3864: WHEN E_Resource_Busy THEN
3865: IF (lock_csr%ISOPEN) THEN
3866: CLOSE lock_csr;
3867: END IF;
3868: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3869: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3870: END;
3871:
3872: IF ( l_row_notfound ) THEN
3875: lc_row_notfound := lchk_csr%NOTFOUND;
3876: CLOSE lchk_csr;
3877: END IF;
3878: IF (lc_row_notfound) THEN
3879: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: ELSIF lc_object_version_number > p_tal_rec.object_version_number THEN
3882: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3883: RAISE OKC_API.G_EXCEPTION_ERROR;
3876: CLOSE lchk_csr;
3877: END IF;
3878: IF (lc_row_notfound) THEN
3879: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: ELSIF lc_object_version_number > p_tal_rec.object_version_number THEN
3882: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3883: RAISE OKC_API.G_EXCEPTION_ERROR;
3884: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3878: IF (lc_row_notfound) THEN
3879: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: ELSIF lc_object_version_number > p_tal_rec.object_version_number THEN
3882: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3883: RAISE OKC_API.G_EXCEPTION_ERROR;
3884: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3885: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3886: RAISE OKC_API.G_EXCEPTION_ERROR;
3879: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: ELSIF lc_object_version_number > p_tal_rec.object_version_number THEN
3882: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3883: RAISE OKC_API.G_EXCEPTION_ERROR;
3884: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3885: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3886: RAISE OKC_API.G_EXCEPTION_ERROR;
3887: ELSIF lc_object_version_number = -1 THEN
3881: ELSIF lc_object_version_number > p_tal_rec.object_version_number THEN
3882: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3883: RAISE OKC_API.G_EXCEPTION_ERROR;
3884: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3885: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3886: RAISE OKC_API.G_EXCEPTION_ERROR;
3887: ELSIF lc_object_version_number = -1 THEN
3888: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3889: RAISE OKC_API.G_EXCEPTION_ERROR;
3882: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3883: RAISE OKC_API.G_EXCEPTION_ERROR;
3884: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3885: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3886: RAISE OKC_API.G_EXCEPTION_ERROR;
3887: ELSIF lc_object_version_number = -1 THEN
3888: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3889: RAISE OKC_API.G_EXCEPTION_ERROR;
3890: END IF;
3884: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3885: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3886: RAISE OKC_API.G_EXCEPTION_ERROR;
3887: ELSIF lc_object_version_number = -1 THEN
3888: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3889: RAISE OKC_API.G_EXCEPTION_ERROR;
3890: END IF;
3891: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3892: EXCEPTION
3885: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3886: RAISE OKC_API.G_EXCEPTION_ERROR;
3887: ELSIF lc_object_version_number = -1 THEN
3888: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3889: RAISE OKC_API.G_EXCEPTION_ERROR;
3890: END IF;
3891: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3892: EXCEPTION
3893: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3887: ELSIF lc_object_version_number = -1 THEN
3888: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3889: RAISE OKC_API.G_EXCEPTION_ERROR;
3890: END IF;
3891: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3892: EXCEPTION
3893: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3894: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3895: (
3889: RAISE OKC_API.G_EXCEPTION_ERROR;
3890: END IF;
3891: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3892: EXCEPTION
3893: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3894: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3895: (
3896: l_api_name,
3897: G_PKG_NAME,
3890: END IF;
3891: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3892: EXCEPTION
3893: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3894: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3895: (
3896: l_api_name,
3897: G_PKG_NAME,
3898: 'OKC_API.G_RET_STS_ERROR',
3894: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3895: (
3896: l_api_name,
3897: G_PKG_NAME,
3898: 'OKC_API.G_RET_STS_ERROR',
3899: x_msg_count,
3900: x_msg_data,
3901: '_PVT'
3902: );
3899: x_msg_count,
3900: x_msg_data,
3901: '_PVT'
3902: );
3903: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3904: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3905: (
3906: l_api_name,
3907: G_PKG_NAME,
3900: x_msg_data,
3901: '_PVT'
3902: );
3903: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3904: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3905: (
3906: l_api_name,
3907: G_PKG_NAME,
3908: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3904: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3905: (
3906: l_api_name,
3907: G_PKG_NAME,
3908: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3909: x_msg_count,
3910: x_msg_data,
3911: '_PVT'
3912: );
3910: x_msg_data,
3911: '_PVT'
3912: );
3913: WHEN OTHERS THEN
3914: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3915: (
3916: l_api_name,
3917: G_PKG_NAME,
3918: 'OTHERS',
3924: ------------------------------------
3925: -- lock_row for:OKL_TXL_ASSETS_TL --
3926: ------------------------------------
3927: PROCEDURE lock_row(
3928: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3929: x_return_status OUT NOCOPY VARCHAR2,
3930: x_msg_count OUT NOCOPY NUMBER,
3931: x_msg_data OUT NOCOPY VARCHAR2,
3932: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type) IS
3940: FOR UPDATE NOWAIT;
3941:
3942: l_api_version CONSTANT NUMBER := 1;
3943: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
3944: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3945: l_lock_var lock_csr%ROWTYPE;
3946: l_row_notfound BOOLEAN := FALSE;
3947: lc_row_notfound BOOLEAN := FALSE;
3948: BEGIN
3945: l_lock_var lock_csr%ROWTYPE;
3946: l_row_notfound BOOLEAN := FALSE;
3947: lc_row_notfound BOOLEAN := FALSE;
3948: BEGIN
3949: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3950: p_init_msg_list,
3951: '_PVT',
3952: x_return_status);
3953: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3949: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3950: p_init_msg_list,
3951: '_PVT',
3952: x_return_status);
3953: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3956: RAISE OKC_API.G_EXCEPTION_ERROR;
3957: END IF;
3950: p_init_msg_list,
3951: '_PVT',
3952: x_return_status);
3953: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3956: RAISE OKC_API.G_EXCEPTION_ERROR;
3957: END IF;
3958: BEGIN
3951: '_PVT',
3952: x_return_status);
3953: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3956: RAISE OKC_API.G_EXCEPTION_ERROR;
3957: END IF;
3958: BEGIN
3959: OPEN lock_csr(p_okl_txl_assets_tl_rec);
3952: x_return_status);
3953: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3956: RAISE OKC_API.G_EXCEPTION_ERROR;
3957: END IF;
3958: BEGIN
3959: OPEN lock_csr(p_okl_txl_assets_tl_rec);
3960: FETCH lock_csr INTO l_lock_var;
3964: WHEN E_Resource_Busy THEN
3965: IF (lock_csr%ISOPEN) THEN
3966: CLOSE lock_csr;
3967: END IF;
3968: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3969: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3970: END;
3971:
3972: IF ( l_row_notfound ) THEN
3969: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3970: END;
3971:
3972: IF ( l_row_notfound ) THEN
3973: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3974: RAISE OKC_API.G_EXCEPTION_ERROR;
3975: END IF;
3976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3977: EXCEPTION
3970: END;
3971:
3972: IF ( l_row_notfound ) THEN
3973: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3974: RAISE OKC_API.G_EXCEPTION_ERROR;
3975: END IF;
3976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3977: EXCEPTION
3978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3972: IF ( l_row_notfound ) THEN
3973: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3974: RAISE OKC_API.G_EXCEPTION_ERROR;
3975: END IF;
3976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3977: EXCEPTION
3978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3980: (
3974: RAISE OKC_API.G_EXCEPTION_ERROR;
3975: END IF;
3976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3977: EXCEPTION
3978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3980: (
3981: l_api_name,
3982: G_PKG_NAME,
3975: END IF;
3976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3977: EXCEPTION
3978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3980: (
3981: l_api_name,
3982: G_PKG_NAME,
3983: 'OKC_API.G_RET_STS_ERROR',
3979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3980: (
3981: l_api_name,
3982: G_PKG_NAME,
3983: 'OKC_API.G_RET_STS_ERROR',
3984: x_msg_count,
3985: x_msg_data,
3986: '_PVT'
3987: );
3984: x_msg_count,
3985: x_msg_data,
3986: '_PVT'
3987: );
3988: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3989: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3990: (
3991: l_api_name,
3992: G_PKG_NAME,
3985: x_msg_data,
3986: '_PVT'
3987: );
3988: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3989: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3990: (
3991: l_api_name,
3992: G_PKG_NAME,
3993: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3989: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3990: (
3991: l_api_name,
3992: G_PKG_NAME,
3993: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3994: x_msg_count,
3995: x_msg_data,
3996: '_PVT'
3997: );
3995: x_msg_data,
3996: '_PVT'
3997: );
3998: WHEN OTHERS THEN
3999: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4000: (
4001: l_api_name,
4002: G_PKG_NAME,
4003: 'OTHERS',
4010: -- lock_row for:OKL_TXL_ASSETS_V --
4011: -----------------------------------
4012: PROCEDURE lock_row(
4013: p_api_version IN NUMBER,
4014: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4015: x_return_status OUT NOCOPY VARCHAR2,
4016: x_msg_count OUT NOCOPY NUMBER,
4017: x_msg_data OUT NOCOPY VARCHAR2,
4018: p_talv_rec IN talv_rec_type) IS
4018: p_talv_rec IN talv_rec_type) IS
4019:
4020: l_api_version CONSTANT NUMBER := 1;
4021: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
4022: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4023: l_tal_rec tal_rec_type;
4024: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4025: BEGIN
4026: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4022: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4023: l_tal_rec tal_rec_type;
4024: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4025: BEGIN
4026: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4027: G_PKG_NAME,
4028: p_init_msg_list,
4029: l_api_version,
4030: p_api_version,
4029: l_api_version,
4030: p_api_version,
4031: '_PVT',
4032: x_return_status);
4033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4034: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4035: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4036: RAISE OKC_API.G_EXCEPTION_ERROR;
4037: END IF;
4030: p_api_version,
4031: '_PVT',
4032: x_return_status);
4033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4034: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4035: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4036: RAISE OKC_API.G_EXCEPTION_ERROR;
4037: END IF;
4038: --------------------------------------
4031: '_PVT',
4032: x_return_status);
4033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4034: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4035: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4036: RAISE OKC_API.G_EXCEPTION_ERROR;
4037: END IF;
4038: --------------------------------------
4039: -- Move VIEW record to "Child" records
4032: x_return_status);
4033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4034: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4035: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4036: RAISE OKC_API.G_EXCEPTION_ERROR;
4037: END IF;
4038: --------------------------------------
4039: -- Move VIEW record to "Child" records
4040: --------------------------------------
4049: x_msg_count,
4050: x_msg_data,
4051: l_tal_rec
4052: );
4053: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4055: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4056: RAISE OKC_API.G_EXCEPTION_ERROR;
4057: END IF;
4050: x_msg_data,
4051: l_tal_rec
4052: );
4053: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4055: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4056: RAISE OKC_API.G_EXCEPTION_ERROR;
4057: END IF;
4058: lock_row(
4051: l_tal_rec
4052: );
4053: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4055: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4056: RAISE OKC_API.G_EXCEPTION_ERROR;
4057: END IF;
4058: lock_row(
4059: p_init_msg_list,
4052: );
4053: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4055: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4056: RAISE OKC_API.G_EXCEPTION_ERROR;
4057: END IF;
4058: lock_row(
4059: p_init_msg_list,
4060: x_return_status,
4061: x_msg_count,
4062: x_msg_data,
4063: l_okl_txl_assets_tl_rec
4064: );
4065: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4068: RAISE OKC_API.G_EXCEPTION_ERROR;
4069: END IF;
4062: x_msg_data,
4063: l_okl_txl_assets_tl_rec
4064: );
4065: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4068: RAISE OKC_API.G_EXCEPTION_ERROR;
4069: END IF;
4070: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4063: l_okl_txl_assets_tl_rec
4064: );
4065: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4068: RAISE OKC_API.G_EXCEPTION_ERROR;
4069: END IF;
4070: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4071: EXCEPTION
4064: );
4065: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4068: RAISE OKC_API.G_EXCEPTION_ERROR;
4069: END IF;
4070: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4071: EXCEPTION
4072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4066: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4068: RAISE OKC_API.G_EXCEPTION_ERROR;
4069: END IF;
4070: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4071: EXCEPTION
4072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4074: (
4068: RAISE OKC_API.G_EXCEPTION_ERROR;
4069: END IF;
4070: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4071: EXCEPTION
4072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4074: (
4075: l_api_name,
4076: G_PKG_NAME,
4069: END IF;
4070: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4071: EXCEPTION
4072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4074: (
4075: l_api_name,
4076: G_PKG_NAME,
4077: 'OKC_API.G_RET_STS_ERROR',
4073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4074: (
4075: l_api_name,
4076: G_PKG_NAME,
4077: 'OKC_API.G_RET_STS_ERROR',
4078: x_msg_count,
4079: x_msg_data,
4080: '_PVT'
4081: );
4078: x_msg_count,
4079: x_msg_data,
4080: '_PVT'
4081: );
4082: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4083: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4084: (
4085: l_api_name,
4086: G_PKG_NAME,
4079: x_msg_data,
4080: '_PVT'
4081: );
4082: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4083: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4084: (
4085: l_api_name,
4086: G_PKG_NAME,
4087: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4083: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4084: (
4085: l_api_name,
4086: G_PKG_NAME,
4087: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4088: x_msg_count,
4089: x_msg_data,
4090: '_PVT'
4091: );
4089: x_msg_data,
4090: '_PVT'
4091: );
4092: WHEN OTHERS THEN
4093: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4094: (
4095: l_api_name,
4096: G_PKG_NAME,
4097: 'OTHERS',
4104: -- PL/SQL TBL lock_row for:TALV_TBL --
4105: --------------------------------------
4106: PROCEDURE lock_row(
4107: p_api_version IN NUMBER,
4108: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4109: x_return_status OUT NOCOPY VARCHAR2,
4110: x_msg_count OUT NOCOPY NUMBER,
4111: x_msg_data OUT NOCOPY VARCHAR2,
4112: p_talv_tbl IN talv_tbl_type) IS
4112: p_talv_tbl IN talv_tbl_type) IS
4113:
4114: l_api_version CONSTANT NUMBER := 1;
4115: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
4116: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4117: i NUMBER := 0;
4118: BEGIN
4119: OKC_API.init_msg_list(p_init_msg_list);
4120: -- Make sure PL/SQL table has records in it before passing
4115: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
4116: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4117: i NUMBER := 0;
4118: BEGIN
4119: OKC_API.init_msg_list(p_init_msg_list);
4120: -- Make sure PL/SQL table has records in it before passing
4121: IF (p_talv_tbl.COUNT > 0) THEN
4122: i := p_talv_tbl.FIRST;
4123: LOOP
4122: i := p_talv_tbl.FIRST;
4123: LOOP
4124: lock_row (
4125: p_api_version => p_api_version,
4126: p_init_msg_list => OKC_API.G_FALSE,
4127: x_return_status => x_return_status,
4128: x_msg_count => x_msg_count,
4129: x_msg_data => x_msg_data,
4130: p_talv_rec => p_talv_tbl(i));
4132: i := p_talv_tbl.NEXT(i);
4133: END LOOP;
4134: END IF;
4135: EXCEPTION
4136: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4137: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4138: (
4139: l_api_name,
4140: G_PKG_NAME,
4133: END LOOP;
4134: END IF;
4135: EXCEPTION
4136: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4137: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4138: (
4139: l_api_name,
4140: G_PKG_NAME,
4141: 'OKC_API.G_RET_STS_ERROR',
4137: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4138: (
4139: l_api_name,
4140: G_PKG_NAME,
4141: 'OKC_API.G_RET_STS_ERROR',
4142: x_msg_count,
4143: x_msg_data,
4144: '_PVT'
4145: );
4142: x_msg_count,
4143: x_msg_data,
4144: '_PVT'
4145: );
4146: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4147: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4148: (
4149: l_api_name,
4150: G_PKG_NAME,
4143: x_msg_data,
4144: '_PVT'
4145: );
4146: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4147: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4148: (
4149: l_api_name,
4150: G_PKG_NAME,
4151: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4147: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4148: (
4149: l_api_name,
4150: G_PKG_NAME,
4151: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4152: x_msg_count,
4153: x_msg_data,
4154: '_PVT'
4155: );
4153: x_msg_data,
4154: '_PVT'
4155: );
4156: WHEN OTHERS THEN
4157: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4158: (
4159: l_api_name,
4160: G_PKG_NAME,
4161: 'OTHERS',
4171: -------------------------------------
4172: -- update_row for:OKL_TXL_ASSETS_B --
4173: -------------------------------------
4174: PROCEDURE update_row(
4175: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4176: x_return_status OUT NOCOPY VARCHAR2,
4177: x_msg_count OUT NOCOPY NUMBER,
4178: x_msg_data OUT NOCOPY VARCHAR2,
4179: p_tal_rec IN tal_rec_type,
4180: x_tal_rec OUT NOCOPY tal_rec_type) IS
4181:
4182: l_api_version CONSTANT NUMBER := 1;
4183: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
4184: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4185: l_tal_rec tal_rec_type := p_tal_rec;
4186: l_def_tal_rec tal_rec_type;
4187: l_row_notfound BOOLEAN := TRUE;
4188: ----------------------------------
4193: x_tal_rec OUT NOCOPY tal_rec_type
4194: ) RETURN VARCHAR2 IS
4195: l_tal_rec tal_rec_type;
4196: l_row_notfound BOOLEAN := TRUE;
4197: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4198: BEGIN
4199: x_tal_rec := p_tal_rec;
4200: -- Get current database values
4201: l_tal_rec := get_rec(p_tal_rec, l_row_notfound);
4199: x_tal_rec := p_tal_rec;
4200: -- Get current database values
4201: l_tal_rec := get_rec(p_tal_rec, l_row_notfound);
4202: IF (l_row_notfound) THEN
4203: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4204: END IF;
4205: IF (x_tal_rec.id = OKC_API.G_MISS_NUM)
4206: THEN
4207: x_tal_rec.id := l_tal_rec.id;
4201: l_tal_rec := get_rec(p_tal_rec, l_row_notfound);
4202: IF (l_row_notfound) THEN
4203: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4204: END IF;
4205: IF (x_tal_rec.id = OKC_API.G_MISS_NUM)
4206: THEN
4207: x_tal_rec.id := l_tal_rec.id;
4208: END IF;
4209: IF (x_tal_rec.object_version_number = OKC_API.G_MISS_NUM)
4205: IF (x_tal_rec.id = OKC_API.G_MISS_NUM)
4206: THEN
4207: x_tal_rec.id := l_tal_rec.id;
4208: END IF;
4209: IF (x_tal_rec.object_version_number = OKC_API.G_MISS_NUM)
4210: THEN
4211: x_tal_rec.object_version_number := l_tal_rec.object_version_number;
4212: END IF;
4213: IF (x_tal_rec.tas_id = OKC_API.G_MISS_NUM)
4209: IF (x_tal_rec.object_version_number = OKC_API.G_MISS_NUM)
4210: THEN
4211: x_tal_rec.object_version_number := l_tal_rec.object_version_number;
4212: END IF;
4213: IF (x_tal_rec.tas_id = OKC_API.G_MISS_NUM)
4214: THEN
4215: x_tal_rec.tas_id := l_tal_rec.tas_id;
4216: END IF;
4217: IF (x_tal_rec.ilo_id = OKC_API.G_MISS_NUM)
4213: IF (x_tal_rec.tas_id = OKC_API.G_MISS_NUM)
4214: THEN
4215: x_tal_rec.tas_id := l_tal_rec.tas_id;
4216: END IF;
4217: IF (x_tal_rec.ilo_id = OKC_API.G_MISS_NUM)
4218: THEN
4219: x_tal_rec.ilo_id := l_tal_rec.ilo_id;
4220: END IF;
4221: IF (x_tal_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4217: IF (x_tal_rec.ilo_id = OKC_API.G_MISS_NUM)
4218: THEN
4219: x_tal_rec.ilo_id := l_tal_rec.ilo_id;
4220: END IF;
4221: IF (x_tal_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4222: THEN
4223: x_tal_rec.ilo_id_old := l_tal_rec.ilo_id_old;
4224: END IF;
4225: IF (x_tal_rec.iay_id = OKC_API.G_MISS_NUM)
4221: IF (x_tal_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4222: THEN
4223: x_tal_rec.ilo_id_old := l_tal_rec.ilo_id_old;
4224: END IF;
4225: IF (x_tal_rec.iay_id = OKC_API.G_MISS_NUM)
4226: THEN
4227: x_tal_rec.iay_id := l_tal_rec.iay_id;
4228: END IF;
4229: IF (x_tal_rec.iay_id_new = OKC_API.G_MISS_NUM)
4225: IF (x_tal_rec.iay_id = OKC_API.G_MISS_NUM)
4226: THEN
4227: x_tal_rec.iay_id := l_tal_rec.iay_id;
4228: END IF;
4229: IF (x_tal_rec.iay_id_new = OKC_API.G_MISS_NUM)
4230: THEN
4231: x_tal_rec.iay_id_new := l_tal_rec.iay_id_new;
4232: END IF;
4233: IF (x_tal_rec.kle_id = OKC_API.G_MISS_NUM)
4229: IF (x_tal_rec.iay_id_new = OKC_API.G_MISS_NUM)
4230: THEN
4231: x_tal_rec.iay_id_new := l_tal_rec.iay_id_new;
4232: END IF;
4233: IF (x_tal_rec.kle_id = OKC_API.G_MISS_NUM)
4234: THEN
4235: x_tal_rec.kle_id := l_tal_rec.kle_id;
4236: END IF;
4237: IF (x_tal_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4233: IF (x_tal_rec.kle_id = OKC_API.G_MISS_NUM)
4234: THEN
4235: x_tal_rec.kle_id := l_tal_rec.kle_id;
4236: END IF;
4237: IF (x_tal_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4238: THEN
4239: x_tal_rec.dnz_khr_id := l_tal_rec.dnz_khr_id;
4240: END IF;
4241: IF (x_tal_rec.line_number = OKC_API.G_MISS_NUM)
4237: IF (x_tal_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4238: THEN
4239: x_tal_rec.dnz_khr_id := l_tal_rec.dnz_khr_id;
4240: END IF;
4241: IF (x_tal_rec.line_number = OKC_API.G_MISS_NUM)
4242: THEN
4243: x_tal_rec.line_number := l_tal_rec.line_number;
4244: END IF;
4245: IF (x_tal_rec.org_id = OKC_API.G_MISS_NUM)
4241: IF (x_tal_rec.line_number = OKC_API.G_MISS_NUM)
4242: THEN
4243: x_tal_rec.line_number := l_tal_rec.line_number;
4244: END IF;
4245: IF (x_tal_rec.org_id = OKC_API.G_MISS_NUM)
4246: THEN
4247: x_tal_rec.org_id := l_tal_rec.org_id;
4248: END IF;
4249: IF (x_tal_rec.tal_type = OKC_API.G_MISS_CHAR)
4245: IF (x_tal_rec.org_id = OKC_API.G_MISS_NUM)
4246: THEN
4247: x_tal_rec.org_id := l_tal_rec.org_id;
4248: END IF;
4249: IF (x_tal_rec.tal_type = OKC_API.G_MISS_CHAR)
4250: THEN
4251: x_tal_rec.tal_type := l_tal_rec.tal_type;
4252: END IF;
4253: IF (x_tal_rec.asset_number = OKC_API.G_MISS_CHAR)
4249: IF (x_tal_rec.tal_type = OKC_API.G_MISS_CHAR)
4250: THEN
4251: x_tal_rec.tal_type := l_tal_rec.tal_type;
4252: END IF;
4253: IF (x_tal_rec.asset_number = OKC_API.G_MISS_CHAR)
4254: THEN
4255: x_tal_rec.asset_number := l_tal_rec.asset_number;
4256: END IF;
4257: IF (x_tal_rec.original_cost = OKC_API.G_MISS_NUM)
4253: IF (x_tal_rec.asset_number = OKC_API.G_MISS_CHAR)
4254: THEN
4255: x_tal_rec.asset_number := l_tal_rec.asset_number;
4256: END IF;
4257: IF (x_tal_rec.original_cost = OKC_API.G_MISS_NUM)
4258: THEN
4259: x_tal_rec.original_cost := l_tal_rec.original_cost;
4260: END IF;
4261: IF (x_tal_rec.current_units = OKC_API.G_MISS_NUM)
4257: IF (x_tal_rec.original_cost = OKC_API.G_MISS_NUM)
4258: THEN
4259: x_tal_rec.original_cost := l_tal_rec.original_cost;
4260: END IF;
4261: IF (x_tal_rec.current_units = OKC_API.G_MISS_NUM)
4262: THEN
4263: x_tal_rec.current_units := l_tal_rec.current_units;
4264: END IF;
4265: IF (x_tal_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
4261: IF (x_tal_rec.current_units = OKC_API.G_MISS_NUM)
4262: THEN
4263: x_tal_rec.current_units := l_tal_rec.current_units;
4264: END IF;
4265: IF (x_tal_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
4266: THEN
4267: x_tal_rec.manufacturer_name := l_tal_rec.manufacturer_name;
4268: END IF;
4269: IF (x_tal_rec.year_manufactured = OKC_API.G_MISS_NUM)
4265: IF (x_tal_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
4266: THEN
4267: x_tal_rec.manufacturer_name := l_tal_rec.manufacturer_name;
4268: END IF;
4269: IF (x_tal_rec.year_manufactured = OKC_API.G_MISS_NUM)
4270: THEN
4271: x_tal_rec.year_manufactured := l_tal_rec.year_manufactured;
4272: END IF;
4273: IF (x_tal_rec.supplier_id = OKC_API.G_MISS_NUM)
4269: IF (x_tal_rec.year_manufactured = OKC_API.G_MISS_NUM)
4270: THEN
4271: x_tal_rec.year_manufactured := l_tal_rec.year_manufactured;
4272: END IF;
4273: IF (x_tal_rec.supplier_id = OKC_API.G_MISS_NUM)
4274: THEN
4275: x_tal_rec.supplier_id := l_tal_rec.supplier_id;
4276: END IF;
4277: IF (x_tal_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
4273: IF (x_tal_rec.supplier_id = OKC_API.G_MISS_NUM)
4274: THEN
4275: x_tal_rec.supplier_id := l_tal_rec.supplier_id;
4276: END IF;
4277: IF (x_tal_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
4278: THEN
4279: x_tal_rec.used_asset_yn := l_tal_rec.used_asset_yn;
4280: END IF;
4281: IF (x_tal_rec.tag_number = OKC_API.G_MISS_CHAR)
4277: IF (x_tal_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
4278: THEN
4279: x_tal_rec.used_asset_yn := l_tal_rec.used_asset_yn;
4280: END IF;
4281: IF (x_tal_rec.tag_number = OKC_API.G_MISS_CHAR)
4282: THEN
4283: x_tal_rec.tag_number := l_tal_rec.tag_number;
4284: END IF;
4285: IF (x_tal_rec.model_number = OKC_API.G_MISS_CHAR)
4281: IF (x_tal_rec.tag_number = OKC_API.G_MISS_CHAR)
4282: THEN
4283: x_tal_rec.tag_number := l_tal_rec.tag_number;
4284: END IF;
4285: IF (x_tal_rec.model_number = OKC_API.G_MISS_CHAR)
4286: THEN
4287: x_tal_rec.model_number := l_tal_rec.model_number;
4288: END IF;
4289: IF (x_tal_rec.corporate_book = OKC_API.G_MISS_CHAR)
4285: IF (x_tal_rec.model_number = OKC_API.G_MISS_CHAR)
4286: THEN
4287: x_tal_rec.model_number := l_tal_rec.model_number;
4288: END IF;
4289: IF (x_tal_rec.corporate_book = OKC_API.G_MISS_CHAR)
4290: THEN
4291: x_tal_rec.corporate_book := l_tal_rec.corporate_book;
4292: END IF;
4293: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4289: IF (x_tal_rec.corporate_book = OKC_API.G_MISS_CHAR)
4290: THEN
4291: x_tal_rec.corporate_book := l_tal_rec.corporate_book;
4292: END IF;
4293: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4294: THEN
4295: x_tal_rec.date_purchased := l_tal_rec.date_purchased;
4296: END IF;
4297: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4293: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4294: THEN
4295: x_tal_rec.date_purchased := l_tal_rec.date_purchased;
4296: END IF;
4297: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4298: THEN
4299: x_tal_rec.date_delivery := l_tal_rec.date_delivery;
4300: END IF;
4301: IF (x_tal_rec.in_service_date = OKC_API.G_MISS_DATE)
4297: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4298: THEN
4299: x_tal_rec.date_delivery := l_tal_rec.date_delivery;
4300: END IF;
4301: IF (x_tal_rec.in_service_date = OKC_API.G_MISS_DATE)
4302: THEN
4303: x_tal_rec.in_service_date := l_tal_rec.in_service_date;
4304: END IF;
4305: IF (x_tal_rec.life_in_months = OKC_API.G_MISS_NUM)
4301: IF (x_tal_rec.in_service_date = OKC_API.G_MISS_DATE)
4302: THEN
4303: x_tal_rec.in_service_date := l_tal_rec.in_service_date;
4304: END IF;
4305: IF (x_tal_rec.life_in_months = OKC_API.G_MISS_NUM)
4306: THEN
4307: x_tal_rec.life_in_months := l_tal_rec.life_in_months;
4308: END IF;
4309: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4305: IF (x_tal_rec.life_in_months = OKC_API.G_MISS_NUM)
4306: THEN
4307: x_tal_rec.life_in_months := l_tal_rec.life_in_months;
4308: END IF;
4309: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4310: THEN
4311: x_tal_rec.depreciation_id := l_tal_rec.depreciation_id;
4312: END IF;
4313: IF (x_tal_rec.depreciation_cost = OKC_API.G_MISS_NUM)
4309: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4310: THEN
4311: x_tal_rec.depreciation_id := l_tal_rec.depreciation_id;
4312: END IF;
4313: IF (x_tal_rec.depreciation_cost = OKC_API.G_MISS_NUM)
4314: THEN
4315: x_tal_rec.depreciation_cost := l_tal_rec.depreciation_cost;
4316: END IF;
4317: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4313: IF (x_tal_rec.depreciation_cost = OKC_API.G_MISS_NUM)
4314: THEN
4315: x_tal_rec.depreciation_cost := l_tal_rec.depreciation_cost;
4316: END IF;
4317: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4318: THEN
4319: x_tal_rec.deprn_method := l_tal_rec.deprn_method;
4320: END IF;
4321: IF (x_tal_rec.deprn_rate = OKC_API.G_MISS_NUM)
4317: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4318: THEN
4319: x_tal_rec.deprn_method := l_tal_rec.deprn_method;
4320: END IF;
4321: IF (x_tal_rec.deprn_rate = OKC_API.G_MISS_NUM)
4322: THEN
4323: x_tal_rec.deprn_rate := l_tal_rec.deprn_rate;
4324: END IF;
4325: IF (x_tal_rec.salvage_value = OKC_API.G_MISS_NUM)
4321: IF (x_tal_rec.deprn_rate = OKC_API.G_MISS_NUM)
4322: THEN
4323: x_tal_rec.deprn_rate := l_tal_rec.deprn_rate;
4324: END IF;
4325: IF (x_tal_rec.salvage_value = OKC_API.G_MISS_NUM)
4326: THEN
4327: x_tal_rec.salvage_value := l_tal_rec.salvage_value;
4328: END IF;
4329: IF (x_tal_rec.percent_salvage_value = OKC_API.G_MISS_NUM)
4325: IF (x_tal_rec.salvage_value = OKC_API.G_MISS_NUM)
4326: THEN
4327: x_tal_rec.salvage_value := l_tal_rec.salvage_value;
4328: END IF;
4329: IF (x_tal_rec.percent_salvage_value = OKC_API.G_MISS_NUM)
4330: THEN
4331: x_tal_rec.percent_salvage_value := l_tal_rec.percent_salvage_value;
4332: END IF;
4333: --Bug# 2981308
4335: THEN
4336: x_tal_rec.asset_key_id := l_tal_rec.asset_key_id;
4337: END IF;
4338: -- Bug# 4028371
4339: IF (x_tal_rec.fa_trx_date = OKC_API.G_MISS_DATE)
4340: THEN
4341: x_tal_rec.fa_trx_date := l_tal_rec.fa_trx_date;
4342: END IF;
4343: --Bug# 4899328
4344: IF (x_tal_rec.fa_cost = OKL_API.G_MISS_NUM)
4345: THEN
4346: x_tal_rec.fa_cost := l_tal_rec.fa_cost;
4347: END IF;
4348: IF (x_tal_rec.attribute_category = OKC_API.G_MISS_CHAR)
4349: THEN
4350: x_tal_rec.attribute_category := l_tal_rec.attribute_category;
4351: END IF;
4352: IF (x_tal_rec.attribute1 = OKC_API.G_MISS_CHAR)
4348: IF (x_tal_rec.attribute_category = OKC_API.G_MISS_CHAR)
4349: THEN
4350: x_tal_rec.attribute_category := l_tal_rec.attribute_category;
4351: END IF;
4352: IF (x_tal_rec.attribute1 = OKC_API.G_MISS_CHAR)
4353: THEN
4354: x_tal_rec.attribute1 := l_tal_rec.attribute1;
4355: END IF;
4356: IF (x_tal_rec.attribute2 = OKC_API.G_MISS_CHAR)
4352: IF (x_tal_rec.attribute1 = OKC_API.G_MISS_CHAR)
4353: THEN
4354: x_tal_rec.attribute1 := l_tal_rec.attribute1;
4355: END IF;
4356: IF (x_tal_rec.attribute2 = OKC_API.G_MISS_CHAR)
4357: THEN
4358: x_tal_rec.attribute2 := l_tal_rec.attribute2;
4359: END IF;
4360: IF (x_tal_rec.attribute3 = OKC_API.G_MISS_CHAR)
4356: IF (x_tal_rec.attribute2 = OKC_API.G_MISS_CHAR)
4357: THEN
4358: x_tal_rec.attribute2 := l_tal_rec.attribute2;
4359: END IF;
4360: IF (x_tal_rec.attribute3 = OKC_API.G_MISS_CHAR)
4361: THEN
4362: x_tal_rec.attribute3 := l_tal_rec.attribute3;
4363: END IF;
4364: IF (x_tal_rec.attribute4 = OKC_API.G_MISS_CHAR)
4360: IF (x_tal_rec.attribute3 = OKC_API.G_MISS_CHAR)
4361: THEN
4362: x_tal_rec.attribute3 := l_tal_rec.attribute3;
4363: END IF;
4364: IF (x_tal_rec.attribute4 = OKC_API.G_MISS_CHAR)
4365: THEN
4366: x_tal_rec.attribute4 := l_tal_rec.attribute4;
4367: END IF;
4368: IF (x_tal_rec.attribute5 = OKC_API.G_MISS_CHAR)
4364: IF (x_tal_rec.attribute4 = OKC_API.G_MISS_CHAR)
4365: THEN
4366: x_tal_rec.attribute4 := l_tal_rec.attribute4;
4367: END IF;
4368: IF (x_tal_rec.attribute5 = OKC_API.G_MISS_CHAR)
4369: THEN
4370: x_tal_rec.attribute5 := l_tal_rec.attribute5;
4371: END IF;
4372: IF (x_tal_rec.attribute6 = OKC_API.G_MISS_CHAR)
4368: IF (x_tal_rec.attribute5 = OKC_API.G_MISS_CHAR)
4369: THEN
4370: x_tal_rec.attribute5 := l_tal_rec.attribute5;
4371: END IF;
4372: IF (x_tal_rec.attribute6 = OKC_API.G_MISS_CHAR)
4373: THEN
4374: x_tal_rec.attribute6 := l_tal_rec.attribute6;
4375: END IF;
4376: IF (x_tal_rec.attribute7 = OKC_API.G_MISS_CHAR)
4372: IF (x_tal_rec.attribute6 = OKC_API.G_MISS_CHAR)
4373: THEN
4374: x_tal_rec.attribute6 := l_tal_rec.attribute6;
4375: END IF;
4376: IF (x_tal_rec.attribute7 = OKC_API.G_MISS_CHAR)
4377: THEN
4378: x_tal_rec.attribute7 := l_tal_rec.attribute7;
4379: END IF;
4380: IF (x_tal_rec.attribute8 = OKC_API.G_MISS_CHAR)
4376: IF (x_tal_rec.attribute7 = OKC_API.G_MISS_CHAR)
4377: THEN
4378: x_tal_rec.attribute7 := l_tal_rec.attribute7;
4379: END IF;
4380: IF (x_tal_rec.attribute8 = OKC_API.G_MISS_CHAR)
4381: THEN
4382: x_tal_rec.attribute8 := l_tal_rec.attribute8;
4383: END IF;
4384: IF (x_tal_rec.attribute9 = OKC_API.G_MISS_CHAR)
4380: IF (x_tal_rec.attribute8 = OKC_API.G_MISS_CHAR)
4381: THEN
4382: x_tal_rec.attribute8 := l_tal_rec.attribute8;
4383: END IF;
4384: IF (x_tal_rec.attribute9 = OKC_API.G_MISS_CHAR)
4385: THEN
4386: x_tal_rec.attribute9 := l_tal_rec.attribute9;
4387: END IF;
4388: IF (x_tal_rec.attribute10 = OKC_API.G_MISS_CHAR)
4384: IF (x_tal_rec.attribute9 = OKC_API.G_MISS_CHAR)
4385: THEN
4386: x_tal_rec.attribute9 := l_tal_rec.attribute9;
4387: END IF;
4388: IF (x_tal_rec.attribute10 = OKC_API.G_MISS_CHAR)
4389: THEN
4390: x_tal_rec.attribute10 := l_tal_rec.attribute10;
4391: END IF;
4392: IF (x_tal_rec.attribute11 = OKC_API.G_MISS_CHAR)
4388: IF (x_tal_rec.attribute10 = OKC_API.G_MISS_CHAR)
4389: THEN
4390: x_tal_rec.attribute10 := l_tal_rec.attribute10;
4391: END IF;
4392: IF (x_tal_rec.attribute11 = OKC_API.G_MISS_CHAR)
4393: THEN
4394: x_tal_rec.attribute11 := l_tal_rec.attribute11;
4395: END IF;
4396: IF (x_tal_rec.attribute12 = OKC_API.G_MISS_CHAR)
4392: IF (x_tal_rec.attribute11 = OKC_API.G_MISS_CHAR)
4393: THEN
4394: x_tal_rec.attribute11 := l_tal_rec.attribute11;
4395: END IF;
4396: IF (x_tal_rec.attribute12 = OKC_API.G_MISS_CHAR)
4397: THEN
4398: x_tal_rec.attribute12 := l_tal_rec.attribute12;
4399: END IF;
4400: IF (x_tal_rec.attribute13 = OKC_API.G_MISS_CHAR)
4396: IF (x_tal_rec.attribute12 = OKC_API.G_MISS_CHAR)
4397: THEN
4398: x_tal_rec.attribute12 := l_tal_rec.attribute12;
4399: END IF;
4400: IF (x_tal_rec.attribute13 = OKC_API.G_MISS_CHAR)
4401: THEN
4402: x_tal_rec.attribute13 := l_tal_rec.attribute13;
4403: END IF;
4404: IF (x_tal_rec.attribute14 = OKC_API.G_MISS_CHAR)
4400: IF (x_tal_rec.attribute13 = OKC_API.G_MISS_CHAR)
4401: THEN
4402: x_tal_rec.attribute13 := l_tal_rec.attribute13;
4403: END IF;
4404: IF (x_tal_rec.attribute14 = OKC_API.G_MISS_CHAR)
4405: THEN
4406: x_tal_rec.attribute14 := l_tal_rec.attribute14;
4407: END IF;
4408: IF (x_tal_rec.attribute15 = OKC_API.G_MISS_CHAR)
4404: IF (x_tal_rec.attribute14 = OKC_API.G_MISS_CHAR)
4405: THEN
4406: x_tal_rec.attribute14 := l_tal_rec.attribute14;
4407: END IF;
4408: IF (x_tal_rec.attribute15 = OKC_API.G_MISS_CHAR)
4409: THEN
4410: x_tal_rec.attribute15 := l_tal_rec.attribute15;
4411: END IF;
4412: IF (x_tal_rec.created_by = OKC_API.G_MISS_NUM)
4408: IF (x_tal_rec.attribute15 = OKC_API.G_MISS_CHAR)
4409: THEN
4410: x_tal_rec.attribute15 := l_tal_rec.attribute15;
4411: END IF;
4412: IF (x_tal_rec.created_by = OKC_API.G_MISS_NUM)
4413: THEN
4414: x_tal_rec.created_by := l_tal_rec.created_by;
4415: END IF;
4416: IF (x_tal_rec.creation_date = OKC_API.G_MISS_DATE)
4412: IF (x_tal_rec.created_by = OKC_API.G_MISS_NUM)
4413: THEN
4414: x_tal_rec.created_by := l_tal_rec.created_by;
4415: END IF;
4416: IF (x_tal_rec.creation_date = OKC_API.G_MISS_DATE)
4417: THEN
4418: x_tal_rec.creation_date := l_tal_rec.creation_date;
4419: END IF;
4420: IF (x_tal_rec.last_updated_by = OKC_API.G_MISS_NUM)
4416: IF (x_tal_rec.creation_date = OKC_API.G_MISS_DATE)
4417: THEN
4418: x_tal_rec.creation_date := l_tal_rec.creation_date;
4419: END IF;
4420: IF (x_tal_rec.last_updated_by = OKC_API.G_MISS_NUM)
4421: THEN
4422: x_tal_rec.last_updated_by := l_tal_rec.last_updated_by;
4423: END IF;
4424: IF (x_tal_rec.last_update_date = OKC_API.G_MISS_DATE)
4420: IF (x_tal_rec.last_updated_by = OKC_API.G_MISS_NUM)
4421: THEN
4422: x_tal_rec.last_updated_by := l_tal_rec.last_updated_by;
4423: END IF;
4424: IF (x_tal_rec.last_update_date = OKC_API.G_MISS_DATE)
4425: THEN
4426: x_tal_rec.last_update_date := l_tal_rec.last_update_date;
4427: END IF;
4428: IF (x_tal_rec.last_update_login = OKC_API.G_MISS_NUM)
4424: IF (x_tal_rec.last_update_date = OKC_API.G_MISS_DATE)
4425: THEN
4426: x_tal_rec.last_update_date := l_tal_rec.last_update_date;
4427: END IF;
4428: IF (x_tal_rec.last_update_login = OKC_API.G_MISS_NUM)
4429: THEN
4430: x_tal_rec.last_update_login := l_tal_rec.last_update_login;
4431: END IF;
4432: IF (x_tal_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
4428: IF (x_tal_rec.last_update_login = OKC_API.G_MISS_NUM)
4429: THEN
4430: x_tal_rec.last_update_login := l_tal_rec.last_update_login;
4431: END IF;
4432: IF (x_tal_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
4433: THEN
4434: x_tal_rec.depreciate_yn := l_tal_rec.depreciate_yn;
4435: END IF;
4436: IF (x_tal_rec.hold_period_days = OKC_API.G_MISS_NUM)
4432: IF (x_tal_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
4433: THEN
4434: x_tal_rec.depreciate_yn := l_tal_rec.depreciate_yn;
4435: END IF;
4436: IF (x_tal_rec.hold_period_days = OKC_API.G_MISS_NUM)
4437: THEN
4438: x_tal_rec.hold_period_days := l_tal_rec.hold_period_days;
4439: END IF;
4440: IF (x_tal_rec.old_salvage_value = OKC_API.G_MISS_NUM)
4436: IF (x_tal_rec.hold_period_days = OKC_API.G_MISS_NUM)
4437: THEN
4438: x_tal_rec.hold_period_days := l_tal_rec.hold_period_days;
4439: END IF;
4440: IF (x_tal_rec.old_salvage_value = OKC_API.G_MISS_NUM)
4441: THEN
4442: x_tal_rec.old_salvage_value := l_tal_rec.old_salvage_value;
4443: END IF;
4444: IF (x_tal_rec.new_residual_value = OKC_API.G_MISS_NUM)
4440: IF (x_tal_rec.old_salvage_value = OKC_API.G_MISS_NUM)
4441: THEN
4442: x_tal_rec.old_salvage_value := l_tal_rec.old_salvage_value;
4443: END IF;
4444: IF (x_tal_rec.new_residual_value = OKC_API.G_MISS_NUM)
4445: THEN
4446: x_tal_rec.new_residual_value := l_tal_rec.new_residual_value;
4447: END IF;
4448: IF (x_tal_rec.old_residual_value = OKC_API.G_MISS_NUM)
4444: IF (x_tal_rec.new_residual_value = OKC_API.G_MISS_NUM)
4445: THEN
4446: x_tal_rec.new_residual_value := l_tal_rec.new_residual_value;
4447: END IF;
4448: IF (x_tal_rec.old_residual_value = OKC_API.G_MISS_NUM)
4449: THEN
4450: x_tal_rec.old_residual_value := l_tal_rec.old_residual_value;
4451: END IF;
4452: IF (x_tal_rec.units_retired = OKC_API.G_MISS_NUM)
4448: IF (x_tal_rec.old_residual_value = OKC_API.G_MISS_NUM)
4449: THEN
4450: x_tal_rec.old_residual_value := l_tal_rec.old_residual_value;
4451: END IF;
4452: IF (x_tal_rec.units_retired = OKC_API.G_MISS_NUM)
4453: THEN
4454: x_tal_rec.units_retired := l_tal_rec.units_retired;
4455: END IF;
4456: IF (x_tal_rec.cost_retired = OKC_API.G_MISS_NUM)
4452: IF (x_tal_rec.units_retired = OKC_API.G_MISS_NUM)
4453: THEN
4454: x_tal_rec.units_retired := l_tal_rec.units_retired;
4455: END IF;
4456: IF (x_tal_rec.cost_retired = OKC_API.G_MISS_NUM)
4457: THEN
4458: x_tal_rec.cost_retired := l_tal_rec.cost_retired;
4459: END IF;
4460: IF (x_tal_rec.sale_proceeds = OKC_API.G_MISS_NUM)
4456: IF (x_tal_rec.cost_retired = OKC_API.G_MISS_NUM)
4457: THEN
4458: x_tal_rec.cost_retired := l_tal_rec.cost_retired;
4459: END IF;
4460: IF (x_tal_rec.sale_proceeds = OKC_API.G_MISS_NUM)
4461: THEN
4462: x_tal_rec.sale_proceeds := l_tal_rec.sale_proceeds;
4463: END IF;
4464: IF (x_tal_rec.removal_cost = OKC_API.G_MISS_NUM)
4460: IF (x_tal_rec.sale_proceeds = OKC_API.G_MISS_NUM)
4461: THEN
4462: x_tal_rec.sale_proceeds := l_tal_rec.sale_proceeds;
4463: END IF;
4464: IF (x_tal_rec.removal_cost = OKC_API.G_MISS_NUM)
4465: THEN
4466: x_tal_rec.removal_cost := l_tal_rec.removal_cost;
4467: END IF;
4468: IF (x_tal_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
4464: IF (x_tal_rec.removal_cost = OKC_API.G_MISS_NUM)
4465: THEN
4466: x_tal_rec.removal_cost := l_tal_rec.removal_cost;
4467: END IF;
4468: IF (x_tal_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
4469: THEN
4470: x_tal_rec.dnz_asset_id := l_tal_rec.dnz_asset_id;
4471: END IF;
4472: IF (x_tal_rec.date_due = OKC_API.G_MISS_DATE)
4468: IF (x_tal_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
4469: THEN
4470: x_tal_rec.dnz_asset_id := l_tal_rec.dnz_asset_id;
4471: END IF;
4472: IF (x_tal_rec.date_due = OKC_API.G_MISS_DATE)
4473: THEN
4474: x_tal_rec.date_due := l_tal_rec.date_due;
4475: END IF;
4476: IF (x_tal_rec.rep_asset_id = OKC_API.G_MISS_NUM)
4472: IF (x_tal_rec.date_due = OKC_API.G_MISS_DATE)
4473: THEN
4474: x_tal_rec.date_due := l_tal_rec.date_due;
4475: END IF;
4476: IF (x_tal_rec.rep_asset_id = OKC_API.G_MISS_NUM)
4477: THEN
4478: x_tal_rec.rep_asset_id := l_tal_rec.rep_asset_id;
4479: END IF;
4480: IF (x_tal_rec.lke_asset_id = OKC_API.G_MISS_NUM)
4476: IF (x_tal_rec.rep_asset_id = OKC_API.G_MISS_NUM)
4477: THEN
4478: x_tal_rec.rep_asset_id := l_tal_rec.rep_asset_id;
4479: END IF;
4480: IF (x_tal_rec.lke_asset_id = OKC_API.G_MISS_NUM)
4481: THEN
4482: x_tal_rec.lke_asset_id := l_tal_rec.lke_asset_id;
4483: END IF;
4484: IF (x_tal_rec.match_amount = OKC_API.G_MISS_NUM)
4480: IF (x_tal_rec.lke_asset_id = OKC_API.G_MISS_NUM)
4481: THEN
4482: x_tal_rec.lke_asset_id := l_tal_rec.lke_asset_id;
4483: END IF;
4484: IF (x_tal_rec.match_amount = OKC_API.G_MISS_NUM)
4485: THEN
4486: x_tal_rec.match_amount := l_tal_rec.match_amount;
4487: END IF;
4488: IF (x_tal_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
4484: IF (x_tal_rec.match_amount = OKC_API.G_MISS_NUM)
4485: THEN
4486: x_tal_rec.match_amount := l_tal_rec.match_amount;
4487: END IF;
4488: IF (x_tal_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
4489: THEN
4490: x_tal_rec.split_into_singles_flag := l_tal_rec.split_into_singles_flag;
4491: END IF;
4492: IF (x_tal_rec.split_into_units = OKC_API.G_MISS_NUM)
4488: IF (x_tal_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
4489: THEN
4490: x_tal_rec.split_into_singles_flag := l_tal_rec.split_into_singles_flag;
4491: END IF;
4492: IF (x_tal_rec.split_into_units = OKC_API.G_MISS_NUM)
4493: THEN
4494: x_tal_rec.split_into_units := l_tal_rec.split_into_units;
4495: END IF;
4496: -- Multi Currency Change
4493: THEN
4494: x_tal_rec.split_into_units := l_tal_rec.split_into_units;
4495: END IF;
4496: -- Multi Currency Change
4497: IF (x_tal_rec.currency_code = OKC_API.G_MISS_CHAR)
4498: THEN
4499: x_tal_rec.currency_code := l_tal_rec.currency_code;
4500: END IF;
4501: IF (x_tal_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4497: IF (x_tal_rec.currency_code = OKC_API.G_MISS_CHAR)
4498: THEN
4499: x_tal_rec.currency_code := l_tal_rec.currency_code;
4500: END IF;
4501: IF (x_tal_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4502: THEN
4503: x_tal_rec.currency_conversion_type := l_tal_rec.currency_conversion_type;
4504: END IF;
4505: IF (x_tal_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4501: IF (x_tal_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4502: THEN
4503: x_tal_rec.currency_conversion_type := l_tal_rec.currency_conversion_type;
4504: END IF;
4505: IF (x_tal_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4506: THEN
4507: x_tal_rec.currency_conversion_rate := l_tal_rec.currency_conversion_rate;
4508: END IF;
4509: IF (x_tal_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
4505: IF (x_tal_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4506: THEN
4507: x_tal_rec.currency_conversion_rate := l_tal_rec.currency_conversion_rate;
4508: END IF;
4509: IF (x_tal_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
4510: THEN
4511: x_tal_rec.currency_conversion_date := l_tal_rec.currency_conversion_date;
4512: END IF;
4513: -- Multi Currency Change
4513: -- Multi Currency Change
4514:
4515: -- VRS Project - START
4516:
4517: IF (x_tal_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM) THEN
4518: x_tal_rec.RESIDUAL_SHR_PARTY_ID:= l_tal_rec.RESIDUAL_SHR_PARTY_ID;
4519: END IF;
4520:
4521: IF (x_tal_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4517: IF (x_tal_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM) THEN
4518: x_tal_rec.RESIDUAL_SHR_PARTY_ID:= l_tal_rec.RESIDUAL_SHR_PARTY_ID;
4519: END IF;
4520:
4521: IF (x_tal_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4522: x_tal_rec.RESIDUAL_SHR_AMOUNT := l_tal_rec.RESIDUAL_SHR_AMOUNT;
4523: END IF;
4524: IF (x_tal_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM) THEN
4525: x_tal_rec.RETIREMENT_ID := l_tal_rec.RETIREMENT_ID;
4520:
4521: IF (x_tal_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4522: x_tal_rec.RESIDUAL_SHR_AMOUNT := l_tal_rec.RESIDUAL_SHR_AMOUNT;
4523: END IF;
4524: IF (x_tal_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM) THEN
4525: x_tal_rec.RETIREMENT_ID := l_tal_rec.RETIREMENT_ID;
4526: END IF;
4527:
4528: -- VRS Project - END
4536: FUNCTION Set_Attributes (
4537: p_tal_rec IN tal_rec_type,
4538: x_tal_rec OUT NOCOPY tal_rec_type
4539: ) RETURN VARCHAR2 IS
4540: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4541: BEGIN
4542: x_tal_rec := p_tal_rec;
4543: RETURN(l_return_status);
4544: END Set_Attributes;
4542: x_tal_rec := p_tal_rec;
4543: RETURN(l_return_status);
4544: END Set_Attributes;
4545: BEGIN
4546: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4547: p_init_msg_list,
4548: '_PVT',
4549: x_return_status);
4550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4546: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4547: p_init_msg_list,
4548: '_PVT',
4549: x_return_status);
4550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4551: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4553: RAISE OKC_API.G_EXCEPTION_ERROR;
4554: END IF;
4547: p_init_msg_list,
4548: '_PVT',
4549: x_return_status);
4550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4551: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4553: RAISE OKC_API.G_EXCEPTION_ERROR;
4554: END IF;
4555: --- Setting item attributes
4548: '_PVT',
4549: x_return_status);
4550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4551: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4553: RAISE OKC_API.G_EXCEPTION_ERROR;
4554: END IF;
4555: --- Setting item attributes
4556: l_return_status := Set_Attributes(
4549: x_return_status);
4550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4551: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4553: RAISE OKC_API.G_EXCEPTION_ERROR;
4554: END IF;
4555: --- Setting item attributes
4556: l_return_status := Set_Attributes(
4557: p_tal_rec, -- IN
4556: l_return_status := Set_Attributes(
4557: p_tal_rec, -- IN
4558: l_tal_rec); -- OUT
4559: --- If any errors happen abort API
4560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4563: RAISE OKC_API.G_EXCEPTION_ERROR;
4564: END IF;
4557: p_tal_rec, -- IN
4558: l_tal_rec); -- OUT
4559: --- If any errors happen abort API
4560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4563: RAISE OKC_API.G_EXCEPTION_ERROR;
4564: END IF;
4565: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4558: l_tal_rec); -- OUT
4559: --- If any errors happen abort API
4560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4563: RAISE OKC_API.G_EXCEPTION_ERROR;
4564: END IF;
4565: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4559: --- If any errors happen abort API
4560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4563: RAISE OKC_API.G_EXCEPTION_ERROR;
4564: END IF;
4565: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4563: RAISE OKC_API.G_EXCEPTION_ERROR;
4564: END IF;
4565: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4569: RAISE OKC_API.G_EXCEPTION_ERROR;
4570: END IF;
4563: RAISE OKC_API.G_EXCEPTION_ERROR;
4564: END IF;
4565: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4569: RAISE OKC_API.G_EXCEPTION_ERROR;
4570: END IF;
4571: UPDATE OKL_TXL_ASSETS_B
4564: END IF;
4565: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4569: RAISE OKC_API.G_EXCEPTION_ERROR;
4570: END IF;
4571: UPDATE OKL_TXL_ASSETS_B
4572: SET TAS_ID = l_def_tal_rec.tas_id,
4565: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4568: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4569: RAISE OKC_API.G_EXCEPTION_ERROR;
4570: END IF;
4571: UPDATE OKL_TXL_ASSETS_B
4572: SET TAS_ID = l_def_tal_rec.tas_id,
4573: OBJECT_VERSION_NUMBER = l_def_tal_rec.object_version_number,
4657:
4658: WHERE ID = l_def_tal_rec.id;
4659:
4660: x_tal_rec := l_def_tal_rec;
4661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4662: EXCEPTION
4663: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4664: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4665: (
4659:
4660: x_tal_rec := l_def_tal_rec;
4661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4662: EXCEPTION
4663: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4664: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4665: (
4666: l_api_name,
4667: G_PKG_NAME,
4660: x_tal_rec := l_def_tal_rec;
4661: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4662: EXCEPTION
4663: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4664: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4665: (
4666: l_api_name,
4667: G_PKG_NAME,
4668: 'OKC_API.G_RET_STS_ERROR',
4664: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4665: (
4666: l_api_name,
4667: G_PKG_NAME,
4668: 'OKC_API.G_RET_STS_ERROR',
4669: x_msg_count,
4670: x_msg_data,
4671: '_PVT'
4672: );
4669: x_msg_count,
4670: x_msg_data,
4671: '_PVT'
4672: );
4673: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4675: (
4676: l_api_name,
4677: G_PKG_NAME,
4670: x_msg_data,
4671: '_PVT'
4672: );
4673: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4675: (
4676: l_api_name,
4677: G_PKG_NAME,
4678: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4675: (
4676: l_api_name,
4677: G_PKG_NAME,
4678: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4679: x_msg_count,
4680: x_msg_data,
4681: '_PVT'
4682: );
4680: x_msg_data,
4681: '_PVT'
4682: );
4683: WHEN OTHERS THEN
4684: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4685: (
4686: l_api_name,
4687: G_PKG_NAME,
4688: 'OTHERS',
4694: --------------------------------------
4695: -- update_row for:OKL_TXL_ASSETS_TL --
4696: --------------------------------------
4697: PROCEDURE update_row(
4698: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4699: x_return_status OUT NOCOPY VARCHAR2,
4700: x_msg_count OUT NOCOPY NUMBER,
4701: x_msg_data OUT NOCOPY VARCHAR2,
4702: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type,
4703: x_okl_txl_assets_tl_rec OUT NOCOPY okl_txl_assets_tl_rec_type) IS
4704:
4705: l_api_version CONSTANT NUMBER := 1;
4706: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
4707: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4708: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type := p_okl_txl_assets_tl_rec;
4709: l_def_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4710: l_row_notfound BOOLEAN := TRUE;
4711: ----------------------------------
4716: x_okl_txl_assets_tl_rec OUT NOCOPY okl_txl_assets_tl_rec_type
4717: ) RETURN VARCHAR2 IS
4718: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4719: l_row_notfound BOOLEAN := TRUE;
4720: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4721: BEGIN
4722: x_okl_txl_assets_tl_rec := p_okl_txl_assets_tl_rec;
4723: -- Get current database values
4724: l_okl_txl_assets_tl_rec := get_rec(p_okl_txl_assets_tl_rec, l_row_notfound);
4722: x_okl_txl_assets_tl_rec := p_okl_txl_assets_tl_rec;
4723: -- Get current database values
4724: l_okl_txl_assets_tl_rec := get_rec(p_okl_txl_assets_tl_rec, l_row_notfound);
4725: IF (l_row_notfound) THEN
4726: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4727: END IF;
4728: IF (x_okl_txl_assets_tl_rec.id = OKC_API.G_MISS_NUM)
4729: THEN
4730: x_okl_txl_assets_tl_rec.id := l_okl_txl_assets_tl_rec.id;
4724: l_okl_txl_assets_tl_rec := get_rec(p_okl_txl_assets_tl_rec, l_row_notfound);
4725: IF (l_row_notfound) THEN
4726: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4727: END IF;
4728: IF (x_okl_txl_assets_tl_rec.id = OKC_API.G_MISS_NUM)
4729: THEN
4730: x_okl_txl_assets_tl_rec.id := l_okl_txl_assets_tl_rec.id;
4731: END IF;
4732: IF (x_okl_txl_assets_tl_rec.language = OKC_API.G_MISS_CHAR)
4728: IF (x_okl_txl_assets_tl_rec.id = OKC_API.G_MISS_NUM)
4729: THEN
4730: x_okl_txl_assets_tl_rec.id := l_okl_txl_assets_tl_rec.id;
4731: END IF;
4732: IF (x_okl_txl_assets_tl_rec.language = OKC_API.G_MISS_CHAR)
4733: THEN
4734: x_okl_txl_assets_tl_rec.language := l_okl_txl_assets_tl_rec.language;
4735: END IF;
4736: IF (x_okl_txl_assets_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4732: IF (x_okl_txl_assets_tl_rec.language = OKC_API.G_MISS_CHAR)
4733: THEN
4734: x_okl_txl_assets_tl_rec.language := l_okl_txl_assets_tl_rec.language;
4735: END IF;
4736: IF (x_okl_txl_assets_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4737: THEN
4738: x_okl_txl_assets_tl_rec.source_lang := l_okl_txl_assets_tl_rec.source_lang;
4739: END IF;
4740: IF (x_okl_txl_assets_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4736: IF (x_okl_txl_assets_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4737: THEN
4738: x_okl_txl_assets_tl_rec.source_lang := l_okl_txl_assets_tl_rec.source_lang;
4739: END IF;
4740: IF (x_okl_txl_assets_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4741: THEN
4742: x_okl_txl_assets_tl_rec.sfwt_flag := l_okl_txl_assets_tl_rec.sfwt_flag;
4743: END IF;
4744: IF (x_okl_txl_assets_tl_rec.description = OKC_API.G_MISS_CHAR)
4740: IF (x_okl_txl_assets_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4741: THEN
4742: x_okl_txl_assets_tl_rec.sfwt_flag := l_okl_txl_assets_tl_rec.sfwt_flag;
4743: END IF;
4744: IF (x_okl_txl_assets_tl_rec.description = OKC_API.G_MISS_CHAR)
4745: THEN
4746: x_okl_txl_assets_tl_rec.description := l_okl_txl_assets_tl_rec.description;
4747: END IF;
4748: IF (x_okl_txl_assets_tl_rec.created_by = OKC_API.G_MISS_NUM)
4744: IF (x_okl_txl_assets_tl_rec.description = OKC_API.G_MISS_CHAR)
4745: THEN
4746: x_okl_txl_assets_tl_rec.description := l_okl_txl_assets_tl_rec.description;
4747: END IF;
4748: IF (x_okl_txl_assets_tl_rec.created_by = OKC_API.G_MISS_NUM)
4749: THEN
4750: x_okl_txl_assets_tl_rec.created_by := l_okl_txl_assets_tl_rec.created_by;
4751: END IF;
4752: IF (x_okl_txl_assets_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4748: IF (x_okl_txl_assets_tl_rec.created_by = OKC_API.G_MISS_NUM)
4749: THEN
4750: x_okl_txl_assets_tl_rec.created_by := l_okl_txl_assets_tl_rec.created_by;
4751: END IF;
4752: IF (x_okl_txl_assets_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4753: THEN
4754: x_okl_txl_assets_tl_rec.creation_date := l_okl_txl_assets_tl_rec.creation_date;
4755: END IF;
4756: IF (x_okl_txl_assets_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4752: IF (x_okl_txl_assets_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4753: THEN
4754: x_okl_txl_assets_tl_rec.creation_date := l_okl_txl_assets_tl_rec.creation_date;
4755: END IF;
4756: IF (x_okl_txl_assets_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4757: THEN
4758: x_okl_txl_assets_tl_rec.last_updated_by := l_okl_txl_assets_tl_rec.last_updated_by;
4759: END IF;
4760: IF (x_okl_txl_assets_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4756: IF (x_okl_txl_assets_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4757: THEN
4758: x_okl_txl_assets_tl_rec.last_updated_by := l_okl_txl_assets_tl_rec.last_updated_by;
4759: END IF;
4760: IF (x_okl_txl_assets_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4761: THEN
4762: x_okl_txl_assets_tl_rec.last_update_date := l_okl_txl_assets_tl_rec.last_update_date;
4763: END IF;
4764: IF (x_okl_txl_assets_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
4760: IF (x_okl_txl_assets_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4761: THEN
4762: x_okl_txl_assets_tl_rec.last_update_date := l_okl_txl_assets_tl_rec.last_update_date;
4763: END IF;
4764: IF (x_okl_txl_assets_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
4765: THEN
4766: x_okl_txl_assets_tl_rec.last_update_login := l_okl_txl_assets_tl_rec.last_update_login;
4767: END IF;
4768: RETURN(l_return_status);
4773: FUNCTION Set_Attributes (
4774: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type,
4775: x_okl_txl_assets_tl_rec OUT NOCOPY okl_txl_assets_tl_rec_type
4776: ) RETURN VARCHAR2 IS
4777: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4778: BEGIN
4779: x_okl_txl_assets_tl_rec := p_okl_txl_assets_tl_rec;
4780: x_okl_txl_assets_tl_rec.LANGUAGE := USERENV('LANG');
4781: x_okl_txl_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
4781: x_okl_txl_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
4782: RETURN(l_return_status);
4783: END Set_Attributes;
4784: BEGIN
4785: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4786: p_init_msg_list,
4787: '_PVT',
4788: x_return_status);
4789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4785: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4786: p_init_msg_list,
4787: '_PVT',
4788: x_return_status);
4789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4792: RAISE OKC_API.G_EXCEPTION_ERROR;
4793: END IF;
4786: p_init_msg_list,
4787: '_PVT',
4788: x_return_status);
4789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4792: RAISE OKC_API.G_EXCEPTION_ERROR;
4793: END IF;
4794: --- Setting item attributes
4787: '_PVT',
4788: x_return_status);
4789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4792: RAISE OKC_API.G_EXCEPTION_ERROR;
4793: END IF;
4794: --- Setting item attributes
4795: l_return_status := Set_Attributes(
4788: x_return_status);
4789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4792: RAISE OKC_API.G_EXCEPTION_ERROR;
4793: END IF;
4794: --- Setting item attributes
4795: l_return_status := Set_Attributes(
4796: p_okl_txl_assets_tl_rec, -- IN
4795: l_return_status := Set_Attributes(
4796: p_okl_txl_assets_tl_rec, -- IN
4797: l_okl_txl_assets_tl_rec); -- OUT
4798: --- If any errors happen abort API
4799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4802: RAISE OKC_API.G_EXCEPTION_ERROR;
4803: END IF;
4796: p_okl_txl_assets_tl_rec, -- IN
4797: l_okl_txl_assets_tl_rec); -- OUT
4798: --- If any errors happen abort API
4799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4802: RAISE OKC_API.G_EXCEPTION_ERROR;
4803: END IF;
4804: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4797: l_okl_txl_assets_tl_rec); -- OUT
4798: --- If any errors happen abort API
4799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4802: RAISE OKC_API.G_EXCEPTION_ERROR;
4803: END IF;
4804: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4805: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4798: --- If any errors happen abort API
4799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4802: RAISE OKC_API.G_EXCEPTION_ERROR;
4803: END IF;
4804: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4805: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4802: RAISE OKC_API.G_EXCEPTION_ERROR;
4803: END IF;
4804: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4805: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_ERROR;
4809: END IF;
4802: RAISE OKC_API.G_EXCEPTION_ERROR;
4803: END IF;
4804: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4805: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_ERROR;
4809: END IF;
4810: UPDATE OKL_TXL_ASSETS_TL
4803: END IF;
4804: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4805: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_ERROR;
4809: END IF;
4810: UPDATE OKL_TXL_ASSETS_TL
4811: SET DESCRIPTION = l_def_okl_txl_assets_tl_rec.description,
4804: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4805: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4808: RAISE OKC_API.G_EXCEPTION_ERROR;
4809: END IF;
4810: UPDATE OKL_TXL_ASSETS_TL
4811: SET DESCRIPTION = l_def_okl_txl_assets_tl_rec.description,
4812: --Bug# 3641933 :
4826: WHERE ID = l_def_okl_txl_assets_tl_rec.id
4827: AND SOURCE_LANG <> USERENV('LANG');
4828:
4829: x_okl_txl_assets_tl_rec := l_def_okl_txl_assets_tl_rec;
4830: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4831: EXCEPTION
4832: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4833: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4834: (
4828:
4829: x_okl_txl_assets_tl_rec := l_def_okl_txl_assets_tl_rec;
4830: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4831: EXCEPTION
4832: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4833: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4834: (
4835: l_api_name,
4836: G_PKG_NAME,
4829: x_okl_txl_assets_tl_rec := l_def_okl_txl_assets_tl_rec;
4830: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4831: EXCEPTION
4832: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4833: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4834: (
4835: l_api_name,
4836: G_PKG_NAME,
4837: 'OKC_API.G_RET_STS_ERROR',
4833: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4834: (
4835: l_api_name,
4836: G_PKG_NAME,
4837: 'OKC_API.G_RET_STS_ERROR',
4838: x_msg_count,
4839: x_msg_data,
4840: '_PVT'
4841: );
4838: x_msg_count,
4839: x_msg_data,
4840: '_PVT'
4841: );
4842: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4843: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4844: (
4845: l_api_name,
4846: G_PKG_NAME,
4839: x_msg_data,
4840: '_PVT'
4841: );
4842: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4843: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4844: (
4845: l_api_name,
4846: G_PKG_NAME,
4847: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4843: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4844: (
4845: l_api_name,
4846: G_PKG_NAME,
4847: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4848: x_msg_count,
4849: x_msg_data,
4850: '_PVT'
4851: );
4849: x_msg_data,
4850: '_PVT'
4851: );
4852: WHEN OTHERS THEN
4853: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4854: (
4855: l_api_name,
4856: G_PKG_NAME,
4857: 'OTHERS',
4864: -- update_row for:OKL_TXL_ASSETS_V --
4865: -------------------------------------
4866: PROCEDURE update_row(
4867: p_api_version IN NUMBER,
4868: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4869: x_return_status OUT NOCOPY VARCHAR2,
4870: x_msg_count OUT NOCOPY NUMBER,
4871: x_msg_data OUT NOCOPY VARCHAR2,
4872: p_talv_rec IN talv_rec_type,
4873: x_talv_rec OUT NOCOPY talv_rec_type) IS
4874:
4875: l_api_version CONSTANT NUMBER := 1;
4876: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
4877: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4878: l_talv_rec talv_rec_type := p_talv_rec;
4879: l_def_talv_rec talv_rec_type;
4880: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4881: lx_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4903: x_talv_rec OUT NOCOPY talv_rec_type
4904: ) RETURN VARCHAR2 IS
4905: l_talv_rec talv_rec_type;
4906: l_row_notfound BOOLEAN := TRUE;
4907: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4908: BEGIN
4909: x_talv_rec := p_talv_rec;
4910: -- Get current database values
4911: l_talv_rec := get_rec(p_talv_rec, l_row_notfound);
4909: x_talv_rec := p_talv_rec;
4910: -- Get current database values
4911: l_talv_rec := get_rec(p_talv_rec, l_row_notfound);
4912: IF (l_row_notfound) THEN
4913: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4914: END IF;
4915: IF (x_talv_rec.id = OKC_API.G_MISS_NUM)
4916: THEN
4917: x_talv_rec.id := l_talv_rec.id;
4911: l_talv_rec := get_rec(p_talv_rec, l_row_notfound);
4912: IF (l_row_notfound) THEN
4913: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4914: END IF;
4915: IF (x_talv_rec.id = OKC_API.G_MISS_NUM)
4916: THEN
4917: x_talv_rec.id := l_talv_rec.id;
4918: END IF;
4919: IF (x_talv_rec.object_version_number = OKC_API.G_MISS_NUM)
4915: IF (x_talv_rec.id = OKC_API.G_MISS_NUM)
4916: THEN
4917: x_talv_rec.id := l_talv_rec.id;
4918: END IF;
4919: IF (x_talv_rec.object_version_number = OKC_API.G_MISS_NUM)
4920: THEN
4921: x_talv_rec.object_version_number := l_talv_rec.object_version_number;
4922: END IF;
4923: IF (x_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4919: IF (x_talv_rec.object_version_number = OKC_API.G_MISS_NUM)
4920: THEN
4921: x_talv_rec.object_version_number := l_talv_rec.object_version_number;
4922: END IF;
4923: IF (x_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4924: THEN
4925: x_talv_rec.sfwt_flag := l_talv_rec.sfwt_flag;
4926: END IF;
4927: IF (x_talv_rec.tas_id = OKC_API.G_MISS_NUM)
4923: IF (x_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4924: THEN
4925: x_talv_rec.sfwt_flag := l_talv_rec.sfwt_flag;
4926: END IF;
4927: IF (x_talv_rec.tas_id = OKC_API.G_MISS_NUM)
4928: THEN
4929: x_talv_rec.tas_id := l_talv_rec.tas_id;
4930: END IF;
4931: IF (x_talv_rec.ilo_id = OKC_API.G_MISS_NUM)
4927: IF (x_talv_rec.tas_id = OKC_API.G_MISS_NUM)
4928: THEN
4929: x_talv_rec.tas_id := l_talv_rec.tas_id;
4930: END IF;
4931: IF (x_talv_rec.ilo_id = OKC_API.G_MISS_NUM)
4932: THEN
4933: x_talv_rec.ilo_id := l_talv_rec.ilo_id;
4934: END IF;
4935: IF (x_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4931: IF (x_talv_rec.ilo_id = OKC_API.G_MISS_NUM)
4932: THEN
4933: x_talv_rec.ilo_id := l_talv_rec.ilo_id;
4934: END IF;
4935: IF (x_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4936: THEN
4937: x_talv_rec.ilo_id_old := l_talv_rec.ilo_id_old;
4938: END IF;
4939: IF (x_talv_rec.iay_id = OKC_API.G_MISS_NUM)
4935: IF (x_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4936: THEN
4937: x_talv_rec.ilo_id_old := l_talv_rec.ilo_id_old;
4938: END IF;
4939: IF (x_talv_rec.iay_id = OKC_API.G_MISS_NUM)
4940: THEN
4941: x_talv_rec.iay_id := l_talv_rec.iay_id;
4942: END IF;
4943: IF (x_talv_rec.iay_id_new = OKC_API.G_MISS_NUM)
4939: IF (x_talv_rec.iay_id = OKC_API.G_MISS_NUM)
4940: THEN
4941: x_talv_rec.iay_id := l_talv_rec.iay_id;
4942: END IF;
4943: IF (x_talv_rec.iay_id_new = OKC_API.G_MISS_NUM)
4944: THEN
4945: x_talv_rec.iay_id_new := l_talv_rec.iay_id_new;
4946: END IF;
4947: IF (x_talv_rec.kle_id = OKC_API.G_MISS_NUM)
4943: IF (x_talv_rec.iay_id_new = OKC_API.G_MISS_NUM)
4944: THEN
4945: x_talv_rec.iay_id_new := l_talv_rec.iay_id_new;
4946: END IF;
4947: IF (x_talv_rec.kle_id = OKC_API.G_MISS_NUM)
4948: THEN
4949: x_talv_rec.kle_id := l_talv_rec.kle_id;
4950: END IF;
4951: IF (x_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4947: IF (x_talv_rec.kle_id = OKC_API.G_MISS_NUM)
4948: THEN
4949: x_talv_rec.kle_id := l_talv_rec.kle_id;
4950: END IF;
4951: IF (x_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4952: THEN
4953: x_talv_rec.dnz_khr_id := l_talv_rec.dnz_khr_id;
4954: END IF;
4955: IF (x_talv_rec.line_number = OKC_API.G_MISS_NUM)
4951: IF (x_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4952: THEN
4953: x_talv_rec.dnz_khr_id := l_talv_rec.dnz_khr_id;
4954: END IF;
4955: IF (x_talv_rec.line_number = OKC_API.G_MISS_NUM)
4956: THEN
4957: x_talv_rec.line_number := l_talv_rec.line_number;
4958: END IF;
4959: IF (x_talv_rec.org_id = OKC_API.G_MISS_NUM)
4955: IF (x_talv_rec.line_number = OKC_API.G_MISS_NUM)
4956: THEN
4957: x_talv_rec.line_number := l_talv_rec.line_number;
4958: END IF;
4959: IF (x_talv_rec.org_id = OKC_API.G_MISS_NUM)
4960: THEN
4961: x_talv_rec.org_id := l_talv_rec.org_id;
4962: END IF;
4963: IF (x_talv_rec.tal_type = OKC_API.G_MISS_CHAR)
4959: IF (x_talv_rec.org_id = OKC_API.G_MISS_NUM)
4960: THEN
4961: x_talv_rec.org_id := l_talv_rec.org_id;
4962: END IF;
4963: IF (x_talv_rec.tal_type = OKC_API.G_MISS_CHAR)
4964: THEN
4965: x_talv_rec.tal_type := l_talv_rec.tal_type;
4966: END IF;
4967: IF (x_talv_rec.asset_number = OKC_API.G_MISS_CHAR)
4963: IF (x_talv_rec.tal_type = OKC_API.G_MISS_CHAR)
4964: THEN
4965: x_talv_rec.tal_type := l_talv_rec.tal_type;
4966: END IF;
4967: IF (x_talv_rec.asset_number = OKC_API.G_MISS_CHAR)
4968: THEN
4969: x_talv_rec.asset_number := l_talv_rec.asset_number;
4970: END IF;
4971: IF (x_talv_rec.description = OKC_API.G_MISS_CHAR)
4967: IF (x_talv_rec.asset_number = OKC_API.G_MISS_CHAR)
4968: THEN
4969: x_talv_rec.asset_number := l_talv_rec.asset_number;
4970: END IF;
4971: IF (x_talv_rec.description = OKC_API.G_MISS_CHAR)
4972: THEN
4973: x_talv_rec.description := l_talv_rec.description;
4974: END IF;
4975: IF (x_talv_rec.fa_location_id = OKC_API.G_MISS_NUM)
4971: IF (x_talv_rec.description = OKC_API.G_MISS_CHAR)
4972: THEN
4973: x_talv_rec.description := l_talv_rec.description;
4974: END IF;
4975: IF (x_talv_rec.fa_location_id = OKC_API.G_MISS_NUM)
4976: THEN
4977: x_talv_rec.fa_location_id := l_talv_rec.fa_location_id;
4978: END IF;
4979: IF (x_talv_rec.original_cost = OKC_API.G_MISS_NUM)
4975: IF (x_talv_rec.fa_location_id = OKC_API.G_MISS_NUM)
4976: THEN
4977: x_talv_rec.fa_location_id := l_talv_rec.fa_location_id;
4978: END IF;
4979: IF (x_talv_rec.original_cost = OKC_API.G_MISS_NUM)
4980: THEN
4981: x_talv_rec.original_cost := l_talv_rec.original_cost;
4982: END IF;
4983: IF (x_talv_rec.current_units = OKC_API.G_MISS_NUM)
4979: IF (x_talv_rec.original_cost = OKC_API.G_MISS_NUM)
4980: THEN
4981: x_talv_rec.original_cost := l_talv_rec.original_cost;
4982: END IF;
4983: IF (x_talv_rec.current_units = OKC_API.G_MISS_NUM)
4984: THEN
4985: x_talv_rec.current_units := l_talv_rec.current_units;
4986: END IF;
4987: IF (x_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
4983: IF (x_talv_rec.current_units = OKC_API.G_MISS_NUM)
4984: THEN
4985: x_talv_rec.current_units := l_talv_rec.current_units;
4986: END IF;
4987: IF (x_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
4988: THEN
4989: x_talv_rec.manufacturer_name := l_talv_rec.manufacturer_name;
4990: END IF;
4991: IF (x_talv_rec.year_manufactured = OKC_API.G_MISS_NUM)
4987: IF (x_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
4988: THEN
4989: x_talv_rec.manufacturer_name := l_talv_rec.manufacturer_name;
4990: END IF;
4991: IF (x_talv_rec.year_manufactured = OKC_API.G_MISS_NUM)
4992: THEN
4993: x_talv_rec.year_manufactured := l_talv_rec.year_manufactured;
4994: END IF;
4995: IF (x_talv_rec.supplier_id = OKC_API.G_MISS_NUM)
4991: IF (x_talv_rec.year_manufactured = OKC_API.G_MISS_NUM)
4992: THEN
4993: x_talv_rec.year_manufactured := l_talv_rec.year_manufactured;
4994: END IF;
4995: IF (x_talv_rec.supplier_id = OKC_API.G_MISS_NUM)
4996: THEN
4997: x_talv_rec.supplier_id := l_talv_rec.supplier_id;
4998: END IF;
4999: IF (x_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
4995: IF (x_talv_rec.supplier_id = OKC_API.G_MISS_NUM)
4996: THEN
4997: x_talv_rec.supplier_id := l_talv_rec.supplier_id;
4998: END IF;
4999: IF (x_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
5000: THEN
5001: x_talv_rec.used_asset_yn := l_talv_rec.used_asset_yn;
5002: END IF;
5003: IF (x_talv_rec.tag_number = OKC_API.G_MISS_CHAR)
4999: IF (x_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
5000: THEN
5001: x_talv_rec.used_asset_yn := l_talv_rec.used_asset_yn;
5002: END IF;
5003: IF (x_talv_rec.tag_number = OKC_API.G_MISS_CHAR)
5004: THEN
5005: x_talv_rec.tag_number := l_talv_rec.tag_number;
5006: END IF;
5007: IF (x_talv_rec.model_number = OKC_API.G_MISS_CHAR)
5003: IF (x_talv_rec.tag_number = OKC_API.G_MISS_CHAR)
5004: THEN
5005: x_talv_rec.tag_number := l_talv_rec.tag_number;
5006: END IF;
5007: IF (x_talv_rec.model_number = OKC_API.G_MISS_CHAR)
5008: THEN
5009: x_talv_rec.model_number := l_talv_rec.model_number;
5010: END IF;
5011: IF (x_talv_rec.corporate_book = OKC_API.G_MISS_CHAR)
5007: IF (x_talv_rec.model_number = OKC_API.G_MISS_CHAR)
5008: THEN
5009: x_talv_rec.model_number := l_talv_rec.model_number;
5010: END IF;
5011: IF (x_talv_rec.corporate_book = OKC_API.G_MISS_CHAR)
5012: THEN
5013: x_talv_rec.corporate_book := l_talv_rec.corporate_book;
5014: END IF;
5015: IF (x_talv_rec.date_purchased = OKC_API.G_MISS_DATE)
5011: IF (x_talv_rec.corporate_book = OKC_API.G_MISS_CHAR)
5012: THEN
5013: x_talv_rec.corporate_book := l_talv_rec.corporate_book;
5014: END IF;
5015: IF (x_talv_rec.date_purchased = OKC_API.G_MISS_DATE)
5016: THEN
5017: x_talv_rec.date_purchased := l_talv_rec.date_purchased;
5018: END IF;
5019: IF (x_talv_rec.date_delivery = OKC_API.G_MISS_DATE)
5015: IF (x_talv_rec.date_purchased = OKC_API.G_MISS_DATE)
5016: THEN
5017: x_talv_rec.date_purchased := l_talv_rec.date_purchased;
5018: END IF;
5019: IF (x_talv_rec.date_delivery = OKC_API.G_MISS_DATE)
5020: THEN
5021: x_talv_rec.date_delivery := l_talv_rec.date_delivery;
5022: END IF;
5023: IF (x_talv_rec.in_service_date = OKC_API.G_MISS_DATE)
5019: IF (x_talv_rec.date_delivery = OKC_API.G_MISS_DATE)
5020: THEN
5021: x_talv_rec.date_delivery := l_talv_rec.date_delivery;
5022: END IF;
5023: IF (x_talv_rec.in_service_date = OKC_API.G_MISS_DATE)
5024: THEN
5025: x_talv_rec.in_service_date := l_talv_rec.in_service_date;
5026: END IF;
5027: IF (x_talv_rec.life_in_months = OKC_API.G_MISS_NUM)
5023: IF (x_talv_rec.in_service_date = OKC_API.G_MISS_DATE)
5024: THEN
5025: x_talv_rec.in_service_date := l_talv_rec.in_service_date;
5026: END IF;
5027: IF (x_talv_rec.life_in_months = OKC_API.G_MISS_NUM)
5028: THEN
5029: x_talv_rec.life_in_months := l_talv_rec.life_in_months;
5030: END IF;
5031: IF (x_talv_rec.depreciation_id = OKC_API.G_MISS_NUM)
5027: IF (x_talv_rec.life_in_months = OKC_API.G_MISS_NUM)
5028: THEN
5029: x_talv_rec.life_in_months := l_talv_rec.life_in_months;
5030: END IF;
5031: IF (x_talv_rec.depreciation_id = OKC_API.G_MISS_NUM)
5032: THEN
5033: x_talv_rec.depreciation_id := l_talv_rec.depreciation_id;
5034: END IF;
5035: IF (x_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM)
5031: IF (x_talv_rec.depreciation_id = OKC_API.G_MISS_NUM)
5032: THEN
5033: x_talv_rec.depreciation_id := l_talv_rec.depreciation_id;
5034: END IF;
5035: IF (x_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM)
5036: THEN
5037: x_talv_rec.depreciation_cost := l_talv_rec.depreciation_cost;
5038: END IF;
5039: IF (x_talv_rec.deprn_method = OKC_API.G_MISS_CHAR)
5035: IF (x_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM)
5036: THEN
5037: x_talv_rec.depreciation_cost := l_talv_rec.depreciation_cost;
5038: END IF;
5039: IF (x_talv_rec.deprn_method = OKC_API.G_MISS_CHAR)
5040: THEN
5041: x_talv_rec.deprn_method := l_talv_rec.deprn_method;
5042: END IF;
5043: IF (x_talv_rec.deprn_rate = OKC_API.G_MISS_NUM)
5039: IF (x_talv_rec.deprn_method = OKC_API.G_MISS_CHAR)
5040: THEN
5041: x_talv_rec.deprn_method := l_talv_rec.deprn_method;
5042: END IF;
5043: IF (x_talv_rec.deprn_rate = OKC_API.G_MISS_NUM)
5044: THEN
5045: x_talv_rec.deprn_rate := l_talv_rec.deprn_rate;
5046: END IF;
5047: IF (x_talv_rec.salvage_value = OKC_API.G_MISS_NUM)
5043: IF (x_talv_rec.deprn_rate = OKC_API.G_MISS_NUM)
5044: THEN
5045: x_talv_rec.deprn_rate := l_talv_rec.deprn_rate;
5046: END IF;
5047: IF (x_talv_rec.salvage_value = OKC_API.G_MISS_NUM)
5048: THEN
5049: x_talv_rec.salvage_value := l_talv_rec.salvage_value;
5050: END IF;
5051: IF (x_talv_rec.percent_salvage_value = OKC_API.G_MISS_NUM)
5047: IF (x_talv_rec.salvage_value = OKC_API.G_MISS_NUM)
5048: THEN
5049: x_talv_rec.salvage_value := l_talv_rec.salvage_value;
5050: END IF;
5051: IF (x_talv_rec.percent_salvage_value = OKC_API.G_MISS_NUM)
5052: THEN
5053: x_talv_rec.percent_salvage_value := l_talv_rec.percent_salvage_value;
5054: END IF;
5055: --Bug# 2981308
5057: THEN
5058: x_talv_rec.asset_key_id := l_talv_rec.asset_key_id;
5059: END IF;
5060: -- Bug# 4028371
5061: IF (x_talv_rec.fa_trx_date = OKC_API.G_MISS_DATE)
5062: THEN
5063: x_talv_rec.fa_trx_date := l_talv_rec.fa_trx_date;
5064: END IF;
5065: --Bug# 4899328
5066: IF (x_talv_rec.fa_cost = OKL_API.G_MISS_NUM)
5067: THEN
5068: x_talv_rec.fa_cost := l_talv_rec.fa_cost;
5069: END IF;
5070: IF (x_talv_rec.attribute_category = OKC_API.G_MISS_CHAR)
5071: THEN
5072: x_talv_rec.attribute_category := l_talv_rec.attribute_category;
5073: END IF;
5074: IF (x_talv_rec.attribute1 = OKC_API.G_MISS_CHAR)
5070: IF (x_talv_rec.attribute_category = OKC_API.G_MISS_CHAR)
5071: THEN
5072: x_talv_rec.attribute_category := l_talv_rec.attribute_category;
5073: END IF;
5074: IF (x_talv_rec.attribute1 = OKC_API.G_MISS_CHAR)
5075: THEN
5076: x_talv_rec.attribute1 := l_talv_rec.attribute1;
5077: END IF;
5078: IF (x_talv_rec.attribute2 = OKC_API.G_MISS_CHAR)
5074: IF (x_talv_rec.attribute1 = OKC_API.G_MISS_CHAR)
5075: THEN
5076: x_talv_rec.attribute1 := l_talv_rec.attribute1;
5077: END IF;
5078: IF (x_talv_rec.attribute2 = OKC_API.G_MISS_CHAR)
5079: THEN
5080: x_talv_rec.attribute2 := l_talv_rec.attribute2;
5081: END IF;
5082: IF (x_talv_rec.attribute3 = OKC_API.G_MISS_CHAR)
5078: IF (x_talv_rec.attribute2 = OKC_API.G_MISS_CHAR)
5079: THEN
5080: x_talv_rec.attribute2 := l_talv_rec.attribute2;
5081: END IF;
5082: IF (x_talv_rec.attribute3 = OKC_API.G_MISS_CHAR)
5083: THEN
5084: x_talv_rec.attribute3 := l_talv_rec.attribute3;
5085: END IF;
5086: IF (x_talv_rec.attribute4 = OKC_API.G_MISS_CHAR)
5082: IF (x_talv_rec.attribute3 = OKC_API.G_MISS_CHAR)
5083: THEN
5084: x_talv_rec.attribute3 := l_talv_rec.attribute3;
5085: END IF;
5086: IF (x_talv_rec.attribute4 = OKC_API.G_MISS_CHAR)
5087: THEN
5088: x_talv_rec.attribute4 := l_talv_rec.attribute4;
5089: END IF;
5090: IF (x_talv_rec.attribute5 = OKC_API.G_MISS_CHAR)
5086: IF (x_talv_rec.attribute4 = OKC_API.G_MISS_CHAR)
5087: THEN
5088: x_talv_rec.attribute4 := l_talv_rec.attribute4;
5089: END IF;
5090: IF (x_talv_rec.attribute5 = OKC_API.G_MISS_CHAR)
5091: THEN
5092: x_talv_rec.attribute5 := l_talv_rec.attribute5;
5093: END IF;
5094: IF (x_talv_rec.attribute6 = OKC_API.G_MISS_CHAR)
5090: IF (x_talv_rec.attribute5 = OKC_API.G_MISS_CHAR)
5091: THEN
5092: x_talv_rec.attribute5 := l_talv_rec.attribute5;
5093: END IF;
5094: IF (x_talv_rec.attribute6 = OKC_API.G_MISS_CHAR)
5095: THEN
5096: x_talv_rec.attribute6 := l_talv_rec.attribute6;
5097: END IF;
5098: IF (x_talv_rec.attribute7 = OKC_API.G_MISS_CHAR)
5094: IF (x_talv_rec.attribute6 = OKC_API.G_MISS_CHAR)
5095: THEN
5096: x_talv_rec.attribute6 := l_talv_rec.attribute6;
5097: END IF;
5098: IF (x_talv_rec.attribute7 = OKC_API.G_MISS_CHAR)
5099: THEN
5100: x_talv_rec.attribute7 := l_talv_rec.attribute7;
5101: END IF;
5102: IF (x_talv_rec.attribute8 = OKC_API.G_MISS_CHAR)
5098: IF (x_talv_rec.attribute7 = OKC_API.G_MISS_CHAR)
5099: THEN
5100: x_talv_rec.attribute7 := l_talv_rec.attribute7;
5101: END IF;
5102: IF (x_talv_rec.attribute8 = OKC_API.G_MISS_CHAR)
5103: THEN
5104: x_talv_rec.attribute8 := l_talv_rec.attribute8;
5105: END IF;
5106: IF (x_talv_rec.attribute9 = OKC_API.G_MISS_CHAR)
5102: IF (x_talv_rec.attribute8 = OKC_API.G_MISS_CHAR)
5103: THEN
5104: x_talv_rec.attribute8 := l_talv_rec.attribute8;
5105: END IF;
5106: IF (x_talv_rec.attribute9 = OKC_API.G_MISS_CHAR)
5107: THEN
5108: x_talv_rec.attribute9 := l_talv_rec.attribute9;
5109: END IF;
5110: IF (x_talv_rec.attribute10 = OKC_API.G_MISS_CHAR)
5106: IF (x_talv_rec.attribute9 = OKC_API.G_MISS_CHAR)
5107: THEN
5108: x_talv_rec.attribute9 := l_talv_rec.attribute9;
5109: END IF;
5110: IF (x_talv_rec.attribute10 = OKC_API.G_MISS_CHAR)
5111: THEN
5112: x_talv_rec.attribute10 := l_talv_rec.attribute10;
5113: END IF;
5114: IF (x_talv_rec.attribute11 = OKC_API.G_MISS_CHAR)
5110: IF (x_talv_rec.attribute10 = OKC_API.G_MISS_CHAR)
5111: THEN
5112: x_talv_rec.attribute10 := l_talv_rec.attribute10;
5113: END IF;
5114: IF (x_talv_rec.attribute11 = OKC_API.G_MISS_CHAR)
5115: THEN
5116: x_talv_rec.attribute11 := l_talv_rec.attribute11;
5117: END IF;
5118: IF (x_talv_rec.attribute12 = OKC_API.G_MISS_CHAR)
5114: IF (x_talv_rec.attribute11 = OKC_API.G_MISS_CHAR)
5115: THEN
5116: x_talv_rec.attribute11 := l_talv_rec.attribute11;
5117: END IF;
5118: IF (x_talv_rec.attribute12 = OKC_API.G_MISS_CHAR)
5119: THEN
5120: x_talv_rec.attribute12 := l_talv_rec.attribute12;
5121: END IF;
5122: IF (x_talv_rec.attribute13 = OKC_API.G_MISS_CHAR)
5118: IF (x_talv_rec.attribute12 = OKC_API.G_MISS_CHAR)
5119: THEN
5120: x_talv_rec.attribute12 := l_talv_rec.attribute12;
5121: END IF;
5122: IF (x_talv_rec.attribute13 = OKC_API.G_MISS_CHAR)
5123: THEN
5124: x_talv_rec.attribute13 := l_talv_rec.attribute13;
5125: END IF;
5126: IF (x_talv_rec.attribute14 = OKC_API.G_MISS_CHAR)
5122: IF (x_talv_rec.attribute13 = OKC_API.G_MISS_CHAR)
5123: THEN
5124: x_talv_rec.attribute13 := l_talv_rec.attribute13;
5125: END IF;
5126: IF (x_talv_rec.attribute14 = OKC_API.G_MISS_CHAR)
5127: THEN
5128: x_talv_rec.attribute14 := l_talv_rec.attribute14;
5129: END IF;
5130: IF (x_talv_rec.attribute15 = OKC_API.G_MISS_CHAR)
5126: IF (x_talv_rec.attribute14 = OKC_API.G_MISS_CHAR)
5127: THEN
5128: x_talv_rec.attribute14 := l_talv_rec.attribute14;
5129: END IF;
5130: IF (x_talv_rec.attribute15 = OKC_API.G_MISS_CHAR)
5131: THEN
5132: x_talv_rec.attribute15 := l_talv_rec.attribute15;
5133: END IF;
5134: IF (x_talv_rec.created_by = OKC_API.G_MISS_NUM)
5130: IF (x_talv_rec.attribute15 = OKC_API.G_MISS_CHAR)
5131: THEN
5132: x_talv_rec.attribute15 := l_talv_rec.attribute15;
5133: END IF;
5134: IF (x_talv_rec.created_by = OKC_API.G_MISS_NUM)
5135: THEN
5136: x_talv_rec.created_by := l_talv_rec.created_by;
5137: END IF;
5138: IF (x_talv_rec.creation_date = OKC_API.G_MISS_DATE)
5134: IF (x_talv_rec.created_by = OKC_API.G_MISS_NUM)
5135: THEN
5136: x_talv_rec.created_by := l_talv_rec.created_by;
5137: END IF;
5138: IF (x_talv_rec.creation_date = OKC_API.G_MISS_DATE)
5139: THEN
5140: x_talv_rec.creation_date := l_talv_rec.creation_date;
5141: END IF;
5142: IF (x_talv_rec.last_updated_by = OKC_API.G_MISS_NUM)
5138: IF (x_talv_rec.creation_date = OKC_API.G_MISS_DATE)
5139: THEN
5140: x_talv_rec.creation_date := l_talv_rec.creation_date;
5141: END IF;
5142: IF (x_talv_rec.last_updated_by = OKC_API.G_MISS_NUM)
5143: THEN
5144: x_talv_rec.last_updated_by := l_talv_rec.last_updated_by;
5145: END IF;
5146: IF (x_talv_rec.last_update_date = OKC_API.G_MISS_DATE)
5142: IF (x_talv_rec.last_updated_by = OKC_API.G_MISS_NUM)
5143: THEN
5144: x_talv_rec.last_updated_by := l_talv_rec.last_updated_by;
5145: END IF;
5146: IF (x_talv_rec.last_update_date = OKC_API.G_MISS_DATE)
5147: THEN
5148: x_talv_rec.last_update_date := l_talv_rec.last_update_date;
5149: END IF;
5150: IF (x_talv_rec.last_update_login = OKC_API.G_MISS_NUM)
5146: IF (x_talv_rec.last_update_date = OKC_API.G_MISS_DATE)
5147: THEN
5148: x_talv_rec.last_update_date := l_talv_rec.last_update_date;
5149: END IF;
5150: IF (x_talv_rec.last_update_login = OKC_API.G_MISS_NUM)
5151: THEN
5152: x_talv_rec.last_update_login := l_talv_rec.last_update_login;
5153: END IF;
5154: IF (x_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
5150: IF (x_talv_rec.last_update_login = OKC_API.G_MISS_NUM)
5151: THEN
5152: x_talv_rec.last_update_login := l_talv_rec.last_update_login;
5153: END IF;
5154: IF (x_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
5155: THEN
5156: x_talv_rec.depreciate_yn := l_talv_rec.depreciate_yn;
5157: END IF;
5158: IF (x_talv_rec.hold_period_days = OKC_API.G_MISS_NUM)
5154: IF (x_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
5155: THEN
5156: x_talv_rec.depreciate_yn := l_talv_rec.depreciate_yn;
5157: END IF;
5158: IF (x_talv_rec.hold_period_days = OKC_API.G_MISS_NUM)
5159: THEN
5160: x_talv_rec.hold_period_days := l_talv_rec.hold_period_days;
5161: END IF;
5162: IF (x_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM)
5158: IF (x_talv_rec.hold_period_days = OKC_API.G_MISS_NUM)
5159: THEN
5160: x_talv_rec.hold_period_days := l_talv_rec.hold_period_days;
5161: END IF;
5162: IF (x_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM)
5163: THEN
5164: x_talv_rec.old_salvage_value := l_talv_rec.old_salvage_value;
5165: END IF;
5166: IF (x_talv_rec.new_residual_value = OKC_API.G_MISS_NUM)
5162: IF (x_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM)
5163: THEN
5164: x_talv_rec.old_salvage_value := l_talv_rec.old_salvage_value;
5165: END IF;
5166: IF (x_talv_rec.new_residual_value = OKC_API.G_MISS_NUM)
5167: THEN
5168: x_talv_rec.new_residual_value := l_talv_rec.new_residual_value;
5169: END IF;
5170: IF (x_talv_rec.old_residual_value = OKC_API.G_MISS_NUM)
5166: IF (x_talv_rec.new_residual_value = OKC_API.G_MISS_NUM)
5167: THEN
5168: x_talv_rec.new_residual_value := l_talv_rec.new_residual_value;
5169: END IF;
5170: IF (x_talv_rec.old_residual_value = OKC_API.G_MISS_NUM)
5171: THEN
5172: x_talv_rec.old_residual_value := l_talv_rec.old_residual_value;
5173: END IF;
5174: IF (x_talv_rec.units_retired = OKC_API.G_MISS_NUM)
5170: IF (x_talv_rec.old_residual_value = OKC_API.G_MISS_NUM)
5171: THEN
5172: x_talv_rec.old_residual_value := l_talv_rec.old_residual_value;
5173: END IF;
5174: IF (x_talv_rec.units_retired = OKC_API.G_MISS_NUM)
5175: THEN
5176: x_talv_rec.units_retired := l_talv_rec.units_retired;
5177: END IF;
5178: IF (x_talv_rec.cost_retired = OKC_API.G_MISS_NUM)
5174: IF (x_talv_rec.units_retired = OKC_API.G_MISS_NUM)
5175: THEN
5176: x_talv_rec.units_retired := l_talv_rec.units_retired;
5177: END IF;
5178: IF (x_talv_rec.cost_retired = OKC_API.G_MISS_NUM)
5179: THEN
5180: x_talv_rec.cost_retired := l_talv_rec.cost_retired;
5181: END IF;
5182: IF (x_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM)
5178: IF (x_talv_rec.cost_retired = OKC_API.G_MISS_NUM)
5179: THEN
5180: x_talv_rec.cost_retired := l_talv_rec.cost_retired;
5181: END IF;
5182: IF (x_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM)
5183: THEN
5184: x_talv_rec.sale_proceeds := l_talv_rec.sale_proceeds;
5185: END IF;
5186: IF (x_talv_rec.removal_cost = OKC_API.G_MISS_NUM)
5182: IF (x_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM)
5183: THEN
5184: x_talv_rec.sale_proceeds := l_talv_rec.sale_proceeds;
5185: END IF;
5186: IF (x_talv_rec.removal_cost = OKC_API.G_MISS_NUM)
5187: THEN
5188: x_talv_rec.removal_cost := l_talv_rec.removal_cost;
5189: END IF;
5190: IF (x_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
5186: IF (x_talv_rec.removal_cost = OKC_API.G_MISS_NUM)
5187: THEN
5188: x_talv_rec.removal_cost := l_talv_rec.removal_cost;
5189: END IF;
5190: IF (x_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
5191: THEN
5192: x_talv_rec.dnz_asset_id := l_talv_rec.dnz_asset_id;
5193: END IF;
5194: IF (x_talv_rec.date_due = OKC_API.G_MISS_DATE)
5190: IF (x_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
5191: THEN
5192: x_talv_rec.dnz_asset_id := l_talv_rec.dnz_asset_id;
5193: END IF;
5194: IF (x_talv_rec.date_due = OKC_API.G_MISS_DATE)
5195: THEN
5196: x_talv_rec.date_due := l_talv_rec.date_due;
5197: END IF;
5198: IF (x_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM)
5194: IF (x_talv_rec.date_due = OKC_API.G_MISS_DATE)
5195: THEN
5196: x_talv_rec.date_due := l_talv_rec.date_due;
5197: END IF;
5198: IF (x_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM)
5199: THEN
5200: x_talv_rec.rep_asset_id := l_talv_rec.rep_asset_id;
5201: END IF;
5202: IF (x_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM)
5198: IF (x_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM)
5199: THEN
5200: x_talv_rec.rep_asset_id := l_talv_rec.rep_asset_id;
5201: END IF;
5202: IF (x_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM)
5203: THEN
5204: x_talv_rec.lke_asset_id := l_talv_rec.lke_asset_id;
5205: END IF;
5206: IF (x_talv_rec.match_amount = OKC_API.G_MISS_NUM)
5202: IF (x_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM)
5203: THEN
5204: x_talv_rec.lke_asset_id := l_talv_rec.lke_asset_id;
5205: END IF;
5206: IF (x_talv_rec.match_amount = OKC_API.G_MISS_NUM)
5207: THEN
5208: x_talv_rec.match_amount := l_talv_rec.match_amount;
5209: END IF;
5210: IF (x_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
5206: IF (x_talv_rec.match_amount = OKC_API.G_MISS_NUM)
5207: THEN
5208: x_talv_rec.match_amount := l_talv_rec.match_amount;
5209: END IF;
5210: IF (x_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
5211: THEN
5212: x_talv_rec.split_into_singles_flag := l_talv_rec.split_into_singles_flag;
5213: END IF;
5214: IF (x_talv_rec.split_into_units = OKC_API.G_MISS_NUM)
5210: IF (x_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
5211: THEN
5212: x_talv_rec.split_into_singles_flag := l_talv_rec.split_into_singles_flag;
5213: END IF;
5214: IF (x_talv_rec.split_into_units = OKC_API.G_MISS_NUM)
5215: THEN
5216: x_talv_rec.split_into_units := l_talv_rec.split_into_units;
5217: END IF;
5218:
5216: x_talv_rec.split_into_units := l_talv_rec.split_into_units;
5217: END IF;
5218:
5219: -- Multi Currency Change
5220: IF (x_talv_rec.currency_code = OKC_API.G_MISS_CHAR)
5221: THEN
5222: x_talv_rec.currency_code := l_talv_rec.currency_code;
5223: END IF;
5224: IF (x_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
5220: IF (x_talv_rec.currency_code = OKC_API.G_MISS_CHAR)
5221: THEN
5222: x_talv_rec.currency_code := l_talv_rec.currency_code;
5223: END IF;
5224: IF (x_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
5225: THEN
5226: x_talv_rec.currency_conversion_type := l_talv_rec.currency_conversion_type;
5227: END IF;
5228: IF (x_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
5224: IF (x_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
5225: THEN
5226: x_talv_rec.currency_conversion_type := l_talv_rec.currency_conversion_type;
5227: END IF;
5228: IF (x_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
5229: THEN
5230: x_talv_rec.currency_conversion_rate := l_talv_rec.currency_conversion_rate;
5231: END IF;
5232: IF (x_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
5228: IF (x_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
5229: THEN
5230: x_talv_rec.currency_conversion_rate := l_talv_rec.currency_conversion_rate;
5231: END IF;
5232: IF (x_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
5233: THEN
5234: x_talv_rec.currency_conversion_date := l_talv_rec.currency_conversion_date;
5235: END IF;
5236: -- Multi Currency Change
5235: END IF;
5236: -- Multi Currency Change
5237:
5238: -- VRS Project - START
5239: IF (x_talv_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM)
5240: THEN
5241: x_talv_rec.RESIDUAL_SHR_PARTY_ID := l_talv_rec.RESIDUAL_SHR_PARTY_ID;
5242: END IF;
5243: IF (x_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM)
5239: IF (x_talv_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM)
5240: THEN
5241: x_talv_rec.RESIDUAL_SHR_PARTY_ID := l_talv_rec.RESIDUAL_SHR_PARTY_ID;
5242: END IF;
5243: IF (x_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM)
5244: THEN
5245: x_talv_rec.RESIDUAL_SHR_AMOUNT := l_talv_rec.RESIDUAL_SHR_AMOUNT;
5246: END IF;
5247: IF (x_talv_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM)
5243: IF (x_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM)
5244: THEN
5245: x_talv_rec.RESIDUAL_SHR_AMOUNT := l_talv_rec.RESIDUAL_SHR_AMOUNT;
5246: END IF;
5247: IF (x_talv_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM)
5248: THEN
5249: x_talv_rec.RETIREMENT_ID := l_talv_rec.RETIREMENT_ID;
5250: END IF;
5251: -- VRS Project - END
5258: FUNCTION Set_Attributes (
5259: p_talv_rec IN talv_rec_type,
5260: x_talv_rec OUT NOCOPY talv_rec_type
5261: ) RETURN VARCHAR2 IS
5262: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5263: BEGIN
5264: x_talv_rec := p_talv_rec;
5265: x_talv_rec.OBJECT_VERSION_NUMBER := NVL(x_talv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
5266: RETURN(l_return_status);
5265: x_talv_rec.OBJECT_VERSION_NUMBER := NVL(x_talv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
5266: RETURN(l_return_status);
5267: END Set_Attributes;
5268: BEGIN
5269: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5270: G_PKG_NAME,
5271: p_init_msg_list,
5272: l_api_version,
5273: p_api_version,
5272: l_api_version,
5273: p_api_version,
5274: '_PVT',
5275: x_return_status);
5276: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5277: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5278: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5279: RAISE OKC_API.G_EXCEPTION_ERROR;
5280: END IF;
5273: p_api_version,
5274: '_PVT',
5275: x_return_status);
5276: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5277: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5278: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5279: RAISE OKC_API.G_EXCEPTION_ERROR;
5280: END IF;
5281: --- Setting item attributes
5274: '_PVT',
5275: x_return_status);
5276: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5277: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5278: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5279: RAISE OKC_API.G_EXCEPTION_ERROR;
5280: END IF;
5281: --- Setting item attributes
5282: l_return_status := Set_Attributes(
5275: x_return_status);
5276: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5277: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5278: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5279: RAISE OKC_API.G_EXCEPTION_ERROR;
5280: END IF;
5281: --- Setting item attributes
5282: l_return_status := Set_Attributes(
5283: p_talv_rec, -- IN
5282: l_return_status := Set_Attributes(
5283: p_talv_rec, -- IN
5284: l_talv_rec); -- OUT
5285: --- If any errors happen abort API
5286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5289: RAISE OKC_API.G_EXCEPTION_ERROR;
5290: END IF;
5283: p_talv_rec, -- IN
5284: l_talv_rec); -- OUT
5285: --- If any errors happen abort API
5286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5289: RAISE OKC_API.G_EXCEPTION_ERROR;
5290: END IF;
5291: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5284: l_talv_rec); -- OUT
5285: --- If any errors happen abort API
5286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5289: RAISE OKC_API.G_EXCEPTION_ERROR;
5290: END IF;
5291: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5292: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5285: --- If any errors happen abort API
5286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5289: RAISE OKC_API.G_EXCEPTION_ERROR;
5290: END IF;
5291: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5292: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5293: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5289: RAISE OKC_API.G_EXCEPTION_ERROR;
5290: END IF;
5291: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5292: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5293: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5294: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5295: RAISE OKC_API.G_EXCEPTION_ERROR;
5296: END IF;
5289: RAISE OKC_API.G_EXCEPTION_ERROR;
5290: END IF;
5291: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5292: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5293: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5294: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5295: RAISE OKC_API.G_EXCEPTION_ERROR;
5296: END IF;
5297: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
5290: END IF;
5291: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5292: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5293: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5294: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5295: RAISE OKC_API.G_EXCEPTION_ERROR;
5296: END IF;
5297: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
5298: --- Validate all non-missing attributes (Item Level Validation)
5291: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5292: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5293: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5294: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5295: RAISE OKC_API.G_EXCEPTION_ERROR;
5296: END IF;
5297: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
5298: --- Validate all non-missing attributes (Item Level Validation)
5299: l_return_status := Validate_Attributes(l_def_talv_rec);
5297: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
5298: --- Validate all non-missing attributes (Item Level Validation)
5299: l_return_status := Validate_Attributes(l_def_talv_rec);
5300: --- If any errors happen abort API
5301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5303: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5304: RAISE OKC_API.G_EXCEPTION_ERROR;
5305: END IF;
5298: --- Validate all non-missing attributes (Item Level Validation)
5299: l_return_status := Validate_Attributes(l_def_talv_rec);
5300: --- If any errors happen abort API
5301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5303: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5304: RAISE OKC_API.G_EXCEPTION_ERROR;
5305: END IF;
5306: l_return_status := Validate_Record(l_def_talv_rec);
5299: l_return_status := Validate_Attributes(l_def_talv_rec);
5300: --- If any errors happen abort API
5301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5303: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5304: RAISE OKC_API.G_EXCEPTION_ERROR;
5305: END IF;
5306: l_return_status := Validate_Record(l_def_talv_rec);
5307: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5300: --- If any errors happen abort API
5301: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5303: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5304: RAISE OKC_API.G_EXCEPTION_ERROR;
5305: END IF;
5306: l_return_status := Validate_Record(l_def_talv_rec);
5307: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5303: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5304: RAISE OKC_API.G_EXCEPTION_ERROR;
5305: END IF;
5306: l_return_status := Validate_Record(l_def_talv_rec);
5307: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5310: RAISE OKC_API.G_EXCEPTION_ERROR;
5311: END IF;
5304: RAISE OKC_API.G_EXCEPTION_ERROR;
5305: END IF;
5306: l_return_status := Validate_Record(l_def_talv_rec);
5307: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5310: RAISE OKC_API.G_EXCEPTION_ERROR;
5311: END IF;
5312:
5305: END IF;
5306: l_return_status := Validate_Record(l_def_talv_rec);
5307: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5310: RAISE OKC_API.G_EXCEPTION_ERROR;
5311: END IF;
5312:
5313: --
5306: l_return_status := Validate_Record(l_def_talv_rec);
5307: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5310: RAISE OKC_API.G_EXCEPTION_ERROR;
5311: END IF;
5312:
5313: --
5314: -- Multi-Currency Change, dedey, 12/04/2002
5318: p_talv_rec => l_def_talv_rec,
5319: x_talv_rec => lx_temp_talv_rec
5320: );
5321:
5322: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5323: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5324: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5325: RAISE OKC_API.G_EXCEPTION_ERROR;
5326: END IF;
5319: x_talv_rec => lx_temp_talv_rec
5320: );
5321:
5322: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5323: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5324: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5325: RAISE OKC_API.G_EXCEPTION_ERROR;
5326: END IF;
5327: l_def_talv_rec := lx_temp_talv_rec;
5320: );
5321:
5322: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5323: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5324: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5325: RAISE OKC_API.G_EXCEPTION_ERROR;
5326: END IF;
5327: l_def_talv_rec := lx_temp_talv_rec;
5328:
5321:
5322: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5323: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5324: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5325: RAISE OKC_API.G_EXCEPTION_ERROR;
5326: END IF;
5327: l_def_talv_rec := lx_temp_talv_rec;
5328:
5329: --dbms_output.put_line('After Change: '||lx_temp_talv_rec.currency_code);
5344: p_talv_rec => l_def_talv_rec,
5345: x_talv_rec => lx_temp_talv_rec
5346: );
5347:
5348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5351: RAISE OKC_API.G_EXCEPTION_ERROR;
5352: END IF;
5345: x_talv_rec => lx_temp_talv_rec
5346: );
5347:
5348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5351: RAISE OKC_API.G_EXCEPTION_ERROR;
5352: END IF;
5353: l_def_talv_rec := lx_temp_talv_rec;
5346: );
5347:
5348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5351: RAISE OKC_API.G_EXCEPTION_ERROR;
5352: END IF;
5353: l_def_talv_rec := lx_temp_talv_rec;
5354:
5347:
5348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5351: RAISE OKC_API.G_EXCEPTION_ERROR;
5352: END IF;
5353: l_def_talv_rec := lx_temp_talv_rec;
5354:
5355: --dbms_output.put_line('After Change Orig cost: '||lx_temp_talv_rec.original_cost);
5370: x_msg_data,
5371: l_okl_txl_assets_tl_rec,
5372: lx_okl_txl_assets_tl_rec
5373: );
5374: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5376: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5377: RAISE OKC_API.G_EXCEPTION_ERROR;
5378: END IF;
5371: l_okl_txl_assets_tl_rec,
5372: lx_okl_txl_assets_tl_rec
5373: );
5374: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5376: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5377: RAISE OKC_API.G_EXCEPTION_ERROR;
5378: END IF;
5379: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
5372: lx_okl_txl_assets_tl_rec
5373: );
5374: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5376: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5377: RAISE OKC_API.G_EXCEPTION_ERROR;
5378: END IF;
5379: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
5380: update_row(
5373: );
5374: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5376: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5377: RAISE OKC_API.G_EXCEPTION_ERROR;
5378: END IF;
5379: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
5380: update_row(
5381: p_init_msg_list,
5384: x_msg_data,
5385: l_tal_rec,
5386: lx_tal_rec
5387: );
5388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_ERROR;
5392: END IF;
5385: l_tal_rec,
5386: lx_tal_rec
5387: );
5388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_ERROR;
5392: END IF;
5393: migrate(lx_tal_rec, l_def_talv_rec);
5386: lx_tal_rec
5387: );
5388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_ERROR;
5392: END IF;
5393: migrate(lx_tal_rec, l_def_talv_rec);
5394: x_talv_rec := l_def_talv_rec;
5387: );
5388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_ERROR;
5392: END IF;
5393: migrate(lx_tal_rec, l_def_talv_rec);
5394: x_talv_rec := l_def_talv_rec;
5395: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5391: RAISE OKC_API.G_EXCEPTION_ERROR;
5392: END IF;
5393: migrate(lx_tal_rec, l_def_talv_rec);
5394: x_talv_rec := l_def_talv_rec;
5395: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5396: EXCEPTION
5397: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5399: (
5393: migrate(lx_tal_rec, l_def_talv_rec);
5394: x_talv_rec := l_def_talv_rec;
5395: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5396: EXCEPTION
5397: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5399: (
5400: l_api_name,
5401: G_PKG_NAME,
5394: x_talv_rec := l_def_talv_rec;
5395: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5396: EXCEPTION
5397: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5399: (
5400: l_api_name,
5401: G_PKG_NAME,
5402: 'OKC_API.G_RET_STS_ERROR',
5398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5399: (
5400: l_api_name,
5401: G_PKG_NAME,
5402: 'OKC_API.G_RET_STS_ERROR',
5403: x_msg_count,
5404: x_msg_data,
5405: '_PVT'
5406: );
5403: x_msg_count,
5404: x_msg_data,
5405: '_PVT'
5406: );
5407: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5408: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5409: (
5410: l_api_name,
5411: G_PKG_NAME,
5404: x_msg_data,
5405: '_PVT'
5406: );
5407: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5408: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5409: (
5410: l_api_name,
5411: G_PKG_NAME,
5412: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5408: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5409: (
5410: l_api_name,
5411: G_PKG_NAME,
5412: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5413: x_msg_count,
5414: x_msg_data,
5415: '_PVT'
5416: );
5414: x_msg_data,
5415: '_PVT'
5416: );
5417: WHEN OTHERS THEN
5418: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5419: (
5420: l_api_name,
5421: G_PKG_NAME,
5422: 'OTHERS',
5429: -- PL/SQL TBL update_row for:TALV_TBL --
5430: ----------------------------------------
5431: PROCEDURE update_row(
5432: p_api_version IN NUMBER,
5433: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5434: x_return_status OUT NOCOPY VARCHAR2,
5435: x_msg_count OUT NOCOPY NUMBER,
5436: x_msg_data OUT NOCOPY VARCHAR2,
5437: p_talv_tbl IN talv_tbl_type,
5438: x_talv_tbl OUT NOCOPY talv_tbl_type) IS
5439:
5440: l_api_version CONSTANT NUMBER := 1;
5441: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
5442: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5443: i NUMBER := 0;
5444: BEGIN
5445: OKC_API.init_msg_list(p_init_msg_list);
5446: -- Make sure PL/SQL table has records in it before passing
5441: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
5442: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5443: i NUMBER := 0;
5444: BEGIN
5445: OKC_API.init_msg_list(p_init_msg_list);
5446: -- Make sure PL/SQL table has records in it before passing
5447: IF (p_talv_tbl.COUNT > 0) THEN
5448: i := p_talv_tbl.FIRST;
5449: LOOP
5448: i := p_talv_tbl.FIRST;
5449: LOOP
5450: update_row (
5451: p_api_version => p_api_version,
5452: p_init_msg_list => OKC_API.G_FALSE,
5453: x_return_status => x_return_status,
5454: x_msg_count => x_msg_count,
5455: x_msg_data => x_msg_data,
5456: p_talv_rec => p_talv_tbl(i),
5459: i := p_talv_tbl.NEXT(i);
5460: END LOOP;
5461: END IF;
5462: EXCEPTION
5463: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5464: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5465: (
5466: l_api_name,
5467: G_PKG_NAME,
5460: END LOOP;
5461: END IF;
5462: EXCEPTION
5463: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5464: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5465: (
5466: l_api_name,
5467: G_PKG_NAME,
5468: 'OKC_API.G_RET_STS_ERROR',
5464: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5465: (
5466: l_api_name,
5467: G_PKG_NAME,
5468: 'OKC_API.G_RET_STS_ERROR',
5469: x_msg_count,
5470: x_msg_data,
5471: '_PVT'
5472: );
5469: x_msg_count,
5470: x_msg_data,
5471: '_PVT'
5472: );
5473: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5474: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5475: (
5476: l_api_name,
5477: G_PKG_NAME,
5470: x_msg_data,
5471: '_PVT'
5472: );
5473: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5474: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5475: (
5476: l_api_name,
5477: G_PKG_NAME,
5478: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5474: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5475: (
5476: l_api_name,
5477: G_PKG_NAME,
5478: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5479: x_msg_count,
5480: x_msg_data,
5481: '_PVT'
5482: );
5480: x_msg_data,
5481: '_PVT'
5482: );
5483: WHEN OTHERS THEN
5484: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5485: (
5486: l_api_name,
5487: G_PKG_NAME,
5488: 'OTHERS',
5498: -------------------------------------
5499: -- delete_row for:OKL_TXL_ASSETS_B --
5500: -------------------------------------
5501: PROCEDURE delete_row(
5502: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5503: x_return_status OUT NOCOPY VARCHAR2,
5504: x_msg_count OUT NOCOPY NUMBER,
5505: x_msg_data OUT NOCOPY VARCHAR2,
5506: p_tal_rec IN tal_rec_type) IS
5506: p_tal_rec IN tal_rec_type) IS
5507:
5508: l_api_version CONSTANT NUMBER := 1;
5509: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
5510: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5511: l_tal_rec tal_rec_type:= p_tal_rec;
5512: l_row_notfound BOOLEAN := TRUE;
5513: BEGIN
5514: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5510: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5511: l_tal_rec tal_rec_type:= p_tal_rec;
5512: l_row_notfound BOOLEAN := TRUE;
5513: BEGIN
5514: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5515: p_init_msg_list,
5516: '_PVT',
5517: x_return_status);
5518: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5514: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5515: p_init_msg_list,
5516: '_PVT',
5517: x_return_status);
5518: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5519: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5520: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5521: RAISE OKC_API.G_EXCEPTION_ERROR;
5522: END IF;
5515: p_init_msg_list,
5516: '_PVT',
5517: x_return_status);
5518: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5519: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5520: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5521: RAISE OKC_API.G_EXCEPTION_ERROR;
5522: END IF;
5523: DELETE FROM OKL_TXL_ASSETS_B
5516: '_PVT',
5517: x_return_status);
5518: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5519: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5520: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5521: RAISE OKC_API.G_EXCEPTION_ERROR;
5522: END IF;
5523: DELETE FROM OKL_TXL_ASSETS_B
5524: WHERE ID = l_tal_rec.id;
5517: x_return_status);
5518: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5519: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5520: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5521: RAISE OKC_API.G_EXCEPTION_ERROR;
5522: END IF;
5523: DELETE FROM OKL_TXL_ASSETS_B
5524: WHERE ID = l_tal_rec.id;
5525:
5522: END IF;
5523: DELETE FROM OKL_TXL_ASSETS_B
5524: WHERE ID = l_tal_rec.id;
5525:
5526: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5527: EXCEPTION
5528: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5529: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5530: (
5524: WHERE ID = l_tal_rec.id;
5525:
5526: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5527: EXCEPTION
5528: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5529: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5530: (
5531: l_api_name,
5532: G_PKG_NAME,
5525:
5526: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5527: EXCEPTION
5528: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5529: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5530: (
5531: l_api_name,
5532: G_PKG_NAME,
5533: 'OKC_API.G_RET_STS_ERROR',
5529: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5530: (
5531: l_api_name,
5532: G_PKG_NAME,
5533: 'OKC_API.G_RET_STS_ERROR',
5534: x_msg_count,
5535: x_msg_data,
5536: '_PVT'
5537: );
5534: x_msg_count,
5535: x_msg_data,
5536: '_PVT'
5537: );
5538: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5539: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5540: (
5541: l_api_name,
5542: G_PKG_NAME,
5535: x_msg_data,
5536: '_PVT'
5537: );
5538: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5539: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5540: (
5541: l_api_name,
5542: G_PKG_NAME,
5543: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5539: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5540: (
5541: l_api_name,
5542: G_PKG_NAME,
5543: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5544: x_msg_count,
5545: x_msg_data,
5546: '_PVT'
5547: );
5545: x_msg_data,
5546: '_PVT'
5547: );
5548: WHEN OTHERS THEN
5549: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5550: (
5551: l_api_name,
5552: G_PKG_NAME,
5553: 'OTHERS',
5559: --------------------------------------
5560: -- delete_row for:OKL_TXL_ASSETS_TL --
5561: --------------------------------------
5562: PROCEDURE delete_row(
5563: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5564: x_return_status OUT NOCOPY VARCHAR2,
5565: x_msg_count OUT NOCOPY NUMBER,
5566: x_msg_data OUT NOCOPY VARCHAR2,
5567: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type) IS
5567: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type) IS
5568:
5569: l_api_version CONSTANT NUMBER := 1;
5570: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
5571: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5572: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type:= p_okl_txl_assets_tl_rec;
5573: l_row_notfound BOOLEAN := TRUE;
5574: ------------------------------------------
5575: -- Set_Attributes for:OKL_TXL_ASSETS_TL --
5577: FUNCTION Set_Attributes (
5578: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type,
5579: x_okl_txl_assets_tl_rec OUT NOCOPY okl_txl_assets_tl_rec_type
5580: ) RETURN VARCHAR2 IS
5581: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5582: BEGIN
5583: x_okl_txl_assets_tl_rec := p_okl_txl_assets_tl_rec;
5584: x_okl_txl_assets_tl_rec.LANGUAGE := USERENV('LANG');
5585: RETURN(l_return_status);
5584: x_okl_txl_assets_tl_rec.LANGUAGE := USERENV('LANG');
5585: RETURN(l_return_status);
5586: END Set_Attributes;
5587: BEGIN
5588: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5589: p_init_msg_list,
5590: '_PVT',
5591: x_return_status);
5592: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5588: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5589: p_init_msg_list,
5590: '_PVT',
5591: x_return_status);
5592: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5593: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5594: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5595: RAISE OKC_API.G_EXCEPTION_ERROR;
5596: END IF;
5589: p_init_msg_list,
5590: '_PVT',
5591: x_return_status);
5592: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5593: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5594: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5595: RAISE OKC_API.G_EXCEPTION_ERROR;
5596: END IF;
5597: --- Setting item attributes
5590: '_PVT',
5591: x_return_status);
5592: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5593: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5594: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5595: RAISE OKC_API.G_EXCEPTION_ERROR;
5596: END IF;
5597: --- Setting item attributes
5598: l_return_status := Set_Attributes(
5591: x_return_status);
5592: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5593: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5594: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5595: RAISE OKC_API.G_EXCEPTION_ERROR;
5596: END IF;
5597: --- Setting item attributes
5598: l_return_status := Set_Attributes(
5599: p_okl_txl_assets_tl_rec, -- IN
5598: l_return_status := Set_Attributes(
5599: p_okl_txl_assets_tl_rec, -- IN
5600: l_okl_txl_assets_tl_rec); -- OUT
5601: --- If any errors happen abort API
5602: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5603: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5604: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5605: RAISE OKC_API.G_EXCEPTION_ERROR;
5606: END IF;
5599: p_okl_txl_assets_tl_rec, -- IN
5600: l_okl_txl_assets_tl_rec); -- OUT
5601: --- If any errors happen abort API
5602: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5603: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5604: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5605: RAISE OKC_API.G_EXCEPTION_ERROR;
5606: END IF;
5607: DELETE FROM OKL_TXL_ASSETS_TL
5600: l_okl_txl_assets_tl_rec); -- OUT
5601: --- If any errors happen abort API
5602: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5603: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5604: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5605: RAISE OKC_API.G_EXCEPTION_ERROR;
5606: END IF;
5607: DELETE FROM OKL_TXL_ASSETS_TL
5608: WHERE ID = l_okl_txl_assets_tl_rec.id;
5601: --- If any errors happen abort API
5602: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5603: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5604: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5605: RAISE OKC_API.G_EXCEPTION_ERROR;
5606: END IF;
5607: DELETE FROM OKL_TXL_ASSETS_TL
5608: WHERE ID = l_okl_txl_assets_tl_rec.id;
5609:
5606: END IF;
5607: DELETE FROM OKL_TXL_ASSETS_TL
5608: WHERE ID = l_okl_txl_assets_tl_rec.id;
5609:
5610: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5611: EXCEPTION
5612: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5613: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5614: (
5608: WHERE ID = l_okl_txl_assets_tl_rec.id;
5609:
5610: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5611: EXCEPTION
5612: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5613: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5614: (
5615: l_api_name,
5616: G_PKG_NAME,
5609:
5610: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5611: EXCEPTION
5612: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5613: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5614: (
5615: l_api_name,
5616: G_PKG_NAME,
5617: 'OKC_API.G_RET_STS_ERROR',
5613: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5614: (
5615: l_api_name,
5616: G_PKG_NAME,
5617: 'OKC_API.G_RET_STS_ERROR',
5618: x_msg_count,
5619: x_msg_data,
5620: '_PVT'
5621: );
5618: x_msg_count,
5619: x_msg_data,
5620: '_PVT'
5621: );
5622: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5623: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5624: (
5625: l_api_name,
5626: G_PKG_NAME,
5619: x_msg_data,
5620: '_PVT'
5621: );
5622: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5623: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5624: (
5625: l_api_name,
5626: G_PKG_NAME,
5627: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5623: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5624: (
5625: l_api_name,
5626: G_PKG_NAME,
5627: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5628: x_msg_count,
5629: x_msg_data,
5630: '_PVT'
5631: );
5629: x_msg_data,
5630: '_PVT'
5631: );
5632: WHEN OTHERS THEN
5633: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5634: (
5635: l_api_name,
5636: G_PKG_NAME,
5637: 'OTHERS',
5644: -- delete_row for:OKL_TXL_ASSETS_V --
5645: -------------------------------------
5646: PROCEDURE delete_row(
5647: p_api_version IN NUMBER,
5648: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5649: x_return_status OUT NOCOPY VARCHAR2,
5650: x_msg_count OUT NOCOPY NUMBER,
5651: x_msg_data OUT NOCOPY VARCHAR2,
5652: p_talv_rec IN talv_rec_type) IS
5652: p_talv_rec IN talv_rec_type) IS
5653:
5654: l_api_version CONSTANT NUMBER := 1;
5655: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
5656: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5657: l_talv_rec talv_rec_type := p_talv_rec;
5658: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
5659: l_tal_rec tal_rec_type;
5660: BEGIN
5657: l_talv_rec talv_rec_type := p_talv_rec;
5658: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
5659: l_tal_rec tal_rec_type;
5660: BEGIN
5661: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5662: G_PKG_NAME,
5663: p_init_msg_list,
5664: l_api_version,
5665: p_api_version,
5664: l_api_version,
5665: p_api_version,
5666: '_PVT',
5667: x_return_status);
5668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5671: RAISE OKC_API.G_EXCEPTION_ERROR;
5672: END IF;
5665: p_api_version,
5666: '_PVT',
5667: x_return_status);
5668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5671: RAISE OKC_API.G_EXCEPTION_ERROR;
5672: END IF;
5673: --------------------------------------
5666: '_PVT',
5667: x_return_status);
5668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5671: RAISE OKC_API.G_EXCEPTION_ERROR;
5672: END IF;
5673: --------------------------------------
5674: -- Move VIEW record to "Child" records
5667: x_return_status);
5668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5671: RAISE OKC_API.G_EXCEPTION_ERROR;
5672: END IF;
5673: --------------------------------------
5674: -- Move VIEW record to "Child" records
5675: --------------------------------------
5684: x_msg_count,
5685: x_msg_data,
5686: l_okl_txl_assets_tl_rec
5687: );
5688: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5690: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5691: RAISE OKC_API.G_EXCEPTION_ERROR;
5692: END IF;
5685: x_msg_data,
5686: l_okl_txl_assets_tl_rec
5687: );
5688: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5690: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5691: RAISE OKC_API.G_EXCEPTION_ERROR;
5692: END IF;
5693: delete_row(
5686: l_okl_txl_assets_tl_rec
5687: );
5688: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5690: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5691: RAISE OKC_API.G_EXCEPTION_ERROR;
5692: END IF;
5693: delete_row(
5694: p_init_msg_list,
5687: );
5688: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5690: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5691: RAISE OKC_API.G_EXCEPTION_ERROR;
5692: END IF;
5693: delete_row(
5694: p_init_msg_list,
5695: x_return_status,
5696: x_msg_count,
5697: x_msg_data,
5698: l_tal_rec
5699: );
5700: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5702: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5703: RAISE OKC_API.G_EXCEPTION_ERROR;
5704: END IF;
5697: x_msg_data,
5698: l_tal_rec
5699: );
5700: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5702: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5703: RAISE OKC_API.G_EXCEPTION_ERROR;
5704: END IF;
5705: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5698: l_tal_rec
5699: );
5700: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5702: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5703: RAISE OKC_API.G_EXCEPTION_ERROR;
5704: END IF;
5705: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5706: EXCEPTION
5699: );
5700: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5702: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5703: RAISE OKC_API.G_EXCEPTION_ERROR;
5704: END IF;
5705: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5706: EXCEPTION
5707: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5701: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5702: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5703: RAISE OKC_API.G_EXCEPTION_ERROR;
5704: END IF;
5705: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5706: EXCEPTION
5707: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5708: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5709: (
5703: RAISE OKC_API.G_EXCEPTION_ERROR;
5704: END IF;
5705: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5706: EXCEPTION
5707: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5708: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5709: (
5710: l_api_name,
5711: G_PKG_NAME,
5704: END IF;
5705: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5706: EXCEPTION
5707: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5708: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5709: (
5710: l_api_name,
5711: G_PKG_NAME,
5712: 'OKC_API.G_RET_STS_ERROR',
5708: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5709: (
5710: l_api_name,
5711: G_PKG_NAME,
5712: 'OKC_API.G_RET_STS_ERROR',
5713: x_msg_count,
5714: x_msg_data,
5715: '_PVT'
5716: );
5713: x_msg_count,
5714: x_msg_data,
5715: '_PVT'
5716: );
5717: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5718: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5719: (
5720: l_api_name,
5721: G_PKG_NAME,
5714: x_msg_data,
5715: '_PVT'
5716: );
5717: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5718: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5719: (
5720: l_api_name,
5721: G_PKG_NAME,
5722: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5718: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5719: (
5720: l_api_name,
5721: G_PKG_NAME,
5722: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5723: x_msg_count,
5724: x_msg_data,
5725: '_PVT'
5726: );
5724: x_msg_data,
5725: '_PVT'
5726: );
5727: WHEN OTHERS THEN
5728: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5729: (
5730: l_api_name,
5731: G_PKG_NAME,
5732: 'OTHERS',
5739: -- PL/SQL TBL delete_row for:TALV_TBL --
5740: ----------------------------------------
5741: PROCEDURE delete_row(
5742: p_api_version IN NUMBER,
5743: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5744: x_return_status OUT NOCOPY VARCHAR2,
5745: x_msg_count OUT NOCOPY NUMBER,
5746: x_msg_data OUT NOCOPY VARCHAR2,
5747: p_talv_tbl IN talv_tbl_type) IS
5747: p_talv_tbl IN talv_tbl_type) IS
5748:
5749: l_api_version CONSTANT NUMBER := 1;
5750: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
5751: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5752: i NUMBER := 0;
5753: BEGIN
5754: OKC_API.init_msg_list(p_init_msg_list);
5755: -- Make sure PL/SQL table has records in it before passing
5750: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
5751: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5752: i NUMBER := 0;
5753: BEGIN
5754: OKC_API.init_msg_list(p_init_msg_list);
5755: -- Make sure PL/SQL table has records in it before passing
5756: IF (p_talv_tbl.COUNT > 0) THEN
5757: i := p_talv_tbl.FIRST;
5758: LOOP
5757: i := p_talv_tbl.FIRST;
5758: LOOP
5759: delete_row (
5760: p_api_version => p_api_version,
5761: p_init_msg_list => OKC_API.G_FALSE,
5762: x_return_status => x_return_status,
5763: x_msg_count => x_msg_count,
5764: x_msg_data => x_msg_data,
5765: p_talv_rec => p_talv_tbl(i));
5767: i := p_talv_tbl.NEXT(i);
5768: END LOOP;
5769: END IF;
5770: EXCEPTION
5771: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5772: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5773: (
5774: l_api_name,
5775: G_PKG_NAME,
5768: END LOOP;
5769: END IF;
5770: EXCEPTION
5771: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5772: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5773: (
5774: l_api_name,
5775: G_PKG_NAME,
5776: 'OKC_API.G_RET_STS_ERROR',
5772: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5773: (
5774: l_api_name,
5775: G_PKG_NAME,
5776: 'OKC_API.G_RET_STS_ERROR',
5777: x_msg_count,
5778: x_msg_data,
5779: '_PVT'
5780: );
5777: x_msg_count,
5778: x_msg_data,
5779: '_PVT'
5780: );
5781: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5782: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5783: (
5784: l_api_name,
5785: G_PKG_NAME,
5778: x_msg_data,
5779: '_PVT'
5780: );
5781: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5782: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5783: (
5784: l_api_name,
5785: G_PKG_NAME,
5786: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5782: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5783: (
5784: l_api_name,
5785: G_PKG_NAME,
5786: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5787: x_msg_count,
5788: x_msg_data,
5789: '_PVT'
5790: );
5788: x_msg_data,
5789: '_PVT'
5790: );
5791: WHEN OTHERS THEN
5792: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5793: (
5794: l_api_name,
5795: G_PKG_NAME,
5796: 'OTHERS',