1: PACKAGE BODY OKL_SID_PVT AS
2: /* $Header: OKLSSIDB.pls 115.2 2002/11/30 09:24:22 spillaip noship $ */
3: /************************ HAND-CODED *********************************/
4: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
5: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := 'OKL_API.G_CHILD_TABLE_TOKEN';
6: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
7: G_RANGE_CHECK CONSTANT VARCHAR2(200) := 'OKL_GREATER_THAN';
8: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
9: G_INVALID_VALUE CONSTANT VARCHAR2(200) := 'OKL_INVALID_VALUE';
81:
82:
83: BEGIN
84: -- initialize return status
85: x_return_status := OKL_API.G_RET_STS_SUCCESS;
86: -- data is required
87: IF (p_id = OKL_API.G_MISS_NUM) OR
88: (p_id IS NULL) THEN
89: -- halt validation as it is a required field
83: BEGIN
84: -- initialize return status
85: x_return_status := OKL_API.G_RET_STS_SUCCESS;
86: -- data is required
87: IF (p_id = OKL_API.G_MISS_NUM) OR
88: (p_id IS NULL) THEN
89: -- halt validation as it is a required field
90: RAISE G_EXCEPTION_STOP_VALIDATION;
91: END IF;
131: EXCEPTION
132: WHEN G_EXCEPTION_STOP_VALIDATION then
133: -- We are here since the field is required
134: -- store SQL error message on message stack
135: OKL_API.set_message(p_app_name => G_APP_NAME,
136: p_msg_name => G_REQUIRED_VALUE,
137: p_token1 => G_COL_NAME_TOKEN,
138: p_token1_value => 'cle_id');
139: -- Notify Error
136: p_msg_name => G_REQUIRED_VALUE,
137: p_token1 => G_COL_NAME_TOKEN,
138: p_token1_value => 'cle_id');
139: -- Notify Error
140: x_return_status := OKL_API.G_RET_STS_ERROR;
141: WHEN G_EXCEPTION_HALT_VALIDATION then
142: -- We are here b'cause we have no parent record
143: -- store SQL error message on message stack
144: OKL_API.set_message(p_app_name => G_APP_NAME,
140: x_return_status := OKL_API.G_RET_STS_ERROR;
141: WHEN G_EXCEPTION_HALT_VALIDATION then
142: -- We are here b'cause we have no parent record
143: -- store SQL error message on message stack
144: OKL_API.set_message(p_app_name => G_APP_NAME,
145: p_msg_name => G_NO_MATCHING_RECORD,
146: p_token1 => G_COL_NAME_TOKEN,
147: p_token1_value => 'cle_id');
148: -- If the cursor is open then it has to be closed
155: IF c_cle_id_validate2%ISOPEN THEN
156: CLOSE c_cle_id_validate2;
157: END IF;
158: -- notify caller of an error
159: x_return_status := OKL_API.G_RET_STS_ERROR;
160: WHEN OTHERS THEN
161: -- store SQL error message on message stack
162: OKL_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 := OKL_API.G_RET_STS_ERROR;
160: WHEN OTHERS THEN
161: -- store SQL error message on message stack
162: OKL_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,
175: IF c_cle_id_validate2%ISOPEN THEN
176: CLOSE c_cle_id_validate2;
177: END IF;
178: -- notify caller of an error as UNEXPETED error
179: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
180: END validate_cle_id;
181: ---------------------------------------------------------------------------------
182: -- Start of Commnets
183: -- Badrinath Kuchibholta
220:
221:
222: BEGIN
223: -- initialize return status
224: x_return_status := OKL_API.G_RET_STS_SUCCESS;
225: -- data is required
226: IF (p_id = OKL_API.G_MISS_NUM) OR
227: (p_id IS NULL) THEN
228: -- halt validation as it is a required field
222: BEGIN
223: -- initialize return status
224: x_return_status := OKL_API.G_RET_STS_SUCCESS;
225: -- data is required
226: IF (p_id = OKL_API.G_MISS_NUM) OR
227: (p_id IS NULL) THEN
228: -- halt validation as it is a required field
229: RAISE G_EXCEPTION_STOP_VALIDATION;
230: END IF;
259: null;
260: WHEN G_EXCEPTION_HALT_VALIDATION then
261: -- We are here b'cause we have no parent record
262: -- store SQL error message on message stack
263: OKL_API.set_message(p_app_name => G_APP_NAME,
264: p_msg_name => G_NO_MATCHING_RECORD,
265: p_token1 => G_COL_NAME_TOKEN,
266: p_token1_value => 'fa_cle_id');
267: -- If the cursor is open then it has to be closed
271: IF c_cle_id_validate1%ISOPEN THEN
272: CLOSE c_cle_id_validate1;
273: END IF;
274: -- notify caller of an error
275: x_return_status := OKL_API.G_RET_STS_ERROR;
276: WHEN OTHERS THEN
277: -- store SQL error message on message stack
278: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
279: p_msg_name => G_UNEXPECTED_ERROR,
274: -- notify caller of an error
275: x_return_status := OKL_API.G_RET_STS_ERROR;
276: WHEN OTHERS THEN
277: -- store SQL error message on message stack
278: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
279: p_msg_name => G_UNEXPECTED_ERROR,
280: p_token1 => G_SQLCODE_TOKEN,
281: p_token1_value => SQLCODE,
282: p_token2 => G_SQLERRM_TOKEN,
288: IF c_cle_id_validate1%ISOPEN THEN
289: CLOSE c_cle_id_validate1;
290: END IF;
291: -- notify caller of an error as UNEXPETED error
292: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
293: END validate_fa_cle_id;
294: --------------------------------------------------------------------------------
295: -- Start of Commnets
296: -- Badrinath Kuchibholta
314: AND id2 = G_ID2
315: AND site_use_code = 'SHIP_TO');
316: BEGIN
317: -- initialize return status
318: x_return_status := OKL_API.G_RET_STS_SUCCESS;
319: -- data is required
320: IF (p_shipping_id1 = OKL_API.G_MISS_NUM) OR
321: (p_shipping_id1 IS NULL) THEN
322: -- halt validation as it is a required field
316: BEGIN
317: -- initialize return status
318: x_return_status := OKL_API.G_RET_STS_SUCCESS;
319: -- data is required
320: IF (p_shipping_id1 = OKL_API.G_MISS_NUM) OR
321: (p_shipping_id1 IS NULL) THEN
322: -- halt validation as it is a required field
323: RAISE G_EXCEPTION_STOP_VALIDATION;
324: END IF;
341: null;
342: WHEN G_EXCEPTION_HALT_VALIDATION then
343: -- We are here b'cause we have no parent record
344: -- store SQL error message on message stack
345: OKL_API.set_message(p_app_name => G_APP_NAME,
346: p_msg_name => G_NO_MATCHING_RECORD,
347: p_token1 => G_COL_NAME_TOKEN,
348: p_token1_value => 'shipping_address_id1');
349: -- If the cursor is open then it has to be closed
350: IF c_shipping_id1_validate%ISOPEN THEN
351: CLOSE c_shipping_id1_validate;
352: END IF;
353: -- notify caller of an error
354: x_return_status := OKL_API.G_RET_STS_ERROR;
355: WHEN OTHERS THEN
356: -- store SQL error message on message stack
357: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
358: p_msg_name => G_UNEXPECTED_ERROR,
353: -- notify caller of an error
354: x_return_status := OKL_API.G_RET_STS_ERROR;
355: WHEN OTHERS THEN
356: -- store SQL error message on message stack
357: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
358: p_msg_name => G_UNEXPECTED_ERROR,
359: p_token1 => G_SQLCODE_TOKEN,
360: p_token1_value => SQLCODE,
361: p_token2 => G_SQLERRM_TOKEN,
364: IF c_shipping_id1_validate%ISOPEN THEN
365: CLOSE c_shipping_id1_validate;
366: END IF;
367: -- notify caller of an error as UNEXPETED error
368: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
369: END validate_shipping_id1;
370: --------------------------------------------------------------------------------
371: -- Start of Commnets
372: -- Badrinath Kuchibholta
392: AND id2 = p_shipping_id2
393: AND site_use_code = 'SHIP_TO');
394: BEGIN
395: -- initialize return status
396: x_return_status := OKL_API.G_RET_STS_SUCCESS;
397: -- data is required
398: IF (p_shipping_id2 = OKL_API.G_MISS_CHAR) OR
399: (p_shipping_id2 IS NULL) THEN
400: -- halt validation as it is a required field
394: BEGIN
395: -- initialize return status
396: x_return_status := OKL_API.G_RET_STS_SUCCESS;
397: -- data is required
398: IF (p_shipping_id2 = OKL_API.G_MISS_CHAR) OR
399: (p_shipping_id2 IS NULL) THEN
400: -- halt validation as it is a required field
401: RAISE G_EXCEPTION_STOP_VALIDATION;
402: END IF;
420: null;
421: WHEN G_EXCEPTION_HALT_VALIDATION then
422: -- We are here b'cause we have no parent record
423: -- store SQL error message on message stack
424: OKL_API.set_message(p_app_name => G_APP_NAME,
425: p_msg_name => G_NO_MATCHING_RECORD,
426: p_token1 => G_COL_NAME_TOKEN,
427: p_token1_value => 'shipping_address_id2');
428: -- If the cursor is open then it has to be closed
429: IF c_shipping_id2_validate%ISOPEN THEN
430: CLOSE c_shipping_id2_validate;
431: END IF;
432: -- notify caller of an error
433: x_return_status := OKL_API.G_RET_STS_ERROR;
434: WHEN OTHERS THEN
435: -- store SQL error message on message stack
436: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
437: p_msg_name => G_UNEXPECTED_ERROR,
432: -- notify caller of an error
433: x_return_status := OKL_API.G_RET_STS_ERROR;
434: WHEN OTHERS THEN
435: -- store SQL error message on message stack
436: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
437: p_msg_name => G_UNEXPECTED_ERROR,
438: p_token1 => G_SQLCODE_TOKEN,
439: p_token1_value => SQLCODE,
440: p_token2 => G_SQLERRM_TOKEN,
443: IF c_shipping_id2_validate%ISOPEN THEN
444: CLOSE c_shipping_id2_validate;
445: END IF;
446: -- notify caller of an error as UNEXPETED error
447: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
448: END validate_shipping_id2;
449: --------------------------------------------------------------------------------
450: -- Start of Commnets
451: -- Badrinath Kuchibholta
467: FROM JTF_OBJECTS_B
468: WHERE object_code = p_shipping_code);
469: BEGIN
470: -- initialize return status
471: x_return_status := OKL_API.G_RET_STS_SUCCESS;
472: -- data is required
473: IF (p_shipping_code = OKL_API.G_MISS_CHAR) OR
474: (p_shipping_code IS NULL) THEN
475: -- halt validation as it is a required field
469: BEGIN
470: -- initialize return status
471: x_return_status := OKL_API.G_RET_STS_SUCCESS;
472: -- data is required
473: IF (p_shipping_code = OKL_API.G_MISS_CHAR) OR
474: (p_shipping_code IS NULL) THEN
475: -- halt validation as it is a required field
476: RAISE G_EXCEPTION_STOP_VALIDATION;
477: END IF;
494: null;
495: WHEN G_EXCEPTION_HALT_VALIDATION then
496: -- We are here b'cause we have no parent record
497: -- store SQL error message on message stack
498: OKL_API.set_message(p_app_name => G_APP_NAME,
499: p_msg_name => G_NO_MATCHING_RECORD,
500: p_token1 => G_COL_NAME_TOKEN,
501: p_token1_value => 'shipping_address_code');
502: -- If the cursor is open then it has to be closed
503: IF c_shipping_code_validate%ISOPEN THEN
504: CLOSE c_shipping_code_validate;
505: END IF;
506: -- notify caller of an error
507: x_return_status := OKL_API.G_RET_STS_ERROR;
508: WHEN OTHERS THEN
509: -- store SQL error message on message stack
510: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
511: p_msg_name => G_UNEXPECTED_ERROR,
506: -- notify caller of an error
507: x_return_status := OKL_API.G_RET_STS_ERROR;
508: WHEN OTHERS THEN
509: -- store SQL error message on message stack
510: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
511: p_msg_name => G_UNEXPECTED_ERROR,
512: p_token1 => G_SQLCODE_TOKEN,
513: p_token1_value => SQLCODE,
514: p_token2 => G_SQLERRM_TOKEN,
517: IF c_shipping_code_validate%ISOPEN THEN
518: CLOSE c_shipping_code_validate;
519: END IF;
520: -- notify caller of an error as UNEXPETED error
521: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
522: END validate_shipping_code;
523: --------------------------------------------------------------------------------
524: -- Start of Commnets
525: -- Badrinath Kuchibholta
534: p_sidv_rec IN sidv_rec_type) IS
535: ln_dummy number := 0;
536: BEGIN
537: -- initialize return status
538: x_return_status := OKL_API.G_RET_STS_SUCCESS;
539: IF (p_sidv_rec.date_invoiced = OKL_API.G_MISS_DATE OR
540: p_sidv_rec.date_invoiced IS NULL) OR
541: (p_sidv_rec.date_due = OKL_API.G_MISS_DATE OR
542: p_sidv_rec.date_due IS NULL) THEN
535: ln_dummy number := 0;
536: BEGIN
537: -- initialize return status
538: x_return_status := OKL_API.G_RET_STS_SUCCESS;
539: IF (p_sidv_rec.date_invoiced = OKL_API.G_MISS_DATE OR
540: p_sidv_rec.date_invoiced IS NULL) OR
541: (p_sidv_rec.date_due = OKL_API.G_MISS_DATE OR
542: p_sidv_rec.date_due IS NULL) THEN
543: -- halt validation as it is a required field
537: -- initialize return status
538: x_return_status := OKL_API.G_RET_STS_SUCCESS;
539: IF (p_sidv_rec.date_invoiced = OKL_API.G_MISS_DATE OR
540: p_sidv_rec.date_invoiced IS NULL) OR
541: (p_sidv_rec.date_due = OKL_API.G_MISS_DATE OR
542: p_sidv_rec.date_due IS NULL) THEN
543: -- halt validation as it is a required field
544: RAISE G_EXCEPTION_STOP_VALIDATION;
545: END IF;
544: RAISE G_EXCEPTION_STOP_VALIDATION;
545: END IF;
546: -- When all the dates are given
547: IF (p_sidv_rec.date_invoiced IS NOT NULL OR
548: p_sidv_rec.date_invoiced <> OKL_API.G_MISS_DATE) AND
549: (p_sidv_rec.date_due IS NOT NULL OR
550: p_sidv_rec.date_due <> OKL_API.G_MISS_DATE) THEN
551: IF(p_sidv_rec.date_invoiced > p_sidv_rec.date_due) THEN
552: -- halt validation as the above statments are true
546: -- When all the dates are given
547: IF (p_sidv_rec.date_invoiced IS NOT NULL OR
548: p_sidv_rec.date_invoiced <> OKL_API.G_MISS_DATE) AND
549: (p_sidv_rec.date_due IS NOT NULL OR
550: p_sidv_rec.date_due <> OKL_API.G_MISS_DATE) THEN
551: IF(p_sidv_rec.date_invoiced > p_sidv_rec.date_due) THEN
552: -- halt validation as the above statments are true
553: RAISE G_EXCEPTION_HALT_VALIDATION;
554: END IF;
559: null;
560: WHEN G_EXCEPTION_HALT_VALIDATION then
561: -- We are here b'cause validation falied
562: -- store SQL error message on message stack
563: OKL_API.set_message(p_app_name => G_APP_NAME,
564: p_msg_name => G_RANGE_CHECK,
565: p_token1 => G_COL_NAME_TOKEN1,
566: p_token1_value => 'date_invoiced',
567: p_token2 => G_COL_NAME_TOKEN2,
566: p_token1_value => 'date_invoiced',
567: p_token2 => G_COL_NAME_TOKEN2,
568: p_token2_value => 'date_due');
569: -- notify caller of an error
570: x_return_status := OKL_API.G_RET_STS_ERROR;
571: WHEN OTHERS THEN
572: -- store SQL error message on message stack
573: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
574: p_msg_name => G_UNEXPECTED_ERROR,
569: -- notify caller of an error
570: x_return_status := OKL_API.G_RET_STS_ERROR;
571: WHEN OTHERS THEN
572: -- store SQL error message on message stack
573: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
574: p_msg_name => G_UNEXPECTED_ERROR,
575: p_token1 => G_SQLCODE_TOKEN,
576: p_token1_value => SQLCODE,
577: p_token2 => G_SQLERRM_TOKEN,
576: p_token1_value => SQLCODE,
577: p_token2 => G_SQLERRM_TOKEN,
578: p_token2_value => SQLERRM);
579: -- notify caller of an error as UNEXPETED error
580: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
581: END validate_inv_due_date;
582: /************************ HAND-CODED *********************************/
583: ---------------------------------------------------------------------------
584: -- FUNCTION get_seq_id
703: x_return_status OUT NOCOPY VARCHAR2
704: ) RETURN sidv_rec_type IS
705: l_sidv_rec sidv_rec_type;
706: l_row_notfound BOOLEAN := TRUE;
707: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
708:
709: BEGIN
710: l_sidv_rec := get_rec(p_sidv_rec, l_row_notfound);
711: IF (l_row_notfound) THEN
708:
709: BEGIN
710: l_sidv_rec := get_rec(p_sidv_rec, l_row_notfound);
711: IF (l_row_notfound) THEN
712: l_return_status := OKL_API.G_RET_STS_ERROR;
713: END IF;
714: x_return_status := l_return_status;
715: RETURN(l_sidv_rec);
716: END get_rec;
817: x_return_status OUT NOCOPY VARCHAR2
818: ) RETURN sid_rec_type IS
819: l_sid_rec sid_rec_type;
820: l_row_notfound BOOLEAN := TRUE;
821: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
822: BEGIN
823: l_sid_rec := get_rec(p_sid_rec, l_row_notfound);
824: IF (l_row_notfound) THEN
825: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
821: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
822: BEGIN
823: l_sid_rec := get_rec(p_sid_rec, l_row_notfound);
824: IF (l_row_notfound) THEN
825: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
826: x_return_status := OKL_API.G_RET_STS_ERROR;
827: END IF;
828: x_return_status := l_return_status;
829: RETURN(l_sid_rec);
822: BEGIN
823: l_sid_rec := get_rec(p_sid_rec, l_row_notfound);
824: IF (l_row_notfound) THEN
825: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
826: x_return_status := OKL_API.G_RET_STS_ERROR;
827: END IF;
828: x_return_status := l_return_status;
829: RETURN(l_sid_rec);
830: END get_rec;
930: x_return_status OUT NOCOPY VARCHAR2
931: ) RETURN okl_sidh_rec_type IS
932: l_sidh_rec okl_sidh_rec_type;
933: l_row_notfound BOOLEAN := TRUE;
934: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
935: BEGIN
936: l_sidh_rec := get_rec(p_sidh_rec, l_row_notfound);
937: IF (l_row_notfound) THEN
938: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
934: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
935: BEGIN
936: l_sidh_rec := get_rec(p_sidh_rec, l_row_notfound);
937: IF (l_row_notfound) THEN
938: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
939: x_return_status := OKL_API.G_RET_STS_ERROR;
940: END IF;
941: x_return_status := l_return_status;
942: RETURN(l_sidh_rec);
935: BEGIN
936: l_sidh_rec := get_rec(p_sidh_rec, l_row_notfound);
937: IF (l_row_notfound) THEN
938: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
939: x_return_status := OKL_API.G_RET_STS_ERROR;
940: END IF;
941: x_return_status := l_return_status;
942: RETURN(l_sidh_rec);
943: END get_rec;
958: p_sidv_rec IN sidv_rec_type
959: ) RETURN sidv_rec_type IS
960: l_sidv_rec sidv_rec_type := p_sidv_rec;
961: BEGIN
962: IF (l_sidv_rec.id = OKL_API.G_MISS_NUM ) THEN
963: l_sidv_rec.id := NULL;
964: END IF;
965: IF (l_sidv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
966: l_sidv_rec.object_version_number := NULL;
961: BEGIN
962: IF (l_sidv_rec.id = OKL_API.G_MISS_NUM ) THEN
963: l_sidv_rec.id := NULL;
964: END IF;
965: IF (l_sidv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
966: l_sidv_rec.object_version_number := NULL;
967: END IF;
968: IF (l_sidv_rec.cle_id = OKL_API.G_MISS_NUM ) THEN
969: l_sidv_rec.cle_id := NULL;
964: END IF;
965: IF (l_sidv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
966: l_sidv_rec.object_version_number := NULL;
967: END IF;
968: IF (l_sidv_rec.cle_id = OKL_API.G_MISS_NUM ) THEN
969: l_sidv_rec.cle_id := NULL;
970: END IF;
971: IF (l_sidv_rec.fa_cle_id = OKL_API.G_MISS_NUM ) THEN
972: l_sidv_rec.fa_cle_id := NULL;
967: END IF;
968: IF (l_sidv_rec.cle_id = OKL_API.G_MISS_NUM ) THEN
969: l_sidv_rec.cle_id := NULL;
970: END IF;
971: IF (l_sidv_rec.fa_cle_id = OKL_API.G_MISS_NUM ) THEN
972: l_sidv_rec.fa_cle_id := NULL;
973: END IF;
974: IF (l_sidv_rec.invoice_number = OKL_API.G_MISS_CHAR ) THEN
975: l_sidv_rec.invoice_number := NULL;
970: END IF;
971: IF (l_sidv_rec.fa_cle_id = OKL_API.G_MISS_NUM ) THEN
972: l_sidv_rec.fa_cle_id := NULL;
973: END IF;
974: IF (l_sidv_rec.invoice_number = OKL_API.G_MISS_CHAR ) THEN
975: l_sidv_rec.invoice_number := NULL;
976: END IF;
977: IF (l_sidv_rec.date_invoiced = OKL_API.G_MISS_DATE ) THEN
978: l_sidv_rec.date_invoiced := NULL;
973: END IF;
974: IF (l_sidv_rec.invoice_number = OKL_API.G_MISS_CHAR ) THEN
975: l_sidv_rec.invoice_number := NULL;
976: END IF;
977: IF (l_sidv_rec.date_invoiced = OKL_API.G_MISS_DATE ) THEN
978: l_sidv_rec.date_invoiced := NULL;
979: END IF;
980: IF (l_sidv_rec.date_due = OKL_API.G_MISS_DATE ) THEN
981: l_sidv_rec.date_due := NULL;
976: END IF;
977: IF (l_sidv_rec.date_invoiced = OKL_API.G_MISS_DATE ) THEN
978: l_sidv_rec.date_invoiced := NULL;
979: END IF;
980: IF (l_sidv_rec.date_due = OKL_API.G_MISS_DATE ) THEN
981: l_sidv_rec.date_due := NULL;
982: END IF;
983: IF (l_sidv_rec.shipping_address_id1 = OKL_API.G_MISS_NUM ) THEN
984: l_sidv_rec.shipping_address_id1 := NULL;
979: END IF;
980: IF (l_sidv_rec.date_due = OKL_API.G_MISS_DATE ) THEN
981: l_sidv_rec.date_due := NULL;
982: END IF;
983: IF (l_sidv_rec.shipping_address_id1 = OKL_API.G_MISS_NUM ) THEN
984: l_sidv_rec.shipping_address_id1 := NULL;
985: END IF;
986: IF (l_sidv_rec.shipping_address_id2 = OKL_API.G_MISS_CHAR ) THEN
987: l_sidv_rec.shipping_address_id2 := NULL;
982: END IF;
983: IF (l_sidv_rec.shipping_address_id1 = OKL_API.G_MISS_NUM ) THEN
984: l_sidv_rec.shipping_address_id1 := NULL;
985: END IF;
986: IF (l_sidv_rec.shipping_address_id2 = OKL_API.G_MISS_CHAR ) THEN
987: l_sidv_rec.shipping_address_id2 := NULL;
988: END IF;
989: IF (l_sidv_rec.shipping_address_code = OKL_API.G_MISS_CHAR ) THEN
990: l_sidv_rec.shipping_address_code := NULL;
985: END IF;
986: IF (l_sidv_rec.shipping_address_id2 = OKL_API.G_MISS_CHAR ) THEN
987: l_sidv_rec.shipping_address_id2 := NULL;
988: END IF;
989: IF (l_sidv_rec.shipping_address_code = OKL_API.G_MISS_CHAR ) THEN
990: l_sidv_rec.shipping_address_code := NULL;
991: END IF;
992: IF (l_sidv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
993: l_sidv_rec.attribute_category := NULL;
988: END IF;
989: IF (l_sidv_rec.shipping_address_code = OKL_API.G_MISS_CHAR ) THEN
990: l_sidv_rec.shipping_address_code := NULL;
991: END IF;
992: IF (l_sidv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
993: l_sidv_rec.attribute_category := NULL;
994: END IF;
995: IF (l_sidv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
996: l_sidv_rec.attribute1 := NULL;
991: END IF;
992: IF (l_sidv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
993: l_sidv_rec.attribute_category := NULL;
994: END IF;
995: IF (l_sidv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
996: l_sidv_rec.attribute1 := NULL;
997: END IF;
998: IF (l_sidv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
999: l_sidv_rec.attribute2 := NULL;
994: END IF;
995: IF (l_sidv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
996: l_sidv_rec.attribute1 := NULL;
997: END IF;
998: IF (l_sidv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
999: l_sidv_rec.attribute2 := NULL;
1000: END IF;
1001: IF (l_sidv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
1002: l_sidv_rec.attribute3 := NULL;
997: END IF;
998: IF (l_sidv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
999: l_sidv_rec.attribute2 := NULL;
1000: END IF;
1001: IF (l_sidv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
1002: l_sidv_rec.attribute3 := NULL;
1003: END IF;
1004: IF (l_sidv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
1005: l_sidv_rec.attribute4 := NULL;
1000: END IF;
1001: IF (l_sidv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
1002: l_sidv_rec.attribute3 := NULL;
1003: END IF;
1004: IF (l_sidv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
1005: l_sidv_rec.attribute4 := NULL;
1006: END IF;
1007: IF (l_sidv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
1008: l_sidv_rec.attribute5 := NULL;
1003: END IF;
1004: IF (l_sidv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
1005: l_sidv_rec.attribute4 := NULL;
1006: END IF;
1007: IF (l_sidv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
1008: l_sidv_rec.attribute5 := NULL;
1009: END IF;
1010: IF (l_sidv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
1011: l_sidv_rec.attribute6 := NULL;
1006: END IF;
1007: IF (l_sidv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
1008: l_sidv_rec.attribute5 := NULL;
1009: END IF;
1010: IF (l_sidv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
1011: l_sidv_rec.attribute6 := NULL;
1012: END IF;
1013: IF (l_sidv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
1014: l_sidv_rec.attribute7 := NULL;
1009: END IF;
1010: IF (l_sidv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
1011: l_sidv_rec.attribute6 := NULL;
1012: END IF;
1013: IF (l_sidv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
1014: l_sidv_rec.attribute7 := NULL;
1015: END IF;
1016: IF (l_sidv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
1017: l_sidv_rec.attribute8 := NULL;
1012: END IF;
1013: IF (l_sidv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
1014: l_sidv_rec.attribute7 := NULL;
1015: END IF;
1016: IF (l_sidv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
1017: l_sidv_rec.attribute8 := NULL;
1018: END IF;
1019: IF (l_sidv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
1020: l_sidv_rec.attribute9 := NULL;
1015: END IF;
1016: IF (l_sidv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
1017: l_sidv_rec.attribute8 := NULL;
1018: END IF;
1019: IF (l_sidv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
1020: l_sidv_rec.attribute9 := NULL;
1021: END IF;
1022: IF (l_sidv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
1023: l_sidv_rec.attribute10 := NULL;
1018: END IF;
1019: IF (l_sidv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
1020: l_sidv_rec.attribute9 := NULL;
1021: END IF;
1022: IF (l_sidv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
1023: l_sidv_rec.attribute10 := NULL;
1024: END IF;
1025: IF (l_sidv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
1026: l_sidv_rec.attribute11 := NULL;
1021: END IF;
1022: IF (l_sidv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
1023: l_sidv_rec.attribute10 := NULL;
1024: END IF;
1025: IF (l_sidv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
1026: l_sidv_rec.attribute11 := NULL;
1027: END IF;
1028: IF (l_sidv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
1029: l_sidv_rec.attribute12 := NULL;
1024: END IF;
1025: IF (l_sidv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
1026: l_sidv_rec.attribute11 := NULL;
1027: END IF;
1028: IF (l_sidv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
1029: l_sidv_rec.attribute12 := NULL;
1030: END IF;
1031: IF (l_sidv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
1032: l_sidv_rec.attribute13 := NULL;
1027: END IF;
1028: IF (l_sidv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
1029: l_sidv_rec.attribute12 := NULL;
1030: END IF;
1031: IF (l_sidv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
1032: l_sidv_rec.attribute13 := NULL;
1033: END IF;
1034: IF (l_sidv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
1035: l_sidv_rec.attribute14 := NULL;
1030: END IF;
1031: IF (l_sidv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
1032: l_sidv_rec.attribute13 := NULL;
1033: END IF;
1034: IF (l_sidv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
1035: l_sidv_rec.attribute14 := NULL;
1036: END IF;
1037: IF (l_sidv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
1038: l_sidv_rec.attribute15 := NULL;
1033: END IF;
1034: IF (l_sidv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
1035: l_sidv_rec.attribute14 := NULL;
1036: END IF;
1037: IF (l_sidv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
1038: l_sidv_rec.attribute15 := NULL;
1039: END IF;
1040: IF (l_sidv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
1041: l_sidv_rec.created_by := NULL;
1036: END IF;
1037: IF (l_sidv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
1038: l_sidv_rec.attribute15 := NULL;
1039: END IF;
1040: IF (l_sidv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
1041: l_sidv_rec.created_by := NULL;
1042: END IF;
1043: IF (l_sidv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
1044: l_sidv_rec.creation_date := NULL;
1039: END IF;
1040: IF (l_sidv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
1041: l_sidv_rec.created_by := NULL;
1042: END IF;
1043: IF (l_sidv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
1044: l_sidv_rec.creation_date := NULL;
1045: END IF;
1046: IF (l_sidv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
1047: l_sidv_rec.last_updated_by := NULL;
1042: END IF;
1043: IF (l_sidv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
1044: l_sidv_rec.creation_date := NULL;
1045: END IF;
1046: IF (l_sidv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
1047: l_sidv_rec.last_updated_by := NULL;
1048: END IF;
1049: IF (l_sidv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
1050: l_sidv_rec.last_update_date := NULL;
1045: END IF;
1046: IF (l_sidv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
1047: l_sidv_rec.last_updated_by := NULL;
1048: END IF;
1049: IF (l_sidv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
1050: l_sidv_rec.last_update_date := NULL;
1051: END IF;
1052: IF (l_sidv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
1053: l_sidv_rec.last_update_login := NULL;
1048: END IF;
1049: IF (l_sidv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
1050: l_sidv_rec.last_update_date := NULL;
1051: END IF;
1052: IF (l_sidv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
1053: l_sidv_rec.last_update_login := NULL;
1054: END IF;
1055: RETURN(l_sidv_rec);
1056: END null_out_defaults;
1062: -----------------------------------------------------
1063: FUNCTION Validate_Attributes (
1064: p_sidv_rec IN sidv_rec_type
1065: ) RETURN VARCHAR2 IS
1066: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1067: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1068: BEGIN
1069: -- Call OKC_UTIL.ADD_VIEW to prepare the PL/SQL table to hold columns of view
1070: OKC_UTIL.ADD_VIEW('OKL_SUPP_INVOICE_DTLS_V', x_return_status);
1063: FUNCTION Validate_Attributes (
1064: p_sidv_rec IN sidv_rec_type
1065: ) RETURN VARCHAR2 IS
1066: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1067: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1068: BEGIN
1069: -- Call OKC_UTIL.ADD_VIEW to prepare the PL/SQL table to hold columns of view
1070: OKC_UTIL.ADD_VIEW('OKL_SUPP_INVOICE_DTLS_V', x_return_status);
1071: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1067: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1068: BEGIN
1069: -- Call OKC_UTIL.ADD_VIEW to prepare the PL/SQL table to hold columns of view
1070: OKC_UTIL.ADD_VIEW('OKL_SUPP_INVOICE_DTLS_V', x_return_status);
1071: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1072: l_return_status := x_return_status;
1073: RAISE G_EXCEPTION_HALT_VALIDATION;
1074: END IF;
1075: IF p_sidv_rec.id = OKL_API.G_MISS_NUM OR
1071: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1072: l_return_status := x_return_status;
1073: RAISE G_EXCEPTION_HALT_VALIDATION;
1074: END IF;
1075: IF p_sidv_rec.id = OKL_API.G_MISS_NUM OR
1076: p_sidv_rec.id IS NULL THEN
1077: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1078: x_return_status := OKL_API.G_RET_STS_ERROR;
1079: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1073: RAISE G_EXCEPTION_HALT_VALIDATION;
1074: END IF;
1075: IF p_sidv_rec.id = OKL_API.G_MISS_NUM OR
1076: p_sidv_rec.id IS NULL THEN
1077: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1078: x_return_status := OKL_API.G_RET_STS_ERROR;
1079: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1080: l_return_status := x_return_status;
1081: END IF;
1074: END IF;
1075: IF p_sidv_rec.id = OKL_API.G_MISS_NUM OR
1076: p_sidv_rec.id IS NULL THEN
1077: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1078: x_return_status := OKL_API.G_RET_STS_ERROR;
1079: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1080: l_return_status := x_return_status;
1081: END IF;
1082: ELSIF p_sidv_rec.object_version_number = OKL_API.G_MISS_NUM OR
1075: IF p_sidv_rec.id = OKL_API.G_MISS_NUM OR
1076: p_sidv_rec.id IS NULL THEN
1077: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1078: x_return_status := OKL_API.G_RET_STS_ERROR;
1079: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1080: l_return_status := x_return_status;
1081: END IF;
1082: ELSIF p_sidv_rec.object_version_number = OKL_API.G_MISS_NUM OR
1083: p_sidv_rec.object_version_number IS NULL THEN
1078: x_return_status := OKL_API.G_RET_STS_ERROR;
1079: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1080: l_return_status := x_return_status;
1081: END IF;
1082: ELSIF p_sidv_rec.object_version_number = OKL_API.G_MISS_NUM OR
1083: p_sidv_rec.object_version_number IS NULL THEN
1084: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1085: x_return_status := OKL_API.G_RET_STS_ERROR;
1086: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1080: l_return_status := x_return_status;
1081: END IF;
1082: ELSIF p_sidv_rec.object_version_number = OKL_API.G_MISS_NUM OR
1083: p_sidv_rec.object_version_number IS NULL THEN
1084: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1085: x_return_status := OKL_API.G_RET_STS_ERROR;
1086: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1087: l_return_status := x_return_status;
1088: END IF;
1081: END IF;
1082: ELSIF p_sidv_rec.object_version_number = OKL_API.G_MISS_NUM OR
1083: p_sidv_rec.object_version_number IS NULL THEN
1084: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1085: x_return_status := OKL_API.G_RET_STS_ERROR;
1086: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1087: l_return_status := x_return_status;
1088: END IF;
1089: END IF;
1082: ELSIF p_sidv_rec.object_version_number = OKL_API.G_MISS_NUM OR
1083: p_sidv_rec.object_version_number IS NULL THEN
1084: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1085: x_return_status := OKL_API.G_RET_STS_ERROR;
1086: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1087: l_return_status := x_return_status;
1088: END IF;
1089: END IF;
1090: --*****************************Hand code *******************--
1088: END IF;
1089: END IF;
1090: --*****************************Hand code *******************--
1091: validate_cle_id(x_return_status, p_sidv_rec.cle_id);
1092: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1093: l_return_status := x_return_status;
1094: END IF;
1095: validate_fa_cle_id(x_return_status, p_sidv_rec.fa_cle_id);
1096: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1092: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1093: l_return_status := x_return_status;
1094: END IF;
1095: validate_fa_cle_id(x_return_status, p_sidv_rec.fa_cle_id);
1096: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1097: l_return_status := x_return_status;
1098: END IF;
1099: validate_shipping_id1(x_return_status, p_sidv_rec.shipping_address_id1);
1100: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1096: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1097: l_return_status := x_return_status;
1098: END IF;
1099: validate_shipping_id1(x_return_status, p_sidv_rec.shipping_address_id1);
1100: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1101: l_return_status := x_return_status;
1102: END IF;
1103: validate_shipping_id2(x_return_status,p_sidv_rec.shipping_address_id1, p_sidv_rec.shipping_address_id2);
1104: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1100: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1101: l_return_status := x_return_status;
1102: END IF;
1103: validate_shipping_id2(x_return_status,p_sidv_rec.shipping_address_id1, p_sidv_rec.shipping_address_id2);
1104: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1105: l_return_status := x_return_status;
1106: END IF;
1107: validate_shipping_code(x_return_status, p_sidv_rec.shipping_address_code);
1108: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1104: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1105: l_return_status := x_return_status;
1106: END IF;
1107: validate_shipping_code(x_return_status, p_sidv_rec.shipping_address_code);
1108: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1109: l_return_status := x_return_status;
1110: END IF;
1111: --*****************************Hand code *******************--
1112: RETURN(l_return_status);
1111: --*****************************Hand code *******************--
1112: RETURN(l_return_status);
1113: EXCEPTION
1114: WHEN OTHERS THEN
1115: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1116: ,p_msg_name => G_UNEXPECTED_ERROR
1117: ,p_token1 => G_SQLCODE_TOKEN
1118: ,p_token1_value => SQLCODE
1119: ,p_token2 => G_SQLERRM_TOKEN
1117: ,p_token1 => G_SQLCODE_TOKEN
1118: ,p_token1_value => SQLCODE
1119: ,p_token2 => G_SQLERRM_TOKEN
1120: ,p_token2_value => SQLERRM);
1121: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1122: RETURN(l_return_status);
1123: END Validate_Attributes;
1124: ---------------------------------------------------------------------------
1125: -- PROCEDURE Validate_Record
1128: -- Validate Record for:OKL_SUPP_INVOICE_DTLS_V --
1129: -------------------------------------------------
1130: FUNCTION Validate_Record (p_sidv_rec IN sidv_rec_type)
1131: RETURN VARCHAR2 IS
1132: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1133: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1134: BEGIN
1135: --*****************************Hand code *******************--
1136: validate_inv_due_date(x_return_status, p_sidv_rec);
1129: -------------------------------------------------
1130: FUNCTION Validate_Record (p_sidv_rec IN sidv_rec_type)
1131: RETURN VARCHAR2 IS
1132: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1133: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1134: BEGIN
1135: --*****************************Hand code *******************--
1136: validate_inv_due_date(x_return_status, p_sidv_rec);
1137: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1133: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1134: BEGIN
1135: --*****************************Hand code *******************--
1136: validate_inv_due_date(x_return_status, p_sidv_rec);
1137: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1138: l_return_status := x_return_status;
1139: RAISE G_EXCEPTION_HALT_VALIDATION;
1140: END IF;
1141: --*****************************Hand code *******************--
1143: EXCEPTION
1144: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1145: RETURN(l_return_status);
1146: WHEN OTHERS THEN
1147: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1148: ,p_msg_name => G_UNEXPECTED_ERROR
1149: ,p_token1 => G_SQLCODE_TOKEN
1150: ,p_token1_value => SQLCODE
1151: ,p_token2 => G_SQLERRM_TOKEN
1149: ,p_token1 => G_SQLCODE_TOKEN
1150: ,p_token1_value => SQLCODE
1151: ,p_token2 => G_SQLERRM_TOKEN
1152: ,p_token2_value => SQLERRM);
1153: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1154: RETURN(l_return_status);
1155: END Validate_Record;
1156: ---------------------------------------------------------------------------
1157: -- PROCEDURE Migrate
1276: -- validate_row for:OKL_SUPP_INVOICE_DTLS_V --
1277: ----------------------------------------------
1278: PROCEDURE validate_row(
1279: p_api_version IN NUMBER,
1280: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1281: x_return_status OUT NOCOPY VARCHAR2,
1282: x_msg_count OUT NOCOPY NUMBER,
1283: x_msg_data OUT NOCOPY VARCHAR2,
1284: p_sidv_rec IN sidv_rec_type) IS
1284: p_sidv_rec IN sidv_rec_type) IS
1285:
1286: l_api_version CONSTANT NUMBER := 1;
1287: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1288: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1289: l_sidv_rec sidv_rec_type := p_sidv_rec;
1290: l_sid_rec sid_rec_type;
1291: l_sid_rec sid_rec_type;
1292: BEGIN
1289: l_sidv_rec sidv_rec_type := p_sidv_rec;
1290: l_sid_rec sid_rec_type;
1291: l_sid_rec sid_rec_type;
1292: BEGIN
1293: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1294: G_PKG_NAME,
1295: p_init_msg_list,
1296: l_api_version,
1297: p_api_version,
1296: l_api_version,
1297: p_api_version,
1298: '_PVT',
1299: x_return_status);
1300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1297: p_api_version,
1298: '_PVT',
1299: x_return_status);
1300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1305: --- Validate all non-missing attributes (Item Level Validation)
1298: '_PVT',
1299: x_return_status);
1300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1305: --- Validate all non-missing attributes (Item Level Validation)
1306: l_return_status := Validate_Attributes(l_sidv_rec);
1299: x_return_status);
1300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1303: RAISE OKL_API.G_EXCEPTION_ERROR;
1304: END IF;
1305: --- Validate all non-missing attributes (Item Level Validation)
1306: l_return_status := Validate_Attributes(l_sidv_rec);
1307: --- If any errors happen abort API
1304: END IF;
1305: --- Validate all non-missing attributes (Item Level Validation)
1306: l_return_status := Validate_Attributes(l_sidv_rec);
1307: --- If any errors happen abort API
1308: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1310: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1311: RAISE OKL_API.G_EXCEPTION_ERROR;
1312: END IF;
1305: --- Validate all non-missing attributes (Item Level Validation)
1306: l_return_status := Validate_Attributes(l_sidv_rec);
1307: --- If any errors happen abort API
1308: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1310: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1311: RAISE OKL_API.G_EXCEPTION_ERROR;
1312: END IF;
1313: l_return_status := Validate_Record(l_sidv_rec);
1306: l_return_status := Validate_Attributes(l_sidv_rec);
1307: --- If any errors happen abort API
1308: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1310: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1311: RAISE OKL_API.G_EXCEPTION_ERROR;
1312: END IF;
1313: l_return_status := Validate_Record(l_sidv_rec);
1314: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1307: --- If any errors happen abort API
1308: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1310: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1311: RAISE OKL_API.G_EXCEPTION_ERROR;
1312: END IF;
1313: l_return_status := Validate_Record(l_sidv_rec);
1314: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1310: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1311: RAISE OKL_API.G_EXCEPTION_ERROR;
1312: END IF;
1313: l_return_status := Validate_Record(l_sidv_rec);
1314: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1316: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1317: RAISE OKL_API.G_EXCEPTION_ERROR;
1318: END IF;
1311: RAISE OKL_API.G_EXCEPTION_ERROR;
1312: END IF;
1313: l_return_status := Validate_Record(l_sidv_rec);
1314: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1316: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1317: RAISE OKL_API.G_EXCEPTION_ERROR;
1318: END IF;
1319: x_return_status := l_return_status;
1312: END IF;
1313: l_return_status := Validate_Record(l_sidv_rec);
1314: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1316: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1317: RAISE OKL_API.G_EXCEPTION_ERROR;
1318: END IF;
1319: x_return_status := l_return_status;
1320: EXCEPTION
1313: l_return_status := Validate_Record(l_sidv_rec);
1314: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1316: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1317: RAISE OKL_API.G_EXCEPTION_ERROR;
1318: END IF;
1319: x_return_status := l_return_status;
1320: EXCEPTION
1321: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1317: RAISE OKL_API.G_EXCEPTION_ERROR;
1318: END IF;
1319: x_return_status := l_return_status;
1320: EXCEPTION
1321: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1322: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1323: (
1324: l_api_name,
1325: G_PKG_NAME,
1318: END IF;
1319: x_return_status := l_return_status;
1320: EXCEPTION
1321: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1322: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1323: (
1324: l_api_name,
1325: G_PKG_NAME,
1326: 'OKL_API.G_RET_STS_ERROR',
1322: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1323: (
1324: l_api_name,
1325: G_PKG_NAME,
1326: 'OKL_API.G_RET_STS_ERROR',
1327: x_msg_count,
1328: x_msg_data,
1329: '_PVT'
1330: );
1327: x_msg_count,
1328: x_msg_data,
1329: '_PVT'
1330: );
1331: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1332: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1333: (
1334: l_api_name,
1335: G_PKG_NAME,
1328: x_msg_data,
1329: '_PVT'
1330: );
1331: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1332: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1333: (
1334: l_api_name,
1335: G_PKG_NAME,
1336: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1332: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1333: (
1334: l_api_name,
1335: G_PKG_NAME,
1336: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1337: x_msg_count,
1338: x_msg_data,
1339: '_PVT'
1340: );
1338: x_msg_data,
1339: '_PVT'
1340: );
1341: WHEN OTHERS THEN
1342: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1343: (
1344: l_api_name,
1345: G_PKG_NAME,
1346: 'OTHERS',
1353: -- PL/SQL TBL validate_row for:OKL_SUPP_INVOICE_DTLS_V --
1354: ---------------------------------------------------------
1355: PROCEDURE validate_row(
1356: p_api_version IN NUMBER,
1357: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1358: x_return_status OUT NOCOPY VARCHAR2,
1359: x_msg_count OUT NOCOPY NUMBER,
1360: x_msg_data OUT NOCOPY VARCHAR2,
1361: p_sidv_tbl IN sidv_tbl_type) IS
1363: l_api_version CONSTANT NUMBER := 1;
1364: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1365: i NUMBER := 0;
1366: BEGIN
1367: OKL_API.init_msg_list(p_init_msg_list);
1368: -- Make sure PL/SQL table has records in it before passing
1369: IF (p_sidv_tbl.COUNT > 0) THEN
1370: i := p_sidv_tbl.FIRST;
1371: LOOP
1379: EXIT WHEN (i = p_sidv_tbl.LAST);
1380: i := p_sidv_tbl.NEXT(i);
1381: END LOOP;
1382: END IF;
1383: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1384: EXCEPTION
1385: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1386: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1387: (
1381: END LOOP;
1382: END IF;
1383: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1384: EXCEPTION
1385: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1386: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1387: (
1388: l_api_name,
1389: G_PKG_NAME,
1382: END IF;
1383: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1384: EXCEPTION
1385: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1386: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1387: (
1388: l_api_name,
1389: G_PKG_NAME,
1390: 'OKL_API.G_RET_STS_ERROR',
1386: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1387: (
1388: l_api_name,
1389: G_PKG_NAME,
1390: 'OKL_API.G_RET_STS_ERROR',
1391: x_msg_count,
1392: x_msg_data,
1393: '_PVT'
1394: );
1391: x_msg_count,
1392: x_msg_data,
1393: '_PVT'
1394: );
1395: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1396: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1397: (
1398: l_api_name,
1399: G_PKG_NAME,
1392: x_msg_data,
1393: '_PVT'
1394: );
1395: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1396: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1397: (
1398: l_api_name,
1399: G_PKG_NAME,
1400: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1396: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1397: (
1398: l_api_name,
1399: G_PKG_NAME,
1400: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1401: x_msg_count,
1402: x_msg_data,
1403: '_PVT'
1404: );
1402: x_msg_data,
1403: '_PVT'
1404: );
1405: WHEN OTHERS THEN
1406: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1407: (
1408: l_api_name,
1409: G_PKG_NAME,
1410: 'OTHERS',
1572: ------------------------------------------
1573: -- insert_row for:OKL_SUPP_INVOICE_DTLS --
1574: ------------------------------------------
1575: PROCEDURE insert_row(
1576: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1577: x_return_status OUT NOCOPY VARCHAR2,
1578: x_msg_count OUT NOCOPY NUMBER,
1579: x_msg_data OUT NOCOPY VARCHAR2,
1580: p_sid_rec IN sid_rec_type,
1581: x_sid_rec OUT NOCOPY sid_rec_type) IS
1582:
1583: l_api_version CONSTANT NUMBER := 1;
1584: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1585: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1586: l_sid_rec sid_rec_type := p_sid_rec;
1587: l_def_sid_rec sid_rec_type;
1588: ----------------------------------------------
1589: -- Set_Attributes for:OKL_SUPP_INVOICE_DTLS --
1591: FUNCTION Set_Attributes (
1592: p_sid_rec IN sid_rec_type,
1593: x_sid_rec OUT NOCOPY sid_rec_type
1594: ) RETURN VARCHAR2 IS
1595: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1596: BEGIN
1597: x_sid_rec := p_sid_rec;
1598: RETURN(l_return_status);
1599: END Set_Attributes;
1597: x_sid_rec := p_sid_rec;
1598: RETURN(l_return_status);
1599: END Set_Attributes;
1600: BEGIN
1601: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1602: p_init_msg_list,
1603: '_PVT',
1604: x_return_status);
1605: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1601: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1602: p_init_msg_list,
1603: '_PVT',
1604: x_return_status);
1605: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1608: RAISE OKL_API.G_EXCEPTION_ERROR;
1609: END IF;
1602: p_init_msg_list,
1603: '_PVT',
1604: x_return_status);
1605: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1608: RAISE OKL_API.G_EXCEPTION_ERROR;
1609: END IF;
1610: --- Setting item atributes
1603: '_PVT',
1604: x_return_status);
1605: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1608: RAISE OKL_API.G_EXCEPTION_ERROR;
1609: END IF;
1610: --- Setting item atributes
1611: l_return_status := Set_Attributes(
1604: x_return_status);
1605: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1608: RAISE OKL_API.G_EXCEPTION_ERROR;
1609: END IF;
1610: --- Setting item atributes
1611: l_return_status := Set_Attributes(
1612: p_sid_rec, -- IN
1611: l_return_status := Set_Attributes(
1612: p_sid_rec, -- IN
1613: l_sid_rec); -- OUT
1614: --- If any errors happen abort API
1615: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1616: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1617: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1618: RAISE OKL_API.G_EXCEPTION_ERROR;
1619: END IF;
1612: p_sid_rec, -- IN
1613: l_sid_rec); -- OUT
1614: --- If any errors happen abort API
1615: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1616: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1617: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1618: RAISE OKL_API.G_EXCEPTION_ERROR;
1619: END IF;
1620: INSERT INTO OKL_SUPP_INVOICE_DTLS(
1613: l_sid_rec); -- OUT
1614: --- If any errors happen abort API
1615: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1616: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1617: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1618: RAISE OKL_API.G_EXCEPTION_ERROR;
1619: END IF;
1620: INSERT INTO OKL_SUPP_INVOICE_DTLS(
1621: id,
1614: --- If any errors happen abort API
1615: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1616: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1617: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1618: RAISE OKL_API.G_EXCEPTION_ERROR;
1619: END IF;
1620: INSERT INTO OKL_SUPP_INVOICE_DTLS(
1621: id,
1622: object_version_number,
1683: l_sid_rec.last_update_login);
1684: -- Set OUT values
1685: x_sid_rec := l_sid_rec;
1686: x_return_status := l_return_status;
1687: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1688: EXCEPTION
1689: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1690: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1691: (
1685: x_sid_rec := l_sid_rec;
1686: x_return_status := l_return_status;
1687: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1688: EXCEPTION
1689: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1690: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1691: (
1692: l_api_name,
1693: G_PKG_NAME,
1686: x_return_status := l_return_status;
1687: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1688: EXCEPTION
1689: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1690: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1691: (
1692: l_api_name,
1693: G_PKG_NAME,
1694: 'OKL_API.G_RET_STS_ERROR',
1690: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1691: (
1692: l_api_name,
1693: G_PKG_NAME,
1694: 'OKL_API.G_RET_STS_ERROR',
1695: x_msg_count,
1696: x_msg_data,
1697: '_PVT'
1698: );
1695: x_msg_count,
1696: x_msg_data,
1697: '_PVT'
1698: );
1699: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1700: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1701: (
1702: l_api_name,
1703: G_PKG_NAME,
1696: x_msg_data,
1697: '_PVT'
1698: );
1699: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1700: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1701: (
1702: l_api_name,
1703: G_PKG_NAME,
1704: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1700: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1701: (
1702: l_api_name,
1703: G_PKG_NAME,
1704: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1705: x_msg_count,
1706: x_msg_data,
1707: '_PVT'
1708: );
1706: x_msg_data,
1707: '_PVT'
1708: );
1709: WHEN OTHERS THEN
1710: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1711: (
1712: l_api_name,
1713: G_PKG_NAME,
1714: 'OTHERS',
1721: -- insert_row for :OKL_SUPP_INVOICE_DTLS_V --
1722: ---------------------------------------------
1723: PROCEDURE insert_row(
1724: p_api_version IN NUMBER,
1725: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1726: x_return_status OUT NOCOPY VARCHAR2,
1727: x_msg_count OUT NOCOPY NUMBER,
1728: x_msg_data OUT NOCOPY VARCHAR2,
1729: p_sidv_rec IN sidv_rec_type,
1730: x_sidv_rec OUT NOCOPY sidv_rec_type) IS
1731:
1732: l_api_version CONSTANT NUMBER := 1;
1733: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1734: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1735: l_sidv_rec sidv_rec_type := p_sidv_rec;
1736: l_def_sidv_rec sidv_rec_type;
1737: l_sid_rec sid_rec_type;
1738: lx_sid_rec sid_rec_type;
1757: FUNCTION Set_Attributes (
1758: p_sidv_rec IN sidv_rec_type,
1759: x_sidv_rec OUT NOCOPY sidv_rec_type
1760: ) RETURN VARCHAR2 IS
1761: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1762: BEGIN
1763: x_sidv_rec := p_sidv_rec;
1764: x_sidv_rec.OBJECT_VERSION_NUMBER := 1;
1765: RETURN(l_return_status);
1764: x_sidv_rec.OBJECT_VERSION_NUMBER := 1;
1765: RETURN(l_return_status);
1766: END Set_Attributes;
1767: BEGIN
1768: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1769: G_PKG_NAME,
1770: p_init_msg_list,
1771: l_api_version,
1772: p_api_version,
1771: l_api_version,
1772: p_api_version,
1773: '_PVT',
1774: x_return_status);
1775: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_ERROR;
1779: END IF;
1772: p_api_version,
1773: '_PVT',
1774: x_return_status);
1775: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_ERROR;
1779: END IF;
1780: l_sidv_rec := null_out_defaults(p_sidv_rec);
1773: '_PVT',
1774: x_return_status);
1775: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_ERROR;
1779: END IF;
1780: l_sidv_rec := null_out_defaults(p_sidv_rec);
1781: -- Set primary key value
1774: x_return_status);
1775: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_ERROR;
1779: END IF;
1780: l_sidv_rec := null_out_defaults(p_sidv_rec);
1781: -- Set primary key value
1782: l_sidv_rec.ID := get_seq_id;
1784: l_return_Status := Set_Attributes(
1785: l_sidv_rec, -- IN
1786: l_def_sidv_rec); -- OUT
1787: --- If any errors happen abort API
1788: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1791: RAISE OKL_API.G_EXCEPTION_ERROR;
1792: END IF;
1785: l_sidv_rec, -- IN
1786: l_def_sidv_rec); -- OUT
1787: --- If any errors happen abort API
1788: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1791: RAISE OKL_API.G_EXCEPTION_ERROR;
1792: END IF;
1793: l_def_sidv_rec := fill_who_columns(l_def_sidv_rec);
1786: l_def_sidv_rec); -- OUT
1787: --- If any errors happen abort API
1788: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1791: RAISE OKL_API.G_EXCEPTION_ERROR;
1792: END IF;
1793: l_def_sidv_rec := fill_who_columns(l_def_sidv_rec);
1794: --- Validate all non-missing attributes (Item Level Validation)
1787: --- If any errors happen abort API
1788: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1791: RAISE OKL_API.G_EXCEPTION_ERROR;
1792: END IF;
1793: l_def_sidv_rec := fill_who_columns(l_def_sidv_rec);
1794: --- Validate all non-missing attributes (Item Level Validation)
1795: l_return_status := Validate_Attributes(l_def_sidv_rec);
1793: l_def_sidv_rec := fill_who_columns(l_def_sidv_rec);
1794: --- Validate all non-missing attributes (Item Level Validation)
1795: l_return_status := Validate_Attributes(l_def_sidv_rec);
1796: --- If any errors happen abort API
1797: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1800: RAISE OKL_API.G_EXCEPTION_ERROR;
1801: END IF;
1794: --- Validate all non-missing attributes (Item Level Validation)
1795: l_return_status := Validate_Attributes(l_def_sidv_rec);
1796: --- If any errors happen abort API
1797: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1800: RAISE OKL_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: l_return_status := Validate_Record(l_def_sidv_rec);
1795: l_return_status := Validate_Attributes(l_def_sidv_rec);
1796: --- If any errors happen abort API
1797: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1800: RAISE OKL_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: l_return_status := Validate_Record(l_def_sidv_rec);
1803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1796: --- If any errors happen abort API
1797: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1800: RAISE OKL_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: l_return_status := Validate_Record(l_def_sidv_rec);
1803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1799: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1800: RAISE OKL_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: l_return_status := Validate_Record(l_def_sidv_rec);
1803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_ERROR;
1807: END IF;
1800: RAISE OKL_API.G_EXCEPTION_ERROR;
1801: END IF;
1802: l_return_status := Validate_Record(l_def_sidv_rec);
1803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_ERROR;
1807: END IF;
1808: -----------------------------------------
1801: END IF;
1802: l_return_status := Validate_Record(l_def_sidv_rec);
1803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_ERROR;
1807: END IF;
1808: -----------------------------------------
1809: -- Move VIEW record to "Child" records --
1802: l_return_status := Validate_Record(l_def_sidv_rec);
1803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_ERROR;
1807: END IF;
1808: -----------------------------------------
1809: -- Move VIEW record to "Child" records --
1810: -----------------------------------------
1819: x_msg_data,
1820: l_sid_rec,
1821: lx_sid_rec
1822: );
1823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1825: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1826: RAISE OKL_API.G_EXCEPTION_ERROR;
1827: END IF;
1820: l_sid_rec,
1821: lx_sid_rec
1822: );
1823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1825: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1826: RAISE OKL_API.G_EXCEPTION_ERROR;
1827: END IF;
1828: migrate(lx_sid_rec, l_def_sidv_rec);
1821: lx_sid_rec
1822: );
1823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1825: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1826: RAISE OKL_API.G_EXCEPTION_ERROR;
1827: END IF;
1828: migrate(lx_sid_rec, l_def_sidv_rec);
1829: -- Set OUT values
1822: );
1823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1825: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1826: RAISE OKL_API.G_EXCEPTION_ERROR;
1827: END IF;
1828: migrate(lx_sid_rec, l_def_sidv_rec);
1829: -- Set OUT values
1830: x_sidv_rec := l_def_sidv_rec;
1828: migrate(lx_sid_rec, l_def_sidv_rec);
1829: -- Set OUT values
1830: x_sidv_rec := l_def_sidv_rec;
1831: x_return_status := l_return_status;
1832: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1833: EXCEPTION
1834: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1835: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1836: (
1830: x_sidv_rec := l_def_sidv_rec;
1831: x_return_status := l_return_status;
1832: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1833: EXCEPTION
1834: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1835: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1836: (
1837: l_api_name,
1838: G_PKG_NAME,
1831: x_return_status := l_return_status;
1832: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1833: EXCEPTION
1834: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1835: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1836: (
1837: l_api_name,
1838: G_PKG_NAME,
1839: 'OKL_API.G_RET_STS_ERROR',
1835: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1836: (
1837: l_api_name,
1838: G_PKG_NAME,
1839: 'OKL_API.G_RET_STS_ERROR',
1840: x_msg_count,
1841: x_msg_data,
1842: '_PVT'
1843: );
1840: x_msg_count,
1841: x_msg_data,
1842: '_PVT'
1843: );
1844: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1845: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1846: (
1847: l_api_name,
1848: G_PKG_NAME,
1841: x_msg_data,
1842: '_PVT'
1843: );
1844: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1845: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1846: (
1847: l_api_name,
1848: G_PKG_NAME,
1849: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1845: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1846: (
1847: l_api_name,
1848: G_PKG_NAME,
1849: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1850: x_msg_count,
1851: x_msg_data,
1852: '_PVT'
1853: );
1851: x_msg_data,
1852: '_PVT'
1853: );
1854: WHEN OTHERS THEN
1855: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1856: (
1857: l_api_name,
1858: G_PKG_NAME,
1859: 'OTHERS',
1866: -- PL/SQL TBL insert_row for:SIDV_TBL --
1867: ----------------------------------------
1868: PROCEDURE insert_row(
1869: p_api_version IN NUMBER,
1870: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1871: x_return_status OUT NOCOPY VARCHAR2,
1872: x_msg_count OUT NOCOPY NUMBER,
1873: x_msg_data OUT NOCOPY VARCHAR2,
1874: p_sidv_tbl IN sidv_tbl_type,
1877: l_api_version CONSTANT NUMBER := 1;
1878: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1879: i NUMBER := 0;
1880: BEGIN
1881: OKL_API.init_msg_list(p_init_msg_list);
1882: -- Make sure PL/SQL table has records in it before passing
1883: IF (p_sidv_tbl.COUNT > 0) THEN
1884: i := p_sidv_tbl.FIRST;
1885: LOOP
1894: EXIT WHEN (i = p_sidv_tbl.LAST);
1895: i := p_sidv_tbl.NEXT(i);
1896: END LOOP;
1897: END IF;
1898: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1899: EXCEPTION
1900: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1901: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1902: (
1896: END LOOP;
1897: END IF;
1898: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1899: EXCEPTION
1900: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1901: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1902: (
1903: l_api_name,
1904: G_PKG_NAME,
1897: END IF;
1898: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1899: EXCEPTION
1900: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1901: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1902: (
1903: l_api_name,
1904: G_PKG_NAME,
1905: 'OKL_API.G_RET_STS_ERROR',
1901: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1902: (
1903: l_api_name,
1904: G_PKG_NAME,
1905: 'OKL_API.G_RET_STS_ERROR',
1906: x_msg_count,
1907: x_msg_data,
1908: '_PVT'
1909: );
1906: x_msg_count,
1907: x_msg_data,
1908: '_PVT'
1909: );
1910: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1911: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1912: (
1913: l_api_name,
1914: G_PKG_NAME,
1907: x_msg_data,
1908: '_PVT'
1909: );
1910: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1911: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1912: (
1913: l_api_name,
1914: G_PKG_NAME,
1915: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1911: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1912: (
1913: l_api_name,
1914: G_PKG_NAME,
1915: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1916: x_msg_count,
1917: x_msg_data,
1918: '_PVT'
1919: );
1917: x_msg_data,
1918: '_PVT'
1919: );
1920: WHEN OTHERS THEN
1921: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1922: (
1923: l_api_name,
1924: G_PKG_NAME,
1925: 'OTHERS',
1934: ----------------------------------------
1935: -- lock_row for:OKL_SUPP_INVOICE_DTLS --
1936: ----------------------------------------
1937: PROCEDURE lock_row(
1938: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1939: x_return_status OUT NOCOPY VARCHAR2,
1940: x_msg_count OUT NOCOPY NUMBER,
1941: x_msg_data OUT NOCOPY VARCHAR2,
1942: p_sid_rec IN sid_rec_type) IS
1955: FROM OKL_SUPP_INVOICE_DTLS
1956: WHERE ID = p_sid_rec.id;
1957: l_api_version CONSTANT NUMBER := 1;
1958: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1959: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1960: l_object_version_number OKL_SUPP_INVOICE_DTLS.OBJECT_VERSION_NUMBER%TYPE;
1961: lc_object_version_number OKL_SUPP_INVOICE_DTLS.OBJECT_VERSION_NUMBER%TYPE;
1962: l_row_notfound BOOLEAN := FALSE;
1963: lc_row_notfound BOOLEAN := FALSE;
1961: lc_object_version_number OKL_SUPP_INVOICE_DTLS.OBJECT_VERSION_NUMBER%TYPE;
1962: l_row_notfound BOOLEAN := FALSE;
1963: lc_row_notfound BOOLEAN := FALSE;
1964: BEGIN
1965: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1966: p_init_msg_list,
1967: '_PVT',
1968: x_return_status);
1969: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1965: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1966: p_init_msg_list,
1967: '_PVT',
1968: x_return_status);
1969: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1972: RAISE OKL_API.G_EXCEPTION_ERROR;
1973: END IF;
1966: p_init_msg_list,
1967: '_PVT',
1968: x_return_status);
1969: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1972: RAISE OKL_API.G_EXCEPTION_ERROR;
1973: END IF;
1974: BEGIN
1967: '_PVT',
1968: x_return_status);
1969: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1972: RAISE OKL_API.G_EXCEPTION_ERROR;
1973: END IF;
1974: BEGIN
1975: OPEN lock_csr(p_sid_rec);
1968: x_return_status);
1969: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1971: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1972: RAISE OKL_API.G_EXCEPTION_ERROR;
1973: END IF;
1974: BEGIN
1975: OPEN lock_csr(p_sid_rec);
1976: FETCH lock_csr INTO l_object_version_number;
1980: WHEN E_Resource_Busy THEN
1981: IF (lock_csr%ISOPEN) THEN
1982: CLOSE lock_csr;
1983: END IF;
1984: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1985: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1986: END;
1987:
1988: IF ( l_row_notfound ) THEN
1991: lc_row_notfound := lchk_csr%NOTFOUND;
1992: CLOSE lchk_csr;
1993: END IF;
1994: IF (lc_row_notfound) THEN
1995: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1996: RAISE OKL_API.G_EXCEPTION_ERROR;
1997: ELSIF lc_object_version_number > p_sid_rec.object_version_number THEN
1998: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1999: RAISE OKL_API.G_EXCEPTION_ERROR;
1992: CLOSE lchk_csr;
1993: END IF;
1994: IF (lc_row_notfound) THEN
1995: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1996: RAISE OKL_API.G_EXCEPTION_ERROR;
1997: ELSIF lc_object_version_number > p_sid_rec.object_version_number THEN
1998: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1999: RAISE OKL_API.G_EXCEPTION_ERROR;
2000: ELSIF lc_object_version_number <> p_sid_rec.object_version_number THEN
1994: IF (lc_row_notfound) THEN
1995: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1996: RAISE OKL_API.G_EXCEPTION_ERROR;
1997: ELSIF lc_object_version_number > p_sid_rec.object_version_number THEN
1998: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1999: RAISE OKL_API.G_EXCEPTION_ERROR;
2000: ELSIF lc_object_version_number <> p_sid_rec.object_version_number THEN
2001: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2002: RAISE OKL_API.G_EXCEPTION_ERROR;
1995: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1996: RAISE OKL_API.G_EXCEPTION_ERROR;
1997: ELSIF lc_object_version_number > p_sid_rec.object_version_number THEN
1998: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1999: RAISE OKL_API.G_EXCEPTION_ERROR;
2000: ELSIF lc_object_version_number <> p_sid_rec.object_version_number THEN
2001: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2002: RAISE OKL_API.G_EXCEPTION_ERROR;
2003: ELSIF lc_object_version_number = -1 THEN
1997: ELSIF lc_object_version_number > p_sid_rec.object_version_number THEN
1998: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1999: RAISE OKL_API.G_EXCEPTION_ERROR;
2000: ELSIF lc_object_version_number <> p_sid_rec.object_version_number THEN
2001: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2002: RAISE OKL_API.G_EXCEPTION_ERROR;
2003: ELSIF lc_object_version_number = -1 THEN
2004: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2005: RAISE OKL_API.G_EXCEPTION_ERROR;
1998: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1999: RAISE OKL_API.G_EXCEPTION_ERROR;
2000: ELSIF lc_object_version_number <> p_sid_rec.object_version_number THEN
2001: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2002: RAISE OKL_API.G_EXCEPTION_ERROR;
2003: ELSIF lc_object_version_number = -1 THEN
2004: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2005: RAISE OKL_API.G_EXCEPTION_ERROR;
2006: END IF;
2000: ELSIF lc_object_version_number <> p_sid_rec.object_version_number THEN
2001: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2002: RAISE OKL_API.G_EXCEPTION_ERROR;
2003: ELSIF lc_object_version_number = -1 THEN
2004: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2005: RAISE OKL_API.G_EXCEPTION_ERROR;
2006: END IF;
2007: x_return_status := l_return_status;
2008: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2001: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2002: RAISE OKL_API.G_EXCEPTION_ERROR;
2003: ELSIF lc_object_version_number = -1 THEN
2004: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2005: RAISE OKL_API.G_EXCEPTION_ERROR;
2006: END IF;
2007: x_return_status := l_return_status;
2008: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2009: EXCEPTION
2004: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2005: RAISE OKL_API.G_EXCEPTION_ERROR;
2006: END IF;
2007: x_return_status := l_return_status;
2008: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2009: EXCEPTION
2010: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2011: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2012: (
2006: END IF;
2007: x_return_status := l_return_status;
2008: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2009: EXCEPTION
2010: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2011: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2012: (
2013: l_api_name,
2014: G_PKG_NAME,
2007: x_return_status := l_return_status;
2008: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2009: EXCEPTION
2010: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2011: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2012: (
2013: l_api_name,
2014: G_PKG_NAME,
2015: 'OKL_API.G_RET_STS_ERROR',
2011: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2012: (
2013: l_api_name,
2014: G_PKG_NAME,
2015: 'OKL_API.G_RET_STS_ERROR',
2016: x_msg_count,
2017: x_msg_data,
2018: '_PVT'
2019: );
2016: x_msg_count,
2017: x_msg_data,
2018: '_PVT'
2019: );
2020: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2021: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2022: (
2023: l_api_name,
2024: G_PKG_NAME,
2017: x_msg_data,
2018: '_PVT'
2019: );
2020: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2021: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2022: (
2023: l_api_name,
2024: G_PKG_NAME,
2025: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2021: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2022: (
2023: l_api_name,
2024: G_PKG_NAME,
2025: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2026: x_msg_count,
2027: x_msg_data,
2028: '_PVT'
2029: );
2027: x_msg_data,
2028: '_PVT'
2029: );
2030: WHEN OTHERS THEN
2031: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2032: (
2033: l_api_name,
2034: G_PKG_NAME,
2035: 'OTHERS',
2042: -- lock_row for: OKL_SUPP_INVOICE_DTLS_V --
2043: -------------------------------------------
2044: PROCEDURE lock_row(
2045: p_api_version IN NUMBER,
2046: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2047: x_return_status OUT NOCOPY VARCHAR2,
2048: x_msg_count OUT NOCOPY NUMBER,
2049: x_msg_data OUT NOCOPY VARCHAR2,
2050: p_sidv_rec IN sidv_rec_type) IS
2050: p_sidv_rec IN sidv_rec_type) IS
2051:
2052: l_api_version CONSTANT NUMBER := 1;
2053: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2054: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2055: l_sid_rec sid_rec_type;
2056: BEGIN
2057: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2058: G_PKG_NAME,
2053: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2054: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2055: l_sid_rec sid_rec_type;
2056: BEGIN
2057: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2058: G_PKG_NAME,
2059: p_init_msg_list,
2060: l_api_version,
2061: p_api_version,
2060: l_api_version,
2061: p_api_version,
2062: '_PVT',
2063: x_return_status);
2064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_ERROR;
2068: END IF;
2061: p_api_version,
2062: '_PVT',
2063: x_return_status);
2064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_ERROR;
2068: END IF;
2069: -----------------------------------------
2062: '_PVT',
2063: x_return_status);
2064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_ERROR;
2068: END IF;
2069: -----------------------------------------
2070: -- Move VIEW record to "Child" records --
2063: x_return_status);
2064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_ERROR;
2068: END IF;
2069: -----------------------------------------
2070: -- Move VIEW record to "Child" records --
2071: -----------------------------------------
2079: x_msg_count,
2080: x_msg_data,
2081: l_sid_rec
2082: );
2083: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2085: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2086: RAISE OKL_API.G_EXCEPTION_ERROR;
2087: END IF;
2080: x_msg_data,
2081: l_sid_rec
2082: );
2083: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2085: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2086: RAISE OKL_API.G_EXCEPTION_ERROR;
2087: END IF;
2088: x_return_status := l_return_status;
2081: l_sid_rec
2082: );
2083: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2085: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2086: RAISE OKL_API.G_EXCEPTION_ERROR;
2087: END IF;
2088: x_return_status := l_return_status;
2089: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2082: );
2083: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2085: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2086: RAISE OKL_API.G_EXCEPTION_ERROR;
2087: END IF;
2088: x_return_status := l_return_status;
2089: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2090: EXCEPTION
2085: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2086: RAISE OKL_API.G_EXCEPTION_ERROR;
2087: END IF;
2088: x_return_status := l_return_status;
2089: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2090: EXCEPTION
2091: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2092: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2093: (
2087: END IF;
2088: x_return_status := l_return_status;
2089: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2090: EXCEPTION
2091: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2092: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2093: (
2094: l_api_name,
2095: G_PKG_NAME,
2088: x_return_status := l_return_status;
2089: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2090: EXCEPTION
2091: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2092: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2093: (
2094: l_api_name,
2095: G_PKG_NAME,
2096: 'OKL_API.G_RET_STS_ERROR',
2092: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2093: (
2094: l_api_name,
2095: G_PKG_NAME,
2096: 'OKL_API.G_RET_STS_ERROR',
2097: x_msg_count,
2098: x_msg_data,
2099: '_PVT'
2100: );
2097: x_msg_count,
2098: x_msg_data,
2099: '_PVT'
2100: );
2101: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2102: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2103: (
2104: l_api_name,
2105: G_PKG_NAME,
2098: x_msg_data,
2099: '_PVT'
2100: );
2101: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2102: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2103: (
2104: l_api_name,
2105: G_PKG_NAME,
2106: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2102: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2103: (
2104: l_api_name,
2105: G_PKG_NAME,
2106: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2107: x_msg_count,
2108: x_msg_data,
2109: '_PVT'
2110: );
2108: x_msg_data,
2109: '_PVT'
2110: );
2111: WHEN OTHERS THEN
2112: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2113: (
2114: l_api_name,
2115: G_PKG_NAME,
2116: 'OTHERS',
2123: -- PL/SQL TBL lock_row for:SIDV_TBL --
2124: --------------------------------------
2125: PROCEDURE lock_row(
2126: p_api_version IN NUMBER,
2127: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2128: x_return_status OUT NOCOPY VARCHAR2,
2129: x_msg_count OUT NOCOPY NUMBER,
2130: x_msg_data OUT NOCOPY VARCHAR2,
2131: p_sidv_tbl IN sidv_tbl_type) IS
2133: l_api_version CONSTANT NUMBER := 1;
2134: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2135: i NUMBER := 0;
2136: BEGIN
2137: OKL_API.init_msg_list(p_init_msg_list);
2138: -- Make sure PL/SQL table has recrods in it before passing
2139: IF (p_sidv_tbl.COUNT > 0) THEN
2140: i := p_sidv_tbl.FIRST;
2141: LOOP
2150: EXIT WHEN (i = p_sidv_tbl.LAST);
2151: i := p_sidv_tbl.NEXT(i);
2152: END LOOP;
2153: END IF;
2154: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2155: EXCEPTION
2156: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2157: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2158: (
2152: END LOOP;
2153: END IF;
2154: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2155: EXCEPTION
2156: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2157: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2158: (
2159: l_api_name,
2160: G_PKG_NAME,
2153: END IF;
2154: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2155: EXCEPTION
2156: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2157: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2158: (
2159: l_api_name,
2160: G_PKG_NAME,
2161: 'OKL_API.G_RET_STS_ERROR',
2157: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2158: (
2159: l_api_name,
2160: G_PKG_NAME,
2161: 'OKL_API.G_RET_STS_ERROR',
2162: x_msg_count,
2163: x_msg_data,
2164: '_PVT'
2165: );
2162: x_msg_count,
2163: x_msg_data,
2164: '_PVT'
2165: );
2166: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2167: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2168: (
2169: l_api_name,
2170: G_PKG_NAME,
2163: x_msg_data,
2164: '_PVT'
2165: );
2166: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2167: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2168: (
2169: l_api_name,
2170: G_PKG_NAME,
2171: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2167: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2168: (
2169: l_api_name,
2170: G_PKG_NAME,
2171: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2172: x_msg_count,
2173: x_msg_data,
2174: '_PVT'
2175: );
2173: x_msg_data,
2174: '_PVT'
2175: );
2176: WHEN OTHERS THEN
2177: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2178: (
2179: l_api_name,
2180: G_PKG_NAME,
2181: 'OTHERS',
2190: ------------------------------------------
2191: -- update_row for:OKL_SUPP_INVOICE_DTLS --
2192: ------------------------------------------
2193: PROCEDURE update_row(
2194: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2195: x_return_status OUT NOCOPY VARCHAR2,
2196: x_msg_count OUT NOCOPY NUMBER,
2197: x_msg_data OUT NOCOPY VARCHAR2,
2198: p_sid_rec IN sid_rec_type,
2199: x_sid_rec OUT NOCOPY sid_rec_type) IS
2200:
2201: l_api_version CONSTANT NUMBER := 1;
2202: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2203: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2204: l_sid_rec sid_rec_type := p_sid_rec;
2205: l_def_sid_rec sid_rec_type;
2206: l_row_notfound BOOLEAN := TRUE;
2207: l_sidh_rec okl_sidh_rec_type;
2214: x_sid_rec OUT NOCOPY sid_rec_type
2215: ) RETURN VARCHAR2 IS
2216: l_sid_rec sid_rec_type;
2217: l_row_notfound BOOLEAN := TRUE;
2218: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2219: BEGIN
2220: x_sid_rec := p_sid_rec;
2221: -- Get current database values
2222: l_sid_rec := get_rec(p_sid_rec, l_return_status);
2223: -- Move the "old" record to the history record:
2224: -- (1) to get the "old" version
2225: -- (2) to avoid 2 hits to the database
2226: migrate(l_sid_rec, l_sidh_rec);
2227: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2228: IF (x_sid_rec.id = OKL_API.G_MISS_NUM)
2229: THEN
2230: x_sid_rec.id := l_sid_rec.id;
2231: END IF;
2224: -- (1) to get the "old" version
2225: -- (2) to avoid 2 hits to the database
2226: migrate(l_sid_rec, l_sidh_rec);
2227: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2228: IF (x_sid_rec.id = OKL_API.G_MISS_NUM)
2229: THEN
2230: x_sid_rec.id := l_sid_rec.id;
2231: END IF;
2232: IF (x_sid_rec.object_version_number = OKL_API.G_MISS_NUM)
2228: IF (x_sid_rec.id = OKL_API.G_MISS_NUM)
2229: THEN
2230: x_sid_rec.id := l_sid_rec.id;
2231: END IF;
2232: IF (x_sid_rec.object_version_number = OKL_API.G_MISS_NUM)
2233: THEN
2234: x_sid_rec.object_version_number := l_sid_rec.object_version_number;
2235: END IF;
2236: IF (x_sid_rec.cle_id = OKL_API.G_MISS_NUM)
2232: IF (x_sid_rec.object_version_number = OKL_API.G_MISS_NUM)
2233: THEN
2234: x_sid_rec.object_version_number := l_sid_rec.object_version_number;
2235: END IF;
2236: IF (x_sid_rec.cle_id = OKL_API.G_MISS_NUM)
2237: THEN
2238: x_sid_rec.cle_id := l_sid_rec.cle_id;
2239: END IF;
2240: IF (x_sid_rec.fa_cle_id = OKL_API.G_MISS_NUM)
2236: IF (x_sid_rec.cle_id = OKL_API.G_MISS_NUM)
2237: THEN
2238: x_sid_rec.cle_id := l_sid_rec.cle_id;
2239: END IF;
2240: IF (x_sid_rec.fa_cle_id = OKL_API.G_MISS_NUM)
2241: THEN
2242: x_sid_rec.fa_cle_id := l_sid_rec.fa_cle_id;
2243: END IF;
2244: IF (x_sid_rec.invoice_number = OKL_API.G_MISS_CHAR)
2240: IF (x_sid_rec.fa_cle_id = OKL_API.G_MISS_NUM)
2241: THEN
2242: x_sid_rec.fa_cle_id := l_sid_rec.fa_cle_id;
2243: END IF;
2244: IF (x_sid_rec.invoice_number = OKL_API.G_MISS_CHAR)
2245: THEN
2246: x_sid_rec.invoice_number := l_sid_rec.invoice_number;
2247: END IF;
2248: IF (x_sid_rec.date_invoiced = OKL_API.G_MISS_DATE)
2244: IF (x_sid_rec.invoice_number = OKL_API.G_MISS_CHAR)
2245: THEN
2246: x_sid_rec.invoice_number := l_sid_rec.invoice_number;
2247: END IF;
2248: IF (x_sid_rec.date_invoiced = OKL_API.G_MISS_DATE)
2249: THEN
2250: x_sid_rec.date_invoiced := l_sid_rec.date_invoiced;
2251: END IF;
2252: IF (x_sid_rec.date_due = OKL_API.G_MISS_DATE)
2248: IF (x_sid_rec.date_invoiced = OKL_API.G_MISS_DATE)
2249: THEN
2250: x_sid_rec.date_invoiced := l_sid_rec.date_invoiced;
2251: END IF;
2252: IF (x_sid_rec.date_due = OKL_API.G_MISS_DATE)
2253: THEN
2254: x_sid_rec.date_due := l_sid_rec.date_due;
2255: END IF;
2256: IF (x_sid_rec.shipping_address_id1 = OKL_API.G_MISS_NUM)
2252: IF (x_sid_rec.date_due = OKL_API.G_MISS_DATE)
2253: THEN
2254: x_sid_rec.date_due := l_sid_rec.date_due;
2255: END IF;
2256: IF (x_sid_rec.shipping_address_id1 = OKL_API.G_MISS_NUM)
2257: THEN
2258: x_sid_rec.shipping_address_id1 := l_sid_rec.shipping_address_id1;
2259: END IF;
2260: IF (x_sid_rec.shipping_address_id2 = OKL_API.G_MISS_CHAR)
2256: IF (x_sid_rec.shipping_address_id1 = OKL_API.G_MISS_NUM)
2257: THEN
2258: x_sid_rec.shipping_address_id1 := l_sid_rec.shipping_address_id1;
2259: END IF;
2260: IF (x_sid_rec.shipping_address_id2 = OKL_API.G_MISS_CHAR)
2261: THEN
2262: x_sid_rec.shipping_address_id2 := l_sid_rec.shipping_address_id2;
2263: END IF;
2264: IF (x_sid_rec.shipping_address_code = OKL_API.G_MISS_CHAR)
2260: IF (x_sid_rec.shipping_address_id2 = OKL_API.G_MISS_CHAR)
2261: THEN
2262: x_sid_rec.shipping_address_id2 := l_sid_rec.shipping_address_id2;
2263: END IF;
2264: IF (x_sid_rec.shipping_address_code = OKL_API.G_MISS_CHAR)
2265: THEN
2266: x_sid_rec.shipping_address_code := l_sid_rec.shipping_address_code;
2267: END IF;
2268: IF (x_sid_rec.attribute_category = OKL_API.G_MISS_CHAR)
2264: IF (x_sid_rec.shipping_address_code = OKL_API.G_MISS_CHAR)
2265: THEN
2266: x_sid_rec.shipping_address_code := l_sid_rec.shipping_address_code;
2267: END IF;
2268: IF (x_sid_rec.attribute_category = OKL_API.G_MISS_CHAR)
2269: THEN
2270: x_sid_rec.attribute_category := l_sid_rec.attribute_category;
2271: END IF;
2272: IF (x_sid_rec.attribute1 = OKL_API.G_MISS_CHAR)
2268: IF (x_sid_rec.attribute_category = OKL_API.G_MISS_CHAR)
2269: THEN
2270: x_sid_rec.attribute_category := l_sid_rec.attribute_category;
2271: END IF;
2272: IF (x_sid_rec.attribute1 = OKL_API.G_MISS_CHAR)
2273: THEN
2274: x_sid_rec.attribute1 := l_sid_rec.attribute1;
2275: END IF;
2276: IF (x_sid_rec.attribute2 = OKL_API.G_MISS_CHAR)
2272: IF (x_sid_rec.attribute1 = OKL_API.G_MISS_CHAR)
2273: THEN
2274: x_sid_rec.attribute1 := l_sid_rec.attribute1;
2275: END IF;
2276: IF (x_sid_rec.attribute2 = OKL_API.G_MISS_CHAR)
2277: THEN
2278: x_sid_rec.attribute2 := l_sid_rec.attribute2;
2279: END IF;
2280: IF (x_sid_rec.attribute3 = OKL_API.G_MISS_CHAR)
2276: IF (x_sid_rec.attribute2 = OKL_API.G_MISS_CHAR)
2277: THEN
2278: x_sid_rec.attribute2 := l_sid_rec.attribute2;
2279: END IF;
2280: IF (x_sid_rec.attribute3 = OKL_API.G_MISS_CHAR)
2281: THEN
2282: x_sid_rec.attribute3 := l_sid_rec.attribute3;
2283: END IF;
2284: IF (x_sid_rec.attribute4 = OKL_API.G_MISS_CHAR)
2280: IF (x_sid_rec.attribute3 = OKL_API.G_MISS_CHAR)
2281: THEN
2282: x_sid_rec.attribute3 := l_sid_rec.attribute3;
2283: END IF;
2284: IF (x_sid_rec.attribute4 = OKL_API.G_MISS_CHAR)
2285: THEN
2286: x_sid_rec.attribute4 := l_sid_rec.attribute4;
2287: END IF;
2288: IF (x_sid_rec.attribute5 = OKL_API.G_MISS_CHAR)
2284: IF (x_sid_rec.attribute4 = OKL_API.G_MISS_CHAR)
2285: THEN
2286: x_sid_rec.attribute4 := l_sid_rec.attribute4;
2287: END IF;
2288: IF (x_sid_rec.attribute5 = OKL_API.G_MISS_CHAR)
2289: THEN
2290: x_sid_rec.attribute5 := l_sid_rec.attribute5;
2291: END IF;
2292: IF (x_sid_rec.attribute6 = OKL_API.G_MISS_CHAR)
2288: IF (x_sid_rec.attribute5 = OKL_API.G_MISS_CHAR)
2289: THEN
2290: x_sid_rec.attribute5 := l_sid_rec.attribute5;
2291: END IF;
2292: IF (x_sid_rec.attribute6 = OKL_API.G_MISS_CHAR)
2293: THEN
2294: x_sid_rec.attribute6 := l_sid_rec.attribute6;
2295: END IF;
2296: IF (x_sid_rec.attribute7 = OKL_API.G_MISS_CHAR)
2292: IF (x_sid_rec.attribute6 = OKL_API.G_MISS_CHAR)
2293: THEN
2294: x_sid_rec.attribute6 := l_sid_rec.attribute6;
2295: END IF;
2296: IF (x_sid_rec.attribute7 = OKL_API.G_MISS_CHAR)
2297: THEN
2298: x_sid_rec.attribute7 := l_sid_rec.attribute7;
2299: END IF;
2300: IF (x_sid_rec.attribute8 = OKL_API.G_MISS_CHAR)
2296: IF (x_sid_rec.attribute7 = OKL_API.G_MISS_CHAR)
2297: THEN
2298: x_sid_rec.attribute7 := l_sid_rec.attribute7;
2299: END IF;
2300: IF (x_sid_rec.attribute8 = OKL_API.G_MISS_CHAR)
2301: THEN
2302: x_sid_rec.attribute8 := l_sid_rec.attribute8;
2303: END IF;
2304: IF (x_sid_rec.attribute9 = OKL_API.G_MISS_CHAR)
2300: IF (x_sid_rec.attribute8 = OKL_API.G_MISS_CHAR)
2301: THEN
2302: x_sid_rec.attribute8 := l_sid_rec.attribute8;
2303: END IF;
2304: IF (x_sid_rec.attribute9 = OKL_API.G_MISS_CHAR)
2305: THEN
2306: x_sid_rec.attribute9 := l_sid_rec.attribute9;
2307: END IF;
2308: IF (x_sid_rec.attribute10 = OKL_API.G_MISS_CHAR)
2304: IF (x_sid_rec.attribute9 = OKL_API.G_MISS_CHAR)
2305: THEN
2306: x_sid_rec.attribute9 := l_sid_rec.attribute9;
2307: END IF;
2308: IF (x_sid_rec.attribute10 = OKL_API.G_MISS_CHAR)
2309: THEN
2310: x_sid_rec.attribute10 := l_sid_rec.attribute10;
2311: END IF;
2312: IF (x_sid_rec.attribute11 = OKL_API.G_MISS_CHAR)
2308: IF (x_sid_rec.attribute10 = OKL_API.G_MISS_CHAR)
2309: THEN
2310: x_sid_rec.attribute10 := l_sid_rec.attribute10;
2311: END IF;
2312: IF (x_sid_rec.attribute11 = OKL_API.G_MISS_CHAR)
2313: THEN
2314: x_sid_rec.attribute11 := l_sid_rec.attribute11;
2315: END IF;
2316: IF (x_sid_rec.attribute12 = OKL_API.G_MISS_CHAR)
2312: IF (x_sid_rec.attribute11 = OKL_API.G_MISS_CHAR)
2313: THEN
2314: x_sid_rec.attribute11 := l_sid_rec.attribute11;
2315: END IF;
2316: IF (x_sid_rec.attribute12 = OKL_API.G_MISS_CHAR)
2317: THEN
2318: x_sid_rec.attribute12 := l_sid_rec.attribute12;
2319: END IF;
2320: IF (x_sid_rec.attribute13 = OKL_API.G_MISS_CHAR)
2316: IF (x_sid_rec.attribute12 = OKL_API.G_MISS_CHAR)
2317: THEN
2318: x_sid_rec.attribute12 := l_sid_rec.attribute12;
2319: END IF;
2320: IF (x_sid_rec.attribute13 = OKL_API.G_MISS_CHAR)
2321: THEN
2322: x_sid_rec.attribute13 := l_sid_rec.attribute13;
2323: END IF;
2324: IF (x_sid_rec.attribute14 = OKL_API.G_MISS_CHAR)
2320: IF (x_sid_rec.attribute13 = OKL_API.G_MISS_CHAR)
2321: THEN
2322: x_sid_rec.attribute13 := l_sid_rec.attribute13;
2323: END IF;
2324: IF (x_sid_rec.attribute14 = OKL_API.G_MISS_CHAR)
2325: THEN
2326: x_sid_rec.attribute14 := l_sid_rec.attribute14;
2327: END IF;
2328: IF (x_sid_rec.attribute15 = OKL_API.G_MISS_CHAR)
2324: IF (x_sid_rec.attribute14 = OKL_API.G_MISS_CHAR)
2325: THEN
2326: x_sid_rec.attribute14 := l_sid_rec.attribute14;
2327: END IF;
2328: IF (x_sid_rec.attribute15 = OKL_API.G_MISS_CHAR)
2329: THEN
2330: x_sid_rec.attribute15 := l_sid_rec.attribute15;
2331: END IF;
2332: IF (x_sid_rec.created_by = OKL_API.G_MISS_NUM)
2328: IF (x_sid_rec.attribute15 = OKL_API.G_MISS_CHAR)
2329: THEN
2330: x_sid_rec.attribute15 := l_sid_rec.attribute15;
2331: END IF;
2332: IF (x_sid_rec.created_by = OKL_API.G_MISS_NUM)
2333: THEN
2334: x_sid_rec.created_by := l_sid_rec.created_by;
2335: END IF;
2336: IF (x_sid_rec.creation_date = OKL_API.G_MISS_DATE)
2332: IF (x_sid_rec.created_by = OKL_API.G_MISS_NUM)
2333: THEN
2334: x_sid_rec.created_by := l_sid_rec.created_by;
2335: END IF;
2336: IF (x_sid_rec.creation_date = OKL_API.G_MISS_DATE)
2337: THEN
2338: x_sid_rec.creation_date := l_sid_rec.creation_date;
2339: END IF;
2340: IF (x_sid_rec.last_updated_by = OKL_API.G_MISS_NUM)
2336: IF (x_sid_rec.creation_date = OKL_API.G_MISS_DATE)
2337: THEN
2338: x_sid_rec.creation_date := l_sid_rec.creation_date;
2339: END IF;
2340: IF (x_sid_rec.last_updated_by = OKL_API.G_MISS_NUM)
2341: THEN
2342: x_sid_rec.last_updated_by := l_sid_rec.last_updated_by;
2343: END IF;
2344: IF (x_sid_rec.last_update_date = OKL_API.G_MISS_DATE)
2340: IF (x_sid_rec.last_updated_by = OKL_API.G_MISS_NUM)
2341: THEN
2342: x_sid_rec.last_updated_by := l_sid_rec.last_updated_by;
2343: END IF;
2344: IF (x_sid_rec.last_update_date = OKL_API.G_MISS_DATE)
2345: THEN
2346: x_sid_rec.last_update_date := l_sid_rec.last_update_date;
2347: END IF;
2348: IF (x_sid_rec.last_update_login = OKL_API.G_MISS_NUM)
2344: IF (x_sid_rec.last_update_date = OKL_API.G_MISS_DATE)
2345: THEN
2346: x_sid_rec.last_update_date := l_sid_rec.last_update_date;
2347: END IF;
2348: IF (x_sid_rec.last_update_login = OKL_API.G_MISS_NUM)
2349: THEN
2350: x_sid_rec.last_update_login := l_sid_rec.last_update_login;
2351: END IF;
2352: END IF;
2358: FUNCTION Set_Attributes (
2359: p_sid_rec IN sid_rec_type,
2360: x_sid_rec OUT NOCOPY sid_rec_type
2361: ) RETURN VARCHAR2 IS
2362: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2363: BEGIN
2364: x_sid_rec := p_sid_rec;
2365: x_sid_rec.OBJECT_VERSION_NUMBER := p_sid_rec.OBJECT_VERSION_NUMBER + 1;
2366: RETURN(l_return_status);
2365: x_sid_rec.OBJECT_VERSION_NUMBER := p_sid_rec.OBJECT_VERSION_NUMBER + 1;
2366: RETURN(l_return_status);
2367: END Set_Attributes;
2368: BEGIN
2369: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2370: p_init_msg_list,
2371: '_PVT',
2372: x_return_status);
2373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2369: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2370: p_init_msg_list,
2371: '_PVT',
2372: x_return_status);
2373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2376: RAISE OKL_API.G_EXCEPTION_ERROR;
2377: END IF;
2370: p_init_msg_list,
2371: '_PVT',
2372: x_return_status);
2373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2376: RAISE OKL_API.G_EXCEPTION_ERROR;
2377: END IF;
2378: --- Setting item attributes
2371: '_PVT',
2372: x_return_status);
2373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2376: RAISE OKL_API.G_EXCEPTION_ERROR;
2377: END IF;
2378: --- Setting item attributes
2379: l_return_status := Set_Attributes(
2372: x_return_status);
2373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2376: RAISE OKL_API.G_EXCEPTION_ERROR;
2377: END IF;
2378: --- Setting item attributes
2379: l_return_status := Set_Attributes(
2380: p_sid_rec, -- IN
2379: l_return_status := Set_Attributes(
2380: p_sid_rec, -- IN
2381: l_sid_rec); -- OUT
2382: --- If any errors happen abort API
2383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2386: RAISE OKL_API.G_EXCEPTION_ERROR;
2387: END IF;
2380: p_sid_rec, -- IN
2381: l_sid_rec); -- OUT
2382: --- If any errors happen abort API
2383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2386: RAISE OKL_API.G_EXCEPTION_ERROR;
2387: END IF;
2388: l_return_status := populate_new_record(l_sid_rec, l_def_sid_rec);
2381: l_sid_rec); -- OUT
2382: --- If any errors happen abort API
2383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2386: RAISE OKL_API.G_EXCEPTION_ERROR;
2387: END IF;
2388: l_return_status := populate_new_record(l_sid_rec, l_def_sid_rec);
2389: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2382: --- If any errors happen abort API
2383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2386: RAISE OKL_API.G_EXCEPTION_ERROR;
2387: END IF;
2388: l_return_status := populate_new_record(l_sid_rec, l_def_sid_rec);
2389: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2386: RAISE OKL_API.G_EXCEPTION_ERROR;
2387: END IF;
2388: l_return_status := populate_new_record(l_sid_rec, l_def_sid_rec);
2389: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2391: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2392: RAISE OKL_API.G_EXCEPTION_ERROR;
2393: END IF;
2386: RAISE OKL_API.G_EXCEPTION_ERROR;
2387: END IF;
2388: l_return_status := populate_new_record(l_sid_rec, l_def_sid_rec);
2389: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2391: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2392: RAISE OKL_API.G_EXCEPTION_ERROR;
2393: END IF;
2394: UPDATE OKL_SUPP_INVOICE_DTLS
2387: END IF;
2388: l_return_status := populate_new_record(l_sid_rec, l_def_sid_rec);
2389: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2391: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2392: RAISE OKL_API.G_EXCEPTION_ERROR;
2393: END IF;
2394: UPDATE OKL_SUPP_INVOICE_DTLS
2395: SET OBJECT_VERSION_NUMBER = l_def_sid_rec.object_version_number,
2388: l_return_status := populate_new_record(l_sid_rec, l_def_sid_rec);
2389: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2391: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2392: RAISE OKL_API.G_EXCEPTION_ERROR;
2393: END IF;
2394: UPDATE OKL_SUPP_INVOICE_DTLS
2395: SET OBJECT_VERSION_NUMBER = l_def_sid_rec.object_version_number,
2396: CLE_ID = l_def_sid_rec.cle_id,
2424: LAST_UPDATE_LOGIN = l_def_sid_rec.last_update_login
2425: WHERE ID = l_def_sid_rec.id;
2426: x_sid_rec := l_sid_rec;
2427: x_return_status := l_return_status;
2428: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2429: EXCEPTION
2430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2432: (
2426: x_sid_rec := l_sid_rec;
2427: x_return_status := l_return_status;
2428: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2429: EXCEPTION
2430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2432: (
2433: l_api_name,
2434: G_PKG_NAME,
2427: x_return_status := l_return_status;
2428: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2429: EXCEPTION
2430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2432: (
2433: l_api_name,
2434: G_PKG_NAME,
2435: 'OKL_API.G_RET_STS_ERROR',
2431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2432: (
2433: l_api_name,
2434: G_PKG_NAME,
2435: 'OKL_API.G_RET_STS_ERROR',
2436: x_msg_count,
2437: x_msg_data,
2438: '_PVT'
2439: );
2436: x_msg_count,
2437: x_msg_data,
2438: '_PVT'
2439: );
2440: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2441: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2442: (
2443: l_api_name,
2444: G_PKG_NAME,
2437: x_msg_data,
2438: '_PVT'
2439: );
2440: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2441: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2442: (
2443: l_api_name,
2444: G_PKG_NAME,
2445: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2441: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2442: (
2443: l_api_name,
2444: G_PKG_NAME,
2445: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2446: x_msg_count,
2447: x_msg_data,
2448: '_PVT'
2449: );
2447: x_msg_data,
2448: '_PVT'
2449: );
2450: WHEN OTHERS THEN
2451: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2452: (
2453: l_api_name,
2454: G_PKG_NAME,
2455: 'OTHERS',
2462: -- update_row for:OKL_SUPP_INVOICE_DTLS_V --
2463: --------------------------------------------
2464: PROCEDURE update_row(
2465: p_api_version IN NUMBER,
2466: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2467: x_return_status OUT NOCOPY VARCHAR2,
2468: x_msg_count OUT NOCOPY NUMBER,
2469: x_msg_data OUT NOCOPY VARCHAR2,
2470: p_sidv_rec IN sidv_rec_type,
2471: x_sidv_rec OUT NOCOPY sidv_rec_type) IS
2472:
2473: l_api_version CONSTANT NUMBER := 1;
2474: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2475: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2476: l_sidv_rec sidv_rec_type := p_sidv_rec;
2477: l_def_sidv_rec sidv_rec_type;
2478: l_db_sidv_rec sidv_rec_type;
2479: l_sid_rec sid_rec_type;
2498: p_sidv_rec IN sidv_rec_type,
2499: x_sidv_rec OUT NOCOPY sidv_rec_type
2500: ) RETURN VARCHAR2 IS
2501: l_row_notfound BOOLEAN := TRUE;
2502: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2503: BEGIN
2504: x_sidv_rec := p_sidv_rec;
2505: -- Get current database values
2506: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2505: -- Get current database values
2506: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2507: -- so it may be verified through LOCK_ROW.
2508: l_db_sidv_rec := get_rec(p_sidv_rec, l_return_status);
2509: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2510: IF (x_sidv_rec.id = OKL_API.G_MISS_NUM)
2511: THEN
2512: x_sidv_rec.id := l_db_sidv_rec.id;
2513: END IF;
2506: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2507: -- so it may be verified through LOCK_ROW.
2508: l_db_sidv_rec := get_rec(p_sidv_rec, l_return_status);
2509: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2510: IF (x_sidv_rec.id = OKL_API.G_MISS_NUM)
2511: THEN
2512: x_sidv_rec.id := l_db_sidv_rec.id;
2513: END IF;
2514: IF (x_sidv_rec.object_version_number = OKL_API.G_MISS_NUM)
2510: IF (x_sidv_rec.id = OKL_API.G_MISS_NUM)
2511: THEN
2512: x_sidv_rec.id := l_db_sidv_rec.id;
2513: END IF;
2514: IF (x_sidv_rec.object_version_number = OKL_API.G_MISS_NUM)
2515: THEN
2516: x_sidv_rec.object_version_number := l_db_sidv_rec.object_version_number;
2517: END IF;
2518: IF (x_sidv_rec.cle_id = OKL_API.G_MISS_NUM)
2514: IF (x_sidv_rec.object_version_number = OKL_API.G_MISS_NUM)
2515: THEN
2516: x_sidv_rec.object_version_number := l_db_sidv_rec.object_version_number;
2517: END IF;
2518: IF (x_sidv_rec.cle_id = OKL_API.G_MISS_NUM)
2519: THEN
2520: x_sidv_rec.cle_id := l_db_sidv_rec.cle_id;
2521: END IF;
2522: IF (x_sidv_rec.fa_cle_id = OKL_API.G_MISS_NUM)
2518: IF (x_sidv_rec.cle_id = OKL_API.G_MISS_NUM)
2519: THEN
2520: x_sidv_rec.cle_id := l_db_sidv_rec.cle_id;
2521: END IF;
2522: IF (x_sidv_rec.fa_cle_id = OKL_API.G_MISS_NUM)
2523: THEN
2524: x_sidv_rec.fa_cle_id := l_db_sidv_rec.fa_cle_id;
2525: END IF;
2526: IF (x_sidv_rec.invoice_number = OKL_API.G_MISS_CHAR)
2522: IF (x_sidv_rec.fa_cle_id = OKL_API.G_MISS_NUM)
2523: THEN
2524: x_sidv_rec.fa_cle_id := l_db_sidv_rec.fa_cle_id;
2525: END IF;
2526: IF (x_sidv_rec.invoice_number = OKL_API.G_MISS_CHAR)
2527: THEN
2528: x_sidv_rec.invoice_number := l_db_sidv_rec.invoice_number;
2529: END IF;
2530: IF (x_sidv_rec.date_invoiced = OKL_API.G_MISS_DATE)
2526: IF (x_sidv_rec.invoice_number = OKL_API.G_MISS_CHAR)
2527: THEN
2528: x_sidv_rec.invoice_number := l_db_sidv_rec.invoice_number;
2529: END IF;
2530: IF (x_sidv_rec.date_invoiced = OKL_API.G_MISS_DATE)
2531: THEN
2532: x_sidv_rec.date_invoiced := l_db_sidv_rec.date_invoiced;
2533: END IF;
2534: IF (x_sidv_rec.date_due = OKL_API.G_MISS_DATE)
2530: IF (x_sidv_rec.date_invoiced = OKL_API.G_MISS_DATE)
2531: THEN
2532: x_sidv_rec.date_invoiced := l_db_sidv_rec.date_invoiced;
2533: END IF;
2534: IF (x_sidv_rec.date_due = OKL_API.G_MISS_DATE)
2535: THEN
2536: x_sidv_rec.date_due := l_db_sidv_rec.date_due;
2537: END IF;
2538: IF (x_sidv_rec.shipping_address_id1 = OKL_API.G_MISS_NUM)
2534: IF (x_sidv_rec.date_due = OKL_API.G_MISS_DATE)
2535: THEN
2536: x_sidv_rec.date_due := l_db_sidv_rec.date_due;
2537: END IF;
2538: IF (x_sidv_rec.shipping_address_id1 = OKL_API.G_MISS_NUM)
2539: THEN
2540: x_sidv_rec.shipping_address_id1 := l_db_sidv_rec.shipping_address_id1;
2541: END IF;
2542: IF (x_sidv_rec.shipping_address_id2 = OKL_API.G_MISS_CHAR)
2538: IF (x_sidv_rec.shipping_address_id1 = OKL_API.G_MISS_NUM)
2539: THEN
2540: x_sidv_rec.shipping_address_id1 := l_db_sidv_rec.shipping_address_id1;
2541: END IF;
2542: IF (x_sidv_rec.shipping_address_id2 = OKL_API.G_MISS_CHAR)
2543: THEN
2544: x_sidv_rec.shipping_address_id2 := l_db_sidv_rec.shipping_address_id2;
2545: END IF;
2546: IF (x_sidv_rec.shipping_address_code = OKL_API.G_MISS_CHAR)
2542: IF (x_sidv_rec.shipping_address_id2 = OKL_API.G_MISS_CHAR)
2543: THEN
2544: x_sidv_rec.shipping_address_id2 := l_db_sidv_rec.shipping_address_id2;
2545: END IF;
2546: IF (x_sidv_rec.shipping_address_code = OKL_API.G_MISS_CHAR)
2547: THEN
2548: x_sidv_rec.shipping_address_code := l_db_sidv_rec.shipping_address_code;
2549: END IF;
2550: IF (x_sidv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2546: IF (x_sidv_rec.shipping_address_code = OKL_API.G_MISS_CHAR)
2547: THEN
2548: x_sidv_rec.shipping_address_code := l_db_sidv_rec.shipping_address_code;
2549: END IF;
2550: IF (x_sidv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2551: THEN
2552: x_sidv_rec.attribute_category := l_db_sidv_rec.attribute_category;
2553: END IF;
2554: IF (x_sidv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2550: IF (x_sidv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2551: THEN
2552: x_sidv_rec.attribute_category := l_db_sidv_rec.attribute_category;
2553: END IF;
2554: IF (x_sidv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2555: THEN
2556: x_sidv_rec.attribute1 := l_db_sidv_rec.attribute1;
2557: END IF;
2558: IF (x_sidv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2554: IF (x_sidv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2555: THEN
2556: x_sidv_rec.attribute1 := l_db_sidv_rec.attribute1;
2557: END IF;
2558: IF (x_sidv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2559: THEN
2560: x_sidv_rec.attribute2 := l_db_sidv_rec.attribute2;
2561: END IF;
2562: IF (x_sidv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2558: IF (x_sidv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2559: THEN
2560: x_sidv_rec.attribute2 := l_db_sidv_rec.attribute2;
2561: END IF;
2562: IF (x_sidv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2563: THEN
2564: x_sidv_rec.attribute3 := l_db_sidv_rec.attribute3;
2565: END IF;
2566: IF (x_sidv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2562: IF (x_sidv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2563: THEN
2564: x_sidv_rec.attribute3 := l_db_sidv_rec.attribute3;
2565: END IF;
2566: IF (x_sidv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2567: THEN
2568: x_sidv_rec.attribute4 := l_db_sidv_rec.attribute4;
2569: END IF;
2570: IF (x_sidv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2566: IF (x_sidv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2567: THEN
2568: x_sidv_rec.attribute4 := l_db_sidv_rec.attribute4;
2569: END IF;
2570: IF (x_sidv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2571: THEN
2572: x_sidv_rec.attribute5 := l_db_sidv_rec.attribute5;
2573: END IF;
2574: IF (x_sidv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2570: IF (x_sidv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2571: THEN
2572: x_sidv_rec.attribute5 := l_db_sidv_rec.attribute5;
2573: END IF;
2574: IF (x_sidv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2575: THEN
2576: x_sidv_rec.attribute6 := l_db_sidv_rec.attribute6;
2577: END IF;
2578: IF (x_sidv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2574: IF (x_sidv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2575: THEN
2576: x_sidv_rec.attribute6 := l_db_sidv_rec.attribute6;
2577: END IF;
2578: IF (x_sidv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2579: THEN
2580: x_sidv_rec.attribute7 := l_db_sidv_rec.attribute7;
2581: END IF;
2582: IF (x_sidv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2578: IF (x_sidv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2579: THEN
2580: x_sidv_rec.attribute7 := l_db_sidv_rec.attribute7;
2581: END IF;
2582: IF (x_sidv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2583: THEN
2584: x_sidv_rec.attribute8 := l_db_sidv_rec.attribute8;
2585: END IF;
2586: IF (x_sidv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2582: IF (x_sidv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2583: THEN
2584: x_sidv_rec.attribute8 := l_db_sidv_rec.attribute8;
2585: END IF;
2586: IF (x_sidv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2587: THEN
2588: x_sidv_rec.attribute9 := l_db_sidv_rec.attribute9;
2589: END IF;
2590: IF (x_sidv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2586: IF (x_sidv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2587: THEN
2588: x_sidv_rec.attribute9 := l_db_sidv_rec.attribute9;
2589: END IF;
2590: IF (x_sidv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2591: THEN
2592: x_sidv_rec.attribute10 := l_db_sidv_rec.attribute10;
2593: END IF;
2594: IF (x_sidv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2590: IF (x_sidv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2591: THEN
2592: x_sidv_rec.attribute10 := l_db_sidv_rec.attribute10;
2593: END IF;
2594: IF (x_sidv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2595: THEN
2596: x_sidv_rec.attribute11 := l_db_sidv_rec.attribute11;
2597: END IF;
2598: IF (x_sidv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2594: IF (x_sidv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2595: THEN
2596: x_sidv_rec.attribute11 := l_db_sidv_rec.attribute11;
2597: END IF;
2598: IF (x_sidv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2599: THEN
2600: x_sidv_rec.attribute12 := l_db_sidv_rec.attribute12;
2601: END IF;
2602: IF (x_sidv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2598: IF (x_sidv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2599: THEN
2600: x_sidv_rec.attribute12 := l_db_sidv_rec.attribute12;
2601: END IF;
2602: IF (x_sidv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2603: THEN
2604: x_sidv_rec.attribute13 := l_db_sidv_rec.attribute13;
2605: END IF;
2606: IF (x_sidv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2602: IF (x_sidv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2603: THEN
2604: x_sidv_rec.attribute13 := l_db_sidv_rec.attribute13;
2605: END IF;
2606: IF (x_sidv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2607: THEN
2608: x_sidv_rec.attribute14 := l_db_sidv_rec.attribute14;
2609: END IF;
2610: IF (x_sidv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2606: IF (x_sidv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2607: THEN
2608: x_sidv_rec.attribute14 := l_db_sidv_rec.attribute14;
2609: END IF;
2610: IF (x_sidv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2611: THEN
2612: x_sidv_rec.attribute15 := l_db_sidv_rec.attribute15;
2613: END IF;
2614: IF (x_sidv_rec.created_by = OKL_API.G_MISS_NUM)
2610: IF (x_sidv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2611: THEN
2612: x_sidv_rec.attribute15 := l_db_sidv_rec.attribute15;
2613: END IF;
2614: IF (x_sidv_rec.created_by = OKL_API.G_MISS_NUM)
2615: THEN
2616: x_sidv_rec.created_by := l_db_sidv_rec.created_by;
2617: END IF;
2618: IF (x_sidv_rec.creation_date = OKL_API.G_MISS_DATE)
2614: IF (x_sidv_rec.created_by = OKL_API.G_MISS_NUM)
2615: THEN
2616: x_sidv_rec.created_by := l_db_sidv_rec.created_by;
2617: END IF;
2618: IF (x_sidv_rec.creation_date = OKL_API.G_MISS_DATE)
2619: THEN
2620: x_sidv_rec.creation_date := l_db_sidv_rec.creation_date;
2621: END IF;
2622: IF (x_sidv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2618: IF (x_sidv_rec.creation_date = OKL_API.G_MISS_DATE)
2619: THEN
2620: x_sidv_rec.creation_date := l_db_sidv_rec.creation_date;
2621: END IF;
2622: IF (x_sidv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2623: THEN
2624: x_sidv_rec.last_updated_by := l_db_sidv_rec.last_updated_by;
2625: END IF;
2626: IF (x_sidv_rec.last_update_date = OKL_API.G_MISS_DATE)
2622: IF (x_sidv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2623: THEN
2624: x_sidv_rec.last_updated_by := l_db_sidv_rec.last_updated_by;
2625: END IF;
2626: IF (x_sidv_rec.last_update_date = OKL_API.G_MISS_DATE)
2627: THEN
2628: x_sidv_rec.last_update_date := l_db_sidv_rec.last_update_date;
2629: END IF;
2630: IF (x_sidv_rec.last_update_login = OKL_API.G_MISS_NUM)
2626: IF (x_sidv_rec.last_update_date = OKL_API.G_MISS_DATE)
2627: THEN
2628: x_sidv_rec.last_update_date := l_db_sidv_rec.last_update_date;
2629: END IF;
2630: IF (x_sidv_rec.last_update_login = OKL_API.G_MISS_NUM)
2631: THEN
2632: x_sidv_rec.last_update_login := l_db_sidv_rec.last_update_login;
2633: END IF;
2634: END IF;
2640: FUNCTION Set_Attributes (
2641: p_sidv_rec IN sidv_rec_type,
2642: x_sidv_rec OUT NOCOPY sidv_rec_type
2643: ) RETURN VARCHAR2 IS
2644: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2645: BEGIN
2646: x_sidv_rec := p_sidv_rec;
2647: RETURN(l_return_status);
2648: END Set_Attributes;
2646: x_sidv_rec := p_sidv_rec;
2647: RETURN(l_return_status);
2648: END Set_Attributes;
2649: BEGIN
2650: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2651: G_PKG_NAME,
2652: p_init_msg_list,
2653: l_api_version,
2654: p_api_version,
2653: l_api_version,
2654: p_api_version,
2655: '_PVT',
2656: x_return_status);
2657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2660: RAISE OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2654: p_api_version,
2655: '_PVT',
2656: x_return_status);
2657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2660: RAISE OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2662: --- Setting item attributes
2655: '_PVT',
2656: x_return_status);
2657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2660: RAISE OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2662: --- Setting item attributes
2663: l_return_status := Set_Attributes(
2656: x_return_status);
2657: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2658: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2659: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2660: RAISE OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2662: --- Setting item attributes
2663: l_return_status := Set_Attributes(
2664: p_sidv_rec, -- IN
2663: l_return_status := Set_Attributes(
2664: p_sidv_rec, -- IN
2665: x_sidv_rec); -- OUT
2666: --- If any errors happen abort API
2667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2664: p_sidv_rec, -- IN
2665: x_sidv_rec); -- OUT
2666: --- If any errors happen abort API
2667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2672: l_return_status := populate_new_record(l_sidv_rec, l_def_sidv_rec);
2665: x_sidv_rec); -- OUT
2666: --- If any errors happen abort API
2667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2672: l_return_status := populate_new_record(l_sidv_rec, l_def_sidv_rec);
2673: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2666: --- If any errors happen abort API
2667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2672: l_return_status := populate_new_record(l_sidv_rec, l_def_sidv_rec);
2673: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2672: l_return_status := populate_new_record(l_sidv_rec, l_def_sidv_rec);
2673: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2675: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2676: RAISE OKL_API.G_EXCEPTION_ERROR;
2677: END IF;
2670: RAISE OKL_API.G_EXCEPTION_ERROR;
2671: END IF;
2672: l_return_status := populate_new_record(l_sidv_rec, l_def_sidv_rec);
2673: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2675: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2676: RAISE OKL_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: l_def_sidv_rec := fill_who_columns(l_def_sidv_rec);
2671: END IF;
2672: l_return_status := populate_new_record(l_sidv_rec, l_def_sidv_rec);
2673: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2675: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2676: RAISE OKL_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: l_def_sidv_rec := fill_who_columns(l_def_sidv_rec);
2679: --- Validate all non-missing attributes (Item Level Validation)
2672: l_return_status := populate_new_record(l_sidv_rec, l_def_sidv_rec);
2673: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2675: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2676: RAISE OKL_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: l_def_sidv_rec := fill_who_columns(l_def_sidv_rec);
2679: --- Validate all non-missing attributes (Item Level Validation)
2680: l_return_status := Validate_Attributes(l_def_sidv_rec);
2678: l_def_sidv_rec := fill_who_columns(l_def_sidv_rec);
2679: --- Validate all non-missing attributes (Item Level Validation)
2680: l_return_status := Validate_Attributes(l_def_sidv_rec);
2681: --- If any errors happen abort API
2682: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2683: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2684: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2685: RAISE OKL_API.G_EXCEPTION_ERROR;
2686: END IF;
2679: --- Validate all non-missing attributes (Item Level Validation)
2680: l_return_status := Validate_Attributes(l_def_sidv_rec);
2681: --- If any errors happen abort API
2682: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2683: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2684: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2685: RAISE OKL_API.G_EXCEPTION_ERROR;
2686: END IF;
2687: l_return_status := Validate_Record(l_def_sidv_rec);
2680: l_return_status := Validate_Attributes(l_def_sidv_rec);
2681: --- If any errors happen abort API
2682: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2683: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2684: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2685: RAISE OKL_API.G_EXCEPTION_ERROR;
2686: END IF;
2687: l_return_status := Validate_Record(l_def_sidv_rec);
2688: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2681: --- If any errors happen abort API
2682: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2683: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2684: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2685: RAISE OKL_API.G_EXCEPTION_ERROR;
2686: END IF;
2687: l_return_status := Validate_Record(l_def_sidv_rec);
2688: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2684: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2685: RAISE OKL_API.G_EXCEPTION_ERROR;
2686: END IF;
2687: l_return_status := Validate_Record(l_def_sidv_rec);
2688: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2690: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2691: RAISE OKL_API.G_EXCEPTION_ERROR;
2692: END IF;
2685: RAISE OKL_API.G_EXCEPTION_ERROR;
2686: END IF;
2687: l_return_status := Validate_Record(l_def_sidv_rec);
2688: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2690: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2691: RAISE OKL_API.G_EXCEPTION_ERROR;
2692: END IF;
2693: -----------------------------------------
2686: END IF;
2687: l_return_status := Validate_Record(l_def_sidv_rec);
2688: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2690: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2691: RAISE OKL_API.G_EXCEPTION_ERROR;
2692: END IF;
2693: -----------------------------------------
2694: -- Move VIEW record to "Child" records --
2687: l_return_status := Validate_Record(l_def_sidv_rec);
2688: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2690: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2691: RAISE OKL_API.G_EXCEPTION_ERROR;
2692: END IF;
2693: -----------------------------------------
2694: -- Move VIEW record to "Child" records --
2695: -----------------------------------------
2704: x_msg_data,
2705: l_sid_rec,
2706: lx_sid_rec
2707: );
2708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2705: l_sid_rec,
2706: lx_sid_rec
2707: );
2708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2713: migrate(lx_sid_rec, l_def_sidv_rec);
2706: lx_sid_rec
2707: );
2708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2713: migrate(lx_sid_rec, l_def_sidv_rec);
2714: x_sidv_rec := l_def_sidv_rec;
2707: );
2708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2713: migrate(lx_sid_rec, l_def_sidv_rec);
2714: x_sidv_rec := l_def_sidv_rec;
2715: x_return_status := l_return_status;
2712: END IF;
2713: migrate(lx_sid_rec, l_def_sidv_rec);
2714: x_sidv_rec := l_def_sidv_rec;
2715: x_return_status := l_return_status;
2716: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2717: EXCEPTION
2718: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2719: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2720: (
2714: x_sidv_rec := l_def_sidv_rec;
2715: x_return_status := l_return_status;
2716: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2717: EXCEPTION
2718: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2719: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2720: (
2721: l_api_name,
2722: G_PKG_NAME,
2715: x_return_status := l_return_status;
2716: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2717: EXCEPTION
2718: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2719: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2720: (
2721: l_api_name,
2722: G_PKG_NAME,
2723: 'OKL_API.G_RET_STS_ERROR',
2719: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2720: (
2721: l_api_name,
2722: G_PKG_NAME,
2723: 'OKL_API.G_RET_STS_ERROR',
2724: x_msg_count,
2725: x_msg_data,
2726: '_PVT'
2727: );
2724: x_msg_count,
2725: x_msg_data,
2726: '_PVT'
2727: );
2728: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2729: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2730: (
2731: l_api_name,
2732: G_PKG_NAME,
2725: x_msg_data,
2726: '_PVT'
2727: );
2728: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2729: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2730: (
2731: l_api_name,
2732: G_PKG_NAME,
2733: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2729: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2730: (
2731: l_api_name,
2732: G_PKG_NAME,
2733: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2734: x_msg_count,
2735: x_msg_data,
2736: '_PVT'
2737: );
2735: x_msg_data,
2736: '_PVT'
2737: );
2738: WHEN OTHERS THEN
2739: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2740: (
2741: l_api_name,
2742: G_PKG_NAME,
2743: 'OTHERS',
2750: -- PL/SQL TBL update_row for:sidv_tbl --
2751: ----------------------------------------
2752: PROCEDURE update_row(
2753: p_api_version IN NUMBER,
2754: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2755: x_return_status OUT NOCOPY VARCHAR2,
2756: x_msg_count OUT NOCOPY NUMBER,
2757: x_msg_data OUT NOCOPY VARCHAR2,
2758: p_sidv_tbl IN sidv_tbl_type,
2761: l_api_version CONSTANT NUMBER := 1;
2762: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2763: i NUMBER := 0;
2764: BEGIN
2765: OKL_API.init_msg_list(p_init_msg_list);
2766: -- Make sure PL/SQL table has records in it before passing
2767: IF (p_sidv_tbl.COUNT > 0) THEN
2768: i := p_sidv_tbl.FIRST;
2769: LOOP
2778: EXIT WHEN (i = p_sidv_tbl.LAST);
2779: i := p_sidv_tbl.NEXT(i);
2780: END LOOP;
2781: END IF;
2782: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2783: EXCEPTION
2784: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2785: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2786: (
2780: END LOOP;
2781: END IF;
2782: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2783: EXCEPTION
2784: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2785: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2786: (
2787: l_api_name,
2788: G_PKG_NAME,
2781: END IF;
2782: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2783: EXCEPTION
2784: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2785: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2786: (
2787: l_api_name,
2788: G_PKG_NAME,
2789: 'OKL_API.G_RET_STS_ERROR',
2785: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2786: (
2787: l_api_name,
2788: G_PKG_NAME,
2789: 'OKL_API.G_RET_STS_ERROR',
2790: x_msg_count,
2791: x_msg_data,
2792: '_PVT'
2793: );
2790: x_msg_count,
2791: x_msg_data,
2792: '_PVT'
2793: );
2794: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2795: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2796: (
2797: l_api_name,
2798: G_PKG_NAME,
2791: x_msg_data,
2792: '_PVT'
2793: );
2794: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2795: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2796: (
2797: l_api_name,
2798: G_PKG_NAME,
2799: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2795: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2796: (
2797: l_api_name,
2798: G_PKG_NAME,
2799: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2800: x_msg_count,
2801: x_msg_data,
2802: '_PVT'
2803: );
2801: x_msg_data,
2802: '_PVT'
2803: );
2804: WHEN OTHERS THEN
2805: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2806: (
2807: l_api_name,
2808: G_PKG_NAME,
2809: 'OTHERS',
2818: ------------------------------------------
2819: -- delete_row for:OKL_SUPP_INVOICE_DTLS --
2820: ------------------------------------------
2821: PROCEDURE delete_row(
2822: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2823: x_return_status OUT NOCOPY VARCHAR2,
2824: x_msg_count OUT NOCOPY NUMBER,
2825: x_msg_data OUT NOCOPY VARCHAR2,
2826: p_sid_rec IN sid_rec_type) IS
2826: p_sid_rec IN sid_rec_type) IS
2827:
2828: l_api_version CONSTANT NUMBER := 1;
2829: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
2830: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2831: l_sid_rec sid_rec_type := p_sid_rec;
2832: l_row_notfound BOOLEAN := TRUE;
2833: BEGIN
2834: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2830: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2831: l_sid_rec sid_rec_type := p_sid_rec;
2832: l_row_notfound BOOLEAN := TRUE;
2833: BEGIN
2834: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2835: p_init_msg_list,
2836: '_PVT',
2837: x_return_status);
2838: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2834: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2835: p_init_msg_list,
2836: '_PVT',
2837: x_return_status);
2838: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2835: p_init_msg_list,
2836: '_PVT',
2837: x_return_status);
2838: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843:
2836: '_PVT',
2837: x_return_status);
2838: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843:
2844: DELETE FROM OKL_SUPP_INVOICE_DTLS
2837: x_return_status);
2838: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843:
2844: DELETE FROM OKL_SUPP_INVOICE_DTLS
2845: WHERE ID = p_sid_rec.id;
2844: DELETE FROM OKL_SUPP_INVOICE_DTLS
2845: WHERE ID = p_sid_rec.id;
2846:
2847: x_return_status := l_return_status;
2848: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2849: EXCEPTION
2850: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2851: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2852: (
2846:
2847: x_return_status := l_return_status;
2848: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2849: EXCEPTION
2850: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2851: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2847: x_return_status := l_return_status;
2848: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2849: EXCEPTION
2850: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2851: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2855: 'OKL_API.G_RET_STS_ERROR',
2851: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2855: 'OKL_API.G_RET_STS_ERROR',
2856: x_msg_count,
2857: x_msg_data,
2858: '_PVT'
2859: );
2856: x_msg_count,
2857: x_msg_data,
2858: '_PVT'
2859: );
2860: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2861: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2862: (
2863: l_api_name,
2864: G_PKG_NAME,
2857: x_msg_data,
2858: '_PVT'
2859: );
2860: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2861: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2862: (
2863: l_api_name,
2864: G_PKG_NAME,
2865: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2861: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2862: (
2863: l_api_name,
2864: G_PKG_NAME,
2865: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2866: x_msg_count,
2867: x_msg_data,
2868: '_PVT'
2869: );
2867: x_msg_data,
2868: '_PVT'
2869: );
2870: WHEN OTHERS THEN
2871: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2872: (
2873: l_api_name,
2874: G_PKG_NAME,
2875: 'OTHERS',
2882: -- delete_row for:OKL_SUPP_INVOICE_DTLS_V --
2883: --------------------------------------------
2884: PROCEDURE delete_row(
2885: p_api_version IN NUMBER,
2886: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2887: x_return_status OUT NOCOPY VARCHAR2,
2888: x_msg_count OUT NOCOPY NUMBER,
2889: x_msg_data OUT NOCOPY VARCHAR2,
2890: p_sidv_rec IN sidv_rec_type) IS
2890: p_sidv_rec IN sidv_rec_type) IS
2891:
2892: l_api_version CONSTANT NUMBER := 1;
2893: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2894: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2895: l_sidv_rec sidv_rec_type := p_sidv_rec;
2896: l_sid_rec sid_rec_type;
2897: BEGIN
2898: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2894: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2895: l_sidv_rec sidv_rec_type := p_sidv_rec;
2896: l_sid_rec sid_rec_type;
2897: BEGIN
2898: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2899: G_PKG_NAME,
2900: p_init_msg_list,
2901: l_api_version,
2902: p_api_version,
2901: l_api_version,
2902: p_api_version,
2903: '_PVT',
2904: x_return_status);
2905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2908: RAISE OKL_API.G_EXCEPTION_ERROR;
2909: END IF;
2902: p_api_version,
2903: '_PVT',
2904: x_return_status);
2905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2908: RAISE OKL_API.G_EXCEPTION_ERROR;
2909: END IF;
2910: -----------------------------------------
2903: '_PVT',
2904: x_return_status);
2905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2908: RAISE OKL_API.G_EXCEPTION_ERROR;
2909: END IF;
2910: -----------------------------------------
2911: -- Move VIEW record to "Child" records --
2904: x_return_status);
2905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2908: RAISE OKL_API.G_EXCEPTION_ERROR;
2909: END IF;
2910: -----------------------------------------
2911: -- Move VIEW record to "Child" records --
2912: -----------------------------------------
2920: x_msg_count,
2921: x_msg_data,
2922: l_sid_rec
2923: );
2924: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2927: RAISE OKL_API.G_EXCEPTION_ERROR;
2928: END IF;
2921: x_msg_data,
2922: l_sid_rec
2923: );
2924: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2927: RAISE OKL_API.G_EXCEPTION_ERROR;
2928: END IF;
2929: x_return_status := l_return_status;
2922: l_sid_rec
2923: );
2924: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2927: RAISE OKL_API.G_EXCEPTION_ERROR;
2928: END IF;
2929: x_return_status := l_return_status;
2930: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2923: );
2924: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2927: RAISE OKL_API.G_EXCEPTION_ERROR;
2928: END IF;
2929: x_return_status := l_return_status;
2930: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2931: EXCEPTION
2926: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2927: RAISE OKL_API.G_EXCEPTION_ERROR;
2928: END IF;
2929: x_return_status := l_return_status;
2930: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2931: EXCEPTION
2932: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2933: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2934: (
2928: END IF;
2929: x_return_status := l_return_status;
2930: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2931: EXCEPTION
2932: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2933: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2934: (
2935: l_api_name,
2936: G_PKG_NAME,
2929: x_return_status := l_return_status;
2930: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2931: EXCEPTION
2932: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2933: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2934: (
2935: l_api_name,
2936: G_PKG_NAME,
2937: 'OKL_API.G_RET_STS_ERROR',
2933: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2934: (
2935: l_api_name,
2936: G_PKG_NAME,
2937: 'OKL_API.G_RET_STS_ERROR',
2938: x_msg_count,
2939: x_msg_data,
2940: '_PVT'
2941: );
2938: x_msg_count,
2939: x_msg_data,
2940: '_PVT'
2941: );
2942: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2943: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2944: (
2945: l_api_name,
2946: G_PKG_NAME,
2939: x_msg_data,
2940: '_PVT'
2941: );
2942: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2943: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2944: (
2945: l_api_name,
2946: G_PKG_NAME,
2947: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2943: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2944: (
2945: l_api_name,
2946: G_PKG_NAME,
2947: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2948: x_msg_count,
2949: x_msg_data,
2950: '_PVT'
2951: );
2949: x_msg_data,
2950: '_PVT'
2951: );
2952: WHEN OTHERS THEN
2953: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2954: (
2955: l_api_name,
2956: G_PKG_NAME,
2957: 'OTHERS',
2964: -- PL/SQL TBL delete_row for:OKL_SUPP_INVOICE_DTLS_V --
2965: -------------------------------------------------------
2966: PROCEDURE delete_row(
2967: p_api_version IN NUMBER,
2968: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2969: x_return_status OUT NOCOPY VARCHAR2,
2970: x_msg_count OUT NOCOPY NUMBER,
2971: x_msg_data OUT NOCOPY VARCHAR2,
2972: p_sidv_tbl IN sidv_tbl_type) IS
2974: l_api_version CONSTANT NUMBER := 1;
2975: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
2976: i NUMBER := 0;
2977: BEGIN
2978: OKL_API.init_msg_list(p_init_msg_list);
2979: -- Make sure PL/SQL table has records in it before passing
2980: IF (p_sidv_tbl.COUNT > 0) THEN
2981: i := p_sidv_tbl.FIRST;
2982: LOOP
2990: EXIT WHEN (i = p_sidv_tbl.LAST);
2991: i := p_sidv_tbl.NEXT(i);
2992: END LOOP;
2993: END IF;
2994: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2995: EXCEPTION
2996: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2997: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2998: (
2992: END LOOP;
2993: END IF;
2994: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2995: EXCEPTION
2996: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2997: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2998: (
2999: l_api_name,
3000: G_PKG_NAME,
2993: END IF;
2994: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2995: EXCEPTION
2996: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2997: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2998: (
2999: l_api_name,
3000: G_PKG_NAME,
3001: 'OKL_API.G_RET_STS_ERROR',
2997: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2998: (
2999: l_api_name,
3000: G_PKG_NAME,
3001: 'OKL_API.G_RET_STS_ERROR',
3002: x_msg_count,
3003: x_msg_data,
3004: '_PVT'
3005: );
3002: x_msg_count,
3003: x_msg_data,
3004: '_PVT'
3005: );
3006: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3007: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3008: (
3009: l_api_name,
3010: G_PKG_NAME,
3003: x_msg_data,
3004: '_PVT'
3005: );
3006: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3007: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3008: (
3009: l_api_name,
3010: G_PKG_NAME,
3011: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3007: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3008: (
3009: l_api_name,
3010: G_PKG_NAME,
3011: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3012: x_msg_count,
3013: x_msg_data,
3014: '_PVT'
3015: );
3013: x_msg_data,
3014: '_PVT'
3015: );
3016: WHEN OTHERS THEN
3017: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3018: (
3019: l_api_name,
3020: G_PKG_NAME,
3021: 'OTHERS',