[Home] [Help]
1: PACKAGE BODY OKL_TAL_PVT AS
2: /* $Header: OKLSTALB.pls 120.8.12020000.2 2012/12/18 06:49:32 vloomba ship $ */
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
1616: --dbms_output.put_line('Trans Curr Type: '|| p_talv_rec.currency_conversion_type);
1617:
1618: IF (p_talv_rec.currency_code IS NULL
1619: OR
1620: p_talv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN -- take functional currency
1621: x_talv_rec.currency_code := l_func_currency;
1622: x_talv_rec.currency_conversion_type := NULL;
1623: x_talv_rec.currency_conversion_rate := NULL;
1624: x_talv_rec.currency_conversion_date := NULL;
1629: FETCH curr_csr INTO l_ok;
1630: CLOSE curr_csr;
1631:
1632: IF (l_ok <> 'Y') THEN
1633: OKC_API.set_message(p_app_name => G_APP_NAME,
1634: p_msg_name => G_NO_MATCHING_RECORD,
1635: p_token1 => G_COL_NAME_TOKEN,
1636: p_token1_value => 'currency_code');
1637: x_return_status := OKC_API.G_RET_STS_ERROR;
1633: OKC_API.set_message(p_app_name => G_APP_NAME,
1634: p_msg_name => G_NO_MATCHING_RECORD,
1635: p_token1 => G_COL_NAME_TOKEN,
1636: p_token1_value => 'currency_code');
1637: x_return_status := OKC_API.G_RET_STS_ERROR;
1638: RAISE currency_validation_failed;
1639: END IF;
1640:
1641: IF (p_talv_rec.currency_code = l_func_currency) THEN -- both are same
1646:
1647: -- Conversion type, date and rate mandetory
1648: IF (p_talv_rec.currency_conversion_type IS NULL
1649: OR
1650: p_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
1651: OKC_API.set_message(
1652: p_app_name => G_APP_NAME,
1653: p_msg_name => G_REQUIRED_VALUE,
1654: p_token1 => G_COL_NAME_TOKEN,
1647: -- Conversion type, date and rate mandetory
1648: IF (p_talv_rec.currency_conversion_type IS NULL
1649: OR
1650: p_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
1651: OKC_API.set_message(
1652: p_app_name => G_APP_NAME,
1653: p_msg_name => G_REQUIRED_VALUE,
1654: p_token1 => G_COL_NAME_TOKEN,
1655: p_token1_value => 'currency_conversion_type');
1652: p_app_name => G_APP_NAME,
1653: p_msg_name => G_REQUIRED_VALUE,
1654: p_token1 => G_COL_NAME_TOKEN,
1655: p_token1_value => 'currency_conversion_type');
1656: x_return_status := OKC_API.G_RET_STS_ERROR;
1657: RAISE currency_validation_failed;
1658: END IF;
1659:
1660: l_ok := '?';
1662: FETCH conv_type_csr INTO l_ok;
1663: CLOSE conv_type_csr;
1664:
1665: IF (l_ok <> 'Y') THEN
1666: OKC_API.set_message(p_app_name => G_APP_NAME,
1667: p_msg_name => G_NO_MATCHING_RECORD,
1668: p_token1 => G_COL_NAME_TOKEN,
1669: p_token1_value => 'currency_conversion_type');
1670: x_return_status := OKC_API.G_RET_STS_ERROR;
1666: OKC_API.set_message(p_app_name => G_APP_NAME,
1667: p_msg_name => G_NO_MATCHING_RECORD,
1668: p_token1 => G_COL_NAME_TOKEN,
1669: p_token1_value => 'currency_conversion_type');
1670: x_return_status := OKC_API.G_RET_STS_ERROR;
1671: RAISE currency_validation_failed;
1672: END IF;
1673:
1674: IF (p_talv_rec.currency_conversion_date IS NULL
1672: END IF;
1673:
1674: IF (p_talv_rec.currency_conversion_date IS NULL
1675: OR
1676: p_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
1677: OKC_API.set_message(
1678: p_app_name => G_APP_NAME,
1679: p_msg_name => G_REQUIRED_VALUE,
1680: p_token1 => G_COL_NAME_TOKEN,
1673:
1674: IF (p_talv_rec.currency_conversion_date IS NULL
1675: OR
1676: p_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
1677: OKC_API.set_message(
1678: p_app_name => G_APP_NAME,
1679: p_msg_name => G_REQUIRED_VALUE,
1680: p_token1 => G_COL_NAME_TOKEN,
1681: p_token1_value => 'currency_conversion_date');
1678: p_app_name => G_APP_NAME,
1679: p_msg_name => G_REQUIRED_VALUE,
1680: p_token1 => G_COL_NAME_TOKEN,
1681: p_token1_value => 'currency_conversion_date');
1682: x_return_status := OKC_API.G_RET_STS_ERROR;
1683: RAISE currency_validation_failed;
1684: END IF;
1685:
1686: IF (p_talv_rec.currency_conversion_type = 'User') THEN
1686: IF (p_talv_rec.currency_conversion_type = 'User') THEN
1687:
1688: IF (p_talv_rec.currency_conversion_rate IS NULL
1689: OR
1690: p_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
1691: OKC_API.set_message(
1692: p_app_name => G_APP_NAME,
1693: p_msg_name => G_REQUIRED_VALUE,
1694: p_token1 => G_COL_NAME_TOKEN,
1687:
1688: IF (p_talv_rec.currency_conversion_rate IS NULL
1689: OR
1690: p_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
1691: OKC_API.set_message(
1692: p_app_name => G_APP_NAME,
1693: p_msg_name => G_REQUIRED_VALUE,
1694: p_token1 => G_COL_NAME_TOKEN,
1695: p_token1_value => 'currency_conversion_rate');
1692: p_app_name => G_APP_NAME,
1693: p_msg_name => G_REQUIRED_VALUE,
1694: p_token1 => G_COL_NAME_TOKEN,
1695: p_token1_value => 'currency_conversion_rate');
1696: x_return_status := OKC_API.G_RET_STS_ERROR;
1697: RAISE currency_validation_failed;
1698: END IF;
1699:
1700: x_talv_rec.currency_conversion_type := p_talv_rec.currency_conversion_type;
2294: p_talv_rec IN talv_rec_type
2295: ) RETURN talv_rec_type IS
2296: l_talv_rec talv_rec_type := p_talv_rec;
2297: BEGIN
2298: IF (l_talv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
2299: l_talv_rec.object_version_number := NULL;
2300: END IF;
2301: IF (l_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
2302: l_talv_rec.sfwt_flag := NULL;
2297: BEGIN
2298: IF (l_talv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
2299: l_talv_rec.object_version_number := NULL;
2300: END IF;
2301: IF (l_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
2302: l_talv_rec.sfwt_flag := NULL;
2303: END IF;
2304: IF (l_talv_rec.tas_id = OKC_API.G_MISS_NUM) THEN
2305: l_talv_rec.tas_id := NULL;
2300: END IF;
2301: IF (l_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
2302: l_talv_rec.sfwt_flag := NULL;
2303: END IF;
2304: IF (l_talv_rec.tas_id = OKC_API.G_MISS_NUM) THEN
2305: l_talv_rec.tas_id := NULL;
2306: END IF;
2307: IF (l_talv_rec.ilo_id = OKC_API.G_MISS_NUM) THEN
2308: l_talv_rec.ilo_id := NULL;
2303: END IF;
2304: IF (l_talv_rec.tas_id = OKC_API.G_MISS_NUM) THEN
2305: l_talv_rec.tas_id := NULL;
2306: END IF;
2307: IF (l_talv_rec.ilo_id = OKC_API.G_MISS_NUM) THEN
2308: l_talv_rec.ilo_id := NULL;
2309: END IF;
2310: IF (l_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM) THEN
2311: l_talv_rec.ilo_id_old := NULL;
2306: END IF;
2307: IF (l_talv_rec.ilo_id = OKC_API.G_MISS_NUM) THEN
2308: l_talv_rec.ilo_id := NULL;
2309: END IF;
2310: IF (l_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM) THEN
2311: l_talv_rec.ilo_id_old := NULL;
2312: END IF;
2313: IF (l_talv_rec.iay_id = OKC_API.G_MISS_NUM) THEN
2314: l_talv_rec.iay_id := NULL;
2309: END IF;
2310: IF (l_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM) THEN
2311: l_talv_rec.ilo_id_old := NULL;
2312: END IF;
2313: IF (l_talv_rec.iay_id = OKC_API.G_MISS_NUM) THEN
2314: l_talv_rec.iay_id := NULL;
2315: END IF;
2316: IF (l_talv_rec.iay_id_new = OKC_API.G_MISS_NUM) THEN
2317: l_talv_rec.iay_id_new := NULL;
2312: END IF;
2313: IF (l_talv_rec.iay_id = OKC_API.G_MISS_NUM) THEN
2314: l_talv_rec.iay_id := NULL;
2315: END IF;
2316: IF (l_talv_rec.iay_id_new = OKC_API.G_MISS_NUM) THEN
2317: l_talv_rec.iay_id_new := NULL;
2318: END IF;
2319: IF (l_talv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
2320: l_talv_rec.kle_id := NULL;
2315: END IF;
2316: IF (l_talv_rec.iay_id_new = OKC_API.G_MISS_NUM) THEN
2317: l_talv_rec.iay_id_new := NULL;
2318: END IF;
2319: IF (l_talv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
2320: l_talv_rec.kle_id := NULL;
2321: END IF;
2322: IF (l_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM) THEN
2323: l_talv_rec.dnz_khr_id := NULL;
2318: END IF;
2319: IF (l_talv_rec.kle_id = OKC_API.G_MISS_NUM) THEN
2320: l_talv_rec.kle_id := NULL;
2321: END IF;
2322: IF (l_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM) THEN
2323: l_talv_rec.dnz_khr_id := NULL;
2324: END IF;
2325: IF (l_talv_rec.line_number = OKC_API.G_MISS_NUM) THEN
2326: l_talv_rec.line_number := NULL;
2321: END IF;
2322: IF (l_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM) THEN
2323: l_talv_rec.dnz_khr_id := NULL;
2324: END IF;
2325: IF (l_talv_rec.line_number = OKC_API.G_MISS_NUM) THEN
2326: l_talv_rec.line_number := NULL;
2327: END IF;
2328: IF (l_talv_rec.org_id = OKC_API.G_MISS_NUM) THEN
2329: l_talv_rec.org_id := NULL;
2324: END IF;
2325: IF (l_talv_rec.line_number = OKC_API.G_MISS_NUM) THEN
2326: l_talv_rec.line_number := NULL;
2327: END IF;
2328: IF (l_talv_rec.org_id = OKC_API.G_MISS_NUM) THEN
2329: l_talv_rec.org_id := NULL;
2330: END IF;
2331: IF (l_talv_rec.tal_type = OKC_API.G_MISS_CHAR) THEN
2332: l_talv_rec.tal_type := NULL;
2327: END IF;
2328: IF (l_talv_rec.org_id = OKC_API.G_MISS_NUM) THEN
2329: l_talv_rec.org_id := NULL;
2330: END IF;
2331: IF (l_talv_rec.tal_type = OKC_API.G_MISS_CHAR) THEN
2332: l_talv_rec.tal_type := NULL;
2333: END IF;
2334: IF (l_talv_rec.asset_number = OKC_API.G_MISS_CHAR) THEN
2335: l_talv_rec.asset_number := NULL;
2330: END IF;
2331: IF (l_talv_rec.tal_type = OKC_API.G_MISS_CHAR) THEN
2332: l_talv_rec.tal_type := NULL;
2333: END IF;
2334: IF (l_talv_rec.asset_number = OKC_API.G_MISS_CHAR) THEN
2335: l_talv_rec.asset_number := NULL;
2336: END IF;
2337: IF (l_talv_rec.description = OKC_API.G_MISS_CHAR) THEN
2338: l_talv_rec.description := NULL;
2333: END IF;
2334: IF (l_talv_rec.asset_number = OKC_API.G_MISS_CHAR) THEN
2335: l_talv_rec.asset_number := NULL;
2336: END IF;
2337: IF (l_talv_rec.description = OKC_API.G_MISS_CHAR) THEN
2338: l_talv_rec.description := NULL;
2339: END IF;
2340: IF (l_talv_rec.fa_location_id = OKC_API.G_MISS_NUM) THEN
2341: l_talv_rec.fa_location_id := NULL;
2336: END IF;
2337: IF (l_talv_rec.description = OKC_API.G_MISS_CHAR) THEN
2338: l_talv_rec.description := NULL;
2339: END IF;
2340: IF (l_talv_rec.fa_location_id = OKC_API.G_MISS_NUM) THEN
2341: l_talv_rec.fa_location_id := NULL;
2342: END IF;
2343: IF (l_talv_rec.original_cost = OKC_API.G_MISS_NUM) THEN
2344: l_talv_rec.original_cost := NULL;
2339: END IF;
2340: IF (l_talv_rec.fa_location_id = OKC_API.G_MISS_NUM) THEN
2341: l_talv_rec.fa_location_id := NULL;
2342: END IF;
2343: IF (l_talv_rec.original_cost = OKC_API.G_MISS_NUM) THEN
2344: l_talv_rec.original_cost := NULL;
2345: END IF;
2346: IF (l_talv_rec.current_units = OKC_API.G_MISS_NUM) THEN
2347: l_talv_rec.current_units := NULL;
2342: END IF;
2343: IF (l_talv_rec.original_cost = OKC_API.G_MISS_NUM) THEN
2344: l_talv_rec.original_cost := NULL;
2345: END IF;
2346: IF (l_talv_rec.current_units = OKC_API.G_MISS_NUM) THEN
2347: l_talv_rec.current_units := NULL;
2348: END IF;
2349: IF (l_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR) THEN
2350: l_talv_rec.manufacturer_name := NULL;
2345: END IF;
2346: IF (l_talv_rec.current_units = OKC_API.G_MISS_NUM) THEN
2347: l_talv_rec.current_units := NULL;
2348: END IF;
2349: IF (l_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR) THEN
2350: l_talv_rec.manufacturer_name := NULL;
2351: END IF;
2352: IF (l_talv_rec.year_manufactured = OKC_API.G_MISS_NUM) THEN
2353: l_talv_rec.year_manufactured := NULL;
2348: END IF;
2349: IF (l_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR) THEN
2350: l_talv_rec.manufacturer_name := NULL;
2351: END IF;
2352: IF (l_talv_rec.year_manufactured = OKC_API.G_MISS_NUM) THEN
2353: l_talv_rec.year_manufactured := NULL;
2354: END IF;
2355: IF (l_talv_rec.supplier_id = OKC_API.G_MISS_NUM) THEN
2356: l_talv_rec.supplier_id := NULL;
2351: END IF;
2352: IF (l_talv_rec.year_manufactured = OKC_API.G_MISS_NUM) THEN
2353: l_talv_rec.year_manufactured := NULL;
2354: END IF;
2355: IF (l_talv_rec.supplier_id = OKC_API.G_MISS_NUM) THEN
2356: l_talv_rec.supplier_id := NULL;
2357: END IF;
2358: IF (l_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR) THEN
2359: l_talv_rec.used_asset_yn := NULL;
2354: END IF;
2355: IF (l_talv_rec.supplier_id = OKC_API.G_MISS_NUM) THEN
2356: l_talv_rec.supplier_id := NULL;
2357: END IF;
2358: IF (l_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR) THEN
2359: l_talv_rec.used_asset_yn := NULL;
2360: END IF;
2361: IF (l_talv_rec.tag_number = OKC_API.G_MISS_CHAR) THEN
2362: l_talv_rec.tag_number := NULL;
2357: END IF;
2358: IF (l_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR) THEN
2359: l_talv_rec.used_asset_yn := NULL;
2360: END IF;
2361: IF (l_talv_rec.tag_number = OKC_API.G_MISS_CHAR) THEN
2362: l_talv_rec.tag_number := NULL;
2363: END IF;
2364: IF (l_talv_rec.model_number = OKC_API.G_MISS_CHAR) THEN
2365: l_talv_rec.model_number := NULL;
2360: END IF;
2361: IF (l_talv_rec.tag_number = OKC_API.G_MISS_CHAR) THEN
2362: l_talv_rec.tag_number := NULL;
2363: END IF;
2364: IF (l_talv_rec.model_number = OKC_API.G_MISS_CHAR) THEN
2365: l_talv_rec.model_number := NULL;
2366: END IF;
2367: IF (l_talv_rec.corporate_book = OKC_API.G_MISS_CHAR) THEN
2368: l_talv_rec.corporate_book := NULL;
2363: END IF;
2364: IF (l_talv_rec.model_number = OKC_API.G_MISS_CHAR) THEN
2365: l_talv_rec.model_number := NULL;
2366: END IF;
2367: IF (l_talv_rec.corporate_book = OKC_API.G_MISS_CHAR) THEN
2368: l_talv_rec.corporate_book := NULL;
2369: END IF;
2370: IF (l_talv_rec.date_purchased = OKC_API.G_MISS_DATE) THEN
2371: l_talv_rec.date_purchased := NULL;
2366: END IF;
2367: IF (l_talv_rec.corporate_book = OKC_API.G_MISS_CHAR) THEN
2368: l_talv_rec.corporate_book := NULL;
2369: END IF;
2370: IF (l_talv_rec.date_purchased = OKC_API.G_MISS_DATE) THEN
2371: l_talv_rec.date_purchased := NULL;
2372: END IF;
2373: IF (l_talv_rec.date_delivery = OKC_API.G_MISS_DATE) THEN
2374: l_talv_rec.date_delivery := NULL;
2369: END IF;
2370: IF (l_talv_rec.date_purchased = OKC_API.G_MISS_DATE) THEN
2371: l_talv_rec.date_purchased := NULL;
2372: END IF;
2373: IF (l_talv_rec.date_delivery = OKC_API.G_MISS_DATE) THEN
2374: l_talv_rec.date_delivery := NULL;
2375: END IF;
2376: IF (l_talv_rec.in_service_date = OKC_API.G_MISS_DATE) THEN
2377: l_talv_rec.in_service_date := NULL;
2372: END IF;
2373: IF (l_talv_rec.date_delivery = OKC_API.G_MISS_DATE) THEN
2374: l_talv_rec.date_delivery := NULL;
2375: END IF;
2376: IF (l_talv_rec.in_service_date = OKC_API.G_MISS_DATE) THEN
2377: l_talv_rec.in_service_date := NULL;
2378: END IF;
2379: IF (l_talv_rec.life_in_months = OKC_API.G_MISS_NUM) THEN
2380: l_talv_rec.life_in_months := NULL;
2375: END IF;
2376: IF (l_talv_rec.in_service_date = OKC_API.G_MISS_DATE) THEN
2377: l_talv_rec.in_service_date := NULL;
2378: END IF;
2379: IF (l_talv_rec.life_in_months = OKC_API.G_MISS_NUM) THEN
2380: l_talv_rec.life_in_months := NULL;
2381: END IF;
2382: IF (l_talv_rec.depreciation_id = OKC_API.G_MISS_NUM) THEN
2383: l_talv_rec.depreciation_id := NULL;
2378: END IF;
2379: IF (l_talv_rec.life_in_months = OKC_API.G_MISS_NUM) THEN
2380: l_talv_rec.life_in_months := NULL;
2381: END IF;
2382: IF (l_talv_rec.depreciation_id = OKC_API.G_MISS_NUM) THEN
2383: l_talv_rec.depreciation_id := NULL;
2384: END IF;
2385: IF (l_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM) THEN
2386: l_talv_rec.depreciation_cost := NULL;
2381: END IF;
2382: IF (l_talv_rec.depreciation_id = OKC_API.G_MISS_NUM) THEN
2383: l_talv_rec.depreciation_id := NULL;
2384: END IF;
2385: IF (l_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM) THEN
2386: l_talv_rec.depreciation_cost := NULL;
2387: END IF;
2388: IF (l_talv_rec.deprn_method = OKC_API.G_MISS_CHAR) THEN
2389: l_talv_rec.deprn_method := NULL;
2384: END IF;
2385: IF (l_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM) THEN
2386: l_talv_rec.depreciation_cost := NULL;
2387: END IF;
2388: IF (l_talv_rec.deprn_method = OKC_API.G_MISS_CHAR) THEN
2389: l_talv_rec.deprn_method := NULL;
2390: END IF;
2391: IF (l_talv_rec.deprn_rate = OKC_API.G_MISS_NUM) THEN
2392: l_talv_rec.deprn_rate := NULL;
2387: END IF;
2388: IF (l_talv_rec.deprn_method = OKC_API.G_MISS_CHAR) THEN
2389: l_talv_rec.deprn_method := NULL;
2390: END IF;
2391: IF (l_talv_rec.deprn_rate = OKC_API.G_MISS_NUM) THEN
2392: l_talv_rec.deprn_rate := NULL;
2393: END IF;
2394: IF (l_talv_rec.salvage_value = OKC_API.G_MISS_NUM) THEN
2395: l_talv_rec.salvage_value := NULL;
2390: END IF;
2391: IF (l_talv_rec.deprn_rate = OKC_API.G_MISS_NUM) THEN
2392: l_talv_rec.deprn_rate := NULL;
2393: END IF;
2394: IF (l_talv_rec.salvage_value = OKC_API.G_MISS_NUM) THEN
2395: l_talv_rec.salvage_value := NULL;
2396: END IF;
2397: IF (l_talv_rec.percent_salvage_value = OKC_API.G_MISS_NUM) THEN
2398: l_talv_rec.percent_salvage_value := NULL;
2393: END IF;
2394: IF (l_talv_rec.salvage_value = OKC_API.G_MISS_NUM) THEN
2395: l_talv_rec.salvage_value := NULL;
2396: END IF;
2397: IF (l_talv_rec.percent_salvage_value = OKC_API.G_MISS_NUM) THEN
2398: l_talv_rec.percent_salvage_value := NULL;
2399: END IF;
2400: --Bug# 2981308
2401: IF (l_talv_rec.asset_key_id = OKL_API.G_MISS_NUM) THEN
2408: --Bug# 4899328
2409: IF (l_talv_rec.fa_cost = OKL_API.G_MISS_NUM) THEN
2410: l_talv_rec.fa_cost := NULL;
2411: END IF;
2412: IF (l_talv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
2413: l_talv_rec.attribute_category := NULL;
2414: END IF;
2415: IF (l_talv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
2416: l_talv_rec.attribute1 := NULL;
2411: END IF;
2412: IF (l_talv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
2413: l_talv_rec.attribute_category := NULL;
2414: END IF;
2415: IF (l_talv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
2416: l_talv_rec.attribute1 := NULL;
2417: END IF;
2418: IF (l_talv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
2419: l_talv_rec.attribute2 := NULL;
2414: END IF;
2415: IF (l_talv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
2416: l_talv_rec.attribute1 := NULL;
2417: END IF;
2418: IF (l_talv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
2419: l_talv_rec.attribute2 := NULL;
2420: END IF;
2421: IF (l_talv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
2422: l_talv_rec.attribute3 := NULL;
2417: END IF;
2418: IF (l_talv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
2419: l_talv_rec.attribute2 := NULL;
2420: END IF;
2421: IF (l_talv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
2422: l_talv_rec.attribute3 := NULL;
2423: END IF;
2424: IF (l_talv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
2425: l_talv_rec.attribute4 := NULL;
2420: END IF;
2421: IF (l_talv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
2422: l_talv_rec.attribute3 := NULL;
2423: END IF;
2424: IF (l_talv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
2425: l_talv_rec.attribute4 := NULL;
2426: END IF;
2427: IF (l_talv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
2428: l_talv_rec.attribute5 := NULL;
2423: END IF;
2424: IF (l_talv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
2425: l_talv_rec.attribute4 := NULL;
2426: END IF;
2427: IF (l_talv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
2428: l_talv_rec.attribute5 := NULL;
2429: END IF;
2430: IF (l_talv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
2431: l_talv_rec.attribute6 := NULL;
2426: END IF;
2427: IF (l_talv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
2428: l_talv_rec.attribute5 := NULL;
2429: END IF;
2430: IF (l_talv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
2431: l_talv_rec.attribute6 := NULL;
2432: END IF;
2433: IF (l_talv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
2434: l_talv_rec.attribute7 := NULL;
2429: END IF;
2430: IF (l_talv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
2431: l_talv_rec.attribute6 := NULL;
2432: END IF;
2433: IF (l_talv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
2434: l_talv_rec.attribute7 := NULL;
2435: END IF;
2436: IF (l_talv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
2437: l_talv_rec.attribute8 := NULL;
2432: END IF;
2433: IF (l_talv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
2434: l_talv_rec.attribute7 := NULL;
2435: END IF;
2436: IF (l_talv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
2437: l_talv_rec.attribute8 := NULL;
2438: END IF;
2439: IF (l_talv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
2440: l_talv_rec.attribute9 := NULL;
2435: END IF;
2436: IF (l_talv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
2437: l_talv_rec.attribute8 := NULL;
2438: END IF;
2439: IF (l_talv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
2440: l_talv_rec.attribute9 := NULL;
2441: END IF;
2442: IF (l_talv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
2443: l_talv_rec.attribute10 := NULL;
2438: END IF;
2439: IF (l_talv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
2440: l_talv_rec.attribute9 := NULL;
2441: END IF;
2442: IF (l_talv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
2443: l_talv_rec.attribute10 := NULL;
2444: END IF;
2445: IF (l_talv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
2446: l_talv_rec.attribute11 := NULL;
2441: END IF;
2442: IF (l_talv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
2443: l_talv_rec.attribute10 := NULL;
2444: END IF;
2445: IF (l_talv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
2446: l_talv_rec.attribute11 := NULL;
2447: END IF;
2448: IF (l_talv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
2449: l_talv_rec.attribute12 := NULL;
2444: END IF;
2445: IF (l_talv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
2446: l_talv_rec.attribute11 := NULL;
2447: END IF;
2448: IF (l_talv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
2449: l_talv_rec.attribute12 := NULL;
2450: END IF;
2451: IF (l_talv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
2452: l_talv_rec.attribute13 := NULL;
2447: END IF;
2448: IF (l_talv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
2449: l_talv_rec.attribute12 := NULL;
2450: END IF;
2451: IF (l_talv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
2452: l_talv_rec.attribute13 := NULL;
2453: END IF;
2454: IF (l_talv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
2455: l_talv_rec.attribute14 := NULL;
2450: END IF;
2451: IF (l_talv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
2452: l_talv_rec.attribute13 := NULL;
2453: END IF;
2454: IF (l_talv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
2455: l_talv_rec.attribute14 := NULL;
2456: END IF;
2457: IF (l_talv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
2458: l_talv_rec.attribute15 := NULL;
2453: END IF;
2454: IF (l_talv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
2455: l_talv_rec.attribute14 := NULL;
2456: END IF;
2457: IF (l_talv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
2458: l_talv_rec.attribute15 := NULL;
2459: END IF;
2460: IF (l_talv_rec.created_by = OKC_API.G_MISS_NUM) THEN
2461: l_talv_rec.created_by := NULL;
2456: END IF;
2457: IF (l_talv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
2458: l_talv_rec.attribute15 := NULL;
2459: END IF;
2460: IF (l_talv_rec.created_by = OKC_API.G_MISS_NUM) THEN
2461: l_talv_rec.created_by := NULL;
2462: END IF;
2463: IF (l_talv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
2464: l_talv_rec.creation_date := NULL;
2459: END IF;
2460: IF (l_talv_rec.created_by = OKC_API.G_MISS_NUM) THEN
2461: l_talv_rec.created_by := NULL;
2462: END IF;
2463: IF (l_talv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
2464: l_talv_rec.creation_date := NULL;
2465: END IF;
2466: IF (l_talv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
2467: l_talv_rec.last_updated_by := NULL;
2462: END IF;
2463: IF (l_talv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
2464: l_talv_rec.creation_date := NULL;
2465: END IF;
2466: IF (l_talv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
2467: l_talv_rec.last_updated_by := NULL;
2468: END IF;
2469: IF (l_talv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
2470: l_talv_rec.last_update_date := NULL;
2465: END IF;
2466: IF (l_talv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
2467: l_talv_rec.last_updated_by := NULL;
2468: END IF;
2469: IF (l_talv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
2470: l_talv_rec.last_update_date := NULL;
2471: END IF;
2472: IF (l_talv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
2473: l_talv_rec.last_update_login := NULL;
2468: END IF;
2469: IF (l_talv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
2470: l_talv_rec.last_update_date := NULL;
2471: END IF;
2472: IF (l_talv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
2473: l_talv_rec.last_update_login := NULL;
2474: END IF;
2475: IF (l_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR) THEN
2476: l_talv_rec.depreciate_yn := NULL;
2471: END IF;
2472: IF (l_talv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
2473: l_talv_rec.last_update_login := NULL;
2474: END IF;
2475: IF (l_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR) THEN
2476: l_talv_rec.depreciate_yn := NULL;
2477: END IF;
2478: IF (l_talv_rec.hold_period_days = OKC_API.G_MISS_NUM) THEN
2479: l_talv_rec.hold_period_days := NULL;
2474: END IF;
2475: IF (l_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR) THEN
2476: l_talv_rec.depreciate_yn := NULL;
2477: END IF;
2478: IF (l_talv_rec.hold_period_days = OKC_API.G_MISS_NUM) THEN
2479: l_talv_rec.hold_period_days := NULL;
2480: END IF;
2481: IF (l_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM) THEN
2482: l_talv_rec.old_salvage_value := NULL;
2477: END IF;
2478: IF (l_talv_rec.hold_period_days = OKC_API.G_MISS_NUM) THEN
2479: l_talv_rec.hold_period_days := NULL;
2480: END IF;
2481: IF (l_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM) THEN
2482: l_talv_rec.old_salvage_value := NULL;
2483: END IF;
2484: IF (l_talv_rec.new_residual_value = OKC_API.G_MISS_NUM) THEN
2485: l_talv_rec.new_residual_value := NULL;
2480: END IF;
2481: IF (l_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM) THEN
2482: l_talv_rec.old_salvage_value := NULL;
2483: END IF;
2484: IF (l_talv_rec.new_residual_value = OKC_API.G_MISS_NUM) THEN
2485: l_talv_rec.new_residual_value := NULL;
2486: END IF;
2487: IF (l_talv_rec.old_residual_value = OKC_API.G_MISS_NUM) THEN
2488: l_talv_rec.old_residual_value := NULL;
2483: END IF;
2484: IF (l_talv_rec.new_residual_value = OKC_API.G_MISS_NUM) THEN
2485: l_talv_rec.new_residual_value := NULL;
2486: END IF;
2487: IF (l_talv_rec.old_residual_value = OKC_API.G_MISS_NUM) THEN
2488: l_talv_rec.old_residual_value := NULL;
2489: END IF;
2490: IF (l_talv_rec.units_retired = OKC_API.G_MISS_NUM) THEN
2491: l_talv_rec.units_retired := NULL;
2486: END IF;
2487: IF (l_talv_rec.old_residual_value = OKC_API.G_MISS_NUM) THEN
2488: l_talv_rec.old_residual_value := NULL;
2489: END IF;
2490: IF (l_talv_rec.units_retired = OKC_API.G_MISS_NUM) THEN
2491: l_talv_rec.units_retired := NULL;
2492: END IF;
2493: IF (l_talv_rec.cost_retired = OKC_API.G_MISS_NUM) THEN
2494: l_talv_rec.cost_retired := NULL;
2489: END IF;
2490: IF (l_talv_rec.units_retired = OKC_API.G_MISS_NUM) THEN
2491: l_talv_rec.units_retired := NULL;
2492: END IF;
2493: IF (l_talv_rec.cost_retired = OKC_API.G_MISS_NUM) THEN
2494: l_talv_rec.cost_retired := NULL;
2495: END IF;
2496: IF (l_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM) THEN
2497: l_talv_rec.sale_proceeds := NULL;
2492: END IF;
2493: IF (l_talv_rec.cost_retired = OKC_API.G_MISS_NUM) THEN
2494: l_talv_rec.cost_retired := NULL;
2495: END IF;
2496: IF (l_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM) THEN
2497: l_talv_rec.sale_proceeds := NULL;
2498: END IF;
2499: IF (l_talv_rec.removal_cost = OKC_API.G_MISS_NUM) THEN
2500: l_talv_rec.removal_cost := NULL;
2495: END IF;
2496: IF (l_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM) THEN
2497: l_talv_rec.sale_proceeds := NULL;
2498: END IF;
2499: IF (l_talv_rec.removal_cost = OKC_API.G_MISS_NUM) THEN
2500: l_talv_rec.removal_cost := NULL;
2501: END IF;
2502: IF (l_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM) THEN
2503: l_talv_rec.dnz_asset_id := NULL;
2498: END IF;
2499: IF (l_talv_rec.removal_cost = OKC_API.G_MISS_NUM) THEN
2500: l_talv_rec.removal_cost := NULL;
2501: END IF;
2502: IF (l_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM) THEN
2503: l_talv_rec.dnz_asset_id := NULL;
2504: END IF;
2505: IF (l_talv_rec.date_due = OKC_API.G_MISS_DATE) THEN
2506: l_talv_rec.date_due := NULL;
2501: END IF;
2502: IF (l_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM) THEN
2503: l_talv_rec.dnz_asset_id := NULL;
2504: END IF;
2505: IF (l_talv_rec.date_due = OKC_API.G_MISS_DATE) THEN
2506: l_talv_rec.date_due := NULL;
2507: END IF;
2508: IF (l_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM) THEN
2509: l_talv_rec.rep_asset_id := NULL;
2504: END IF;
2505: IF (l_talv_rec.date_due = OKC_API.G_MISS_DATE) THEN
2506: l_talv_rec.date_due := NULL;
2507: END IF;
2508: IF (l_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM) THEN
2509: l_talv_rec.rep_asset_id := NULL;
2510: END IF;
2511: IF (l_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM) THEN
2512: l_talv_rec.lke_asset_id := NULL;
2507: END IF;
2508: IF (l_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM) THEN
2509: l_talv_rec.rep_asset_id := NULL;
2510: END IF;
2511: IF (l_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM) THEN
2512: l_talv_rec.lke_asset_id := NULL;
2513: END IF;
2514: IF (l_talv_rec.match_amount = OKC_API.G_MISS_NUM) THEN
2515: l_talv_rec.match_amount := NULL;
2510: END IF;
2511: IF (l_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM) THEN
2512: l_talv_rec.lke_asset_id := NULL;
2513: END IF;
2514: IF (l_talv_rec.match_amount = OKC_API.G_MISS_NUM) THEN
2515: l_talv_rec.match_amount := NULL;
2516: END IF;
2517: IF (l_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR) THEN
2518: l_talv_rec.split_into_singles_flag := NULL;
2513: END IF;
2514: IF (l_talv_rec.match_amount = OKC_API.G_MISS_NUM) THEN
2515: l_talv_rec.match_amount := NULL;
2516: END IF;
2517: IF (l_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR) THEN
2518: l_talv_rec.split_into_singles_flag := NULL;
2519: END IF;
2520: IF (l_talv_rec.split_into_units = OKC_API.G_MISS_NUM) THEN
2521: l_talv_rec.split_into_units := NULL;
2516: END IF;
2517: IF (l_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR) THEN
2518: l_talv_rec.split_into_singles_flag := NULL;
2519: END IF;
2520: IF (l_talv_rec.split_into_units = OKC_API.G_MISS_NUM) THEN
2521: l_talv_rec.split_into_units := NULL;
2522: END IF;
2523:
2524: -- Multi-Currency Change
2521: l_talv_rec.split_into_units := NULL;
2522: END IF;
2523:
2524: -- Multi-Currency Change
2525: IF (l_talv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
2526: l_talv_rec.currency_code := NULL;
2527: END IF;
2528: IF (l_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
2529: l_talv_rec.currency_conversion_type := NULL;
2524: -- Multi-Currency Change
2525: IF (l_talv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
2526: l_talv_rec.currency_code := NULL;
2527: END IF;
2528: IF (l_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
2529: l_talv_rec.currency_conversion_type := NULL;
2530: END IF;
2531: IF (l_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
2532: l_talv_rec.currency_conversion_rate:= NULL;
2527: END IF;
2528: IF (l_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
2529: l_talv_rec.currency_conversion_type := NULL;
2530: END IF;
2531: IF (l_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
2532: l_talv_rec.currency_conversion_rate:= NULL;
2533: END IF;
2534: IF (l_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
2535: l_talv_rec.currency_conversion_date := NULL;
2530: END IF;
2531: IF (l_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
2532: l_talv_rec.currency_conversion_rate:= NULL;
2533: END IF;
2534: IF (l_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
2535: l_talv_rec.currency_conversion_date := NULL;
2536: END IF;
2537: -- Multi-Currency Change
2538:
2537: -- Multi-Currency Change
2538:
2539: -- VRS Project - START
2540:
2541: IF (l_talv_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM) THEN
2542: l_talv_rec.RESIDUAL_SHR_PARTY_ID:= NULL;
2543: END IF;
2544: IF (l_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
2545: l_talv_rec.RESIDUAL_SHR_AMOUNT:= NULL;
2540:
2541: IF (l_talv_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM) THEN
2542: l_talv_rec.RESIDUAL_SHR_PARTY_ID:= NULL;
2543: END IF;
2544: IF (l_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
2545: l_talv_rec.RESIDUAL_SHR_AMOUNT:= NULL;
2546: END IF;
2547: IF (l_talv_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM) THEN
2548: l_talv_rec.RETIREMENT_ID := NULL;
2543: END IF;
2544: IF (l_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
2545: l_talv_rec.RESIDUAL_SHR_AMOUNT:= NULL;
2546: END IF;
2547: IF (l_talv_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM) THEN
2548: l_talv_rec.RETIREMENT_ID := NULL;
2549: END IF;
2550:
2551: -- VRS Project - END
2560: ----------------------------------------------
2561: FUNCTION Validate_Attributes (
2562: p_talv_rec IN talv_rec_type
2563: ) RETURN VARCHAR2 IS
2564: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2565: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2566: BEGIN
2567: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2568: p_talv_rec.id IS NULL THEN
2561: FUNCTION Validate_Attributes (
2562: p_talv_rec IN talv_rec_type
2563: ) RETURN VARCHAR2 IS
2564: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2565: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2566: BEGIN
2567: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2568: p_talv_rec.id IS NULL THEN
2569: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2563: ) RETURN VARCHAR2 IS
2564: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2565: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2566: BEGIN
2567: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2568: p_talv_rec.id IS NULL THEN
2569: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2571: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2565: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2566: BEGIN
2567: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2568: p_talv_rec.id IS NULL THEN
2569: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2571: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2572: p_talv_rec.object_version_number IS NULL THEN
2573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2566: BEGIN
2567: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2568: p_talv_rec.id IS NULL THEN
2569: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2571: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2572: p_talv_rec.object_version_number IS NULL THEN
2573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2574: x_return_status := OKC_API.G_RET_STS_ERROR;
2567: IF p_talv_rec.id = OKC_API.G_MISS_NUM OR
2568: p_talv_rec.id IS NULL THEN
2569: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2571: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2572: p_talv_rec.object_version_number IS NULL THEN
2573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2574: x_return_status := OKC_API.G_RET_STS_ERROR;
2575: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2569: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2571: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2572: p_talv_rec.object_version_number IS NULL THEN
2573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2574: x_return_status := OKC_API.G_RET_STS_ERROR;
2575: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2576: p_talv_rec.line_number IS NULL THEN
2577: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2570: x_return_status := OKC_API.G_RET_STS_ERROR;
2571: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2572: p_talv_rec.object_version_number IS NULL THEN
2573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2574: x_return_status := OKC_API.G_RET_STS_ERROR;
2575: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2576: p_talv_rec.line_number IS NULL THEN
2577: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2578: x_return_status := OKC_API.G_RET_STS_ERROR;
2571: ELSIF p_talv_rec.object_version_number = OKC_API.G_MISS_NUM OR
2572: p_talv_rec.object_version_number IS NULL THEN
2573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2574: x_return_status := OKC_API.G_RET_STS_ERROR;
2575: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2576: p_talv_rec.line_number IS NULL THEN
2577: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2578: x_return_status := OKC_API.G_RET_STS_ERROR;
2579: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
2574: x_return_status := OKC_API.G_RET_STS_ERROR;
2575: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2576: p_talv_rec.line_number IS NULL THEN
2577: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2578: x_return_status := OKC_API.G_RET_STS_ERROR;
2579: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2580: p_talv_rec.asset_number IS NULL THEN
2581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2574: x_return_status := OKC_API.G_RET_STS_ERROR;
2575: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2576: p_talv_rec.line_number IS NULL THEN
2577: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2578: x_return_status := OKC_API.G_RET_STS_ERROR;
2579: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2580: p_talv_rec.asset_number IS NULL THEN
2581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2582: x_return_status := OKC_API.G_RET_STS_ERROR;
2575: ELSIF p_talv_rec.line_number = OKC_API.G_MISS_NUM OR
2576: p_talv_rec.line_number IS NULL THEN
2577: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2578: x_return_status := OKC_API.G_RET_STS_ERROR;
2579: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2580: p_talv_rec.asset_number IS NULL THEN
2581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2582: x_return_status := OKC_API.G_RET_STS_ERROR;
2583: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2577: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_number');
2578: x_return_status := OKC_API.G_RET_STS_ERROR;
2579: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2580: p_talv_rec.asset_number IS NULL THEN
2581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2582: x_return_status := OKC_API.G_RET_STS_ERROR;
2583: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2584: p_talv_rec.original_cost IS NULL THEN
2585: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'original_cost');
2578: x_return_status := OKC_API.G_RET_STS_ERROR;
2579: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2580: p_talv_rec.asset_number IS NULL THEN
2581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2582: x_return_status := OKC_API.G_RET_STS_ERROR;
2583: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2584: p_talv_rec.original_cost IS NULL THEN
2585: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'original_cost');
2586: x_return_status := OKC_API.G_RET_STS_ERROR;
2579: ELSIF p_talv_rec.asset_number = OKC_API.G_MISS_CHAR OR
2580: p_talv_rec.asset_number IS NULL THEN
2581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2582: x_return_status := OKC_API.G_RET_STS_ERROR;
2583: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2584: p_talv_rec.original_cost IS NULL THEN
2585: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'original_cost');
2586: x_return_status := OKC_API.G_RET_STS_ERROR;
2587: END IF;
2581: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
2582: x_return_status := OKC_API.G_RET_STS_ERROR;
2583: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2584: p_talv_rec.original_cost IS NULL THEN
2585: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'original_cost');
2586: x_return_status := OKC_API.G_RET_STS_ERROR;
2587: END IF;
2588: /************************ HAND-CODED *********************************/
2589: -- Calling the validation procedures for attributes
2582: x_return_status := OKC_API.G_RET_STS_ERROR;
2583: ELSIF p_talv_rec.original_cost = OKC_API.G_MISS_NUM OR
2584: p_talv_rec.original_cost IS NULL THEN
2585: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'original_cost');
2586: x_return_status := OKC_API.G_RET_STS_ERROR;
2587: END IF;
2588: /************************ HAND-CODED *********************************/
2589: -- Calling the validation procedures for attributes
2590: validate_tas_id(x_return_status => l_return_status,
2589: -- Calling the validation procedures for attributes
2590: validate_tas_id(x_return_status => l_return_status,
2591: p_talv_rec => p_talv_rec);
2592: -- Store the Highest Degree of Error
2593: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2594: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2595: x_return_status := l_return_status;
2596: END IF;
2597: END IF;
2590: validate_tas_id(x_return_status => l_return_status,
2591: p_talv_rec => p_talv_rec);
2592: -- Store the Highest Degree of Error
2593: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2594: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2595: x_return_status := l_return_status;
2596: END IF;
2597: END IF;
2598: l_return_status := x_return_status;
2598: l_return_status := x_return_status;
2599: validate_ilo_id(x_return_status => l_return_status,
2600: p_talv_rec => p_talv_rec);
2601: -- Store the Highest Degree of Error
2602: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2603: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2604: x_return_status := l_return_status;
2605: END IF;
2606: END IF;
2599: validate_ilo_id(x_return_status => l_return_status,
2600: p_talv_rec => p_talv_rec);
2601: -- Store the Highest Degree of Error
2602: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2603: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2604: x_return_status := l_return_status;
2605: END IF;
2606: END IF;
2607: l_return_status := x_return_status;
2607: l_return_status := x_return_status;
2608: validate_ilo_id_old(x_return_status => l_return_status,
2609: p_talv_rec => p_talv_rec);
2610: -- Store the Highest Degree of Error
2611: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2612: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2613: x_return_status := l_return_status;
2614: END IF;
2615: END IF;
2608: validate_ilo_id_old(x_return_status => l_return_status,
2609: p_talv_rec => p_talv_rec);
2610: -- Store the Highest Degree of Error
2611: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2612: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2613: x_return_status := l_return_status;
2614: END IF;
2615: END IF;
2616: l_return_status := x_return_status;
2616: l_return_status := x_return_status;
2617: validate_iay_id(x_return_status => l_return_status,
2618: p_talv_rec => p_talv_rec);
2619: -- Store the Highest Degree of Error
2620: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2621: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2622: x_return_status := l_return_status;
2623: END IF;
2624: END IF;
2617: validate_iay_id(x_return_status => l_return_status,
2618: p_talv_rec => p_talv_rec);
2619: -- Store the Highest Degree of Error
2620: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2621: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2622: x_return_status := l_return_status;
2623: END IF;
2624: END IF;
2625: l_return_status := x_return_status;
2625: l_return_status := x_return_status;
2626: validate_iay_id_new(x_return_status => l_return_status,
2627: p_talv_rec => p_talv_rec);
2628: -- Store the Highest Degree of Error
2629: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2630: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2631: x_return_status := l_return_status;
2632: END IF;
2633: END IF;
2626: validate_iay_id_new(x_return_status => l_return_status,
2627: p_talv_rec => p_talv_rec);
2628: -- Store the Highest Degree of Error
2629: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2630: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2631: x_return_status := l_return_status;
2632: END IF;
2633: END IF;
2634: l_return_status := x_return_status;
2634: l_return_status := x_return_status;
2635: validate_kle_id(x_return_status => l_return_status,
2636: p_talv_rec => p_talv_rec);
2637: -- Store the Highest Degree of Error
2638: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2639: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2640: x_return_status := l_return_status;
2641: END IF;
2642: END IF;
2635: validate_kle_id(x_return_status => l_return_status,
2636: p_talv_rec => p_talv_rec);
2637: -- Store the Highest Degree of Error
2638: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2639: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2640: x_return_status := l_return_status;
2641: END IF;
2642: END IF;
2643: l_return_status := x_return_status;
2643: l_return_status := x_return_status;
2644: validate_tal_type(x_return_status => l_return_status,
2645: p_talv_rec => p_talv_rec);
2646: -- Store the Highest Degree of Error
2647: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2648: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2649: x_return_status := l_return_status;
2650: END IF;
2651: END IF;
2644: validate_tal_type(x_return_status => l_return_status,
2645: p_talv_rec => p_talv_rec);
2646: -- Store the Highest Degree of Error
2647: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2648: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2649: x_return_status := l_return_status;
2650: END IF;
2651: END IF;
2652: l_return_status := x_return_status;
2652: l_return_status := x_return_status;
2653: validate_org_id(x_return_status => l_return_status,
2654: p_talv_rec => p_talv_rec);
2655: -- Store the Highest Degree of Error
2656: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2657: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2658: x_return_status := l_return_status;
2659: END IF;
2660: END IF;
2653: validate_org_id(x_return_status => l_return_status,
2654: p_talv_rec => p_talv_rec);
2655: -- Store the Highest Degree of Error
2656: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2657: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2658: x_return_status := l_return_status;
2659: END IF;
2660: END IF;
2661: l_return_status := x_return_status;
2661: l_return_status := x_return_status;
2662: validate_current_units(x_return_status => l_return_status,
2663: p_talv_rec => p_talv_rec);
2664: -- Store the Highest Degree of Error
2665: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2666: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2667: x_return_status := l_return_status;
2668: END IF;
2669: END IF;
2662: validate_current_units(x_return_status => l_return_status,
2663: p_talv_rec => p_talv_rec);
2664: -- Store the Highest Degree of Error
2665: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2666: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2667: x_return_status := l_return_status;
2668: END IF;
2669: END IF;
2670: l_return_status := x_return_status;
2670: l_return_status := x_return_status;
2671: validate_used_asset_yn(x_return_status => l_return_status,
2672: p_talv_rec => p_talv_rec);
2673: -- Store the Highest Degree of Error
2674: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2675: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2676: x_return_status := l_return_status;
2677: END IF;
2678: END IF;
2671: validate_used_asset_yn(x_return_status => l_return_status,
2672: p_talv_rec => p_talv_rec);
2673: -- Store the Highest Degree of Error
2674: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2675: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2676: x_return_status := l_return_status;
2677: END IF;
2678: END IF;
2679: l_return_status := x_return_status;
2679: l_return_status := x_return_status;
2680: validate_life_in_months(x_return_status => l_return_status,
2681: p_talv_rec => p_talv_rec);
2682: -- Store the Highest Degree of Error
2683: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2684: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2685: x_return_status := l_return_status;
2686: END IF;
2687: END IF;
2680: validate_life_in_months(x_return_status => l_return_status,
2681: p_talv_rec => p_talv_rec);
2682: -- Store the Highest Degree of Error
2683: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2684: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2685: x_return_status := l_return_status;
2686: END IF;
2687: END IF;
2688: l_return_status := x_return_status;
2688: l_return_status := x_return_status;
2689: validate_deprn_id(x_return_status => l_return_status,
2690: p_talv_rec => p_talv_rec);
2691: -- Store the Highest Degree of Error
2692: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2693: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2694: x_return_status := l_return_status;
2695: END IF;
2696: END IF;
2689: validate_deprn_id(x_return_status => l_return_status,
2690: p_talv_rec => p_talv_rec);
2691: -- Store the Highest Degree of Error
2692: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2693: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2694: x_return_status := l_return_status;
2695: END IF;
2696: END IF;
2697: l_return_status := x_return_status;
2697: l_return_status := x_return_status;
2698: validate_fa_location_id(x_return_status => l_return_status,
2699: p_talv_rec => p_talv_rec);
2700: -- Store the Highest Degree of Error
2701: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2702: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2703: x_return_status := l_return_status;
2704: END IF;
2705: END IF;
2698: validate_fa_location_id(x_return_status => l_return_status,
2699: p_talv_rec => p_talv_rec);
2700: -- Store the Highest Degree of Error
2701: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2702: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2703: x_return_status := l_return_status;
2704: END IF;
2705: END IF;
2706: l_return_status := x_return_status;
2706: l_return_status := x_return_status;
2707: validate_dnz_khr_id(x_return_status => l_return_status,
2708: p_talv_rec => p_talv_rec);
2709: -- Store the Highest Degree of Error
2710: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2711: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2712: x_return_status := l_return_status;
2713: END IF;
2714: END IF;
2707: validate_dnz_khr_id(x_return_status => l_return_status,
2708: p_talv_rec => p_talv_rec);
2709: -- Store the Highest Degree of Error
2710: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2711: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2712: x_return_status := l_return_status;
2713: END IF;
2714: END IF;
2715: l_return_status := x_return_status;
2715: l_return_status := x_return_status;
2716: validate_corp_book(x_return_status => l_return_status,
2717: p_talv_rec => p_talv_rec);
2718: -- Store the Highest Degree of Error
2719: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2720: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2721: x_return_status := l_return_status;
2722: END IF;
2723: END IF;
2716: validate_corp_book(x_return_status => l_return_status,
2717: p_talv_rec => p_talv_rec);
2718: -- Store the Highest Degree of Error
2719: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2720: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2721: x_return_status := l_return_status;
2722: END IF;
2723: END IF;
2724: l_return_status := x_return_status;
2728: validate_asset_key (x_return_status => l_return_status,
2729: p_talv_rec => p_talv_rec);
2730:
2731: -- Store the Highest Degree of Error
2732: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2733: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2734: x_return_status := l_return_status;
2735: END IF;
2736: END IF;
2729: p_talv_rec => p_talv_rec);
2730:
2731: -- Store the Highest Degree of Error
2732: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2733: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2734: x_return_status := l_return_status;
2735: END IF;
2736: END IF;
2737: l_return_status := x_return_status;
2738: RETURN(l_return_status);
2739: EXCEPTION
2740: WHEN OTHERS THEN
2741: -- store SQL error message on message stack
2742: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2743: p_msg_name => G_UNEXPECTED_ERROR,
2744: p_token1 => G_SQLCODE_TOKEN,
2745: p_token1_value => SQLCODE,
2746: p_token2 => G_SQLERRM_TOKEN,
2745: p_token1_value => SQLCODE,
2746: p_token2 => G_SQLERRM_TOKEN,
2747: p_token2_value => SQLERRM);
2748: -- notify caller of an error as UNEXPETED error
2749: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2750: -- Return status to caller
2751: RETURN(x_return_status);
2752: /************************ HAND-CODED *********************************/
2753: END Validate_Attributes;
2760: ------------------------------------------
2761: FUNCTION Validate_Record (
2762: p_talv_rec IN talv_rec_type
2763: ) RETURN VARCHAR2 IS
2764: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2765: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2766: BEGIN
2767: /************************ HAND-CODED *********************************/
2768: validate_pds_date(x_return_status => l_return_status,
2761: FUNCTION Validate_Record (
2762: p_talv_rec IN talv_rec_type
2763: ) RETURN VARCHAR2 IS
2764: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2765: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2766: BEGIN
2767: /************************ HAND-CODED *********************************/
2768: validate_pds_date(x_return_status => l_return_status,
2769: p_talv_rec => p_talv_rec);
2767: /************************ HAND-CODED *********************************/
2768: validate_pds_date(x_return_status => l_return_status,
2769: p_talv_rec => p_talv_rec);
2770: -- Store the Highest Degree of Error
2771: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2772: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2773: x_return_status := l_return_status;
2774: END IF;
2775: END IF;
2768: validate_pds_date(x_return_status => l_return_status,
2769: p_talv_rec => p_talv_rec);
2770: -- Store the Highest Degree of Error
2771: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2772: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2773: x_return_status := l_return_status;
2774: END IF;
2775: END IF;
2776: l_return_status := x_return_status;
2779: /*
2780: validate_salv_oec(x_return_status => l_return_status,
2781: p_talv_rec => p_talv_rec);
2782: -- Store the Highest Degree of Error
2783: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2784: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2785: x_return_status := l_return_status;
2786: END IF;
2787: END IF;
2780: validate_salv_oec(x_return_status => l_return_status,
2781: p_talv_rec => p_talv_rec);
2782: -- Store the Highest Degree of Error
2783: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2784: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2785: x_return_status := l_return_status;
2786: END IF;
2787: END IF;
2788: */
2791: RETURN (l_return_status);
2792: EXCEPTION
2793: WHEN OTHERS THEN
2794: -- store SQL error message on message stack
2795: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2796: p_msg_name => G_UNEXPECTED_ERROR,
2797: p_token1 => G_SQLCODE_TOKEN,
2798: p_token1_value => SQLCODE,
2799: p_token2 => G_SQLERRM_TOKEN,
2798: p_token1_value => SQLCODE,
2799: p_token2 => G_SQLERRM_TOKEN,
2800: p_token2_value => SQLERRM);
2801: -- notify caller of an error as UNEXPETED error
2802: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2803: -- Return status to caller
2804: RETURN(x_return_status);
2805: /************************ HAND-CODED *********************************/
2806: END Validate_Record;
3032: -- validate_row for:OKL_TXL_ASSETS_V --
3033: ---------------------------------------
3034: PROCEDURE validate_row(
3035: p_api_version IN NUMBER,
3036: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3037: x_return_status OUT NOCOPY VARCHAR2,
3038: x_msg_count OUT NOCOPY NUMBER,
3039: x_msg_data OUT NOCOPY VARCHAR2,
3040: p_talv_rec IN talv_rec_type) IS
3040: p_talv_rec IN talv_rec_type) IS
3041:
3042: l_api_version CONSTANT NUMBER := 1;
3043: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
3044: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3045: l_talv_rec talv_rec_type := p_talv_rec;
3046: l_tal_rec tal_rec_type;
3047: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
3048: BEGIN
3045: l_talv_rec talv_rec_type := p_talv_rec;
3046: l_tal_rec tal_rec_type;
3047: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
3048: BEGIN
3049: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3050: G_PKG_NAME,
3051: p_init_msg_list,
3052: l_api_version,
3053: p_api_version,
3052: l_api_version,
3053: p_api_version,
3054: '_PVT',
3055: x_return_status);
3056: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3058: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3059: RAISE OKC_API.G_EXCEPTION_ERROR;
3060: END IF;
3053: p_api_version,
3054: '_PVT',
3055: x_return_status);
3056: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3058: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3059: RAISE OKC_API.G_EXCEPTION_ERROR;
3060: END IF;
3061: --- Validate all non-missing attributes (Item Level Validation)
3054: '_PVT',
3055: x_return_status);
3056: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3058: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3059: RAISE OKC_API.G_EXCEPTION_ERROR;
3060: END IF;
3061: --- Validate all non-missing attributes (Item Level Validation)
3062: l_return_status := Validate_Attributes(l_talv_rec);
3055: x_return_status);
3056: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3058: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3059: RAISE OKC_API.G_EXCEPTION_ERROR;
3060: END IF;
3061: --- Validate all non-missing attributes (Item Level Validation)
3062: l_return_status := Validate_Attributes(l_talv_rec);
3063: --- If any errors happen abort API
3060: END IF;
3061: --- Validate all non-missing attributes (Item Level Validation)
3062: l_return_status := Validate_Attributes(l_talv_rec);
3063: --- If any errors happen abort API
3064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3067: RAISE OKC_API.G_EXCEPTION_ERROR;
3068: END IF;
3061: --- Validate all non-missing attributes (Item Level Validation)
3062: l_return_status := Validate_Attributes(l_talv_rec);
3063: --- If any errors happen abort API
3064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3067: RAISE OKC_API.G_EXCEPTION_ERROR;
3068: END IF;
3069: l_return_status := Validate_Record(l_talv_rec);
3062: l_return_status := Validate_Attributes(l_talv_rec);
3063: --- If any errors happen abort API
3064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3067: RAISE OKC_API.G_EXCEPTION_ERROR;
3068: END IF;
3069: l_return_status := Validate_Record(l_talv_rec);
3070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3063: --- If any errors happen abort API
3064: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3067: RAISE OKC_API.G_EXCEPTION_ERROR;
3068: END IF;
3069: l_return_status := Validate_Record(l_talv_rec);
3070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3071: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3067: RAISE OKC_API.G_EXCEPTION_ERROR;
3068: END IF;
3069: l_return_status := Validate_Record(l_talv_rec);
3070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3071: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3072: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3073: RAISE OKC_API.G_EXCEPTION_ERROR;
3074: END IF;
3067: RAISE OKC_API.G_EXCEPTION_ERROR;
3068: END IF;
3069: l_return_status := Validate_Record(l_talv_rec);
3070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3071: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3072: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3073: RAISE OKC_API.G_EXCEPTION_ERROR;
3074: END IF;
3075: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3068: END IF;
3069: l_return_status := Validate_Record(l_talv_rec);
3070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3071: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3072: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3073: RAISE OKC_API.G_EXCEPTION_ERROR;
3074: END IF;
3075: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3076: EXCEPTION
3069: l_return_status := Validate_Record(l_talv_rec);
3070: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3071: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3072: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3073: RAISE OKC_API.G_EXCEPTION_ERROR;
3074: END IF;
3075: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3076: EXCEPTION
3077: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3071: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3072: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3073: RAISE OKC_API.G_EXCEPTION_ERROR;
3074: END IF;
3075: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3076: EXCEPTION
3077: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3078: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3079: (
3073: RAISE OKC_API.G_EXCEPTION_ERROR;
3074: END IF;
3075: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3076: EXCEPTION
3077: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3078: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3079: (
3080: l_api_name,
3081: G_PKG_NAME,
3074: END IF;
3075: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3076: EXCEPTION
3077: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3078: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3079: (
3080: l_api_name,
3081: G_PKG_NAME,
3082: 'OKC_API.G_RET_STS_ERROR',
3078: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3079: (
3080: l_api_name,
3081: G_PKG_NAME,
3082: 'OKC_API.G_RET_STS_ERROR',
3083: x_msg_count,
3084: x_msg_data,
3085: '_PVT'
3086: );
3083: x_msg_count,
3084: x_msg_data,
3085: '_PVT'
3086: );
3087: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3088: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3089: (
3090: l_api_name,
3091: G_PKG_NAME,
3084: x_msg_data,
3085: '_PVT'
3086: );
3087: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3088: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3089: (
3090: l_api_name,
3091: G_PKG_NAME,
3092: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3088: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3089: (
3090: l_api_name,
3091: G_PKG_NAME,
3092: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3093: x_msg_count,
3094: x_msg_data,
3095: '_PVT'
3096: );
3094: x_msg_data,
3095: '_PVT'
3096: );
3097: WHEN OTHERS THEN
3098: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3099: (
3100: l_api_name,
3101: G_PKG_NAME,
3102: 'OTHERS',
3109: -- PL/SQL TBL validate_row for:TALV_TBL --
3110: ------------------------------------------
3111: PROCEDURE validate_row(
3112: p_api_version IN NUMBER,
3113: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3114: x_return_status OUT NOCOPY VARCHAR2,
3115: x_msg_count OUT NOCOPY NUMBER,
3116: x_msg_data OUT NOCOPY VARCHAR2,
3117: p_talv_tbl IN talv_tbl_type) IS
3117: p_talv_tbl IN talv_tbl_type) IS
3118:
3119: l_api_version CONSTANT NUMBER := 1;
3120: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
3121: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3122: i NUMBER := 0;
3123: BEGIN
3124: OKC_API.init_msg_list(p_init_msg_list);
3125: -- Make sure PL/SQL table has records in it before passing
3120: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
3121: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3122: i NUMBER := 0;
3123: BEGIN
3124: OKC_API.init_msg_list(p_init_msg_list);
3125: -- Make sure PL/SQL table has records in it before passing
3126: IF (p_talv_tbl.COUNT > 0) THEN
3127: i := p_talv_tbl.FIRST;
3128: LOOP
3127: i := p_talv_tbl.FIRST;
3128: LOOP
3129: validate_row (
3130: p_api_version => p_api_version,
3131: p_init_msg_list => OKC_API.G_FALSE,
3132: x_return_status => x_return_status,
3133: x_msg_count => x_msg_count,
3134: x_msg_data => x_msg_data,
3135: p_talv_rec => p_talv_tbl(i));
3137: i := p_talv_tbl.NEXT(i);
3138: END LOOP;
3139: END IF;
3140: EXCEPTION
3141: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3142: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3143: (
3144: l_api_name,
3145: G_PKG_NAME,
3138: END LOOP;
3139: END IF;
3140: EXCEPTION
3141: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3142: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3143: (
3144: l_api_name,
3145: G_PKG_NAME,
3146: 'OKC_API.G_RET_STS_ERROR',
3142: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3143: (
3144: l_api_name,
3145: G_PKG_NAME,
3146: 'OKC_API.G_RET_STS_ERROR',
3147: x_msg_count,
3148: x_msg_data,
3149: '_PVT'
3150: );
3147: x_msg_count,
3148: x_msg_data,
3149: '_PVT'
3150: );
3151: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3152: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3153: (
3154: l_api_name,
3155: G_PKG_NAME,
3148: x_msg_data,
3149: '_PVT'
3150: );
3151: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3152: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3153: (
3154: l_api_name,
3155: G_PKG_NAME,
3156: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3152: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3153: (
3154: l_api_name,
3155: G_PKG_NAME,
3156: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3157: x_msg_count,
3158: x_msg_data,
3159: '_PVT'
3160: );
3158: x_msg_data,
3159: '_PVT'
3160: );
3161: WHEN OTHERS THEN
3162: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3163: (
3164: l_api_name,
3165: G_PKG_NAME,
3166: 'OTHERS',
3176: -------------------------------------
3177: -- insert_row for:OKL_TXL_ASSETS_B --
3178: -------------------------------------
3179: PROCEDURE insert_row(
3180: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3181: x_return_status OUT NOCOPY VARCHAR2,
3182: x_msg_count OUT NOCOPY NUMBER,
3183: x_msg_data OUT NOCOPY VARCHAR2,
3184: p_tal_rec IN tal_rec_type,
3185: x_tal_rec OUT NOCOPY tal_rec_type) IS
3186:
3187: l_api_version CONSTANT NUMBER := 1;
3188: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
3189: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3190: l_tal_rec tal_rec_type := p_tal_rec;
3191: l_def_tal_rec tal_rec_type;
3192: -----------------------------------------
3193: -- Set_Attributes for:OKL_TXL_ASSETS_B --
3195: FUNCTION Set_Attributes (
3196: p_tal_rec IN tal_rec_type,
3197: x_tal_rec OUT NOCOPY tal_rec_type
3198: ) RETURN VARCHAR2 IS
3199: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3200: BEGIN
3201: x_tal_rec := p_tal_rec;
3202: RETURN(l_return_status);
3203: END Set_Attributes;
3201: x_tal_rec := p_tal_rec;
3202: RETURN(l_return_status);
3203: END Set_Attributes;
3204: BEGIN
3205: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3206: p_init_msg_list,
3207: '_PVT',
3208: x_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3205: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3206: p_init_msg_list,
3207: '_PVT',
3208: x_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3212: RAISE OKC_API.G_EXCEPTION_ERROR;
3213: END IF;
3206: p_init_msg_list,
3207: '_PVT',
3208: x_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3212: RAISE OKC_API.G_EXCEPTION_ERROR;
3213: END IF;
3214: --- Setting item attributes
3207: '_PVT',
3208: x_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3212: RAISE OKC_API.G_EXCEPTION_ERROR;
3213: END IF;
3214: --- Setting item attributes
3215: l_return_status := Set_Attributes(
3208: x_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3212: RAISE OKC_API.G_EXCEPTION_ERROR;
3213: END IF;
3214: --- Setting item attributes
3215: l_return_status := Set_Attributes(
3216: p_tal_rec, -- IN
3215: l_return_status := Set_Attributes(
3216: p_tal_rec, -- IN
3217: l_tal_rec); -- OUT
3218: --- If any errors happen abort API
3219: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3221: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3222: RAISE OKC_API.G_EXCEPTION_ERROR;
3223: END IF;
3216: p_tal_rec, -- IN
3217: l_tal_rec); -- OUT
3218: --- If any errors happen abort API
3219: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3221: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3222: RAISE OKC_API.G_EXCEPTION_ERROR;
3223: END IF;
3224: INSERT INTO OKL_TXL_ASSETS_B(
3217: l_tal_rec); -- OUT
3218: --- If any errors happen abort API
3219: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3221: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3222: RAISE OKC_API.G_EXCEPTION_ERROR;
3223: END IF;
3224: INSERT INTO OKL_TXL_ASSETS_B(
3225: id,
3218: --- If any errors happen abort API
3219: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3221: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3222: RAISE OKC_API.G_EXCEPTION_ERROR;
3223: END IF;
3224: INSERT INTO OKL_TXL_ASSETS_B(
3225: id,
3226: object_version_number,
3401: );
3402:
3403: -- Set OUT values
3404: x_tal_rec := l_tal_rec;
3405: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3406: EXCEPTION
3407: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3408: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3409: (
3403: -- Set OUT values
3404: x_tal_rec := l_tal_rec;
3405: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3406: EXCEPTION
3407: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3408: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3409: (
3410: l_api_name,
3411: G_PKG_NAME,
3404: x_tal_rec := l_tal_rec;
3405: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3406: EXCEPTION
3407: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3408: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3409: (
3410: l_api_name,
3411: G_PKG_NAME,
3412: 'OKC_API.G_RET_STS_ERROR',
3408: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3409: (
3410: l_api_name,
3411: G_PKG_NAME,
3412: 'OKC_API.G_RET_STS_ERROR',
3413: x_msg_count,
3414: x_msg_data,
3415: '_PVT'
3416: );
3413: x_msg_count,
3414: x_msg_data,
3415: '_PVT'
3416: );
3417: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3418: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3419: (
3420: l_api_name,
3421: G_PKG_NAME,
3414: x_msg_data,
3415: '_PVT'
3416: );
3417: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3418: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3419: (
3420: l_api_name,
3421: G_PKG_NAME,
3422: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3418: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3419: (
3420: l_api_name,
3421: G_PKG_NAME,
3422: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3423: x_msg_count,
3424: x_msg_data,
3425: '_PVT'
3426: );
3424: x_msg_data,
3425: '_PVT'
3426: );
3427: WHEN OTHERS THEN
3428: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3429: (
3430: l_api_name,
3431: G_PKG_NAME,
3432: 'OTHERS',
3438: --------------------------------------
3439: -- insert_row for:OKL_TXL_ASSETS_TL --
3440: --------------------------------------
3441: PROCEDURE insert_row(
3442: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3443: x_return_status OUT NOCOPY VARCHAR2,
3444: x_msg_count OUT NOCOPY NUMBER,
3445: x_msg_data OUT NOCOPY VARCHAR2,
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) IS
3448:
3449: l_api_version CONSTANT NUMBER := 1;
3450: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
3451: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3452: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type := p_okl_txl_assets_tl_rec;
3453: l_def_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
3454: CURSOR get_languages IS
3455: SELECT *
3461: FUNCTION Set_Attributes (
3462: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type,
3463: x_okl_txl_assets_tl_rec OUT NOCOPY okl_txl_assets_tl_rec_type
3464: ) RETURN VARCHAR2 IS
3465: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3466: BEGIN
3467: x_okl_txl_assets_tl_rec := p_okl_txl_assets_tl_rec;
3468: x_okl_txl_assets_tl_rec.LANGUAGE := USERENV('LANG');
3469: x_okl_txl_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
3469: x_okl_txl_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
3470: RETURN(l_return_status);
3471: END Set_Attributes;
3472: BEGIN
3473: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3474: p_init_msg_list,
3475: '_PVT',
3476: x_return_status);
3477: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3473: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3474: p_init_msg_list,
3475: '_PVT',
3476: x_return_status);
3477: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3478: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3480: RAISE OKC_API.G_EXCEPTION_ERROR;
3481: END IF;
3474: p_init_msg_list,
3475: '_PVT',
3476: x_return_status);
3477: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3478: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3480: RAISE OKC_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: --- Setting item attributes
3475: '_PVT',
3476: x_return_status);
3477: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3478: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3480: RAISE OKC_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: --- Setting item attributes
3483: l_return_status := Set_Attributes(
3476: x_return_status);
3477: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3478: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3480: RAISE OKC_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: --- Setting item attributes
3483: l_return_status := Set_Attributes(
3484: p_okl_txl_assets_tl_rec, -- IN
3483: l_return_status := Set_Attributes(
3484: p_okl_txl_assets_tl_rec, -- IN
3485: l_okl_txl_assets_tl_rec); -- OUT
3486: --- If any errors happen abort API
3487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_ERROR;
3491: END IF;
3484: p_okl_txl_assets_tl_rec, -- IN
3485: l_okl_txl_assets_tl_rec); -- OUT
3486: --- If any errors happen abort API
3487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_ERROR;
3491: END IF;
3492: FOR l_lang_rec IN get_languages LOOP
3485: l_okl_txl_assets_tl_rec); -- OUT
3486: --- If any errors happen abort API
3487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_ERROR;
3491: END IF;
3492: FOR l_lang_rec IN get_languages LOOP
3493: l_okl_txl_assets_tl_rec.language := l_lang_rec.language_code;
3486: --- If any errors happen abort API
3487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_ERROR;
3491: END IF;
3492: FOR l_lang_rec IN get_languages LOOP
3493: l_okl_txl_assets_tl_rec.language := l_lang_rec.language_code;
3494: INSERT INTO OKL_TXL_ASSETS_TL(
3515: l_okl_txl_assets_tl_rec.last_update_login);
3516: END LOOP;
3517: -- Set OUT values
3518: x_okl_txl_assets_tl_rec := l_okl_txl_assets_tl_rec;
3519: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3520: EXCEPTION
3521: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3522: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3523: (
3517: -- Set OUT values
3518: x_okl_txl_assets_tl_rec := l_okl_txl_assets_tl_rec;
3519: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3520: EXCEPTION
3521: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3522: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3523: (
3524: l_api_name,
3525: G_PKG_NAME,
3518: x_okl_txl_assets_tl_rec := l_okl_txl_assets_tl_rec;
3519: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3520: EXCEPTION
3521: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3522: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3523: (
3524: l_api_name,
3525: G_PKG_NAME,
3526: 'OKC_API.G_RET_STS_ERROR',
3522: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3523: (
3524: l_api_name,
3525: G_PKG_NAME,
3526: 'OKC_API.G_RET_STS_ERROR',
3527: x_msg_count,
3528: x_msg_data,
3529: '_PVT'
3530: );
3527: x_msg_count,
3528: x_msg_data,
3529: '_PVT'
3530: );
3531: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3532: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3533: (
3534: l_api_name,
3535: G_PKG_NAME,
3528: x_msg_data,
3529: '_PVT'
3530: );
3531: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3532: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3533: (
3534: l_api_name,
3535: G_PKG_NAME,
3536: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3532: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3533: (
3534: l_api_name,
3535: G_PKG_NAME,
3536: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3537: x_msg_count,
3538: x_msg_data,
3539: '_PVT'
3540: );
3538: x_msg_data,
3539: '_PVT'
3540: );
3541: WHEN OTHERS THEN
3542: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3543: (
3544: l_api_name,
3545: G_PKG_NAME,
3546: 'OTHERS',
3553: -- insert_row for:OKL_TXL_ASSETS_V --
3554: -------------------------------------
3555: PROCEDURE insert_row(
3556: p_api_version IN NUMBER,
3557: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3558: x_return_status OUT NOCOPY VARCHAR2,
3559: x_msg_count OUT NOCOPY NUMBER,
3560: x_msg_data OUT NOCOPY VARCHAR2,
3561: p_talv_rec IN talv_rec_type,
3562: x_talv_rec OUT NOCOPY talv_rec_type) IS
3563:
3564: l_api_version CONSTANT NUMBER := 1;
3565: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
3566: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3567: l_talv_rec talv_rec_type;
3568: l_def_talv_rec talv_rec_type;
3569: l_tal_rec tal_rec_type;
3570: lx_tal_rec tal_rec_type;
3592: FUNCTION Set_Attributes (
3593: p_talv_rec IN talv_rec_type,
3594: x_talv_rec OUT NOCOPY talv_rec_type
3595: ) RETURN VARCHAR2 IS
3596: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3597: BEGIN
3598: x_talv_rec := p_talv_rec;
3599: x_talv_rec.OBJECT_VERSION_NUMBER := 1;
3600: x_talv_rec.SFWT_FLAG := 'N';
3600: x_talv_rec.SFWT_FLAG := 'N';
3601: RETURN(l_return_status);
3602: END Set_Attributes;
3603: BEGIN
3604: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3605: G_PKG_NAME,
3606: p_init_msg_list,
3607: l_api_version,
3608: p_api_version,
3607: l_api_version,
3608: p_api_version,
3609: '_PVT',
3610: x_return_status);
3611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3608: p_api_version,
3609: '_PVT',
3610: x_return_status);
3611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3616: l_talv_rec := null_out_defaults(p_talv_rec);
3609: '_PVT',
3610: x_return_status);
3611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3616: l_talv_rec := null_out_defaults(p_talv_rec);
3617: -- Set primary key value
3610: x_return_status);
3611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3616: l_talv_rec := null_out_defaults(p_talv_rec);
3617: -- Set primary key value
3618: l_talv_rec.ID := get_seq_id;
3620: l_return_status := Set_Attributes(
3621: l_talv_rec, -- IN
3622: l_def_talv_rec); -- OUT
3623: --- If any errors happen abort API
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: l_talv_rec, -- IN
3622: l_def_talv_rec); -- OUT
3623: --- If any errors happen abort API
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: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
3622: l_def_talv_rec); -- OUT
3623: --- If any errors happen abort API
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: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
3630: --- Validate all non-missing attributes (Item Level Validation)
3623: --- If any errors happen abort API
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: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
3630: --- Validate all non-missing attributes (Item Level Validation)
3631: l_return_status := Validate_Attributes(l_def_talv_rec);
3630: --- Validate all non-missing attributes (Item Level Validation)
3631: l_return_status := Validate_Attributes(l_def_talv_rec);
3632: --- If any errors happen abort API
3633:
3634: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3637: RAISE OKC_API.G_EXCEPTION_ERROR;
3638: END IF;
3631: l_return_status := Validate_Attributes(l_def_talv_rec);
3632: --- If any errors happen abort API
3633:
3634: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3637: RAISE OKC_API.G_EXCEPTION_ERROR;
3638: END IF;
3639: l_return_status := Validate_Record(l_def_talv_rec);
3632: --- If any errors happen abort API
3633:
3634: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3637: RAISE OKC_API.G_EXCEPTION_ERROR;
3638: END IF;
3639: l_return_status := Validate_Record(l_def_talv_rec);
3640: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3633:
3634: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3637: RAISE OKC_API.G_EXCEPTION_ERROR;
3638: END IF;
3639: l_return_status := Validate_Record(l_def_talv_rec);
3640: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3637: RAISE OKC_API.G_EXCEPTION_ERROR;
3638: END IF;
3639: l_return_status := Validate_Record(l_def_talv_rec);
3640: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3642: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_ERROR;
3644: END IF;
3637: RAISE OKC_API.G_EXCEPTION_ERROR;
3638: END IF;
3639: l_return_status := Validate_Record(l_def_talv_rec);
3640: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3642: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_ERROR;
3644: END IF;
3645:
3638: END IF;
3639: l_return_status := Validate_Record(l_def_talv_rec);
3640: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3642: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_ERROR;
3644: END IF;
3645:
3646: --
3639: l_return_status := Validate_Record(l_def_talv_rec);
3640: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3642: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_ERROR;
3644: END IF;
3645:
3646: --
3647: -- Multi-Currency Change, dedey, 12/04/2002
3651: p_talv_rec => l_def_talv_rec,
3652: x_talv_rec => lx_temp_talv_rec
3653: );
3654:
3655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3658: RAISE OKC_API.G_EXCEPTION_ERROR;
3659: END IF;
3652: x_talv_rec => lx_temp_talv_rec
3653: );
3654:
3655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3658: RAISE OKC_API.G_EXCEPTION_ERROR;
3659: END IF;
3660: l_def_talv_rec := lx_temp_talv_rec;
3653: );
3654:
3655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3658: RAISE OKC_API.G_EXCEPTION_ERROR;
3659: END IF;
3660: l_def_talv_rec := lx_temp_talv_rec;
3661:
3654:
3655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3658: RAISE OKC_API.G_EXCEPTION_ERROR;
3659: END IF;
3660: l_def_talv_rec := lx_temp_talv_rec;
3661:
3662: --dbms_output.put_line('After Change: '||lx_temp_talv_rec.currency_code);
3676: p_talv_rec => l_def_talv_rec,
3677: x_talv_rec => lx_temp_talv_rec
3678: );
3679:
3680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3683: RAISE OKC_API.G_EXCEPTION_ERROR;
3684: END IF;
3677: x_talv_rec => lx_temp_talv_rec
3678: );
3679:
3680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3683: RAISE OKC_API.G_EXCEPTION_ERROR;
3684: END IF;
3685: l_def_talv_rec := lx_temp_talv_rec;
3678: );
3679:
3680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3683: RAISE OKC_API.G_EXCEPTION_ERROR;
3684: END IF;
3685: l_def_talv_rec := lx_temp_talv_rec;
3686:
3679:
3680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3683: RAISE OKC_API.G_EXCEPTION_ERROR;
3684: END IF;
3685: l_def_talv_rec := lx_temp_talv_rec;
3686:
3687: --dbms_output.put_line('After Change Orig cost: '||lx_temp_talv_rec.original_cost);
3705: x_msg_data,
3706: l_tal_rec,
3707: lx_tal_rec
3708: );
3709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3712: RAISE OKC_API.G_EXCEPTION_ERROR;
3713: END IF;
3706: l_tal_rec,
3707: lx_tal_rec
3708: );
3709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3712: RAISE OKC_API.G_EXCEPTION_ERROR;
3713: END IF;
3714: migrate(lx_tal_rec, l_def_talv_rec);
3707: lx_tal_rec
3708: );
3709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3712: RAISE OKC_API.G_EXCEPTION_ERROR;
3713: END IF;
3714: migrate(lx_tal_rec, l_def_talv_rec);
3715: insert_row(
3708: );
3709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3712: RAISE OKC_API.G_EXCEPTION_ERROR;
3713: END IF;
3714: migrate(lx_tal_rec, l_def_talv_rec);
3715: insert_row(
3716: p_init_msg_list,
3719: x_msg_data,
3720: l_okl_txl_assets_tl_rec,
3721: lx_okl_txl_assets_tl_rec
3722: );
3723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3724: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3726: RAISE OKC_API.G_EXCEPTION_ERROR;
3727: END IF;
3720: l_okl_txl_assets_tl_rec,
3721: lx_okl_txl_assets_tl_rec
3722: );
3723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3724: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3726: RAISE OKC_API.G_EXCEPTION_ERROR;
3727: END IF;
3728: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
3721: lx_okl_txl_assets_tl_rec
3722: );
3723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3724: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3726: RAISE OKC_API.G_EXCEPTION_ERROR;
3727: END IF;
3728: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
3729: -- Set OUT values
3722: );
3723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3724: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3726: RAISE OKC_API.G_EXCEPTION_ERROR;
3727: END IF;
3728: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
3729: -- Set OUT values
3730: x_talv_rec := l_def_talv_rec;
3727: END IF;
3728: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
3729: -- Set OUT values
3730: x_talv_rec := l_def_talv_rec;
3731: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3732: EXCEPTION
3733: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3734: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3735: (
3729: -- Set OUT values
3730: x_talv_rec := l_def_talv_rec;
3731: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3732: EXCEPTION
3733: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3734: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3735: (
3736: l_api_name,
3737: G_PKG_NAME,
3730: x_talv_rec := l_def_talv_rec;
3731: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3732: EXCEPTION
3733: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3734: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3735: (
3736: l_api_name,
3737: G_PKG_NAME,
3738: 'OKC_API.G_RET_STS_ERROR',
3734: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3735: (
3736: l_api_name,
3737: G_PKG_NAME,
3738: 'OKC_API.G_RET_STS_ERROR',
3739: x_msg_count,
3740: x_msg_data,
3741: '_PVT'
3742: );
3739: x_msg_count,
3740: x_msg_data,
3741: '_PVT'
3742: );
3743: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3744: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3745: (
3746: l_api_name,
3747: G_PKG_NAME,
3740: x_msg_data,
3741: '_PVT'
3742: );
3743: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3744: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3745: (
3746: l_api_name,
3747: G_PKG_NAME,
3748: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3744: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3745: (
3746: l_api_name,
3747: G_PKG_NAME,
3748: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3749: x_msg_count,
3750: x_msg_data,
3751: '_PVT'
3752: );
3750: x_msg_data,
3751: '_PVT'
3752: );
3753: WHEN OTHERS THEN
3754: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3755: (
3756: l_api_name,
3757: G_PKG_NAME,
3758: 'OTHERS',
3765: -- PL/SQL TBL insert_row for:TALV_TBL --
3766: ----------------------------------------
3767: PROCEDURE insert_row(
3768: p_api_version IN NUMBER,
3769: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3770: x_return_status OUT NOCOPY VARCHAR2,
3771: x_msg_count OUT NOCOPY NUMBER,
3772: x_msg_data OUT NOCOPY VARCHAR2,
3773: p_talv_tbl IN talv_tbl_type,
3774: x_talv_tbl OUT NOCOPY talv_tbl_type) IS
3775:
3776: l_api_version CONSTANT NUMBER := 1;
3777: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3778: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3779: i NUMBER := 0;
3780: BEGIN
3781: OKC_API.init_msg_list(p_init_msg_list);
3782: -- Make sure PL/SQL table has records in it before passing
3777: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3778: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3779: i NUMBER := 0;
3780: BEGIN
3781: OKC_API.init_msg_list(p_init_msg_list);
3782: -- Make sure PL/SQL table has records in it before passing
3783: IF (p_talv_tbl.COUNT > 0) THEN
3784: i := p_talv_tbl.FIRST;
3785: LOOP
3784: i := p_talv_tbl.FIRST;
3785: LOOP
3786: insert_row (
3787: p_api_version => p_api_version,
3788: p_init_msg_list => OKC_API.G_FALSE,
3789: x_return_status => x_return_status,
3790: x_msg_count => x_msg_count,
3791: x_msg_data => x_msg_data,
3792: p_talv_rec => p_talv_tbl(i),
3795: i := p_talv_tbl.NEXT(i);
3796: END LOOP;
3797: END IF;
3798: EXCEPTION
3799: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3800: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3801: (
3802: l_api_name,
3803: G_PKG_NAME,
3796: END LOOP;
3797: END IF;
3798: EXCEPTION
3799: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3800: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3801: (
3802: l_api_name,
3803: G_PKG_NAME,
3804: 'OKC_API.G_RET_STS_ERROR',
3800: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3801: (
3802: l_api_name,
3803: G_PKG_NAME,
3804: 'OKC_API.G_RET_STS_ERROR',
3805: x_msg_count,
3806: x_msg_data,
3807: '_PVT'
3808: );
3805: x_msg_count,
3806: x_msg_data,
3807: '_PVT'
3808: );
3809: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3810: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3811: (
3812: l_api_name,
3813: G_PKG_NAME,
3806: x_msg_data,
3807: '_PVT'
3808: );
3809: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3810: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3811: (
3812: l_api_name,
3813: G_PKG_NAME,
3814: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3810: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3811: (
3812: l_api_name,
3813: G_PKG_NAME,
3814: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3815: x_msg_count,
3816: x_msg_data,
3817: '_PVT'
3818: );
3816: x_msg_data,
3817: '_PVT'
3818: );
3819: WHEN OTHERS THEN
3820: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3821: (
3822: l_api_name,
3823: G_PKG_NAME,
3824: 'OTHERS',
3834: -----------------------------------
3835: -- lock_row for:OKL_TXL_ASSETS_B --
3836: -----------------------------------
3837: PROCEDURE lock_row(
3838: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3839: x_return_status OUT NOCOPY VARCHAR2,
3840: x_msg_count OUT NOCOPY NUMBER,
3841: x_msg_data OUT NOCOPY VARCHAR2,
3842: p_tal_rec IN tal_rec_type) IS
3855: FROM OKL_TXL_ASSETS_B
3856: WHERE ID = p_tal_rec.id;
3857: l_api_version CONSTANT NUMBER := 1;
3858: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
3859: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3860: l_object_version_number OKL_TXL_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
3861: lc_object_version_number OKL_TXL_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
3862: l_row_notfound BOOLEAN := FALSE;
3863: lc_row_notfound BOOLEAN := FALSE;
3861: lc_object_version_number OKL_TXL_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
3862: l_row_notfound BOOLEAN := FALSE;
3863: lc_row_notfound BOOLEAN := FALSE;
3864: BEGIN
3865: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3866: p_init_msg_list,
3867: '_PVT',
3868: x_return_status);
3869: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3865: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3866: p_init_msg_list,
3867: '_PVT',
3868: x_return_status);
3869: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3871: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3872: RAISE OKC_API.G_EXCEPTION_ERROR;
3873: END IF;
3866: p_init_msg_list,
3867: '_PVT',
3868: x_return_status);
3869: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3871: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3872: RAISE OKC_API.G_EXCEPTION_ERROR;
3873: END IF;
3874: BEGIN
3867: '_PVT',
3868: x_return_status);
3869: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3871: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3872: RAISE OKC_API.G_EXCEPTION_ERROR;
3873: END IF;
3874: BEGIN
3875: OPEN lock_csr(p_tal_rec);
3868: x_return_status);
3869: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3871: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3872: RAISE OKC_API.G_EXCEPTION_ERROR;
3873: END IF;
3874: BEGIN
3875: OPEN lock_csr(p_tal_rec);
3876: FETCH lock_csr INTO l_object_version_number;
3880: WHEN E_Resource_Busy THEN
3881: IF (lock_csr%ISOPEN) THEN
3882: CLOSE lock_csr;
3883: END IF;
3884: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3885: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3886: END;
3887:
3888: IF ( l_row_notfound ) THEN
3891: lc_row_notfound := lchk_csr%NOTFOUND;
3892: CLOSE lchk_csr;
3893: END IF;
3894: IF (lc_row_notfound) THEN
3895: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3896: RAISE OKC_API.G_EXCEPTION_ERROR;
3897: ELSIF lc_object_version_number > p_tal_rec.object_version_number THEN
3898: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3899: RAISE OKC_API.G_EXCEPTION_ERROR;
3892: CLOSE lchk_csr;
3893: END IF;
3894: IF (lc_row_notfound) THEN
3895: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3896: RAISE OKC_API.G_EXCEPTION_ERROR;
3897: ELSIF lc_object_version_number > p_tal_rec.object_version_number THEN
3898: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3899: RAISE OKC_API.G_EXCEPTION_ERROR;
3900: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3894: IF (lc_row_notfound) THEN
3895: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3896: RAISE OKC_API.G_EXCEPTION_ERROR;
3897: ELSIF lc_object_version_number > p_tal_rec.object_version_number THEN
3898: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3899: RAISE OKC_API.G_EXCEPTION_ERROR;
3900: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3901: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3902: RAISE OKC_API.G_EXCEPTION_ERROR;
3895: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3896: RAISE OKC_API.G_EXCEPTION_ERROR;
3897: ELSIF lc_object_version_number > p_tal_rec.object_version_number THEN
3898: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3899: RAISE OKC_API.G_EXCEPTION_ERROR;
3900: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3901: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3902: RAISE OKC_API.G_EXCEPTION_ERROR;
3903: ELSIF lc_object_version_number = -1 THEN
3897: ELSIF lc_object_version_number > p_tal_rec.object_version_number THEN
3898: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3899: RAISE OKC_API.G_EXCEPTION_ERROR;
3900: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3901: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3902: RAISE OKC_API.G_EXCEPTION_ERROR;
3903: ELSIF lc_object_version_number = -1 THEN
3904: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3905: RAISE OKC_API.G_EXCEPTION_ERROR;
3898: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3899: RAISE OKC_API.G_EXCEPTION_ERROR;
3900: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3901: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3902: RAISE OKC_API.G_EXCEPTION_ERROR;
3903: ELSIF lc_object_version_number = -1 THEN
3904: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3905: RAISE OKC_API.G_EXCEPTION_ERROR;
3906: END IF;
3900: ELSIF lc_object_version_number <> p_tal_rec.object_version_number THEN
3901: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3902: RAISE OKC_API.G_EXCEPTION_ERROR;
3903: ELSIF lc_object_version_number = -1 THEN
3904: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3905: RAISE OKC_API.G_EXCEPTION_ERROR;
3906: END IF;
3907: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3908: EXCEPTION
3901: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3902: RAISE OKC_API.G_EXCEPTION_ERROR;
3903: ELSIF lc_object_version_number = -1 THEN
3904: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3905: RAISE OKC_API.G_EXCEPTION_ERROR;
3906: END IF;
3907: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3908: EXCEPTION
3909: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3903: ELSIF lc_object_version_number = -1 THEN
3904: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3905: RAISE OKC_API.G_EXCEPTION_ERROR;
3906: END IF;
3907: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3908: EXCEPTION
3909: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3910: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3911: (
3905: RAISE OKC_API.G_EXCEPTION_ERROR;
3906: END IF;
3907: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3908: EXCEPTION
3909: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3910: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3911: (
3912: l_api_name,
3913: G_PKG_NAME,
3906: END IF;
3907: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3908: EXCEPTION
3909: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3910: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3911: (
3912: l_api_name,
3913: G_PKG_NAME,
3914: 'OKC_API.G_RET_STS_ERROR',
3910: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3911: (
3912: l_api_name,
3913: G_PKG_NAME,
3914: 'OKC_API.G_RET_STS_ERROR',
3915: x_msg_count,
3916: x_msg_data,
3917: '_PVT'
3918: );
3915: x_msg_count,
3916: x_msg_data,
3917: '_PVT'
3918: );
3919: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3920: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3921: (
3922: l_api_name,
3923: G_PKG_NAME,
3916: x_msg_data,
3917: '_PVT'
3918: );
3919: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3920: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3921: (
3922: l_api_name,
3923: G_PKG_NAME,
3924: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3920: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3921: (
3922: l_api_name,
3923: G_PKG_NAME,
3924: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3925: x_msg_count,
3926: x_msg_data,
3927: '_PVT'
3928: );
3926: x_msg_data,
3927: '_PVT'
3928: );
3929: WHEN OTHERS THEN
3930: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3931: (
3932: l_api_name,
3933: G_PKG_NAME,
3934: 'OTHERS',
3940: ------------------------------------
3941: -- lock_row for:OKL_TXL_ASSETS_TL --
3942: ------------------------------------
3943: PROCEDURE lock_row(
3944: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3945: x_return_status OUT NOCOPY VARCHAR2,
3946: x_msg_count OUT NOCOPY NUMBER,
3947: x_msg_data OUT NOCOPY VARCHAR2,
3948: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type) IS
3956: FOR UPDATE NOWAIT;
3957:
3958: l_api_version CONSTANT NUMBER := 1;
3959: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
3960: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3961: l_lock_var lock_csr%ROWTYPE;
3962: l_row_notfound BOOLEAN := FALSE;
3963: lc_row_notfound BOOLEAN := FALSE;
3964: BEGIN
3961: l_lock_var lock_csr%ROWTYPE;
3962: l_row_notfound BOOLEAN := FALSE;
3963: lc_row_notfound BOOLEAN := FALSE;
3964: BEGIN
3965: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3966: p_init_msg_list,
3967: '_PVT',
3968: x_return_status);
3969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3965: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3966: p_init_msg_list,
3967: '_PVT',
3968: x_return_status);
3969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3972: RAISE OKC_API.G_EXCEPTION_ERROR;
3973: END IF;
3966: p_init_msg_list,
3967: '_PVT',
3968: x_return_status);
3969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3972: RAISE OKC_API.G_EXCEPTION_ERROR;
3973: END IF;
3974: BEGIN
3967: '_PVT',
3968: x_return_status);
3969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3972: RAISE OKC_API.G_EXCEPTION_ERROR;
3973: END IF;
3974: BEGIN
3975: OPEN lock_csr(p_okl_txl_assets_tl_rec);
3968: x_return_status);
3969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3972: RAISE OKC_API.G_EXCEPTION_ERROR;
3973: END IF;
3974: BEGIN
3975: OPEN lock_csr(p_okl_txl_assets_tl_rec);
3976: FETCH lock_csr INTO l_lock_var;
3980: WHEN E_Resource_Busy THEN
3981: IF (lock_csr%ISOPEN) THEN
3982: CLOSE lock_csr;
3983: END IF;
3984: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3985: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3986: END;
3987:
3988: IF ( l_row_notfound ) THEN
3985: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3986: END;
3987:
3988: IF ( l_row_notfound ) THEN
3989: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3990: RAISE OKC_API.G_EXCEPTION_ERROR;
3991: END IF;
3992: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3993: EXCEPTION
3986: END;
3987:
3988: IF ( l_row_notfound ) THEN
3989: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3990: RAISE OKC_API.G_EXCEPTION_ERROR;
3991: END IF;
3992: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3993: EXCEPTION
3994: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3988: IF ( l_row_notfound ) THEN
3989: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3990: RAISE OKC_API.G_EXCEPTION_ERROR;
3991: END IF;
3992: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3993: EXCEPTION
3994: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3996: (
3990: RAISE OKC_API.G_EXCEPTION_ERROR;
3991: END IF;
3992: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3993: EXCEPTION
3994: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3996: (
3997: l_api_name,
3998: G_PKG_NAME,
3991: END IF;
3992: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3993: EXCEPTION
3994: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3996: (
3997: l_api_name,
3998: G_PKG_NAME,
3999: 'OKC_API.G_RET_STS_ERROR',
3995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3996: (
3997: l_api_name,
3998: G_PKG_NAME,
3999: 'OKC_API.G_RET_STS_ERROR',
4000: x_msg_count,
4001: x_msg_data,
4002: '_PVT'
4003: );
4000: x_msg_count,
4001: x_msg_data,
4002: '_PVT'
4003: );
4004: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4005: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4006: (
4007: l_api_name,
4008: G_PKG_NAME,
4001: x_msg_data,
4002: '_PVT'
4003: );
4004: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4005: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4006: (
4007: l_api_name,
4008: G_PKG_NAME,
4009: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4005: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4006: (
4007: l_api_name,
4008: G_PKG_NAME,
4009: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4010: x_msg_count,
4011: x_msg_data,
4012: '_PVT'
4013: );
4011: x_msg_data,
4012: '_PVT'
4013: );
4014: WHEN OTHERS THEN
4015: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4016: (
4017: l_api_name,
4018: G_PKG_NAME,
4019: 'OTHERS',
4026: -- lock_row for:OKL_TXL_ASSETS_V --
4027: -----------------------------------
4028: PROCEDURE lock_row(
4029: p_api_version IN NUMBER,
4030: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4031: x_return_status OUT NOCOPY VARCHAR2,
4032: x_msg_count OUT NOCOPY NUMBER,
4033: x_msg_data OUT NOCOPY VARCHAR2,
4034: p_talv_rec IN talv_rec_type) IS
4034: p_talv_rec IN talv_rec_type) IS
4035:
4036: l_api_version CONSTANT NUMBER := 1;
4037: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
4038: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4039: l_tal_rec tal_rec_type;
4040: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4041: BEGIN
4042: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4038: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4039: l_tal_rec tal_rec_type;
4040: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4041: BEGIN
4042: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4043: G_PKG_NAME,
4044: p_init_msg_list,
4045: l_api_version,
4046: p_api_version,
4045: l_api_version,
4046: p_api_version,
4047: '_PVT',
4048: x_return_status);
4049: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4050: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4051: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4052: RAISE OKC_API.G_EXCEPTION_ERROR;
4053: END IF;
4046: p_api_version,
4047: '_PVT',
4048: x_return_status);
4049: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4050: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4051: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4052: RAISE OKC_API.G_EXCEPTION_ERROR;
4053: END IF;
4054: --------------------------------------
4047: '_PVT',
4048: x_return_status);
4049: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4050: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4051: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4052: RAISE OKC_API.G_EXCEPTION_ERROR;
4053: END IF;
4054: --------------------------------------
4055: -- Move VIEW record to "Child" records
4048: x_return_status);
4049: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4050: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4051: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4052: RAISE OKC_API.G_EXCEPTION_ERROR;
4053: END IF;
4054: --------------------------------------
4055: -- Move VIEW record to "Child" records
4056: --------------------------------------
4065: x_msg_count,
4066: x_msg_data,
4067: l_tal_rec
4068: );
4069: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4070: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4071: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4072: RAISE OKC_API.G_EXCEPTION_ERROR;
4073: END IF;
4066: x_msg_data,
4067: l_tal_rec
4068: );
4069: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4070: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4071: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4072: RAISE OKC_API.G_EXCEPTION_ERROR;
4073: END IF;
4074: lock_row(
4067: l_tal_rec
4068: );
4069: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4070: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4071: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4072: RAISE OKC_API.G_EXCEPTION_ERROR;
4073: END IF;
4074: lock_row(
4075: p_init_msg_list,
4068: );
4069: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4070: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4071: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4072: RAISE OKC_API.G_EXCEPTION_ERROR;
4073: END IF;
4074: lock_row(
4075: p_init_msg_list,
4076: x_return_status,
4077: x_msg_count,
4078: x_msg_data,
4079: l_okl_txl_assets_tl_rec
4080: );
4081: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4084: RAISE OKC_API.G_EXCEPTION_ERROR;
4085: END IF;
4078: x_msg_data,
4079: l_okl_txl_assets_tl_rec
4080: );
4081: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4084: RAISE OKC_API.G_EXCEPTION_ERROR;
4085: END IF;
4086: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4079: l_okl_txl_assets_tl_rec
4080: );
4081: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4084: RAISE OKC_API.G_EXCEPTION_ERROR;
4085: END IF;
4086: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4087: EXCEPTION
4080: );
4081: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4084: RAISE OKC_API.G_EXCEPTION_ERROR;
4085: END IF;
4086: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4087: EXCEPTION
4088: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4084: RAISE OKC_API.G_EXCEPTION_ERROR;
4085: END IF;
4086: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4087: EXCEPTION
4088: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4089: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4090: (
4084: RAISE OKC_API.G_EXCEPTION_ERROR;
4085: END IF;
4086: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4087: EXCEPTION
4088: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4089: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4090: (
4091: l_api_name,
4092: G_PKG_NAME,
4085: END IF;
4086: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4087: EXCEPTION
4088: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4089: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4090: (
4091: l_api_name,
4092: G_PKG_NAME,
4093: 'OKC_API.G_RET_STS_ERROR',
4089: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4090: (
4091: l_api_name,
4092: G_PKG_NAME,
4093: 'OKC_API.G_RET_STS_ERROR',
4094: x_msg_count,
4095: x_msg_data,
4096: '_PVT'
4097: );
4094: x_msg_count,
4095: x_msg_data,
4096: '_PVT'
4097: );
4098: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4099: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4100: (
4101: l_api_name,
4102: G_PKG_NAME,
4095: x_msg_data,
4096: '_PVT'
4097: );
4098: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4099: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4100: (
4101: l_api_name,
4102: G_PKG_NAME,
4103: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4099: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4100: (
4101: l_api_name,
4102: G_PKG_NAME,
4103: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4104: x_msg_count,
4105: x_msg_data,
4106: '_PVT'
4107: );
4105: x_msg_data,
4106: '_PVT'
4107: );
4108: WHEN OTHERS THEN
4109: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4110: (
4111: l_api_name,
4112: G_PKG_NAME,
4113: 'OTHERS',
4120: -- PL/SQL TBL lock_row for:TALV_TBL --
4121: --------------------------------------
4122: PROCEDURE lock_row(
4123: p_api_version IN NUMBER,
4124: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4125: x_return_status OUT NOCOPY VARCHAR2,
4126: x_msg_count OUT NOCOPY NUMBER,
4127: x_msg_data OUT NOCOPY VARCHAR2,
4128: p_talv_tbl IN talv_tbl_type) IS
4128: p_talv_tbl IN talv_tbl_type) IS
4129:
4130: l_api_version CONSTANT NUMBER := 1;
4131: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
4132: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4133: i NUMBER := 0;
4134: BEGIN
4135: OKC_API.init_msg_list(p_init_msg_list);
4136: -- Make sure PL/SQL table has records in it before passing
4131: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
4132: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4133: i NUMBER := 0;
4134: BEGIN
4135: OKC_API.init_msg_list(p_init_msg_list);
4136: -- Make sure PL/SQL table has records in it before passing
4137: IF (p_talv_tbl.COUNT > 0) THEN
4138: i := p_talv_tbl.FIRST;
4139: LOOP
4138: i := p_talv_tbl.FIRST;
4139: LOOP
4140: lock_row (
4141: p_api_version => p_api_version,
4142: p_init_msg_list => OKC_API.G_FALSE,
4143: x_return_status => x_return_status,
4144: x_msg_count => x_msg_count,
4145: x_msg_data => x_msg_data,
4146: p_talv_rec => p_talv_tbl(i));
4148: i := p_talv_tbl.NEXT(i);
4149: END LOOP;
4150: END IF;
4151: EXCEPTION
4152: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4153: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4154: (
4155: l_api_name,
4156: G_PKG_NAME,
4149: END LOOP;
4150: END IF;
4151: EXCEPTION
4152: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4153: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4154: (
4155: l_api_name,
4156: G_PKG_NAME,
4157: 'OKC_API.G_RET_STS_ERROR',
4153: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4154: (
4155: l_api_name,
4156: G_PKG_NAME,
4157: 'OKC_API.G_RET_STS_ERROR',
4158: x_msg_count,
4159: x_msg_data,
4160: '_PVT'
4161: );
4158: x_msg_count,
4159: x_msg_data,
4160: '_PVT'
4161: );
4162: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4163: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4164: (
4165: l_api_name,
4166: G_PKG_NAME,
4159: x_msg_data,
4160: '_PVT'
4161: );
4162: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4163: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4164: (
4165: l_api_name,
4166: G_PKG_NAME,
4167: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4163: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4164: (
4165: l_api_name,
4166: G_PKG_NAME,
4167: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4168: x_msg_count,
4169: x_msg_data,
4170: '_PVT'
4171: );
4169: x_msg_data,
4170: '_PVT'
4171: );
4172: WHEN OTHERS THEN
4173: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4174: (
4175: l_api_name,
4176: G_PKG_NAME,
4177: 'OTHERS',
4187: -------------------------------------
4188: -- update_row for:OKL_TXL_ASSETS_B --
4189: -------------------------------------
4190: PROCEDURE update_row(
4191: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4192: x_return_status OUT NOCOPY VARCHAR2,
4193: x_msg_count OUT NOCOPY NUMBER,
4194: x_msg_data OUT NOCOPY VARCHAR2,
4195: p_tal_rec IN tal_rec_type,
4196: x_tal_rec OUT NOCOPY tal_rec_type) IS
4197:
4198: l_api_version CONSTANT NUMBER := 1;
4199: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
4200: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4201: l_tal_rec tal_rec_type := p_tal_rec;
4202: l_def_tal_rec tal_rec_type;
4203: l_row_notfound BOOLEAN := TRUE;
4204: ----------------------------------
4209: x_tal_rec OUT NOCOPY tal_rec_type
4210: ) RETURN VARCHAR2 IS
4211: l_tal_rec tal_rec_type;
4212: l_row_notfound BOOLEAN := TRUE;
4213: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4214: BEGIN
4215: x_tal_rec := p_tal_rec;
4216: -- Get current database values
4217: l_tal_rec := get_rec(p_tal_rec, l_row_notfound);
4215: x_tal_rec := p_tal_rec;
4216: -- Get current database values
4217: l_tal_rec := get_rec(p_tal_rec, l_row_notfound);
4218: IF (l_row_notfound) THEN
4219: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4220: END IF;
4221: IF (x_tal_rec.id = OKC_API.G_MISS_NUM)
4222: THEN
4223: x_tal_rec.id := l_tal_rec.id;
4217: l_tal_rec := get_rec(p_tal_rec, l_row_notfound);
4218: IF (l_row_notfound) THEN
4219: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4220: END IF;
4221: IF (x_tal_rec.id = OKC_API.G_MISS_NUM)
4222: THEN
4223: x_tal_rec.id := l_tal_rec.id;
4224: END IF;
4225: IF (x_tal_rec.object_version_number = OKC_API.G_MISS_NUM)
4221: IF (x_tal_rec.id = OKC_API.G_MISS_NUM)
4222: THEN
4223: x_tal_rec.id := l_tal_rec.id;
4224: END IF;
4225: IF (x_tal_rec.object_version_number = OKC_API.G_MISS_NUM)
4226: THEN
4227: x_tal_rec.object_version_number := l_tal_rec.object_version_number;
4228: END IF;
4229: IF (x_tal_rec.tas_id = OKC_API.G_MISS_NUM)
4225: IF (x_tal_rec.object_version_number = OKC_API.G_MISS_NUM)
4226: THEN
4227: x_tal_rec.object_version_number := l_tal_rec.object_version_number;
4228: END IF;
4229: IF (x_tal_rec.tas_id = OKC_API.G_MISS_NUM)
4230: THEN
4231: x_tal_rec.tas_id := l_tal_rec.tas_id;
4232: END IF;
4233: IF (x_tal_rec.ilo_id = OKC_API.G_MISS_NUM)
4229: IF (x_tal_rec.tas_id = OKC_API.G_MISS_NUM)
4230: THEN
4231: x_tal_rec.tas_id := l_tal_rec.tas_id;
4232: END IF;
4233: IF (x_tal_rec.ilo_id = OKC_API.G_MISS_NUM)
4234: THEN
4235: x_tal_rec.ilo_id := l_tal_rec.ilo_id;
4236: END IF;
4237: IF (x_tal_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4233: IF (x_tal_rec.ilo_id = OKC_API.G_MISS_NUM)
4234: THEN
4235: x_tal_rec.ilo_id := l_tal_rec.ilo_id;
4236: END IF;
4237: IF (x_tal_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4238: THEN
4239: x_tal_rec.ilo_id_old := l_tal_rec.ilo_id_old;
4240: END IF;
4241: IF (x_tal_rec.iay_id = OKC_API.G_MISS_NUM)
4237: IF (x_tal_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4238: THEN
4239: x_tal_rec.ilo_id_old := l_tal_rec.ilo_id_old;
4240: END IF;
4241: IF (x_tal_rec.iay_id = OKC_API.G_MISS_NUM)
4242: THEN
4243: x_tal_rec.iay_id := l_tal_rec.iay_id;
4244: END IF;
4245: IF (x_tal_rec.iay_id_new = OKC_API.G_MISS_NUM)
4241: IF (x_tal_rec.iay_id = OKC_API.G_MISS_NUM)
4242: THEN
4243: x_tal_rec.iay_id := l_tal_rec.iay_id;
4244: END IF;
4245: IF (x_tal_rec.iay_id_new = OKC_API.G_MISS_NUM)
4246: THEN
4247: x_tal_rec.iay_id_new := l_tal_rec.iay_id_new;
4248: END IF;
4249: IF (x_tal_rec.kle_id = OKC_API.G_MISS_NUM)
4245: IF (x_tal_rec.iay_id_new = OKC_API.G_MISS_NUM)
4246: THEN
4247: x_tal_rec.iay_id_new := l_tal_rec.iay_id_new;
4248: END IF;
4249: IF (x_tal_rec.kle_id = OKC_API.G_MISS_NUM)
4250: THEN
4251: x_tal_rec.kle_id := l_tal_rec.kle_id;
4252: END IF;
4253: IF (x_tal_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4249: IF (x_tal_rec.kle_id = OKC_API.G_MISS_NUM)
4250: THEN
4251: x_tal_rec.kle_id := l_tal_rec.kle_id;
4252: END IF;
4253: IF (x_tal_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4254: THEN
4255: x_tal_rec.dnz_khr_id := l_tal_rec.dnz_khr_id;
4256: END IF;
4257: IF (x_tal_rec.line_number = OKC_API.G_MISS_NUM)
4253: IF (x_tal_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4254: THEN
4255: x_tal_rec.dnz_khr_id := l_tal_rec.dnz_khr_id;
4256: END IF;
4257: IF (x_tal_rec.line_number = OKC_API.G_MISS_NUM)
4258: THEN
4259: x_tal_rec.line_number := l_tal_rec.line_number;
4260: END IF;
4261: IF (x_tal_rec.org_id = OKC_API.G_MISS_NUM)
4257: IF (x_tal_rec.line_number = OKC_API.G_MISS_NUM)
4258: THEN
4259: x_tal_rec.line_number := l_tal_rec.line_number;
4260: END IF;
4261: IF (x_tal_rec.org_id = OKC_API.G_MISS_NUM)
4262: THEN
4263: x_tal_rec.org_id := l_tal_rec.org_id;
4264: END IF;
4265: IF (x_tal_rec.tal_type = OKC_API.G_MISS_CHAR)
4261: IF (x_tal_rec.org_id = OKC_API.G_MISS_NUM)
4262: THEN
4263: x_tal_rec.org_id := l_tal_rec.org_id;
4264: END IF;
4265: IF (x_tal_rec.tal_type = OKC_API.G_MISS_CHAR)
4266: THEN
4267: x_tal_rec.tal_type := l_tal_rec.tal_type;
4268: END IF;
4269: IF (x_tal_rec.asset_number = OKC_API.G_MISS_CHAR)
4265: IF (x_tal_rec.tal_type = OKC_API.G_MISS_CHAR)
4266: THEN
4267: x_tal_rec.tal_type := l_tal_rec.tal_type;
4268: END IF;
4269: IF (x_tal_rec.asset_number = OKC_API.G_MISS_CHAR)
4270: THEN
4271: x_tal_rec.asset_number := l_tal_rec.asset_number;
4272: END IF;
4273: IF (x_tal_rec.original_cost = OKC_API.G_MISS_NUM)
4269: IF (x_tal_rec.asset_number = OKC_API.G_MISS_CHAR)
4270: THEN
4271: x_tal_rec.asset_number := l_tal_rec.asset_number;
4272: END IF;
4273: IF (x_tal_rec.original_cost = OKC_API.G_MISS_NUM)
4274: THEN
4275: x_tal_rec.original_cost := l_tal_rec.original_cost;
4276: END IF;
4277: IF (x_tal_rec.current_units = OKC_API.G_MISS_NUM)
4273: IF (x_tal_rec.original_cost = OKC_API.G_MISS_NUM)
4274: THEN
4275: x_tal_rec.original_cost := l_tal_rec.original_cost;
4276: END IF;
4277: IF (x_tal_rec.current_units = OKC_API.G_MISS_NUM)
4278: THEN
4279: x_tal_rec.current_units := l_tal_rec.current_units;
4280: END IF;
4281: IF (x_tal_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
4277: IF (x_tal_rec.current_units = OKC_API.G_MISS_NUM)
4278: THEN
4279: x_tal_rec.current_units := l_tal_rec.current_units;
4280: END IF;
4281: IF (x_tal_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
4282: THEN
4283: x_tal_rec.manufacturer_name := l_tal_rec.manufacturer_name;
4284: END IF;
4285: IF (x_tal_rec.year_manufactured = OKC_API.G_MISS_NUM)
4281: IF (x_tal_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
4282: THEN
4283: x_tal_rec.manufacturer_name := l_tal_rec.manufacturer_name;
4284: END IF;
4285: IF (x_tal_rec.year_manufactured = OKC_API.G_MISS_NUM)
4286: THEN
4287: x_tal_rec.year_manufactured := l_tal_rec.year_manufactured;
4288: END IF;
4289: IF (x_tal_rec.supplier_id = OKC_API.G_MISS_NUM)
4285: IF (x_tal_rec.year_manufactured = OKC_API.G_MISS_NUM)
4286: THEN
4287: x_tal_rec.year_manufactured := l_tal_rec.year_manufactured;
4288: END IF;
4289: IF (x_tal_rec.supplier_id = OKC_API.G_MISS_NUM)
4290: THEN
4291: x_tal_rec.supplier_id := l_tal_rec.supplier_id;
4292: END IF;
4293: IF (x_tal_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
4289: IF (x_tal_rec.supplier_id = OKC_API.G_MISS_NUM)
4290: THEN
4291: x_tal_rec.supplier_id := l_tal_rec.supplier_id;
4292: END IF;
4293: IF (x_tal_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
4294: THEN
4295: x_tal_rec.used_asset_yn := l_tal_rec.used_asset_yn;
4296: END IF;
4297: IF (x_tal_rec.tag_number = OKC_API.G_MISS_CHAR)
4293: IF (x_tal_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
4294: THEN
4295: x_tal_rec.used_asset_yn := l_tal_rec.used_asset_yn;
4296: END IF;
4297: IF (x_tal_rec.tag_number = OKC_API.G_MISS_CHAR)
4298: THEN
4299: x_tal_rec.tag_number := l_tal_rec.tag_number;
4300: END IF;
4301: IF (x_tal_rec.model_number = OKC_API.G_MISS_CHAR)
4297: IF (x_tal_rec.tag_number = OKC_API.G_MISS_CHAR)
4298: THEN
4299: x_tal_rec.tag_number := l_tal_rec.tag_number;
4300: END IF;
4301: IF (x_tal_rec.model_number = OKC_API.G_MISS_CHAR)
4302: THEN
4303: x_tal_rec.model_number := l_tal_rec.model_number;
4304: END IF;
4305: IF (x_tal_rec.corporate_book = OKC_API.G_MISS_CHAR)
4301: IF (x_tal_rec.model_number = OKC_API.G_MISS_CHAR)
4302: THEN
4303: x_tal_rec.model_number := l_tal_rec.model_number;
4304: END IF;
4305: IF (x_tal_rec.corporate_book = OKC_API.G_MISS_CHAR)
4306: THEN
4307: x_tal_rec.corporate_book := l_tal_rec.corporate_book;
4308: END IF;
4309: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4305: IF (x_tal_rec.corporate_book = OKC_API.G_MISS_CHAR)
4306: THEN
4307: x_tal_rec.corporate_book := l_tal_rec.corporate_book;
4308: END IF;
4309: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4310: THEN
4311: x_tal_rec.date_purchased := l_tal_rec.date_purchased;
4312: END IF;
4313: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4309: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4310: THEN
4311: x_tal_rec.date_purchased := l_tal_rec.date_purchased;
4312: END IF;
4313: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4314: THEN
4315: x_tal_rec.date_delivery := l_tal_rec.date_delivery;
4316: END IF;
4317: IF (x_tal_rec.in_service_date = OKC_API.G_MISS_DATE)
4313: IF (x_tal_rec.date_purchased = OKC_API.G_MISS_DATE)
4314: THEN
4315: x_tal_rec.date_delivery := l_tal_rec.date_delivery;
4316: END IF;
4317: IF (x_tal_rec.in_service_date = OKC_API.G_MISS_DATE)
4318: THEN
4319: x_tal_rec.in_service_date := l_tal_rec.in_service_date;
4320: END IF;
4321: IF (x_tal_rec.life_in_months = OKC_API.G_MISS_NUM)
4317: IF (x_tal_rec.in_service_date = OKC_API.G_MISS_DATE)
4318: THEN
4319: x_tal_rec.in_service_date := l_tal_rec.in_service_date;
4320: END IF;
4321: IF (x_tal_rec.life_in_months = OKC_API.G_MISS_NUM)
4322: THEN
4323: x_tal_rec.life_in_months := l_tal_rec.life_in_months;
4324: END IF;
4325: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4321: IF (x_tal_rec.life_in_months = OKC_API.G_MISS_NUM)
4322: THEN
4323: x_tal_rec.life_in_months := l_tal_rec.life_in_months;
4324: END IF;
4325: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4326: THEN
4327: x_tal_rec.depreciation_id := l_tal_rec.depreciation_id;
4328: END IF;
4329: IF (x_tal_rec.depreciation_cost = OKC_API.G_MISS_NUM)
4325: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4326: THEN
4327: x_tal_rec.depreciation_id := l_tal_rec.depreciation_id;
4328: END IF;
4329: IF (x_tal_rec.depreciation_cost = OKC_API.G_MISS_NUM)
4330: THEN
4331: x_tal_rec.depreciation_cost := l_tal_rec.depreciation_cost;
4332: END IF;
4333: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4329: IF (x_tal_rec.depreciation_cost = OKC_API.G_MISS_NUM)
4330: THEN
4331: x_tal_rec.depreciation_cost := l_tal_rec.depreciation_cost;
4332: END IF;
4333: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4334: THEN
4335: x_tal_rec.deprn_method := l_tal_rec.deprn_method;
4336: END IF;
4337: IF (x_tal_rec.deprn_rate = OKC_API.G_MISS_NUM)
4333: IF (x_tal_rec.depreciation_id = OKC_API.G_MISS_NUM)
4334: THEN
4335: x_tal_rec.deprn_method := l_tal_rec.deprn_method;
4336: END IF;
4337: IF (x_tal_rec.deprn_rate = OKC_API.G_MISS_NUM)
4338: THEN
4339: x_tal_rec.deprn_rate := l_tal_rec.deprn_rate;
4340: END IF;
4341: IF (x_tal_rec.salvage_value = OKC_API.G_MISS_NUM)
4337: IF (x_tal_rec.deprn_rate = OKC_API.G_MISS_NUM)
4338: THEN
4339: x_tal_rec.deprn_rate := l_tal_rec.deprn_rate;
4340: END IF;
4341: IF (x_tal_rec.salvage_value = OKC_API.G_MISS_NUM)
4342: THEN
4343: x_tal_rec.salvage_value := l_tal_rec.salvage_value;
4344: END IF;
4345: IF (x_tal_rec.percent_salvage_value = OKC_API.G_MISS_NUM)
4341: IF (x_tal_rec.salvage_value = OKC_API.G_MISS_NUM)
4342: THEN
4343: x_tal_rec.salvage_value := l_tal_rec.salvage_value;
4344: END IF;
4345: IF (x_tal_rec.percent_salvage_value = OKC_API.G_MISS_NUM)
4346: THEN
4347: x_tal_rec.percent_salvage_value := l_tal_rec.percent_salvage_value;
4348: END IF;
4349: --Bug# 2981308
4351: THEN
4352: x_tal_rec.asset_key_id := l_tal_rec.asset_key_id;
4353: END IF;
4354: -- Bug# 4028371
4355: IF (x_tal_rec.fa_trx_date = OKC_API.G_MISS_DATE)
4356: THEN
4357: x_tal_rec.fa_trx_date := l_tal_rec.fa_trx_date;
4358: END IF;
4359: --Bug# 4899328
4360: IF (x_tal_rec.fa_cost = OKL_API.G_MISS_NUM)
4361: THEN
4362: x_tal_rec.fa_cost := l_tal_rec.fa_cost;
4363: END IF;
4364: IF (x_tal_rec.attribute_category = OKC_API.G_MISS_CHAR)
4365: THEN
4366: x_tal_rec.attribute_category := l_tal_rec.attribute_category;
4367: END IF;
4368: IF (x_tal_rec.attribute1 = OKC_API.G_MISS_CHAR)
4364: IF (x_tal_rec.attribute_category = OKC_API.G_MISS_CHAR)
4365: THEN
4366: x_tal_rec.attribute_category := l_tal_rec.attribute_category;
4367: END IF;
4368: IF (x_tal_rec.attribute1 = OKC_API.G_MISS_CHAR)
4369: THEN
4370: x_tal_rec.attribute1 := l_tal_rec.attribute1;
4371: END IF;
4372: IF (x_tal_rec.attribute2 = OKC_API.G_MISS_CHAR)
4368: IF (x_tal_rec.attribute1 = OKC_API.G_MISS_CHAR)
4369: THEN
4370: x_tal_rec.attribute1 := l_tal_rec.attribute1;
4371: END IF;
4372: IF (x_tal_rec.attribute2 = OKC_API.G_MISS_CHAR)
4373: THEN
4374: x_tal_rec.attribute2 := l_tal_rec.attribute2;
4375: END IF;
4376: IF (x_tal_rec.attribute3 = OKC_API.G_MISS_CHAR)
4372: IF (x_tal_rec.attribute2 = OKC_API.G_MISS_CHAR)
4373: THEN
4374: x_tal_rec.attribute2 := l_tal_rec.attribute2;
4375: END IF;
4376: IF (x_tal_rec.attribute3 = OKC_API.G_MISS_CHAR)
4377: THEN
4378: x_tal_rec.attribute3 := l_tal_rec.attribute3;
4379: END IF;
4380: IF (x_tal_rec.attribute4 = OKC_API.G_MISS_CHAR)
4376: IF (x_tal_rec.attribute3 = OKC_API.G_MISS_CHAR)
4377: THEN
4378: x_tal_rec.attribute3 := l_tal_rec.attribute3;
4379: END IF;
4380: IF (x_tal_rec.attribute4 = OKC_API.G_MISS_CHAR)
4381: THEN
4382: x_tal_rec.attribute4 := l_tal_rec.attribute4;
4383: END IF;
4384: IF (x_tal_rec.attribute5 = OKC_API.G_MISS_CHAR)
4380: IF (x_tal_rec.attribute4 = OKC_API.G_MISS_CHAR)
4381: THEN
4382: x_tal_rec.attribute4 := l_tal_rec.attribute4;
4383: END IF;
4384: IF (x_tal_rec.attribute5 = OKC_API.G_MISS_CHAR)
4385: THEN
4386: x_tal_rec.attribute5 := l_tal_rec.attribute5;
4387: END IF;
4388: IF (x_tal_rec.attribute6 = OKC_API.G_MISS_CHAR)
4384: IF (x_tal_rec.attribute5 = OKC_API.G_MISS_CHAR)
4385: THEN
4386: x_tal_rec.attribute5 := l_tal_rec.attribute5;
4387: END IF;
4388: IF (x_tal_rec.attribute6 = OKC_API.G_MISS_CHAR)
4389: THEN
4390: x_tal_rec.attribute6 := l_tal_rec.attribute6;
4391: END IF;
4392: IF (x_tal_rec.attribute7 = OKC_API.G_MISS_CHAR)
4388: IF (x_tal_rec.attribute6 = OKC_API.G_MISS_CHAR)
4389: THEN
4390: x_tal_rec.attribute6 := l_tal_rec.attribute6;
4391: END IF;
4392: IF (x_tal_rec.attribute7 = OKC_API.G_MISS_CHAR)
4393: THEN
4394: x_tal_rec.attribute7 := l_tal_rec.attribute7;
4395: END IF;
4396: IF (x_tal_rec.attribute8 = OKC_API.G_MISS_CHAR)
4392: IF (x_tal_rec.attribute7 = OKC_API.G_MISS_CHAR)
4393: THEN
4394: x_tal_rec.attribute7 := l_tal_rec.attribute7;
4395: END IF;
4396: IF (x_tal_rec.attribute8 = OKC_API.G_MISS_CHAR)
4397: THEN
4398: x_tal_rec.attribute8 := l_tal_rec.attribute8;
4399: END IF;
4400: IF (x_tal_rec.attribute9 = OKC_API.G_MISS_CHAR)
4396: IF (x_tal_rec.attribute8 = OKC_API.G_MISS_CHAR)
4397: THEN
4398: x_tal_rec.attribute8 := l_tal_rec.attribute8;
4399: END IF;
4400: IF (x_tal_rec.attribute9 = OKC_API.G_MISS_CHAR)
4401: THEN
4402: x_tal_rec.attribute9 := l_tal_rec.attribute9;
4403: END IF;
4404: IF (x_tal_rec.attribute10 = OKC_API.G_MISS_CHAR)
4400: IF (x_tal_rec.attribute9 = OKC_API.G_MISS_CHAR)
4401: THEN
4402: x_tal_rec.attribute9 := l_tal_rec.attribute9;
4403: END IF;
4404: IF (x_tal_rec.attribute10 = OKC_API.G_MISS_CHAR)
4405: THEN
4406: x_tal_rec.attribute10 := l_tal_rec.attribute10;
4407: END IF;
4408: IF (x_tal_rec.attribute11 = OKC_API.G_MISS_CHAR)
4404: IF (x_tal_rec.attribute10 = OKC_API.G_MISS_CHAR)
4405: THEN
4406: x_tal_rec.attribute10 := l_tal_rec.attribute10;
4407: END IF;
4408: IF (x_tal_rec.attribute11 = OKC_API.G_MISS_CHAR)
4409: THEN
4410: x_tal_rec.attribute11 := l_tal_rec.attribute11;
4411: END IF;
4412: IF (x_tal_rec.attribute12 = OKC_API.G_MISS_CHAR)
4408: IF (x_tal_rec.attribute11 = OKC_API.G_MISS_CHAR)
4409: THEN
4410: x_tal_rec.attribute11 := l_tal_rec.attribute11;
4411: END IF;
4412: IF (x_tal_rec.attribute12 = OKC_API.G_MISS_CHAR)
4413: THEN
4414: x_tal_rec.attribute12 := l_tal_rec.attribute12;
4415: END IF;
4416: IF (x_tal_rec.attribute13 = OKC_API.G_MISS_CHAR)
4412: IF (x_tal_rec.attribute12 = OKC_API.G_MISS_CHAR)
4413: THEN
4414: x_tal_rec.attribute12 := l_tal_rec.attribute12;
4415: END IF;
4416: IF (x_tal_rec.attribute13 = OKC_API.G_MISS_CHAR)
4417: THEN
4418: x_tal_rec.attribute13 := l_tal_rec.attribute13;
4419: END IF;
4420: IF (x_tal_rec.attribute14 = OKC_API.G_MISS_CHAR)
4416: IF (x_tal_rec.attribute13 = OKC_API.G_MISS_CHAR)
4417: THEN
4418: x_tal_rec.attribute13 := l_tal_rec.attribute13;
4419: END IF;
4420: IF (x_tal_rec.attribute14 = OKC_API.G_MISS_CHAR)
4421: THEN
4422: x_tal_rec.attribute14 := l_tal_rec.attribute14;
4423: END IF;
4424: IF (x_tal_rec.attribute15 = OKC_API.G_MISS_CHAR)
4420: IF (x_tal_rec.attribute14 = OKC_API.G_MISS_CHAR)
4421: THEN
4422: x_tal_rec.attribute14 := l_tal_rec.attribute14;
4423: END IF;
4424: IF (x_tal_rec.attribute15 = OKC_API.G_MISS_CHAR)
4425: THEN
4426: x_tal_rec.attribute15 := l_tal_rec.attribute15;
4427: END IF;
4428: IF (x_tal_rec.created_by = OKC_API.G_MISS_NUM)
4424: IF (x_tal_rec.attribute15 = OKC_API.G_MISS_CHAR)
4425: THEN
4426: x_tal_rec.attribute15 := l_tal_rec.attribute15;
4427: END IF;
4428: IF (x_tal_rec.created_by = OKC_API.G_MISS_NUM)
4429: THEN
4430: x_tal_rec.created_by := l_tal_rec.created_by;
4431: END IF;
4432: IF (x_tal_rec.creation_date = OKC_API.G_MISS_DATE)
4428: IF (x_tal_rec.created_by = OKC_API.G_MISS_NUM)
4429: THEN
4430: x_tal_rec.created_by := l_tal_rec.created_by;
4431: END IF;
4432: IF (x_tal_rec.creation_date = OKC_API.G_MISS_DATE)
4433: THEN
4434: x_tal_rec.creation_date := l_tal_rec.creation_date;
4435: END IF;
4436: IF (x_tal_rec.last_updated_by = OKC_API.G_MISS_NUM)
4432: IF (x_tal_rec.creation_date = OKC_API.G_MISS_DATE)
4433: THEN
4434: x_tal_rec.creation_date := l_tal_rec.creation_date;
4435: END IF;
4436: IF (x_tal_rec.last_updated_by = OKC_API.G_MISS_NUM)
4437: THEN
4438: x_tal_rec.last_updated_by := l_tal_rec.last_updated_by;
4439: END IF;
4440: IF (x_tal_rec.last_update_date = OKC_API.G_MISS_DATE)
4436: IF (x_tal_rec.last_updated_by = OKC_API.G_MISS_NUM)
4437: THEN
4438: x_tal_rec.last_updated_by := l_tal_rec.last_updated_by;
4439: END IF;
4440: IF (x_tal_rec.last_update_date = OKC_API.G_MISS_DATE)
4441: THEN
4442: x_tal_rec.last_update_date := l_tal_rec.last_update_date;
4443: END IF;
4444: IF (x_tal_rec.last_update_login = OKC_API.G_MISS_NUM)
4440: IF (x_tal_rec.last_update_date = OKC_API.G_MISS_DATE)
4441: THEN
4442: x_tal_rec.last_update_date := l_tal_rec.last_update_date;
4443: END IF;
4444: IF (x_tal_rec.last_update_login = OKC_API.G_MISS_NUM)
4445: THEN
4446: x_tal_rec.last_update_login := l_tal_rec.last_update_login;
4447: END IF;
4448: IF (x_tal_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
4444: IF (x_tal_rec.last_update_login = OKC_API.G_MISS_NUM)
4445: THEN
4446: x_tal_rec.last_update_login := l_tal_rec.last_update_login;
4447: END IF;
4448: IF (x_tal_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
4449: THEN
4450: x_tal_rec.depreciate_yn := l_tal_rec.depreciate_yn;
4451: END IF;
4452: IF (x_tal_rec.hold_period_days = OKC_API.G_MISS_NUM)
4448: IF (x_tal_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
4449: THEN
4450: x_tal_rec.depreciate_yn := l_tal_rec.depreciate_yn;
4451: END IF;
4452: IF (x_tal_rec.hold_period_days = OKC_API.G_MISS_NUM)
4453: THEN
4454: x_tal_rec.hold_period_days := l_tal_rec.hold_period_days;
4455: END IF;
4456: IF (x_tal_rec.old_salvage_value = OKC_API.G_MISS_NUM)
4452: IF (x_tal_rec.hold_period_days = OKC_API.G_MISS_NUM)
4453: THEN
4454: x_tal_rec.hold_period_days := l_tal_rec.hold_period_days;
4455: END IF;
4456: IF (x_tal_rec.old_salvage_value = OKC_API.G_MISS_NUM)
4457: THEN
4458: x_tal_rec.old_salvage_value := l_tal_rec.old_salvage_value;
4459: END IF;
4460: IF (x_tal_rec.new_residual_value = OKC_API.G_MISS_NUM)
4456: IF (x_tal_rec.old_salvage_value = OKC_API.G_MISS_NUM)
4457: THEN
4458: x_tal_rec.old_salvage_value := l_tal_rec.old_salvage_value;
4459: END IF;
4460: IF (x_tal_rec.new_residual_value = OKC_API.G_MISS_NUM)
4461: THEN
4462: x_tal_rec.new_residual_value := l_tal_rec.new_residual_value;
4463: END IF;
4464: IF (x_tal_rec.old_residual_value = OKC_API.G_MISS_NUM)
4460: IF (x_tal_rec.new_residual_value = OKC_API.G_MISS_NUM)
4461: THEN
4462: x_tal_rec.new_residual_value := l_tal_rec.new_residual_value;
4463: END IF;
4464: IF (x_tal_rec.old_residual_value = OKC_API.G_MISS_NUM)
4465: THEN
4466: x_tal_rec.old_residual_value := l_tal_rec.old_residual_value;
4467: END IF;
4468: IF (x_tal_rec.units_retired = OKC_API.G_MISS_NUM)
4464: IF (x_tal_rec.old_residual_value = OKC_API.G_MISS_NUM)
4465: THEN
4466: x_tal_rec.old_residual_value := l_tal_rec.old_residual_value;
4467: END IF;
4468: IF (x_tal_rec.units_retired = OKC_API.G_MISS_NUM)
4469: THEN
4470: x_tal_rec.units_retired := l_tal_rec.units_retired;
4471: END IF;
4472: IF (x_tal_rec.cost_retired = OKC_API.G_MISS_NUM)
4468: IF (x_tal_rec.units_retired = OKC_API.G_MISS_NUM)
4469: THEN
4470: x_tal_rec.units_retired := l_tal_rec.units_retired;
4471: END IF;
4472: IF (x_tal_rec.cost_retired = OKC_API.G_MISS_NUM)
4473: THEN
4474: x_tal_rec.cost_retired := l_tal_rec.cost_retired;
4475: END IF;
4476: IF (x_tal_rec.sale_proceeds = OKC_API.G_MISS_NUM)
4472: IF (x_tal_rec.cost_retired = OKC_API.G_MISS_NUM)
4473: THEN
4474: x_tal_rec.cost_retired := l_tal_rec.cost_retired;
4475: END IF;
4476: IF (x_tal_rec.sale_proceeds = OKC_API.G_MISS_NUM)
4477: THEN
4478: x_tal_rec.sale_proceeds := l_tal_rec.sale_proceeds;
4479: END IF;
4480: IF (x_tal_rec.removal_cost = OKC_API.G_MISS_NUM)
4476: IF (x_tal_rec.sale_proceeds = OKC_API.G_MISS_NUM)
4477: THEN
4478: x_tal_rec.sale_proceeds := l_tal_rec.sale_proceeds;
4479: END IF;
4480: IF (x_tal_rec.removal_cost = OKC_API.G_MISS_NUM)
4481: THEN
4482: x_tal_rec.removal_cost := l_tal_rec.removal_cost;
4483: END IF;
4484: IF (x_tal_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
4480: IF (x_tal_rec.removal_cost = OKC_API.G_MISS_NUM)
4481: THEN
4482: x_tal_rec.removal_cost := l_tal_rec.removal_cost;
4483: END IF;
4484: IF (x_tal_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
4485: THEN
4486: x_tal_rec.dnz_asset_id := l_tal_rec.dnz_asset_id;
4487: END IF;
4488: IF (x_tal_rec.date_due = OKC_API.G_MISS_DATE)
4484: IF (x_tal_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
4485: THEN
4486: x_tal_rec.dnz_asset_id := l_tal_rec.dnz_asset_id;
4487: END IF;
4488: IF (x_tal_rec.date_due = OKC_API.G_MISS_DATE)
4489: THEN
4490: x_tal_rec.date_due := l_tal_rec.date_due;
4491: END IF;
4492: IF (x_tal_rec.rep_asset_id = OKC_API.G_MISS_NUM)
4488: IF (x_tal_rec.date_due = OKC_API.G_MISS_DATE)
4489: THEN
4490: x_tal_rec.date_due := l_tal_rec.date_due;
4491: END IF;
4492: IF (x_tal_rec.rep_asset_id = OKC_API.G_MISS_NUM)
4493: THEN
4494: x_tal_rec.rep_asset_id := l_tal_rec.rep_asset_id;
4495: END IF;
4496: IF (x_tal_rec.lke_asset_id = OKC_API.G_MISS_NUM)
4492: IF (x_tal_rec.rep_asset_id = OKC_API.G_MISS_NUM)
4493: THEN
4494: x_tal_rec.rep_asset_id := l_tal_rec.rep_asset_id;
4495: END IF;
4496: IF (x_tal_rec.lke_asset_id = OKC_API.G_MISS_NUM)
4497: THEN
4498: x_tal_rec.lke_asset_id := l_tal_rec.lke_asset_id;
4499: END IF;
4500: IF (x_tal_rec.match_amount = OKC_API.G_MISS_NUM)
4496: IF (x_tal_rec.lke_asset_id = OKC_API.G_MISS_NUM)
4497: THEN
4498: x_tal_rec.lke_asset_id := l_tal_rec.lke_asset_id;
4499: END IF;
4500: IF (x_tal_rec.match_amount = OKC_API.G_MISS_NUM)
4501: THEN
4502: x_tal_rec.match_amount := l_tal_rec.match_amount;
4503: END IF;
4504: IF (x_tal_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
4500: IF (x_tal_rec.match_amount = OKC_API.G_MISS_NUM)
4501: THEN
4502: x_tal_rec.match_amount := l_tal_rec.match_amount;
4503: END IF;
4504: IF (x_tal_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
4505: THEN
4506: x_tal_rec.split_into_singles_flag := l_tal_rec.split_into_singles_flag;
4507: END IF;
4508: IF (x_tal_rec.split_into_units = OKC_API.G_MISS_NUM)
4504: IF (x_tal_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
4505: THEN
4506: x_tal_rec.split_into_singles_flag := l_tal_rec.split_into_singles_flag;
4507: END IF;
4508: IF (x_tal_rec.split_into_units = OKC_API.G_MISS_NUM)
4509: THEN
4510: x_tal_rec.split_into_units := l_tal_rec.split_into_units;
4511: END IF;
4512: -- Multi Currency Change
4509: THEN
4510: x_tal_rec.split_into_units := l_tal_rec.split_into_units;
4511: END IF;
4512: -- Multi Currency Change
4513: IF (x_tal_rec.currency_code = OKC_API.G_MISS_CHAR)
4514: THEN
4515: x_tal_rec.currency_code := l_tal_rec.currency_code;
4516: END IF;
4517: IF (x_tal_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4513: IF (x_tal_rec.currency_code = OKC_API.G_MISS_CHAR)
4514: THEN
4515: x_tal_rec.currency_code := l_tal_rec.currency_code;
4516: END IF;
4517: IF (x_tal_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4518: THEN
4519: x_tal_rec.currency_conversion_type := l_tal_rec.currency_conversion_type;
4520: END IF;
4521: IF (x_tal_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4517: IF (x_tal_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
4518: THEN
4519: x_tal_rec.currency_conversion_type := l_tal_rec.currency_conversion_type;
4520: END IF;
4521: IF (x_tal_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4522: THEN
4523: x_tal_rec.currency_conversion_rate := l_tal_rec.currency_conversion_rate;
4524: END IF;
4525: IF (x_tal_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
4521: IF (x_tal_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
4522: THEN
4523: x_tal_rec.currency_conversion_rate := l_tal_rec.currency_conversion_rate;
4524: END IF;
4525: IF (x_tal_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
4526: THEN
4527: x_tal_rec.currency_conversion_date := l_tal_rec.currency_conversion_date;
4528: END IF;
4529: -- Multi Currency Change
4529: -- Multi Currency Change
4530:
4531: -- VRS Project - START
4532:
4533: IF (x_tal_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM) THEN
4534: x_tal_rec.RESIDUAL_SHR_PARTY_ID:= l_tal_rec.RESIDUAL_SHR_PARTY_ID;
4535: END IF;
4536:
4537: IF (x_tal_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4533: IF (x_tal_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM) THEN
4534: x_tal_rec.RESIDUAL_SHR_PARTY_ID:= l_tal_rec.RESIDUAL_SHR_PARTY_ID;
4535: END IF;
4536:
4537: IF (x_tal_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4538: x_tal_rec.RESIDUAL_SHR_AMOUNT := l_tal_rec.RESIDUAL_SHR_AMOUNT;
4539: END IF;
4540: IF (x_tal_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM) THEN
4541: x_tal_rec.RETIREMENT_ID := l_tal_rec.RETIREMENT_ID;
4536:
4537: IF (x_tal_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM) THEN
4538: x_tal_rec.RESIDUAL_SHR_AMOUNT := l_tal_rec.RESIDUAL_SHR_AMOUNT;
4539: END IF;
4540: IF (x_tal_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM) THEN
4541: x_tal_rec.RETIREMENT_ID := l_tal_rec.RETIREMENT_ID;
4542: END IF;
4543:
4544: -- VRS Project - END
4552: FUNCTION Set_Attributes (
4553: p_tal_rec IN tal_rec_type,
4554: x_tal_rec OUT NOCOPY tal_rec_type
4555: ) RETURN VARCHAR2 IS
4556: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4557: BEGIN
4558: x_tal_rec := p_tal_rec;
4559: RETURN(l_return_status);
4560: END Set_Attributes;
4558: x_tal_rec := p_tal_rec;
4559: RETURN(l_return_status);
4560: END Set_Attributes;
4561: BEGIN
4562: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4563: p_init_msg_list,
4564: '_PVT',
4565: x_return_status);
4566: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4562: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4563: p_init_msg_list,
4564: '_PVT',
4565: x_return_status);
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: p_init_msg_list,
4564: '_PVT',
4565: x_return_status);
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: --- Setting item attributes
4564: '_PVT',
4565: x_return_status);
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: --- Setting item attributes
4572: l_return_status := Set_Attributes(
4565: x_return_status);
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: --- Setting item attributes
4572: l_return_status := Set_Attributes(
4573: p_tal_rec, -- IN
4572: l_return_status := Set_Attributes(
4573: p_tal_rec, -- IN
4574: l_tal_rec); -- OUT
4575: --- If any errors happen abort API
4576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_ERROR;
4580: END IF;
4573: p_tal_rec, -- IN
4574: l_tal_rec); -- OUT
4575: --- If any errors happen abort API
4576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_ERROR;
4580: END IF;
4581: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4574: l_tal_rec); -- OUT
4575: --- If any errors happen abort API
4576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_ERROR;
4580: END IF;
4581: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4575: --- If any errors happen abort API
4576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_ERROR;
4580: END IF;
4581: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_ERROR;
4580: END IF;
4581: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4585: RAISE OKC_API.G_EXCEPTION_ERROR;
4586: END IF;
4579: RAISE OKC_API.G_EXCEPTION_ERROR;
4580: END IF;
4581: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4585: RAISE OKC_API.G_EXCEPTION_ERROR;
4586: END IF;
4587: UPDATE OKL_TXL_ASSETS_B
4580: END IF;
4581: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4585: RAISE OKC_API.G_EXCEPTION_ERROR;
4586: END IF;
4587: UPDATE OKL_TXL_ASSETS_B
4588: SET TAS_ID = l_def_tal_rec.tas_id,
4581: l_return_status := populate_new_record(l_tal_rec, l_def_tal_rec);
4582: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4584: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4585: RAISE OKC_API.G_EXCEPTION_ERROR;
4586: END IF;
4587: UPDATE OKL_TXL_ASSETS_B
4588: SET TAS_ID = l_def_tal_rec.tas_id,
4589: OBJECT_VERSION_NUMBER = l_def_tal_rec.object_version_number,
4673:
4674: WHERE ID = l_def_tal_rec.id;
4675:
4676: x_tal_rec := l_def_tal_rec;
4677: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4678: EXCEPTION
4679: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4680: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4681: (
4675:
4676: x_tal_rec := l_def_tal_rec;
4677: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4678: EXCEPTION
4679: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4680: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4681: (
4682: l_api_name,
4683: G_PKG_NAME,
4676: x_tal_rec := l_def_tal_rec;
4677: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4678: EXCEPTION
4679: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4680: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4681: (
4682: l_api_name,
4683: G_PKG_NAME,
4684: 'OKC_API.G_RET_STS_ERROR',
4680: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4681: (
4682: l_api_name,
4683: G_PKG_NAME,
4684: 'OKC_API.G_RET_STS_ERROR',
4685: x_msg_count,
4686: x_msg_data,
4687: '_PVT'
4688: );
4685: x_msg_count,
4686: x_msg_data,
4687: '_PVT'
4688: );
4689: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4690: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4691: (
4692: l_api_name,
4693: G_PKG_NAME,
4686: x_msg_data,
4687: '_PVT'
4688: );
4689: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4690: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4691: (
4692: l_api_name,
4693: G_PKG_NAME,
4694: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4690: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4691: (
4692: l_api_name,
4693: G_PKG_NAME,
4694: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4695: x_msg_count,
4696: x_msg_data,
4697: '_PVT'
4698: );
4696: x_msg_data,
4697: '_PVT'
4698: );
4699: WHEN OTHERS THEN
4700: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4701: (
4702: l_api_name,
4703: G_PKG_NAME,
4704: 'OTHERS',
4710: --------------------------------------
4711: -- update_row for:OKL_TXL_ASSETS_TL --
4712: --------------------------------------
4713: PROCEDURE update_row(
4714: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4715: x_return_status OUT NOCOPY VARCHAR2,
4716: x_msg_count OUT NOCOPY NUMBER,
4717: x_msg_data OUT NOCOPY VARCHAR2,
4718: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type,
4719: x_okl_txl_assets_tl_rec OUT NOCOPY okl_txl_assets_tl_rec_type) IS
4720:
4721: l_api_version CONSTANT NUMBER := 1;
4722: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
4723: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4724: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type := p_okl_txl_assets_tl_rec;
4725: l_def_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4726: l_row_notfound BOOLEAN := TRUE;
4727: ----------------------------------
4732: x_okl_txl_assets_tl_rec OUT NOCOPY okl_txl_assets_tl_rec_type
4733: ) RETURN VARCHAR2 IS
4734: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4735: l_row_notfound BOOLEAN := TRUE;
4736: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4737: BEGIN
4738: x_okl_txl_assets_tl_rec := p_okl_txl_assets_tl_rec;
4739: -- Get current database values
4740: l_okl_txl_assets_tl_rec := get_rec(p_okl_txl_assets_tl_rec, l_row_notfound);
4738: x_okl_txl_assets_tl_rec := p_okl_txl_assets_tl_rec;
4739: -- Get current database values
4740: l_okl_txl_assets_tl_rec := get_rec(p_okl_txl_assets_tl_rec, l_row_notfound);
4741: IF (l_row_notfound) THEN
4742: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4743: END IF;
4744: IF (x_okl_txl_assets_tl_rec.id = OKC_API.G_MISS_NUM)
4745: THEN
4746: x_okl_txl_assets_tl_rec.id := l_okl_txl_assets_tl_rec.id;
4740: l_okl_txl_assets_tl_rec := get_rec(p_okl_txl_assets_tl_rec, l_row_notfound);
4741: IF (l_row_notfound) THEN
4742: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4743: END IF;
4744: IF (x_okl_txl_assets_tl_rec.id = OKC_API.G_MISS_NUM)
4745: THEN
4746: x_okl_txl_assets_tl_rec.id := l_okl_txl_assets_tl_rec.id;
4747: END IF;
4748: IF (x_okl_txl_assets_tl_rec.language = OKC_API.G_MISS_CHAR)
4744: IF (x_okl_txl_assets_tl_rec.id = OKC_API.G_MISS_NUM)
4745: THEN
4746: x_okl_txl_assets_tl_rec.id := l_okl_txl_assets_tl_rec.id;
4747: END IF;
4748: IF (x_okl_txl_assets_tl_rec.language = OKC_API.G_MISS_CHAR)
4749: THEN
4750: x_okl_txl_assets_tl_rec.language := l_okl_txl_assets_tl_rec.language;
4751: END IF;
4752: IF (x_okl_txl_assets_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4748: IF (x_okl_txl_assets_tl_rec.language = OKC_API.G_MISS_CHAR)
4749: THEN
4750: x_okl_txl_assets_tl_rec.language := l_okl_txl_assets_tl_rec.language;
4751: END IF;
4752: IF (x_okl_txl_assets_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4753: THEN
4754: x_okl_txl_assets_tl_rec.source_lang := l_okl_txl_assets_tl_rec.source_lang;
4755: END IF;
4756: IF (x_okl_txl_assets_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4752: IF (x_okl_txl_assets_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4753: THEN
4754: x_okl_txl_assets_tl_rec.source_lang := l_okl_txl_assets_tl_rec.source_lang;
4755: END IF;
4756: IF (x_okl_txl_assets_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4757: THEN
4758: x_okl_txl_assets_tl_rec.sfwt_flag := l_okl_txl_assets_tl_rec.sfwt_flag;
4759: END IF;
4760: IF (x_okl_txl_assets_tl_rec.description = OKC_API.G_MISS_CHAR)
4756: IF (x_okl_txl_assets_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4757: THEN
4758: x_okl_txl_assets_tl_rec.sfwt_flag := l_okl_txl_assets_tl_rec.sfwt_flag;
4759: END IF;
4760: IF (x_okl_txl_assets_tl_rec.description = OKC_API.G_MISS_CHAR)
4761: THEN
4762: x_okl_txl_assets_tl_rec.description := l_okl_txl_assets_tl_rec.description;
4763: END IF;
4764: IF (x_okl_txl_assets_tl_rec.created_by = OKC_API.G_MISS_NUM)
4760: IF (x_okl_txl_assets_tl_rec.description = OKC_API.G_MISS_CHAR)
4761: THEN
4762: x_okl_txl_assets_tl_rec.description := l_okl_txl_assets_tl_rec.description;
4763: END IF;
4764: IF (x_okl_txl_assets_tl_rec.created_by = OKC_API.G_MISS_NUM)
4765: THEN
4766: x_okl_txl_assets_tl_rec.created_by := l_okl_txl_assets_tl_rec.created_by;
4767: END IF;
4768: IF (x_okl_txl_assets_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4764: IF (x_okl_txl_assets_tl_rec.created_by = OKC_API.G_MISS_NUM)
4765: THEN
4766: x_okl_txl_assets_tl_rec.created_by := l_okl_txl_assets_tl_rec.created_by;
4767: END IF;
4768: IF (x_okl_txl_assets_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4769: THEN
4770: x_okl_txl_assets_tl_rec.creation_date := l_okl_txl_assets_tl_rec.creation_date;
4771: END IF;
4772: IF (x_okl_txl_assets_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4768: IF (x_okl_txl_assets_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4769: THEN
4770: x_okl_txl_assets_tl_rec.creation_date := l_okl_txl_assets_tl_rec.creation_date;
4771: END IF;
4772: IF (x_okl_txl_assets_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4773: THEN
4774: x_okl_txl_assets_tl_rec.last_updated_by := l_okl_txl_assets_tl_rec.last_updated_by;
4775: END IF;
4776: IF (x_okl_txl_assets_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4772: IF (x_okl_txl_assets_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4773: THEN
4774: x_okl_txl_assets_tl_rec.last_updated_by := l_okl_txl_assets_tl_rec.last_updated_by;
4775: END IF;
4776: IF (x_okl_txl_assets_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4777: THEN
4778: x_okl_txl_assets_tl_rec.last_update_date := l_okl_txl_assets_tl_rec.last_update_date;
4779: END IF;
4780: IF (x_okl_txl_assets_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
4776: IF (x_okl_txl_assets_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4777: THEN
4778: x_okl_txl_assets_tl_rec.last_update_date := l_okl_txl_assets_tl_rec.last_update_date;
4779: END IF;
4780: IF (x_okl_txl_assets_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
4781: THEN
4782: x_okl_txl_assets_tl_rec.last_update_login := l_okl_txl_assets_tl_rec.last_update_login;
4783: END IF;
4784: RETURN(l_return_status);
4789: FUNCTION Set_Attributes (
4790: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type,
4791: x_okl_txl_assets_tl_rec OUT NOCOPY okl_txl_assets_tl_rec_type
4792: ) RETURN VARCHAR2 IS
4793: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4794: BEGIN
4795: x_okl_txl_assets_tl_rec := p_okl_txl_assets_tl_rec;
4796: x_okl_txl_assets_tl_rec.LANGUAGE := USERENV('LANG');
4797: x_okl_txl_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
4797: x_okl_txl_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
4798: RETURN(l_return_status);
4799: END Set_Attributes;
4800: BEGIN
4801: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4802: p_init_msg_list,
4803: '_PVT',
4804: x_return_status);
4805: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4801: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4802: p_init_msg_list,
4803: '_PVT',
4804: x_return_status);
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: p_init_msg_list,
4803: '_PVT',
4804: x_return_status);
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: --- Setting item attributes
4803: '_PVT',
4804: x_return_status);
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: --- Setting item attributes
4811: l_return_status := Set_Attributes(
4804: x_return_status);
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: --- Setting item attributes
4811: l_return_status := Set_Attributes(
4812: p_okl_txl_assets_tl_rec, -- IN
4811: l_return_status := Set_Attributes(
4812: p_okl_txl_assets_tl_rec, -- IN
4813: l_okl_txl_assets_tl_rec); -- OUT
4814: --- If any errors happen abort API
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4812: p_okl_txl_assets_tl_rec, -- IN
4813: l_okl_txl_assets_tl_rec); -- OUT
4814: --- If any errors happen abort API
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4813: l_okl_txl_assets_tl_rec); -- OUT
4814: --- If any errors happen abort API
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4814: --- If any errors happen abort API
4815: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4824: RAISE OKC_API.G_EXCEPTION_ERROR;
4825: END IF;
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4824: RAISE OKC_API.G_EXCEPTION_ERROR;
4825: END IF;
4826: UPDATE OKL_TXL_ASSETS_TL
4819: END IF;
4820: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4824: RAISE OKC_API.G_EXCEPTION_ERROR;
4825: END IF;
4826: UPDATE OKL_TXL_ASSETS_TL
4827: SET DESCRIPTION = l_def_okl_txl_assets_tl_rec.description,
4820: l_return_status := populate_new_record(l_okl_txl_assets_tl_rec, l_def_okl_txl_assets_tl_rec);
4821: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4824: RAISE OKC_API.G_EXCEPTION_ERROR;
4825: END IF;
4826: UPDATE OKL_TXL_ASSETS_TL
4827: SET DESCRIPTION = l_def_okl_txl_assets_tl_rec.description,
4828: --Bug# 3641933 :
4842: WHERE ID = l_def_okl_txl_assets_tl_rec.id
4843: AND SOURCE_LANG <> USERENV('LANG');
4844:
4845: x_okl_txl_assets_tl_rec := l_def_okl_txl_assets_tl_rec;
4846: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4847: EXCEPTION
4848: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4849: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4850: (
4844:
4845: x_okl_txl_assets_tl_rec := l_def_okl_txl_assets_tl_rec;
4846: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4847: EXCEPTION
4848: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4849: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4850: (
4851: l_api_name,
4852: G_PKG_NAME,
4845: x_okl_txl_assets_tl_rec := l_def_okl_txl_assets_tl_rec;
4846: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4847: EXCEPTION
4848: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4849: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4850: (
4851: l_api_name,
4852: G_PKG_NAME,
4853: 'OKC_API.G_RET_STS_ERROR',
4849: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4850: (
4851: l_api_name,
4852: G_PKG_NAME,
4853: 'OKC_API.G_RET_STS_ERROR',
4854: x_msg_count,
4855: x_msg_data,
4856: '_PVT'
4857: );
4854: x_msg_count,
4855: x_msg_data,
4856: '_PVT'
4857: );
4858: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4859: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4860: (
4861: l_api_name,
4862: G_PKG_NAME,
4855: x_msg_data,
4856: '_PVT'
4857: );
4858: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4859: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4860: (
4861: l_api_name,
4862: G_PKG_NAME,
4863: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4859: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4860: (
4861: l_api_name,
4862: G_PKG_NAME,
4863: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4864: x_msg_count,
4865: x_msg_data,
4866: '_PVT'
4867: );
4865: x_msg_data,
4866: '_PVT'
4867: );
4868: WHEN OTHERS THEN
4869: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4870: (
4871: l_api_name,
4872: G_PKG_NAME,
4873: 'OTHERS',
4880: -- update_row for:OKL_TXL_ASSETS_V --
4881: -------------------------------------
4882: PROCEDURE update_row(
4883: p_api_version IN NUMBER,
4884: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4885: x_return_status OUT NOCOPY VARCHAR2,
4886: x_msg_count OUT NOCOPY NUMBER,
4887: x_msg_data OUT NOCOPY VARCHAR2,
4888: p_talv_rec IN talv_rec_type,
4889: x_talv_rec OUT NOCOPY talv_rec_type) IS
4890:
4891: l_api_version CONSTANT NUMBER := 1;
4892: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
4893: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4894: l_talv_rec talv_rec_type := p_talv_rec;
4895: l_def_talv_rec talv_rec_type;
4896: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4897: lx_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
4919: x_talv_rec OUT NOCOPY talv_rec_type
4920: ) RETURN VARCHAR2 IS
4921: l_talv_rec talv_rec_type;
4922: l_row_notfound BOOLEAN := TRUE;
4923: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4924: BEGIN
4925: x_talv_rec := p_talv_rec;
4926: -- Get current database values
4927: l_talv_rec := get_rec(p_talv_rec, l_row_notfound);
4925: x_talv_rec := p_talv_rec;
4926: -- Get current database values
4927: l_talv_rec := get_rec(p_talv_rec, l_row_notfound);
4928: IF (l_row_notfound) THEN
4929: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4930: END IF;
4931: IF (x_talv_rec.id = OKC_API.G_MISS_NUM)
4932: THEN
4933: x_talv_rec.id := l_talv_rec.id;
4927: l_talv_rec := get_rec(p_talv_rec, l_row_notfound);
4928: IF (l_row_notfound) THEN
4929: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4930: END IF;
4931: IF (x_talv_rec.id = OKC_API.G_MISS_NUM)
4932: THEN
4933: x_talv_rec.id := l_talv_rec.id;
4934: END IF;
4935: IF (x_talv_rec.object_version_number = OKC_API.G_MISS_NUM)
4931: IF (x_talv_rec.id = OKC_API.G_MISS_NUM)
4932: THEN
4933: x_talv_rec.id := l_talv_rec.id;
4934: END IF;
4935: IF (x_talv_rec.object_version_number = OKC_API.G_MISS_NUM)
4936: THEN
4937: x_talv_rec.object_version_number := l_talv_rec.object_version_number;
4938: END IF;
4939: IF (x_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4935: IF (x_talv_rec.object_version_number = OKC_API.G_MISS_NUM)
4936: THEN
4937: x_talv_rec.object_version_number := l_talv_rec.object_version_number;
4938: END IF;
4939: IF (x_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4940: THEN
4941: x_talv_rec.sfwt_flag := l_talv_rec.sfwt_flag;
4942: END IF;
4943: IF (x_talv_rec.tas_id = OKC_API.G_MISS_NUM)
4939: IF (x_talv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4940: THEN
4941: x_talv_rec.sfwt_flag := l_talv_rec.sfwt_flag;
4942: END IF;
4943: IF (x_talv_rec.tas_id = OKC_API.G_MISS_NUM)
4944: THEN
4945: x_talv_rec.tas_id := l_talv_rec.tas_id;
4946: END IF;
4947: IF (x_talv_rec.ilo_id = OKC_API.G_MISS_NUM)
4943: IF (x_talv_rec.tas_id = OKC_API.G_MISS_NUM)
4944: THEN
4945: x_talv_rec.tas_id := l_talv_rec.tas_id;
4946: END IF;
4947: IF (x_talv_rec.ilo_id = OKC_API.G_MISS_NUM)
4948: THEN
4949: x_talv_rec.ilo_id := l_talv_rec.ilo_id;
4950: END IF;
4951: IF (x_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4947: IF (x_talv_rec.ilo_id = OKC_API.G_MISS_NUM)
4948: THEN
4949: x_talv_rec.ilo_id := l_talv_rec.ilo_id;
4950: END IF;
4951: IF (x_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4952: THEN
4953: x_talv_rec.ilo_id_old := l_talv_rec.ilo_id_old;
4954: END IF;
4955: IF (x_talv_rec.iay_id = OKC_API.G_MISS_NUM)
4951: IF (x_talv_rec.ilo_id_old = OKC_API.G_MISS_NUM)
4952: THEN
4953: x_talv_rec.ilo_id_old := l_talv_rec.ilo_id_old;
4954: END IF;
4955: IF (x_talv_rec.iay_id = OKC_API.G_MISS_NUM)
4956: THEN
4957: x_talv_rec.iay_id := l_talv_rec.iay_id;
4958: END IF;
4959: IF (x_talv_rec.iay_id_new = OKC_API.G_MISS_NUM)
4955: IF (x_talv_rec.iay_id = OKC_API.G_MISS_NUM)
4956: THEN
4957: x_talv_rec.iay_id := l_talv_rec.iay_id;
4958: END IF;
4959: IF (x_talv_rec.iay_id_new = OKC_API.G_MISS_NUM)
4960: THEN
4961: x_talv_rec.iay_id_new := l_talv_rec.iay_id_new;
4962: END IF;
4963: IF (x_talv_rec.kle_id = OKC_API.G_MISS_NUM)
4959: IF (x_talv_rec.iay_id_new = OKC_API.G_MISS_NUM)
4960: THEN
4961: x_talv_rec.iay_id_new := l_talv_rec.iay_id_new;
4962: END IF;
4963: IF (x_talv_rec.kle_id = OKC_API.G_MISS_NUM)
4964: THEN
4965: x_talv_rec.kle_id := l_talv_rec.kle_id;
4966: END IF;
4967: IF (x_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4963: IF (x_talv_rec.kle_id = OKC_API.G_MISS_NUM)
4964: THEN
4965: x_talv_rec.kle_id := l_talv_rec.kle_id;
4966: END IF;
4967: IF (x_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4968: THEN
4969: x_talv_rec.dnz_khr_id := l_talv_rec.dnz_khr_id;
4970: END IF;
4971: IF (x_talv_rec.line_number = OKC_API.G_MISS_NUM)
4967: IF (x_talv_rec.dnz_khr_id = OKC_API.G_MISS_NUM)
4968: THEN
4969: x_talv_rec.dnz_khr_id := l_talv_rec.dnz_khr_id;
4970: END IF;
4971: IF (x_talv_rec.line_number = OKC_API.G_MISS_NUM)
4972: THEN
4973: x_talv_rec.line_number := l_talv_rec.line_number;
4974: END IF;
4975: IF (x_talv_rec.org_id = OKC_API.G_MISS_NUM)
4971: IF (x_talv_rec.line_number = OKC_API.G_MISS_NUM)
4972: THEN
4973: x_talv_rec.line_number := l_talv_rec.line_number;
4974: END IF;
4975: IF (x_talv_rec.org_id = OKC_API.G_MISS_NUM)
4976: THEN
4977: x_talv_rec.org_id := l_talv_rec.org_id;
4978: END IF;
4979: IF (x_talv_rec.tal_type = OKC_API.G_MISS_CHAR)
4975: IF (x_talv_rec.org_id = OKC_API.G_MISS_NUM)
4976: THEN
4977: x_talv_rec.org_id := l_talv_rec.org_id;
4978: END IF;
4979: IF (x_talv_rec.tal_type = OKC_API.G_MISS_CHAR)
4980: THEN
4981: x_talv_rec.tal_type := l_talv_rec.tal_type;
4982: END IF;
4983: IF (x_talv_rec.asset_number = OKC_API.G_MISS_CHAR)
4979: IF (x_talv_rec.tal_type = OKC_API.G_MISS_CHAR)
4980: THEN
4981: x_talv_rec.tal_type := l_talv_rec.tal_type;
4982: END IF;
4983: IF (x_talv_rec.asset_number = OKC_API.G_MISS_CHAR)
4984: THEN
4985: x_talv_rec.asset_number := l_talv_rec.asset_number;
4986: END IF;
4987: IF (x_talv_rec.description = OKC_API.G_MISS_CHAR)
4983: IF (x_talv_rec.asset_number = OKC_API.G_MISS_CHAR)
4984: THEN
4985: x_talv_rec.asset_number := l_talv_rec.asset_number;
4986: END IF;
4987: IF (x_talv_rec.description = OKC_API.G_MISS_CHAR)
4988: THEN
4989: x_talv_rec.description := l_talv_rec.description;
4990: END IF;
4991: IF (x_talv_rec.fa_location_id = OKC_API.G_MISS_NUM)
4987: IF (x_talv_rec.description = OKC_API.G_MISS_CHAR)
4988: THEN
4989: x_talv_rec.description := l_talv_rec.description;
4990: END IF;
4991: IF (x_talv_rec.fa_location_id = OKC_API.G_MISS_NUM)
4992: THEN
4993: x_talv_rec.fa_location_id := l_talv_rec.fa_location_id;
4994: END IF;
4995: IF (x_talv_rec.original_cost = OKC_API.G_MISS_NUM)
4991: IF (x_talv_rec.fa_location_id = OKC_API.G_MISS_NUM)
4992: THEN
4993: x_talv_rec.fa_location_id := l_talv_rec.fa_location_id;
4994: END IF;
4995: IF (x_talv_rec.original_cost = OKC_API.G_MISS_NUM)
4996: THEN
4997: x_talv_rec.original_cost := l_talv_rec.original_cost;
4998: END IF;
4999: IF (x_talv_rec.current_units = OKC_API.G_MISS_NUM)
4995: IF (x_talv_rec.original_cost = OKC_API.G_MISS_NUM)
4996: THEN
4997: x_talv_rec.original_cost := l_talv_rec.original_cost;
4998: END IF;
4999: IF (x_talv_rec.current_units = OKC_API.G_MISS_NUM)
5000: THEN
5001: x_talv_rec.current_units := l_talv_rec.current_units;
5002: END IF;
5003: IF (x_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
4999: IF (x_talv_rec.current_units = OKC_API.G_MISS_NUM)
5000: THEN
5001: x_talv_rec.current_units := l_talv_rec.current_units;
5002: END IF;
5003: IF (x_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
5004: THEN
5005: x_talv_rec.manufacturer_name := l_talv_rec.manufacturer_name;
5006: END IF;
5007: IF (x_talv_rec.year_manufactured = OKC_API.G_MISS_NUM)
5003: IF (x_talv_rec.manufacturer_name = OKC_API.G_MISS_CHAR)
5004: THEN
5005: x_talv_rec.manufacturer_name := l_talv_rec.manufacturer_name;
5006: END IF;
5007: IF (x_talv_rec.year_manufactured = OKC_API.G_MISS_NUM)
5008: THEN
5009: x_talv_rec.year_manufactured := l_talv_rec.year_manufactured;
5010: END IF;
5011: IF (x_talv_rec.supplier_id = OKC_API.G_MISS_NUM)
5007: IF (x_talv_rec.year_manufactured = OKC_API.G_MISS_NUM)
5008: THEN
5009: x_talv_rec.year_manufactured := l_talv_rec.year_manufactured;
5010: END IF;
5011: IF (x_talv_rec.supplier_id = OKC_API.G_MISS_NUM)
5012: THEN
5013: x_talv_rec.supplier_id := l_talv_rec.supplier_id;
5014: END IF;
5015: IF (x_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
5011: IF (x_talv_rec.supplier_id = OKC_API.G_MISS_NUM)
5012: THEN
5013: x_talv_rec.supplier_id := l_talv_rec.supplier_id;
5014: END IF;
5015: IF (x_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
5016: THEN
5017: x_talv_rec.used_asset_yn := l_talv_rec.used_asset_yn;
5018: END IF;
5019: IF (x_talv_rec.tag_number = OKC_API.G_MISS_CHAR)
5015: IF (x_talv_rec.used_asset_yn = OKC_API.G_MISS_CHAR)
5016: THEN
5017: x_talv_rec.used_asset_yn := l_talv_rec.used_asset_yn;
5018: END IF;
5019: IF (x_talv_rec.tag_number = OKC_API.G_MISS_CHAR)
5020: THEN
5021: x_talv_rec.tag_number := l_talv_rec.tag_number;
5022: END IF;
5023: IF (x_talv_rec.model_number = OKC_API.G_MISS_CHAR)
5019: IF (x_talv_rec.tag_number = OKC_API.G_MISS_CHAR)
5020: THEN
5021: x_talv_rec.tag_number := l_talv_rec.tag_number;
5022: END IF;
5023: IF (x_talv_rec.model_number = OKC_API.G_MISS_CHAR)
5024: THEN
5025: x_talv_rec.model_number := l_talv_rec.model_number;
5026: END IF;
5027: IF (x_talv_rec.corporate_book = OKC_API.G_MISS_CHAR)
5023: IF (x_talv_rec.model_number = OKC_API.G_MISS_CHAR)
5024: THEN
5025: x_talv_rec.model_number := l_talv_rec.model_number;
5026: END IF;
5027: IF (x_talv_rec.corporate_book = OKC_API.G_MISS_CHAR)
5028: THEN
5029: x_talv_rec.corporate_book := l_talv_rec.corporate_book;
5030: END IF;
5031: IF (x_talv_rec.date_purchased = OKC_API.G_MISS_DATE)
5027: IF (x_talv_rec.corporate_book = OKC_API.G_MISS_CHAR)
5028: THEN
5029: x_talv_rec.corporate_book := l_talv_rec.corporate_book;
5030: END IF;
5031: IF (x_talv_rec.date_purchased = OKC_API.G_MISS_DATE)
5032: THEN
5033: x_talv_rec.date_purchased := l_talv_rec.date_purchased;
5034: END IF;
5035: IF (x_talv_rec.date_delivery = OKC_API.G_MISS_DATE)
5031: IF (x_talv_rec.date_purchased = OKC_API.G_MISS_DATE)
5032: THEN
5033: x_talv_rec.date_purchased := l_talv_rec.date_purchased;
5034: END IF;
5035: IF (x_talv_rec.date_delivery = OKC_API.G_MISS_DATE)
5036: THEN
5037: x_talv_rec.date_delivery := l_talv_rec.date_delivery;
5038: END IF;
5039: IF (x_talv_rec.in_service_date = OKC_API.G_MISS_DATE)
5035: IF (x_talv_rec.date_delivery = OKC_API.G_MISS_DATE)
5036: THEN
5037: x_talv_rec.date_delivery := l_talv_rec.date_delivery;
5038: END IF;
5039: IF (x_talv_rec.in_service_date = OKC_API.G_MISS_DATE)
5040: THEN
5041: x_talv_rec.in_service_date := l_talv_rec.in_service_date;
5042: END IF;
5043: IF (x_talv_rec.life_in_months = OKC_API.G_MISS_NUM)
5039: IF (x_talv_rec.in_service_date = OKC_API.G_MISS_DATE)
5040: THEN
5041: x_talv_rec.in_service_date := l_talv_rec.in_service_date;
5042: END IF;
5043: IF (x_talv_rec.life_in_months = OKC_API.G_MISS_NUM)
5044: THEN
5045: x_talv_rec.life_in_months := l_talv_rec.life_in_months;
5046: END IF;
5047: IF (x_talv_rec.depreciation_id = OKC_API.G_MISS_NUM)
5043: IF (x_talv_rec.life_in_months = OKC_API.G_MISS_NUM)
5044: THEN
5045: x_talv_rec.life_in_months := l_talv_rec.life_in_months;
5046: END IF;
5047: IF (x_talv_rec.depreciation_id = OKC_API.G_MISS_NUM)
5048: THEN
5049: x_talv_rec.depreciation_id := l_talv_rec.depreciation_id;
5050: END IF;
5051: IF (x_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM)
5047: IF (x_talv_rec.depreciation_id = OKC_API.G_MISS_NUM)
5048: THEN
5049: x_talv_rec.depreciation_id := l_talv_rec.depreciation_id;
5050: END IF;
5051: IF (x_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM)
5052: THEN
5053: x_talv_rec.depreciation_cost := l_talv_rec.depreciation_cost;
5054: END IF;
5055: IF (x_talv_rec.deprn_method = OKC_API.G_MISS_CHAR)
5051: IF (x_talv_rec.depreciation_cost = OKC_API.G_MISS_NUM)
5052: THEN
5053: x_talv_rec.depreciation_cost := l_talv_rec.depreciation_cost;
5054: END IF;
5055: IF (x_talv_rec.deprn_method = OKC_API.G_MISS_CHAR)
5056: THEN
5057: x_talv_rec.deprn_method := l_talv_rec.deprn_method;
5058: END IF;
5059: IF (x_talv_rec.deprn_rate = OKC_API.G_MISS_NUM)
5055: IF (x_talv_rec.deprn_method = OKC_API.G_MISS_CHAR)
5056: THEN
5057: x_talv_rec.deprn_method := l_talv_rec.deprn_method;
5058: END IF;
5059: IF (x_talv_rec.deprn_rate = OKC_API.G_MISS_NUM)
5060: THEN
5061: x_talv_rec.deprn_rate := l_talv_rec.deprn_rate;
5062: END IF;
5063: IF (x_talv_rec.salvage_value = OKC_API.G_MISS_NUM)
5059: IF (x_talv_rec.deprn_rate = OKC_API.G_MISS_NUM)
5060: THEN
5061: x_talv_rec.deprn_rate := l_talv_rec.deprn_rate;
5062: END IF;
5063: IF (x_talv_rec.salvage_value = OKC_API.G_MISS_NUM)
5064: THEN
5065: x_talv_rec.salvage_value := l_talv_rec.salvage_value;
5066: END IF;
5067: IF (x_talv_rec.percent_salvage_value = OKC_API.G_MISS_NUM)
5063: IF (x_talv_rec.salvage_value = OKC_API.G_MISS_NUM)
5064: THEN
5065: x_talv_rec.salvage_value := l_talv_rec.salvage_value;
5066: END IF;
5067: IF (x_talv_rec.percent_salvage_value = OKC_API.G_MISS_NUM)
5068: THEN
5069: x_talv_rec.percent_salvage_value := l_talv_rec.percent_salvage_value;
5070: END IF;
5071: --Bug# 2981308
5073: THEN
5074: x_talv_rec.asset_key_id := l_talv_rec.asset_key_id;
5075: END IF;
5076: -- Bug# 4028371
5077: IF (x_talv_rec.fa_trx_date = OKC_API.G_MISS_DATE)
5078: THEN
5079: x_talv_rec.fa_trx_date := l_talv_rec.fa_trx_date;
5080: END IF;
5081: --Bug# 4899328
5082: IF (x_talv_rec.fa_cost = OKL_API.G_MISS_NUM)
5083: THEN
5084: x_talv_rec.fa_cost := l_talv_rec.fa_cost;
5085: END IF;
5086: IF (x_talv_rec.attribute_category = OKC_API.G_MISS_CHAR)
5087: THEN
5088: x_talv_rec.attribute_category := l_talv_rec.attribute_category;
5089: END IF;
5090: IF (x_talv_rec.attribute1 = OKC_API.G_MISS_CHAR)
5086: IF (x_talv_rec.attribute_category = OKC_API.G_MISS_CHAR)
5087: THEN
5088: x_talv_rec.attribute_category := l_talv_rec.attribute_category;
5089: END IF;
5090: IF (x_talv_rec.attribute1 = OKC_API.G_MISS_CHAR)
5091: THEN
5092: x_talv_rec.attribute1 := l_talv_rec.attribute1;
5093: END IF;
5094: IF (x_talv_rec.attribute2 = OKC_API.G_MISS_CHAR)
5090: IF (x_talv_rec.attribute1 = OKC_API.G_MISS_CHAR)
5091: THEN
5092: x_talv_rec.attribute1 := l_talv_rec.attribute1;
5093: END IF;
5094: IF (x_talv_rec.attribute2 = OKC_API.G_MISS_CHAR)
5095: THEN
5096: x_talv_rec.attribute2 := l_talv_rec.attribute2;
5097: END IF;
5098: IF (x_talv_rec.attribute3 = OKC_API.G_MISS_CHAR)
5094: IF (x_talv_rec.attribute2 = OKC_API.G_MISS_CHAR)
5095: THEN
5096: x_talv_rec.attribute2 := l_talv_rec.attribute2;
5097: END IF;
5098: IF (x_talv_rec.attribute3 = OKC_API.G_MISS_CHAR)
5099: THEN
5100: x_talv_rec.attribute3 := l_talv_rec.attribute3;
5101: END IF;
5102: IF (x_talv_rec.attribute4 = OKC_API.G_MISS_CHAR)
5098: IF (x_talv_rec.attribute3 = OKC_API.G_MISS_CHAR)
5099: THEN
5100: x_talv_rec.attribute3 := l_talv_rec.attribute3;
5101: END IF;
5102: IF (x_talv_rec.attribute4 = OKC_API.G_MISS_CHAR)
5103: THEN
5104: x_talv_rec.attribute4 := l_talv_rec.attribute4;
5105: END IF;
5106: IF (x_talv_rec.attribute5 = OKC_API.G_MISS_CHAR)
5102: IF (x_talv_rec.attribute4 = OKC_API.G_MISS_CHAR)
5103: THEN
5104: x_talv_rec.attribute4 := l_talv_rec.attribute4;
5105: END IF;
5106: IF (x_talv_rec.attribute5 = OKC_API.G_MISS_CHAR)
5107: THEN
5108: x_talv_rec.attribute5 := l_talv_rec.attribute5;
5109: END IF;
5110: IF (x_talv_rec.attribute6 = OKC_API.G_MISS_CHAR)
5106: IF (x_talv_rec.attribute5 = OKC_API.G_MISS_CHAR)
5107: THEN
5108: x_talv_rec.attribute5 := l_talv_rec.attribute5;
5109: END IF;
5110: IF (x_talv_rec.attribute6 = OKC_API.G_MISS_CHAR)
5111: THEN
5112: x_talv_rec.attribute6 := l_talv_rec.attribute6;
5113: END IF;
5114: IF (x_talv_rec.attribute7 = OKC_API.G_MISS_CHAR)
5110: IF (x_talv_rec.attribute6 = OKC_API.G_MISS_CHAR)
5111: THEN
5112: x_talv_rec.attribute6 := l_talv_rec.attribute6;
5113: END IF;
5114: IF (x_talv_rec.attribute7 = OKC_API.G_MISS_CHAR)
5115: THEN
5116: x_talv_rec.attribute7 := l_talv_rec.attribute7;
5117: END IF;
5118: IF (x_talv_rec.attribute8 = OKC_API.G_MISS_CHAR)
5114: IF (x_talv_rec.attribute7 = OKC_API.G_MISS_CHAR)
5115: THEN
5116: x_talv_rec.attribute7 := l_talv_rec.attribute7;
5117: END IF;
5118: IF (x_talv_rec.attribute8 = OKC_API.G_MISS_CHAR)
5119: THEN
5120: x_talv_rec.attribute8 := l_talv_rec.attribute8;
5121: END IF;
5122: IF (x_talv_rec.attribute9 = OKC_API.G_MISS_CHAR)
5118: IF (x_talv_rec.attribute8 = OKC_API.G_MISS_CHAR)
5119: THEN
5120: x_talv_rec.attribute8 := l_talv_rec.attribute8;
5121: END IF;
5122: IF (x_talv_rec.attribute9 = OKC_API.G_MISS_CHAR)
5123: THEN
5124: x_talv_rec.attribute9 := l_talv_rec.attribute9;
5125: END IF;
5126: IF (x_talv_rec.attribute10 = OKC_API.G_MISS_CHAR)
5122: IF (x_talv_rec.attribute9 = OKC_API.G_MISS_CHAR)
5123: THEN
5124: x_talv_rec.attribute9 := l_talv_rec.attribute9;
5125: END IF;
5126: IF (x_talv_rec.attribute10 = OKC_API.G_MISS_CHAR)
5127: THEN
5128: x_talv_rec.attribute10 := l_talv_rec.attribute10;
5129: END IF;
5130: IF (x_talv_rec.attribute11 = OKC_API.G_MISS_CHAR)
5126: IF (x_talv_rec.attribute10 = OKC_API.G_MISS_CHAR)
5127: THEN
5128: x_talv_rec.attribute10 := l_talv_rec.attribute10;
5129: END IF;
5130: IF (x_talv_rec.attribute11 = OKC_API.G_MISS_CHAR)
5131: THEN
5132: x_talv_rec.attribute11 := l_talv_rec.attribute11;
5133: END IF;
5134: IF (x_talv_rec.attribute12 = OKC_API.G_MISS_CHAR)
5130: IF (x_talv_rec.attribute11 = OKC_API.G_MISS_CHAR)
5131: THEN
5132: x_talv_rec.attribute11 := l_talv_rec.attribute11;
5133: END IF;
5134: IF (x_talv_rec.attribute12 = OKC_API.G_MISS_CHAR)
5135: THEN
5136: x_talv_rec.attribute12 := l_talv_rec.attribute12;
5137: END IF;
5138: IF (x_talv_rec.attribute13 = OKC_API.G_MISS_CHAR)
5134: IF (x_talv_rec.attribute12 = OKC_API.G_MISS_CHAR)
5135: THEN
5136: x_talv_rec.attribute12 := l_talv_rec.attribute12;
5137: END IF;
5138: IF (x_talv_rec.attribute13 = OKC_API.G_MISS_CHAR)
5139: THEN
5140: x_talv_rec.attribute13 := l_talv_rec.attribute13;
5141: END IF;
5142: IF (x_talv_rec.attribute14 = OKC_API.G_MISS_CHAR)
5138: IF (x_talv_rec.attribute13 = OKC_API.G_MISS_CHAR)
5139: THEN
5140: x_talv_rec.attribute13 := l_talv_rec.attribute13;
5141: END IF;
5142: IF (x_talv_rec.attribute14 = OKC_API.G_MISS_CHAR)
5143: THEN
5144: x_talv_rec.attribute14 := l_talv_rec.attribute14;
5145: END IF;
5146: IF (x_talv_rec.attribute15 = OKC_API.G_MISS_CHAR)
5142: IF (x_talv_rec.attribute14 = OKC_API.G_MISS_CHAR)
5143: THEN
5144: x_talv_rec.attribute14 := l_talv_rec.attribute14;
5145: END IF;
5146: IF (x_talv_rec.attribute15 = OKC_API.G_MISS_CHAR)
5147: THEN
5148: x_talv_rec.attribute15 := l_talv_rec.attribute15;
5149: END IF;
5150: IF (x_talv_rec.created_by = OKC_API.G_MISS_NUM)
5146: IF (x_talv_rec.attribute15 = OKC_API.G_MISS_CHAR)
5147: THEN
5148: x_talv_rec.attribute15 := l_talv_rec.attribute15;
5149: END IF;
5150: IF (x_talv_rec.created_by = OKC_API.G_MISS_NUM)
5151: THEN
5152: x_talv_rec.created_by := l_talv_rec.created_by;
5153: END IF;
5154: IF (x_talv_rec.creation_date = OKC_API.G_MISS_DATE)
5150: IF (x_talv_rec.created_by = OKC_API.G_MISS_NUM)
5151: THEN
5152: x_talv_rec.created_by := l_talv_rec.created_by;
5153: END IF;
5154: IF (x_talv_rec.creation_date = OKC_API.G_MISS_DATE)
5155: THEN
5156: x_talv_rec.creation_date := l_talv_rec.creation_date;
5157: END IF;
5158: IF (x_talv_rec.last_updated_by = OKC_API.G_MISS_NUM)
5154: IF (x_talv_rec.creation_date = OKC_API.G_MISS_DATE)
5155: THEN
5156: x_talv_rec.creation_date := l_talv_rec.creation_date;
5157: END IF;
5158: IF (x_talv_rec.last_updated_by = OKC_API.G_MISS_NUM)
5159: THEN
5160: x_talv_rec.last_updated_by := l_talv_rec.last_updated_by;
5161: END IF;
5162: IF (x_talv_rec.last_update_date = OKC_API.G_MISS_DATE)
5158: IF (x_talv_rec.last_updated_by = OKC_API.G_MISS_NUM)
5159: THEN
5160: x_talv_rec.last_updated_by := l_talv_rec.last_updated_by;
5161: END IF;
5162: IF (x_talv_rec.last_update_date = OKC_API.G_MISS_DATE)
5163: THEN
5164: x_talv_rec.last_update_date := l_talv_rec.last_update_date;
5165: END IF;
5166: IF (x_talv_rec.last_update_login = OKC_API.G_MISS_NUM)
5162: IF (x_talv_rec.last_update_date = OKC_API.G_MISS_DATE)
5163: THEN
5164: x_talv_rec.last_update_date := l_talv_rec.last_update_date;
5165: END IF;
5166: IF (x_talv_rec.last_update_login = OKC_API.G_MISS_NUM)
5167: THEN
5168: x_talv_rec.last_update_login := l_talv_rec.last_update_login;
5169: END IF;
5170: IF (x_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
5166: IF (x_talv_rec.last_update_login = OKC_API.G_MISS_NUM)
5167: THEN
5168: x_talv_rec.last_update_login := l_talv_rec.last_update_login;
5169: END IF;
5170: IF (x_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
5171: THEN
5172: x_talv_rec.depreciate_yn := l_talv_rec.depreciate_yn;
5173: END IF;
5174: IF (x_talv_rec.hold_period_days = OKC_API.G_MISS_NUM)
5170: IF (x_talv_rec.depreciate_yn = OKC_API.G_MISS_CHAR)
5171: THEN
5172: x_talv_rec.depreciate_yn := l_talv_rec.depreciate_yn;
5173: END IF;
5174: IF (x_talv_rec.hold_period_days = OKC_API.G_MISS_NUM)
5175: THEN
5176: x_talv_rec.hold_period_days := l_talv_rec.hold_period_days;
5177: END IF;
5178: IF (x_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM)
5174: IF (x_talv_rec.hold_period_days = OKC_API.G_MISS_NUM)
5175: THEN
5176: x_talv_rec.hold_period_days := l_talv_rec.hold_period_days;
5177: END IF;
5178: IF (x_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM)
5179: THEN
5180: x_talv_rec.old_salvage_value := l_talv_rec.old_salvage_value;
5181: END IF;
5182: IF (x_talv_rec.new_residual_value = OKC_API.G_MISS_NUM)
5178: IF (x_talv_rec.old_salvage_value = OKC_API.G_MISS_NUM)
5179: THEN
5180: x_talv_rec.old_salvage_value := l_talv_rec.old_salvage_value;
5181: END IF;
5182: IF (x_talv_rec.new_residual_value = OKC_API.G_MISS_NUM)
5183: THEN
5184: x_talv_rec.new_residual_value := l_talv_rec.new_residual_value;
5185: END IF;
5186: IF (x_talv_rec.old_residual_value = OKC_API.G_MISS_NUM)
5182: IF (x_talv_rec.new_residual_value = OKC_API.G_MISS_NUM)
5183: THEN
5184: x_talv_rec.new_residual_value := l_talv_rec.new_residual_value;
5185: END IF;
5186: IF (x_talv_rec.old_residual_value = OKC_API.G_MISS_NUM)
5187: THEN
5188: x_talv_rec.old_residual_value := l_talv_rec.old_residual_value;
5189: END IF;
5190: IF (x_talv_rec.units_retired = OKC_API.G_MISS_NUM)
5186: IF (x_talv_rec.old_residual_value = OKC_API.G_MISS_NUM)
5187: THEN
5188: x_talv_rec.old_residual_value := l_talv_rec.old_residual_value;
5189: END IF;
5190: IF (x_talv_rec.units_retired = OKC_API.G_MISS_NUM)
5191: THEN
5192: x_talv_rec.units_retired := l_talv_rec.units_retired;
5193: END IF;
5194: IF (x_talv_rec.cost_retired = OKC_API.G_MISS_NUM)
5190: IF (x_talv_rec.units_retired = OKC_API.G_MISS_NUM)
5191: THEN
5192: x_talv_rec.units_retired := l_talv_rec.units_retired;
5193: END IF;
5194: IF (x_talv_rec.cost_retired = OKC_API.G_MISS_NUM)
5195: THEN
5196: x_talv_rec.cost_retired := l_talv_rec.cost_retired;
5197: END IF;
5198: IF (x_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM)
5194: IF (x_talv_rec.cost_retired = OKC_API.G_MISS_NUM)
5195: THEN
5196: x_talv_rec.cost_retired := l_talv_rec.cost_retired;
5197: END IF;
5198: IF (x_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM)
5199: THEN
5200: x_talv_rec.sale_proceeds := l_talv_rec.sale_proceeds;
5201: END IF;
5202: IF (x_talv_rec.removal_cost = OKC_API.G_MISS_NUM)
5198: IF (x_talv_rec.sale_proceeds = OKC_API.G_MISS_NUM)
5199: THEN
5200: x_talv_rec.sale_proceeds := l_talv_rec.sale_proceeds;
5201: END IF;
5202: IF (x_talv_rec.removal_cost = OKC_API.G_MISS_NUM)
5203: THEN
5204: x_talv_rec.removal_cost := l_talv_rec.removal_cost;
5205: END IF;
5206: IF (x_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
5202: IF (x_talv_rec.removal_cost = OKC_API.G_MISS_NUM)
5203: THEN
5204: x_talv_rec.removal_cost := l_talv_rec.removal_cost;
5205: END IF;
5206: IF (x_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
5207: THEN
5208: x_talv_rec.dnz_asset_id := l_talv_rec.dnz_asset_id;
5209: END IF;
5210: IF (x_talv_rec.date_due = OKC_API.G_MISS_DATE)
5206: IF (x_talv_rec.dnz_asset_id = OKC_API.G_MISS_NUM)
5207: THEN
5208: x_talv_rec.dnz_asset_id := l_talv_rec.dnz_asset_id;
5209: END IF;
5210: IF (x_talv_rec.date_due = OKC_API.G_MISS_DATE)
5211: THEN
5212: x_talv_rec.date_due := l_talv_rec.date_due;
5213: END IF;
5214: IF (x_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM)
5210: IF (x_talv_rec.date_due = OKC_API.G_MISS_DATE)
5211: THEN
5212: x_talv_rec.date_due := l_talv_rec.date_due;
5213: END IF;
5214: IF (x_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM)
5215: THEN
5216: x_talv_rec.rep_asset_id := l_talv_rec.rep_asset_id;
5217: END IF;
5218: IF (x_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM)
5214: IF (x_talv_rec.rep_asset_id = OKC_API.G_MISS_NUM)
5215: THEN
5216: x_talv_rec.rep_asset_id := l_talv_rec.rep_asset_id;
5217: END IF;
5218: IF (x_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM)
5219: THEN
5220: x_talv_rec.lke_asset_id := l_talv_rec.lke_asset_id;
5221: END IF;
5222: IF (x_talv_rec.match_amount = OKC_API.G_MISS_NUM)
5218: IF (x_talv_rec.lke_asset_id = OKC_API.G_MISS_NUM)
5219: THEN
5220: x_talv_rec.lke_asset_id := l_talv_rec.lke_asset_id;
5221: END IF;
5222: IF (x_talv_rec.match_amount = OKC_API.G_MISS_NUM)
5223: THEN
5224: x_talv_rec.match_amount := l_talv_rec.match_amount;
5225: END IF;
5226: IF (x_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
5222: IF (x_talv_rec.match_amount = OKC_API.G_MISS_NUM)
5223: THEN
5224: x_talv_rec.match_amount := l_talv_rec.match_amount;
5225: END IF;
5226: IF (x_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
5227: THEN
5228: x_talv_rec.split_into_singles_flag := l_talv_rec.split_into_singles_flag;
5229: END IF;
5230: IF (x_talv_rec.split_into_units = OKC_API.G_MISS_NUM)
5226: IF (x_talv_rec.split_into_singles_flag = OKC_API.G_MISS_CHAR)
5227: THEN
5228: x_talv_rec.split_into_singles_flag := l_talv_rec.split_into_singles_flag;
5229: END IF;
5230: IF (x_talv_rec.split_into_units = OKC_API.G_MISS_NUM)
5231: THEN
5232: x_talv_rec.split_into_units := l_talv_rec.split_into_units;
5233: END IF;
5234:
5232: x_talv_rec.split_into_units := l_talv_rec.split_into_units;
5233: END IF;
5234:
5235: -- Multi Currency Change
5236: IF (x_talv_rec.currency_code = OKC_API.G_MISS_CHAR)
5237: THEN
5238: x_talv_rec.currency_code := l_talv_rec.currency_code;
5239: END IF;
5240: IF (x_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
5236: IF (x_talv_rec.currency_code = OKC_API.G_MISS_CHAR)
5237: THEN
5238: x_talv_rec.currency_code := l_talv_rec.currency_code;
5239: END IF;
5240: IF (x_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
5241: THEN
5242: x_talv_rec.currency_conversion_type := l_talv_rec.currency_conversion_type;
5243: END IF;
5244: IF (x_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
5240: IF (x_talv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
5241: THEN
5242: x_talv_rec.currency_conversion_type := l_talv_rec.currency_conversion_type;
5243: END IF;
5244: IF (x_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
5245: THEN
5246: x_talv_rec.currency_conversion_rate := l_talv_rec.currency_conversion_rate;
5247: END IF;
5248: IF (x_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
5244: IF (x_talv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
5245: THEN
5246: x_talv_rec.currency_conversion_rate := l_talv_rec.currency_conversion_rate;
5247: END IF;
5248: IF (x_talv_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
5249: THEN
5250: x_talv_rec.currency_conversion_date := l_talv_rec.currency_conversion_date;
5251: END IF;
5252: -- Multi Currency Change
5251: END IF;
5252: -- Multi Currency Change
5253:
5254: -- VRS Project - START
5255: IF (x_talv_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM)
5256: THEN
5257: x_talv_rec.RESIDUAL_SHR_PARTY_ID := l_talv_rec.RESIDUAL_SHR_PARTY_ID;
5258: END IF;
5259: IF (x_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM)
5255: IF (x_talv_rec.RESIDUAL_SHR_PARTY_ID = OKC_API.G_MISS_NUM)
5256: THEN
5257: x_talv_rec.RESIDUAL_SHR_PARTY_ID := l_talv_rec.RESIDUAL_SHR_PARTY_ID;
5258: END IF;
5259: IF (x_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM)
5260: THEN
5261: x_talv_rec.RESIDUAL_SHR_AMOUNT := l_talv_rec.RESIDUAL_SHR_AMOUNT;
5262: END IF;
5263: IF (x_talv_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM)
5259: IF (x_talv_rec.RESIDUAL_SHR_AMOUNT = OKC_API.G_MISS_NUM)
5260: THEN
5261: x_talv_rec.RESIDUAL_SHR_AMOUNT := l_talv_rec.RESIDUAL_SHR_AMOUNT;
5262: END IF;
5263: IF (x_talv_rec.RETIREMENT_ID = OKC_API.G_MISS_NUM)
5264: THEN
5265: x_talv_rec.RETIREMENT_ID := l_talv_rec.RETIREMENT_ID;
5266: END IF;
5267: -- VRS Project - END
5274: FUNCTION Set_Attributes (
5275: p_talv_rec IN talv_rec_type,
5276: x_talv_rec OUT NOCOPY talv_rec_type
5277: ) RETURN VARCHAR2 IS
5278: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5279: BEGIN
5280: x_talv_rec := p_talv_rec;
5281: x_talv_rec.OBJECT_VERSION_NUMBER := NVL(x_talv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
5282: RETURN(l_return_status);
5281: x_talv_rec.OBJECT_VERSION_NUMBER := NVL(x_talv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
5282: RETURN(l_return_status);
5283: END Set_Attributes;
5284: BEGIN
5285: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5286: G_PKG_NAME,
5287: p_init_msg_list,
5288: l_api_version,
5289: p_api_version,
5288: l_api_version,
5289: p_api_version,
5290: '_PVT',
5291: x_return_status);
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: p_api_version,
5290: '_PVT',
5291: x_return_status);
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: --- Setting item attributes
5290: '_PVT',
5291: x_return_status);
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: --- Setting item attributes
5298: l_return_status := Set_Attributes(
5291: x_return_status);
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: --- Setting item attributes
5298: l_return_status := Set_Attributes(
5299: p_talv_rec, -- IN
5298: l_return_status := Set_Attributes(
5299: p_talv_rec, -- IN
5300: l_talv_rec); -- OUT
5301: --- If any errors happen abort API
5302: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5303: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5304: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5305: RAISE OKC_API.G_EXCEPTION_ERROR;
5306: END IF;
5299: p_talv_rec, -- IN
5300: l_talv_rec); -- OUT
5301: --- If any errors happen abort API
5302: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5303: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5304: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5305: RAISE OKC_API.G_EXCEPTION_ERROR;
5306: END IF;
5307: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5300: l_talv_rec); -- OUT
5301: --- If any errors happen abort API
5302: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5303: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5304: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5305: RAISE OKC_API.G_EXCEPTION_ERROR;
5306: END IF;
5307: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5308: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5301: --- If any errors happen abort API
5302: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5303: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5304: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5305: RAISE OKC_API.G_EXCEPTION_ERROR;
5306: END IF;
5307: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5308: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5304: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5305: RAISE OKC_API.G_EXCEPTION_ERROR;
5306: END IF;
5307: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5308: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5310: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5311: RAISE OKC_API.G_EXCEPTION_ERROR;
5312: END IF;
5305: RAISE OKC_API.G_EXCEPTION_ERROR;
5306: END IF;
5307: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5308: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5310: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5311: RAISE OKC_API.G_EXCEPTION_ERROR;
5312: END IF;
5313: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
5306: END IF;
5307: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5308: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5310: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5311: RAISE OKC_API.G_EXCEPTION_ERROR;
5312: END IF;
5313: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
5314: --- Validate all non-missing attributes (Item Level Validation)
5307: l_return_status := populate_new_record(l_talv_rec, l_def_talv_rec);
5308: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5310: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5311: RAISE OKC_API.G_EXCEPTION_ERROR;
5312: END IF;
5313: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
5314: --- Validate all non-missing attributes (Item Level Validation)
5315: l_return_status := Validate_Attributes(l_def_talv_rec);
5313: l_def_talv_rec := fill_who_columns(l_def_talv_rec);
5314: --- Validate all non-missing attributes (Item Level Validation)
5315: l_return_status := Validate_Attributes(l_def_talv_rec);
5316: --- If any errors happen abort API
5317: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5318: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5319: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5320: RAISE OKC_API.G_EXCEPTION_ERROR;
5321: END IF;
5314: --- Validate all non-missing attributes (Item Level Validation)
5315: l_return_status := Validate_Attributes(l_def_talv_rec);
5316: --- If any errors happen abort API
5317: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5318: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5319: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5320: RAISE OKC_API.G_EXCEPTION_ERROR;
5321: END IF;
5322: l_return_status := Validate_Record(l_def_talv_rec);
5315: l_return_status := Validate_Attributes(l_def_talv_rec);
5316: --- If any errors happen abort API
5317: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5318: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5319: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5320: RAISE OKC_API.G_EXCEPTION_ERROR;
5321: END IF;
5322: l_return_status := Validate_Record(l_def_talv_rec);
5323: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5316: --- If any errors happen abort API
5317: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5318: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5319: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5320: RAISE OKC_API.G_EXCEPTION_ERROR;
5321: END IF;
5322: l_return_status := Validate_Record(l_def_talv_rec);
5323: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5319: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5320: RAISE OKC_API.G_EXCEPTION_ERROR;
5321: END IF;
5322: l_return_status := Validate_Record(l_def_talv_rec);
5323: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5325: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5326: RAISE OKC_API.G_EXCEPTION_ERROR;
5327: END IF;
5320: RAISE OKC_API.G_EXCEPTION_ERROR;
5321: END IF;
5322: l_return_status := Validate_Record(l_def_talv_rec);
5323: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5325: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5326: RAISE OKC_API.G_EXCEPTION_ERROR;
5327: END IF;
5328:
5321: END IF;
5322: l_return_status := Validate_Record(l_def_talv_rec);
5323: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5325: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5326: RAISE OKC_API.G_EXCEPTION_ERROR;
5327: END IF;
5328:
5329: --
5322: l_return_status := Validate_Record(l_def_talv_rec);
5323: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5325: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5326: RAISE OKC_API.G_EXCEPTION_ERROR;
5327: END IF;
5328:
5329: --
5330: -- Multi-Currency Change, dedey, 12/04/2002
5334: p_talv_rec => l_def_talv_rec,
5335: x_talv_rec => lx_temp_talv_rec
5336: );
5337:
5338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5341: RAISE OKC_API.G_EXCEPTION_ERROR;
5342: END IF;
5335: x_talv_rec => lx_temp_talv_rec
5336: );
5337:
5338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5341: RAISE OKC_API.G_EXCEPTION_ERROR;
5342: END IF;
5343: l_def_talv_rec := lx_temp_talv_rec;
5336: );
5337:
5338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5341: RAISE OKC_API.G_EXCEPTION_ERROR;
5342: END IF;
5343: l_def_talv_rec := lx_temp_talv_rec;
5344:
5337:
5338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5341: RAISE OKC_API.G_EXCEPTION_ERROR;
5342: END IF;
5343: l_def_talv_rec := lx_temp_talv_rec;
5344:
5345: --dbms_output.put_line('After Change: '||lx_temp_talv_rec.currency_code);
5360: p_talv_rec => l_def_talv_rec,
5361: x_talv_rec => lx_temp_talv_rec
5362: );
5363:
5364: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5365: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5366: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5367: RAISE OKC_API.G_EXCEPTION_ERROR;
5368: END IF;
5361: x_talv_rec => lx_temp_talv_rec
5362: );
5363:
5364: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5365: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5366: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5367: RAISE OKC_API.G_EXCEPTION_ERROR;
5368: END IF;
5369: l_def_talv_rec := lx_temp_talv_rec;
5362: );
5363:
5364: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5365: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5366: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5367: RAISE OKC_API.G_EXCEPTION_ERROR;
5368: END IF;
5369: l_def_talv_rec := lx_temp_talv_rec;
5370:
5363:
5364: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5365: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5366: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5367: RAISE OKC_API.G_EXCEPTION_ERROR;
5368: END IF;
5369: l_def_talv_rec := lx_temp_talv_rec;
5370:
5371: --dbms_output.put_line('After Change Orig cost: '||lx_temp_talv_rec.original_cost);
5386: x_msg_data,
5387: l_okl_txl_assets_tl_rec,
5388: lx_okl_txl_assets_tl_rec
5389: );
5390: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5393: RAISE OKC_API.G_EXCEPTION_ERROR;
5394: END IF;
5387: l_okl_txl_assets_tl_rec,
5388: lx_okl_txl_assets_tl_rec
5389: );
5390: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5393: RAISE OKC_API.G_EXCEPTION_ERROR;
5394: END IF;
5395: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
5388: lx_okl_txl_assets_tl_rec
5389: );
5390: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5393: RAISE OKC_API.G_EXCEPTION_ERROR;
5394: END IF;
5395: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
5396: update_row(
5389: );
5390: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5393: RAISE OKC_API.G_EXCEPTION_ERROR;
5394: END IF;
5395: migrate(lx_okl_txl_assets_tl_rec, l_def_talv_rec);
5396: update_row(
5397: p_init_msg_list,
5400: x_msg_data,
5401: l_tal_rec,
5402: lx_tal_rec
5403: );
5404: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5406: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5407: RAISE OKC_API.G_EXCEPTION_ERROR;
5408: END IF;
5401: l_tal_rec,
5402: lx_tal_rec
5403: );
5404: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5406: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5407: RAISE OKC_API.G_EXCEPTION_ERROR;
5408: END IF;
5409: migrate(lx_tal_rec, l_def_talv_rec);
5402: lx_tal_rec
5403: );
5404: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5406: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5407: RAISE OKC_API.G_EXCEPTION_ERROR;
5408: END IF;
5409: migrate(lx_tal_rec, l_def_talv_rec);
5410: x_talv_rec := l_def_talv_rec;
5403: );
5404: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5406: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5407: RAISE OKC_API.G_EXCEPTION_ERROR;
5408: END IF;
5409: migrate(lx_tal_rec, l_def_talv_rec);
5410: x_talv_rec := l_def_talv_rec;
5411: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5407: RAISE OKC_API.G_EXCEPTION_ERROR;
5408: END IF;
5409: migrate(lx_tal_rec, l_def_talv_rec);
5410: x_talv_rec := l_def_talv_rec;
5411: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5412: EXCEPTION
5413: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5414: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5415: (
5409: migrate(lx_tal_rec, l_def_talv_rec);
5410: x_talv_rec := l_def_talv_rec;
5411: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5412: EXCEPTION
5413: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5414: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5415: (
5416: l_api_name,
5417: G_PKG_NAME,
5410: x_talv_rec := l_def_talv_rec;
5411: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5412: EXCEPTION
5413: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5414: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5415: (
5416: l_api_name,
5417: G_PKG_NAME,
5418: 'OKC_API.G_RET_STS_ERROR',
5414: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5415: (
5416: l_api_name,
5417: G_PKG_NAME,
5418: 'OKC_API.G_RET_STS_ERROR',
5419: x_msg_count,
5420: x_msg_data,
5421: '_PVT'
5422: );
5419: x_msg_count,
5420: x_msg_data,
5421: '_PVT'
5422: );
5423: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5424: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5425: (
5426: l_api_name,
5427: G_PKG_NAME,
5420: x_msg_data,
5421: '_PVT'
5422: );
5423: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5424: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5425: (
5426: l_api_name,
5427: G_PKG_NAME,
5428: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5424: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5425: (
5426: l_api_name,
5427: G_PKG_NAME,
5428: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5429: x_msg_count,
5430: x_msg_data,
5431: '_PVT'
5432: );
5430: x_msg_data,
5431: '_PVT'
5432: );
5433: WHEN OTHERS THEN
5434: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5435: (
5436: l_api_name,
5437: G_PKG_NAME,
5438: 'OTHERS',
5445: -- PL/SQL TBL update_row for:TALV_TBL --
5446: ----------------------------------------
5447: PROCEDURE update_row(
5448: p_api_version IN NUMBER,
5449: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5450: x_return_status OUT NOCOPY VARCHAR2,
5451: x_msg_count OUT NOCOPY NUMBER,
5452: x_msg_data OUT NOCOPY VARCHAR2,
5453: p_talv_tbl IN talv_tbl_type,
5454: x_talv_tbl OUT NOCOPY talv_tbl_type) IS
5455:
5456: l_api_version CONSTANT NUMBER := 1;
5457: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
5458: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5459: i NUMBER := 0;
5460: BEGIN
5461: OKC_API.init_msg_list(p_init_msg_list);
5462: -- Make sure PL/SQL table has records in it before passing
5457: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
5458: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5459: i NUMBER := 0;
5460: BEGIN
5461: OKC_API.init_msg_list(p_init_msg_list);
5462: -- Make sure PL/SQL table has records in it before passing
5463: IF (p_talv_tbl.COUNT > 0) THEN
5464: i := p_talv_tbl.FIRST;
5465: LOOP
5464: i := p_talv_tbl.FIRST;
5465: LOOP
5466: update_row (
5467: p_api_version => p_api_version,
5468: p_init_msg_list => OKC_API.G_FALSE,
5469: x_return_status => x_return_status,
5470: x_msg_count => x_msg_count,
5471: x_msg_data => x_msg_data,
5472: p_talv_rec => p_talv_tbl(i),
5475: i := p_talv_tbl.NEXT(i);
5476: END LOOP;
5477: END IF;
5478: EXCEPTION
5479: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5480: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5481: (
5482: l_api_name,
5483: G_PKG_NAME,
5476: END LOOP;
5477: END IF;
5478: EXCEPTION
5479: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5480: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5481: (
5482: l_api_name,
5483: G_PKG_NAME,
5484: 'OKC_API.G_RET_STS_ERROR',
5480: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5481: (
5482: l_api_name,
5483: G_PKG_NAME,
5484: 'OKC_API.G_RET_STS_ERROR',
5485: x_msg_count,
5486: x_msg_data,
5487: '_PVT'
5488: );
5485: x_msg_count,
5486: x_msg_data,
5487: '_PVT'
5488: );
5489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5490: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5491: (
5492: l_api_name,
5493: G_PKG_NAME,
5486: x_msg_data,
5487: '_PVT'
5488: );
5489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5490: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5491: (
5492: l_api_name,
5493: G_PKG_NAME,
5494: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5490: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5491: (
5492: l_api_name,
5493: G_PKG_NAME,
5494: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5495: x_msg_count,
5496: x_msg_data,
5497: '_PVT'
5498: );
5496: x_msg_data,
5497: '_PVT'
5498: );
5499: WHEN OTHERS THEN
5500: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5501: (
5502: l_api_name,
5503: G_PKG_NAME,
5504: 'OTHERS',
5514: -------------------------------------
5515: -- delete_row for:OKL_TXL_ASSETS_B --
5516: -------------------------------------
5517: PROCEDURE delete_row(
5518: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5519: x_return_status OUT NOCOPY VARCHAR2,
5520: x_msg_count OUT NOCOPY NUMBER,
5521: x_msg_data OUT NOCOPY VARCHAR2,
5522: p_tal_rec IN tal_rec_type) IS
5522: p_tal_rec IN tal_rec_type) IS
5523:
5524: l_api_version CONSTANT NUMBER := 1;
5525: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
5526: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5527: l_tal_rec tal_rec_type:= p_tal_rec;
5528: l_row_notfound BOOLEAN := TRUE;
5529: BEGIN
5530: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5526: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5527: l_tal_rec tal_rec_type:= p_tal_rec;
5528: l_row_notfound BOOLEAN := TRUE;
5529: BEGIN
5530: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5531: p_init_msg_list,
5532: '_PVT',
5533: x_return_status);
5534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5530: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5531: p_init_msg_list,
5532: '_PVT',
5533: x_return_status);
5534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5535: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5536: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5537: RAISE OKC_API.G_EXCEPTION_ERROR;
5538: END IF;
5531: p_init_msg_list,
5532: '_PVT',
5533: x_return_status);
5534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5535: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5536: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5537: RAISE OKC_API.G_EXCEPTION_ERROR;
5538: END IF;
5539: DELETE FROM OKL_TXL_ASSETS_B
5532: '_PVT',
5533: x_return_status);
5534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5535: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5536: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5537: RAISE OKC_API.G_EXCEPTION_ERROR;
5538: END IF;
5539: DELETE FROM OKL_TXL_ASSETS_B
5540: WHERE ID = l_tal_rec.id;
5533: x_return_status);
5534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5535: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5536: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5537: RAISE OKC_API.G_EXCEPTION_ERROR;
5538: END IF;
5539: DELETE FROM OKL_TXL_ASSETS_B
5540: WHERE ID = l_tal_rec.id;
5541:
5538: END IF;
5539: DELETE FROM OKL_TXL_ASSETS_B
5540: WHERE ID = l_tal_rec.id;
5541:
5542: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5543: EXCEPTION
5544: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5545: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5546: (
5540: WHERE ID = l_tal_rec.id;
5541:
5542: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5543: EXCEPTION
5544: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5545: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5546: (
5547: l_api_name,
5548: G_PKG_NAME,
5541:
5542: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5543: EXCEPTION
5544: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5545: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5546: (
5547: l_api_name,
5548: G_PKG_NAME,
5549: 'OKC_API.G_RET_STS_ERROR',
5545: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5546: (
5547: l_api_name,
5548: G_PKG_NAME,
5549: 'OKC_API.G_RET_STS_ERROR',
5550: x_msg_count,
5551: x_msg_data,
5552: '_PVT'
5553: );
5550: x_msg_count,
5551: x_msg_data,
5552: '_PVT'
5553: );
5554: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5555: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5556: (
5557: l_api_name,
5558: G_PKG_NAME,
5551: x_msg_data,
5552: '_PVT'
5553: );
5554: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5555: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5556: (
5557: l_api_name,
5558: G_PKG_NAME,
5559: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5555: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5556: (
5557: l_api_name,
5558: G_PKG_NAME,
5559: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5560: x_msg_count,
5561: x_msg_data,
5562: '_PVT'
5563: );
5561: x_msg_data,
5562: '_PVT'
5563: );
5564: WHEN OTHERS THEN
5565: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5566: (
5567: l_api_name,
5568: G_PKG_NAME,
5569: 'OTHERS',
5575: --------------------------------------
5576: -- delete_row for:OKL_TXL_ASSETS_TL --
5577: --------------------------------------
5578: PROCEDURE delete_row(
5579: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5580: x_return_status OUT NOCOPY VARCHAR2,
5581: x_msg_count OUT NOCOPY NUMBER,
5582: x_msg_data OUT NOCOPY VARCHAR2,
5583: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type) IS
5583: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type) IS
5584:
5585: l_api_version CONSTANT NUMBER := 1;
5586: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
5587: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5588: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type:= p_okl_txl_assets_tl_rec;
5589: l_row_notfound BOOLEAN := TRUE;
5590: ------------------------------------------
5591: -- Set_Attributes for:OKL_TXL_ASSETS_TL --
5593: FUNCTION Set_Attributes (
5594: p_okl_txl_assets_tl_rec IN okl_txl_assets_tl_rec_type,
5595: x_okl_txl_assets_tl_rec OUT NOCOPY okl_txl_assets_tl_rec_type
5596: ) RETURN VARCHAR2 IS
5597: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5598: BEGIN
5599: x_okl_txl_assets_tl_rec := p_okl_txl_assets_tl_rec;
5600: x_okl_txl_assets_tl_rec.LANGUAGE := USERENV('LANG');
5601: RETURN(l_return_status);
5600: x_okl_txl_assets_tl_rec.LANGUAGE := USERENV('LANG');
5601: RETURN(l_return_status);
5602: END Set_Attributes;
5603: BEGIN
5604: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5605: p_init_msg_list,
5606: '_PVT',
5607: x_return_status);
5608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5604: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5605: p_init_msg_list,
5606: '_PVT',
5607: x_return_status);
5608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5611: RAISE OKC_API.G_EXCEPTION_ERROR;
5612: END IF;
5605: p_init_msg_list,
5606: '_PVT',
5607: x_return_status);
5608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5611: RAISE OKC_API.G_EXCEPTION_ERROR;
5612: END IF;
5613: --- Setting item attributes
5606: '_PVT',
5607: x_return_status);
5608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5611: RAISE OKC_API.G_EXCEPTION_ERROR;
5612: END IF;
5613: --- Setting item attributes
5614: l_return_status := Set_Attributes(
5607: x_return_status);
5608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5611: RAISE OKC_API.G_EXCEPTION_ERROR;
5612: END IF;
5613: --- Setting item attributes
5614: l_return_status := Set_Attributes(
5615: p_okl_txl_assets_tl_rec, -- IN
5614: l_return_status := Set_Attributes(
5615: p_okl_txl_assets_tl_rec, -- IN
5616: l_okl_txl_assets_tl_rec); -- OUT
5617: --- If any errors happen abort API
5618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5621: RAISE OKC_API.G_EXCEPTION_ERROR;
5622: END IF;
5615: p_okl_txl_assets_tl_rec, -- IN
5616: l_okl_txl_assets_tl_rec); -- OUT
5617: --- If any errors happen abort API
5618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5621: RAISE OKC_API.G_EXCEPTION_ERROR;
5622: END IF;
5623: DELETE FROM OKL_TXL_ASSETS_TL
5616: l_okl_txl_assets_tl_rec); -- OUT
5617: --- If any errors happen abort API
5618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5621: RAISE OKC_API.G_EXCEPTION_ERROR;
5622: END IF;
5623: DELETE FROM OKL_TXL_ASSETS_TL
5624: WHERE ID = l_okl_txl_assets_tl_rec.id;
5617: --- If any errors happen abort API
5618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5621: RAISE OKC_API.G_EXCEPTION_ERROR;
5622: END IF;
5623: DELETE FROM OKL_TXL_ASSETS_TL
5624: WHERE ID = l_okl_txl_assets_tl_rec.id;
5625:
5622: END IF;
5623: DELETE FROM OKL_TXL_ASSETS_TL
5624: WHERE ID = l_okl_txl_assets_tl_rec.id;
5625:
5626: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5627: EXCEPTION
5628: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5629: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5630: (
5624: WHERE ID = l_okl_txl_assets_tl_rec.id;
5625:
5626: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5627: EXCEPTION
5628: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5629: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5630: (
5631: l_api_name,
5632: G_PKG_NAME,
5625:
5626: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5627: EXCEPTION
5628: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5629: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5630: (
5631: l_api_name,
5632: G_PKG_NAME,
5633: 'OKC_API.G_RET_STS_ERROR',
5629: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5630: (
5631: l_api_name,
5632: G_PKG_NAME,
5633: 'OKC_API.G_RET_STS_ERROR',
5634: x_msg_count,
5635: x_msg_data,
5636: '_PVT'
5637: );
5634: x_msg_count,
5635: x_msg_data,
5636: '_PVT'
5637: );
5638: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5639: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5640: (
5641: l_api_name,
5642: G_PKG_NAME,
5635: x_msg_data,
5636: '_PVT'
5637: );
5638: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5639: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5640: (
5641: l_api_name,
5642: G_PKG_NAME,
5643: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5639: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5640: (
5641: l_api_name,
5642: G_PKG_NAME,
5643: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5644: x_msg_count,
5645: x_msg_data,
5646: '_PVT'
5647: );
5645: x_msg_data,
5646: '_PVT'
5647: );
5648: WHEN OTHERS THEN
5649: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5650: (
5651: l_api_name,
5652: G_PKG_NAME,
5653: 'OTHERS',
5660: -- delete_row for:OKL_TXL_ASSETS_V --
5661: -------------------------------------
5662: PROCEDURE delete_row(
5663: p_api_version IN NUMBER,
5664: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5665: x_return_status OUT NOCOPY VARCHAR2,
5666: x_msg_count OUT NOCOPY NUMBER,
5667: x_msg_data OUT NOCOPY VARCHAR2,
5668: p_talv_rec IN talv_rec_type) IS
5668: p_talv_rec IN talv_rec_type) IS
5669:
5670: l_api_version CONSTANT NUMBER := 1;
5671: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
5672: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5673: l_talv_rec talv_rec_type := p_talv_rec;
5674: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
5675: l_tal_rec tal_rec_type;
5676: BEGIN
5673: l_talv_rec talv_rec_type := p_talv_rec;
5674: l_okl_txl_assets_tl_rec okl_txl_assets_tl_rec_type;
5675: l_tal_rec tal_rec_type;
5676: BEGIN
5677: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5678: G_PKG_NAME,
5679: p_init_msg_list,
5680: l_api_version,
5681: p_api_version,
5680: l_api_version,
5681: p_api_version,
5682: '_PVT',
5683: x_return_status);
5684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5687: RAISE OKC_API.G_EXCEPTION_ERROR;
5688: END IF;
5681: p_api_version,
5682: '_PVT',
5683: x_return_status);
5684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5687: RAISE OKC_API.G_EXCEPTION_ERROR;
5688: END IF;
5689: --------------------------------------
5682: '_PVT',
5683: x_return_status);
5684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5687: RAISE OKC_API.G_EXCEPTION_ERROR;
5688: END IF;
5689: --------------------------------------
5690: -- Move VIEW record to "Child" records
5683: x_return_status);
5684: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5686: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5687: RAISE OKC_API.G_EXCEPTION_ERROR;
5688: END IF;
5689: --------------------------------------
5690: -- Move VIEW record to "Child" records
5691: --------------------------------------
5700: x_msg_count,
5701: x_msg_data,
5702: l_okl_txl_assets_tl_rec
5703: );
5704: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5706: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5707: RAISE OKC_API.G_EXCEPTION_ERROR;
5708: END IF;
5701: x_msg_data,
5702: l_okl_txl_assets_tl_rec
5703: );
5704: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5706: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5707: RAISE OKC_API.G_EXCEPTION_ERROR;
5708: END IF;
5709: delete_row(
5702: l_okl_txl_assets_tl_rec
5703: );
5704: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5706: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5707: RAISE OKC_API.G_EXCEPTION_ERROR;
5708: END IF;
5709: delete_row(
5710: p_init_msg_list,
5703: );
5704: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5705: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5706: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5707: RAISE OKC_API.G_EXCEPTION_ERROR;
5708: END IF;
5709: delete_row(
5710: p_init_msg_list,
5711: x_return_status,
5712: x_msg_count,
5713: x_msg_data,
5714: l_tal_rec
5715: );
5716: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5717: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5718: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5719: RAISE OKC_API.G_EXCEPTION_ERROR;
5720: END IF;
5713: x_msg_data,
5714: l_tal_rec
5715: );
5716: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5717: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5718: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5719: RAISE OKC_API.G_EXCEPTION_ERROR;
5720: END IF;
5721: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5714: l_tal_rec
5715: );
5716: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5717: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5718: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5719: RAISE OKC_API.G_EXCEPTION_ERROR;
5720: END IF;
5721: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5722: EXCEPTION
5715: );
5716: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5717: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5718: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5719: RAISE OKC_API.G_EXCEPTION_ERROR;
5720: END IF;
5721: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5722: EXCEPTION
5723: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5717: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5718: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5719: RAISE OKC_API.G_EXCEPTION_ERROR;
5720: END IF;
5721: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5722: EXCEPTION
5723: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5724: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5725: (
5719: RAISE OKC_API.G_EXCEPTION_ERROR;
5720: END IF;
5721: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5722: EXCEPTION
5723: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5724: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5725: (
5726: l_api_name,
5727: G_PKG_NAME,
5720: END IF;
5721: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5722: EXCEPTION
5723: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5724: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5725: (
5726: l_api_name,
5727: G_PKG_NAME,
5728: 'OKC_API.G_RET_STS_ERROR',
5724: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5725: (
5726: l_api_name,
5727: G_PKG_NAME,
5728: 'OKC_API.G_RET_STS_ERROR',
5729: x_msg_count,
5730: x_msg_data,
5731: '_PVT'
5732: );
5729: x_msg_count,
5730: x_msg_data,
5731: '_PVT'
5732: );
5733: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5734: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5735: (
5736: l_api_name,
5737: G_PKG_NAME,
5730: x_msg_data,
5731: '_PVT'
5732: );
5733: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5734: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5735: (
5736: l_api_name,
5737: G_PKG_NAME,
5738: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5734: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5735: (
5736: l_api_name,
5737: G_PKG_NAME,
5738: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5739: x_msg_count,
5740: x_msg_data,
5741: '_PVT'
5742: );
5740: x_msg_data,
5741: '_PVT'
5742: );
5743: WHEN OTHERS THEN
5744: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5745: (
5746: l_api_name,
5747: G_PKG_NAME,
5748: 'OTHERS',
5755: -- PL/SQL TBL delete_row for:TALV_TBL --
5756: ----------------------------------------
5757: PROCEDURE delete_row(
5758: p_api_version IN NUMBER,
5759: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5760: x_return_status OUT NOCOPY VARCHAR2,
5761: x_msg_count OUT NOCOPY NUMBER,
5762: x_msg_data OUT NOCOPY VARCHAR2,
5763: p_talv_tbl IN talv_tbl_type) IS
5763: p_talv_tbl IN talv_tbl_type) IS
5764:
5765: l_api_version CONSTANT NUMBER := 1;
5766: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
5767: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5768: i NUMBER := 0;
5769: BEGIN
5770: OKC_API.init_msg_list(p_init_msg_list);
5771: -- Make sure PL/SQL table has records in it before passing
5766: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
5767: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5768: i NUMBER := 0;
5769: BEGIN
5770: OKC_API.init_msg_list(p_init_msg_list);
5771: -- Make sure PL/SQL table has records in it before passing
5772: IF (p_talv_tbl.COUNT > 0) THEN
5773: i := p_talv_tbl.FIRST;
5774: LOOP
5773: i := p_talv_tbl.FIRST;
5774: LOOP
5775: delete_row (
5776: p_api_version => p_api_version,
5777: p_init_msg_list => OKC_API.G_FALSE,
5778: x_return_status => x_return_status,
5779: x_msg_count => x_msg_count,
5780: x_msg_data => x_msg_data,
5781: p_talv_rec => p_talv_tbl(i));
5783: i := p_talv_tbl.NEXT(i);
5784: END LOOP;
5785: END IF;
5786: EXCEPTION
5787: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5788: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5789: (
5790: l_api_name,
5791: G_PKG_NAME,
5784: END LOOP;
5785: END IF;
5786: EXCEPTION
5787: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5788: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5789: (
5790: l_api_name,
5791: G_PKG_NAME,
5792: 'OKC_API.G_RET_STS_ERROR',
5788: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5789: (
5790: l_api_name,
5791: G_PKG_NAME,
5792: 'OKC_API.G_RET_STS_ERROR',
5793: x_msg_count,
5794: x_msg_data,
5795: '_PVT'
5796: );
5793: x_msg_count,
5794: x_msg_data,
5795: '_PVT'
5796: );
5797: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5798: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5799: (
5800: l_api_name,
5801: G_PKG_NAME,
5794: x_msg_data,
5795: '_PVT'
5796: );
5797: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5798: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5799: (
5800: l_api_name,
5801: G_PKG_NAME,
5802: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5798: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5799: (
5800: l_api_name,
5801: G_PKG_NAME,
5802: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5803: x_msg_count,
5804: x_msg_data,
5805: '_PVT'
5806: );
5804: x_msg_data,
5805: '_PVT'
5806: );
5807: WHEN OTHERS THEN
5808: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5809: (
5810: l_api_name,
5811: G_PKG_NAME,
5812: 'OTHERS',