1: PACKAGE BODY OKL_ASD_PVT AS
2: /* $Header: OKLSASDB.pls 120.2.12020000.3 2012/12/18 08:48:34 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: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
8: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
9: G_EXCEPTION_HALT_VALIDATION EXCEPTION;
39: --AND ID2=OKL_CONTEXT.get_okc_organization_id; -- multi-org enable
40:
41: BEGIN
42: -- initialize return status
43: x_return_status := OKC_API.G_RET_STS_SUCCESS;
44: -- data is not required
45: IF (p_asdv_rec.INVENTORY_ITEM_ID <> OKC_API.G_MISS_NUM) AND
46: (p_asdv_rec.INVENTORY_ITEM_ID IS NOT NULL) THEN
47:
41: BEGIN
42: -- initialize return status
43: x_return_status := OKC_API.G_RET_STS_SUCCESS;
44: -- data is not required
45: IF (p_asdv_rec.INVENTORY_ITEM_ID <> OKC_API.G_MISS_NUM) AND
46: (p_asdv_rec.INVENTORY_ITEM_ID IS NOT NULL) THEN
47:
48: -- Enforce Foreign Key
49: OPEN c_INVENTORY_ITEM_ID_validate(p_asdv_rec.INVENTORY_ITEM_ID);
57: END IF;
58:
59: EXCEPTION
60: WHEN G_EXCEPTION_STOP_VALIDATION then
61: OKC_API.set_message(p_app_name => G_APP_NAME,
62: p_msg_name => G_REQUIRED_VALUE,
63: p_token1 => G_COL_NAME_TOKEN,
64: p_token1_value => 'INVENTORY_ITEM_ID');
65: -- Notify Error
62: p_msg_name => G_REQUIRED_VALUE,
63: p_token1 => G_COL_NAME_TOKEN,
64: p_token1_value => 'INVENTORY_ITEM_ID');
65: -- Notify Error
66: x_return_status := OKC_API.G_RET_STS_ERROR;
67: WHEN G_EXCEPTION_HALT_VALIDATION then
68: -- We are here b'cause we have no parent record
69: -- store SQL error message on message stack
70: OKC_API.set_message(p_app_name => G_APP_NAME,
66: x_return_status := OKC_API.G_RET_STS_ERROR;
67: WHEN G_EXCEPTION_HALT_VALIDATION then
68: -- We are here b'cause we have no parent record
69: -- store SQL error message on message stack
70: OKC_API.set_message(p_app_name => G_APP_NAME,
71: p_msg_name => G_NO_MATCHING_RECORD,
72: p_token1 => G_COL_NAME_TOKEN,
73: p_token1_value => 'INVENTORY_ITEM_ID');
74: -- If the cursor is open then it has to be closed
75: IF c_INVENTORY_ITEM_ID_validate%ISOPEN THEN
76: CLOSE c_INVENTORY_ITEM_ID_validate;
77: END IF;
78: -- notify caller of an error
79: x_return_status := OKC_API.G_RET_STS_ERROR;
80: WHEN OTHERS THEN
81: -- store SQL error message on message stack
82: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
83: p_msg_name => G_UNEXPECTED_ERROR,
78: -- notify caller of an error
79: x_return_status := OKC_API.G_RET_STS_ERROR;
80: WHEN OTHERS THEN
81: -- store SQL error message on message stack
82: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
83: p_msg_name => G_UNEXPECTED_ERROR,
84: p_token1 => G_SQLCODE_TOKEN,
85: p_token1_value => SQLCODE,
86: p_token2 => G_SQLERRM_TOKEN,
89: IF c_INVENTORY_ITEM_ID_validate%ISOPEN THEN
90: CLOSE c_INVENTORY_ITEM_ID_validate;
91: END IF;
92: -- notify caller of an error as UNEXPETED error
93: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
94: END Validate_INVENTORY_ITEM_ID;
95:
96: --------------------------------------1-----------------------------------------
97: -- Start of Commnets
114: WHERE id = p_id);
115:
116: BEGIN
117: -- initialize return status
118: x_return_status := OKC_API.G_RET_STS_SUCCESS;
119: -- data is required
120: IF (p_asdv_rec.tal_id = OKC_API.G_MISS_NUM) OR
121: (p_asdv_rec.tal_id IS NULL) THEN
122: -- halt validation as it is a required field
116: BEGIN
117: -- initialize return status
118: x_return_status := OKC_API.G_RET_STS_SUCCESS;
119: -- data is required
120: IF (p_asdv_rec.tal_id = OKC_API.G_MISS_NUM) OR
121: (p_asdv_rec.tal_id IS NULL) THEN
122: -- halt validation as it is a required field
123: RAISE G_EXCEPTION_STOP_VALIDATION;
124: END IF;
137: EXCEPTION
138: WHEN G_EXCEPTION_STOP_VALIDATION then
139: -- We are here since the field is required
140: -- store SQL error message on message stack
141: OKC_API.set_message(p_app_name => G_APP_NAME,
142: p_msg_name => G_REQUIRED_VALUE,
143: p_token1 => G_COL_NAME_TOKEN,
144: p_token1_value => 'tal_id');
145: -- Notify Error
142: p_msg_name => G_REQUIRED_VALUE,
143: p_token1 => G_COL_NAME_TOKEN,
144: p_token1_value => 'tal_id');
145: -- Notify Error
146: x_return_status := OKC_API.G_RET_STS_ERROR;
147: WHEN G_EXCEPTION_HALT_VALIDATION then
148: -- We are here b'cause we have no parent record
149: -- store SQL error message on message stack
150: OKC_API.set_message(p_app_name => G_APP_NAME,
146: x_return_status := OKC_API.G_RET_STS_ERROR;
147: WHEN G_EXCEPTION_HALT_VALIDATION then
148: -- We are here b'cause we have no parent record
149: -- store SQL error message on message stack
150: OKC_API.set_message(p_app_name => G_APP_NAME,
151: p_msg_name => G_NO_MATCHING_RECORD,
152: p_token1 => G_COL_NAME_TOKEN,
153: p_token1_value => 'tal_id');
154: -- If the cursor is open then it has to be closed
155: IF c_tal_id_validate%ISOPEN THEN
156: CLOSE c_tal_id_validate;
157: END IF;
158: -- notify caller of an error
159: x_return_status := OKC_API.G_RET_STS_ERROR;
160: WHEN OTHERS THEN
161: -- store SQL error message on message stack
162: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
163: p_msg_name => G_UNEXPECTED_ERROR,
158: -- notify caller of an error
159: x_return_status := OKC_API.G_RET_STS_ERROR;
160: WHEN OTHERS THEN
161: -- store SQL error message on message stack
162: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
163: p_msg_name => G_UNEXPECTED_ERROR,
164: p_token1 => G_SQLCODE_TOKEN,
165: p_token1_value => SQLCODE,
166: p_token2 => G_SQLERRM_TOKEN,
169: IF c_tal_id_validate%ISOPEN THEN
170: CLOSE c_tal_id_validate;
171: END IF;
172: -- notify caller of an error as UNEXPETED error
173: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
174: END validate_tal_id;
175: ------------------------------------3--------------------------------------------
176: -- Start of Commnets
177: -- Badrinath Kuchibholta
186: p_asdv_rec IN asdv_rec_type) IS
187:
188: BEGIN
189: -- initialize return status
190: x_return_status := OKC_API.G_RET_STS_SUCCESS;
191: -- data is required
192: IF (p_asdv_rec.quantity = OKC_API.G_MISS_NUM) OR
193: (p_asdv_rec.quantity IS NULL) THEN
194: -- halt validation as it is a required field
188: BEGIN
189: -- initialize return status
190: x_return_status := OKC_API.G_RET_STS_SUCCESS;
191: -- data is required
192: IF (p_asdv_rec.quantity = OKC_API.G_MISS_NUM) OR
193: (p_asdv_rec.quantity IS NULL) THEN
194: -- halt validation as it is a required field
195: RAISE G_EXCEPTION_STOP_VALIDATION;
196: END IF;
205: null;
206: WHEN G_EXCEPTION_HALT_VALIDATION then
207: -- We are here b'cause not greater than zero
208: -- store SQL error message on message stack
209: OKC_API.set_message(p_app_name => G_APP_NAME,
210: p_msg_name => G_INVALID_VALUE,
211: p_token1 => G_COL_NAME_TOKEN,
212: p_token1_value => 'quantity');
213: -- notify caller of an error
210: p_msg_name => G_INVALID_VALUE,
211: p_token1 => G_COL_NAME_TOKEN,
212: p_token1_value => 'quantity');
213: -- notify caller of an error
214: x_return_status := OKC_API.G_RET_STS_ERROR;
215: WHEN OTHERS THEN
216: -- store SQL error message on message stack
217: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
218: p_msg_name => G_UNEXPECTED_ERROR,
213: -- notify caller of an error
214: x_return_status := OKC_API.G_RET_STS_ERROR;
215: WHEN OTHERS THEN
216: -- store SQL error message on message stack
217: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
218: p_msg_name => G_UNEXPECTED_ERROR,
219: p_token1 => G_SQLCODE_TOKEN,
220: p_token1_value => SQLCODE,
221: p_token2 => G_SQLERRM_TOKEN,
220: p_token1_value => SQLCODE,
221: p_token2 => G_SQLERRM_TOKEN,
222: p_token2_value => SQLERRM);
223: -- notify caller of an error as UNEXPETED error
224: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
225: END validate_quantity;
226:
227: -------------------------------------4-------------------------------------------
228: -- Start of Commnets
237: PROCEDURE validate_life_in_months_tax(x_return_status OUT NOCOPY VARCHAR2,
238: p_asdv_rec IN asdv_rec_type) IS
239: BEGIN
240: -- initialize return status
241: x_return_status := OKC_API.G_RET_STS_SUCCESS;
242: -- data is required
243: IF (p_asdv_rec.life_in_months_tax = OKC_API.G_MISS_NUM) OR
244: (p_asdv_rec.life_in_months_tax IS NULL) THEN
245: -- halt validation as it is a required field
239: BEGIN
240: -- initialize return status
241: x_return_status := OKC_API.G_RET_STS_SUCCESS;
242: -- data is required
243: IF (p_asdv_rec.life_in_months_tax = OKC_API.G_MISS_NUM) OR
244: (p_asdv_rec.life_in_months_tax IS NULL) THEN
245: -- halt validation as it is a required field
246: RAISE G_EXCEPTION_STOP_VALIDATION;
247: END IF;
256: null;
257: WHEN G_EXCEPTION_HALT_VALIDATION then
258: -- We are here b'cause not greater than zero
259: -- store SQL error message on message stack
260: OKC_API.set_message(p_app_name => G_APP_NAME,
261: p_msg_name => G_INVALID_VALUE,
262: p_token1 => G_COL_NAME_TOKEN,
263: p_token1_value => 'life_in_months_tax');
264: -- notify caller of an error
261: p_msg_name => G_INVALID_VALUE,
262: p_token1 => G_COL_NAME_TOKEN,
263: p_token1_value => 'life_in_months_tax');
264: -- notify caller of an error
265: x_return_status := OKC_API.G_RET_STS_ERROR;
266: WHEN OTHERS THEN
267: -- store SQL error message on message stack
268: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
269: p_msg_name => G_UNEXPECTED_ERROR,
264: -- notify caller of an error
265: x_return_status := OKC_API.G_RET_STS_ERROR;
266: WHEN OTHERS THEN
267: -- store SQL error message on message stack
268: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
269: p_msg_name => G_UNEXPECTED_ERROR,
270: p_token1 => G_SQLCODE_TOKEN,
271: p_token1_value => SQLCODE,
272: p_token2 => G_SQLERRM_TOKEN,
271: p_token1_value => SQLCODE,
272: p_token2 => G_SQLERRM_TOKEN,
273: p_token2_value => SQLERRM);
274: -- notify caller of an error as UNEXPETED error
275: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
276: END validate_life_in_months_tax;
277: --------------------------------------5-------------------------------------------
278: -- Start of Commnets
279: -- Badrinath Kuchibholta
295: WHERE kle.id = p_id);
296:
297: BEGIN
298: -- initialize return status
299: x_return_status := OKC_API.G_RET_STS_SUCCESS;
300: -- data is required
301: IF (p_asdv_rec.target_kle_id = OKC_API.G_MISS_NUM) OR
302: (p_asdv_rec.target_kle_id IS NULL) THEN
303: -- halt validation as it is a required field
297: BEGIN
298: -- initialize return status
299: x_return_status := OKC_API.G_RET_STS_SUCCESS;
300: -- data is required
301: IF (p_asdv_rec.target_kle_id = OKC_API.G_MISS_NUM) OR
302: (p_asdv_rec.target_kle_id IS NULL) THEN
303: -- halt validation as it is a required field
304: RAISE G_EXCEPTION_STOP_VALIDATION;
305: END IF;
321: null;
322: WHEN G_EXCEPTION_HALT_VALIDATION then
323: -- We are here b'cause we have no parent record
324: -- store SQL error message on message stack
325: OKC_API.set_message(p_app_name => G_APP_NAME,
326: p_msg_name => G_NO_MATCHING_RECORD,
327: p_token1 => G_COL_NAME_TOKEN,
328: p_token1_value => 'target_kle_id');
329: -- If the cursor is open then it has to be closed
330: IF c_target_kle_id_validate%ISOPEN THEN
331: CLOSE c_target_kle_id_validate;
332: END IF;
333: -- notify caller of an error
334: x_return_status := OKC_API.G_RET_STS_ERROR;
335: WHEN OTHERS THEN
336: -- store SQL error message on message stack
337: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
338: p_msg_name => G_UNEXPECTED_ERROR,
333: -- notify caller of an error
334: x_return_status := OKC_API.G_RET_STS_ERROR;
335: WHEN OTHERS THEN
336: -- store SQL error message on message stack
337: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
338: p_msg_name => G_UNEXPECTED_ERROR,
339: p_token1 => G_SQLCODE_TOKEN,
340: p_token1_value => SQLCODE,
341: p_token2 => G_SQLERRM_TOKEN,
344: IF c_target_kle_id_validate%ISOPEN THEN
345: CLOSE c_target_kle_id_validate;
346: END IF;
347: -- notify caller of an error as UNEXPETED error
348: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
349: END validate_target_kle_id;
350: ------------------------------19----------------------------------------------
351: -- Start of Commnets
352: -- Badrinath Kuchibholta
370: AND book_class = 'TAX');
371:
372: BEGIN
373: -- initialize return status
374: x_return_status := OKC_API.G_RET_STS_SUCCESS;
375: -- data is required
376: IF (p_asdv_rec.tax_book = OKC_API.G_MISS_CHAR) OR
377: (p_asdv_rec.tax_book IS NULL) THEN
378: -- halt validation as it is a required field
372: BEGIN
373: -- initialize return status
374: x_return_status := OKC_API.G_RET_STS_SUCCESS;
375: -- data is required
376: IF (p_asdv_rec.tax_book = OKC_API.G_MISS_CHAR) OR
377: (p_asdv_rec.tax_book IS NULL) THEN
378: -- halt validation as it is a required field
379: RAISE G_EXCEPTION_STOP_VALIDATION;
380: END IF;
396: null;
397: WHEN G_EXCEPTION_HALT_VALIDATION then
398: -- We are here b'cause we have no parent record
399: -- store SQL error message on message stack
400: OKC_API.set_message(p_app_name => G_APP_NAME,
401: p_msg_name => G_NO_MATCHING_RECORD,
402: p_token1 => G_COL_NAME_TOKEN,
403: p_token1_value => 'tax_book');
404: IF c_tax_book_validate%ISOPEN THEN
404: IF c_tax_book_validate%ISOPEN THEN
405: CLOSE c_tax_book_validate;
406: END IF;
407: -- notify caller of an error
408: x_return_status := OKC_API.G_RET_STS_ERROR;
409: WHEN OTHERS THEN
410: -- store SQL error message on message stack
411: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
412: p_msg_name => G_UNEXPECTED_ERROR,
407: -- notify caller of an error
408: x_return_status := OKC_API.G_RET_STS_ERROR;
409: WHEN OTHERS THEN
410: -- store SQL error message on message stack
411: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
412: p_msg_name => G_UNEXPECTED_ERROR,
413: p_token1 => G_SQLCODE_TOKEN,
414: p_token1_value => SQLCODE,
415: p_token2 => G_SQLERRM_TOKEN,
418: IF c_tax_book_validate%ISOPEN THEN
419: CLOSE c_tax_book_validate;
420: END IF;
421: -- notify caller of an error as UNEXPETED error
422: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
423: END validate_tax_book;
424: --------------------------------20-------------------------------------------------
425: -- Start of Commnets
426: -- Badrinath Kuchibholta
443: WHERE method_code = p_deprn_method);
444:
445: BEGIN
446: -- initialize return status
447: x_return_status := OKC_API.G_RET_STS_SUCCESS;
448: -- data is required
449: IF (p_asdv_rec.deprn_method_tax = OKC_API.G_MISS_CHAR) OR
450: (p_asdv_rec.deprn_method_tax IS NULL) THEN
451: -- halt validation as it is a optional field
445: BEGIN
446: -- initialize return status
447: x_return_status := OKC_API.G_RET_STS_SUCCESS;
448: -- data is required
449: IF (p_asdv_rec.deprn_method_tax = OKC_API.G_MISS_CHAR) OR
450: (p_asdv_rec.deprn_method_tax IS NULL) THEN
451: -- halt validation as it is a optional field
452: RAISE G_EXCEPTION_STOP_VALIDATION;
453: END IF;
469: null;
470: WHEN G_EXCEPTION_HALT_VALIDATION then
471: -- We are here b'cause we have no parent record
472: -- store SQL error message on message stack
473: OKC_API.set_message(p_app_name => G_APP_NAME,
474: p_msg_name => G_NO_MATCHING_RECORD,
475: p_token1 => G_COL_NAME_TOKEN,
476: p_token1_value => 'deprn_method_tax');
477: IF c_dprn_mtd_tax_validate%ISOPEN THEN
477: IF c_dprn_mtd_tax_validate%ISOPEN THEN
478: CLOSE c_dprn_mtd_tax_validate;
479: END IF;
480: -- notify caller of an error
481: x_return_status := OKC_API.G_RET_STS_ERROR;
482: WHEN OTHERS THEN
483: -- store SQL error message on message stack
484: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
485: p_msg_name => G_UNEXPECTED_ERROR,
480: -- notify caller of an error
481: x_return_status := OKC_API.G_RET_STS_ERROR;
482: WHEN OTHERS THEN
483: -- store SQL error message on message stack
484: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
485: p_msg_name => G_UNEXPECTED_ERROR,
486: p_token1 => G_SQLCODE_TOKEN,
487: p_token1_value => SQLCODE,
488: p_token2 => G_SQLERRM_TOKEN,
491: IF c_dprn_mtd_tax_validate%ISOPEN THEN
492: CLOSE c_dprn_mtd_tax_validate;
493: END IF;
494: -- notify caller of an error as UNEXPETED error
495: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
496: END validate_dprn_mtd_tax;
497:
498: /************************ HAND-CODED *********************************/
499:
638: --dbms_output.put_line('Trans Curr Type: '|| p_asdv_rec.currency_conversion_type);
639:
640: IF (p_asdv_rec.currency_code IS NULL
641: OR
642: p_asdv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN -- take functional currency
643: x_asdv_rec.currency_code := l_func_currency;
644: x_asdv_rec.currency_conversion_type := NULL;
645: x_asdv_rec.currency_conversion_rate := NULL;
646: x_asdv_rec.currency_conversion_date := NULL;
651: FETCH curr_csr INTO l_ok;
652: CLOSE curr_csr;
653:
654: IF (l_ok <> 'Y') THEN
655: OKC_API.set_message(p_app_name => G_APP_NAME,
656: p_msg_name => G_NO_MATCHING_RECORD,
657: p_token1 => G_COL_NAME_TOKEN,
658: p_token1_value => 'currency_code');
659: x_return_status := OKC_API.G_RET_STS_ERROR;
655: OKC_API.set_message(p_app_name => G_APP_NAME,
656: p_msg_name => G_NO_MATCHING_RECORD,
657: p_token1 => G_COL_NAME_TOKEN,
658: p_token1_value => 'currency_code');
659: x_return_status := OKC_API.G_RET_STS_ERROR;
660: RAISE currency_validation_failed;
661: END IF;
662:
663: IF (p_asdv_rec.currency_code = l_func_currency) THEN -- both are same
668:
669: -- Conversion type, date and rate mandetory
670: IF (p_asdv_rec.currency_conversion_type IS NULL
671: OR
672: p_asdv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
673: OKC_API.set_message(
674: p_app_name => G_APP_NAME,
675: p_msg_name => G_REQUIRED_VALUE,
676: p_token1 => G_COL_NAME_TOKEN,
669: -- Conversion type, date and rate mandetory
670: IF (p_asdv_rec.currency_conversion_type IS NULL
671: OR
672: p_asdv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR) THEN
673: OKC_API.set_message(
674: p_app_name => G_APP_NAME,
675: p_msg_name => G_REQUIRED_VALUE,
676: p_token1 => G_COL_NAME_TOKEN,
677: p_token1_value => 'currency_conversion_type');
674: p_app_name => G_APP_NAME,
675: p_msg_name => G_REQUIRED_VALUE,
676: p_token1 => G_COL_NAME_TOKEN,
677: p_token1_value => 'currency_conversion_type');
678: x_return_status := OKC_API.G_RET_STS_ERROR;
679: RAISE currency_validation_failed;
680: END IF;
681:
682: l_ok := '?';
684: FETCH conv_type_csr INTO l_ok;
685: CLOSE conv_type_csr;
686:
687: IF (l_ok <> 'Y') THEN
688: OKC_API.set_message(p_app_name => G_APP_NAME,
689: p_msg_name => G_NO_MATCHING_RECORD,
690: p_token1 => G_COL_NAME_TOKEN,
691: p_token1_value => 'currency_conversion_type');
692: x_return_status := OKC_API.G_RET_STS_ERROR;
688: OKC_API.set_message(p_app_name => G_APP_NAME,
689: p_msg_name => G_NO_MATCHING_RECORD,
690: p_token1 => G_COL_NAME_TOKEN,
691: p_token1_value => 'currency_conversion_type');
692: x_return_status := OKC_API.G_RET_STS_ERROR;
693: RAISE currency_validation_failed;
694: END IF;
695:
696: IF (p_asdv_rec.currency_conversion_date IS NULL
694: END IF;
695:
696: IF (p_asdv_rec.currency_conversion_date IS NULL
697: OR
698: p_asdv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
699: OKC_API.set_message(
700: p_app_name => G_APP_NAME,
701: p_msg_name => G_REQUIRED_VALUE,
702: p_token1 => G_COL_NAME_TOKEN,
695:
696: IF (p_asdv_rec.currency_conversion_date IS NULL
697: OR
698: p_asdv_rec.currency_conversion_date = OKC_API.G_MISS_DATE) THEN
699: OKC_API.set_message(
700: p_app_name => G_APP_NAME,
701: p_msg_name => G_REQUIRED_VALUE,
702: p_token1 => G_COL_NAME_TOKEN,
703: p_token1_value => 'currency_conversion_date');
700: p_app_name => G_APP_NAME,
701: p_msg_name => G_REQUIRED_VALUE,
702: p_token1 => G_COL_NAME_TOKEN,
703: p_token1_value => 'currency_conversion_date');
704: x_return_status := OKC_API.G_RET_STS_ERROR;
705: RAISE currency_validation_failed;
706: END IF;
707:
708: IF (p_asdv_rec.currency_conversion_type = 'User') THEN
708: IF (p_asdv_rec.currency_conversion_type = 'User') THEN
709:
710: IF (p_asdv_rec.currency_conversion_rate IS NULL
711: OR
712: p_asdv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
713: OKC_API.set_message(
714: p_app_name => G_APP_NAME,
715: p_msg_name => G_REQUIRED_VALUE,
716: p_token1 => G_COL_NAME_TOKEN,
709:
710: IF (p_asdv_rec.currency_conversion_rate IS NULL
711: OR
712: p_asdv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM) THEN
713: OKC_API.set_message(
714: p_app_name => G_APP_NAME,
715: p_msg_name => G_REQUIRED_VALUE,
716: p_token1 => G_COL_NAME_TOKEN,
717: p_token1_value => 'currency_conversion_rate');
714: p_app_name => G_APP_NAME,
715: p_msg_name => G_REQUIRED_VALUE,
716: p_token1 => G_COL_NAME_TOKEN,
717: p_token1_value => 'currency_conversion_rate');
718: x_return_status := OKC_API.G_RET_STS_ERROR;
719: RAISE currency_validation_failed;
720: END IF;
721:
722: x_asdv_rec.currency_conversion_type := p_asdv_rec.currency_conversion_type;
1129: p_asdv_rec IN asdv_rec_type
1130: ) RETURN asdv_rec_type IS
1131: l_asdv_rec asdv_rec_type := p_asdv_rec;
1132: BEGIN
1133: IF (l_asdv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
1134: l_asdv_rec.object_version_number := NULL;
1135: END IF;
1136: IF (l_asdv_rec.tal_id = OKC_API.G_MISS_NUM) THEN
1137: l_asdv_rec.tal_id := NULL;
1132: BEGIN
1133: IF (l_asdv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
1134: l_asdv_rec.object_version_number := NULL;
1135: END IF;
1136: IF (l_asdv_rec.tal_id = OKC_API.G_MISS_NUM) THEN
1137: l_asdv_rec.tal_id := NULL;
1138: END IF;
1139: IF (l_asdv_rec.target_kle_id = OKC_API.G_MISS_NUM) THEN
1140: l_asdv_rec.target_kle_id := NULL;
1135: END IF;
1136: IF (l_asdv_rec.tal_id = OKC_API.G_MISS_NUM) THEN
1137: l_asdv_rec.tal_id := NULL;
1138: END IF;
1139: IF (l_asdv_rec.target_kle_id = OKC_API.G_MISS_NUM) THEN
1140: l_asdv_rec.target_kle_id := NULL;
1141: END IF;
1142: IF (l_asdv_rec.line_detail_number = OKC_API.G_MISS_NUM) THEN
1143: l_asdv_rec.line_detail_number := NULL;
1138: END IF;
1139: IF (l_asdv_rec.target_kle_id = OKC_API.G_MISS_NUM) THEN
1140: l_asdv_rec.target_kle_id := NULL;
1141: END IF;
1142: IF (l_asdv_rec.line_detail_number = OKC_API.G_MISS_NUM) THEN
1143: l_asdv_rec.line_detail_number := NULL;
1144: END IF;
1145: IF (l_asdv_rec.asset_number = OKC_API.G_MISS_CHAR) THEN
1146: l_asdv_rec.asset_number := NULL;
1141: END IF;
1142: IF (l_asdv_rec.line_detail_number = OKC_API.G_MISS_NUM) THEN
1143: l_asdv_rec.line_detail_number := NULL;
1144: END IF;
1145: IF (l_asdv_rec.asset_number = OKC_API.G_MISS_CHAR) THEN
1146: l_asdv_rec.asset_number := NULL;
1147: END IF;
1148: IF (l_asdv_rec.description = OKC_API.G_MISS_CHAR) THEN
1149: l_asdv_rec.description := NULL;
1144: END IF;
1145: IF (l_asdv_rec.asset_number = OKC_API.G_MISS_CHAR) THEN
1146: l_asdv_rec.asset_number := NULL;
1147: END IF;
1148: IF (l_asdv_rec.description = OKC_API.G_MISS_CHAR) THEN
1149: l_asdv_rec.description := NULL;
1150: END IF;
1151: IF (l_asdv_rec.quantity = OKC_API.G_MISS_NUM) THEN
1152: l_asdv_rec.quantity := NULL;
1147: END IF;
1148: IF (l_asdv_rec.description = OKC_API.G_MISS_CHAR) THEN
1149: l_asdv_rec.description := NULL;
1150: END IF;
1151: IF (l_asdv_rec.quantity = OKC_API.G_MISS_NUM) THEN
1152: l_asdv_rec.quantity := NULL;
1153: END IF;
1154: IF (l_asdv_rec.cost = OKC_API.G_MISS_NUM) THEN
1155: l_asdv_rec.cost := NULL;
1150: END IF;
1151: IF (l_asdv_rec.quantity = OKC_API.G_MISS_NUM) THEN
1152: l_asdv_rec.quantity := NULL;
1153: END IF;
1154: IF (l_asdv_rec.cost = OKC_API.G_MISS_NUM) THEN
1155: l_asdv_rec.cost := NULL;
1156: END IF;
1157: IF (l_asdv_rec.tax_book = OKC_API.G_MISS_CHAR) THEN
1158: l_asdv_rec.tax_book := NULL;
1153: END IF;
1154: IF (l_asdv_rec.cost = OKC_API.G_MISS_NUM) THEN
1155: l_asdv_rec.cost := NULL;
1156: END IF;
1157: IF (l_asdv_rec.tax_book = OKC_API.G_MISS_CHAR) THEN
1158: l_asdv_rec.tax_book := NULL;
1159: END IF;
1160: IF (l_asdv_rec.life_in_months_tax = OKC_API.G_MISS_NUM) THEN
1161: l_asdv_rec.life_in_months_tax := NULL;
1156: END IF;
1157: IF (l_asdv_rec.tax_book = OKC_API.G_MISS_CHAR) THEN
1158: l_asdv_rec.tax_book := NULL;
1159: END IF;
1160: IF (l_asdv_rec.life_in_months_tax = OKC_API.G_MISS_NUM) THEN
1161: l_asdv_rec.life_in_months_tax := NULL;
1162: END IF;
1163: IF (l_asdv_rec.deprn_method_tax = OKC_API.G_MISS_CHAR) THEN
1164: l_asdv_rec.deprn_method_tax := NULL;
1159: END IF;
1160: IF (l_asdv_rec.life_in_months_tax = OKC_API.G_MISS_NUM) THEN
1161: l_asdv_rec.life_in_months_tax := NULL;
1162: END IF;
1163: IF (l_asdv_rec.deprn_method_tax = OKC_API.G_MISS_CHAR) THEN
1164: l_asdv_rec.deprn_method_tax := NULL;
1165: END IF;
1166: IF (l_asdv_rec.deprn_rate_tax = OKC_API.G_MISS_NUM) THEN
1167: l_asdv_rec.deprn_rate_tax := NULL;
1162: END IF;
1163: IF (l_asdv_rec.deprn_method_tax = OKC_API.G_MISS_CHAR) THEN
1164: l_asdv_rec.deprn_method_tax := NULL;
1165: END IF;
1166: IF (l_asdv_rec.deprn_rate_tax = OKC_API.G_MISS_NUM) THEN
1167: l_asdv_rec.deprn_rate_tax := NULL;
1168: END IF;
1169: IF (l_asdv_rec.salvage_value = OKC_API.G_MISS_NUM) THEN
1170: l_asdv_rec.salvage_value := NULL;
1165: END IF;
1166: IF (l_asdv_rec.deprn_rate_tax = OKC_API.G_MISS_NUM) THEN
1167: l_asdv_rec.deprn_rate_tax := NULL;
1168: END IF;
1169: IF (l_asdv_rec.salvage_value = OKC_API.G_MISS_NUM) THEN
1170: l_asdv_rec.salvage_value := NULL;
1171: END IF;
1172:
1173: -- added new columns for split asset component
1170: l_asdv_rec.salvage_value := NULL;
1171: END IF;
1172:
1173: -- added new columns for split asset component
1174: IF (l_asdv_rec.SPLIT_PERCENT = OKC_API.G_MISS_NUM) THEN
1175: l_asdv_rec.SPLIT_PERCENT := NULL;
1176: END IF;
1177: IF (l_asdv_rec.INVENTORY_ITEM_ID = OKC_API.G_MISS_NUM) THEN
1178: l_asdv_rec.INVENTORY_ITEM_ID := NULL;
1173: -- added new columns for split asset component
1174: IF (l_asdv_rec.SPLIT_PERCENT = OKC_API.G_MISS_NUM) THEN
1175: l_asdv_rec.SPLIT_PERCENT := NULL;
1176: END IF;
1177: IF (l_asdv_rec.INVENTORY_ITEM_ID = OKC_API.G_MISS_NUM) THEN
1178: l_asdv_rec.INVENTORY_ITEM_ID := NULL;
1179: END IF;
1180: -- end of added new columns for split asset component
1181:
1178: l_asdv_rec.INVENTORY_ITEM_ID := NULL;
1179: END IF;
1180: -- end of added new columns for split asset component
1181:
1182: IF (l_asdv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
1183: l_asdv_rec.attribute_category := NULL;
1184: END IF;
1185: IF (l_asdv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
1186: l_asdv_rec.attribute1 := NULL;
1181:
1182: IF (l_asdv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
1183: l_asdv_rec.attribute_category := NULL;
1184: END IF;
1185: IF (l_asdv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
1186: l_asdv_rec.attribute1 := NULL;
1187: END IF;
1188: IF (l_asdv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
1189: l_asdv_rec.attribute2 := NULL;
1184: END IF;
1185: IF (l_asdv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
1186: l_asdv_rec.attribute1 := NULL;
1187: END IF;
1188: IF (l_asdv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
1189: l_asdv_rec.attribute2 := NULL;
1190: END IF;
1191: IF (l_asdv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
1192: l_asdv_rec.attribute3 := NULL;
1187: END IF;
1188: IF (l_asdv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
1189: l_asdv_rec.attribute2 := NULL;
1190: END IF;
1191: IF (l_asdv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
1192: l_asdv_rec.attribute3 := NULL;
1193: END IF;
1194: IF (l_asdv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
1195: l_asdv_rec.attribute4 := NULL;
1190: END IF;
1191: IF (l_asdv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
1192: l_asdv_rec.attribute3 := NULL;
1193: END IF;
1194: IF (l_asdv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
1195: l_asdv_rec.attribute4 := NULL;
1196: END IF;
1197: IF (l_asdv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
1198: l_asdv_rec.attribute5 := NULL;
1193: END IF;
1194: IF (l_asdv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
1195: l_asdv_rec.attribute4 := NULL;
1196: END IF;
1197: IF (l_asdv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
1198: l_asdv_rec.attribute5 := NULL;
1199: END IF;
1200: IF (l_asdv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
1201: l_asdv_rec.attribute6 := NULL;
1196: END IF;
1197: IF (l_asdv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
1198: l_asdv_rec.attribute5 := NULL;
1199: END IF;
1200: IF (l_asdv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
1201: l_asdv_rec.attribute6 := NULL;
1202: END IF;
1203: IF (l_asdv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
1204: l_asdv_rec.attribute7 := NULL;
1199: END IF;
1200: IF (l_asdv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
1201: l_asdv_rec.attribute6 := NULL;
1202: END IF;
1203: IF (l_asdv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
1204: l_asdv_rec.attribute7 := NULL;
1205: END IF;
1206: IF (l_asdv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
1207: l_asdv_rec.attribute8 := NULL;
1202: END IF;
1203: IF (l_asdv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
1204: l_asdv_rec.attribute7 := NULL;
1205: END IF;
1206: IF (l_asdv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
1207: l_asdv_rec.attribute8 := NULL;
1208: END IF;
1209: IF (l_asdv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
1210: l_asdv_rec.attribute9 := NULL;
1205: END IF;
1206: IF (l_asdv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
1207: l_asdv_rec.attribute8 := NULL;
1208: END IF;
1209: IF (l_asdv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
1210: l_asdv_rec.attribute9 := NULL;
1211: END IF;
1212: IF (l_asdv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
1213: l_asdv_rec.attribute10 := NULL;
1208: END IF;
1209: IF (l_asdv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
1210: l_asdv_rec.attribute9 := NULL;
1211: END IF;
1212: IF (l_asdv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
1213: l_asdv_rec.attribute10 := NULL;
1214: END IF;
1215: IF (l_asdv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
1216: l_asdv_rec.attribute11 := NULL;
1211: END IF;
1212: IF (l_asdv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
1213: l_asdv_rec.attribute10 := NULL;
1214: END IF;
1215: IF (l_asdv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
1216: l_asdv_rec.attribute11 := NULL;
1217: END IF;
1218: IF (l_asdv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
1219: l_asdv_rec.attribute12 := NULL;
1214: END IF;
1215: IF (l_asdv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
1216: l_asdv_rec.attribute11 := NULL;
1217: END IF;
1218: IF (l_asdv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
1219: l_asdv_rec.attribute12 := NULL;
1220: END IF;
1221: IF (l_asdv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
1222: l_asdv_rec.attribute13 := NULL;
1217: END IF;
1218: IF (l_asdv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
1219: l_asdv_rec.attribute12 := NULL;
1220: END IF;
1221: IF (l_asdv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
1222: l_asdv_rec.attribute13 := NULL;
1223: END IF;
1224: IF (l_asdv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
1225: l_asdv_rec.attribute14 := NULL;
1220: END IF;
1221: IF (l_asdv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
1222: l_asdv_rec.attribute13 := NULL;
1223: END IF;
1224: IF (l_asdv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
1225: l_asdv_rec.attribute14 := NULL;
1226: END IF;
1227: IF (l_asdv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
1228: l_asdv_rec.attribute15 := NULL;
1223: END IF;
1224: IF (l_asdv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
1225: l_asdv_rec.attribute14 := NULL;
1226: END IF;
1227: IF (l_asdv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
1228: l_asdv_rec.attribute15 := NULL;
1229: END IF;
1230: IF (l_asdv_rec.created_by = OKC_API.G_MISS_NUM) THEN
1231: l_asdv_rec.created_by := NULL;
1226: END IF;
1227: IF (l_asdv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
1228: l_asdv_rec.attribute15 := NULL;
1229: END IF;
1230: IF (l_asdv_rec.created_by = OKC_API.G_MISS_NUM) THEN
1231: l_asdv_rec.created_by := NULL;
1232: END IF;
1233: IF (l_asdv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
1234: l_asdv_rec.creation_date := NULL;
1229: END IF;
1230: IF (l_asdv_rec.created_by = OKC_API.G_MISS_NUM) THEN
1231: l_asdv_rec.created_by := NULL;
1232: END IF;
1233: IF (l_asdv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
1234: l_asdv_rec.creation_date := NULL;
1235: END IF;
1236: IF (l_asdv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
1237: l_asdv_rec.last_updated_by := NULL;
1232: END IF;
1233: IF (l_asdv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
1234: l_asdv_rec.creation_date := NULL;
1235: END IF;
1236: IF (l_asdv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
1237: l_asdv_rec.last_updated_by := NULL;
1238: END IF;
1239: IF (l_asdv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
1240: l_asdv_rec.last_update_date := NULL;
1235: END IF;
1236: IF (l_asdv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
1237: l_asdv_rec.last_updated_by := NULL;
1238: END IF;
1239: IF (l_asdv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
1240: l_asdv_rec.last_update_date := NULL;
1241: END IF;
1242: IF (l_asdv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
1243: l_asdv_rec.last_update_login := NULL;
1238: END IF;
1239: IF (l_asdv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
1240: l_asdv_rec.last_update_date := NULL;
1241: END IF;
1242: IF (l_asdv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
1243: l_asdv_rec.last_update_login := NULL;
1244: END IF;
1245: RETURN(l_asdv_rec);
1246: END null_out_defaults;
1252: ----------------------------------------------
1253: FUNCTION Validate_Attributes (
1254: p_asdv_rec IN asdv_rec_type
1255: ) RETURN VARCHAR2 IS
1256: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1257: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1258: BEGIN
1259: IF p_asdv_rec.id = OKC_API.G_MISS_NUM OR
1260: p_asdv_rec.id IS NULL THEN
1253: FUNCTION Validate_Attributes (
1254: p_asdv_rec IN asdv_rec_type
1255: ) RETURN VARCHAR2 IS
1256: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1257: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1258: BEGIN
1259: IF p_asdv_rec.id = OKC_API.G_MISS_NUM OR
1260: p_asdv_rec.id IS NULL THEN
1261: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1255: ) RETURN VARCHAR2 IS
1256: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1257: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1258: BEGIN
1259: IF p_asdv_rec.id = OKC_API.G_MISS_NUM OR
1260: p_asdv_rec.id IS NULL THEN
1261: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1262: x_return_status := OKC_API.G_RET_STS_ERROR;
1263: ELSIF p_asdv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1257: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1258: BEGIN
1259: IF p_asdv_rec.id = OKC_API.G_MISS_NUM OR
1260: p_asdv_rec.id IS NULL THEN
1261: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1262: x_return_status := OKC_API.G_RET_STS_ERROR;
1263: ELSIF p_asdv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1264: p_asdv_rec.object_version_number IS NULL THEN
1265: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1258: BEGIN
1259: IF p_asdv_rec.id = OKC_API.G_MISS_NUM OR
1260: p_asdv_rec.id IS NULL THEN
1261: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1262: x_return_status := OKC_API.G_RET_STS_ERROR;
1263: ELSIF p_asdv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1264: p_asdv_rec.object_version_number IS NULL THEN
1265: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1266: x_return_status := OKC_API.G_RET_STS_ERROR;
1259: IF p_asdv_rec.id = OKC_API.G_MISS_NUM OR
1260: p_asdv_rec.id IS NULL THEN
1261: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1262: x_return_status := OKC_API.G_RET_STS_ERROR;
1263: ELSIF p_asdv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1264: p_asdv_rec.object_version_number IS NULL THEN
1265: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1266: x_return_status := OKC_API.G_RET_STS_ERROR;
1267: ELSIF p_asdv_rec.asset_number = OKC_API.G_MISS_CHAR OR
1261: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1262: x_return_status := OKC_API.G_RET_STS_ERROR;
1263: ELSIF p_asdv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1264: p_asdv_rec.object_version_number IS NULL THEN
1265: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1266: x_return_status := OKC_API.G_RET_STS_ERROR;
1267: ELSIF p_asdv_rec.asset_number = OKC_API.G_MISS_CHAR OR
1268: p_asdv_rec.asset_number IS NULL THEN
1269: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
1262: x_return_status := OKC_API.G_RET_STS_ERROR;
1263: ELSIF p_asdv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1264: p_asdv_rec.object_version_number IS NULL THEN
1265: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1266: x_return_status := OKC_API.G_RET_STS_ERROR;
1267: ELSIF p_asdv_rec.asset_number = OKC_API.G_MISS_CHAR OR
1268: p_asdv_rec.asset_number IS NULL THEN
1269: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
1270: x_return_status := OKC_API.G_RET_STS_ERROR;
1263: ELSIF p_asdv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1264: p_asdv_rec.object_version_number IS NULL THEN
1265: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1266: x_return_status := OKC_API.G_RET_STS_ERROR;
1267: ELSIF p_asdv_rec.asset_number = OKC_API.G_MISS_CHAR OR
1268: p_asdv_rec.asset_number IS NULL THEN
1269: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
1270: x_return_status := OKC_API.G_RET_STS_ERROR;
1271: END IF;
1265: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1266: x_return_status := OKC_API.G_RET_STS_ERROR;
1267: ELSIF p_asdv_rec.asset_number = OKC_API.G_MISS_CHAR OR
1268: p_asdv_rec.asset_number IS NULL THEN
1269: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
1270: x_return_status := OKC_API.G_RET_STS_ERROR;
1271: END IF;
1272: /************************ HAND-CODED *********************************/
1273: -- Calling the Validate Procedure to validate Individual Attributes
1266: x_return_status := OKC_API.G_RET_STS_ERROR;
1267: ELSIF p_asdv_rec.asset_number = OKC_API.G_MISS_CHAR OR
1268: p_asdv_rec.asset_number IS NULL THEN
1269: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Asset_number');
1270: x_return_status := OKC_API.G_RET_STS_ERROR;
1271: END IF;
1272: /************************ HAND-CODED *********************************/
1273: -- Calling the Validate Procedure to validate Individual Attributes
1274: validate_tal_id(x_return_status => l_return_status,
1273: -- Calling the Validate Procedure to validate Individual Attributes
1274: validate_tal_id(x_return_status => l_return_status,
1275: p_asdv_rec => p_asdv_rec);
1276: -- Store the Highest Degree of Error
1277: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1278: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1279: x_return_status := l_return_status;
1280: END IF;
1281: END IF;
1274: validate_tal_id(x_return_status => l_return_status,
1275: p_asdv_rec => p_asdv_rec);
1276: -- Store the Highest Degree of Error
1277: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1278: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1279: x_return_status := l_return_status;
1280: END IF;
1281: END IF;
1282: l_return_status := x_return_status;
1282: l_return_status := x_return_status;
1283: validate_quantity(x_return_status => l_return_status,
1284: p_asdv_rec => p_asdv_rec);
1285: -- Store the Highest Degree of Error
1286: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1287: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1288: x_return_status := l_return_status;
1289: END IF;
1290: END IF;
1283: validate_quantity(x_return_status => l_return_status,
1284: p_asdv_rec => p_asdv_rec);
1285: -- Store the Highest Degree of Error
1286: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1287: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1288: x_return_status := l_return_status;
1289: END IF;
1290: END IF;
1291: l_return_status := x_return_status;
1291: l_return_status := x_return_status;
1292: validate_life_in_months_tax(x_return_status => l_return_status,
1293: p_asdv_rec => p_asdv_rec);
1294: -- Store the Highest Degree of Error
1295: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1296: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1297: x_return_status := l_return_status;
1298: END IF;
1299: END IF;
1292: validate_life_in_months_tax(x_return_status => l_return_status,
1293: p_asdv_rec => p_asdv_rec);
1294: -- Store the Highest Degree of Error
1295: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1296: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1297: x_return_status := l_return_status;
1298: END IF;
1299: END IF;
1300: l_return_status := x_return_status;
1300: l_return_status := x_return_status;
1301: validate_target_kle_id(x_return_status => l_return_status,
1302: p_asdv_rec => p_asdv_rec);
1303: -- Store the Highest Degree of Error
1304: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1305: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1306: x_return_status := l_return_status;
1307: END IF;
1308: END IF;
1301: validate_target_kle_id(x_return_status => l_return_status,
1302: p_asdv_rec => p_asdv_rec);
1303: -- Store the Highest Degree of Error
1304: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1305: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1306: x_return_status := l_return_status;
1307: END IF;
1308: END IF;
1309: l_return_status := x_return_status;
1309: l_return_status := x_return_status;
1310: validate_tax_book(x_return_status => l_return_status,
1311: p_asdv_rec => p_asdv_rec);
1312: -- Store the Highest Degree of Error
1313: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1314: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1315: x_return_status := l_return_status;
1316: END IF;
1317: END IF;
1310: validate_tax_book(x_return_status => l_return_status,
1311: p_asdv_rec => p_asdv_rec);
1312: -- Store the Highest Degree of Error
1313: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1314: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1315: x_return_status := l_return_status;
1316: END IF;
1317: END IF;
1318: l_return_status := x_return_status;
1318: l_return_status := x_return_status;
1319: validate_dprn_mtd_tax(x_return_status => l_return_status,
1320: p_asdv_rec => p_asdv_rec);
1321: -- Store the Highest Degree of Error
1322: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1323: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1324: x_return_status := l_return_status;
1325: END IF;
1326: END IF;
1319: validate_dprn_mtd_tax(x_return_status => l_return_status,
1320: p_asdv_rec => p_asdv_rec);
1321: -- Store the Highest Degree of Error
1322: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1323: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1324: x_return_status := l_return_status;
1325: END IF;
1326: END IF;
1327: l_return_status := x_return_status;
1328: --
1329: Validate_INVENTORY_ITEM_ID(x_return_status => l_return_status,
1330: p_asdv_rec => p_asdv_rec);
1331: -- Store the Highest Degree of Error
1332: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1333: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1334: x_return_status := l_return_status;
1335: END IF;
1336: END IF;
1329: Validate_INVENTORY_ITEM_ID(x_return_status => l_return_status,
1330: p_asdv_rec => p_asdv_rec);
1331: -- Store the Highest Degree of Error
1332: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1333: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1334: x_return_status := l_return_status;
1335: END IF;
1336: END IF;
1337: l_return_status := x_return_status;
1340: RETURN(l_return_status);
1341: EXCEPTION
1342: WHEN OTHERS THEN
1343: -- store SQL error message on message stack
1344: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1345: p_msg_name => G_UNEXPECTED_ERROR,
1346: p_token1 => G_SQLCODE_TOKEN,
1347: p_token1_value => SQLCODE,
1348: p_token2 => G_SQLERRM_TOKEN,
1347: p_token1_value => SQLCODE,
1348: p_token2 => G_SQLERRM_TOKEN,
1349: p_token2_value => SQLERRM);
1350: -- notify caller of an error as UNEXPETED error
1351: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1352: -- Return status to caller
1353: RETURN(x_return_status);
1354: /************************ HAND-CODED *********************************/
1355: END Validate_Attributes;
1362: ------------------------------------------
1363: FUNCTION Validate_Record (
1364: p_asdv_rec IN asdv_rec_type
1365: ) RETURN VARCHAR2 IS
1366: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1367: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1368: BEGIN
1369: RETURN (l_return_status);
1370: EXCEPTION
1363: FUNCTION Validate_Record (
1364: p_asdv_rec IN asdv_rec_type
1365: ) RETURN VARCHAR2 IS
1366: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1367: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1368: BEGIN
1369: RETURN (l_return_status);
1370: EXCEPTION
1371: WHEN OTHERS THEN
1369: RETURN (l_return_status);
1370: EXCEPTION
1371: WHEN OTHERS THEN
1372: -- store SQL error message on message stack
1373: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1374: p_msg_name => G_UNEXPECTED_ERROR,
1375: p_token1 => G_SQLCODE_TOKEN,
1376: p_token1_value => SQLCODE,
1377: p_token2 => G_SQLERRM_TOKEN,
1376: p_token1_value => SQLCODE,
1377: p_token2 => G_SQLERRM_TOKEN,
1378: p_token2_value => SQLERRM);
1379: -- notify caller of an error as UNEXPETED error
1380: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1381: -- Return status to caller
1382: RETURN(l_return_status);
1383: END Validate_Record;
1384: ---------------------------------------------------------------------------
1520: -- validate_row for:OKL_TXD_ASSETS_V --
1521: ---------------------------------------
1522: PROCEDURE validate_row(
1523: p_api_version IN NUMBER,
1524: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1525: x_return_status OUT NOCOPY VARCHAR2,
1526: x_msg_count OUT NOCOPY NUMBER,
1527: x_msg_data OUT NOCOPY VARCHAR2,
1528: p_asdv_rec IN asdv_rec_type) IS
1528: p_asdv_rec IN asdv_rec_type) IS
1529:
1530: l_api_version CONSTANT NUMBER := 1;
1531: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1532: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1533: l_asdv_rec asdv_rec_type := p_asdv_rec;
1534: l_asd_rec asd_rec_type;
1535: l_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type;
1536: BEGIN
1533: l_asdv_rec asdv_rec_type := p_asdv_rec;
1534: l_asd_rec asd_rec_type;
1535: l_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type;
1536: BEGIN
1537: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1538: G_PKG_NAME,
1539: p_init_msg_list,
1540: l_api_version,
1541: p_api_version,
1540: l_api_version,
1541: p_api_version,
1542: '_PVT',
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1541: p_api_version,
1542: '_PVT',
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549:
1542: '_PVT',
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549:
1550: --- Validate all non-missing attributes (Item Level Validation)
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549:
1550: --- Validate all non-missing attributes (Item Level Validation)
1551: l_return_status := Validate_Attributes(l_asdv_rec);
1549:
1550: --- Validate all non-missing attributes (Item Level Validation)
1551: l_return_status := Validate_Attributes(l_asdv_rec);
1552: --- If any errors happen abort API
1553: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1555: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_ERROR;
1557: END IF;
1550: --- Validate all non-missing attributes (Item Level Validation)
1551: l_return_status := Validate_Attributes(l_asdv_rec);
1552: --- If any errors happen abort API
1553: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1555: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_ERROR;
1557: END IF;
1558: l_return_status := Validate_Record(l_asdv_rec);
1551: l_return_status := Validate_Attributes(l_asdv_rec);
1552: --- If any errors happen abort API
1553: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1555: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_ERROR;
1557: END IF;
1558: l_return_status := Validate_Record(l_asdv_rec);
1559: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1552: --- If any errors happen abort API
1553: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1555: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_ERROR;
1557: END IF;
1558: l_return_status := Validate_Record(l_asdv_rec);
1559: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1560: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1555: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1556: RAISE OKC_API.G_EXCEPTION_ERROR;
1557: END IF;
1558: l_return_status := Validate_Record(l_asdv_rec);
1559: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1560: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1561: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1562: RAISE OKC_API.G_EXCEPTION_ERROR;
1563: END IF;
1556: RAISE OKC_API.G_EXCEPTION_ERROR;
1557: END IF;
1558: l_return_status := Validate_Record(l_asdv_rec);
1559: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1560: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1561: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1562: RAISE OKC_API.G_EXCEPTION_ERROR;
1563: END IF;
1564: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1557: END IF;
1558: l_return_status := Validate_Record(l_asdv_rec);
1559: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1560: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1561: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1562: RAISE OKC_API.G_EXCEPTION_ERROR;
1563: END IF;
1564: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1565: EXCEPTION
1558: l_return_status := Validate_Record(l_asdv_rec);
1559: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1560: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1561: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1562: RAISE OKC_API.G_EXCEPTION_ERROR;
1563: END IF;
1564: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1565: EXCEPTION
1566: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1560: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1561: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1562: RAISE OKC_API.G_EXCEPTION_ERROR;
1563: END IF;
1564: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1565: EXCEPTION
1566: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1567: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1568: (
1562: RAISE OKC_API.G_EXCEPTION_ERROR;
1563: END IF;
1564: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1565: EXCEPTION
1566: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1567: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1568: (
1569: l_api_name,
1570: G_PKG_NAME,
1563: END IF;
1564: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1565: EXCEPTION
1566: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1567: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1568: (
1569: l_api_name,
1570: G_PKG_NAME,
1571: 'OKC_API.G_RET_STS_ERROR',
1567: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1568: (
1569: l_api_name,
1570: G_PKG_NAME,
1571: 'OKC_API.G_RET_STS_ERROR',
1572: x_msg_count,
1573: x_msg_data,
1574: '_PVT'
1575: );
1572: x_msg_count,
1573: x_msg_data,
1574: '_PVT'
1575: );
1576: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1577: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1578: (
1579: l_api_name,
1580: G_PKG_NAME,
1573: x_msg_data,
1574: '_PVT'
1575: );
1576: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1577: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1578: (
1579: l_api_name,
1580: G_PKG_NAME,
1581: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1577: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1578: (
1579: l_api_name,
1580: G_PKG_NAME,
1581: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1582: x_msg_count,
1583: x_msg_data,
1584: '_PVT'
1585: );
1583: x_msg_data,
1584: '_PVT'
1585: );
1586: WHEN OTHERS THEN
1587: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1588: (
1589: l_api_name,
1590: G_PKG_NAME,
1591: 'OTHERS',
1598: -- PL/SQL TBL validate_row for:ASDV_TBL --
1599: ------------------------------------------
1600: PROCEDURE validate_row(
1601: p_api_version IN NUMBER,
1602: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1603: x_return_status OUT NOCOPY VARCHAR2,
1604: x_msg_count OUT NOCOPY NUMBER,
1605: x_msg_data OUT NOCOPY VARCHAR2,
1606: p_asdv_tbl IN asdv_tbl_type) IS
1606: p_asdv_tbl IN asdv_tbl_type) IS
1607:
1608: l_api_version CONSTANT NUMBER := 1;
1609: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1610: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1611: i NUMBER := 0;
1612: BEGIN
1613: OKC_API.init_msg_list(p_init_msg_list);
1614: -- Make sure PL/SQL table has records in it before passing
1609: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1610: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1611: i NUMBER := 0;
1612: BEGIN
1613: OKC_API.init_msg_list(p_init_msg_list);
1614: -- Make sure PL/SQL table has records in it before passing
1615: IF (p_asdv_tbl.COUNT > 0) THEN
1616: i := p_asdv_tbl.FIRST;
1617: LOOP
1616: i := p_asdv_tbl.FIRST;
1617: LOOP
1618: validate_row (
1619: p_api_version => p_api_version,
1620: p_init_msg_list => OKC_API.G_FALSE,
1621: x_return_status => x_return_status,
1622: x_msg_count => x_msg_count,
1623: x_msg_data => x_msg_data,
1624: p_asdv_rec => p_asdv_tbl(i));
1626: i := p_asdv_tbl.NEXT(i);
1627: END LOOP;
1628: END IF;
1629: EXCEPTION
1630: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1632: (
1633: l_api_name,
1634: G_PKG_NAME,
1627: END LOOP;
1628: END IF;
1629: EXCEPTION
1630: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1632: (
1633: l_api_name,
1634: G_PKG_NAME,
1635: 'OKC_API.G_RET_STS_ERROR',
1631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1632: (
1633: l_api_name,
1634: G_PKG_NAME,
1635: 'OKC_API.G_RET_STS_ERROR',
1636: x_msg_count,
1637: x_msg_data,
1638: '_PVT'
1639: );
1636: x_msg_count,
1637: x_msg_data,
1638: '_PVT'
1639: );
1640: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1641: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1642: (
1643: l_api_name,
1644: G_PKG_NAME,
1637: x_msg_data,
1638: '_PVT'
1639: );
1640: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1641: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1642: (
1643: l_api_name,
1644: G_PKG_NAME,
1645: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1641: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1642: (
1643: l_api_name,
1644: G_PKG_NAME,
1645: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1646: x_msg_count,
1647: x_msg_data,
1648: '_PVT'
1649: );
1647: x_msg_data,
1648: '_PVT'
1649: );
1650: WHEN OTHERS THEN
1651: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1652: (
1653: l_api_name,
1654: G_PKG_NAME,
1655: 'OTHERS',
1665: -----------------------------------
1666: -- insert_row for:OKL_TXD_ASSETS_B --
1667: -----------------------------------
1668: PROCEDURE insert_row(
1669: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1670: x_return_status OUT NOCOPY VARCHAR2,
1671: x_msg_count OUT NOCOPY NUMBER,
1672: x_msg_data OUT NOCOPY VARCHAR2,
1673: p_asd_rec IN asd_rec_type,
1674: x_asd_rec OUT NOCOPY asd_rec_type) IS
1675:
1676: l_api_version CONSTANT NUMBER := 1;
1677: l_api_name CONSTANT VARCHAR2(30) := 'ASSETS_insert_row';
1678: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1679: l_asd_rec asd_rec_type := p_asd_rec;
1680: l_def_asd_rec asd_rec_type;
1681: ---------------------------------------
1682: -- Set_Attributes for:OKL_TXD_ASSETS_B --
1684: FUNCTION Set_Attributes (
1685: p_asd_rec IN asd_rec_type,
1686: x_asd_rec OUT NOCOPY asd_rec_type
1687: ) RETURN VARCHAR2 IS
1688: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1689: BEGIN
1690: x_asd_rec := p_asd_rec;
1691: RETURN(l_return_status);
1692: END Set_Attributes;
1690: x_asd_rec := p_asd_rec;
1691: RETURN(l_return_status);
1692: END Set_Attributes;
1693: BEGIN
1694: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1695: p_init_msg_list,
1696: '_PVT',
1697: x_return_status);
1698: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1694: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1695: p_init_msg_list,
1696: '_PVT',
1697: x_return_status);
1698: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_ERROR;
1702: END IF;
1695: p_init_msg_list,
1696: '_PVT',
1697: x_return_status);
1698: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_ERROR;
1702: END IF;
1703: --- Setting item attributes
1696: '_PVT',
1697: x_return_status);
1698: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_ERROR;
1702: END IF;
1703: --- Setting item attributes
1704: l_return_status := Set_Attributes(
1697: x_return_status);
1698: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1699: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1700: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1701: RAISE OKC_API.G_EXCEPTION_ERROR;
1702: END IF;
1703: --- Setting item attributes
1704: l_return_status := Set_Attributes(
1705: p_asd_rec, -- IN
1704: l_return_status := Set_Attributes(
1705: p_asd_rec, -- IN
1706: l_asd_rec); -- OUT
1707: --- If any errors happen abort API
1708: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1709: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1710: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1711: RAISE OKC_API.G_EXCEPTION_ERROR;
1712: END IF;
1705: p_asd_rec, -- IN
1706: l_asd_rec); -- OUT
1707: --- If any errors happen abort API
1708: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1709: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1710: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1711: RAISE OKC_API.G_EXCEPTION_ERROR;
1712: END IF;
1713: INSERT INTO OKL_TXD_ASSETS_B(
1706: l_asd_rec); -- OUT
1707: --- If any errors happen abort API
1708: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1709: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1710: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1711: RAISE OKC_API.G_EXCEPTION_ERROR;
1712: END IF;
1713: INSERT INTO OKL_TXD_ASSETS_B(
1714: id,
1707: --- If any errors happen abort API
1708: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1709: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1710: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1711: RAISE OKC_API.G_EXCEPTION_ERROR;
1712: END IF;
1713: INSERT INTO OKL_TXD_ASSETS_B(
1714: id,
1715: object_version_number,
1805: l_asd_rec.currency_conversion_date);
1806: -- Multi-Currency Change
1807: -- Set OUT values
1808: x_asd_rec := l_asd_rec;
1809: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1810: EXCEPTION
1811: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1812: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1813: (
1807: -- Set OUT values
1808: x_asd_rec := l_asd_rec;
1809: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1810: EXCEPTION
1811: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1812: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1813: (
1814: l_api_name,
1815: G_PKG_NAME,
1808: x_asd_rec := l_asd_rec;
1809: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1810: EXCEPTION
1811: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1812: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1813: (
1814: l_api_name,
1815: G_PKG_NAME,
1816: 'OKC_API.G_RET_STS_ERROR',
1812: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1813: (
1814: l_api_name,
1815: G_PKG_NAME,
1816: 'OKC_API.G_RET_STS_ERROR',
1817: x_msg_count,
1818: x_msg_data,
1819: '_PVT'
1820: );
1817: x_msg_count,
1818: x_msg_data,
1819: '_PVT'
1820: );
1821: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1822: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1823: (
1824: l_api_name,
1825: G_PKG_NAME,
1818: x_msg_data,
1819: '_PVT'
1820: );
1821: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1822: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1823: (
1824: l_api_name,
1825: G_PKG_NAME,
1826: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1822: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1823: (
1824: l_api_name,
1825: G_PKG_NAME,
1826: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1827: x_msg_count,
1828: x_msg_data,
1829: '_PVT'
1830: );
1828: x_msg_data,
1829: '_PVT'
1830: );
1831: WHEN OTHERS THEN
1832: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1833: (
1834: l_api_name,
1835: G_PKG_NAME,
1836: 'OTHERS',
1842: --------------------------------------
1843: -- insert_row for:OKL_TXD_ASSETS_TL --
1844: --------------------------------------
1845: PROCEDURE insert_row(
1846: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1847: x_return_status OUT NOCOPY VARCHAR2,
1848: x_msg_count OUT NOCOPY NUMBER,
1849: x_msg_data OUT NOCOPY VARCHAR2,
1850: p_okl_txd_assets_tl_rec IN okl_txd_assets_tl_rec_type,
1851: x_okl_txd_assets_tl_rec OUT NOCOPY okl_txd_assets_tl_rec_type) IS
1852:
1853: l_api_version CONSTANT NUMBER := 1;
1854: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1855: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1856: l_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type := p_okl_txd_assets_tl_rec;
1857: l_def_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type;
1858: CURSOR get_languages IS
1859: SELECT *
1865: FUNCTION Set_Attributes (
1866: p_okl_txd_assets_tl_rec IN okl_txd_assets_tl_rec_type,
1867: x_okl_txd_assets_tl_rec OUT NOCOPY okl_txd_assets_tl_rec_type
1868: ) RETURN VARCHAR2 IS
1869: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1870: BEGIN
1871: x_okl_txd_assets_tl_rec := p_okl_txd_assets_tl_rec;
1872: x_okl_txd_assets_tl_rec.LANGUAGE := USERENV('LANG');
1873: x_okl_txd_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
1873: x_okl_txd_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
1874: RETURN(l_return_status);
1875: END Set_Attributes;
1876: BEGIN
1877: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1878: p_init_msg_list,
1879: '_PVT',
1880: x_return_status);
1881: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1877: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1878: p_init_msg_list,
1879: '_PVT',
1880: x_return_status);
1881: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1884: RAISE OKC_API.G_EXCEPTION_ERROR;
1885: END IF;
1878: p_init_msg_list,
1879: '_PVT',
1880: x_return_status);
1881: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1884: RAISE OKC_API.G_EXCEPTION_ERROR;
1885: END IF;
1886: --- Setting item attributes
1879: '_PVT',
1880: x_return_status);
1881: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1884: RAISE OKC_API.G_EXCEPTION_ERROR;
1885: END IF;
1886: --- Setting item attributes
1887: l_return_status := Set_Attributes(
1880: x_return_status);
1881: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1884: RAISE OKC_API.G_EXCEPTION_ERROR;
1885: END IF;
1886: --- Setting item attributes
1887: l_return_status := Set_Attributes(
1888: p_okl_txd_assets_tl_rec, -- IN
1887: l_return_status := Set_Attributes(
1888: p_okl_txd_assets_tl_rec, -- IN
1889: l_okl_txd_assets_tl_rec); -- OUT
1890: --- If any errors happen abort API
1891: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1892: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1893: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_ERROR;
1895: END IF;
1888: p_okl_txd_assets_tl_rec, -- IN
1889: l_okl_txd_assets_tl_rec); -- OUT
1890: --- If any errors happen abort API
1891: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1892: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1893: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_ERROR;
1895: END IF;
1896: FOR l_lang_rec IN get_languages LOOP
1889: l_okl_txd_assets_tl_rec); -- OUT
1890: --- If any errors happen abort API
1891: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1892: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1893: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_ERROR;
1895: END IF;
1896: FOR l_lang_rec IN get_languages LOOP
1897: l_okl_txd_assets_tl_rec.language := l_lang_rec.language_code;
1890: --- If any errors happen abort API
1891: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1892: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1893: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_ERROR;
1895: END IF;
1896: FOR l_lang_rec IN get_languages LOOP
1897: l_okl_txd_assets_tl_rec.language := l_lang_rec.language_code;
1898: INSERT INTO OKL_TXD_ASSETS_TL(
1919: l_okl_txd_assets_tl_rec.last_update_login);
1920: END LOOP;
1921: -- Set OUT values
1922: x_okl_txd_assets_tl_rec := l_okl_txd_assets_tl_rec;
1923: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1924: EXCEPTION
1925: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1926: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1927: (
1921: -- Set OUT values
1922: x_okl_txd_assets_tl_rec := l_okl_txd_assets_tl_rec;
1923: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1924: EXCEPTION
1925: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1926: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1927: (
1928: l_api_name,
1929: G_PKG_NAME,
1922: x_okl_txd_assets_tl_rec := l_okl_txd_assets_tl_rec;
1923: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1924: EXCEPTION
1925: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1926: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1927: (
1928: l_api_name,
1929: G_PKG_NAME,
1930: 'OKC_API.G_RET_STS_ERROR',
1926: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1927: (
1928: l_api_name,
1929: G_PKG_NAME,
1930: 'OKC_API.G_RET_STS_ERROR',
1931: x_msg_count,
1932: x_msg_data,
1933: '_PVT'
1934: );
1931: x_msg_count,
1932: x_msg_data,
1933: '_PVT'
1934: );
1935: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1936: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1937: (
1938: l_api_name,
1939: G_PKG_NAME,
1932: x_msg_data,
1933: '_PVT'
1934: );
1935: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1936: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1937: (
1938: l_api_name,
1939: G_PKG_NAME,
1940: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1936: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1937: (
1938: l_api_name,
1939: G_PKG_NAME,
1940: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1941: x_msg_count,
1942: x_msg_data,
1943: '_PVT'
1944: );
1942: x_msg_data,
1943: '_PVT'
1944: );
1945: WHEN OTHERS THEN
1946: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1947: (
1948: l_api_name,
1949: G_PKG_NAME,
1950: 'OTHERS',
1957: -- insert_row for:OKL_TXD_ASSETS_V --
1958: -------------------------------------
1959: PROCEDURE insert_row(
1960: p_api_version IN NUMBER,
1961: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1962: x_return_status OUT NOCOPY VARCHAR2,
1963: x_msg_count OUT NOCOPY NUMBER,
1964: x_msg_data OUT NOCOPY VARCHAR2,
1965: p_asdv_rec IN asdv_rec_type,
1966: x_asdv_rec OUT NOCOPY asdv_rec_type) IS
1967:
1968: l_api_version CONSTANT NUMBER := 1;
1969: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1970: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1971: l_asdv_rec asdv_rec_type;
1972: l_def_asdv_rec asdv_rec_type;
1973: l_asd_rec asd_rec_type;
1974: lx_asd_rec asd_rec_type;
1996: FUNCTION Set_Attributes (
1997: p_asdv_rec IN asdv_rec_type,
1998: x_asdv_rec OUT NOCOPY asdv_rec_type
1999: ) RETURN VARCHAR2 IS
2000: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2001: BEGIN
2002: x_asdv_rec := p_asdv_rec;
2003: x_asdv_rec.OBJECT_VERSION_NUMBER := 1;
2004: x_asdv_rec.SFWT_FLAG := 'N';
2004: x_asdv_rec.SFWT_FLAG := 'N';
2005: RETURN(l_return_status);
2006: END Set_Attributes;
2007: BEGIN
2008: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2009: G_PKG_NAME,
2010: p_init_msg_list,
2011: l_api_version,
2012: p_api_version,
2011: l_api_version,
2012: p_api_version,
2013: '_PVT',
2014: x_return_status);
2015: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_ERROR;
2019: END IF;
2012: p_api_version,
2013: '_PVT',
2014: x_return_status);
2015: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_ERROR;
2019: END IF;
2020: l_asdv_rec := null_out_defaults(p_asdv_rec);
2013: '_PVT',
2014: x_return_status);
2015: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_ERROR;
2019: END IF;
2020: l_asdv_rec := null_out_defaults(p_asdv_rec);
2021: -- Set primary key value
2014: x_return_status);
2015: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_ERROR;
2019: END IF;
2020: l_asdv_rec := null_out_defaults(p_asdv_rec);
2021: -- Set primary key value
2022: l_asdv_rec.ID := get_seq_id;
2024: l_return_status := Set_Attributes(
2025: l_asdv_rec, -- IN
2026: l_def_asdv_rec); -- OUT
2027: --- If any errors happen abort API
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2025: l_asdv_rec, -- IN
2026: l_def_asdv_rec); -- OUT
2027: --- If any errors happen abort API
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033: l_def_asdv_rec := fill_who_columns(l_def_asdv_rec);
2026: l_def_asdv_rec); -- OUT
2027: --- If any errors happen abort API
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033: l_def_asdv_rec := fill_who_columns(l_def_asdv_rec);
2034: --- Validate all non-missing attributes (Item Level Validation)
2027: --- If any errors happen abort API
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033: l_def_asdv_rec := fill_who_columns(l_def_asdv_rec);
2034: --- Validate all non-missing attributes (Item Level Validation)
2035: l_return_status := Validate_Attributes(l_def_asdv_rec);
2033: l_def_asdv_rec := fill_who_columns(l_def_asdv_rec);
2034: --- Validate all non-missing attributes (Item Level Validation)
2035: l_return_status := Validate_Attributes(l_def_asdv_rec);
2036: --- If any errors happen abort API
2037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2040: RAISE OKC_API.G_EXCEPTION_ERROR;
2041: END IF;
2034: --- Validate all non-missing attributes (Item Level Validation)
2035: l_return_status := Validate_Attributes(l_def_asdv_rec);
2036: --- If any errors happen abort API
2037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2040: RAISE OKC_API.G_EXCEPTION_ERROR;
2041: END IF;
2042: l_return_status := Validate_Record(l_def_asdv_rec);
2035: l_return_status := Validate_Attributes(l_def_asdv_rec);
2036: --- If any errors happen abort API
2037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2040: RAISE OKC_API.G_EXCEPTION_ERROR;
2041: END IF;
2042: l_return_status := Validate_Record(l_def_asdv_rec);
2043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2036: --- If any errors happen abort API
2037: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2040: RAISE OKC_API.G_EXCEPTION_ERROR;
2041: END IF;
2042: l_return_status := Validate_Record(l_def_asdv_rec);
2043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2039: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2040: RAISE OKC_API.G_EXCEPTION_ERROR;
2041: END IF;
2042: l_return_status := Validate_Record(l_def_asdv_rec);
2043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2046: RAISE OKC_API.G_EXCEPTION_ERROR;
2047: END IF;
2040: RAISE OKC_API.G_EXCEPTION_ERROR;
2041: END IF;
2042: l_return_status := Validate_Record(l_def_asdv_rec);
2043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2046: RAISE OKC_API.G_EXCEPTION_ERROR;
2047: END IF;
2048:
2041: END IF;
2042: l_return_status := Validate_Record(l_def_asdv_rec);
2043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2046: RAISE OKC_API.G_EXCEPTION_ERROR;
2047: END IF;
2048:
2049: --
2042: l_return_status := Validate_Record(l_def_asdv_rec);
2043: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2045: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2046: RAISE OKC_API.G_EXCEPTION_ERROR;
2047: END IF;
2048:
2049: --
2050: -- Multi-Currency Change, dedey, 12/04/2002
2054: p_asdv_rec => l_def_asdv_rec,
2055: x_asdv_rec => lx_temp_asdv_rec
2056: );
2057:
2058: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2060: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2061: RAISE OKC_API.G_EXCEPTION_ERROR;
2062: END IF;
2055: x_asdv_rec => lx_temp_asdv_rec
2056: );
2057:
2058: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2060: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2061: RAISE OKC_API.G_EXCEPTION_ERROR;
2062: END IF;
2063: l_def_asdv_rec := lx_temp_asdv_rec;
2056: );
2057:
2058: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2060: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2061: RAISE OKC_API.G_EXCEPTION_ERROR;
2062: END IF;
2063: l_def_asdv_rec := lx_temp_asdv_rec;
2064:
2057:
2058: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2060: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2061: RAISE OKC_API.G_EXCEPTION_ERROR;
2062: END IF;
2063: l_def_asdv_rec := lx_temp_asdv_rec;
2064:
2065: --dbms_output.put_line('After Change: '||lx_temp_asdv_rec.currency_code);
2079: p_asdv_rec => l_def_asdv_rec,
2080: x_asdv_rec => lx_temp_asdv_rec
2081: );
2082:
2083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2086: RAISE OKC_API.G_EXCEPTION_ERROR;
2087: END IF;
2080: x_asdv_rec => lx_temp_asdv_rec
2081: );
2082:
2083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2086: RAISE OKC_API.G_EXCEPTION_ERROR;
2087: END IF;
2088: l_def_asdv_rec := lx_temp_asdv_rec;
2081: );
2082:
2083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2086: RAISE OKC_API.G_EXCEPTION_ERROR;
2087: END IF;
2088: l_def_asdv_rec := lx_temp_asdv_rec;
2089:
2082:
2083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2086: RAISE OKC_API.G_EXCEPTION_ERROR;
2087: END IF;
2088: l_def_asdv_rec := lx_temp_asdv_rec;
2089:
2090: --------------------------------------
2102: x_msg_data,
2103: l_asd_rec,
2104: lx_asd_rec
2105: );
2106: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_ERROR;
2110: END IF;
2103: l_asd_rec,
2104: lx_asd_rec
2105: );
2106: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_ERROR;
2110: END IF;
2111: migrate(lx_asd_rec, l_def_asdv_rec);
2104: lx_asd_rec
2105: );
2106: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_ERROR;
2110: END IF;
2111: migrate(lx_asd_rec, l_def_asdv_rec);
2112: insert_row(
2105: );
2106: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_ERROR;
2110: END IF;
2111: migrate(lx_asd_rec, l_def_asdv_rec);
2112: insert_row(
2113: p_init_msg_list,
2116: x_msg_data,
2117: l_okl_txd_assets_tl_rec,
2118: lx_okl_txd_assets_tl_rec
2119: );
2120: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2122: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2123: RAISE OKC_API.G_EXCEPTION_ERROR;
2124: END IF;
2117: l_okl_txd_assets_tl_rec,
2118: lx_okl_txd_assets_tl_rec
2119: );
2120: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2122: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2123: RAISE OKC_API.G_EXCEPTION_ERROR;
2124: END IF;
2125: migrate(lx_okl_txd_assets_tl_rec, l_def_asdv_rec);
2118: lx_okl_txd_assets_tl_rec
2119: );
2120: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2122: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2123: RAISE OKC_API.G_EXCEPTION_ERROR;
2124: END IF;
2125: migrate(lx_okl_txd_assets_tl_rec, l_def_asdv_rec);
2126: -- Set OUT values
2119: );
2120: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2122: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2123: RAISE OKC_API.G_EXCEPTION_ERROR;
2124: END IF;
2125: migrate(lx_okl_txd_assets_tl_rec, l_def_asdv_rec);
2126: -- Set OUT values
2127: x_asdv_rec := l_def_asdv_rec;
2124: END IF;
2125: migrate(lx_okl_txd_assets_tl_rec, l_def_asdv_rec);
2126: -- Set OUT values
2127: x_asdv_rec := l_def_asdv_rec;
2128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2129: EXCEPTION
2130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2132: (
2126: -- Set OUT values
2127: x_asdv_rec := l_def_asdv_rec;
2128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2129: EXCEPTION
2130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2127: x_asdv_rec := l_def_asdv_rec;
2128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2129: EXCEPTION
2130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2135: 'OKC_API.G_RET_STS_ERROR',
2131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2135: 'OKC_API.G_RET_STS_ERROR',
2136: x_msg_count,
2137: x_msg_data,
2138: '_PVT'
2139: );
2136: x_msg_count,
2137: x_msg_data,
2138: '_PVT'
2139: );
2140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2137: x_msg_data,
2138: '_PVT'
2139: );
2140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2146: x_msg_count,
2147: x_msg_data,
2148: '_PVT'
2149: );
2147: x_msg_data,
2148: '_PVT'
2149: );
2150: WHEN OTHERS THEN
2151: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2152: (
2153: l_api_name,
2154: G_PKG_NAME,
2155: 'OTHERS',
2162: -- PL/SQL TBL insert_row for:ASDV_TBL --
2163: ----------------------------------------
2164: PROCEDURE insert_row(
2165: p_api_version IN NUMBER,
2166: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2167: x_return_status OUT NOCOPY VARCHAR2,
2168: x_msg_count OUT NOCOPY NUMBER,
2169: x_msg_data OUT NOCOPY VARCHAR2,
2170: p_asdv_tbl IN asdv_tbl_type,
2171: x_asdv_tbl OUT NOCOPY asdv_tbl_type) IS
2172:
2173: l_api_version CONSTANT NUMBER := 1;
2174: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2176: i NUMBER := 0;
2177: BEGIN
2178: OKC_API.init_msg_list(p_init_msg_list);
2179: -- Make sure PL/SQL table has records in it before passing
2174: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2176: i NUMBER := 0;
2177: BEGIN
2178: OKC_API.init_msg_list(p_init_msg_list);
2179: -- Make sure PL/SQL table has records in it before passing
2180: IF (p_asdv_tbl.COUNT > 0) THEN
2181: i := p_asdv_tbl.FIRST;
2182: LOOP
2181: i := p_asdv_tbl.FIRST;
2182: LOOP
2183: insert_row (
2184: p_api_version => p_api_version,
2185: p_init_msg_list => OKC_API.G_FALSE,
2186: x_return_status => x_return_status,
2187: x_msg_count => x_msg_count,
2188: x_msg_data => x_msg_data,
2189: p_asdv_rec => p_asdv_tbl(i),
2192: i := p_asdv_tbl.NEXT(i);
2193: END LOOP;
2194: END IF;
2195: EXCEPTION
2196: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2197: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2198: (
2199: l_api_name,
2200: G_PKG_NAME,
2193: END LOOP;
2194: END IF;
2195: EXCEPTION
2196: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2197: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2198: (
2199: l_api_name,
2200: G_PKG_NAME,
2201: 'OKC_API.G_RET_STS_ERROR',
2197: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2198: (
2199: l_api_name,
2200: G_PKG_NAME,
2201: 'OKC_API.G_RET_STS_ERROR',
2202: x_msg_count,
2203: x_msg_data,
2204: '_PVT'
2205: );
2202: x_msg_count,
2203: x_msg_data,
2204: '_PVT'
2205: );
2206: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2207: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2208: (
2209: l_api_name,
2210: G_PKG_NAME,
2203: x_msg_data,
2204: '_PVT'
2205: );
2206: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2207: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2208: (
2209: l_api_name,
2210: G_PKG_NAME,
2211: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2207: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2208: (
2209: l_api_name,
2210: G_PKG_NAME,
2211: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2212: x_msg_count,
2213: x_msg_data,
2214: '_PVT'
2215: );
2213: x_msg_data,
2214: '_PVT'
2215: );
2216: WHEN OTHERS THEN
2217: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2218: (
2219: l_api_name,
2220: G_PKG_NAME,
2221: 'OTHERS',
2231: ---------------------------------
2232: -- lock_row for:OKL_TXD_ASSETS_B --
2233: ---------------------------------
2234: PROCEDURE lock_row(
2235: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2236: x_return_status OUT NOCOPY VARCHAR2,
2237: x_msg_count OUT NOCOPY NUMBER,
2238: x_msg_data OUT NOCOPY VARCHAR2,
2239: p_asd_rec IN asd_rec_type) IS
2252: FROM OKL_TXD_ASSETS_B
2253: WHERE ID = p_asd_rec.id;
2254: l_api_version CONSTANT NUMBER := 1;
2255: l_api_name CONSTANT VARCHAR2(30) := 'ASSETS_lock_row';
2256: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2257: l_object_version_number OKL_TXD_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
2258: lc_object_version_number OKL_TXD_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
2259: l_row_notfound BOOLEAN := FALSE;
2260: lc_row_notfound BOOLEAN := FALSE;
2258: lc_object_version_number OKL_TXD_ASSETS_B.OBJECT_VERSION_NUMBER%TYPE;
2259: l_row_notfound BOOLEAN := FALSE;
2260: lc_row_notfound BOOLEAN := FALSE;
2261: BEGIN
2262: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2263: p_init_msg_list,
2264: '_PVT',
2265: x_return_status);
2266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2262: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2263: p_init_msg_list,
2264: '_PVT',
2265: x_return_status);
2266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2269: RAISE OKC_API.G_EXCEPTION_ERROR;
2270: END IF;
2263: p_init_msg_list,
2264: '_PVT',
2265: x_return_status);
2266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2269: RAISE OKC_API.G_EXCEPTION_ERROR;
2270: END IF;
2271: BEGIN
2264: '_PVT',
2265: x_return_status);
2266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2269: RAISE OKC_API.G_EXCEPTION_ERROR;
2270: END IF;
2271: BEGIN
2272: OPEN lock_csr(p_asd_rec);
2265: x_return_status);
2266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2269: RAISE OKC_API.G_EXCEPTION_ERROR;
2270: END IF;
2271: BEGIN
2272: OPEN lock_csr(p_asd_rec);
2273: FETCH lock_csr INTO l_object_version_number;
2277: WHEN E_Resource_Busy THEN
2278: IF (lock_csr%ISOPEN) THEN
2279: CLOSE lock_csr;
2280: END IF;
2281: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2282: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2283: END;
2284:
2285: IF ( l_row_notfound ) THEN
2288: lc_row_notfound := lchk_csr%NOTFOUND;
2289: CLOSE lchk_csr;
2290: END IF;
2291: IF (lc_row_notfound) THEN
2292: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2293: RAISE OKC_API.G_EXCEPTION_ERROR;
2294: ELSIF lc_object_version_number > p_asd_rec.object_version_number THEN
2295: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2296: RAISE OKC_API.G_EXCEPTION_ERROR;
2289: CLOSE lchk_csr;
2290: END IF;
2291: IF (lc_row_notfound) THEN
2292: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2293: RAISE OKC_API.G_EXCEPTION_ERROR;
2294: ELSIF lc_object_version_number > p_asd_rec.object_version_number THEN
2295: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2296: RAISE OKC_API.G_EXCEPTION_ERROR;
2297: ELSIF lc_object_version_number <> p_asd_rec.object_version_number THEN
2291: IF (lc_row_notfound) THEN
2292: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2293: RAISE OKC_API.G_EXCEPTION_ERROR;
2294: ELSIF lc_object_version_number > p_asd_rec.object_version_number THEN
2295: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2296: RAISE OKC_API.G_EXCEPTION_ERROR;
2297: ELSIF lc_object_version_number <> p_asd_rec.object_version_number THEN
2298: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2299: RAISE OKC_API.G_EXCEPTION_ERROR;
2292: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2293: RAISE OKC_API.G_EXCEPTION_ERROR;
2294: ELSIF lc_object_version_number > p_asd_rec.object_version_number THEN
2295: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2296: RAISE OKC_API.G_EXCEPTION_ERROR;
2297: ELSIF lc_object_version_number <> p_asd_rec.object_version_number THEN
2298: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2299: RAISE OKC_API.G_EXCEPTION_ERROR;
2300: ELSIF lc_object_version_number = -1 THEN
2294: ELSIF lc_object_version_number > p_asd_rec.object_version_number THEN
2295: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2296: RAISE OKC_API.G_EXCEPTION_ERROR;
2297: ELSIF lc_object_version_number <> p_asd_rec.object_version_number THEN
2298: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2299: RAISE OKC_API.G_EXCEPTION_ERROR;
2300: ELSIF lc_object_version_number = -1 THEN
2301: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2302: RAISE OKC_API.G_EXCEPTION_ERROR;
2295: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2296: RAISE OKC_API.G_EXCEPTION_ERROR;
2297: ELSIF lc_object_version_number <> p_asd_rec.object_version_number THEN
2298: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2299: RAISE OKC_API.G_EXCEPTION_ERROR;
2300: ELSIF lc_object_version_number = -1 THEN
2301: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2302: RAISE OKC_API.G_EXCEPTION_ERROR;
2303: END IF;
2297: ELSIF lc_object_version_number <> p_asd_rec.object_version_number THEN
2298: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2299: RAISE OKC_API.G_EXCEPTION_ERROR;
2300: ELSIF lc_object_version_number = -1 THEN
2301: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2302: RAISE OKC_API.G_EXCEPTION_ERROR;
2303: END IF;
2304: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2305: EXCEPTION
2298: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2299: RAISE OKC_API.G_EXCEPTION_ERROR;
2300: ELSIF lc_object_version_number = -1 THEN
2301: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2302: RAISE OKC_API.G_EXCEPTION_ERROR;
2303: END IF;
2304: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2305: EXCEPTION
2306: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2300: ELSIF lc_object_version_number = -1 THEN
2301: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2302: RAISE OKC_API.G_EXCEPTION_ERROR;
2303: END IF;
2304: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2305: EXCEPTION
2306: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2307: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2308: (
2302: RAISE OKC_API.G_EXCEPTION_ERROR;
2303: END IF;
2304: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2305: EXCEPTION
2306: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2307: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2308: (
2309: l_api_name,
2310: G_PKG_NAME,
2303: END IF;
2304: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2305: EXCEPTION
2306: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2307: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2308: (
2309: l_api_name,
2310: G_PKG_NAME,
2311: 'OKC_API.G_RET_STS_ERROR',
2307: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2308: (
2309: l_api_name,
2310: G_PKG_NAME,
2311: 'OKC_API.G_RET_STS_ERROR',
2312: x_msg_count,
2313: x_msg_data,
2314: '_PVT'
2315: );
2312: x_msg_count,
2313: x_msg_data,
2314: '_PVT'
2315: );
2316: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2317: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2318: (
2319: l_api_name,
2320: G_PKG_NAME,
2313: x_msg_data,
2314: '_PVT'
2315: );
2316: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2317: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2318: (
2319: l_api_name,
2320: G_PKG_NAME,
2321: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2317: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2318: (
2319: l_api_name,
2320: G_PKG_NAME,
2321: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2322: x_msg_count,
2323: x_msg_data,
2324: '_PVT'
2325: );
2323: x_msg_data,
2324: '_PVT'
2325: );
2326: WHEN OTHERS THEN
2327: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2328: (
2329: l_api_name,
2330: G_PKG_NAME,
2331: 'OTHERS',
2337: ------------------------------------
2338: -- lock_row for:OKL_TXD_ASSETS_TL --
2339: ------------------------------------
2340: PROCEDURE lock_row(
2341: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2342: x_return_status OUT NOCOPY VARCHAR2,
2343: x_msg_count OUT NOCOPY NUMBER,
2344: x_msg_data OUT NOCOPY VARCHAR2,
2345: p_okl_txd_assets_tl_rec IN okl_txd_assets_tl_rec_type) IS
2353: FOR UPDATE NOWAIT;
2354:
2355: l_api_version CONSTANT NUMBER := 1;
2356: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2357: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2358: l_lock_var lock_csr%ROWTYPE;
2359: l_row_notfound BOOLEAN := FALSE;
2360: lc_row_notfound BOOLEAN := FALSE;
2361: BEGIN
2358: l_lock_var lock_csr%ROWTYPE;
2359: l_row_notfound BOOLEAN := FALSE;
2360: lc_row_notfound BOOLEAN := FALSE;
2361: BEGIN
2362: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2363: p_init_msg_list,
2364: '_PVT',
2365: x_return_status);
2366: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2362: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2363: p_init_msg_list,
2364: '_PVT',
2365: x_return_status);
2366: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2369: RAISE OKC_API.G_EXCEPTION_ERROR;
2370: END IF;
2363: p_init_msg_list,
2364: '_PVT',
2365: x_return_status);
2366: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2369: RAISE OKC_API.G_EXCEPTION_ERROR;
2370: END IF;
2371: BEGIN
2364: '_PVT',
2365: x_return_status);
2366: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2369: RAISE OKC_API.G_EXCEPTION_ERROR;
2370: END IF;
2371: BEGIN
2372: OPEN lock_csr(p_okl_txd_assets_tl_rec);
2365: x_return_status);
2366: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2369: RAISE OKC_API.G_EXCEPTION_ERROR;
2370: END IF;
2371: BEGIN
2372: OPEN lock_csr(p_okl_txd_assets_tl_rec);
2373: FETCH lock_csr INTO l_lock_var;
2377: WHEN E_Resource_Busy THEN
2378: IF (lock_csr%ISOPEN) THEN
2379: CLOSE lock_csr;
2380: END IF;
2381: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2382: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2383: END;
2384:
2385: IF ( l_row_notfound ) THEN
2382: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2383: END;
2384:
2385: IF ( l_row_notfound ) THEN
2386: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2387: RAISE OKC_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2390: EXCEPTION
2383: END;
2384:
2385: IF ( l_row_notfound ) THEN
2386: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2387: RAISE OKC_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2390: EXCEPTION
2391: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2385: IF ( l_row_notfound ) THEN
2386: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2387: RAISE OKC_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2390: EXCEPTION
2391: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2393: (
2387: RAISE OKC_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2390: EXCEPTION
2391: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2393: (
2394: l_api_name,
2395: G_PKG_NAME,
2388: END IF;
2389: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2390: EXCEPTION
2391: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2393: (
2394: l_api_name,
2395: G_PKG_NAME,
2396: 'OKC_API.G_RET_STS_ERROR',
2392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2393: (
2394: l_api_name,
2395: G_PKG_NAME,
2396: 'OKC_API.G_RET_STS_ERROR',
2397: x_msg_count,
2398: x_msg_data,
2399: '_PVT'
2400: );
2397: x_msg_count,
2398: x_msg_data,
2399: '_PVT'
2400: );
2401: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2402: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2403: (
2404: l_api_name,
2405: G_PKG_NAME,
2398: x_msg_data,
2399: '_PVT'
2400: );
2401: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2402: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2403: (
2404: l_api_name,
2405: G_PKG_NAME,
2406: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2402: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2403: (
2404: l_api_name,
2405: G_PKG_NAME,
2406: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2407: x_msg_count,
2408: x_msg_data,
2409: '_PVT'
2410: );
2408: x_msg_data,
2409: '_PVT'
2410: );
2411: WHEN OTHERS THEN
2412: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2413: (
2414: l_api_name,
2415: G_PKG_NAME,
2416: 'OTHERS',
2423: -- lock_row for:OKL_TXD_ASSETS_V --
2424: -----------------------------------
2425: PROCEDURE lock_row(
2426: p_api_version IN NUMBER,
2427: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2428: x_return_status OUT NOCOPY VARCHAR2,
2429: x_msg_count OUT NOCOPY NUMBER,
2430: x_msg_data OUT NOCOPY VARCHAR2,
2431: p_asdv_rec IN asdv_rec_type) IS
2431: p_asdv_rec IN asdv_rec_type) IS
2432:
2433: l_api_version CONSTANT NUMBER := 1;
2434: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2435: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2436: l_asd_rec asd_rec_type;
2437: l_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type;
2438: BEGIN
2439: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2435: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2436: l_asd_rec asd_rec_type;
2437: l_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type;
2438: BEGIN
2439: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2440: G_PKG_NAME,
2441: p_init_msg_list,
2442: l_api_version,
2443: p_api_version,
2442: l_api_version,
2443: p_api_version,
2444: '_PVT',
2445: x_return_status);
2446: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2448: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2449: RAISE OKC_API.G_EXCEPTION_ERROR;
2450: END IF;
2443: p_api_version,
2444: '_PVT',
2445: x_return_status);
2446: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2448: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2449: RAISE OKC_API.G_EXCEPTION_ERROR;
2450: END IF;
2451: --------------------------------------
2444: '_PVT',
2445: x_return_status);
2446: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2448: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2449: RAISE OKC_API.G_EXCEPTION_ERROR;
2450: END IF;
2451: --------------------------------------
2452: -- Move VIEW record to "Child" records
2445: x_return_status);
2446: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2448: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2449: RAISE OKC_API.G_EXCEPTION_ERROR;
2450: END IF;
2451: --------------------------------------
2452: -- Move VIEW record to "Child" records
2453: --------------------------------------
2462: x_msg_count,
2463: x_msg_data,
2464: l_asd_rec
2465: );
2466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2469: RAISE OKC_API.G_EXCEPTION_ERROR;
2470: END IF;
2463: x_msg_data,
2464: l_asd_rec
2465: );
2466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2469: RAISE OKC_API.G_EXCEPTION_ERROR;
2470: END IF;
2471: lock_row(
2464: l_asd_rec
2465: );
2466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2469: RAISE OKC_API.G_EXCEPTION_ERROR;
2470: END IF;
2471: lock_row(
2472: p_init_msg_list,
2465: );
2466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2469: RAISE OKC_API.G_EXCEPTION_ERROR;
2470: END IF;
2471: lock_row(
2472: p_init_msg_list,
2473: x_return_status,
2474: x_msg_count,
2475: x_msg_data,
2476: l_okl_txd_assets_tl_rec
2477: );
2478: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2480: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_ERROR;
2482: END IF;
2475: x_msg_data,
2476: l_okl_txd_assets_tl_rec
2477: );
2478: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2480: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_ERROR;
2482: END IF;
2483: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2476: l_okl_txd_assets_tl_rec
2477: );
2478: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2480: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_ERROR;
2482: END IF;
2483: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2484: EXCEPTION
2477: );
2478: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2480: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_ERROR;
2482: END IF;
2483: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2484: EXCEPTION
2485: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2480: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_ERROR;
2482: END IF;
2483: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2484: EXCEPTION
2485: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2486: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2487: (
2481: RAISE OKC_API.G_EXCEPTION_ERROR;
2482: END IF;
2483: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2484: EXCEPTION
2485: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2486: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2487: (
2488: l_api_name,
2489: G_PKG_NAME,
2482: END IF;
2483: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2484: EXCEPTION
2485: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2486: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2487: (
2488: l_api_name,
2489: G_PKG_NAME,
2490: 'OKC_API.G_RET_STS_ERROR',
2486: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2487: (
2488: l_api_name,
2489: G_PKG_NAME,
2490: 'OKC_API.G_RET_STS_ERROR',
2491: x_msg_count,
2492: x_msg_data,
2493: '_PVT'
2494: );
2491: x_msg_count,
2492: x_msg_data,
2493: '_PVT'
2494: );
2495: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2496: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2497: (
2498: l_api_name,
2499: G_PKG_NAME,
2492: x_msg_data,
2493: '_PVT'
2494: );
2495: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2496: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2497: (
2498: l_api_name,
2499: G_PKG_NAME,
2500: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2496: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2497: (
2498: l_api_name,
2499: G_PKG_NAME,
2500: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2501: x_msg_count,
2502: x_msg_data,
2503: '_PVT'
2504: );
2502: x_msg_data,
2503: '_PVT'
2504: );
2505: WHEN OTHERS THEN
2506: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2507: (
2508: l_api_name,
2509: G_PKG_NAME,
2510: 'OTHERS',
2517: -- PL/SQL TBL lock_row for:ASDV_TBL --
2518: --------------------------------------
2519: PROCEDURE lock_row(
2520: p_api_version IN NUMBER,
2521: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2522: x_return_status OUT NOCOPY VARCHAR2,
2523: x_msg_count OUT NOCOPY NUMBER,
2524: x_msg_data OUT NOCOPY VARCHAR2,
2525: p_asdv_tbl IN asdv_tbl_type) IS
2525: p_asdv_tbl IN asdv_tbl_type) IS
2526:
2527: l_api_version CONSTANT NUMBER := 1;
2528: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2529: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2530: i NUMBER := 0;
2531: BEGIN
2532: OKC_API.init_msg_list(p_init_msg_list);
2533: -- Make sure PL/SQL table has records in it before passing
2528: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2529: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2530: i NUMBER := 0;
2531: BEGIN
2532: OKC_API.init_msg_list(p_init_msg_list);
2533: -- Make sure PL/SQL table has records in it before passing
2534: IF (p_asdv_tbl.COUNT > 0) THEN
2535: i := p_asdv_tbl.FIRST;
2536: LOOP
2535: i := p_asdv_tbl.FIRST;
2536: LOOP
2537: lock_row (
2538: p_api_version => p_api_version,
2539: p_init_msg_list => OKC_API.G_FALSE,
2540: x_return_status => x_return_status,
2541: x_msg_count => x_msg_count,
2542: x_msg_data => x_msg_data,
2543: p_asdv_rec => p_asdv_tbl(i));
2545: i := p_asdv_tbl.NEXT(i);
2546: END LOOP;
2547: END IF;
2548: EXCEPTION
2549: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2551: (
2552: l_api_name,
2553: G_PKG_NAME,
2546: END LOOP;
2547: END IF;
2548: EXCEPTION
2549: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2551: (
2552: l_api_name,
2553: G_PKG_NAME,
2554: 'OKC_API.G_RET_STS_ERROR',
2550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2551: (
2552: l_api_name,
2553: G_PKG_NAME,
2554: 'OKC_API.G_RET_STS_ERROR',
2555: x_msg_count,
2556: x_msg_data,
2557: '_PVT'
2558: );
2555: x_msg_count,
2556: x_msg_data,
2557: '_PVT'
2558: );
2559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2560: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2561: (
2562: l_api_name,
2563: G_PKG_NAME,
2556: x_msg_data,
2557: '_PVT'
2558: );
2559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2560: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2561: (
2562: l_api_name,
2563: G_PKG_NAME,
2564: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2560: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2561: (
2562: l_api_name,
2563: G_PKG_NAME,
2564: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2565: x_msg_count,
2566: x_msg_data,
2567: '_PVT'
2568: );
2566: x_msg_data,
2567: '_PVT'
2568: );
2569: WHEN OTHERS THEN
2570: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2571: (
2572: l_api_name,
2573: G_PKG_NAME,
2574: 'OTHERS',
2584: -----------------------------------
2585: -- update_row for:OKL_TXD_ASSETS_B --
2586: -----------------------------------
2587: PROCEDURE update_row(
2588: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2589: x_return_status OUT NOCOPY VARCHAR2,
2590: x_msg_count OUT NOCOPY NUMBER,
2591: x_msg_data OUT NOCOPY VARCHAR2,
2592: p_asd_rec IN asd_rec_type,
2593: x_asd_rec OUT NOCOPY asd_rec_type) IS
2594:
2595: l_api_version CONSTANT NUMBER := 1;
2596: l_api_name CONSTANT VARCHAR2(30) := 'ASSETS_update_row';
2597: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2598: l_asd_rec asd_rec_type := p_asd_rec;
2599: l_def_asd_rec asd_rec_type;
2600: l_row_notfound BOOLEAN := TRUE;
2601: ----------------------------------
2606: x_asd_rec OUT NOCOPY asd_rec_type
2607: ) RETURN VARCHAR2 IS
2608: l_asd_rec asd_rec_type;
2609: l_row_notfound BOOLEAN := TRUE;
2610: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2611: BEGIN
2612: x_asd_rec := p_asd_rec;
2613: -- Get current database values
2614: l_asd_rec := get_rec(p_asd_rec, l_row_notfound);
2612: x_asd_rec := p_asd_rec;
2613: -- Get current database values
2614: l_asd_rec := get_rec(p_asd_rec, l_row_notfound);
2615: IF (l_row_notfound) THEN
2616: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2617: END IF;
2618: IF (x_asd_rec.id = OKC_API.G_MISS_NUM)
2619: THEN
2620: x_asd_rec.id := l_asd_rec.id;
2614: l_asd_rec := get_rec(p_asd_rec, l_row_notfound);
2615: IF (l_row_notfound) THEN
2616: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2617: END IF;
2618: IF (x_asd_rec.id = OKC_API.G_MISS_NUM)
2619: THEN
2620: x_asd_rec.id := l_asd_rec.id;
2621: END IF;
2622: IF (x_asd_rec.object_version_number = OKC_API.G_MISS_NUM)
2618: IF (x_asd_rec.id = OKC_API.G_MISS_NUM)
2619: THEN
2620: x_asd_rec.id := l_asd_rec.id;
2621: END IF;
2622: IF (x_asd_rec.object_version_number = OKC_API.G_MISS_NUM)
2623: THEN
2624: x_asd_rec.object_version_number := l_asd_rec.object_version_number;
2625: END IF;
2626: IF (x_asd_rec.tal_id = OKC_API.G_MISS_NUM)
2622: IF (x_asd_rec.object_version_number = OKC_API.G_MISS_NUM)
2623: THEN
2624: x_asd_rec.object_version_number := l_asd_rec.object_version_number;
2625: END IF;
2626: IF (x_asd_rec.tal_id = OKC_API.G_MISS_NUM)
2627: THEN
2628: x_asd_rec.tal_id := l_asd_rec.tal_id;
2629: END IF;
2630: IF (x_asd_rec.target_kle_id = OKC_API.G_MISS_NUM)
2626: IF (x_asd_rec.tal_id = OKC_API.G_MISS_NUM)
2627: THEN
2628: x_asd_rec.tal_id := l_asd_rec.tal_id;
2629: END IF;
2630: IF (x_asd_rec.target_kle_id = OKC_API.G_MISS_NUM)
2631: THEN
2632: x_asd_rec.target_kle_id := l_asd_rec.target_kle_id;
2633: END IF;
2634: IF (x_asd_rec.line_detail_number = OKC_API.G_MISS_NUM)
2630: IF (x_asd_rec.target_kle_id = OKC_API.G_MISS_NUM)
2631: THEN
2632: x_asd_rec.target_kle_id := l_asd_rec.target_kle_id;
2633: END IF;
2634: IF (x_asd_rec.line_detail_number = OKC_API.G_MISS_NUM)
2635: THEN
2636: x_asd_rec.line_detail_number := l_asd_rec.line_detail_number;
2637: END IF;
2638: IF (x_asd_rec.asset_number = OKC_API.G_MISS_CHAR)
2634: IF (x_asd_rec.line_detail_number = OKC_API.G_MISS_NUM)
2635: THEN
2636: x_asd_rec.line_detail_number := l_asd_rec.line_detail_number;
2637: END IF;
2638: IF (x_asd_rec.asset_number = OKC_API.G_MISS_CHAR)
2639: THEN
2640: x_asd_rec.asset_number := l_asd_rec.asset_number;
2641: END IF;
2642: IF (x_asd_rec.quantity = OKC_API.G_MISS_NUM)
2638: IF (x_asd_rec.asset_number = OKC_API.G_MISS_CHAR)
2639: THEN
2640: x_asd_rec.asset_number := l_asd_rec.asset_number;
2641: END IF;
2642: IF (x_asd_rec.quantity = OKC_API.G_MISS_NUM)
2643: THEN
2644: x_asd_rec.quantity := l_asd_rec.quantity;
2645: END IF;
2646: IF (x_asd_rec.cost = OKC_API.G_MISS_NUM)
2642: IF (x_asd_rec.quantity = OKC_API.G_MISS_NUM)
2643: THEN
2644: x_asd_rec.quantity := l_asd_rec.quantity;
2645: END IF;
2646: IF (x_asd_rec.cost = OKC_API.G_MISS_NUM)
2647: THEN
2648: x_asd_rec.cost := l_asd_rec.cost;
2649: END IF;
2650: IF (x_asd_rec.tax_book = OKC_API.G_MISS_CHAR)
2646: IF (x_asd_rec.cost = OKC_API.G_MISS_NUM)
2647: THEN
2648: x_asd_rec.cost := l_asd_rec.cost;
2649: END IF;
2650: IF (x_asd_rec.tax_book = OKC_API.G_MISS_CHAR)
2651: THEN
2652: x_asd_rec.tax_book := l_asd_rec.tax_book;
2653: END IF;
2654: IF (x_asd_rec.life_in_months_tax = OKC_API.G_MISS_NUM)
2650: IF (x_asd_rec.tax_book = OKC_API.G_MISS_CHAR)
2651: THEN
2652: x_asd_rec.tax_book := l_asd_rec.tax_book;
2653: END IF;
2654: IF (x_asd_rec.life_in_months_tax = OKC_API.G_MISS_NUM)
2655: THEN
2656: x_asd_rec.life_in_months_tax := l_asd_rec.life_in_months_tax;
2657: END IF;
2658: IF (x_asd_rec.deprn_method_tax = OKC_API.G_MISS_CHAR)
2654: IF (x_asd_rec.life_in_months_tax = OKC_API.G_MISS_NUM)
2655: THEN
2656: x_asd_rec.life_in_months_tax := l_asd_rec.life_in_months_tax;
2657: END IF;
2658: IF (x_asd_rec.deprn_method_tax = OKC_API.G_MISS_CHAR)
2659: THEN
2660: x_asd_rec.deprn_method_tax := l_asd_rec.deprn_method_tax;
2661: END IF;
2662: IF (x_asd_rec.deprn_rate_tax = OKC_API.G_MISS_NUM)
2658: IF (x_asd_rec.deprn_method_tax = OKC_API.G_MISS_CHAR)
2659: THEN
2660: x_asd_rec.deprn_method_tax := l_asd_rec.deprn_method_tax;
2661: END IF;
2662: IF (x_asd_rec.deprn_rate_tax = OKC_API.G_MISS_NUM)
2663: THEN
2664: x_asd_rec.deprn_rate_tax := l_asd_rec.deprn_rate_tax;
2665: END IF;
2666: IF (x_asd_rec.salvage_value = OKC_API.G_MISS_NUM)
2662: IF (x_asd_rec.deprn_rate_tax = OKC_API.G_MISS_NUM)
2663: THEN
2664: x_asd_rec.deprn_rate_tax := l_asd_rec.deprn_rate_tax;
2665: END IF;
2666: IF (x_asd_rec.salvage_value = OKC_API.G_MISS_NUM)
2667: THEN
2668: x_asd_rec.salvage_value := l_asd_rec.salvage_value;
2669: END IF;
2670:
2668: x_asd_rec.salvage_value := l_asd_rec.salvage_value;
2669: END IF;
2670:
2671: -- added new columns for split asset component
2672: IF (x_asd_rec.SPLIT_PERCENT = OKC_API.G_MISS_NUM)
2673: THEN
2674: x_asd_rec.SPLIT_PERCENT := l_asd_rec.SPLIT_PERCENT;
2675: END IF;
2676: IF (x_asd_rec.INVENTORY_ITEM_ID = OKC_API.G_MISS_NUM)
2672: IF (x_asd_rec.SPLIT_PERCENT = OKC_API.G_MISS_NUM)
2673: THEN
2674: x_asd_rec.SPLIT_PERCENT := l_asd_rec.SPLIT_PERCENT;
2675: END IF;
2676: IF (x_asd_rec.INVENTORY_ITEM_ID = OKC_API.G_MISS_NUM)
2677: THEN
2678: x_asd_rec.INVENTORY_ITEM_ID := l_asd_rec.INVENTORY_ITEM_ID;
2679: END IF;
2680: -- end of added new columns for split asset component
2678: x_asd_rec.INVENTORY_ITEM_ID := l_asd_rec.INVENTORY_ITEM_ID;
2679: END IF;
2680: -- end of added new columns for split asset component
2681:
2682: IF (x_asd_rec.attribute_category = OKC_API.G_MISS_CHAR)
2683: THEN
2684: x_asd_rec.attribute_category := l_asd_rec.attribute_category;
2685: END IF;
2686: IF (x_asd_rec.attribute1 = OKC_API.G_MISS_CHAR)
2682: IF (x_asd_rec.attribute_category = OKC_API.G_MISS_CHAR)
2683: THEN
2684: x_asd_rec.attribute_category := l_asd_rec.attribute_category;
2685: END IF;
2686: IF (x_asd_rec.attribute1 = OKC_API.G_MISS_CHAR)
2687: THEN
2688: x_asd_rec.attribute1 := l_asd_rec.attribute1;
2689: END IF;
2690: IF (x_asd_rec.attribute2 = OKC_API.G_MISS_CHAR)
2686: IF (x_asd_rec.attribute1 = OKC_API.G_MISS_CHAR)
2687: THEN
2688: x_asd_rec.attribute1 := l_asd_rec.attribute1;
2689: END IF;
2690: IF (x_asd_rec.attribute2 = OKC_API.G_MISS_CHAR)
2691: THEN
2692: x_asd_rec.attribute2 := l_asd_rec.attribute2;
2693: END IF;
2694: IF (x_asd_rec.attribute3 = OKC_API.G_MISS_CHAR)
2690: IF (x_asd_rec.attribute2 = OKC_API.G_MISS_CHAR)
2691: THEN
2692: x_asd_rec.attribute2 := l_asd_rec.attribute2;
2693: END IF;
2694: IF (x_asd_rec.attribute3 = OKC_API.G_MISS_CHAR)
2695: THEN
2696: x_asd_rec.attribute3 := l_asd_rec.attribute3;
2697: END IF;
2698: IF (x_asd_rec.attribute4 = OKC_API.G_MISS_CHAR)
2694: IF (x_asd_rec.attribute3 = OKC_API.G_MISS_CHAR)
2695: THEN
2696: x_asd_rec.attribute3 := l_asd_rec.attribute3;
2697: END IF;
2698: IF (x_asd_rec.attribute4 = OKC_API.G_MISS_CHAR)
2699: THEN
2700: x_asd_rec.attribute4 := l_asd_rec.attribute4;
2701: END IF;
2702: IF (x_asd_rec.attribute5 = OKC_API.G_MISS_CHAR)
2698: IF (x_asd_rec.attribute4 = OKC_API.G_MISS_CHAR)
2699: THEN
2700: x_asd_rec.attribute4 := l_asd_rec.attribute4;
2701: END IF;
2702: IF (x_asd_rec.attribute5 = OKC_API.G_MISS_CHAR)
2703: THEN
2704: x_asd_rec.attribute5 := l_asd_rec.attribute5;
2705: END IF;
2706: IF (x_asd_rec.attribute6 = OKC_API.G_MISS_CHAR)
2702: IF (x_asd_rec.attribute5 = OKC_API.G_MISS_CHAR)
2703: THEN
2704: x_asd_rec.attribute5 := l_asd_rec.attribute5;
2705: END IF;
2706: IF (x_asd_rec.attribute6 = OKC_API.G_MISS_CHAR)
2707: THEN
2708: x_asd_rec.attribute6 := l_asd_rec.attribute6;
2709: END IF;
2710: IF (x_asd_rec.attribute7 = OKC_API.G_MISS_CHAR)
2706: IF (x_asd_rec.attribute6 = OKC_API.G_MISS_CHAR)
2707: THEN
2708: x_asd_rec.attribute6 := l_asd_rec.attribute6;
2709: END IF;
2710: IF (x_asd_rec.attribute7 = OKC_API.G_MISS_CHAR)
2711: THEN
2712: x_asd_rec.attribute7 := l_asd_rec.attribute7;
2713: END IF;
2714: IF (x_asd_rec.attribute8 = OKC_API.G_MISS_CHAR)
2710: IF (x_asd_rec.attribute7 = OKC_API.G_MISS_CHAR)
2711: THEN
2712: x_asd_rec.attribute7 := l_asd_rec.attribute7;
2713: END IF;
2714: IF (x_asd_rec.attribute8 = OKC_API.G_MISS_CHAR)
2715: THEN
2716: x_asd_rec.attribute8 := l_asd_rec.attribute8;
2717: END IF;
2718: IF (x_asd_rec.attribute9 = OKC_API.G_MISS_CHAR)
2714: IF (x_asd_rec.attribute8 = OKC_API.G_MISS_CHAR)
2715: THEN
2716: x_asd_rec.attribute8 := l_asd_rec.attribute8;
2717: END IF;
2718: IF (x_asd_rec.attribute9 = OKC_API.G_MISS_CHAR)
2719: THEN
2720: x_asd_rec.attribute9 := l_asd_rec.attribute9;
2721: END IF;
2722: IF (x_asd_rec.attribute10 = OKC_API.G_MISS_CHAR)
2718: IF (x_asd_rec.attribute9 = OKC_API.G_MISS_CHAR)
2719: THEN
2720: x_asd_rec.attribute9 := l_asd_rec.attribute9;
2721: END IF;
2722: IF (x_asd_rec.attribute10 = OKC_API.G_MISS_CHAR)
2723: THEN
2724: x_asd_rec.attribute10 := l_asd_rec.attribute10;
2725: END IF;
2726: IF (x_asd_rec.attribute11 = OKC_API.G_MISS_CHAR)
2722: IF (x_asd_rec.attribute10 = OKC_API.G_MISS_CHAR)
2723: THEN
2724: x_asd_rec.attribute10 := l_asd_rec.attribute10;
2725: END IF;
2726: IF (x_asd_rec.attribute11 = OKC_API.G_MISS_CHAR)
2727: THEN
2728: x_asd_rec.attribute11 := l_asd_rec.attribute11;
2729: END IF;
2730: IF (x_asd_rec.attribute12 = OKC_API.G_MISS_CHAR)
2726: IF (x_asd_rec.attribute11 = OKC_API.G_MISS_CHAR)
2727: THEN
2728: x_asd_rec.attribute11 := l_asd_rec.attribute11;
2729: END IF;
2730: IF (x_asd_rec.attribute12 = OKC_API.G_MISS_CHAR)
2731: THEN
2732: x_asd_rec.attribute12 := l_asd_rec.attribute12;
2733: END IF;
2734: IF (x_asd_rec.attribute13 = OKC_API.G_MISS_CHAR)
2730: IF (x_asd_rec.attribute12 = OKC_API.G_MISS_CHAR)
2731: THEN
2732: x_asd_rec.attribute12 := l_asd_rec.attribute12;
2733: END IF;
2734: IF (x_asd_rec.attribute13 = OKC_API.G_MISS_CHAR)
2735: THEN
2736: x_asd_rec.attribute13 := l_asd_rec.attribute13;
2737: END IF;
2738: IF (x_asd_rec.attribute14 = OKC_API.G_MISS_CHAR)
2734: IF (x_asd_rec.attribute13 = OKC_API.G_MISS_CHAR)
2735: THEN
2736: x_asd_rec.attribute13 := l_asd_rec.attribute13;
2737: END IF;
2738: IF (x_asd_rec.attribute14 = OKC_API.G_MISS_CHAR)
2739: THEN
2740: x_asd_rec.attribute14 := l_asd_rec.attribute14;
2741: END IF;
2742: IF (x_asd_rec.attribute15 = OKC_API.G_MISS_CHAR)
2738: IF (x_asd_rec.attribute14 = OKC_API.G_MISS_CHAR)
2739: THEN
2740: x_asd_rec.attribute14 := l_asd_rec.attribute14;
2741: END IF;
2742: IF (x_asd_rec.attribute15 = OKC_API.G_MISS_CHAR)
2743: THEN
2744: x_asd_rec.attribute15 := l_asd_rec.attribute15;
2745: END IF;
2746: IF (x_asd_rec.created_by = OKC_API.G_MISS_NUM)
2742: IF (x_asd_rec.attribute15 = OKC_API.G_MISS_CHAR)
2743: THEN
2744: x_asd_rec.attribute15 := l_asd_rec.attribute15;
2745: END IF;
2746: IF (x_asd_rec.created_by = OKC_API.G_MISS_NUM)
2747: THEN
2748: x_asd_rec.created_by := l_asd_rec.created_by;
2749: END IF;
2750: IF (x_asd_rec.creation_date = OKC_API.G_MISS_DATE)
2746: IF (x_asd_rec.created_by = OKC_API.G_MISS_NUM)
2747: THEN
2748: x_asd_rec.created_by := l_asd_rec.created_by;
2749: END IF;
2750: IF (x_asd_rec.creation_date = OKC_API.G_MISS_DATE)
2751: THEN
2752: x_asd_rec.creation_date := l_asd_rec.creation_date;
2753: END IF;
2754: IF (x_asd_rec.last_updated_by = OKC_API.G_MISS_NUM)
2750: IF (x_asd_rec.creation_date = OKC_API.G_MISS_DATE)
2751: THEN
2752: x_asd_rec.creation_date := l_asd_rec.creation_date;
2753: END IF;
2754: IF (x_asd_rec.last_updated_by = OKC_API.G_MISS_NUM)
2755: THEN
2756: x_asd_rec.last_updated_by := l_asd_rec.last_updated_by;
2757: END IF;
2758: IF (x_asd_rec.last_update_date = OKC_API.G_MISS_DATE)
2754: IF (x_asd_rec.last_updated_by = OKC_API.G_MISS_NUM)
2755: THEN
2756: x_asd_rec.last_updated_by := l_asd_rec.last_updated_by;
2757: END IF;
2758: IF (x_asd_rec.last_update_date = OKC_API.G_MISS_DATE)
2759: THEN
2760: x_asd_rec.last_update_date := l_asd_rec.last_update_date;
2761: END IF;
2762: IF (x_asd_rec.last_update_login = OKC_API.G_MISS_NUM)
2758: IF (x_asd_rec.last_update_date = OKC_API.G_MISS_DATE)
2759: THEN
2760: x_asd_rec.last_update_date := l_asd_rec.last_update_date;
2761: END IF;
2762: IF (x_asd_rec.last_update_login = OKC_API.G_MISS_NUM)
2763: THEN
2764: x_asd_rec.last_update_login := l_asd_rec.last_update_login;
2765: END IF;
2766: -- Multi Currency Change
2763: THEN
2764: x_asd_rec.last_update_login := l_asd_rec.last_update_login;
2765: END IF;
2766: -- Multi Currency Change
2767: IF (x_asd_rec.currency_code = OKC_API.G_MISS_CHAR)
2768: THEN
2769: x_asd_rec.currency_code := l_asd_rec.currency_code;
2770: END IF;
2771: IF (x_asd_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2767: IF (x_asd_rec.currency_code = OKC_API.G_MISS_CHAR)
2768: THEN
2769: x_asd_rec.currency_code := l_asd_rec.currency_code;
2770: END IF;
2771: IF (x_asd_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2772: THEN
2773: x_asd_rec.currency_conversion_type := l_asd_rec.currency_conversion_type;
2774: END IF;
2775: IF (x_asd_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2771: IF (x_asd_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2772: THEN
2773: x_asd_rec.currency_conversion_type := l_asd_rec.currency_conversion_type;
2774: END IF;
2775: IF (x_asd_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2776: THEN
2777: x_asd_rec.currency_conversion_rate := l_asd_rec.currency_conversion_rate;
2778: END IF;
2779: IF (x_asd_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
2775: IF (x_asd_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2776: THEN
2777: x_asd_rec.currency_conversion_rate := l_asd_rec.currency_conversion_rate;
2778: END IF;
2779: IF (x_asd_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
2780: THEN
2781: x_asd_rec.currency_conversion_date := l_asd_rec.currency_conversion_date;
2782: END IF;
2783: -- Multi Currency Change
2789: FUNCTION Set_Attributes (
2790: p_asd_rec IN asd_rec_type,
2791: x_asd_rec OUT NOCOPY asd_rec_type
2792: ) RETURN VARCHAR2 IS
2793: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2794: BEGIN
2795: x_asd_rec := p_asd_rec;
2796: RETURN(l_return_status);
2797: END Set_Attributes;
2795: x_asd_rec := p_asd_rec;
2796: RETURN(l_return_status);
2797: END Set_Attributes;
2798: BEGIN
2799: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2800: p_init_msg_list,
2801: '_PVT',
2802: x_return_status);
2803: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2799: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2800: p_init_msg_list,
2801: '_PVT',
2802: x_return_status);
2803: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2806: RAISE OKC_API.G_EXCEPTION_ERROR;
2807: END IF;
2800: p_init_msg_list,
2801: '_PVT',
2802: x_return_status);
2803: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2806: RAISE OKC_API.G_EXCEPTION_ERROR;
2807: END IF;
2808: --- Setting item attributes
2801: '_PVT',
2802: x_return_status);
2803: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2806: RAISE OKC_API.G_EXCEPTION_ERROR;
2807: END IF;
2808: --- Setting item attributes
2809: l_return_status := Set_Attributes(
2802: x_return_status);
2803: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2806: RAISE OKC_API.G_EXCEPTION_ERROR;
2807: END IF;
2808: --- Setting item attributes
2809: l_return_status := Set_Attributes(
2810: p_asd_rec, -- IN
2809: l_return_status := Set_Attributes(
2810: p_asd_rec, -- IN
2811: l_asd_rec); -- OUT
2812: --- If any errors happen abort API
2813: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2810: p_asd_rec, -- IN
2811: l_asd_rec); -- OUT
2812: --- If any errors happen abort API
2813: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: l_return_status := populate_new_record(l_asd_rec, l_def_asd_rec);
2811: l_asd_rec); -- OUT
2812: --- If any errors happen abort API
2813: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: l_return_status := populate_new_record(l_asd_rec, l_def_asd_rec);
2819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2812: --- If any errors happen abort API
2813: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: l_return_status := populate_new_record(l_asd_rec, l_def_asd_rec);
2819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: l_return_status := populate_new_record(l_asd_rec, l_def_asd_rec);
2819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2822: RAISE OKC_API.G_EXCEPTION_ERROR;
2823: END IF;
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: l_return_status := populate_new_record(l_asd_rec, l_def_asd_rec);
2819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2822: RAISE OKC_API.G_EXCEPTION_ERROR;
2823: END IF;
2824: UPDATE OKL_TXD_ASSETS_B
2817: END IF;
2818: l_return_status := populate_new_record(l_asd_rec, l_def_asd_rec);
2819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2822: RAISE OKC_API.G_EXCEPTION_ERROR;
2823: END IF;
2824: UPDATE OKL_TXD_ASSETS_B
2825: SET OBJECT_VERSION_NUMBER = l_def_asd_rec.object_version_number,
2818: l_return_status := populate_new_record(l_asd_rec, l_def_asd_rec);
2819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2822: RAISE OKC_API.G_EXCEPTION_ERROR;
2823: END IF;
2824: UPDATE OKL_TXD_ASSETS_B
2825: SET OBJECT_VERSION_NUMBER = l_def_asd_rec.object_version_number,
2826: TAL_ID = l_def_asd_rec.tal_id,
2867: CURRENCY_CONVERSION_DATE = l_def_asd_rec.currency_conversion_date
2868: WHERE ID = l_def_asd_rec.id;
2869:
2870: x_asd_rec := l_def_asd_rec;
2871: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2872: EXCEPTION
2873: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2874: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2875: (
2869:
2870: x_asd_rec := l_def_asd_rec;
2871: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2872: EXCEPTION
2873: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2874: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2875: (
2876: l_api_name,
2877: G_PKG_NAME,
2870: x_asd_rec := l_def_asd_rec;
2871: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2872: EXCEPTION
2873: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2874: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2875: (
2876: l_api_name,
2877: G_PKG_NAME,
2878: 'OKC_API.G_RET_STS_ERROR',
2874: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2875: (
2876: l_api_name,
2877: G_PKG_NAME,
2878: 'OKC_API.G_RET_STS_ERROR',
2879: x_msg_count,
2880: x_msg_data,
2881: '_PVT'
2882: );
2879: x_msg_count,
2880: x_msg_data,
2881: '_PVT'
2882: );
2883: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2884: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2885: (
2886: l_api_name,
2887: G_PKG_NAME,
2880: x_msg_data,
2881: '_PVT'
2882: );
2883: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2884: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2885: (
2886: l_api_name,
2887: G_PKG_NAME,
2888: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2884: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2885: (
2886: l_api_name,
2887: G_PKG_NAME,
2888: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2889: x_msg_count,
2890: x_msg_data,
2891: '_PVT'
2892: );
2890: x_msg_data,
2891: '_PVT'
2892: );
2893: WHEN OTHERS THEN
2894: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2895: (
2896: l_api_name,
2897: G_PKG_NAME,
2898: 'OTHERS',
2904: --------------------------------------
2905: -- update_row for:OKL_TXD_ASSETS_TL --
2906: --------------------------------------
2907: PROCEDURE update_row(
2908: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2909: x_return_status OUT NOCOPY VARCHAR2,
2910: x_msg_count OUT NOCOPY NUMBER,
2911: x_msg_data OUT NOCOPY VARCHAR2,
2912: p_okl_txd_assets_tl_rec IN okl_txd_assets_tl_rec_type,
2913: x_okl_txd_assets_tl_rec OUT NOCOPY okl_txd_assets_tl_rec_type) IS
2914:
2915: l_api_version CONSTANT NUMBER := 1;
2916: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2917: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2918: l_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type := p_okl_txd_assets_tl_rec;
2919: l_def_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type;
2920: l_row_notfound BOOLEAN := TRUE;
2921: ----------------------------------
2926: x_okl_txd_assets_tl_rec OUT NOCOPY okl_txd_assets_tl_rec_type
2927: ) RETURN VARCHAR2 IS
2928: l_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type;
2929: l_row_notfound BOOLEAN := TRUE;
2930: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2931: BEGIN
2932: x_okl_txd_assets_tl_rec := p_okl_txd_assets_tl_rec;
2933: -- Get current database values
2934: l_okl_txd_assets_tl_rec := get_rec(p_okl_txd_assets_tl_rec, l_row_notfound);
2932: x_okl_txd_assets_tl_rec := p_okl_txd_assets_tl_rec;
2933: -- Get current database values
2934: l_okl_txd_assets_tl_rec := get_rec(p_okl_txd_assets_tl_rec, l_row_notfound);
2935: IF (l_row_notfound) THEN
2936: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2937: END IF;
2938: IF (x_okl_txd_assets_tl_rec.id = OKC_API.G_MISS_NUM)
2939: THEN
2940: x_okl_txd_assets_tl_rec.id := l_okl_txd_assets_tl_rec.id;
2934: l_okl_txd_assets_tl_rec := get_rec(p_okl_txd_assets_tl_rec, l_row_notfound);
2935: IF (l_row_notfound) THEN
2936: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2937: END IF;
2938: IF (x_okl_txd_assets_tl_rec.id = OKC_API.G_MISS_NUM)
2939: THEN
2940: x_okl_txd_assets_tl_rec.id := l_okl_txd_assets_tl_rec.id;
2941: END IF;
2942: IF (x_okl_txd_assets_tl_rec.language = OKC_API.G_MISS_CHAR)
2938: IF (x_okl_txd_assets_tl_rec.id = OKC_API.G_MISS_NUM)
2939: THEN
2940: x_okl_txd_assets_tl_rec.id := l_okl_txd_assets_tl_rec.id;
2941: END IF;
2942: IF (x_okl_txd_assets_tl_rec.language = OKC_API.G_MISS_CHAR)
2943: THEN
2944: x_okl_txd_assets_tl_rec.language := l_okl_txd_assets_tl_rec.language;
2945: END IF;
2946: IF (x_okl_txd_assets_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2942: IF (x_okl_txd_assets_tl_rec.language = OKC_API.G_MISS_CHAR)
2943: THEN
2944: x_okl_txd_assets_tl_rec.language := l_okl_txd_assets_tl_rec.language;
2945: END IF;
2946: IF (x_okl_txd_assets_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2947: THEN
2948: x_okl_txd_assets_tl_rec.source_lang := l_okl_txd_assets_tl_rec.source_lang;
2949: END IF;
2950: IF (x_okl_txd_assets_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2946: IF (x_okl_txd_assets_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2947: THEN
2948: x_okl_txd_assets_tl_rec.source_lang := l_okl_txd_assets_tl_rec.source_lang;
2949: END IF;
2950: IF (x_okl_txd_assets_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2951: THEN
2952: x_okl_txd_assets_tl_rec.sfwt_flag := l_okl_txd_assets_tl_rec.sfwt_flag;
2953: END IF;
2954: IF (x_okl_txd_assets_tl_rec.description = OKC_API.G_MISS_CHAR)
2950: IF (x_okl_txd_assets_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2951: THEN
2952: x_okl_txd_assets_tl_rec.sfwt_flag := l_okl_txd_assets_tl_rec.sfwt_flag;
2953: END IF;
2954: IF (x_okl_txd_assets_tl_rec.description = OKC_API.G_MISS_CHAR)
2955: THEN
2956: x_okl_txd_assets_tl_rec.description := l_okl_txd_assets_tl_rec.description;
2957: END IF;
2958: IF (x_okl_txd_assets_tl_rec.created_by = OKC_API.G_MISS_NUM)
2954: IF (x_okl_txd_assets_tl_rec.description = OKC_API.G_MISS_CHAR)
2955: THEN
2956: x_okl_txd_assets_tl_rec.description := l_okl_txd_assets_tl_rec.description;
2957: END IF;
2958: IF (x_okl_txd_assets_tl_rec.created_by = OKC_API.G_MISS_NUM)
2959: THEN
2960: x_okl_txd_assets_tl_rec.created_by := l_okl_txd_assets_tl_rec.created_by;
2961: END IF;
2962: IF (x_okl_txd_assets_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2958: IF (x_okl_txd_assets_tl_rec.created_by = OKC_API.G_MISS_NUM)
2959: THEN
2960: x_okl_txd_assets_tl_rec.created_by := l_okl_txd_assets_tl_rec.created_by;
2961: END IF;
2962: IF (x_okl_txd_assets_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2963: THEN
2964: x_okl_txd_assets_tl_rec.creation_date := l_okl_txd_assets_tl_rec.creation_date;
2965: END IF;
2966: IF (x_okl_txd_assets_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2962: IF (x_okl_txd_assets_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2963: THEN
2964: x_okl_txd_assets_tl_rec.creation_date := l_okl_txd_assets_tl_rec.creation_date;
2965: END IF;
2966: IF (x_okl_txd_assets_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2967: THEN
2968: x_okl_txd_assets_tl_rec.last_updated_by := l_okl_txd_assets_tl_rec.last_updated_by;
2969: END IF;
2970: IF (x_okl_txd_assets_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2966: IF (x_okl_txd_assets_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2967: THEN
2968: x_okl_txd_assets_tl_rec.last_updated_by := l_okl_txd_assets_tl_rec.last_updated_by;
2969: END IF;
2970: IF (x_okl_txd_assets_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2971: THEN
2972: x_okl_txd_assets_tl_rec.last_update_date := l_okl_txd_assets_tl_rec.last_update_date;
2973: END IF;
2974: IF (x_okl_txd_assets_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2970: IF (x_okl_txd_assets_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2971: THEN
2972: x_okl_txd_assets_tl_rec.last_update_date := l_okl_txd_assets_tl_rec.last_update_date;
2973: END IF;
2974: IF (x_okl_txd_assets_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2975: THEN
2976: x_okl_txd_assets_tl_rec.last_update_login := l_okl_txd_assets_tl_rec.last_update_login;
2977: END IF;
2978: /*
2976: x_okl_txd_assets_tl_rec.last_update_login := l_okl_txd_assets_tl_rec.last_update_login;
2977: END IF;
2978: /*
2979: -- Multi Currency Change
2980: IF (x_okl_txd_assets_tl_rec.currency_code = OKC_API.G_MISS_CHAR)
2981: THEN
2982: x_okl_txd_assets_tl_rec.currency_code := l_okl_txd_assets_tl_rec.currency_code;
2983: END IF;
2984: IF (x_okl_txd_assets_tl_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2980: IF (x_okl_txd_assets_tl_rec.currency_code = OKC_API.G_MISS_CHAR)
2981: THEN
2982: x_okl_txd_assets_tl_rec.currency_code := l_okl_txd_assets_tl_rec.currency_code;
2983: END IF;
2984: IF (x_okl_txd_assets_tl_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2985: THEN
2986: x_okl_txd_assets_tl_rec.currency_conversion_type := l_okl_txd_assets_tl_rec.currency_conversion_type;
2987: END IF;
2988: IF (x_okl_txd_assets_tl_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2984: IF (x_okl_txd_assets_tl_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2985: THEN
2986: x_okl_txd_assets_tl_rec.currency_conversion_type := l_okl_txd_assets_tl_rec.currency_conversion_type;
2987: END IF;
2988: IF (x_okl_txd_assets_tl_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2989: THEN
2990: x_okl_txd_assets_tl_rec.currency_conversion_rate := l_okl_txd_assets_tl_rec.currency_conversion_rate;
2991: END IF;
2992: IF (x_okl_txd_assets_tl_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
2988: IF (x_okl_txd_assets_tl_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2989: THEN
2990: x_okl_txd_assets_tl_rec.currency_conversion_rate := l_okl_txd_assets_tl_rec.currency_conversion_rate;
2991: END IF;
2992: IF (x_okl_txd_assets_tl_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
2993: THEN
2994: x_okl_txd_assets_tl_rec.currency_conversion_date := l_okl_txd_assets_tl_rec.currency_conversion_date;
2995: END IF;
2996: -- Multi Currency Change
3003: FUNCTION Set_Attributes (
3004: p_okl_txd_assets_tl_rec IN okl_txd_assets_tl_rec_type,
3005: x_okl_txd_assets_tl_rec OUT NOCOPY okl_txd_assets_tl_rec_type
3006: ) RETURN VARCHAR2 IS
3007: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3008: BEGIN
3009: x_okl_txd_assets_tl_rec := p_okl_txd_assets_tl_rec;
3010: x_okl_txd_assets_tl_rec.LANGUAGE := USERENV('LANG');
3011: x_okl_txd_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
3011: x_okl_txd_assets_tl_rec.SOURCE_LANG := USERENV('LANG');
3012: RETURN(l_return_status);
3013: END Set_Attributes;
3014: BEGIN
3015: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3016: p_init_msg_list,
3017: '_PVT',
3018: x_return_status);
3019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3015: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3016: p_init_msg_list,
3017: '_PVT',
3018: x_return_status);
3019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3022: RAISE OKC_API.G_EXCEPTION_ERROR;
3023: END IF;
3016: p_init_msg_list,
3017: '_PVT',
3018: x_return_status);
3019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3022: RAISE OKC_API.G_EXCEPTION_ERROR;
3023: END IF;
3024: --- Setting item attributes
3017: '_PVT',
3018: x_return_status);
3019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3022: RAISE OKC_API.G_EXCEPTION_ERROR;
3023: END IF;
3024: --- Setting item attributes
3025: l_return_status := Set_Attributes(
3018: x_return_status);
3019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3022: RAISE OKC_API.G_EXCEPTION_ERROR;
3023: END IF;
3024: --- Setting item attributes
3025: l_return_status := Set_Attributes(
3026: p_okl_txd_assets_tl_rec, -- IN
3025: l_return_status := Set_Attributes(
3026: p_okl_txd_assets_tl_rec, -- IN
3027: l_okl_txd_assets_tl_rec); -- OUT
3028: --- If any errors happen abort API
3029: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3031: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3032: RAISE OKC_API.G_EXCEPTION_ERROR;
3033: END IF;
3026: p_okl_txd_assets_tl_rec, -- IN
3027: l_okl_txd_assets_tl_rec); -- OUT
3028: --- If any errors happen abort API
3029: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3031: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3032: RAISE OKC_API.G_EXCEPTION_ERROR;
3033: END IF;
3034: l_return_status := populate_new_record(l_okl_txd_assets_tl_rec, l_def_okl_txd_assets_tl_rec);
3027: l_okl_txd_assets_tl_rec); -- OUT
3028: --- If any errors happen abort API
3029: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3031: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3032: RAISE OKC_API.G_EXCEPTION_ERROR;
3033: END IF;
3034: l_return_status := populate_new_record(l_okl_txd_assets_tl_rec, l_def_okl_txd_assets_tl_rec);
3035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3028: --- If any errors happen abort API
3029: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3031: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3032: RAISE OKC_API.G_EXCEPTION_ERROR;
3033: END IF;
3034: l_return_status := populate_new_record(l_okl_txd_assets_tl_rec, l_def_okl_txd_assets_tl_rec);
3035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3031: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3032: RAISE OKC_API.G_EXCEPTION_ERROR;
3033: END IF;
3034: l_return_status := populate_new_record(l_okl_txd_assets_tl_rec, l_def_okl_txd_assets_tl_rec);
3035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_ERROR;
3039: END IF;
3032: RAISE OKC_API.G_EXCEPTION_ERROR;
3033: END IF;
3034: l_return_status := populate_new_record(l_okl_txd_assets_tl_rec, l_def_okl_txd_assets_tl_rec);
3035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_ERROR;
3039: END IF;
3040: UPDATE OKL_TXD_ASSETS_TL
3033: END IF;
3034: l_return_status := populate_new_record(l_okl_txd_assets_tl_rec, l_def_okl_txd_assets_tl_rec);
3035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_ERROR;
3039: END IF;
3040: UPDATE OKL_TXD_ASSETS_TL
3041: SET DESCRIPTION = l_def_okl_txd_assets_tl_rec.description,
3034: l_return_status := populate_new_record(l_okl_txd_assets_tl_rec, l_def_okl_txd_assets_tl_rec);
3035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_ERROR;
3039: END IF;
3040: UPDATE OKL_TXD_ASSETS_TL
3041: SET DESCRIPTION = l_def_okl_txd_assets_tl_rec.description,
3042: --Bug# 3641933 :
3056: WHERE ID = l_def_okl_txd_assets_tl_rec.id
3057: AND SOURCE_LANG <> USERENV('LANG');
3058:
3059: x_okl_txd_assets_tl_rec := l_def_okl_txd_assets_tl_rec;
3060: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3061: EXCEPTION
3062: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3063: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3064: (
3058:
3059: x_okl_txd_assets_tl_rec := l_def_okl_txd_assets_tl_rec;
3060: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3061: EXCEPTION
3062: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3063: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3064: (
3065: l_api_name,
3066: G_PKG_NAME,
3059: x_okl_txd_assets_tl_rec := l_def_okl_txd_assets_tl_rec;
3060: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3061: EXCEPTION
3062: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3063: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3064: (
3065: l_api_name,
3066: G_PKG_NAME,
3067: 'OKC_API.G_RET_STS_ERROR',
3063: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3064: (
3065: l_api_name,
3066: G_PKG_NAME,
3067: 'OKC_API.G_RET_STS_ERROR',
3068: x_msg_count,
3069: x_msg_data,
3070: '_PVT'
3071: );
3068: x_msg_count,
3069: x_msg_data,
3070: '_PVT'
3071: );
3072: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3073: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3074: (
3075: l_api_name,
3076: G_PKG_NAME,
3069: x_msg_data,
3070: '_PVT'
3071: );
3072: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3073: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3074: (
3075: l_api_name,
3076: G_PKG_NAME,
3077: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3073: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3074: (
3075: l_api_name,
3076: G_PKG_NAME,
3077: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3078: x_msg_count,
3079: x_msg_data,
3080: '_PVT'
3081: );
3079: x_msg_data,
3080: '_PVT'
3081: );
3082: WHEN OTHERS THEN
3083: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3084: (
3085: l_api_name,
3086: G_PKG_NAME,
3087: 'OTHERS',
3094: -- update_row for:OKL_TXD_ASSETS_V --
3095: -------------------------------------
3096: PROCEDURE update_row(
3097: p_api_version IN NUMBER,
3098: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3099: x_return_status OUT NOCOPY VARCHAR2,
3100: x_msg_count OUT NOCOPY NUMBER,
3101: x_msg_data OUT NOCOPY VARCHAR2,
3102: p_asdv_rec IN asdv_rec_type,
3103: x_asdv_rec OUT NOCOPY asdv_rec_type) IS
3104:
3105: l_api_version CONSTANT NUMBER := 1;
3106: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3107: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3108: l_asdv_rec asdv_rec_type := p_asdv_rec;
3109: l_def_asdv_rec asdv_rec_type;
3110: l_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type;
3111: lx_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type;
3133: x_asdv_rec OUT NOCOPY asdv_rec_type
3134: ) RETURN VARCHAR2 IS
3135: l_asdv_rec asdv_rec_type;
3136: l_row_notfound BOOLEAN := TRUE;
3137: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3138: BEGIN
3139: x_asdv_rec := p_asdv_rec;
3140: -- Get current database values
3141: l_asdv_rec := get_rec(p_asdv_rec, l_row_notfound);
3139: x_asdv_rec := p_asdv_rec;
3140: -- Get current database values
3141: l_asdv_rec := get_rec(p_asdv_rec, l_row_notfound);
3142: IF (l_row_notfound) THEN
3143: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3144: END IF;
3145: IF (x_asdv_rec.id = OKC_API.G_MISS_NUM)
3146: THEN
3147: x_asdv_rec.id := l_asdv_rec.id;
3141: l_asdv_rec := get_rec(p_asdv_rec, l_row_notfound);
3142: IF (l_row_notfound) THEN
3143: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3144: END IF;
3145: IF (x_asdv_rec.id = OKC_API.G_MISS_NUM)
3146: THEN
3147: x_asdv_rec.id := l_asdv_rec.id;
3148: END IF;
3149: IF (x_asdv_rec.object_version_number = OKC_API.G_MISS_NUM)
3145: IF (x_asdv_rec.id = OKC_API.G_MISS_NUM)
3146: THEN
3147: x_asdv_rec.id := l_asdv_rec.id;
3148: END IF;
3149: IF (x_asdv_rec.object_version_number = OKC_API.G_MISS_NUM)
3150: THEN
3151: x_asdv_rec.object_version_number := l_asdv_rec.object_version_number;
3152: END IF;
3153: IF (x_asdv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3149: IF (x_asdv_rec.object_version_number = OKC_API.G_MISS_NUM)
3150: THEN
3151: x_asdv_rec.object_version_number := l_asdv_rec.object_version_number;
3152: END IF;
3153: IF (x_asdv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3154: THEN
3155: x_asdv_rec.sfwt_flag := l_asdv_rec.sfwt_flag;
3156: END IF;
3157: IF (x_asdv_rec.tal_id = OKC_API.G_MISS_NUM)
3153: IF (x_asdv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3154: THEN
3155: x_asdv_rec.sfwt_flag := l_asdv_rec.sfwt_flag;
3156: END IF;
3157: IF (x_asdv_rec.tal_id = OKC_API.G_MISS_NUM)
3158: THEN
3159: x_asdv_rec.tal_id := l_asdv_rec.tal_id;
3160: END IF;
3161: IF (x_asdv_rec.target_kle_id = OKC_API.G_MISS_NUM)
3157: IF (x_asdv_rec.tal_id = OKC_API.G_MISS_NUM)
3158: THEN
3159: x_asdv_rec.tal_id := l_asdv_rec.tal_id;
3160: END IF;
3161: IF (x_asdv_rec.target_kle_id = OKC_API.G_MISS_NUM)
3162: THEN
3163: x_asdv_rec.target_kle_id := l_asdv_rec.target_kle_id;
3164: END IF;
3165: IF (x_asdv_rec.line_detail_number = OKC_API.G_MISS_NUM)
3161: IF (x_asdv_rec.target_kle_id = OKC_API.G_MISS_NUM)
3162: THEN
3163: x_asdv_rec.target_kle_id := l_asdv_rec.target_kle_id;
3164: END IF;
3165: IF (x_asdv_rec.line_detail_number = OKC_API.G_MISS_NUM)
3166: THEN
3167: x_asdv_rec.line_detail_number := l_asdv_rec.line_detail_number;
3168: END IF;
3169: IF (x_asdv_rec.asset_number = OKC_API.G_MISS_CHAR)
3165: IF (x_asdv_rec.line_detail_number = OKC_API.G_MISS_NUM)
3166: THEN
3167: x_asdv_rec.line_detail_number := l_asdv_rec.line_detail_number;
3168: END IF;
3169: IF (x_asdv_rec.asset_number = OKC_API.G_MISS_CHAR)
3170: THEN
3171: x_asdv_rec.asset_number := l_asdv_rec.asset_number;
3172: END IF;
3173: IF (x_asdv_rec.description = OKC_API.G_MISS_CHAR)
3169: IF (x_asdv_rec.asset_number = OKC_API.G_MISS_CHAR)
3170: THEN
3171: x_asdv_rec.asset_number := l_asdv_rec.asset_number;
3172: END IF;
3173: IF (x_asdv_rec.description = OKC_API.G_MISS_CHAR)
3174: THEN
3175: x_asdv_rec.description := l_asdv_rec.description;
3176: END IF;
3177: IF (x_asdv_rec.quantity = OKC_API.G_MISS_NUM)
3173: IF (x_asdv_rec.description = OKC_API.G_MISS_CHAR)
3174: THEN
3175: x_asdv_rec.description := l_asdv_rec.description;
3176: END IF;
3177: IF (x_asdv_rec.quantity = OKC_API.G_MISS_NUM)
3178: THEN
3179: x_asdv_rec.quantity := l_asdv_rec.quantity;
3180: END IF;
3181: IF (x_asdv_rec.cost = OKC_API.G_MISS_NUM)
3177: IF (x_asdv_rec.quantity = OKC_API.G_MISS_NUM)
3178: THEN
3179: x_asdv_rec.quantity := l_asdv_rec.quantity;
3180: END IF;
3181: IF (x_asdv_rec.cost = OKC_API.G_MISS_NUM)
3182: THEN
3183: x_asdv_rec.cost := l_asdv_rec.cost;
3184: END IF;
3185: IF (x_asdv_rec.tax_book = OKC_API.G_MISS_CHAR)
3181: IF (x_asdv_rec.cost = OKC_API.G_MISS_NUM)
3182: THEN
3183: x_asdv_rec.cost := l_asdv_rec.cost;
3184: END IF;
3185: IF (x_asdv_rec.tax_book = OKC_API.G_MISS_CHAR)
3186: THEN
3187: x_asdv_rec.tax_book := l_asdv_rec.tax_book;
3188: END IF;
3189: IF (x_asdv_rec.life_in_months_tax = OKC_API.G_MISS_NUM)
3185: IF (x_asdv_rec.tax_book = OKC_API.G_MISS_CHAR)
3186: THEN
3187: x_asdv_rec.tax_book := l_asdv_rec.tax_book;
3188: END IF;
3189: IF (x_asdv_rec.life_in_months_tax = OKC_API.G_MISS_NUM)
3190: THEN
3191: x_asdv_rec.life_in_months_tax := l_asdv_rec.life_in_months_tax;
3192: END IF;
3193: IF (x_asdv_rec.deprn_method_tax = OKC_API.G_MISS_CHAR)
3189: IF (x_asdv_rec.life_in_months_tax = OKC_API.G_MISS_NUM)
3190: THEN
3191: x_asdv_rec.life_in_months_tax := l_asdv_rec.life_in_months_tax;
3192: END IF;
3193: IF (x_asdv_rec.deprn_method_tax = OKC_API.G_MISS_CHAR)
3194: THEN
3195: x_asdv_rec.deprn_method_tax := l_asdv_rec.deprn_method_tax;
3196: END IF;
3197: IF (x_asdv_rec.deprn_rate_tax = OKC_API.G_MISS_NUM)
3193: IF (x_asdv_rec.deprn_method_tax = OKC_API.G_MISS_CHAR)
3194: THEN
3195: x_asdv_rec.deprn_method_tax := l_asdv_rec.deprn_method_tax;
3196: END IF;
3197: IF (x_asdv_rec.deprn_rate_tax = OKC_API.G_MISS_NUM)
3198: THEN
3199: x_asdv_rec.deprn_rate_tax := l_asdv_rec.deprn_rate_tax;
3200: END IF;
3201: IF (x_asdv_rec.salvage_value = OKC_API.G_MISS_NUM)
3197: IF (x_asdv_rec.deprn_rate_tax = OKC_API.G_MISS_NUM)
3198: THEN
3199: x_asdv_rec.deprn_rate_tax := l_asdv_rec.deprn_rate_tax;
3200: END IF;
3201: IF (x_asdv_rec.salvage_value = OKC_API.G_MISS_NUM)
3202: THEN
3203: x_asdv_rec.salvage_value := l_asdv_rec.salvage_value;
3204: END IF;
3205:
3203: x_asdv_rec.salvage_value := l_asdv_rec.salvage_value;
3204: END IF;
3205:
3206: -- added new columns for split asset component
3207: IF (x_asdv_rec.SPLIT_PERCENT = OKC_API.G_MISS_NUM)
3208: THEN
3209: x_asdv_rec.SPLIT_PERCENT := l_asdv_rec.SPLIT_PERCENT;
3210: END IF;
3211: IF (x_asdv_rec.INVENTORY_ITEM_ID = OKC_API.G_MISS_NUM)
3207: IF (x_asdv_rec.SPLIT_PERCENT = OKC_API.G_MISS_NUM)
3208: THEN
3209: x_asdv_rec.SPLIT_PERCENT := l_asdv_rec.SPLIT_PERCENT;
3210: END IF;
3211: IF (x_asdv_rec.INVENTORY_ITEM_ID = OKC_API.G_MISS_NUM)
3212: THEN
3213: x_asdv_rec.INVENTORY_ITEM_ID := l_asdv_rec.INVENTORY_ITEM_ID;
3214: END IF;
3215: -- end of added new columns for split asset component
3213: x_asdv_rec.INVENTORY_ITEM_ID := l_asdv_rec.INVENTORY_ITEM_ID;
3214: END IF;
3215: -- end of added new columns for split asset component
3216:
3217: IF (x_asdv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3218: THEN
3219: x_asdv_rec.attribute_category := l_asdv_rec.attribute_category;
3220: END IF;
3221: IF (x_asdv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3217: IF (x_asdv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3218: THEN
3219: x_asdv_rec.attribute_category := l_asdv_rec.attribute_category;
3220: END IF;
3221: IF (x_asdv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3222: THEN
3223: x_asdv_rec.attribute1 := l_asdv_rec.attribute1;
3224: END IF;
3225: IF (x_asdv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3221: IF (x_asdv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3222: THEN
3223: x_asdv_rec.attribute1 := l_asdv_rec.attribute1;
3224: END IF;
3225: IF (x_asdv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3226: THEN
3227: x_asdv_rec.attribute2 := l_asdv_rec.attribute2;
3228: END IF;
3229: IF (x_asdv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3225: IF (x_asdv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3226: THEN
3227: x_asdv_rec.attribute2 := l_asdv_rec.attribute2;
3228: END IF;
3229: IF (x_asdv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3230: THEN
3231: x_asdv_rec.attribute3 := l_asdv_rec.attribute3;
3232: END IF;
3233: IF (x_asdv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3229: IF (x_asdv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3230: THEN
3231: x_asdv_rec.attribute3 := l_asdv_rec.attribute3;
3232: END IF;
3233: IF (x_asdv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3234: THEN
3235: x_asdv_rec.attribute4 := l_asdv_rec.attribute4;
3236: END IF;
3237: IF (x_asdv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3233: IF (x_asdv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3234: THEN
3235: x_asdv_rec.attribute4 := l_asdv_rec.attribute4;
3236: END IF;
3237: IF (x_asdv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3238: THEN
3239: x_asdv_rec.attribute5 := l_asdv_rec.attribute5;
3240: END IF;
3241: IF (x_asdv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3237: IF (x_asdv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3238: THEN
3239: x_asdv_rec.attribute5 := l_asdv_rec.attribute5;
3240: END IF;
3241: IF (x_asdv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3242: THEN
3243: x_asdv_rec.attribute6 := l_asdv_rec.attribute6;
3244: END IF;
3245: IF (x_asdv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3241: IF (x_asdv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3242: THEN
3243: x_asdv_rec.attribute6 := l_asdv_rec.attribute6;
3244: END IF;
3245: IF (x_asdv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3246: THEN
3247: x_asdv_rec.attribute7 := l_asdv_rec.attribute7;
3248: END IF;
3249: IF (x_asdv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3245: IF (x_asdv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3246: THEN
3247: x_asdv_rec.attribute7 := l_asdv_rec.attribute7;
3248: END IF;
3249: IF (x_asdv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3250: THEN
3251: x_asdv_rec.attribute8 := l_asdv_rec.attribute8;
3252: END IF;
3253: IF (x_asdv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3249: IF (x_asdv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3250: THEN
3251: x_asdv_rec.attribute8 := l_asdv_rec.attribute8;
3252: END IF;
3253: IF (x_asdv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3254: THEN
3255: x_asdv_rec.attribute9 := l_asdv_rec.attribute9;
3256: END IF;
3257: IF (x_asdv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3253: IF (x_asdv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3254: THEN
3255: x_asdv_rec.attribute9 := l_asdv_rec.attribute9;
3256: END IF;
3257: IF (x_asdv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3258: THEN
3259: x_asdv_rec.attribute10 := l_asdv_rec.attribute10;
3260: END IF;
3261: IF (x_asdv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3257: IF (x_asdv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3258: THEN
3259: x_asdv_rec.attribute10 := l_asdv_rec.attribute10;
3260: END IF;
3261: IF (x_asdv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3262: THEN
3263: x_asdv_rec.attribute11 := l_asdv_rec.attribute11;
3264: END IF;
3265: IF (x_asdv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3261: IF (x_asdv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3262: THEN
3263: x_asdv_rec.attribute11 := l_asdv_rec.attribute11;
3264: END IF;
3265: IF (x_asdv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3266: THEN
3267: x_asdv_rec.attribute12 := l_asdv_rec.attribute12;
3268: END IF;
3269: IF (x_asdv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3265: IF (x_asdv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3266: THEN
3267: x_asdv_rec.attribute12 := l_asdv_rec.attribute12;
3268: END IF;
3269: IF (x_asdv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3270: THEN
3271: x_asdv_rec.attribute13 := l_asdv_rec.attribute13;
3272: END IF;
3273: IF (x_asdv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3269: IF (x_asdv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3270: THEN
3271: x_asdv_rec.attribute13 := l_asdv_rec.attribute13;
3272: END IF;
3273: IF (x_asdv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3274: THEN
3275: x_asdv_rec.attribute14 := l_asdv_rec.attribute14;
3276: END IF;
3277: IF (x_asdv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3273: IF (x_asdv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3274: THEN
3275: x_asdv_rec.attribute14 := l_asdv_rec.attribute14;
3276: END IF;
3277: IF (x_asdv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3278: THEN
3279: x_asdv_rec.attribute15 := l_asdv_rec.attribute15;
3280: END IF;
3281: IF (x_asdv_rec.created_by = OKC_API.G_MISS_NUM)
3277: IF (x_asdv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3278: THEN
3279: x_asdv_rec.attribute15 := l_asdv_rec.attribute15;
3280: END IF;
3281: IF (x_asdv_rec.created_by = OKC_API.G_MISS_NUM)
3282: THEN
3283: x_asdv_rec.created_by := l_asdv_rec.created_by;
3284: END IF;
3285: IF (x_asdv_rec.creation_date = OKC_API.G_MISS_DATE)
3281: IF (x_asdv_rec.created_by = OKC_API.G_MISS_NUM)
3282: THEN
3283: x_asdv_rec.created_by := l_asdv_rec.created_by;
3284: END IF;
3285: IF (x_asdv_rec.creation_date = OKC_API.G_MISS_DATE)
3286: THEN
3287: x_asdv_rec.creation_date := l_asdv_rec.creation_date;
3288: END IF;
3289: IF (x_asdv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3285: IF (x_asdv_rec.creation_date = OKC_API.G_MISS_DATE)
3286: THEN
3287: x_asdv_rec.creation_date := l_asdv_rec.creation_date;
3288: END IF;
3289: IF (x_asdv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3290: THEN
3291: x_asdv_rec.last_updated_by := l_asdv_rec.last_updated_by;
3292: END IF;
3293: IF (x_asdv_rec.last_update_date = OKC_API.G_MISS_DATE)
3289: IF (x_asdv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3290: THEN
3291: x_asdv_rec.last_updated_by := l_asdv_rec.last_updated_by;
3292: END IF;
3293: IF (x_asdv_rec.last_update_date = OKC_API.G_MISS_DATE)
3294: THEN
3295: x_asdv_rec.last_update_date := l_asdv_rec.last_update_date;
3296: END IF;
3297: IF (x_asdv_rec.last_update_login = OKC_API.G_MISS_NUM)
3293: IF (x_asdv_rec.last_update_date = OKC_API.G_MISS_DATE)
3294: THEN
3295: x_asdv_rec.last_update_date := l_asdv_rec.last_update_date;
3296: END IF;
3297: IF (x_asdv_rec.last_update_login = OKC_API.G_MISS_NUM)
3298: THEN
3299: x_asdv_rec.last_update_login := l_asdv_rec.last_update_login;
3300: END IF;
3301: -- Multi Currency Change
3298: THEN
3299: x_asdv_rec.last_update_login := l_asdv_rec.last_update_login;
3300: END IF;
3301: -- Multi Currency Change
3302: IF (x_asdv_rec.currency_code = OKC_API.G_MISS_CHAR)
3303: THEN
3304: x_asdv_rec.currency_code := l_asdv_rec.currency_code;
3305: END IF;
3306: IF (x_asdv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
3302: IF (x_asdv_rec.currency_code = OKC_API.G_MISS_CHAR)
3303: THEN
3304: x_asdv_rec.currency_code := l_asdv_rec.currency_code;
3305: END IF;
3306: IF (x_asdv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
3307: THEN
3308: x_asdv_rec.currency_conversion_type := l_asdv_rec.currency_conversion_type;
3309: END IF;
3310: IF (x_asdv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
3306: IF (x_asdv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
3307: THEN
3308: x_asdv_rec.currency_conversion_type := l_asdv_rec.currency_conversion_type;
3309: END IF;
3310: IF (x_asdv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
3311: THEN
3312: x_asdv_rec.currency_conversion_rate := l_asdv_rec.currency_conversion_rate;
3313: END IF;
3314: IF (x_asdv_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
3310: IF (x_asdv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
3311: THEN
3312: x_asdv_rec.currency_conversion_rate := l_asdv_rec.currency_conversion_rate;
3313: END IF;
3314: IF (x_asdv_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
3315: THEN
3316: x_asdv_rec.currency_conversion_date := l_asdv_rec.currency_conversion_date;
3317: END IF;
3318: -- Multi Currency Change
3324: FUNCTION Set_Attributes (
3325: p_asdv_rec IN asdv_rec_type,
3326: x_asdv_rec OUT NOCOPY asdv_rec_type
3327: ) RETURN VARCHAR2 IS
3328: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3329: BEGIN
3330: x_asdv_rec := p_asdv_rec;
3331: x_asdv_rec.OBJECT_VERSION_NUMBER := NVL(x_asdv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3332: RETURN(l_return_status);
3331: x_asdv_rec.OBJECT_VERSION_NUMBER := NVL(x_asdv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3332: RETURN(l_return_status);
3333: END Set_Attributes;
3334: BEGIN
3335: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3336: G_PKG_NAME,
3337: p_init_msg_list,
3338: l_api_version,
3339: p_api_version,
3338: l_api_version,
3339: p_api_version,
3340: '_PVT',
3341: x_return_status);
3342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3345: RAISE OKC_API.G_EXCEPTION_ERROR;
3346: END IF;
3339: p_api_version,
3340: '_PVT',
3341: x_return_status);
3342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3345: RAISE OKC_API.G_EXCEPTION_ERROR;
3346: END IF;
3347: --- Setting item attributes
3340: '_PVT',
3341: x_return_status);
3342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3345: RAISE OKC_API.G_EXCEPTION_ERROR;
3346: END IF;
3347: --- Setting item attributes
3348: l_return_status := Set_Attributes(
3341: x_return_status);
3342: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3345: RAISE OKC_API.G_EXCEPTION_ERROR;
3346: END IF;
3347: --- Setting item attributes
3348: l_return_status := Set_Attributes(
3349: p_asdv_rec, -- IN
3348: l_return_status := Set_Attributes(
3349: p_asdv_rec, -- IN
3350: l_asdv_rec); -- OUT
3351: --- If any errors happen abort API
3352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3355: RAISE OKC_API.G_EXCEPTION_ERROR;
3356: END IF;
3349: p_asdv_rec, -- IN
3350: l_asdv_rec); -- OUT
3351: --- If any errors happen abort API
3352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3355: RAISE OKC_API.G_EXCEPTION_ERROR;
3356: END IF;
3357: l_return_status := populate_new_record(l_asdv_rec, l_def_asdv_rec);
3350: l_asdv_rec); -- OUT
3351: --- If any errors happen abort API
3352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3355: RAISE OKC_API.G_EXCEPTION_ERROR;
3356: END IF;
3357: l_return_status := populate_new_record(l_asdv_rec, l_def_asdv_rec);
3358: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3351: --- If any errors happen abort API
3352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3355: RAISE OKC_API.G_EXCEPTION_ERROR;
3356: END IF;
3357: l_return_status := populate_new_record(l_asdv_rec, l_def_asdv_rec);
3358: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3359: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3355: RAISE OKC_API.G_EXCEPTION_ERROR;
3356: END IF;
3357: l_return_status := populate_new_record(l_asdv_rec, l_def_asdv_rec);
3358: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3359: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3360: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3361: RAISE OKC_API.G_EXCEPTION_ERROR;
3362: END IF;
3355: RAISE OKC_API.G_EXCEPTION_ERROR;
3356: END IF;
3357: l_return_status := populate_new_record(l_asdv_rec, l_def_asdv_rec);
3358: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3359: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3360: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3361: RAISE OKC_API.G_EXCEPTION_ERROR;
3362: END IF;
3363: l_def_asdv_rec := fill_who_columns(l_def_asdv_rec);
3356: END IF;
3357: l_return_status := populate_new_record(l_asdv_rec, l_def_asdv_rec);
3358: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3359: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3360: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3361: RAISE OKC_API.G_EXCEPTION_ERROR;
3362: END IF;
3363: l_def_asdv_rec := fill_who_columns(l_def_asdv_rec);
3364: --- Validate all non-missing attributes (Item Level Validation)
3357: l_return_status := populate_new_record(l_asdv_rec, l_def_asdv_rec);
3358: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3359: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3360: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3361: RAISE OKC_API.G_EXCEPTION_ERROR;
3362: END IF;
3363: l_def_asdv_rec := fill_who_columns(l_def_asdv_rec);
3364: --- Validate all non-missing attributes (Item Level Validation)
3365: l_return_status := Validate_Attributes(l_def_asdv_rec);
3363: l_def_asdv_rec := fill_who_columns(l_def_asdv_rec);
3364: --- Validate all non-missing attributes (Item Level Validation)
3365: l_return_status := Validate_Attributes(l_def_asdv_rec);
3366: --- If any errors happen abort API
3367: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3370: RAISE OKC_API.G_EXCEPTION_ERROR;
3371: END IF;
3364: --- Validate all non-missing attributes (Item Level Validation)
3365: l_return_status := Validate_Attributes(l_def_asdv_rec);
3366: --- If any errors happen abort API
3367: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3370: RAISE OKC_API.G_EXCEPTION_ERROR;
3371: END IF;
3372: l_return_status := Validate_Record(l_def_asdv_rec);
3365: l_return_status := Validate_Attributes(l_def_asdv_rec);
3366: --- If any errors happen abort API
3367: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3370: RAISE OKC_API.G_EXCEPTION_ERROR;
3371: END IF;
3372: l_return_status := Validate_Record(l_def_asdv_rec);
3373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3366: --- If any errors happen abort API
3367: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3370: RAISE OKC_API.G_EXCEPTION_ERROR;
3371: END IF;
3372: l_return_status := Validate_Record(l_def_asdv_rec);
3373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3369: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3370: RAISE OKC_API.G_EXCEPTION_ERROR;
3371: END IF;
3372: l_return_status := Validate_Record(l_def_asdv_rec);
3373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3375: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3376: RAISE OKC_API.G_EXCEPTION_ERROR;
3377: END IF;
3370: RAISE OKC_API.G_EXCEPTION_ERROR;
3371: END IF;
3372: l_return_status := Validate_Record(l_def_asdv_rec);
3373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3375: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3376: RAISE OKC_API.G_EXCEPTION_ERROR;
3377: END IF;
3378:
3371: END IF;
3372: l_return_status := Validate_Record(l_def_asdv_rec);
3373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3375: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3376: RAISE OKC_API.G_EXCEPTION_ERROR;
3377: END IF;
3378:
3379: --
3372: l_return_status := Validate_Record(l_def_asdv_rec);
3373: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3374: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3375: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3376: RAISE OKC_API.G_EXCEPTION_ERROR;
3377: END IF;
3378:
3379: --
3380: -- Multi-Currency Change, dedey, 12/04/2002
3384: p_asdv_rec => l_def_asdv_rec,
3385: x_asdv_rec => lx_temp_asdv_rec
3386: );
3387:
3388: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3390: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3391: RAISE OKC_API.G_EXCEPTION_ERROR;
3392: END IF;
3385: x_asdv_rec => lx_temp_asdv_rec
3386: );
3387:
3388: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3390: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3391: RAISE OKC_API.G_EXCEPTION_ERROR;
3392: END IF;
3393: l_def_asdv_rec := lx_temp_asdv_rec;
3386: );
3387:
3388: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3390: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3391: RAISE OKC_API.G_EXCEPTION_ERROR;
3392: END IF;
3393: l_def_asdv_rec := lx_temp_asdv_rec;
3394:
3387:
3388: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3390: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3391: RAISE OKC_API.G_EXCEPTION_ERROR;
3392: END IF;
3393: l_def_asdv_rec := lx_temp_asdv_rec;
3394:
3395: --dbms_output.put_line('After Change: '||lx_temp_asdv_rec.currency_code);
3409: p_asdv_rec => l_def_asdv_rec,
3410: x_asdv_rec => lx_temp_asdv_rec
3411: );
3412:
3413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3416: RAISE OKC_API.G_EXCEPTION_ERROR;
3417: END IF;
3410: x_asdv_rec => lx_temp_asdv_rec
3411: );
3412:
3413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3416: RAISE OKC_API.G_EXCEPTION_ERROR;
3417: END IF;
3418: l_def_asdv_rec := lx_temp_asdv_rec;
3411: );
3412:
3413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3416: RAISE OKC_API.G_EXCEPTION_ERROR;
3417: END IF;
3418: l_def_asdv_rec := lx_temp_asdv_rec;
3419:
3412:
3413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3416: RAISE OKC_API.G_EXCEPTION_ERROR;
3417: END IF;
3418: l_def_asdv_rec := lx_temp_asdv_rec;
3419:
3420: --------------------------------------
3432: x_msg_data,
3433: l_okl_txd_assets_tl_rec,
3434: lx_okl_txd_assets_tl_rec
3435: );
3436: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3438: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3439: RAISE OKC_API.G_EXCEPTION_ERROR;
3440: END IF;
3433: l_okl_txd_assets_tl_rec,
3434: lx_okl_txd_assets_tl_rec
3435: );
3436: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3438: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3439: RAISE OKC_API.G_EXCEPTION_ERROR;
3440: END IF;
3441: migrate(lx_okl_txd_assets_tl_rec, l_def_asdv_rec);
3434: lx_okl_txd_assets_tl_rec
3435: );
3436: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3438: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3439: RAISE OKC_API.G_EXCEPTION_ERROR;
3440: END IF;
3441: migrate(lx_okl_txd_assets_tl_rec, l_def_asdv_rec);
3442: --------------------------------------------
3435: );
3436: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3438: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3439: RAISE OKC_API.G_EXCEPTION_ERROR;
3440: END IF;
3441: migrate(lx_okl_txd_assets_tl_rec, l_def_asdv_rec);
3442: --------------------------------------------
3443: -- Call the UPDATE_ROW for each child record
3449: x_msg_data,
3450: l_asd_rec,
3451: lx_asd_rec
3452: );
3453: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3455: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3456: RAISE OKC_API.G_EXCEPTION_ERROR;
3457: END IF;
3450: l_asd_rec,
3451: lx_asd_rec
3452: );
3453: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3455: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3456: RAISE OKC_API.G_EXCEPTION_ERROR;
3457: END IF;
3458: migrate(lx_asd_rec, l_def_asdv_rec);
3451: lx_asd_rec
3452: );
3453: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3455: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3456: RAISE OKC_API.G_EXCEPTION_ERROR;
3457: END IF;
3458: migrate(lx_asd_rec, l_def_asdv_rec);
3459: x_asdv_rec := l_def_asdv_rec;
3452: );
3453: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3455: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3456: RAISE OKC_API.G_EXCEPTION_ERROR;
3457: END IF;
3458: migrate(lx_asd_rec, l_def_asdv_rec);
3459: x_asdv_rec := l_def_asdv_rec;
3460: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3456: RAISE OKC_API.G_EXCEPTION_ERROR;
3457: END IF;
3458: migrate(lx_asd_rec, l_def_asdv_rec);
3459: x_asdv_rec := l_def_asdv_rec;
3460: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3461: EXCEPTION
3462: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3463: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3464: (
3458: migrate(lx_asd_rec, l_def_asdv_rec);
3459: x_asdv_rec := l_def_asdv_rec;
3460: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3461: EXCEPTION
3462: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3463: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3464: (
3465: l_api_name,
3466: G_PKG_NAME,
3459: x_asdv_rec := l_def_asdv_rec;
3460: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3461: EXCEPTION
3462: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3463: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3464: (
3465: l_api_name,
3466: G_PKG_NAME,
3467: 'OKC_API.G_RET_STS_ERROR',
3463: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3464: (
3465: l_api_name,
3466: G_PKG_NAME,
3467: 'OKC_API.G_RET_STS_ERROR',
3468: x_msg_count,
3469: x_msg_data,
3470: '_PVT'
3471: );
3468: x_msg_count,
3469: x_msg_data,
3470: '_PVT'
3471: );
3472: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3473: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3474: (
3475: l_api_name,
3476: G_PKG_NAME,
3469: x_msg_data,
3470: '_PVT'
3471: );
3472: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3473: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3474: (
3475: l_api_name,
3476: G_PKG_NAME,
3477: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3473: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3474: (
3475: l_api_name,
3476: G_PKG_NAME,
3477: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3478: x_msg_count,
3479: x_msg_data,
3480: '_PVT'
3481: );
3479: x_msg_data,
3480: '_PVT'
3481: );
3482: WHEN OTHERS THEN
3483: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3484: (
3485: l_api_name,
3486: G_PKG_NAME,
3487: 'OTHERS',
3494: -- PL/SQL TBL update_row for:ASDV_TBL --
3495: ----------------------------------------
3496: PROCEDURE update_row(
3497: p_api_version IN NUMBER,
3498: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3499: x_return_status OUT NOCOPY VARCHAR2,
3500: x_msg_count OUT NOCOPY NUMBER,
3501: x_msg_data OUT NOCOPY VARCHAR2,
3502: p_asdv_tbl IN asdv_tbl_type,
3503: x_asdv_tbl OUT NOCOPY asdv_tbl_type) IS
3504:
3505: l_api_version CONSTANT NUMBER := 1;
3506: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3507: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3508: i NUMBER := 0;
3509: BEGIN
3510: OKC_API.init_msg_list(p_init_msg_list);
3511: -- Make sure PL/SQL table has records in it before passing
3506: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3507: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3508: i NUMBER := 0;
3509: BEGIN
3510: OKC_API.init_msg_list(p_init_msg_list);
3511: -- Make sure PL/SQL table has records in it before passing
3512: IF (p_asdv_tbl.COUNT > 0) THEN
3513: i := p_asdv_tbl.FIRST;
3514: LOOP
3513: i := p_asdv_tbl.FIRST;
3514: LOOP
3515: update_row (
3516: p_api_version => p_api_version,
3517: p_init_msg_list => OKC_API.G_FALSE,
3518: x_return_status => x_return_status,
3519: x_msg_count => x_msg_count,
3520: x_msg_data => x_msg_data,
3521: p_asdv_rec => p_asdv_tbl(i),
3524: i := p_asdv_tbl.NEXT(i);
3525: END LOOP;
3526: END IF;
3527: EXCEPTION
3528: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3529: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3530: (
3531: l_api_name,
3532: G_PKG_NAME,
3525: END LOOP;
3526: END IF;
3527: EXCEPTION
3528: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3529: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3530: (
3531: l_api_name,
3532: G_PKG_NAME,
3533: 'OKC_API.G_RET_STS_ERROR',
3529: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3530: (
3531: l_api_name,
3532: G_PKG_NAME,
3533: 'OKC_API.G_RET_STS_ERROR',
3534: x_msg_count,
3535: x_msg_data,
3536: '_PVT'
3537: );
3534: x_msg_count,
3535: x_msg_data,
3536: '_PVT'
3537: );
3538: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3539: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3540: (
3541: l_api_name,
3542: G_PKG_NAME,
3535: x_msg_data,
3536: '_PVT'
3537: );
3538: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3539: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3540: (
3541: l_api_name,
3542: G_PKG_NAME,
3543: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3539: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3540: (
3541: l_api_name,
3542: G_PKG_NAME,
3543: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3544: x_msg_count,
3545: x_msg_data,
3546: '_PVT'
3547: );
3545: x_msg_data,
3546: '_PVT'
3547: );
3548: WHEN OTHERS THEN
3549: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3550: (
3551: l_api_name,
3552: G_PKG_NAME,
3553: 'OTHERS',
3563: -----------------------------------
3564: -- delete_row for:OKL_TXD_ASSETS_B --
3565: -----------------------------------
3566: PROCEDURE delete_row(
3567: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3568: x_return_status OUT NOCOPY VARCHAR2,
3569: x_msg_count OUT NOCOPY NUMBER,
3570: x_msg_data OUT NOCOPY VARCHAR2,
3571: p_asd_rec IN asd_rec_type) IS
3571: p_asd_rec IN asd_rec_type) IS
3572:
3573: l_api_version CONSTANT NUMBER := 1;
3574: l_api_name CONSTANT VARCHAR2(30) := 'ASSETS_delete_row';
3575: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3576: l_asd_rec asd_rec_type:= p_asd_rec;
3577: l_row_notfound BOOLEAN := TRUE;
3578: BEGIN
3579: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3575: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3576: l_asd_rec asd_rec_type:= p_asd_rec;
3577: l_row_notfound BOOLEAN := TRUE;
3578: BEGIN
3579: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3580: p_init_msg_list,
3581: '_PVT',
3582: x_return_status);
3583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3579: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3580: p_init_msg_list,
3581: '_PVT',
3582: x_return_status);
3583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3580: p_init_msg_list,
3581: '_PVT',
3582: x_return_status);
3583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3588: DELETE FROM OKL_TXD_ASSETS_B
3581: '_PVT',
3582: x_return_status);
3583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3588: DELETE FROM OKL_TXD_ASSETS_B
3589: WHERE ID = l_asd_rec.id;
3582: x_return_status);
3583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3588: DELETE FROM OKL_TXD_ASSETS_B
3589: WHERE ID = l_asd_rec.id;
3590:
3587: END IF;
3588: DELETE FROM OKL_TXD_ASSETS_B
3589: WHERE ID = l_asd_rec.id;
3590:
3591: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3592: EXCEPTION
3593: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3595: (
3589: WHERE ID = l_asd_rec.id;
3590:
3591: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3592: EXCEPTION
3593: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3595: (
3596: l_api_name,
3597: G_PKG_NAME,
3590:
3591: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3592: EXCEPTION
3593: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3595: (
3596: l_api_name,
3597: G_PKG_NAME,
3598: 'OKC_API.G_RET_STS_ERROR',
3594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3595: (
3596: l_api_name,
3597: G_PKG_NAME,
3598: 'OKC_API.G_RET_STS_ERROR',
3599: x_msg_count,
3600: x_msg_data,
3601: '_PVT'
3602: );
3599: x_msg_count,
3600: x_msg_data,
3601: '_PVT'
3602: );
3603: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3605: (
3606: l_api_name,
3607: G_PKG_NAME,
3600: x_msg_data,
3601: '_PVT'
3602: );
3603: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3605: (
3606: l_api_name,
3607: G_PKG_NAME,
3608: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3605: (
3606: l_api_name,
3607: G_PKG_NAME,
3608: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3609: x_msg_count,
3610: x_msg_data,
3611: '_PVT'
3612: );
3610: x_msg_data,
3611: '_PVT'
3612: );
3613: WHEN OTHERS THEN
3614: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3615: (
3616: l_api_name,
3617: G_PKG_NAME,
3618: 'OTHERS',
3624: --------------------------------------
3625: -- delete_row for:OKL_TXD_ASSETS_TL --
3626: --------------------------------------
3627: PROCEDURE delete_row(
3628: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3629: x_return_status OUT NOCOPY VARCHAR2,
3630: x_msg_count OUT NOCOPY NUMBER,
3631: x_msg_data OUT NOCOPY VARCHAR2,
3632: p_okl_txd_assets_tl_rec IN okl_txd_assets_tl_rec_type) IS
3632: p_okl_txd_assets_tl_rec IN okl_txd_assets_tl_rec_type) IS
3633:
3634: l_api_version CONSTANT NUMBER := 1;
3635: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3636: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3637: l_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type:= p_okl_txd_assets_tl_rec;
3638: l_row_notfound BOOLEAN := TRUE;
3639: ------------------------------------------
3640: -- Set_Attributes for:OKL_TXD_ASSETS_TL --
3642: FUNCTION Set_Attributes (
3643: p_okl_txd_assets_tl_rec IN okl_txd_assets_tl_rec_type,
3644: x_okl_txd_assets_tl_rec OUT NOCOPY okl_txd_assets_tl_rec_type
3645: ) RETURN VARCHAR2 IS
3646: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3647: BEGIN
3648: x_okl_txd_assets_tl_rec := p_okl_txd_assets_tl_rec;
3649: x_okl_txd_assets_tl_rec.LANGUAGE := USERENV('LANG');
3650: RETURN(l_return_status);
3649: x_okl_txd_assets_tl_rec.LANGUAGE := USERENV('LANG');
3650: RETURN(l_return_status);
3651: END Set_Attributes;
3652: BEGIN
3653: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3654: p_init_msg_list,
3655: '_PVT',
3656: x_return_status);
3657: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3653: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3654: p_init_msg_list,
3655: '_PVT',
3656: x_return_status);
3657: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3658: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3659: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3660: RAISE OKC_API.G_EXCEPTION_ERROR;
3661: END IF;
3654: p_init_msg_list,
3655: '_PVT',
3656: x_return_status);
3657: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3658: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3659: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3660: RAISE OKC_API.G_EXCEPTION_ERROR;
3661: END IF;
3662: --- Setting item attributes
3655: '_PVT',
3656: x_return_status);
3657: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3658: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3659: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3660: RAISE OKC_API.G_EXCEPTION_ERROR;
3661: END IF;
3662: --- Setting item attributes
3663: l_return_status := Set_Attributes(
3656: x_return_status);
3657: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3658: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3659: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3660: RAISE OKC_API.G_EXCEPTION_ERROR;
3661: END IF;
3662: --- Setting item attributes
3663: l_return_status := Set_Attributes(
3664: p_okl_txd_assets_tl_rec, -- IN
3663: l_return_status := Set_Attributes(
3664: p_okl_txd_assets_tl_rec, -- IN
3665: l_okl_txd_assets_tl_rec); -- OUT
3666: --- If any errors happen abort API
3667: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3668: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3669: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3670: RAISE OKC_API.G_EXCEPTION_ERROR;
3671: END IF;
3664: p_okl_txd_assets_tl_rec, -- IN
3665: l_okl_txd_assets_tl_rec); -- OUT
3666: --- If any errors happen abort API
3667: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3668: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3669: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3670: RAISE OKC_API.G_EXCEPTION_ERROR;
3671: END IF;
3672: DELETE FROM OKL_TXD_ASSETS_TL
3665: l_okl_txd_assets_tl_rec); -- OUT
3666: --- If any errors happen abort API
3667: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3668: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3669: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3670: RAISE OKC_API.G_EXCEPTION_ERROR;
3671: END IF;
3672: DELETE FROM OKL_TXD_ASSETS_TL
3673: WHERE ID = l_okl_txd_assets_tl_rec.id;
3666: --- If any errors happen abort API
3667: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3668: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3669: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3670: RAISE OKC_API.G_EXCEPTION_ERROR;
3671: END IF;
3672: DELETE FROM OKL_TXD_ASSETS_TL
3673: WHERE ID = l_okl_txd_assets_tl_rec.id;
3674:
3671: END IF;
3672: DELETE FROM OKL_TXD_ASSETS_TL
3673: WHERE ID = l_okl_txd_assets_tl_rec.id;
3674:
3675: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3676: EXCEPTION
3677: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3678: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3679: (
3673: WHERE ID = l_okl_txd_assets_tl_rec.id;
3674:
3675: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3676: EXCEPTION
3677: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3678: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3679: (
3680: l_api_name,
3681: G_PKG_NAME,
3674:
3675: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3676: EXCEPTION
3677: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3678: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3679: (
3680: l_api_name,
3681: G_PKG_NAME,
3682: 'OKC_API.G_RET_STS_ERROR',
3678: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3679: (
3680: l_api_name,
3681: G_PKG_NAME,
3682: 'OKC_API.G_RET_STS_ERROR',
3683: x_msg_count,
3684: x_msg_data,
3685: '_PVT'
3686: );
3683: x_msg_count,
3684: x_msg_data,
3685: '_PVT'
3686: );
3687: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3688: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3689: (
3690: l_api_name,
3691: G_PKG_NAME,
3684: x_msg_data,
3685: '_PVT'
3686: );
3687: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3688: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3689: (
3690: l_api_name,
3691: G_PKG_NAME,
3692: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3688: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3689: (
3690: l_api_name,
3691: G_PKG_NAME,
3692: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3693: x_msg_count,
3694: x_msg_data,
3695: '_PVT'
3696: );
3694: x_msg_data,
3695: '_PVT'
3696: );
3697: WHEN OTHERS THEN
3698: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3699: (
3700: l_api_name,
3701: G_PKG_NAME,
3702: 'OTHERS',
3709: -- delete_row for:OKL_TXD_ASSETS_V --
3710: -------------------------------------
3711: PROCEDURE delete_row(
3712: p_api_version IN NUMBER,
3713: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3714: x_return_status OUT NOCOPY VARCHAR2,
3715: x_msg_count OUT NOCOPY NUMBER,
3716: x_msg_data OUT NOCOPY VARCHAR2,
3717: p_asdv_rec IN asdv_rec_type) IS
3717: p_asdv_rec IN asdv_rec_type) IS
3718:
3719: l_api_version CONSTANT NUMBER := 1;
3720: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3721: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3722: l_asdv_rec asdv_rec_type := p_asdv_rec;
3723: l_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type;
3724: l_asd_rec asd_rec_type;
3725: BEGIN
3722: l_asdv_rec asdv_rec_type := p_asdv_rec;
3723: l_okl_txd_assets_tl_rec okl_txd_assets_tl_rec_type;
3724: l_asd_rec asd_rec_type;
3725: BEGIN
3726: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3727: G_PKG_NAME,
3728: p_init_msg_list,
3729: l_api_version,
3730: p_api_version,
3729: l_api_version,
3730: p_api_version,
3731: '_PVT',
3732: x_return_status);
3733: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3734: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3735: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3736: RAISE OKC_API.G_EXCEPTION_ERROR;
3737: END IF;
3730: p_api_version,
3731: '_PVT',
3732: x_return_status);
3733: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3734: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3735: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3736: RAISE OKC_API.G_EXCEPTION_ERROR;
3737: END IF;
3738: --------------------------------------
3731: '_PVT',
3732: x_return_status);
3733: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3734: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3735: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3736: RAISE OKC_API.G_EXCEPTION_ERROR;
3737: END IF;
3738: --------------------------------------
3739: -- Move VIEW record to "Child" records
3732: x_return_status);
3733: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3734: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3735: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3736: RAISE OKC_API.G_EXCEPTION_ERROR;
3737: END IF;
3738: --------------------------------------
3739: -- Move VIEW record to "Child" records
3740: --------------------------------------
3749: x_msg_count,
3750: x_msg_data,
3751: l_okl_txd_assets_tl_rec
3752: );
3753: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3754: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3755: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3756: RAISE OKC_API.G_EXCEPTION_ERROR;
3757: END IF;
3750: x_msg_data,
3751: l_okl_txd_assets_tl_rec
3752: );
3753: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3754: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3755: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3756: RAISE OKC_API.G_EXCEPTION_ERROR;
3757: END IF;
3758: --------------------------------------------
3751: l_okl_txd_assets_tl_rec
3752: );
3753: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3754: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3755: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3756: RAISE OKC_API.G_EXCEPTION_ERROR;
3757: END IF;
3758: --------------------------------------------
3759: -- Call the DELETE_ROW for each child record
3752: );
3753: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3754: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3755: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3756: RAISE OKC_API.G_EXCEPTION_ERROR;
3757: END IF;
3758: --------------------------------------------
3759: -- Call the DELETE_ROW for each child record
3760: --------------------------------------------
3764: x_msg_count,
3765: x_msg_data,
3766: l_asd_rec
3767: );
3768: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3770: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3771: RAISE OKC_API.G_EXCEPTION_ERROR;
3772: END IF;
3765: x_msg_data,
3766: l_asd_rec
3767: );
3768: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3770: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3771: RAISE OKC_API.G_EXCEPTION_ERROR;
3772: END IF;
3773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3766: l_asd_rec
3767: );
3768: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3770: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3771: RAISE OKC_API.G_EXCEPTION_ERROR;
3772: END IF;
3773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3774: EXCEPTION
3767: );
3768: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3770: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3771: RAISE OKC_API.G_EXCEPTION_ERROR;
3772: END IF;
3773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3774: EXCEPTION
3775: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3770: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3771: RAISE OKC_API.G_EXCEPTION_ERROR;
3772: END IF;
3773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3774: EXCEPTION
3775: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3776: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3777: (
3771: RAISE OKC_API.G_EXCEPTION_ERROR;
3772: END IF;
3773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3774: EXCEPTION
3775: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3776: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3777: (
3778: l_api_name,
3779: G_PKG_NAME,
3772: END IF;
3773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3774: EXCEPTION
3775: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3776: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3777: (
3778: l_api_name,
3779: G_PKG_NAME,
3780: 'OKC_API.G_RET_STS_ERROR',
3776: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3777: (
3778: l_api_name,
3779: G_PKG_NAME,
3780: 'OKC_API.G_RET_STS_ERROR',
3781: x_msg_count,
3782: x_msg_data,
3783: '_PVT'
3784: );
3781: x_msg_count,
3782: x_msg_data,
3783: '_PVT'
3784: );
3785: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3786: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3787: (
3788: l_api_name,
3789: G_PKG_NAME,
3782: x_msg_data,
3783: '_PVT'
3784: );
3785: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3786: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3787: (
3788: l_api_name,
3789: G_PKG_NAME,
3790: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3786: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3787: (
3788: l_api_name,
3789: G_PKG_NAME,
3790: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3791: x_msg_count,
3792: x_msg_data,
3793: '_PVT'
3794: );
3792: x_msg_data,
3793: '_PVT'
3794: );
3795: WHEN OTHERS THEN
3796: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3797: (
3798: l_api_name,
3799: G_PKG_NAME,
3800: 'OTHERS',
3807: -- PL/SQL TBL delete_row for:ASDV_TBL --
3808: ----------------------------------------
3809: PROCEDURE delete_row(
3810: p_api_version IN NUMBER,
3811: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3812: x_return_status OUT NOCOPY VARCHAR2,
3813: x_msg_count OUT NOCOPY NUMBER,
3814: x_msg_data OUT NOCOPY VARCHAR2,
3815: p_asdv_tbl IN asdv_tbl_type) IS
3815: p_asdv_tbl IN asdv_tbl_type) IS
3816:
3817: l_api_version CONSTANT NUMBER := 1;
3818: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3819: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3820: i NUMBER := 0;
3821: BEGIN
3822: OKC_API.init_msg_list(p_init_msg_list);
3823: -- Make sure PL/SQL table has records in it before passing
3818: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3819: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3820: i NUMBER := 0;
3821: BEGIN
3822: OKC_API.init_msg_list(p_init_msg_list);
3823: -- Make sure PL/SQL table has records in it before passing
3824: IF (p_asdv_tbl.COUNT > 0) THEN
3825: i := p_asdv_tbl.FIRST;
3826: LOOP
3825: i := p_asdv_tbl.FIRST;
3826: LOOP
3827: delete_row (
3828: p_api_version => p_api_version,
3829: p_init_msg_list => OKC_API.G_FALSE,
3830: x_return_status => x_return_status,
3831: x_msg_count => x_msg_count,
3832: x_msg_data => x_msg_data,
3833: p_asdv_rec => p_asdv_tbl(i));
3835: i := p_asdv_tbl.NEXT(i);
3836: END LOOP;
3837: END IF;
3838: EXCEPTION
3839: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3840: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3841: (
3842: l_api_name,
3843: G_PKG_NAME,
3836: END LOOP;
3837: END IF;
3838: EXCEPTION
3839: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3840: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3841: (
3842: l_api_name,
3843: G_PKG_NAME,
3844: 'OKC_API.G_RET_STS_ERROR',
3840: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3841: (
3842: l_api_name,
3843: G_PKG_NAME,
3844: 'OKC_API.G_RET_STS_ERROR',
3845: x_msg_count,
3846: x_msg_data,
3847: '_PVT'
3848: );
3845: x_msg_count,
3846: x_msg_data,
3847: '_PVT'
3848: );
3849: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3850: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3851: (
3852: l_api_name,
3853: G_PKG_NAME,
3846: x_msg_data,
3847: '_PVT'
3848: );
3849: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3850: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3851: (
3852: l_api_name,
3853: G_PKG_NAME,
3854: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3850: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3851: (
3852: l_api_name,
3853: G_PKG_NAME,
3854: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3855: x_msg_count,
3856: x_msg_data,
3857: '_PVT'
3858: );
3856: x_msg_data,
3857: '_PVT'
3858: );
3859: WHEN OTHERS THEN
3860: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3861: (
3862: l_api_name,
3863: G_PKG_NAME,
3864: 'OTHERS',